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