{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: PCTINOP8)}}
====== PCTINOP8 ======
(George Source)

**Macros used:** [[george:macro:COOR3|COOR3]], [[george:macro:DOWN|DOWN]], [[george:macro:INFORM|INFORM]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NUDGE|NUDGE]], [[george:macro:OUTPARN|OUTPARN]], [[george:macro:PCT7020|PCT7020]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TEST|TEST]], [[george:macro:UP|UP]]

<code - PCTINOP8.txt>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
</code>