35 Modifications

Seq #  *Modification Id* Act 
----------------------------+
02772  M01S02411.comknwc +++|          SX6    PACK
02773  M01S02412.comknwc +++|          BX2    X2+X7       UPDATE OUTSTANDING OUTPUT BLOCK
02774  M01S02413.comknwc +++|          LX0    TNBDS-59-TNSRS+59  SET BLOCK DELIVERED FLAG
02775  M01S02414.comknwc +++|          LX2    TNBOS-TNBON+1
02776  M01S02415.comknwc +++|          BX7    X2+X0
02777  M01S02416.comknwc +++|          SA7    A2          NCT ENTRY
02778  M01S02417.comknwc +++|          EQ     ATK         SCHEDULE TASK
02779  M01S02418.comknwc +++| BRK      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
02780  M02S02419.ns2337  ---|**        BRK - PROCESS TERMINAL BREAK. (FC/BRK)

Seq #  *Modification Id* Act 
----------------------------+
02781  M02S02420.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
02782  M02S02421.ns2337  ---|*              1.  IF QUEUED SUPERVISORY MESSAGE GO TO STEP 4.

Seq #  *Modification Id* Act 
----------------------------+
02783  M02S02422.ns2337  ---|*              2.  SET RECOVERY FIELD IN TST FOR TERMINAL.

Seq #  *Modification Id* Act 
----------------------------+
02784  M02S02423.ns2337  ---|*              3.  SET RESET FLAG TNBK IN NCT.  A RESET SUPERVISORY

Seq #  *Modification Id* Act 
----------------------------+
02785  M02S02424.ns2337  ---|*                  MESSAGE WILL BE SENT PRIOR TO THE NEXT SEND TO THE

Seq #  *Modification Id* Act 
----------------------------+
02786  M02S02425.ns2337  ---|*                  TERMINAL IN THE ROUTINE *SND*.

Seq #  *Modification Id* Act 
----------------------------+
02787  M02S02426.ns2337  ---|*              4.  SET REASON CODE FOR BREAK.

Seq #  *Modification Id* Act 
----------------------------+
02788  M02S02427.ns2337  ---|*              5.  GO TO SCHEDULE TASK *ATK*.

Seq #  *Modification Id* Act 
----------------------------+
02789  M02S02428.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
02790  M02S02429.ns2337  ---|*        ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
02791  M02S02430.ns2337  ---|*                      0 OTHERWISE.

Seq #  *Modification Id* Act 
----------------------------+
02792  M03S02431.ns2337  ---|*               (X2) = ADDRESS OF NCT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
02793  M02S02432.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
02794  M02S02433.ns2337  ---|*        EXIT   TO *ATK*.

Seq #  *Modification Id* Act 
----------------------------+
02795  M02S02434.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
02796  M03S02435.ns2337  ---|*        USES   A - 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02797  M02S00047.ns2337  ---|*         USES   A - 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02798  M02S02436.ns2337  ---|*               X - 0, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02799  M02S02437.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
02800  M02S02438.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
02801  M02S02439.ns2337  ---| BRK      NZ     B6,BRK1     IF QUEUED SUPERVISORY MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02802  M02S00048.ns2337  ---|          SA3    SMPB        GET TST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
02803  M02S00049.ns2337  ---|          SA2    X3

Seq #  *Modification Id* Act 
----------------------------+
02804  M02S02440.ns2337  ---|          SA3    X2          TST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
02805  M02S02441.ns2337  ---|          LX3    59-TSLIS

Seq #  *Modification Id* Act 
----------------------------+
02806  M02S02442.ns2337  ---|          PL     X3,SMP1     IF TERMINAL NOT LOGGED IN

Seq #  *Modification Id* Act 
----------------------------+
02807  M02S02443.ns2337  ---|          MX4    -TNBON

Seq #  *Modification Id* Act 
----------------------------+
02808  M02S02444.ns2337  ---|          LX3    59-59+TSLIS-59

Seq #  *Modification Id* Act 
----------------------------+
02809  M02S02445.ns2337  ---|          MX0    1

Seq #  *Modification Id* Act 
----------------------------+
02810  M02S02446.ns2337  ---|          LX0    TSRBS-59

Seq #  *Modification Id* Act 
----------------------------+
02811  M02S02447.ns2337  ---|          LX1    AHACS-AHACN+1

Seq #  *Modification Id* Act 
----------------------------+
02812  M02S02448.ns2337  ---|          BX7    X0+X3       SET USER RECOVERY FLAG

Seq #  *Modification Id* Act 
----------------------------+
02813  M02S02449.ns2337  ---|          LX0    TNBKS-59-TSRBS+59  BREAK FIELD

Seq #  *Modification Id* Act 
----------------------------+
02814  M02S02450.ns2337  ---|          LX4    TNBOS-TNBON+1

Seq #  *Modification Id* Act 
----------------------------+
02815  M02S02451.ns2337  ---|          SA7    A3+

Seq #  *Modification Id* Act 
----------------------------+
02816  M02S02452.ns2337  ---|          BX6    X0+X2

Seq #  *Modification Id* Act 
----------------------------+
02817  M02S02453.ns2337  ---|          BX6    X4*X6       CLEAR OUTSTANDING OUTPUT BLOCK

Seq #  *Modification Id* Act 
----------------------------+
02818  M02S02454.ns2337  ---|          SA6    A2+

Seq #  *Modification Id* Act 
----------------------------+
02819  M02S02455.ns2337  ---| BRK1     SX6    PBRK        TERMINAL BREAK

Seq #  *Modification Id* Act 
----------------------------+
02820  M02S02456.ns2337  ---|          EQ     ATK         SCHEDULE TASK
02821  M01S02457.comknwc +++| CBK      SPACE  4,15
02822  M01S02458.comknwc +++|**        CBK - PROCESS CONNECTION BROKEN. (CON/CB)
02823  M01S02459.comknwc +++|*
02824  M01S02460.comknwc +++|*              1.  IF QUEUED SUPERVISORY MESSAGE GO TO STEP 4.

Seq #  *Modification Id* Act 
----------------------------+
02825  M02S02461.knwc18  ---|*              2.  CLEAR TERMINAL LOGIN FIELD IN TST.  SET TERMINAL

Seq #  *Modification Id* Act 
----------------------------+
02826  M02S02462.knwc18  ---|*                  RECOVERY FIELD IN TST.

Seq #  *Modification Id* Act 
----------------------------+
02827  M02S02463.knwc18  ---|*                  SET POSTPONE FLAG IN *TST* IF THERE

Seq #  *Modification Id* Act 
----------------------------+
02828  M02S02464.knwc18  ---|*                  IS A RECOVERABLE TRANSACTION RUNNING.

Seq #  *Modification Id* Act 
----------------------------+
02829  M02S02465.knwc18  ---|*              3.  SEND CONNECTION END SUPERVISORY MESSAGE TO NAM.

Seq #  *Modification Id* Act 
----------------------------+
02830  M02S02466.knwc18  ---|*              4.  SET REASON CODE FOR CONNECTION BROKEN.

Seq #  *Modification Id* Act 
----------------------------+
02831  M02S02467.knwc18  ---|*              5.  GO TO SCHEDULE TASK *ATK*.
02832  M01S00001.knwc18  +++|*              1.  IF QUEUED SUPERVISORY MESSAGE GO TO STEP 9.
02833  M01S00002.knwc18  +++|*              2.  CLEAR TERMINAL LOGIN FIELD IN TST.
02834  M01S00003.knwc18  +++|*              3.  CLEAR CONNECTION REQUEST FIELD IN TST.
02835  M01S00004.knwc18  +++|*              4.  CLEAR ACTIVE USER FIELD IN TST.
02836  M01S00005.knwc18  +++|*              5.  IF TERMINAL IS NOT LOGGED IN GO TO STEP 10.
02837  M01S00006.knwc18  +++|*              6.  SET USER RECOVERY FIELD IN TST.
02838  M01S00007.knwc18  +++|*              7.  IF A RECOVERABLE TRANSACTION IS RUNNING, SET THE
02839  M01S00008.knwc18  +++|*                  AUTOMATIC RECOVERY AND CONNECTION POSTPONE FIELDS.
02840  M01S00009.knwc18  +++|*              8.  ISSUE CON/END SUPERVISORY MESSAGE.
02841  M01S00010.knwc18  +++|*              9.  SET REASON CODE FOR CONNECTION BROKEN, GO TO *ATK*.
02842  M01S00011.knwc18  +++|*             10.  IF CON/REQ IS NOT SET GO TO *SMP1*.
02843  M01S00012.knwc18  +++|*             11.  ISSUE CON/END SUPERVISORY MESSAGE, GO TO *SMP1*.
02844  M01S02468.comknwc +++|*
02845  M01S02469.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
02846  M01S02470.comknwc +++|*                       0 OTHERWISE.
02847  M01S02471.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
02848  M01S02472.comknwc +++|*                (X1) = APPLICATION CONNECTION NUMBER.
02849  M01S02473.comknwc +++|*
02850  M01S02474.comknwc +++|*         EXIT   TO *ATK*.
02851  M01S02475.comknwc +++|*                (X6) = MESSAGE PRIORITY AND REASON CODE.
02852  M01S02476.comknwc +++|*
02853  M01S02477.comknwc +++|*         USES   A - 3, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
02854  M02S02478.ns22000 ---|*                X - 0, 3, 5, 6, 7.
02855  M01S00050.ns22000 +++|*                X - 0, 3, 4, 5, 6, 7.
02856  M01S02479.comknwc +++|*
02857  M01S02480.comknwc +++|*         CALLS  NPT.
02858  M01S02481.comknwc +++|
02859  M01S02482.comknwc +++|
02860  M01S02483.comknwc +++| CBK      NZ     B6,CBK2     IF QUEUED SUPERVISORY MESSAGE
02861  M01S02484.comknwc +++|          SA3    X2          TST ENTRY
02862  M01S02485.comknwc +++|          LX3    59-TSLIS

Seq #  *Modification Id* Act 
----------------------------+
02863  M02S02486.knwc18  ---|          PL     X3,SMP1     IF TERMINAL NOT LOGGED IN
02864  M01S00013.knwc18  +++|          BX4    X3          SAVE CASE OF TERMINAL NOT LOGGED IN
02865  M01S02487.comknwc +++|          SA5    SMCE        CONNECTION END SUPERVISORY MESSAGE
02866  M01S02488.comknwc +++|          MX0    1
02867  M01S02489.comknwc +++|          LX1    AHACS-AHACN+1
02868  M01S02490.comknwc +++|          LX3    59-59+TSLIS-59
02869  M01S02491.comknwc +++|          LX0    TSLIS-59
02870  M01S02492.comknwc +++|          BX6    X5+X1       ADD ACN
02871  M01S02493.comknwc +++|          SX5    B1
02872  M01S02494.comknwc +++|          BX7    -X0*X3      CLEAR LOGIN FIELD

Seq #  *Modification Id* Act 
----------------------------+
02873  M02S02495.knwc18  ---|          LX0    TSAUS-59-TSLIS+59
02874  M01S00014.knwc18  +++|          LX0    TSCRS-59-TSLIS+59
02875  M01S00015.knwc18  +++|          BX7    -X0*X7      CLEAR *CON/REQ* BIT
02876  M01S00016.knwc18  +++|          LX0    TSAUS-59-TSCRS+59
02877  M01S02496.comknwc +++|          BX7    -X0*X7      CLEAR ACTIVE USER FIELD
02878  M01S00017.knwc18  +++|          PL     X4,CBK3     IF TERMINAL NOT LOGGED IN
02879  M01S02497.comknwc +++|          LX5    TSRBS-TSRBN+1
02880  M01S02498.comknwc +++|          BX7    X7+X5       SET USER RECOVERY FIELD
02881  M01S02499.comknwc +++|          LX5    TSARS-TSRBS

Seq #  *Modification Id* Act 
----------------------------+
02882  M02S02500.knwc18  ---|          SA6    OTSB
02883  M01S02501.comknwc +++|          LX3    59-TSNRS    CHECK RECOVERABLE TRANSACTION
02884  M01S00018.knwc18  +++|          SA6    OTSB
02885  M01S02502.comknwc +++|          SA7    A3+         *TST* ENTRY
02886  M01S02503.comknwc +++|          PL     X3,CBK1     IF NON-RECOVERABLE TRANSACTION
02887  M01S02504.comknwc +++|          BX7    X7+X5       ADD AUTOMATIC RECOVERY FLAG
02888  M01S02505.comknwc +++|          SA7    A3          TST ENTRY
02889  M01S02506.comknwc +++|          LX5    TSCPS-TSARS
02890  M01S02507.comknwc +++|          SA3    A3+B1       WORD 2 OF *TST* ENTRY
02891  M01S02508.comknwc +++|          BX7    X3+X5       ADD CONNECTION POSTPONE FLAG
02892  M01S02509.comknwc +++|          SA7    A3

