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

**Defined in:** [[george:source:WORK-MACROS|WORK-MACROS]]

**Used in:** [[george:source:COMPOST867|COMPOST867]], [[george:source:OPENEND865|OPENEND865]], [[george:source:OPENWORK866|OPENWORK866]]

<code - UNOPCH.mac.txt>
 655# ...[??? UNOPCH SECT FILE FGN 4 DOC 
 65*6    #MAC  UNOPCH
 65SQ          LDX   0  CTOPEN(%A)   
 66#B          SRL   0  12   
 66S2          ANDN  0  #5777
 67?L          BNZ   0  %B   
 67R=          LDCT  0  #200 
 68=W          ANDX  0  FINFC(%A)
 68QG          BNZ   0  %B   
 69=6    #NOR
</code>