(GIN Macro)
Defined in: MACS PCT
Used in: ATTACHB866
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