Seq #  *Modification Id* Act 
----------------------------+
02893  M02S02510.ns22000 ---| CBK1     RJ     NPT         SEND CONNECTION END SUPERVISORY MESSAGE
02894  M01S00051.ns22000 +++| CBK1     SX4    B1
02895  M01S00052.ns22000 +++|          RJ     NPT
02896  M01S02511.comknwc +++| CBK2     SX6    PCBK        REASON CODE
02897  M01S02512.comknwc +++|          EQ     ATK         SCHEDULE TASK
02898  M01S00019.knwc18  +++|
02899  M01S00020.knwc18  +++| CBK3     SA7    A3          REPLACE TST ENTRY
02900  M01S00021.knwc18  +++|          LX4    59-TSCRS+TSLIS-59  TEST IF CON/REQ IS SET
02901  M01S00022.knwc18  +++|          SB3    B0+
02902  M01S00023.knwc18  +++|          PL     X4,SMP1     IF CON/REQ NOT SET
02903  M01S00024.knwc18  +++|          SA6    OTSB        ISSUE CON/END
02904  M01S00025.knwc18  +++|          RJ     NPT
02905  M01S00026.knwc18  +++|          EQ     SMP1        CONTINUE PROCESSING
02906  M01S02513.comknwc +++| CEN      SPACE  4,15
02907  M01S02514.comknwc +++|**        CEN - PROCESS CONNECTION END. (CON/END)
02908  M01S02515.comknwc +++|*
02909  M01S02516.comknwc +++|*              1. IF NO COMMUNICATION BLOCK ASSIGNED TO THIS TERMINAL,
02910  M01S02517.comknwc +++|*                 GO TO STEP 3.
02911  M01S02518.comknwc +++|*              2. CLEAR TEMPOFF FLAG, RELEASE COMMUNICATION BLOCK AND
02912  M01S02519.comknwc +++|*                 RESET COMMUNICATION BLOCK INDEX IN *NCT*.
02913  M01S02520.comknwc +++|*              3. IF TASK IS IN ROLLOUT TABLE IN INPUT WANTED
02914  M01S02521.comknwc +++|*                 STATE, CLEAR INPUT WANTED STATUS AND SET TASK
02915  M01S02522.comknwc +++|*                 FOR ROLLIN.
02916  M01S02523.comknwc +++|*              4. REPLACE SUPERVISORY MESSAGE IN *NCT* AND GO TO
02917  M01S02524.comknwc +++|*                 *SMP1*.
02918  M01S02525.comknwc +++|*
02919  M01S02526.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
02920  M01S02527.comknwc +++|*                       0 OTHERWISE.
02921  M01S02528.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
02922  M01S02529.comknwc +++|*
02923  M01S02530.comknwc +++|*         EXIT   TO *SMP1*.
02924  M01S02531.comknwc +++|*                (B7) RESTORED.
02925  M01S02532.comknwc +++|*
02926  M01S02533.comknwc +++|*         USES   X - ALL.
02927  M01S02534.comknwc +++|*                A - 1, 2, 4, 5, 7.
02928  M01S02535.comknwc +++|*                B - 3, 5, 7.
02929  M01S02536.comknwc +++|*
02930  M01S02537.comknwc +++|*         CALLS RCL, SMR, SRO.
02931  M01S02538.comknwc +++|
02932  M01S02539.comknwc +++|
02933  M01S02540.comknwc +++| CEN      MX0    -TNCBN
02934  M01S02541.comknwc +++|          BX7    X2          SAVE TST ADDRESS
02935  M01S02542.comknwc +++|          SA7    CENA
02936  M01S02543.comknwc +++|          LX2    TNCBN-TNCBS-1 RIGHT JUSTIFY COMMUNICATION BLOCK INDEX
02937  M01S02544.comknwc +++|          SX1    CMBL        LENGTH OF COMMUNICATION BLOCK
02938  M01S02545.comknwc +++|          BX7    X0*X2       CLEAR INDEX
02939  M01S02546.comknwc +++|          BX2    -X0*X2      MASK COMMUNICATION BLOCK INDEX
02940  M01S02547.comknwc +++|          ZR     X2,CEN1     IF NO COMMUNICATION BLOCK ASSIGNED
02941  M01S02548.comknwc +++|          SX2    X2-1
02942  M01S02549.comknwc +++|          MX0    -1
02943  M01S02550.comknwc +++|          LX7    TNCBS-TNCBN+1
02944  M01S02551.comknwc +++|          IX1    X1*X2
02945  M01S02552.comknwc +++|          LX0    TNTFS-TNTFN+1
02946  M01S02553.comknwc +++|          TX2    X1,VCBSA    COMMUNICATION BLOCK ADDRESS
02947  M01S02554.comknwc +++|          BX7    X0*X7       CLEAR TEMPOFF FLAG
02948  M01S02555.comknwc +++|          SA7    A2
02949  M01S02556.comknwc +++|          RJ     RLC         RELEASE COMMUNICATION BLOCK
02950  M01S02557.comknwc +++| CEN1     SA2    CENA        TST ADDRESS
02951  M01S02558.comknwc +++|          SX4    B7          SAVE (B7)
02952  M01S02559.comknwc +++|          SA5    X2          TST ENTRY
02953  M01S02560.comknwc +++|          TX1    A5,-VTST
02954  M01S02561.comknwc +++|          SX2    TSTLLE
02955  M01S02562.comknwc +++|          IX0    X1/X2
02956  M01S02563.comknwc +++|          SB7    X4
02957  M01S02564.comknwc +++|          MX6    12
02958  M01S02565.comknwc +++|          SA4    A5+TSIWW    INPUT WANTED STATUS
02959  M01S02566.comknwc +++|          LX4    59-TSIWS
02960  M01S02567.comknwc +++|          PL     X4,CEN3     IF NOT IN INPUT WANTED STATE
02961  M01S02568.comknwc +++|          LX6    29-59
02962  M01S02569.comknwc +++|          BX5    X0          TERMINAL ORDINAL
02963  M01S02570.comknwc +++|          SB5    B0
02964  M01S02571.comknwc +++|          LX5    18
02965  M01S02572.comknwc +++| CEN2     RJ     SRO         SEARCH ROLLOUT TABLE
02966  M01S02573.comknwc +++|          ZR     B5,CEN3     IF END OF TABLE
02967  M01S02574.comknwc +++|          SA2    B5+         ADDRESS OF ROLLOUT TABLE ENTRY
02968  M01S02575.comknwc +++|          BX3    X6*X2
02969  M01S02576.comknwc +++|          LX2    59-RTBWI
02970  M01S02577.comknwc +++|          PL     X2,CEN2     IF NOT A WAIT FOR INPUT ROLLOUT ENTRY
02971  M01S02578.comknwc +++|          BX3    X3-X5
02972  M01S02579.comknwc +++|          LX2    59-59-59+58
02973  M01S02580.comknwc +++|          NZ     X3,CEN2     IF NO MATCH ON TERMINAL ORDINAL
02974  M01S02581.comknwc +++|          MX7    60-RTTLN
02975  M01S02582.comknwc +++|          LX7    RTTLS-RTTLN+1
02976  M01S02583.comknwc +++|          BX7    X7*X2       CLEAR ROLLIN TIME TO FORCE A ROLLIN
02977  M01S02584.comknwc +++|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
02978  M02S02585.knwc10  ---| CEN3     SX6    770000B
02979  M01S00001.knwc10  +++| CEN3     SX6    370000B     FORCE DELETION OF SUPERVISORY MESSAGE
02980  M01S02586.comknwc +++|          RJ     SMR         REPLACE SUPERVISORY MESSAGE
02981  M01S02587.comknwc +++|          SB3    B0+
02982  M01S02588.comknwc +++|          EQ     SMP1        GET NEXT SUPERVISORY MESSAGE
02983  M01S02589.comknwc +++|
02984  M01S02590.comknwc +++| CENA     BSS    1           TST ADDRESS
02985  M01S02591.comknwc +++| CHA      SPACE  4,10
02986  M01S02592.comknwc +++|**        CHA - PROCESS  TERMINAL CHARACTERISTIC. (TCH/TCHAR)
02987  M01S02593.comknwc +++|*
02988  M01S02594.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
02989  M01S02595.comknwc +++|*                       0 OTHERWISE.
02990  M01S02596.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
02991  M01S02597.comknwc +++|*
02992  M01S02598.comknwc +++|*         EXIT   TO *ATK*.
02993  M01S02599.comknwc +++|*                (X6) = MESSAGE PRIORITY AND REASON CODE.
02994  M01S02600.comknwc +++|*
02995  M01S02601.comknwc +++|*         USES   X - 6.
02996  M01S02602.comknwc +++|
02997  M01S02603.comknwc +++|
02998  M01S02604.comknwc +++| CHA      SX6    PTCH
02999  M01S02605.comknwc +++|          EQ     ATK         SCHEDULE TASK
03000  M01S02606.comknwc +++| CRE      SPACE  4,20
03001  M01S02607.comknwc +++|**        CRE - PROCESS LOGICAL CONNECTION. (CON/REQ)
03002  M01S02608.comknwc +++|*

Seq #  *Modification Id* Act 
----------------------------+
03003  M02S02609.v23l617 ---|*              1.  SEARCH TST TO CHECK FOR LEGAL USER.  IF ILLEGAL
03004  M01S00011.v23l617 +++|*              1.  SEARCH TST TO CHECK FOR LEGAL USER.  IF INCORRECT
03005  M01S02610.comknwc +++|*                  USER, SEND A REJECT CONNECTION SUPERVISORY MESSAGE
03006  M01S02611.comknwc +++|*                  TO NAM AND GO TO *SMP1*.  LEGAL USERS ARE GIVEN IN
03007  M01S02612.comknwc +++|*                    THE *TAF* NETWORK FILE.
03008  M01S02613.comknwc +++|*              2.  PUT SUPERVISORY MESSAGE IN NCT AND SAVE TERMINAL
03009  M01S02614.comknwc +++|*                  DEVICE DESCRIPTION THAT WILL BE LATER PASSED TO
03010  M01S02615.comknwc +++|*                  *ITASK* UPON CONNECTION INITIALIZED SUPERVISORY
03011  M01S02616.comknwc +++|*                  MESSAGE.
03012  M01S02617.comknwc +++|*              3.  SEND A CONNECTION ACCEPTED SUPERVISORY MESSAGE TO
03013  M01S02618.comknwc +++|*                  NAM.  GO TO *SMP1*.
03014  M01S02619.comknwc +++|*
03015  M01S02620.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03016  M01S02621.comknwc +++|*                       0 OTHERWISE.
03017  M01S02622.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03018  M01S02623.comknwc +++|*                (X4) = SUPERVISORY MESSAGE.
03019  M01S02624.comknwc +++|*
03020  M01S02625.comknwc +++|*         EXIT   TO *SMP1*.
03021  M01S02626.comknwc +++|*
03022  M01S02627.comknwc +++|*         USES   A - 3, 4, 5, 6, 7.
03023  M01S02628.comknwc +++|*                B - 3, 6.
03024  M01S02629.comknwc +++|*                X - ALL.
03025  M01S02630.comknwc +++|*
03026  M01S02631.comknwc +++|*         CALLS  NPT, STST.
03027  M01S02632.comknwc +++|
03028  M01S02633.comknwc +++|
03029  M01S02634.comknwc +++| CRE      BX2    X4          SAVE SUPERVISORY MESSAGE IN X2
03030  M01S02635.comknwc +++|          MX0    -6
03031  M01S02636.comknwc +++|          SA4    INSB+5      USER NAME
03032  M01S02637.comknwc +++|
03033  M01S02638.comknwc +++|*         ZERO FILL USER NAME.
03034  M01S02639.comknwc +++|
03035  M01S02640.comknwc +++|          SB6    6
03036  M01S02641.comknwc +++|          SX7    1R
03037  M01S02642.comknwc +++|          LX4    -18
03038  M01S02643.comknwc +++|          SB3    18
03039  M01S02644.comknwc +++| CRE1     BX3    -X0*X4      MASK RIGHT MOST CHARACTER
03040  M01S02645.comknwc +++|          IX3    X3-X7
03041  M01S02646.comknwc +++|          NZ     X3,CRE2     IF NOT BLANK
03042  M01S02647.comknwc +++|          SB3    B3+B6       INCREASE COUNTER
03043  M01S02648.comknwc +++|          AX4    X4,B6       NEXT CHARACTER
03044  M01S02649.comknwc +++|          EQ     CRE1        EXAMINE NEXT CHARACTER
03045  M01S02650.comknwc +++|
03046  M01S02651.comknwc +++| CRE2     LX4    X4,B3       LEFT JUSTIFY USER NAME
03047  M01S02652.comknwc +++|          RJ     STST        SEARCH TERMINAL STATUS TABLE
03048  M01S02653.comknwc +++|          ZR     X3,CRE4     IF USER NAME NOT FOUND
03049  M01S02654.comknwc +++|          SA5    A3-B1       TST ENTRY
03050  M01S02655.comknwc +++|          MX0    -AHBLN      OUTPUT BLOCK LIMIT
03051  M01S02656.comknwc +++|          LX5    59-TSCRS
03052  M01S02657.comknwc +++|          MX3    1
03053  M01S02658.comknwc +++|          NG     X5,CRE4     IF ALREADY CON/REQ
03054  M01S02659.comknwc +++|          LX5    59-TSLIS-59+TSCRS
03055  M01S02660.comknwc +++|          NG     X5,CRE4     IF ALREADY LOGIN
03056  M01S02661.comknwc +++|          LX5    59-TSAUS-59+TSLIS
03057  M01S02662.comknwc +++|          ERRNZ  TSAUW-TSLIW IF ACTIVE AND LOGIN NOT IN SAME WORD
03058  M01S02663.comknwc +++|          NG     X5,CRE4     IF USER ACTIVE
03059  M01S02664.comknwc +++|          BX5    X3+X5       SET USER ACTIVE
03060  M01S02665.comknwc +++|          SX7    A5          ADDRESS OF TST ENTRY
03061  M01S02666.comknwc +++|          LX2    AHBLN-AHBLS-1 RIGHT JUSTIFY BLOCK LIMIT
03062  M01S02667.comknwc +++|          BX6    -X0*X2      MASK BLOCK LIMIT
03063  M01S02668.comknwc +++|          LX1    TSCNS-TSCNN+1
03064  M01S02669.comknwc +++|          LX6    TNBLS-TNBLN+1
03065  M01S02670.comknwc +++|          BX7    X6+X7       OUTPUT BLOCK LIMIT + TST ENTRY
03066  M01S02671.comknwc +++|          LX5    TSAUS-59
03067  M01S02672.comknwc +++|          MX0    TSCNN
03068  M01S02673.comknwc +++|          LX0    TSCNS-59
03069  M01S00043.knwc25  +++|          SX4    4-1         APPLICATION CHARACTER TYPE - 1
03070  M01S00044.knwc25  +++|          LX4    TNCTS-TNCTN+1
03071  M01S00045.knwc25  +++|          BX7    X4+X7
03072  M01S02674.comknwc +++|          SA7    A2          NCT ENTRY
03073  M01S02675.comknwc +++|          LX2    AHDTN-AHDTS-1-AHBLN+AHBLS+1  RIGHT JUSTIFY DEVICE TYPE
03074  M01S02676.comknwc +++|          SA4    INSB+AHPWW
03075  M01S02677.comknwc +++|          BX7    -X0*X5      CLEAR OLD CONNECTION NUMBER
03076  M01S02678.comknwc +++|          MX0    -AHHWN-AHDTN
03077  M01S02679.comknwc +++|          BX7    X7+X1       ADD ACN INTO TST
03078  M01S02680.comknwc +++|          LX3    TSCRS-59
03079  M01S02681.comknwc +++|          BX7    X3+X7       ADD CON/REQ FLAG
03080  M01S02682.comknwc +++|          SA7    A5          RESET TST ENTRY
03081  M01S02683.comknwc +++|          SA3    SMAC        CONNECTION ACCEPT SUPERVISORY MESSAGE
03082  M01S02684.comknwc +++|          BX7    -X0*X2      MASK HW + DT
03083  M01S02685.comknwc +++|          LX1    AHACS-AHACN+1+TSCNN-TSCNS-1
03084  M01S02686.comknwc +++|          BX6    X3+X1       ADD ACN
03085  M01S00001.knwc5   +++|          MX0    -AHBSN
03086  M01S02687.comknwc +++|          SA3    INSB+AHBSW  WORD TWO OF MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03087  M02S02688.knwc5   ---|          MX0    -AHBSN

