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

**Defined in:** [[george:source:MACS_MISW|MACS MISW]]

**Used in:** [[george:source:ADDJOB867|ADDJOB867]], [[george:source:INPUTMOP82|INPUTMOP82]]

<code - SNUIB.mac.txt>
 #692    #MAC  SNUIB                        [SWITCH THE MOP NO-USER-INPUT BIT.   
 #6NL          LDN   0  1
 #78=          LDX   2  FX2  
 #7MW          ANDX  0  CONTEXT(2)   
 #87G          BNZ   0  MSNUIBEND           [J. UNLESS NO-USER CONTEXT.  
 #8M6          LDCH  0  JSOURCE1(2)         [GET TYPE.   
 #96Q          ANDN  0  #70  
 #9LB          BZE   0  MSNUIBEND           [J. IF <8  : TYPE 7 = INOPERABLE LINE
 #=62          ANDN  0  #60  
 #=KL          BNZ   0  MSNUIBXMX           [J. IF >16 : TYPES 10 & 11 = PLEXORS.
 #?5=          MHUNTW   1,AMXOR,ALCB 
 #?JW          LDCT  0  #20                 [SWITCH THE BIT. 
 ##4G          ERS   0  GWAIT(1) 
 ##J6          BRN      MSNUIBEND
 #*3Q    MSNUIBXMX   
 #*HB          ANDN  0  #40  
 #B32          BNZ   0  MSNUIBEND           [J. IF >32 : MUST BE TYPE 74 - CI.   
 #BGL          MHUNTW   1,AMXOR,ADCB        [OTHERWISE TYPE 24 - IPB.
 #C2=          LDCT  0  #20                 [SWITCH THE BIT. 
 #CFW          ERS   0  IWAIT(1) 
 #C^G    MSNUIBEND   
 #DF6          LDX   1  FX1  
 #DYQ    #NOR
</code>