LDBIT [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: LDBIT)}}
====== LDBIT ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_JSR|MACROS JSR]]

**Used in:** [[george:source:GETWORD867|GETWORD867]], [[george:source:LIST867|LIST867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTPREP865|LISTPREP865]], [[george:source:PLUGIN867|PLUGIN867]]

<code - LDBIT.mac.txt>
 7?MN ...[??? LDBIT SECT CENT FGN 9 DOC  
 7?XG    #   
 7#C6    #     THIS MACRO LOADS BIT %A INTO WORD %B  
 7#WQ    #   
 7*BB    #MAC  LDBIT 
 7*W2    #SKIP %A>23-23  
 7B*L    !     %A EXCEEDS 23 OR IS UNDEFINED 
 7BT=    #ACC  %B
 7C#W    (   
 7CSG          LDBITZ   %A,0 
 7D#6          STO   0  %B   
 7DRQ    )   
 7F?B    #ACC  %B
 7FR2    #SKIP   
 7G=L          LDBITZ   %A,%B
 7GQ=    #NOR
</code>