Seq #  *Modification Id* Act 
----------------------------+
03088  M02S02689.knwc5   ---|          LX4    59-AHPWS
03089  M01S02690.comknwc +++|          LX3    AHBSN-AHBSS-1 RIGHT JUSTIFY BLOCK SIZE

Seq #  *Modification Id* Act 
----------------------------+
03090  M02S02691.knwc5   ---|          SA6    OTSB
03091  M01S02692.comknwc +++|          BX3    -X0*X3      MASK BLOCK SIZE
03092  M01S00002.knwc5   +++|          SA6    OTSB
03093  M01S02693.comknwc +++|          LX7    16
03094  M01S02694.comknwc +++|          LX3    25

Seq #  *Modification Id* Act 
----------------------------+
03095  M02S02695.knwc5   ---|          AX4    59-AHPWS    GET PAGE WIDTH AND LENGTH
03096  M01S00003.knwc5   +++|          MX0    -AHPWN-AHPLN  MASK PAGE WIDTH AND PAGE LENGTH
03097  M01S00004.knwc5   +++|          BX4    -X0*X4
03098  M01S00005.knwc5   +++|          ERRNZ  AHPWS-AHPWN-AHPLS  FIELDS NOT ADJACENT
03099  M01S00006.knwc5   +++|          ERRNZ  AHPWW-AHPLW FIELDS NOT IN SAME WORD
03100  M01S02696.comknwc +++|          BX7    X3+X7       BLOCK SIZE + HARD WIRED + DEVICE TYPE
03101  M01S02697.comknwc +++|          BX6    X6-X6
03102  M01S02698.comknwc +++|          BX7    X7+X4       BSZ + HW + DT + PW + PL
03103  M01S02699.comknwc +++|          SA6    A2+B1       CLEAR WORD TWO OF NCT ENTRY
03104  M01S02700.comknwc +++|          SA7    A2+TNAHW    SAVE TERMINAL DESCRIPTION IN NCT
03105  M01S00053.ns22000 +++|          SX4    B1
03106  M01S02701.comknwc +++|          RJ     NPT         SEND CONNECTION ACCEPTED
03107  M01S02702.comknwc +++|          SB3    B0+
03108  M01S02703.comknwc +++|          EQ     SMP1        GET NEXT SUPERVISORY MESSAGE
03109  M01S02704.comknwc +++|
03110  M01S02705.comknwc +++|*         PROCESS CONNECT REJECT.
03111  M01S02706.comknwc +++|
03112  M01S02707.comknwc +++| CRE4     MX0    AHACN
03113  M01S02708.comknwc +++|          SA2    INSB        INPUT SUPERVISORY MESSAGE
03114  M01S02709.comknwc +++|          LX0    AHACS-59
03115  M01S02710.comknwc +++|          SA5    SMCR
03116  M01S02711.comknwc +++|          BX2    X0*X2       ACN FROM INPUT MESSAGE
03117  M01S02712.comknwc +++|          BX7    X2+X5       PUT ACN IN OUTPUT MESSAGE
03118  M01S02713.comknwc +++|          SA7    OTSB
03119  M01S00054.ns22000 +++|          SX4    B1+
03120  M01S02714.comknwc +++|          RJ     NPT         CONNECTION REJECT
03121  M01S02715.comknwc +++|          SB3    B0+
03122  M01S02716.comknwc +++|          EQ     SMP1        GET NEXT SUPERVISORY MESSAGE
03123  M01S02717.comknwc +++| INA      SPACE  4,15
03124  M01S02718.comknwc +++|**        INA - PROCESS TERMINAL INACTIVE. (FC/INACT)
03125  M01S02719.comknwc +++|*
03126  M01S02720.comknwc +++|*                1.  IF COMMUNICATION BLOCK ASSIGNED TO THE TERMINAL,
03127  M01S02721.comknwc +++|*                    RELEASE IT OTHERWISE CALL ROUTINE *SCB* TO FIND
03128  M01S02722.comknwc +++|*                    COMMUNICATION BLOCK IN USE.
03129  M01S02723.comknwc +++|*              2.  IF COMMUNICATION BLOCK TERMINAL EQUALS TERMINAL
03130  M01S02724.comknwc +++|*                  NAME OF CONNECTION PASS SEQUENCE NUMBER OF
03131  M01S02725.comknwc +++|*                  TRANSACTION TO *ITASK*.
03132  M01S02726.comknwc +++|*              3.  SET REASON CODE TO TERMINAL INACTIVE.
03133  M01S02727.comknwc +++|*              4.  GO TO SCHEDULE TASK *ATK*.
03134  M01S02728.comknwc +++|*
03135  M01S02729.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03136  M01S02730.comknwc +++|*                       0 OTHERWISE.
03137  M01S02731.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03138  M01S02732.comknwc +++|*
03139  M01S02733.comknwc +++|*         EXIT   TO *ATK*.
03140  M01S02734.comknwc +++|*                (X6) = MESSAGE PRIORITY AND REASON CODE.
03141  M01S02735.comknwc +++|*
03142  M01S02736.comknwc +++|*         USES   A - 3, 6, 7.
03143  M01S02737.comknwc +++|*                B - 5.
03144  M01S02738.comknwc +++|*                X - 0, 3, 6, 7.
03145  M01S02739.comknwc +++|*
03146  M01S02740.comknwc +++|*         CALLS  RLC, SCB.
03147  M01S02741.comknwc +++|
03148  M01S02742.comknwc +++|
03149  M01S02743.comknwc +++| INA      BX7    X2          SAVE TST FWA
03150  M01S02744.comknwc +++|          MX0    -TNCBN      MASK COMMUNICATION BLOCK INDEX
03151  M01S02745.comknwc +++|          SX3    CMBL        LENGTH OF COMMUNICATION BLOCK
03152  M01S02746.comknwc +++|          LX2    TNCBN-TNCBS-1
03153  M01S02747.comknwc +++|          BX6    -X0*X2      GET COMMUNICATION BLOCK INDEX
03154  M01S02748.comknwc +++|          ZR     X6,INA1     IF NO COMMUNICATION BLOCK ASSIGNED
03155  M01S02749.comknwc +++|          BX7    X0*X2       CLEAR COMMUNICATION BLOCK INDEX
03156  M01S02750.comknwc +++|          SX0    X6-1
03157  M01S02751.comknwc +++|          IX3    X0*X3
03158  M01S02752.comknwc +++|          TX2    X3,VCBSA    COMMUNICATION BLOCK ADDRESS
03159  M01S02753.comknwc +++|          LX7    TNCBS-TNCBN+1
03160  M01S02754.comknwc +++|          SA7    A2          RESET FIRST WORD OF NCT ENTRY
03161  M01S02755.comknwc +++|          RJ     RLC         RELEASE COMMUNICATION BLOCKS
03162  M01S00005.knwc14  +++|          SA7    INAA        SAVE TST FWA
03163  M01S00006.knwc14  +++|          SA1    A2+2        THIRD WORD OF NCT
03164  M01S00007.knwc14  +++|          MX0    -AHADN      MASK ACN
03165  M01S00008.knwc14  +++|          LX1    AHADN-AHADS-1  RIGHT JUSTIFY ACN
03166  M01S00009.knwc14  +++|          BX6    -X0*X1
03167  M01S00010.knwc14  +++|          SA6    ACNA
03168  M01S00011.knwc14  +++|          SA2    ALNO        REMOVE ACN FROM PRIORITY LIST
03169  M01S00001.knwc22  +++|          BX7    X2
03170  M01S00012.knwc14  +++|          RJ     SAL         SWITCH APPLICATION LIST
03171  M01S00013.knwc14  +++|          SA1    NITG        UPDATE PRIORITY COUNTER
03172  M01S00014.knwc14  +++|          SX7    X1-1
03173  M01S00015.knwc14  +++|          SA7    A1
03174  M01S00016.knwc14  +++|          SA1    INAA
03175  M01S00017.knwc14  +++|          BX7    X1
03176  M01S02756.comknwc +++| INA1     SB5    B0
03177  M01S02757.comknwc +++|          SX6    X7
03178  M01S02758.comknwc +++|          RJ     SCB         SEARCH RESERVED COMMUNICATION BLOCK
03179  M01S02759.comknwc +++|          BX7    X7-X7
03180  M01S02760.comknwc +++|          SX6    B1+B1       MESSAGE LENGTH
03181  M01S02761.comknwc +++|          SA3    B5+CMBHL    COMMUNICATION BLOCK USER HEADER
03182  M01S02762.comknwc +++|          ZR     B5,INA2     IF NO MORE COMMUNICATION BLOCK TO SEARCH
03183  M01S02763.comknwc +++|          MX0    -24
03184  M01S02764.comknwc +++|          BX7    -X0*X3      MASK SEQUENCE NUMBER
03185  M01S02765.comknwc +++| INA2     SA6    SMPA
03186  M01S02766.comknwc +++|          SA7    INSJ+1
03187  M01S02767.comknwc +++|          SX6    PINA
03188  M01S02768.comknwc +++|          EQ     ATK         SCHEDULE TASK
03189  M01S00018.knwc14  +++|
03190  M01S00019.knwc14  +++| INAA     BSSZ   1           TST FWA
03191  M01S02769.comknwc +++| LGL      SPACE 4,30
03192  M01S02770.comknwc +++|**        LGL - PROCESS LOGICAL ERROR. (ERR/LGL)
03193  M01S02771.comknwc +++|*
03194  M01S02772.comknwc +++|*             LOGICAL ERRORS HAVE THE FOLLOWING CODES:

Seq #  *Modification Id* Act 
----------------------------+
03195  M02S02773.v23l617 ---|*              1 = ILLEGAL ACT VALUE

Seq #  *Modification Id* Act 
----------------------------+
03196  M02S02774.v23l617 ---|*              2 = ILLEGAL TLC VALUE

