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

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

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

<code - ATT7020.mac.txt>
 2L^W    #MAC  ATT7020   
 2MFG          HUNT2B   2,A7020,INFORM,1    [HUNT BACK FROM THE A7020/ALCB.  
 2M^6          LDX   1  APCTACT(2)          [J. OUT IF SOME PCT IS STILL ACTIVE, 
 2NDQ          BNZ   1  %A   
 2NYB          LDXC  0  ALINESTAT(2)        [OR IF ALREADY CLOSING DOWN FOR SOME 
 2PD2          BCS      %A                  [OTHER REASON,   
 2PXL          LDX   1  FPTPCT(2)           [OR IF SOME ACTIVITIES STILL RUNNING,
 2QC=          LDXC  0  APCTID-FPTPCT(1) 
 2QWW          BCC      %A   
 2RBG          HUNTACT  AMOP,2              [OR BEING SET UP.
 2RW6          LDX   0  JOBRING+BPTR(2)  
 2S*Q          SBN   0  JOBRING(2)   
 2STB          BNZ   0  %A   
 2T*2          LDCT  0  #500                [SET MOP-OFF : ATTACHED MARKER.  
 2TSL          ORS   0  ALINESTAT-FPTPCT(1)  
 2W#=          LDX   0  APCTNUM-FPTPCT(1)   [MAKE ALL OPERABLE PCTS LOOK ACTIVE. 
 2WRW          SBX   0  APCTINOP-FPTPCT(1)   
 2X?G          ANDX  0  BITS22LS 
 2XR6          BZE   0  MATT3
 2Y=Q          STO   0  APCTACT-FPTPCT(1)
 2YQB    MATT1 LDXC  0  APCTSTAT-FPTPCT(1)  [J. IF INOP. 
 2^=2          BCS      MATT2
 2^PL          ANDX  0  BITS22LS            [UNSET THE INACTIVE BIT IF SET.  
 329=          STO   0  APCTSTAT-FPTPCT(1)   
 32NW          LDCH  0  APCTX-FPTPCT(1)     [FLIP CONSOLE OUTPUT.
 338G          ORS   0  APCTD-FPTPCT(1)  
 33N6    MATT2 ADNC  0  1                   [APCTSTAT = -1 SHOWS END OF BLOCK.   
 347Q          ADN   1  APCTRLEN 
 34MB          BNZ   0  MATT1
 3572    MATT3 LONGCLEA 2,#62,%B            [KICK THE PCT ACTIVITY,IF ASLEEP$
 35LL          BRN      %B   
 366=    #NOR
</code>