You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
3 . 4 . 3 T STB I T r SK T B I T r CL RB I TFUNCTION TSTB I T ( BA SI C VAR BI T NU M) : BOOLEAN'PROCEDURE SKTBI T (VAR BASI C VAR. BI T NUM) iPROCEDURE CLRB I T (VAR BASI C VAR. B I T NUM»' TSTBI T r e t u r n s TRUE i 4 t h e d e s i gn a t e d b i t i n t h e b a s i c v a r i s on e a n d' '- r et ur n s FALSE i 4 t h e b i t i s o 44 . SETBI T s e t s t h e d e s i g n k t e d b i t i n t h epa rame t er . C LR Bl T c l e a r s t h e d e s i g n a t e d b i t i n t h e p a r a met e r .BASI C VAR is ang 8 o r 1 6 b i t v a r i a b l e s u ch as i n t e ge ri c h a r . b y t e sc o r d i o r b o o l ea n . B I T NUM i s G. . 15 w i t h b i t 0 o n t h e r i g h t . A t t emp t i n gto s e t b i t 1G o 4 an S b i t v a r i a b l e d o e s n o t c a u se a n e r r o r b ut h as n oe 44ec t o n t h e en d r e s u l t ,T hes e pr o c ed ur e s a r e u s e f u l f o r g en er a t i n g me i t l o op s o r a l t e r i n gin comi n g d a t a b g f l i p p i ng a bi t where n e e <strong>de</strong> d. A no t h er a p p l i c a t i o n i sin ma n i p u l a t i n g a bi t ma p ped s c r e e n.PROCEDURE TST 'SET' CLR- BITSYVARI: I NTKQER'BEQ INW RITELN ( ' TST SET CL R B l TS . . . .I: ~ GsSET B I T ( I i 5 ) iIF I ~ 3 2 THENIF TSTBI T ( l i 5) THENWRI TEL N ( ' I ~ ' i I ) aCLRB I T ( l i 5 ) eIF I ~ 0 THENIF NQ T ( TSTB I T ( I. S) ) T HENWRI TK LN ( ' I ~ ' i I ) iOutput:T ST SET CL R BI T S. .I~32I ~ G
Change language