Seq #  *Modification Id* Act 
----------------------------+
03197  M02S02775.v23l617 ---|*              3 = ILLEGAL ABT VALUE
03198  M01S00012.v23l617 +++|*              1 = INCORRECT ACT VALUE
03199  M01S00013.v23l617 +++|*              2 = INCORRECT TLC VALUE
03200  M01S00014.v23l617 +++|*              3 = INCORRECT ABT VALUE
03201  M01S02776.comknwc +++|*              4 = INVALID ACN VALUE
03202  M01S02777.comknwc +++|*              5 = ABL EXCEEDED
03203  M01S02778.comknwc +++|*              6 = LAST ERR/LGL MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03204  M02S02779.v23l617 ---|*              7 = ILLEGAL OR ILLOGICAL SUPERVISORY MESSAGE
03205  M01S00015.v23l617 +++|*              7 = INCORRECT OR ILLOGICAL SUPERVISORY MESSAGE
03206  M01S02780.comknwc +++|*
03207  M01S02781.comknwc +++|*              1.  IF QUEUED SUPERVISORY MESSAGE, GO TO
03208  M01S02782.comknwc +++|*                  SCHEDULE TASK *ATK*.
03209  M01S02783.comknwc +++|*              2.  IF ABH IS PRESENT, SET ACN EQUAL TO ACN IN ABH;
03210  M01S02784.comknwc +++|*                  ELSE SET ACN TO ZERO.
03211  M01S02785.comknwc +++|*              3.  FOR NAM REASON CODES 1, 2, 3, OR 7 GO TO
03212  M01S02786.comknwc +++|*                  SCHEDULE TASK *ATK*.  TAF OR APPLICATION TASK (MOST
03213  M01S02787.comknwc +++|*                  LIKELY APPLICATION) CAUSED THESE ERRORS.
03214  M01S02788.comknwc +++|*              4.  FOR NAM REASON CODES 4, 5, OR 6 NOTE A SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
03215  M02S02789.knwc21  ---|*                  ERROR ON DAYFILE AND DO AS IN  NETWORK

Seq #  *Modification Id* Act 
----------------------------+
03216  M02S02790.knwc21  ---|*                  SHUTDOWN *SHU* FOR IMMEDIATE SHUTDOWN.  TAF CODE

Seq #  *Modification Id* Act 
----------------------------+
03217  M02S02791.knwc21  ---|*                  CAUSED THESE ERRORS.
03218  M01S00002.knwc21  +++|*                  ERROR ON DAYFILE AND ABORT TAF.  TAF CODE CAUSED
03219  M01S00003.knwc21  +++|*                  THESE ERRORS.
03220  M01S02792.comknwc +++|*
03221  M01S02793.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03222  M01S02794.comknwc +++|*                       0 OTHERWISE.
03223  M01S02795.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03224  M01S02796.comknwc +++|*                (X4) = SUPERVISORY MESSAGE.
03225  M01S02797.comknwc +++|*
03226  M01S02798.comknwc +++|*         EXIT   TO *ATK* IF TASK ERROR.

Seq #  *Modification Id* Act 
----------------------------+
03227  M02S02799.knwc21  ---|*                TO *SHU* WITH (X4) .EQ. 1 IF TAF ERROR.
03228  M01S00004.knwc21  +++|*                TO *EXIT* IF TAF ERROR.
03229  M01S02800.comknwc +++|*                (X6) = MESSAGE PRIORITY AND REASON CODE.
03230  M01S02801.comknwc +++|*

Seq #  *Modification Id* Act 
----------------------------+
03231  M02S02802.knwc21  ---|*         USES   A - 3, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03232  M02S02803.knwc21  ---|*                B - 4, 5.

Seq #  *Modification Id* Act 
----------------------------+
03233  M02S02804.knwc21  ---|*                X - 0, 3, 5, 6, 7.
03234  M01S00005.knwc21  +++|*         USES   X - ALL.
03235  M01S00006.knwc21  +++|*                A - 1, 2, 3, 6, 7.
03236  M01S00007.knwc21  +++|*                B - 2, 3, 4, 5.
03237  M01S00008.knwc21  +++|*
03238  M01S00009.knwc21  +++|*         CALLS  ATK, COD, EXIT, SNM.
03239  M01S00010.knwc21  +++|*
03240  M01S00011.knwc21  +++|*         MACROS MESSAGE.
03241  M01S02805.comknwc +++|
03242  M01S02806.comknwc +++|
03243  M01S02807.comknwc +++| LGL      SB4    B0
03244  M01S02808.comknwc +++|          NZ     B6,LGL2     IF QUEUED SUPERVISORY MESSAGE
03245  M01S02809.comknwc +++|          MX0    -AHRCN
03246  M01S02810.comknwc +++|          SB5    -3
03247  M01S02811.comknwc +++|          SA3    INSB+1      CAUSE ERROR ABH
03248  M01S02812.comknwc +++|          LX4    AHRCN-AHRCS-1 RIGHT JUSTIFY REASON CODE
03249  M01S02813.comknwc +++|          BX5    -X0*X4      MASK REASON CODE
03250  M01S02814.comknwc +++|          LX3    AHADN-AHADS-1 RIGHT JUSTIFY ACN
03251  M01S02815.comknwc +++|          MX0    -AHADN
03252  M01S02816.comknwc +++|          LX4    AHACN
03253  M01S02817.comknwc +++|          BX1    -X0*X3      MASK ACN
03254  M01S02818.comknwc +++|          SA3    INSH        SUPERVISORY MESSAGE HEADER
03255  M01S02819.comknwc +++|          BX6    X4+X1       ADD ACN
03256  M01S02820.comknwc +++|          SB4    X5+B5       REASON CODE - 3
03257  M01S02821.comknwc +++|          LX6    AHACS-AHACN+1
03258  M01S02822.comknwc +++|          BX7    -X0*X3      MASK TLC
03259  M01S02823.comknwc +++|          SA6    A4+
03260  M01S02824.comknwc +++|          SA7    SMPA        SAVE MESSAGE LENGTH IN WORD
03261  M01S02825.comknwc +++|          SX2    TNCTL
03262  M01S02826.comknwc +++|          GT     B4,LGL3     IF SYSTEM ERROR
03263  M01S02827.comknwc +++|

Seq #  *Modification Id* Act 
----------------------------+
03264  M02S02828.v23l617 ---|*         ALL OTHER LOGICAL ERRORS ARE CAUSED BY TASK WITH ILLEGAL
03265  M01S00016.v23l617 +++|*         ALL OTHER LOGICAL ERRORS ARE CAUSED BY TASK WITH INCORRECT
03266  M01S02829.comknwc +++|*         APPLICATION BLOCK HEADER.
03267  M01S02830.comknwc +++|
03268  M01S02831.comknwc +++|          IX5    X2*X1       ACN BIAS
03269  M01S02832.comknwc +++|          SX7    A4          SUPERVISORY ADDRESS
03270  M01S02833.comknwc +++|          LX1    18-0
03271  M01S02834.comknwc +++|          BX7    X7+X1       ACN + FWA  OF SUPERVISORY MESSAGE
03272  M01S02835.comknwc +++|          TX5    X5,VNCT     NCT ENTRY
03273  M01S02836.comknwc +++|          LX7    18-0
03274  M01S02837.comknwc +++|          SX3    B1
03275  M01S02838.comknwc +++|          SA2    X5
03276  M01S02839.comknwc +++|          MX0    -TNBON
03277  M01S02840.comknwc +++|          LX2    TNBON-TNBOS-1 RIGHT JUSTIFY OUTSTANDING OUTPUT BLOCK
03278  M01S02841.comknwc +++|          BX6    -X0*X2      MASK OUTPUT BLOCK
03279  M01S02842.comknwc +++|          IX6    X6-X3
03280  M01S02843.comknwc +++|          PL     X6,LGL1     IF NO UNDER FLOW
03281  M01S02844.comknwc +++|          BX6    X6-X6
03282  M01S02845.comknwc +++| LGL1     BX2    X0*X2
03283  M01S02846.comknwc +++|          BX7    X7+X5       ACN + FWA OF SM + NCT ENTRY
03284  M01S02847.comknwc +++|          LX3    TNSMS-TNSMN+1
03285  M01S02848.comknwc +++|          BX6    X2+X6
03286  M01S02849.comknwc +++|          LX6    TNBOS-TNBON+1
03287  M01S02850.comknwc +++|          SA7    SMPB
03288  M01S02851.comknwc +++|          BX6    X3+X6       SET SUPERVISORY MESSAGE FLAG
03289  M01S02852.comknwc +++|          SA6    A2+
03290  M01S02853.comknwc +++| LGL2     SX6    PLGR        LOGICAL ERROR REASON CODE
03291  M01S02854.comknwc +++|          LT     B4,B1,ATK   IF TASK LOGICAL ERROR

Seq #  *Modification Id* Act 
----------------------------+
03292  M02S02855.knwc21  ---| LGL3     MESSAGE SMGB       NAM LOGICAL ERROR

Seq #  *Modification Id* Act 
----------------------------+
03293  M02S02856.knwc21  ---|          RJ     EXIT        FORCE TO ABORT
03294  M01S00012.knwc21  +++|
03295  M01S00013.knwc21  +++|*         ISSUE ERROR MESSAGES TO DAYFILE AND PROCESS SHUTDOWN.
03296  M01S00014.knwc21  +++|
03297  M01S00015.knwc21  +++| LGL3     BX1    X5          REASON CODE
03298  M01S00016.knwc21  +++|          RJ     COD         CONVERT OCTAL TO DISPLAY
03299  M01S00017.knwc21  +++|          LX6    -2*6
03300  M01S00018.knwc21  +++|          BX1    X6
03301  M01S00019.knwc21  +++|          SB2    1RX         REPLACEMENT CHARACTER
03302  M01S00020.knwc21  +++|          SB5    -SMGB       FWA OF TEMPLATE
03303  M01S00021.knwc21  +++|          SB3    DAYB        ALTERNATE ASSEMBLY AREA
03304  M01S00022.knwc21  +++|          RJ     SNM         SET NAME IN MESSAGE
03305  M01S00023.knwc21  +++|          MESSAGE  DAYB      * ERR/LGL RECEIVED FROM NAM - RC=XX*
03306  M01S00024.knwc21  +++|          MX0    -AHADN
03307  M01S00025.knwc21  +++|          SA1    INSB+1      RETURNED ABH CAUSING ERROR
03308  M01S00026.knwc21  +++|          LX1    AHADN-AHADS-1
03309  M01S00027.knwc21  +++|          BX1    -X0*X1      ACN
03310  M01S00028.knwc21  +++|          RJ     COD         CONVERT OCTAL TO DISPLAY
03311  M01S00029.knwc21  +++|          LX6    -4*6
03312  M01S00030.knwc21  +++|          BX1    X6
03313  M01S00031.knwc21  +++|          SB2    1R+         REPLACEMENT CHARACTER
03314  M01S00032.knwc21  +++|          SB5    -LGLB       FWA OF TEMPLATE
03315  M01S00033.knwc21  +++|          SB3    DAYB        ALTERNATE ASSEMBLY AREA
03316  M01S00034.knwc21  +++|          RJ     SNM         SET NAME IN MESSAGE
03317  M01S00035.knwc21  +++|          MESSAGE  DAYB      * ERROR ASSOCIATED WITH ACN = ++++.*
03318  M01S00036.knwc21  +++|          RJ     EXIT        FORCE TAF TO ABORT
03319  M01S00037.knwc21  +++|
03320  M01S00038.knwc21  +++|
03321  M01S00039.knwc21  +++| LGLB     DATA   C* ERROR ASSOCIATED WITH ACN = ++++.*
03322  M01S02857.comknwc +++| NAK      SPACE  4,20
03323  M01S02858.comknwc +++|**        NAK - PROCESS BLOCK NOT DELIVERED. (FC/NAK)
03324  M01S02859.comknwc +++|*
03325  M01S02860.comknwc +++|*              1.  IF QUEUED SUPERVISORY MESSAGE GO TO STEP 5.
03326  M01S02861.comknwc +++|*              2.  DECREMENT NUMBER OF OUTSTANDING OUTPUT BLOCKS FOR
03327  M01S02862.comknwc +++|*                  CONNECTION.
03328  M01S02863.comknwc +++|*              3.  SET RECOVERY FIELD IN TST ENTRY FOR TERMINAL.
03329  M01S02864.comknwc +++|*              4.  IF NCT ROLL FIELD INDICATES TASK WAS ROLLED OUT
03330  M01S02865.comknwc +++|*                  CALL ROUTINE *EVS* TO ROLL IN TASK.
03331  M01S02866.comknwc +++|*              5.  SET *ITASK* REASON CODE TO BLOCK NOT DELIVERED.
03332  M01S02867.comknwc +++|*                  AND GO TO SCHEDULE TASK *ATK*.
03333  M01S02868.comknwc +++|*
03334  M01S02869.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03335  M01S02870.comknwc +++|*                       0 OTHERWISE.
03336  M01S02871.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03337  M01S02872.comknwc +++|*
03338  M01S02873.comknwc +++|*         EXIT   TO *ATK*.
03339  M01S02874.comknwc +++|*
03340  M01S02875.comknwc +++|*         USES   A - 3, 6, 7.
03341  M01S02876.comknwc +++|*                X - 0, 2, 3, 6, 7.
03342  M01S02877.comknwc +++|
03343  M01S02878.comknwc +++|
03344  M01S02879.comknwc +++| NAK      NZ     B6,NAK2     IF QUEUED SUPERVISORY MESSAGE
03345  M01S02880.comknwc +++|          MX0    -TNBON      MASK OUTSTANDING OUTPUT BLOCK
03346  M01S02881.comknwc +++|          LX2    TNBON-TNBOS-1 RIGHT JUSTIFY OUSTANDING BLOCK
03347  M01S02882.comknwc +++|          SX6    B1
03348  M01S02883.comknwc +++|          BX3    -X0*X2
03349  M01S02884.comknwc +++|          IX3    X3-X6       DECREMENT OUTSTANDING OUTPUT BLOCK
03350  M01S02885.comknwc +++|          BX2    X0*X2
03351  M01S02886.comknwc +++|          LX6    TSRBS-0
03352  M01S02887.comknwc +++|          PL     X3,NAK1     IF OUTSTANDING BLOCK .GE. ZERO
03353  M01S02888.comknwc +++|          BX3    X3-X3
03354  M01S02889.comknwc +++| NAK1     BX7    X2+X3
03355  M01S02890.comknwc +++|          LX7    TNBOS-TNBON+1 POSITION BACK
03356  M01S02891.comknwc +++|          SA3    X7          TST ENTRY FOR CONNECTION
03357  M01S02892.comknwc +++|          SA7    A2          RESTORE NCT ENTRY
03358  M01S02893.comknwc +++|          BX6    X3+X6       SET RECOVERY FLAG IN TST
03359  M01S02894.comknwc +++|          SA6    A3+
03360  M01S02895.comknwc +++| NAK2     SX6    PNAK
03361  M01S02896.comknwc +++|          EQ     ATK         SCHEDULE TASK
03362  M01S02897.comknwc +++| PCI      SPACE 4,25
03363  M01S02898.comknwc +++|**        PCI - PROCESS CONNECTION INITIALIZED. (FC/INIT)
03364  M01S02899.comknwc +++|*

