(George Source)
Macros used: COOR3, DOWN, INFORM, MENDAREA, MHUNTW, NUDGE, OUTPARN, PCT7020, SEGENTRY, TEST, UP
22FL #LIS K0PCTINOP>K0PCT>K0ALLGEO>K0GREATGEO 22^= #SEG PCTINOP8 [G CONSTANTINIDES 23DW 8HPCTINOP8 23YG # ENTRY POINTS 24D6 SEGENTRY K1PCTINOP,Z1PCTINOP 24XQ MENDAREA APCTGAP,K100PCTINOP 25CB [ 25X2 [ THIS SEGMENT IS ENTERED WHEN A 7020 TERMINAL GOES INOPERABLE 26BL [ 26W= # 27*W TEST COOR3 #62 [WAIT A BIT 27TG Z1PCTINOP [ENTRY TO CLEAR UP WHEN A TERMINAL 28*6 [GOES INOPERABLE 28SQ LDX 4 JOBRING(2) 29#B SBN 4 JOBRING(2) 29S2 BNZ 4 TEST [J. IF ACTIVITIES STILL BEING SET UP 2=?L MHUNTW 3,A7020,INFORM 2=R= LDX 2 3 [STEP TO THE CURRENT 2?=W ADX 2 APCTP(3) [PCT RECORD 2?QG BCHX 2 £ [CLEAR THE OPERABILITY CHARACTER 2#=6 DCH 4 APCTD(2) 2#PQ ORX 2 GSIGN [AND THE FLIP CHARACTERS. 2*9B DCH 4 APCTD(2) 2*P2 DCH 4 APCTX(2) 2B8L LDX 5 APCTD(2) [ACCESS THE 2BN= SLL 5 6 [ACTIVITY EXISTS CHARACTER. 2C7W LDN 4 12 [LENGTH OF PCT DEVISE DESCRIPTION 2CMG NXDEV SMO 4 [ACCESS THE FIRST WORD OF THE 2D76 LDXC 0 APCTDEV-2(2) [NEXT DEVISE RECORD 2DLQ BCS NXD [IF IT'S T/W OUTPUT - IGNORE 2F6B ANDX 0 HALFTOP 2FL2 BZE 0 NXD 2G5L ANDX 0 5 [IS THERE 2GK= BNZ 0 NXD [AN ACTIVITY 2H4W SMO 4 2HJG LDX 6 APCTDEV-2(2) 2J46 LDX 0 APCTP(3) 2JHQ DSA 0 6 2K3B LDX 2 3 2KH2 PCT7020 2,6 2L2L LDCT 0 2 [SET INOPERABILITY MARKER 2LG= ORS 0 EWAIT(2) [IN RELEVANT PCT BUFFER BLOCK 2L^W NUDGE [SET ACTIVITY GOING 2MFG LDX 2 3 2M^6 ADX 2 APCTP(3) 2NDQ NXD SBN 4 2 [NO - STOP ON TO THE NEXT 2NYB BNZ 4 NXDEV [DEVISE RECORD 2PD2 LDX 5 IDUNIQUE(2) [TERMINAL IDENTIFIER 2PXL SMO FX2 [SET UP THE TERMINAL IDENTIFIER 2QC= STO 5 AWORK3 [AS A PARAMETER FOR THE INOP. MESSAGE 2QWW OUTPARN 2,AWORK3 2RBG INFORM 1,HTINOP,1 [SEND 'TERMINA- INOP' TO CENTRAL CONS 2RW6 DOWN PCTCOUT,2 [RE-ROUTE ANY MESSAGES 2S*Q UP [FINISH 2STB # 2T*2 #END ^^^^ ...64550567000100000000