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

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** 

<code - BOP.mac.txt>
 =RC8 ...[   
 =RJB ...[   
 =RPL ...[??? BOP SECT FILE FGN 24 DOC   
 =^K6    #MAC  BOP   
 =^MP ...[ THE FOLLOWING MACROS OPERATE ON THE BITS IN AN ACC,CORRESPONDING  
 =^Q# ...[ TO THE BIT IDS GIVEN  
 =^SX ...[ BOP,MBOP ARE THE PRIMITIVES   
 =^XG ...[ BSXD SETS THE BITS IN AN ACC, OVWERWRITING PREV CONTETS   
 ?225 ...[ MBSXD IS THE MULTI CASE   
 ?24Q    #SKI  %A&#37>11-11  
 ?2JB    (                                  [B12-23  
 ?342          %BN %C  #40000000@L-(%A&#37)  
 ?3HL    #EXI
 ?43=    )   
 ?4GW    #SKI  %A&#37-1<8-8  
 ?52G    (                                  [B1-8
 ?5G6    #STR  %B,LD 
 ?5^Q    (                                  [NOT LD OPERATION
 ?6FB    #STR  %D
 ?6^2    (                                  [%D SPECIFIED
 ?7DL          %BX  %C  %D   
 ?7Y=    #EXI
 ?8CW    )   
 ?8XG          LDCT  0  #400@L-(%A&#37)  
 ?9C6          %BX   %C 0
 ?9WQ    #EXI
 ?=BB    )                                  [LD OPERATION
 ?=W2          LDCT  %C #400@L-(%A&#37)  
 ??*L    #STR  %D
 ??T=          STO   %C %D   
 ?##W    #EXI
 ?#SG    )   
 ?*#6    #SKI  %A&#37<1-1
 ?*RQ          %BX   %C GSIGN
 ?B?B    #SKI  %A&#37-9<1-1  
 ?BR2          %BX   %C BIT9 
 ?C=L    #SKI  %A&#37-10<1-1 
 ?CQ=          %BX   %C BIT10
 ?D9W    #SKI  %A&#37-11<1-1 
 ?DPG          %BX   %C BIT11
 ?F96    #NOR
</code>