Seq #  *Modification Id* Act 
----------------------------+
03365  M02S02900.ns2517  ---|*              1.  IF QUEUED SUPERVISORY MESSAGE GO TO STEP 4.
03366  M01S00011.ns2517  +++|*              1.  IF QUEUED SUPERVISORY MESSAGE GO TO STEP 6.
03367  M01S02901.comknwc +++|*              2.  SET TERMINAL LOGIN FIELD IN TST.
03368  M01S02902.comknwc +++|*              3.  SEND A NORMAL RESPONSE TO CONNECTION INITIALIZED
03369  M01S02903.comknwc +++|*                  TO NAM.

Seq #  *Modification Id* Act 
----------------------------+
03370  M02S02904.ns2517  ---|*              3.1 IF RECOVER FLAG SET IN TST, SCHEDULE *RTASK*
03371  M01S00012.ns2517  +++|*              4.  IF TYPE-AHEAD DISABLED, SEND A DISABLE TYPE-AHEAD
03372  M01S00013.ns2517  +++|*                  SUPERVISORY MESSAGE AND ISSUE A *NETPUT*.
03373  M01S00014.ns2517  +++|*              5.  IF RECOVER FLAG SET IN TST, SCHEDULE *RTASK*
03374  M01S02905.comknwc +++|*                  AND CLEAR THE FLAG.

Seq #  *Modification Id* Act 
----------------------------+
03375  M02S02906.ns2517  ---|*              4.  SET UP *ITASK* MESSAGE WITH LOGIN REASON CODE AND
03376  M01S00015.ns2517  +++|*              6.  SET UP *ITASK* MESSAGE WITH LOGIN REASON CODE AND
03377  M01S02907.comknwc +++|*                  DEVICE DESCRIPTION.

Seq #  *Modification Id* Act 
----------------------------+
03378  M02S02908.ns2517  ---|*              5.  CALL ROUTINE *PRIN* TO SCHEDULE *ITASK*.

Seq #  *Modification Id* Act 
----------------------------+
03379  M02S02909.ns2517  ---|*              6.  IF *ITASK* WAS SCHEDULED GO TO TASK SWITCHING
03380  M01S00016.ns2517  +++|*              7.  CALL ROUTINE *PRIN* TO SCHEDULE *ITASK*.
03381  M01S00017.ns2517  +++|*              8.  IF *ITASK* WAS SCHEDULED GO TO TASK SWITCHING
03382  M01S02910.comknwc +++|*                  ROUTINE, ELSE GO TO QUEUE SUPERVISORY
03383  M01S02911.comknwc +++|*                  MESSAGE *SMQ*.  *ITASK* MAY NOT HAVE BEEN SCHDULED.
03384  M01S02912.comknwc +++|*                  BECAUSE NO COMMUNICATION BLOCKS WERE AVAILABLE OR
03385  M01S02913.comknwc +++|*                  *ITASK* QUEUE FOR COMMUNICATION BLOCKS WAS FULL.
03386  M01S02914.comknwc +++|*
03387  M01S02915.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03388  M01S02916.comknwc +++|*                       0 OTHERWISE.
03389  M01S02917.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03390  M01S02918.comknwc +++|*                (X1) = APPLICATION CONNECTION NUMBER.
03391  M01S02919.comknwc +++|*

Seq #  *Modification Id* Act 
----------------------------+
03392  M02S02920.241l630 ---|*         EXIT   TO *TSSC5* IF *ITASK* SCHEDULED.
03393  M01S00001.241l630 +++|*         EXIT   TO *TSSC8* IF *ITASK* SCHEDULED.
03394  M01S02921.comknwc +++|*                TO *SMPX* OTHERWISE.
03395  M01S02922.comknwc +++|*
03396  M01S02923.comknwc +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
03397  M01S02924.comknwc +++|*                X - ALL.
03398  M01S02925.comknwc +++|*
03399  M01S02926.comknwc +++|*         CALLS  NPT, PRIN, RSP, SMQ, SMR, SOT.
03400  M01S02927.comknwc +++|
03401  M01S02928.comknwc +++|
03402  M01S02929.comknwc +++| PCI      NZ     B6,PCI1     IF QUEUED SUPERVISORY MESSAGE
03403  M01S02930.comknwc +++|          SA3    SMCM        CONNECTION INITIALIZED SUPERVISORY MESSAGE
03404  M01S02931.comknwc +++|          LX1    AHACS-AHACN+1
03405  M01S02932.comknwc +++|          BX7    X3+X1       ADD ACN TO CONNECTION INITIALIZED
03406  M01S00018.ns2517  +++|.A        IFEQ   TYPEAH,1    IF TYPE-AHEAD DISABLED
03407  M01S00019.ns2517  +++|          BX6    X1          SAVE ACN
03408  M01S00020.ns2517  +++|          SA6    SRMB
03409  M01S00021.ns2517  +++|          SX6    A2+         SAVE NCT ENTRY
03410  M01S00022.ns2517  +++|          SA6    NITH
03411  M01S00023.ns2517  +++|.A        ENDIF
03412  M01S02933.comknwc +++|          MX0    1
03413  M01S02934.comknwc +++|          SA5    X2          TST ENTRY FOR CONNECTION
03414  M01S02935.comknwc +++|          LX0    TSLIS-59
03415  M01S02936.comknwc +++|          BX6    X0+X5
03416  M01S02937.comknwc +++|          SA7    OTSB        PREPARE *NETPUT*
03417  M01S02938.comknwc +++|          LX0    TSCRS-59-TSLIS+59
03418  M01S02939.comknwc +++|          BX6    -X0*X6      CLEAR CON/REQ FLAG
03419  M01S02940.comknwc +++|          SA6    A5+         SET TERMINAL LOG IN FIELD IN TST

Seq #  *Modification Id* Act 
----------------------------+
03420  M02S00055.ns2517  ---|          SX4    B1
03421  M01S00024.ns2517  +++|          SX4    1
03422  M01S02941.comknwc +++|          RJ     NPT         SEND CONNECTION INITIALIZED
03423  M01S00025.ns2517  +++|.B        IFEQ   TYPEAH,1    IF TYPE-AHEAD DISABLED
03424  M01S00026.ns2517  +++|          SA1    SMTY        GET TYPE-AHEAD DISABLE SUPERVISORY MESSAGE
03425  M01S00027.ns2517  +++|          SA3    SRMB        GET ACN
03426  M01S00028.ns2517  +++|          BX7    X1
03427  M01S00029.ns2517  +++|          SX4    B0          SEND SYNCHRONOUS SUPERVISORY MESSAGE
03428  M01S00030.ns2517  +++|          SA7    OTSB        PREPARE *NETPUT*
03429  M01S00031.ns2517  +++|          RJ     NPT         DO A *NETPUT*
03430  M01S00032.ns2517  +++|          SA1    NITH        GET NCT ENTRY
03431  M01S00033.ns2517  +++|          SX6    B1          SET OUTSTANDING BLOCK TO 1
03432  M01S00034.ns2517  +++|          SA2    X1          FWA OF NCT
03433  M01S00035.ns2517  +++|          LX6    TNBOS-TNBON+1
03434  M01S00036.ns2517  +++|          BX6    X2+X6       ADD OUTSTANDING BLOCK
03435  M01S00037.ns2517  +++|          SA6    A2+
03436  M01S00038.ns2517  +++|.B        ENDIF
03437  M01S02942.comknwc +++| PCI1     SA2    SMPB
03438  M01S02943.comknwc +++|          SA2    X2+         NCT ENTRY
03439  M01S02944.comknwc +++|          SA3    X2+B1       WORD 2 OF *TST* ENTRY
03440  M01S02945.comknwc +++|          LX3    59-TSCPS    CHECK CONNECTION POSTPONT FLAG
03441  M01S02946.comknwc +++|          NG     X3,PCI2     IF TO POSTPONE CONNECTION
03442  M01S02947.comknwc +++|          SX1    CILOGL+1    MESSAGE LENGTH
03443  M01S02948.comknwc +++|          SX7    CILOG       FUNCTION CODE TERMINAL LOG IN
03444  M01S02949.comknwc +++|          SX3    X2+         TST ENTRY
03445  M01S02950.comknwc +++|          SA7    INSJ        *ITASK* REASON CODE
03446  M01S02951.comknwc +++|          RJ     SOT         SET UP SYSTEM ORIGIN TASK
03447  M01S02952.comknwc +++|          SA3    X3          TST ENTRY
03448  M01S02953.comknwc +++|          LX3    59-TSARS
03449  M01S02954.comknwc +++|          RJ     RSP         RESTORE (B2) AND (B7)
03450  M01S02955.comknwc +++|          SA5    A5
03451  M01S02956.comknwc +++|          SA1    A2+TNAHW    GET TERMINAL DESCRIPTION
03452  M01S02957.comknwc +++|          BX7    X1
03453  M01S02958.comknwc +++|          SA7    A7+B1       SET UP BUFFER AREA
03454  M01S02959.comknwc +++|          NG     X3,PCI3     IF TERMINAL IN RECOVERY MODE
03455  M01S02960.comknwc +++|          SA4    A6          BUFFER HEAD
03456  M01S02961.comknwc +++|          RJ     PRIN        SCHEDULE *ITASK*
03457  M01S02962.comknwc +++|          SA1    INSI

Seq #  *Modification Id* Act 
----------------------------+
03458  M02S02963.241l630 ---|          ZR     X1,TSSC5    IF *ITASK* SCHEDULED
03459  M01S00002.241l630 +++|          ZR     X1,TSSC8    IF *ITASK* SCHEDULED
03460  M01S02964.comknwc +++| PCI2     SX6    PINI
03461  M01S02965.comknwc +++|          RJ     SMR         REPLACE SUPERVISORY MESSAGE
03462  M01S02966.comknwc +++|          RJ     SMQ         QUEUE SUPERVISORY MESSAGE
03463  M01S02967.comknwc +++|          EQ     SMPX        RETURN
03464  M01S02968.comknwc +++|
03465  M01S02969.comknwc +++| PCI3     TA2    0,VCBRT     COMMUNICATION BLOCK ALLOCATION MAP
03466  M01S02970.comknwc +++|          MX7    -48
03467  M01S02971.comknwc +++|          BX7    -X7*X2
03468  M01S02972.comknwc +++|          CX3    X7
03469  M01S02973.comknwc +++|          TB3    0,-VNSIN    NUMBER OF C.B.-S FOR SMALL INPUT
03470  M01S02974.comknwc +++|          SB3    X3+B3
03471  M01S02975.comknwc +++|          SB3    B3-NCBC-1   NUMBER OF C.B.-S NEEDED FOR *RTASK*
03472  M01S02976.comknwc +++|          NG     B3,PCI2     IF NOT ENOUGH C.B.-S
03473  M01S02977.comknwc +++|          SA4    VREC        GET RECOVERY FLAG
03474  M01S02978.comknwc +++|          MX6    59
03475  M01S02979.comknwc +++|          LX6    24-0
03476  M01S02980.comknwc +++|          BX6    X6*X4       MASK OFF USER RECOVERY BIT
03477  M01S02981.comknwc +++|          SA6    A7          STORE IN WORD TWO OF MESSAGE AREA
03478  M01S02982.comknwc +++|          SX6    TYIT        INTERACTIVE TERMINAL
03479  M01S02983.comknwc +++|          SA6    A7-1        STORE IN WORD ONE OF MESSAGE AREA
03480  M01S02984.comknwc +++|          SA4    RTAS        *RTASK*
03481  M01S02985.comknwc +++|          SB3    INSI        FWA OF BUFFER
03482  M01S02986.comknwc +++|          RJ     TRN         SCHEDULE *RTASK*
03483  M01S02987.comknwc +++|          ZR     X0,PCI2     IF *RTASK* NOT SCHEDULE
03484  M01S02988.comknwc +++|          SA2    SMPB
03485  M01S02989.comknwc +++|          SA2    X2
03486  M01S02990.comknwc +++|          MX0    60-TSARN
03487  M01S02991.comknwc +++|          SA4    X2          TST ENTRY
03488  M01S02992.comknwc +++|          LX0    TSARS-TSARN+1
03489  M01S02993.comknwc +++|          BX6    X0*X4       CLEAR RECOVERY FLAG
03490  M01S02994.comknwc +++|          SA6    A4

