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

**Defined in:** [[george:source:MACS_PCT|MACS PCT]]

**Used in:** [[george:source:MOPCOMB865|MOPCOMB865]]

<code - OFF7020.mac.txt>
 4BM6    #MAC  OFF7020   
 4C6Q          HUNT2B   1,A7020,INFORM   
 4CLB          LDX   0  GSIGN
 4D62          ORS   0  ALINESTAT(1) 
 4DKL          SMO      FX2  
 4F5=          STO   2  ACOMMUNE9
 4FJW          LDX   0  APCTNUM(1)          [MAKE ALL OPERABLE PCTS LOOK ACTIVE. 
 4G4G          SBX   0  APCTINOP(1)  
 4GJ6          ANDX  0  BITS22LS 
 4H3Q          LDX   2  1
 4HHB          STO   0  APCTACT(1)   
 4J32          BZE   0  MOFF3
 4JGL    MOFF1 LDXC  0  APCTSTAT(1)         [J. IF INOP. 
 4K2=          BCS      MOFF2
 4KFW          ANDX  0  BITS22LS            [UNSET THE INACTIVE BIT, IF SET. 
 4K^G          STO   0  APCTSTAT(1)  
 4LF6          LDCH  0  APCTX(1)            [FLIP CONSOLE OUTPUT.
 4LYQ          ORS   0  APCTD(1) 
 4MDB    MOFF2 ADNC  0  1                   [LAST RECORD APCTSTAT = -1.  
 4MY2          ADN   1  APCTRLEN 
 4NCL          BNZ   0  MOFF1               [J. IF NOT END.  
 4NX=    MOFF3 HUNTACT  AMOP,2              [WAKE UP THE PCT ACTIVITY, IF ASLEEP.
 4PBW          LONGCLEA 2,#62,MOFF4  
 4PWG    MOFF4 SMO      FX2                 [RESTORE X2. 
 4QB6          LDX   2  ACOMMUNE9
 4QTQ    #NOR
</code>