LDNBIT

(GIN Macro)

Defined in: MACROS JSR

Used in: PRINT70

LDNBIT.mac.txt

 7WP4 ...[??? LDNBIT SECT CENT FGN 9 DOC 
 7WYW    #   
 7XDG    #     THIS MACRO SETS ALL BITS EXCEPT BIT %A OF WORD %B 
 7XY6    #   
 7YCQ    #MAC  LDNBIT
 7YXB    #SKIP %A>23-23  
 7^C2    !     %A EXCEEDS 23 OR IS UNDEFINED 
 7^WL    #ACC  %B
 82B=    (   
 82TW          LDNBITZ  %A,0 
 83*G          STO   0  %B   
 83T6    )   
 84#Q    #ACC  %B
 84SB    #SKIP   
 85#2          LDNBITZ  %A,%B
 85RL    #NOR