Seq #  *Modification Id* Act 
----------------------------+
03491  M02S02995.241l630 ---|          EQ     TSSC5       ACTIVE *RTASK*
03492  M01S00003.241l630 +++|          EQ     TSSC8       ACTIVE *RTASK*
03493  M01S02996.comknwc +++| PTE      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03494  M02S02997.ns2337  ---|**        PTE - PROCESS TERMINAL ENQUIRE.

Seq #  *Modification Id* Act 
----------------------------+
03495  M02S02998.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03496  M03S02999.ns2337  ---|*         EXIT   TO *ATK*.

Seq #  *Modification Id* Act 
----------------------------+
03497  M02S00056.ns2337  ---|*         EXIT   TO *BRK* IF USER BREAK 1 OR USER BREAK 2,

Seq #  *Modification Id* Act 
----------------------------+
03498  M02S00057.ns2337  ---|*                ELSE TO *ATK*.

Seq #  *Modification Id* Act 
----------------------------+
03499  M02S03000.ns2337  ---|*                (X6) = MESSAGE PRIORITY AND REASON CODE.

Seq #  *Modification Id* Act 
----------------------------+
03500  M02S03001.ns2337  ---|*                (X2) = ADDRESS OF NCT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
03501  M02S03002.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03502  M03S03003.ns2337  ---|*         USES   X - 6.

Seq #  *Modification Id* Act 
----------------------------+
03503  M02S00058.ns2337  ---|*         USES   X - 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03504  M02S00059.ns2337  ---|*                A - 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03505  M02S00060.ns2337  ---|*                B - 6.

Seq #  *Modification Id* Act 
----------------------------+
03506  M02S03004.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
03507  M02S03005.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
03508  M02S03006.ns2337  ---| PTE      NZ     B6,PTE1     IF QUEUED SUPERVISORY MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03509  M02S03007.ns2337  ---|          SA3    X2          TST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
03510  M02S03008.ns2337  ---|          LX3    59-TSLIS

Seq #  *Modification Id* Act 
----------------------------+
03511  M02S03009.ns2337  ---|          PL     X3,SMP1     IF TERMINAL NOT LOGGED IN

Seq #  *Modification Id* Act 
----------------------------+
03512  M02S03010.ns2337  ---|          SA3    SMRB        RESPOUND SUPERVISORY MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03513  M02S03011.ns2337  ---|          LX1    AHACS-AHACN+1

Seq #  *Modification Id* Act 
----------------------------+
03514  M02S03012.ns2337  ---|          BX7    X1+X3       ADD ACN

Seq #  *Modification Id* Act 
----------------------------+
03515  M02S03013.ns2337  ---|          SA7    OTSB        PREPARE *NETPUT*

Seq #  *Modification Id* Act 
----------------------------+
03516  M02S00061.ns2337  ---|          SX4    B1

Seq #  *Modification Id* Act 
----------------------------+
03517  M02S03014.ns2337  ---|          RJ     NPT         SEND RESPOUND

Seq #  *Modification Id* Act 
----------------------------+
03518  M02S03015.ns2337  ---| PTE1     SA2    SMPB        GET SUPERVISORY

Seq #  *Modification Id* Act 
----------------------------+
03519  M02S03016.ns2337  ---|          LX2    -18

Seq #  *Modification Id* Act 
----------------------------+
03520  M02S03017.ns2337  ---|          SA3    X2          GET INPUT CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
03521  M02S03018.ns2337  ---|          LX3    -36

Seq #  *Modification Id* Act 
----------------------------+
03522  M02S03019.ns2337  ---|          SX7    X3

Seq #  *Modification Id* Act 
----------------------------+
03523  M02S00062.ns2337  ---|          SX6    X7-USB1

Seq #  *Modification Id* Act 
----------------------------+
03524  M02S00063.ns2337  ---|          SB6    B0+

Seq #  *Modification Id* Act 
----------------------------+
03525  M02S00064.ns2337  ---|          ZR     X6,BRK      IF USER BREAK 1

Seq #  *Modification Id* Act 
----------------------------+
03526  M02S00065.ns2337  ---|          SX6    X7-USB2

Seq #  *Modification Id* Act 
----------------------------+
03527  M02S00066.ns2337  ---|          ZR     X6,BRK      IF USER BREAK 2

Seq #  *Modification Id* Act 
----------------------------+
03528  M02S03020.ns2337  ---|          SX6    B1+B1       MESSAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
03529  M02S03021.ns2337  ---|          SA7    INSJ+1

Seq #  *Modification Id* Act 
----------------------------+
03530  M02S03022.ns2337  ---|          SA6    SMPA

Seq #  *Modification Id* Act 
----------------------------+
03531  M02S03023.ns2337  ---|          SX6    PTES

Seq #  *Modification Id* Act 
----------------------------+
03532  M02S03024.ns2337  ---|          EQ     ATK         SCHEDULE TASK

Seq #  *Modification Id* Act 
----------------------------+
03533  M02S00067.ns2337  ---| RUB      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03534  M02S00068.ns2337  ---|**        RUB - RESPOND TO USER BREAK INDICATOR MARK.

Seq #  *Modification Id* Act 
----------------------------+
03535  M02S00069.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03536  M02S00070.ns2337  ---|*         EXIT   TO *SMP1*

Seq #  *Modification Id* Act 
----------------------------+
03537  M02S00071.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03538  M02S00072.ns2337  ---| RUB      EQ     SMP1        RESUME OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
03539  M02S00073.ns2337  ---|
03540  M01S00021.ns2337  +++| PUB      SPACE  4,15
03541  M01S00022.ns2337  +++|**        PUB - PROCESS USER BREAK.
03542  M01S00023.ns2337  +++|*
03543  M01S00024.ns2337  +++|*                1. IF TERMINAL NOT LOGGED IN, EXIT TO *SMP1*.
03544  M01S00025.ns2337  +++|*                2. GET SUPERVISORY MESSAGE.
03545  M01S00026.ns2337  +++|*                3. IF USER BREAK 1 OR 2,
03546  M01S00027.ns2337  +++|*                   THEN  SET USER RECOVERY FLAG IN TST AND RO
03547  M01S00028.ns2337  +++|*                         FLAG IN NCT
03548  M01S00029.ns2337  +++|*                   ELSE  SEND AN ASYNCHRONOUS INTERRUPT RESPONSE

Seq #  *Modification Id* Act 
----------------------------+
03549  M02S00030.knwc27  ---|*                         SUPERVISORY MESSAGE.
03550  M01S00001.knwc27  +++|*                         SUPERVISORY MESSAGE IF THE SUPERVISORY
03551  M01S00002.knwc27  +++|*                         MESSAGE IS NOT QUEUED.
03552  M01S00031.ns2337  +++|*                4. SCHEDULE *ITASK*.
03553  M01S00032.ns2337  +++|*
03554  M01S00033.ns2337  +++|*         ENTRY  (X1) = APPLICATION CONNECTION NUMBER.
03555  M01S00003.knwc27  +++|*                (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03556  M01S00004.knwc27  +++|*                     = 0 OTHERWISE.
03557  M01S00034.ns2337  +++|*
03558  M01S00035.ns2337  +++|*         EXIT   TO *ATK*.
03559  M01S00036.ns2337  +++|*
03560  M01S00037.ns2337  +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
03561  M01S00038.ns2337  +++|*                A - 2, 3, 4, 6, 7.
03562  M01S00039.ns2337  +++|*
03563  M01S00040.ns2337  +++|*         CALLS  NPT.
03564  M01S00041.ns2337  +++|
03565  M01S00042.ns2337  +++|
03566  M01S00043.ns2337  +++| PUB      SA2    SMPB        GET SUPERVISORY MESSAGE
03567  M01S00044.ns2337  +++|          SA4    X2          NCT ENTRY
03568  M01S00045.ns2337  +++|          SA3    X4          TST ENTRY
03569  M01S00046.ns2337  +++|          LX3    59-TSLIS
03570  M01S00047.ns2337  +++|          PL     X3,SMP1     IF TERMINAL NOT LOGGED IN
03571  M01S00048.ns2337  +++|          LX2    -18
03572  M01S00049.ns2337  +++|          SA3    X2
03573  M01S00050.ns2337  +++|          LX3    AHRCN-1-AHRCS  GET REASON CODE
03574  M01S00051.ns2337  +++|          MX6    -AHRCN
03575  M01S00052.ns2337  +++|          BX7    -X6*X3
03576  M01S00053.ns2337  +++|          SX6    X7-USB1
03577  M01S00054.ns2337  +++|          ZR     X6,PUB1     IF USER BREAK 1
03578  M01S00055.ns2337  +++|          SX6    X7-USB2
03579  M01S00056.ns2337  +++|          ZR     X6,PUB1     IF USER BREAK 2
03580  M01S00005.knwc27  +++|          NZ     B6,PUB0     IF QUEUED MESSAGE
03581  M01S00057.ns2337  +++|          SA7    INSJ+1
03582  M01S00058.ns2337  +++|          SA3    SMRB        RESPONSE SUPERVISORY MESSAGE
03583  M01S00059.ns2337  +++|          LX1    AHACS-AHACN+1
03584  M01S00060.ns2337  +++|          BX7    X1+X3       ADD ACN
03585  M01S00061.ns2337  +++|          SA7    OTSB
03586  M01S00062.ns2337  +++|          SX4    B1+
03587  M01S00063.ns2337  +++|          RJ     NPT         SEND RESPONSE

Seq #  *Modification Id* Act 
----------------------------+
03588  M02S00064.knwc27  ---|          SX6    2           MESSAGE LENGTH
03589  M01S00006.knwc27  +++| PUB0     SX6    2           MESSAGE LENGTH
03590  M01S00065.ns2337  +++|          SA6    SMPA
03591  M01S00066.ns2337  +++|          SX6    PTES
03592  M01S00067.ns2337  +++|          EQ     ATK         SCHEDULE ITASK
03593  M01S00068.ns2337  +++|
03594  M01S00069.ns2337  +++| PUB1     MX0    TSRBN
03595  M01S00070.ns2337  +++|          SA1    X4          ADDRESS OF TST ENTRY
03596  M01S00071.ns2337  +++|          LX0    TSRBS-59
03597  M01S00072.ns2337  +++|          BX7    X1+X0       SET USER RECOVERY FLAG
03598  M01S00073.ns2337  +++|          SA7    A1
03599  M01S00074.ns2337  +++|          LX0    TNBKS-59-TSRBS+59
03600  M01S00075.ns2337  +++|          BX7    X0+X4       SET RO FLAG
03601  M01S00076.ns2337  +++|          SA7    A4          REPLACE WORD ONE OF NCT
03602  M01S00077.ns2337  +++|          SX6    PBRK
03603  M01S00078.ns2337  +++|          EQ     ATK         SCHEDULE ITASK
03604  M01S03025.comknwc +++| SHU      SPACE  4,15
03605  M01S03026.comknwc +++|**        SHU - PROCESS NETWORK SHUTDOWN. (SHUT/INSD)
03606  M01S03027.comknwc +++|*
03607  M01S03028.comknwc +++|*              1.  IF NORMAL SHUT DOWN GO TO STEP 7.
03608  M01S03029.comknwc +++|*              2.  IF A QUEUED SUPERVISORY MESSAGE GO TO STEP 5.
03609  M01S03030.comknwc +++|*              3.  DO A NETOFF.
03610  M01S03031.comknwc +++|*              4.  CALL *LOVL* TO LOAD ROUTINE *CIN* TO CLEAR
03611  M01S03032.comknwc +++|*                  TERMINAL LOGIN FIELD IN TST.
03612  M01S03033.comknwc +++|*              5.  SET FORCED SHUTDOWN REASON CODE FOR *ITASK*.
03613  M01S03034.comknwc +++|*              6.  GO TO SCHEDULE TASK *ATK*.  THE ACN EQUALS
03614  M01S03035.comknwc +++|*                  ZERO FOR THIS MESSAGE.  NO TERMINALS WILL BE ON
03615  M01S03036.comknwc +++|*                  ACN = 0.
03616  M01S03037.comknwc +++|*              7.  SET SHUTDOWN FLAG.  ROUTINE *NGL* WILL EXAMINE THIS
03617  M01S03038.comknwc +++|*                  FLAG TO DETERMINE WHEN ALL TERMINAL ACTIVITY HAS
03618  M01S03039.comknwc +++|*                  FINISHED.
03619  M01S03040.comknwc +++|*              8.  SET NORMAL SHUTDOWN REASON CODE FOR *ITASK*.
03620  M01S03041.comknwc +++|*              9.  GO TO SCHEDULE TASK *ATK*.
03621  M01S03042.comknwc +++|*
03622  M01S03043.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03623  M01S03044.comknwc +++|*                       0 OTHERWISE.
03624  M01S03045.comknwc +++|*                (X4) = NETWORK SHUTDOWN SUPERVISORY MESSAGE.
03625  M01S03046.comknwc +++|*
03626  M01S03047.comknwc +++|*         EXIT   (X6) = MESSAGE PRIORITY AND REASON CODE.
03627  M01S03048.comknwc +++|*                TO *ATK*.
03628  M01S03049.comknwc +++|*
03629  M01S03050.comknwc +++|*         USES   A - 1, 6, 7.
03630  M01S03051.comknwc +++|*                X - 1, 4, 6, 7.
03631  M01S03052.comknwc +++|*
03632  M01S03053.comknwc +++|*         CALLS  LOVL, NOF.
03633  M01S03054.comknwc +++|
03634  M01S03055.comknwc +++|
03635  M01S03056.comknwc +++| SHU      LX4    59-AHSIS
03636  M01S03057.comknwc +++|          PL     X4,SHU2     IF NORMAL SHUTDOWN
03637  M01S03058.comknwc +++|          NZ     B6,SHU1     IF QUEUED SUPERVISORY MESSAGE
03638  M01S03059.comknwc +++|          RJ     NOF         DO A *NETOFF*
03639  M01S03060.comknwc +++|          SA1    LOVG        COMMUNICATION SUBSYSTEM INITIALIZATION
03640  M01S03061.comknwc +++|          RJ     LOVL        LOAD AND EXECUTE RECOVERY OVERLAY
03641  M01S03062.comknwc +++| SHU1     SX6    PTSD        FORCE SHUTDOWN
03642  M01S03063.comknwc +++|          EQ     ATK         SCHEDULE *ITASK*
03643  M01S03064.comknwc +++|
03644  M01S03065.comknwc +++|*         NORMAL SHUTDOWN.
03645  M01S03066.comknwc +++|
03646  M01S03067.comknwc +++| SHU2     SX6    PNSD        NORMAL SHUTDOWN
03647  M01S03068.comknwc +++|          EQ     ATK         SCHEDULE *ITASK*
03648  M01S03069.comknwc +++| STP      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
03649  M02S03070.ns2337  ---|*         STP - PROCESS STOP ON DOWN LINE CONNECTION. (CTRL/STOP)

Seq #  *Modification Id* Act 
----------------------------+
03650  M02S03071.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03651  M02S03072.ns2337  ---|*               1. IF QUEUED SUPERVISORY MESSAGE GO TO STEP 5.

Seq #  *Modification Id* Act 
----------------------------+
03652  M02S03073.ns2337  ---|*               2. SET STOP ON DOWN LINE CONNECTION FLAG IN NCT.

Seq #  *Modification Id* Act 
----------------------------+
03653  M02S03074.ns2337  ---|*               3. CLEAR OUTSTANDING OUTPUT BLOCK FOR CONNECTION.

Seq #  *Modification Id* Act 
----------------------------+
03654  M02S03075.ns2337  ---|*               4. SET RECOVERY GLAG IN TST.

Seq #  *Modification Id* Act 
----------------------------+
03655  M02S03076.ns2337  ---|*               5. SET REASON CODE FOR DOWN LINE CONNECTION.

Seq #  *Modification Id* Act 
----------------------------+
03656  M02S03077.ns2337  ---|*               6. GO TO *ATK*.

Seq #  *Modification Id* Act 
----------------------------+
03657  M02S03078.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03658  M02S03079.ns2337  ---|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
03659  M02S03080.ns2337  ---|*                       0 OTHERWISE.

Seq #  *Modification Id* Act 
----------------------------+
03660  M02S03081.ns2337  ---|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
03661  M02S03082.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03662  M02S03083.ns2337  ---|*         EXIT   TO *ATK*.

Seq #  *Modification Id* Act 
----------------------------+
03663  M02S03084.ns2337  ---|*                (X6) = MESSAGE PRIORITY AND REASON CODE.

Seq #  *Modification Id* Act 
----------------------------+
03664  M02S03085.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03665  M02S03086.ns2337  ---|*         USES   A - 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03666  M02S03087.ns2337  ---|*                X - 0, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03667  M02S03088.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
03668  M02S03089.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
03669  M02S03090.ns2337  ---| STP      NZ     B6,STP1     IF QUEUED SUPERVISORY MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03670  M02S03091.ns2337  ---|          MX0    1

Seq #  *Modification Id* Act 
----------------------------+
03671  M02S03092.ns2337  ---|          MX3    -TNBON

Seq #  *Modification Id* Act 
----------------------------+
03672  M02S03093.ns2337  ---|          BX7    X0+X2       SET STOP ON DOWN LINE CONNECTION FLAG

Seq #  *Modification Id* Act 
----------------------------+
03673  M02S03094.ns2337  ---|          LX3    TNBOS-TNBON+1

Seq #  *Modification Id* Act 
----------------------------+
03674  M02S03095.ns2337  ---|          LX0    TSRBS-59

Seq #  *Modification Id* Act 
----------------------------+
03675  M02S03096.ns2337  ---|          SA4    X2

Seq #  *Modification Id* Act 
----------------------------+
03676  M02S03097.ns2337  ---|          BX7    X3*X7       CLEAR OUTSTANDING OUTPUT BLOCK COUNT

Seq #  *Modification Id* Act 
----------------------------+
03677  M02S03098.ns2337  ---|          BX6    X4+X0       SET RECOVERY BIT IN TST

Seq #  *Modification Id* Act 
----------------------------+
03678  M02S03099.ns2337  ---|          SA7    A2          RESTORE NCT

Seq #  *Modification Id* Act 
----------------------------+
03679  M02S03100.ns2337  ---|          SA6    A4          RESTORE TST

Seq #  *Modification Id* Act 
----------------------------+
03680  M02S03101.ns2337  ---| STP1     SX6    PSTP

Seq #  *Modification Id* Act 
----------------------------+
03681  M02S03102.ns2337  ---|          EQ     ATK         SCHEDULE TASK

Seq #  *Modification Id* Act 
----------------------------+
03682  M02S03103.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
03683  M02S03104.ns2337  ---| STR      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
03684  M02S03105.ns2337  ---|**        STR - PROCESS START ON DOWN LINE CONNECTION. (CTRL/START)

Seq #  *Modification Id* Act 
----------------------------+
03685  M02S03106.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03686  M02S03107.ns2337  ---|*                1. IF QUEUED SUPERVISORY MESSAGE GO TO STEP 4.

Seq #  *Modification Id* Act 
----------------------------+
03687  M02S03108.ns2337  ---|*                2. CLEAR STOP ON DOWN LINE CONNECTION FLAG IN NCT.

Seq #  *Modification Id* Act 
----------------------------+
03688  M02S03109.ns2337  ---|*                3. SET RESET FLAG IN NCT.

Seq #  *Modification Id* Act 
----------------------------+
03689  M02S03110.ns2337  ---|*                4. GO TO *ATK*.

Seq #  *Modification Id* Act 
----------------------------+
03690  M02S03111.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03691  M02S03112.ns2337  ---|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
03692  M02S03113.ns2337  ---|*                       0 OTHERWISE.

Seq #  *Modification Id* Act 
----------------------------+
03693  M02S03114.ns2337  ---|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
03694  M02S03115.ns2337  ---|*                (X1) = APPLICATION CONNECTION NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
03695  M02S03116.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03696  M02S03117.ns2337  ---|*         EXIT   TO *ATK*.

Seq #  *Modification Id* Act 
----------------------------+
03697  M02S03118.ns2337  ---|*                (X6) = MESSAGE PRIORITY AND REASON CODE.

Seq #  *Modification Id* Act 
----------------------------+
03698  M02S03119.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03699  M02S03120.ns2337  ---|*         USES   A - 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03700  M02S03121.ns2337  ---|*                X - 0, 1, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
03701  M02S03122.ns2337  ---|*

Seq #  *Modification Id* Act 
----------------------------+
03702  M02S03123.ns2337  ---|*         CALL   NPT.

Seq #  *Modification Id* Act 
----------------------------+
03703  M02S03124.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
03704  M02S03125.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
03705  M02S03126.ns2337  ---| STR      NZ     B6,STR1     IF QUEUED SUPERVISORY MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03706  M02S03127.ns2337  ---|          SA5    X2          TST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
03707  M02S03128.ns2337  ---|          LX5    59-TSLIS

Seq #  *Modification Id* Act 
----------------------------+
03708  M02S03129.ns2337  ---|          PL     X5,SMP1     IF TERMINAL NOT LOGGED IN

Seq #  *Modification Id* Act 
----------------------------+
03709  M02S03130.ns2337  ---|          MX0    1

Seq #  *Modification Id* Act 
----------------------------+
03710  M02S03131.ns2337  ---|          LX1    AHACS-AHACN+1

Seq #  *Modification Id* Act 
----------------------------+
03711  M02S03132.ns2337  ---|          SA5    SMRS        RESET SUPERVISORY MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03712  M02S03133.ns2337  ---|          BX7    -X0*X2      CLEAR STOP ON DOWN LINE CONNECTION FLAG

Seq #  *Modification Id* Act 
----------------------------+
03713  M02S03134.ns2337  ---|          BX6    X5+X1

Seq #  *Modification Id* Act 
----------------------------+
03714  M02S03135.ns2337  ---|          SA7    A2+

Seq #  *Modification Id* Act 
----------------------------+
03715  M02S03136.ns2337  ---|          SA6    OTSB

Seq #  *Modification Id* Act 
----------------------------+
03716  M02S00074.ns2337  ---|          SX4    B1

Seq #  *Modification Id* Act 
----------------------------+
03717  M02S03137.ns2337  ---|          RJ     NPT         SEND RESET SUPERVISORY MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03718  M02S03138.ns2337  ---| STR1     SX6    PSTR

Seq #  *Modification Id* Act 
----------------------------+
03719  M02S03139.ns2337  ---|          EQ     ATK         SCHEDULE TASK
03720  M01S03140.comknwc +++|          TITLE  SMP SUBROUTINES.
03721  M01S03141.comknwc +++| SMQ      SPACE  4,10
03722  M01S03142.comknwc +++|**        SMQ - SUPERVISORY MESSAGE QUEUED.
03723  M01S03143.comknwc +++|*
03724  M01S03144.comknwc +++|*                1. SET FLAG TO INDICATE THIS IS THE LAST SUPERVISORY
03725  M01S03145.comknwc +++|*                   MESSAGE IN QUEUE.
03726  M01S03146.comknwc +++|*                2. LET TAIL OF QUEUE (NCTB) POINT TO CURRENT
03727  M01S03147.comknwc +++|*                   NCT ENTRY.
03728  M01S03148.comknwc +++|*                3. IF EMPTY QUEUE LET HEAD OF QUEUE (NCTA) = CURRENT
03729  M01S03149.comknwc +++|*                   ACN.  ELSE LET LAST END OF QUEUE POINT TO CURRENT
03730  M01S03150.comknwc +++|*                   NCT ENTRY.
03731  M01S03151.comknwc +++|*
03732  M01S03152.comknwc +++|*         ENTRY  (SMPB) = 1/Q,5/ ,18/ACN,18/SMA,18/NCT.
03733  M01S03153.comknwc +++|*
03734  M01S03154.comknwc +++|*         USES   A - 1, 2, 3, 6, 7.
03735  M01S03155.comknwc +++|*                X - 0, 1, 2, 3, 6, 7.
03736  M01S03156.comknwc +++|
03737  M01S03157.comknwc +++|
03738  M01S03158.comknwc +++| SMQ      SUBR               ENTRY/EXIT
03739  M01S03159.comknwc +++|          SA1    SMPB
03740  M01S03160.comknwc +++|          SA2    X1          NCT ENTRY
03741  M01S03161.comknwc +++|          MX0    1
03742  M01S03162.comknwc +++|          MX3    -TNCNN
03743  M01S03163.comknwc +++|          LX0    TNQSS-59
03744  M01S03164.comknwc +++|          BX2    X0+X2       SET QUEUE FLAG
03745  M01S03165.comknwc +++|          LX3    TNCNS-TNCNN+1
03746  M01S03166.comknwc +++|          BX7    X3*X2       SET QUEUE LINK FIELD .EQ. ZERO
03747  M01S03167.comknwc +++|          LX1    -36
03748  M01S03168.comknwc +++|          SA3    NCTB
03749  M01S03169.comknwc +++|          SX6    X1          CURRENT APPLICATION CONNECTION NUMBER
03750  M01S03170.comknwc +++|          SA7    A2          NEW NCT ENTRY
03751  M01S03171.comknwc +++|          SA6    A3+         PUT ACN AT BOTTOM OF QUEUE
03752  M01S03172.comknwc +++|          ZR     X3,SMQ1     IF INITIAL QUEUE
03753  M01S03173.comknwc +++|          SX2    TNCTL
03754  M01S03174.comknwc +++|          IX2    X2*X3
03755  M01S03175.comknwc +++|          LX6    TNCNS-TNCNN+1
03756  M01S03176.comknwc +++|          TA2    X2,VNCT     LAST NCT ENTRY IN QUEUE
03757  M01S03177.comknwc +++|          BX6    X6+X2       ADD NEW LINK
03758  M01S03178.comknwc +++|          SA6    A2
03759  M01S03179.comknwc +++|          EQ     SMQX        RETURN
03760  M01S03180.comknwc +++|
03761  M01S03181.comknwc +++|*         INITIAL SET UP OF QUEUE.
03762  M01S03182.comknwc +++|
03763  M01S03183.comknwc +++| SMQ1     SA6    NCTA        HEAD OF QUEUE
03764  M01S03184.comknwc +++|          EQ     SMQX        RETURN
03765  M01S03185.comknwc +++| SMR      SPACE  4,30
03766  M01S03186.comknwc +++|**        SMR - SUPERVISORY MESSAGE REPLACE.
03767  M01S03187.comknwc +++|*
03768  M01S03188.comknwc +++|*                1. IF NCT ENTRY IS NOT QUEUED, GO TO STEP 7.
03769  M01S03189.comknwc +++|*                2. COMPARE PRIORITIES IF INCOMING SUPERVISORY MESSAGE
03770  M01S03190.comknwc +++|*                   PRIORITY IS NO GREATER THAN THE RESIDENT SUPERVISORY
03771  M01S03191.comknwc +++|*                   PRIORITY, RETURN.
03772  M01S03192.comknwc +++|*                3. IF CURRENT ACN IS HEAD OF QUEUE, RESET HEAD
03773  M01S03193.comknwc +++|*                   OF QUEUE AND GO TO STEP 5.
03774  M01S03194.comknwc +++|*                4. FIND PREDECESSOR OF CURRENT ACN AND RESET LINKAGE.
03775  M01S03195.comknwc +++|*                5. CLEAR LINK FIELD AND QUEUE FLAG IN CURRENT ENTRY.
03776  M01S03196.comknwc +++|*                6. IF CURRENT ACN IS TAIL OF QUEUE, RESET TAIL OF
03777  M01S03197.comknwc +++|*                   QUEUE.
03778  M01S03198.comknwc +++|*                7. REPLACE SUPERVISORY MESSAGE AND RETURN.
03779  M01S03199.comknwc +++|*
03780  M01S03200.comknwc +++|*         ENTRY  (SMPB) = 1/Q,5/ ,18/ACN,18/SMA,18/NCT.
03781  M01S03201.comknwc +++|*                (X6) = 42/0,6/I,6/R,6/C.
03782  M01S03202.comknwc +++|*                I = INCOMING SUPERVISORY MESSAGE PRIORITY.
03783  M01S03203.comknwc +++|*                R = RESIDENT SUPERVISORY MESSAGE PRIORITY.
03784  M01S03204.comknwc +++|*                C = *ITASK* REASON CODE.
03785  M01S03205.comknwc +++|*                (NCTA) = HEAD OF QUEUE.
03786  M01S03206.comknwc +++|*                (NCTB) = TAIL OF QUEUE.
03787  M01S03207.comknwc +++|*
03788  M01S03208.comknwc +++|*                A - 1, 3, 4, 5, 6, 7.
03789  M01S03209.comknwc +++|*                B - 3, 4, 6.
03790  M01S03210.comknwc +++|*                X - 0, 1, 3, 4, 5, 6, 7.
03791  M01S03211.comknwc +++|*
03792  M01S03212.comknwc +++|*         CALLS  EXIT.
03793  M01S03213.comknwc +++|
03794  M01S03214.comknwc +++|
03795  M01S03215.comknwc +++| SMR      SUBR               ENTRY/EXIT
03796  M01S03216.comknwc +++|          MX7    -6
03797  M01S03217.comknwc +++|          LX6    -6
03798  M01S03218.comknwc +++|          SA1    SMPB
03799  M01S03219.comknwc +++|          BX5    -X7*X6      RESIDENT PRIORITY
03800  M01S03220.comknwc +++|          LX6    -6
03801  M01S03221.comknwc +++|          SA3    X1          NCT ENTRY
03802  M01S03222.comknwc +++|          SA4    X1+B1
03803  M01S03223.comknwc +++|          LX3    59-TNQSS    LEFT JUSTIFY QUEUE FIELD
03804  M01S03224.comknwc +++|          AX1    18
03805  M01S03225.comknwc +++|          MX0    -5          MASK PRIORITY
03806  M01S03226.comknwc +++|          SB6    X5          RESIDENT PRIORITY
03807  M01S03227.comknwc +++|          SX6    X6
03808  M01S03228.comknwc +++|          SB4    X1
03809  M01S03229.comknwc +++|          PL     X3,SMR3     IF NO QUEUED SUPERVISORY MESSAGE
03810  M01S03230.comknwc +++|          BX5    -X0*X4
03811  M01S03231.comknwc +++|          IX7    X6-X5       COMPARE PRIORITY
03812  M01S03232.comknwc +++|          NG     X7,SMRX     IF LOWER PRIORITY
03813  M01S03233.comknwc +++|          ZR     X7,SMRX     IF EQUAL PRIORITY
03814  M01S03234.comknwc +++|          SX6    TNCTL       LENGTH OF NCT ENTRY
03815  M01S03235.comknwc +++|          SA5    NCTA        HEAD OF QUEUE
03816  M01S03236.comknwc +++|          AX1    18
03817  M01S03237.comknwc +++|          SX4    X1          CURRENT ACN
03818  M01S03238.comknwc +++|          MX0    -TNCNN      MASK ACN
03819  M01S03239.comknwc +++|          LX3    TNCNN-TNCNS-1-59+TNQSS  RIGHT JUSTIFY QUEUE ACN
03820  M01S03240.comknwc +++|          ZR     X5,SMRX     IF EMPTY QUEUE
03821  M01S03241.comknwc +++|
03822  M01S03242.comknwc +++|*         PROCESS DELETE ENTRY FROM QUEUE.
03823  M01S03243.comknwc +++|
03824  M01S03244.comknwc +++|          IX7    X4-X5
03825  M01S03245.comknwc +++|          NZ     X7,SMR1     IF NOT HEAD OF QUEUE
03826  M01S03246.comknwc +++|          BX6    -X0*X3      MASK NEXT ACN
03827  M01S03247.comknwc +++|
03828  M01S03248.comknwc +++|*         RESET HEAD OF QUEUE.
03829  M01S03249.comknwc +++|
03830  M01S03250.comknwc +++|          SB3    X6
03831  M01S03251.comknwc +++|          SA6    A5          HEAD OF QUEUE
03832  M01S03252.comknwc +++|          EQ     SMR2        RESET NCT ENTRY
03833  M01S03253.comknwc +++|
03834  M01S03254.comknwc +++|*         RESET LINKAGE IN QUEUE.
03835  M01S03255.comknwc +++|
03836  M01S03256.comknwc +++| SMR1     IX7    X5*X6
03837  M01S03257.comknwc +++|          SB3    X5          SAVE PREDECESSOR
03838  M01S03258.comknwc +++|          TA1    X7,VNCT     NCT ENTRY
03839  M01S03259.comknwc +++|          LX1    TNCNN-TNCNS-1 RIGHT JUSTIFY NEXT ACN IN QUEUE
03840  M01S03260.comknwc +++|          BX5    -X0*X1      MASK ACN IN QUEUE

Seq #  *Modification Id* Act 
----------------------------+
03841  M02S03261.knwc5   ---|          ZR     X5,SMR4     IF END OF QUEUE
03842  M01S00007.knwc5   +++|          ZR     X5,SMR3     IF END OF QUEUE
03843  M01S03262.comknwc +++|          IX7    X4-X5
03844  M01S03263.comknwc +++|          NZ     X7,SMR1     IF NOT PREDECESSOR
03845  M01S03264.comknwc +++|          BX7    X0*X1       CLEAR LINK FIELD
03846  M01S03265.comknwc +++|          BX6    -X0*X3      MASK NEXT ACN
03847  M01S03266.comknwc +++|          BX7    X7+X6
03848  M01S03267.comknwc +++|          LX7    TNCNS-TNCNN+1
03849  M01S03268.comknwc +++|          SA7    A1          RESET THE LINK IN PREDECESSOR
03850  M01S03269.comknwc +++| SMR2     LX3    TNQSN-TNQSS-1-TNCNN+TNCNS+1  RIGHT JUSTIFY QUEUE FIELD
03851  M01S03270.comknwc +++|          MX0    59          CLEAR QUEUE FLAG
03852  M01S03271.comknwc +++|          BX6    X0*X3
03853  M01S03272.comknwc +++|          LX6    TNQSS-TNQSN+1
03854  M01S03273.comknwc +++|          SA6    A3          NCT ENTRY
03855  M01S03274.comknwc +++|
03856  M01S03275.comknwc +++|*         RESET TAIL OF QUEUE.
03857  M01S03276.comknwc +++|
03858  M01S03277.comknwc +++|          SA5    NCTB        TAIL OF QUEUE
03859  M01S03278.comknwc +++|          IX7    X4-X5
03860  M01S03279.comknwc +++|          NZ     X7,SMR3     IF NOT TAIL OF QUEUE
03861  M01S03280.comknwc +++|          SX7    B3          PREDECESSOR
03862  M01S03281.comknwc +++|          SA7    A5
03863  M01S03282.comknwc +++|
03864  M01S03283.comknwc +++|*         REPLACE SUPERVISORY MESSAGE.
03865  M01S03284.comknwc +++|
03866  M01S03285.comknwc +++| SMR3     SA5    B4          NEW SUPERVISORY MESSAGE
03867  M01S03286.comknwc +++|          SX1    B6
03868  M01S03287.comknwc +++|          BX7    X5+X1       ADD RESIDENT PRIORITY
03869  M01S03288.comknwc +++|          SA7    A3+B1       PUT NEW SUPERVISORY MESSAGE IN NCT W2
03870  M01S03289.comknwc +++|          EQ     SMRX        RETURN
03871  M01S03290.comknwc +++|

Seq #  *Modification Id* Act 
----------------------------+
03872  M02S03291.knwc5   ---| SMR4     RJ     EXIT        QUEUE ERROR
03873  M01S03292.comknwc +++|          TITLE  SND - TERMINAL OUTPUT PROCESSOR.
03874  M01S03293.comknwc +++| SND      SPACE  4,20
03875  M01S03294.comknwc +++|**        SND - SEND TERMINAL OUTPUT.
03876  M01S03295.comknwc +++|*
03877  M01S03296.comknwc +++|*                 1. IF TERMINAL LOGGED IN, GO TO STEP 3.
03878  M01S03297.comknwc +++|*                    IF PREVIOUS NETWORK REQUEST NOT COMPLETE, PUT TASK

Seq #  *Modification Id* Act 
----------------------------+
03879  M02S03298.ns2337  ---|*                    IN RECALL AND GO TO STEP 26.

Seq #  *Modification Id* Act 
----------------------------+
03880  M02S00079.knwc29  ---|*                    IF RECALL AND GO TO STEP 24.
03881  M01S00001.knwc29  +++|*                    IN RECALL AND GO TO STEP 24.
03882  M01S03299.comknwc +++|*                 2. IF SEND WITH RECALL RETURN TERMINAL NOT LOGGED IN
03883  M01S03300.comknwc +++|*                    STATUS TO TASK AND GO TO TASK SWITCH ROUTINE
03884  M01S03301.comknwc +++|*                    *TSSC* ELSE ABORT THE TASK.

Seq #  *Modification Id* Act 
----------------------------+
03885  M02S03302.ns2337  ---|*                 3. IF TERMINAL DOES NOT HAVE A DOWN LINE STOP STATUS,

Seq #  *Modification Id* Act 
----------------------------+
03886  M02S03303.ns2337  ---|*                    GO TO STEP  5.

Seq #  *Modification Id* Act 
----------------------------+
03887  M02S03304.ns2337  ---|*                 4. IF TASK SEND WITH RECALL RETURN DOWNLINE STOP TO

Seq #  *Modification Id* Act 
----------------------------+
03888  M02S03305.ns2337  ---|*                    TASK AND GO TO TASK SWITCH ROUTINE, ELSE ABORT

Proceed to Part 3