Common COMKNWC Part 002

35 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
03087  M01S02688.knwc5   ---|          MX0    -AHBSN
03088  M01S02689.knwc5   ---|          LX4    59-AHPWS
03089  M00S02690.comknwc ---|          LX3    AHBSN-AHBSS-1 RIGHT JUSTIFY BLOCK SIZE
03090  M01S02691.knwc5   ---|          SA6    OTSB
03091  M00S02692.comknwc ---|          BX3    -X0*X3      MASK BLOCK SIZE

Seq #  *Modification Id* Act 
----------------------------+
03092  M01S00002.knwc5   +++|          SA6    OTSB
03093  M00S02693.comknwc +++|          LX7    16
03094  M00S02694.comknwc +++|          LX3    25

Seq #  *Modification Id* Act 
----------------------------+
03095  M01S02695.knwc5   ---|          AX4    59-AHPWS    GET PAGE WIDTH AND LENGTH

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02696.comknwc +++|          BX7    X3+X7       BLOCK SIZE + HARD WIRED + DEVICE TYPE
03101  M00S02697.comknwc +++|          BX6    X6-X6
03102  M00S02698.comknwc +++|          BX7    X7+X4       BSZ + HW + DT + PW + PL
03103  M00S02699.comknwc +++|          SA6    A2+B1       CLEAR WORD TWO OF NCT ENTRY
03104  M00S02700.comknwc +++|          SA7    A2+TNAHW    SAVE TERMINAL DESCRIPTION IN NCT

Seq #  *Modification Id* Act 
----------------------------+
03105  M01S00053.ns22000 +++|          SX4    B1
03106  M00S02701.comknwc +++|          RJ     NPT         SEND CONNECTION ACCEPTED
03107  M00S02702.comknwc +++|          SB3    B0+
03108  M00S02703.comknwc +++|          EQ     SMP1        GET NEXT SUPERVISORY MESSAGE
03109  M00S02704.comknwc +++|
03110  M00S02705.comknwc +++|*         PROCESS CONNECT REJECT.
03111  M00S02706.comknwc +++|
03112  M00S02707.comknwc +++| CRE4     MX0    AHACN
03113  M00S02708.comknwc +++|          SA2    INSB        INPUT SUPERVISORY MESSAGE
03114  M00S02709.comknwc +++|          LX0    AHACS-59
03115  M00S02710.comknwc +++|          SA5    SMCR
03116  M00S02711.comknwc +++|          BX2    X0*X2       ACN FROM INPUT MESSAGE
03117  M00S02712.comknwc +++|          BX7    X2+X5       PUT ACN IN OUTPUT MESSAGE
03118  M00S02713.comknwc +++|          SA7    OTSB
03119  M01S00054.ns22000 +++|          SX4    B1+
03120  M00S02714.comknwc +++|          RJ     NPT         CONNECTION REJECT
03121  M00S02715.comknwc +++|          SB3    B0+
03122  M00S02716.comknwc +++|          EQ     SMP1        GET NEXT SUPERVISORY MESSAGE
03123  M00S02717.comknwc +++| INA      SPACE  4,15
03124  M00S02718.comknwc +++|**        INA - PROCESS TERMINAL INACTIVE. (FC/INACT)
03125  M00S02719.comknwc +++|*
03126  M00S02720.comknwc +++|*                1.  IF COMMUNICATION BLOCK ASSIGNED TO THE TERMINAL,
03127  M00S02721.comknwc +++|*                    RELEASE IT OTHERWISE CALL ROUTINE *SCB* TO FIND
03128  M00S02722.comknwc +++|*                    COMMUNICATION BLOCK IN USE.
03129  M00S02723.comknwc +++|*              2.  IF COMMUNICATION BLOCK TERMINAL EQUALS TERMINAL
03130  M00S02724.comknwc +++|*                  NAME OF CONNECTION PASS SEQUENCE NUMBER OF
03131  M00S02725.comknwc +++|*                  TRANSACTION TO *ITASK*.
03132  M00S02726.comknwc +++|*              3.  SET REASON CODE TO TERMINAL INACTIVE.
03133  M00S02727.comknwc +++|*              4.  GO TO SCHEDULE TASK *ATK*.
03134  M00S02728.comknwc +++|*
03135  M00S02729.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03136  M00S02730.comknwc +++|*                       0 OTHERWISE.
03137  M00S02731.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03138  M00S02732.comknwc +++|*
03139  M00S02733.comknwc +++|*         EXIT   TO *ATK*.
03140  M00S02734.comknwc +++|*                (X6) = MESSAGE PRIORITY AND REASON CODE.
03141  M00S02735.comknwc +++|*
03142  M00S02736.comknwc +++|*         USES   A - 3, 6, 7.
03143  M00S02737.comknwc +++|*                B - 5.
03144  M00S02738.comknwc +++|*                X - 0, 3, 6, 7.
03145  M00S02739.comknwc +++|*
03146  M00S02740.comknwc +++|*         CALLS  RLC, SCB.
03147  M00S02741.comknwc +++|
03148  M00S02742.comknwc +++|
03149  M00S02743.comknwc +++| INA      BX7    X2          SAVE TST FWA
03150  M00S02744.comknwc +++|          MX0    -TNCBN      MASK COMMUNICATION BLOCK INDEX
03151  M00S02745.comknwc +++|          SX3    CMBL        LENGTH OF COMMUNICATION BLOCK
03152  M00S02746.comknwc +++|          LX2    TNCBN-TNCBS-1
03153  M00S02747.comknwc +++|          BX6    -X0*X2      GET COMMUNICATION BLOCK INDEX
03154  M00S02748.comknwc +++|          ZR     X6,INA1     IF NO COMMUNICATION BLOCK ASSIGNED
03155  M00S02749.comknwc +++|          BX7    X0*X2       CLEAR COMMUNICATION BLOCK INDEX
03156  M00S02750.comknwc +++|          SX0    X6-1
03157  M00S02751.comknwc +++|          IX3    X0*X3
03158  M00S02752.comknwc +++|          TX2    X3,VCBSA    COMMUNICATION BLOCK ADDRESS
03159  M00S02753.comknwc +++|          LX7    TNCBS-TNCBN+1
03160  M00S02754.comknwc +++|          SA7    A2          RESET FIRST WORD OF NCT ENTRY
03161  M00S02755.comknwc +++|          RJ     RLC         RELEASE COMMUNICATION BLOCKS

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
03169  M01S00001.knwc22  +++|          BX7    X2

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02756.comknwc +++| INA1     SB5    B0
03177  M00S02757.comknwc +++|          SX6    X7
03178  M00S02758.comknwc +++|          RJ     SCB         SEARCH RESERVED COMMUNICATION BLOCK
03179  M00S02759.comknwc +++|          BX7    X7-X7
03180  M00S02760.comknwc +++|          SX6    B1+B1       MESSAGE LENGTH
03181  M00S02761.comknwc +++|          SA3    B5+CMBHL    COMMUNICATION BLOCK USER HEADER
03182  M00S02762.comknwc +++|          ZR     B5,INA2     IF NO MORE COMMUNICATION BLOCK TO SEARCH
03183  M00S02763.comknwc +++|          MX0    -24
03184  M00S02764.comknwc +++|          BX7    -X0*X3      MASK SEQUENCE NUMBER
03185  M00S02765.comknwc +++| INA2     SA6    SMPA
03186  M00S02766.comknwc +++|          SA7    INSJ+1
03187  M00S02767.comknwc +++|          SX6    PINA
03188  M00S02768.comknwc +++|          EQ     ATK         SCHEDULE TASK
03189  M01S00018.knwc14  +++|
03190  M01S00019.knwc14  +++| INAA     BSSZ   1           TST FWA
03191  M00S02769.comknwc +++| LGL      SPACE 4,30
03192  M00S02770.comknwc +++|**        LGL - PROCESS LOGICAL ERROR. (ERR/LGL)
03193  M00S02771.comknwc +++|*
03194  M00S02772.comknwc +++|*             LOGICAL ERRORS HAVE THE FOLLOWING CODES:

Seq #  *Modification Id* Act 
----------------------------+
03195  M01S02773.v23l617 ---|*              1 = ILLEGAL ACT VALUE
03196  M01S02774.v23l617 ---|*              2 = ILLEGAL TLC VALUE
03197  M01S02775.v23l617 ---|*              3 = ILLEGAL ABT VALUE

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

Seq #  *Modification Id* Act 
----------------------------+
03204  M01S02779.v23l617 ---|*              7 = ILLEGAL OR ILLOGICAL SUPERVISORY MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
03205  M01S00015.v23l617 +++|*              7 = INCORRECT OR ILLOGICAL SUPERVISORY MESSAGE
03206  M00S02780.comknwc +++|*
03207  M00S02781.comknwc +++|*              1.  IF QUEUED SUPERVISORY MESSAGE, GO TO
03208  M00S02782.comknwc +++|*                  SCHEDULE TASK *ATK*.
03209  M00S02783.comknwc +++|*              2.  IF ABH IS PRESENT, SET ACN EQUAL TO ACN IN ABH;
03210  M00S02784.comknwc +++|*                  ELSE SET ACN TO ZERO.
03211  M00S02785.comknwc +++|*              3.  FOR NAM REASON CODES 1, 2, 3, OR 7 GO TO
03212  M00S02786.comknwc +++|*                  SCHEDULE TASK *ATK*.  TAF OR APPLICATION TASK (MOST
03213  M00S02787.comknwc +++|*                  LIKELY APPLICATION) CAUSED THESE ERRORS.
03214  M00S02788.comknwc +++|*              4.  FOR NAM REASON CODES 4, 5, OR 6 NOTE A SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
03215  M01S02789.knwc21  ---|*                  ERROR ON DAYFILE AND DO AS IN  NETWORK
03216  M01S02790.knwc21  ---|*                  SHUTDOWN *SHU* FOR IMMEDIATE SHUTDOWN.  TAF CODE
03217  M01S02791.knwc21  ---|*                  CAUSED THESE ERRORS.

Seq #  *Modification Id* Act 
----------------------------+
03218  M01S00002.knwc21  +++|*                  ERROR ON DAYFILE AND ABORT TAF.  TAF CODE CAUSED
03219  M01S00003.knwc21  +++|*                  THESE ERRORS.
03220  M00S02792.comknwc +++|*
03221  M00S02793.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03222  M00S02794.comknwc +++|*                       0 OTHERWISE.
03223  M00S02795.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03224  M00S02796.comknwc +++|*                (X4) = SUPERVISORY MESSAGE.
03225  M00S02797.comknwc +++|*
03226  M00S02798.comknwc +++|*         EXIT   TO *ATK* IF TASK ERROR.

Seq #  *Modification Id* Act 
----------------------------+
03227  M01S02799.knwc21  ---|*                TO *SHU* WITH (X4) .EQ. 1 IF TAF ERROR.

Seq #  *Modification Id* Act 
----------------------------+
03228  M01S00004.knwc21  +++|*                TO *EXIT* IF TAF ERROR.
03229  M00S02800.comknwc +++|*                (X6) = MESSAGE PRIORITY AND REASON CODE.
03230  M00S02801.comknwc +++|*

Seq #  *Modification Id* Act 
----------------------------+
03231  M01S02802.knwc21  ---|*         USES   A - 3, 5, 6, 7.
03232  M01S02803.knwc21  ---|*                B - 4, 5.
03233  M01S02804.knwc21  ---|*                X - 0, 3, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02805.comknwc +++|
03242  M00S02806.comknwc +++|
03243  M00S02807.comknwc +++| LGL      SB4    B0
03244  M00S02808.comknwc +++|          NZ     B6,LGL2     IF QUEUED SUPERVISORY MESSAGE
03245  M00S02809.comknwc +++|          MX0    -AHRCN
03246  M00S02810.comknwc +++|          SB5    -3
03247  M00S02811.comknwc +++|          SA3    INSB+1      CAUSE ERROR ABH
03248  M00S02812.comknwc +++|          LX4    AHRCN-AHRCS-1 RIGHT JUSTIFY REASON CODE
03249  M00S02813.comknwc +++|          BX5    -X0*X4      MASK REASON CODE
03250  M00S02814.comknwc +++|          LX3    AHADN-AHADS-1 RIGHT JUSTIFY ACN
03251  M00S02815.comknwc +++|          MX0    -AHADN
03252  M00S02816.comknwc +++|          LX4    AHACN
03253  M00S02817.comknwc +++|          BX1    -X0*X3      MASK ACN
03254  M00S02818.comknwc +++|          SA3    INSH        SUPERVISORY MESSAGE HEADER
03255  M00S02819.comknwc +++|          BX6    X4+X1       ADD ACN
03256  M00S02820.comknwc +++|          SB4    X5+B5       REASON CODE - 3
03257  M00S02821.comknwc +++|          LX6    AHACS-AHACN+1
03258  M00S02822.comknwc +++|          BX7    -X0*X3      MASK TLC
03259  M00S02823.comknwc +++|          SA6    A4+
03260  M00S02824.comknwc +++|          SA7    SMPA        SAVE MESSAGE LENGTH IN WORD
03261  M00S02825.comknwc +++|          SX2    TNCTL
03262  M00S02826.comknwc +++|          GT     B4,LGL3     IF SYSTEM ERROR
03263  M00S02827.comknwc +++|

Seq #  *Modification Id* Act 
----------------------------+
03264  M01S02828.v23l617 ---|*         ALL OTHER LOGICAL ERRORS ARE CAUSED BY TASK WITH ILLEGAL

Seq #  *Modification Id* Act 
----------------------------+
03265  M01S00016.v23l617 +++|*         ALL OTHER LOGICAL ERRORS ARE CAUSED BY TASK WITH INCORRECT
03266  M00S02829.comknwc +++|*         APPLICATION BLOCK HEADER.
03267  M00S02830.comknwc +++|
03268  M00S02831.comknwc +++|          IX5    X2*X1       ACN BIAS
03269  M00S02832.comknwc +++|          SX7    A4          SUPERVISORY ADDRESS
03270  M00S02833.comknwc +++|          LX1    18-0
03271  M00S02834.comknwc +++|          BX7    X7+X1       ACN + FWA  OF SUPERVISORY MESSAGE
03272  M00S02835.comknwc +++|          TX5    X5,VNCT     NCT ENTRY
03273  M00S02836.comknwc +++|          LX7    18-0
03274  M00S02837.comknwc +++|          SX3    B1
03275  M00S02838.comknwc +++|          SA2    X5
03276  M00S02839.comknwc +++|          MX0    -TNBON
03277  M00S02840.comknwc +++|          LX2    TNBON-TNBOS-1 RIGHT JUSTIFY OUTSTANDING OUTPUT BLOCK
03278  M00S02841.comknwc +++|          BX6    -X0*X2      MASK OUTPUT BLOCK
03279  M00S02842.comknwc +++|          IX6    X6-X3
03280  M00S02843.comknwc +++|          PL     X6,LGL1     IF NO UNDER FLOW
03281  M00S02844.comknwc +++|          BX6    X6-X6
03282  M00S02845.comknwc +++| LGL1     BX2    X0*X2
03283  M00S02846.comknwc +++|          BX7    X7+X5       ACN + FWA OF SM + NCT ENTRY
03284  M00S02847.comknwc +++|          LX3    TNSMS-TNSMN+1
03285  M00S02848.comknwc +++|          BX6    X2+X6
03286  M00S02849.comknwc +++|          LX6    TNBOS-TNBON+1
03287  M00S02850.comknwc +++|          SA7    SMPB
03288  M00S02851.comknwc +++|          BX6    X3+X6       SET SUPERVISORY MESSAGE FLAG
03289  M00S02852.comknwc +++|          SA6    A2+
03290  M00S02853.comknwc +++| LGL2     SX6    PLGR        LOGICAL ERROR REASON CODE
03291  M00S02854.comknwc +++|          LT     B4,B1,ATK   IF TASK LOGICAL ERROR

Seq #  *Modification Id* Act 
----------------------------+
03292  M01S02855.knwc21  ---| LGL3     MESSAGE SMGB       NAM LOGICAL ERROR
03293  M01S02856.knwc21  ---|          RJ     EXIT        FORCE TO ABORT

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02857.comknwc +++| NAK      SPACE  4,20
03323  M00S02858.comknwc +++|**        NAK - PROCESS BLOCK NOT DELIVERED. (FC/NAK)
03324  M00S02859.comknwc +++|*
03325  M00S02860.comknwc +++|*              1.  IF QUEUED SUPERVISORY MESSAGE GO TO STEP 5.
03326  M00S02861.comknwc +++|*              2.  DECREMENT NUMBER OF OUTSTANDING OUTPUT BLOCKS FOR
03327  M00S02862.comknwc +++|*                  CONNECTION.
03328  M00S02863.comknwc +++|*              3.  SET RECOVERY FIELD IN TST ENTRY FOR TERMINAL.
03329  M00S02864.comknwc +++|*              4.  IF NCT ROLL FIELD INDICATES TASK WAS ROLLED OUT
03330  M00S02865.comknwc +++|*                  CALL ROUTINE *EVS* TO ROLL IN TASK.
03331  M00S02866.comknwc +++|*              5.  SET *ITASK* REASON CODE TO BLOCK NOT DELIVERED.
03332  M00S02867.comknwc +++|*                  AND GO TO SCHEDULE TASK *ATK*.
03333  M00S02868.comknwc +++|*
03334  M00S02869.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03335  M00S02870.comknwc +++|*                       0 OTHERWISE.
03336  M00S02871.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03337  M00S02872.comknwc +++|*
03338  M00S02873.comknwc +++|*         EXIT   TO *ATK*.
03339  M00S02874.comknwc +++|*
03340  M00S02875.comknwc +++|*         USES   A - 3, 6, 7.
03341  M00S02876.comknwc +++|*                X - 0, 2, 3, 6, 7.
03342  M00S02877.comknwc +++|
03343  M00S02878.comknwc +++|
03344  M00S02879.comknwc +++| NAK      NZ     B6,NAK2     IF QUEUED SUPERVISORY MESSAGE
03345  M00S02880.comknwc +++|          MX0    -TNBON      MASK OUTSTANDING OUTPUT BLOCK
03346  M00S02881.comknwc +++|          LX2    TNBON-TNBOS-1 RIGHT JUSTIFY OUSTANDING BLOCK
03347  M00S02882.comknwc +++|          SX6    B1
03348  M00S02883.comknwc +++|          BX3    -X0*X2
03349  M00S02884.comknwc +++|          IX3    X3-X6       DECREMENT OUTSTANDING OUTPUT BLOCK
03350  M00S02885.comknwc +++|          BX2    X0*X2
03351  M00S02886.comknwc +++|          LX6    TSRBS-0
03352  M00S02887.comknwc +++|          PL     X3,NAK1     IF OUTSTANDING BLOCK .GE. ZERO
03353  M00S02888.comknwc +++|          BX3    X3-X3
03354  M00S02889.comknwc +++| NAK1     BX7    X2+X3
03355  M00S02890.comknwc +++|          LX7    TNBOS-TNBON+1 POSITION BACK
03356  M00S02891.comknwc +++|          SA3    X7          TST ENTRY FOR CONNECTION
03357  M00S02892.comknwc +++|          SA7    A2          RESTORE NCT ENTRY
03358  M00S02893.comknwc +++|          BX6    X3+X6       SET RECOVERY FLAG IN TST
03359  M00S02894.comknwc +++|          SA6    A3+
03360  M00S02895.comknwc +++| NAK2     SX6    PNAK
03361  M00S02896.comknwc +++|          EQ     ATK         SCHEDULE TASK
03362  M00S02897.comknwc +++| PCI      SPACE 4,25
03363  M00S02898.comknwc +++|**        PCI - PROCESS CONNECTION INITIALIZED. (FC/INIT)
03364  M00S02899.comknwc +++|*

Seq #  *Modification Id* Act 
----------------------------+
03365  M01S02900.ns2517  ---|*              1.  IF QUEUED SUPERVISORY MESSAGE GO TO STEP 4.

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

Seq #  *Modification Id* Act 
----------------------------+
03370  M01S02904.ns2517  ---|*              3.1 IF RECOVER FLAG SET IN TST, SCHEDULE *RTASK*

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02905.comknwc +++|*                  AND CLEAR THE FLAG.

Seq #  *Modification Id* Act 
----------------------------+
03375  M01S02906.ns2517  ---|*              4.  SET UP *ITASK* MESSAGE WITH LOGIN REASON CODE AND

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

Seq #  *Modification Id* Act 
----------------------------+
03378  M01S02908.ns2517  ---|*              5.  CALL ROUTINE *PRIN* TO SCHEDULE *ITASK*.
03379  M01S02909.ns2517  ---|*              6.  IF *ITASK* WAS SCHEDULED GO TO TASK SWITCHING

Seq #  *Modification Id* Act 
----------------------------+
03380  M01S00016.ns2517  +++|*              7.  CALL ROUTINE *PRIN* TO SCHEDULE *ITASK*.
03381  M01S00017.ns2517  +++|*              8.  IF *ITASK* WAS SCHEDULED GO TO TASK SWITCHING
03382  M00S02910.comknwc +++|*                  ROUTINE, ELSE GO TO QUEUE SUPERVISORY
03383  M00S02911.comknwc +++|*                  MESSAGE *SMQ*.  *ITASK* MAY NOT HAVE BEEN SCHDULED.
03384  M00S02912.comknwc +++|*                  BECAUSE NO COMMUNICATION BLOCKS WERE AVAILABLE OR
03385  M00S02913.comknwc +++|*                  *ITASK* QUEUE FOR COMMUNICATION BLOCKS WAS FULL.
03386  M00S02914.comknwc +++|*
03387  M00S02915.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03388  M00S02916.comknwc +++|*                       0 OTHERWISE.
03389  M00S02917.comknwc +++|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03390  M00S02918.comknwc +++|*                (X1) = APPLICATION CONNECTION NUMBER.
03391  M00S02919.comknwc +++|*

Seq #  *Modification Id* Act 
----------------------------+
03392  M01S02920.241l630 ---|*         EXIT   TO *TSSC5* IF *ITASK* SCHEDULED.

Seq #  *Modification Id* Act 
----------------------------+
03393  M01S00001.241l630 +++|*         EXIT   TO *TSSC8* IF *ITASK* SCHEDULED.
03394  M00S02921.comknwc +++|*                TO *SMPX* OTHERWISE.
03395  M00S02922.comknwc +++|*
03396  M00S02923.comknwc +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
03397  M00S02924.comknwc +++|*                X - ALL.
03398  M00S02925.comknwc +++|*
03399  M00S02926.comknwc +++|*         CALLS  NPT, PRIN, RSP, SMQ, SMR, SOT.
03400  M00S02927.comknwc +++|
03401  M00S02928.comknwc +++|
03402  M00S02929.comknwc +++| PCI      NZ     B6,PCI1     IF QUEUED SUPERVISORY MESSAGE
03403  M00S02930.comknwc +++|          SA3    SMCM        CONNECTION INITIALIZED SUPERVISORY MESSAGE
03404  M00S02931.comknwc +++|          LX1    AHACS-AHACN+1
03405  M00S02932.comknwc +++|          BX7    X3+X1       ADD ACN TO CONNECTION INITIALIZED

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02933.comknwc +++|          MX0    1
03413  M00S02934.comknwc +++|          SA5    X2          TST ENTRY FOR CONNECTION
03414  M00S02935.comknwc +++|          LX0    TSLIS-59
03415  M00S02936.comknwc +++|          BX6    X0+X5
03416  M00S02937.comknwc +++|          SA7    OTSB        PREPARE *NETPUT*
03417  M00S02938.comknwc +++|          LX0    TSCRS-59-TSLIS+59
03418  M00S02939.comknwc +++|          BX6    -X0*X6      CLEAR CON/REQ FLAG
03419  M00S02940.comknwc +++|          SA6    A5+         SET TERMINAL LOG IN FIELD IN TST

Seq #  *Modification Id* Act 
----------------------------+
03420  M02S00055.ns2517  ---|          SX4    B1

Seq #  *Modification Id* Act 
----------------------------+
03421  M01S00024.ns2517  +++|          SX4    1
03422  M00S02941.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  M00S02942.comknwc +++| PCI1     SA2    SMPB
03438  M00S02943.comknwc +++|          SA2    X2+         NCT ENTRY
03439  M00S02944.comknwc +++|          SA3    X2+B1       WORD 2 OF *TST* ENTRY
03440  M00S02945.comknwc +++|          LX3    59-TSCPS    CHECK CONNECTION POSTPONT FLAG
03441  M00S02946.comknwc +++|          NG     X3,PCI2     IF TO POSTPONE CONNECTION
03442  M00S02947.comknwc +++|          SX1    CILOGL+1    MESSAGE LENGTH
03443  M00S02948.comknwc +++|          SX7    CILOG       FUNCTION CODE TERMINAL LOG IN
03444  M00S02949.comknwc +++|          SX3    X2+         TST ENTRY
03445  M00S02950.comknwc +++|          SA7    INSJ        *ITASK* REASON CODE
03446  M00S02951.comknwc +++|          RJ     SOT         SET UP SYSTEM ORIGIN TASK
03447  M00S02952.comknwc +++|          SA3    X3          TST ENTRY
03448  M00S02953.comknwc +++|          LX3    59-TSARS
03449  M00S02954.comknwc +++|          RJ     RSP         RESTORE (B2) AND (B7)
03450  M00S02955.comknwc +++|          SA5    A5
03451  M00S02956.comknwc +++|          SA1    A2+TNAHW    GET TERMINAL DESCRIPTION
03452  M00S02957.comknwc +++|          BX7    X1
03453  M00S02958.comknwc +++|          SA7    A7+B1       SET UP BUFFER AREA
03454  M00S02959.comknwc +++|          NG     X3,PCI3     IF TERMINAL IN RECOVERY MODE
03455  M00S02960.comknwc +++|          SA4    A6          BUFFER HEAD
03456  M00S02961.comknwc +++|          RJ     PRIN        SCHEDULE *ITASK*
03457  M00S02962.comknwc +++|          SA1    INSI

Seq #  *Modification Id* Act 
----------------------------+
03458  M01S02963.241l630 ---|          ZR     X1,TSSC5    IF *ITASK* SCHEDULED

Seq #  *Modification Id* Act 
----------------------------+
03459  M01S00002.241l630 +++|          ZR     X1,TSSC8    IF *ITASK* SCHEDULED
03460  M00S02964.comknwc +++| PCI2     SX6    PINI
03461  M00S02965.comknwc +++|          RJ     SMR         REPLACE SUPERVISORY MESSAGE
03462  M00S02966.comknwc +++|          RJ     SMQ         QUEUE SUPERVISORY MESSAGE
03463  M00S02967.comknwc +++|          EQ     SMPX        RETURN
03464  M00S02968.comknwc +++|
03465  M00S02969.comknwc +++| PCI3     TA2    0,VCBRT     COMMUNICATION BLOCK ALLOCATION MAP
03466  M00S02970.comknwc +++|          MX7    -48
03467  M00S02971.comknwc +++|          BX7    -X7*X2
03468  M00S02972.comknwc +++|          CX3    X7
03469  M00S02973.comknwc +++|          TB3    0,-VNSIN    NUMBER OF C.B.-S FOR SMALL INPUT
03470  M00S02974.comknwc +++|          SB3    X3+B3
03471  M00S02975.comknwc +++|          SB3    B3-NCBC-1   NUMBER OF C.B.-S NEEDED FOR *RTASK*
03472  M00S02976.comknwc +++|          NG     B3,PCI2     IF NOT ENOUGH C.B.-S
03473  M00S02977.comknwc +++|          SA4    VREC        GET RECOVERY FLAG
03474  M00S02978.comknwc +++|          MX6    59
03475  M00S02979.comknwc +++|          LX6    24-0
03476  M00S02980.comknwc +++|          BX6    X6*X4       MASK OFF USER RECOVERY BIT
03477  M00S02981.comknwc +++|          SA6    A7          STORE IN WORD TWO OF MESSAGE AREA
03478  M00S02982.comknwc +++|          SX6    TYIT        INTERACTIVE TERMINAL
03479  M00S02983.comknwc +++|          SA6    A7-1        STORE IN WORD ONE OF MESSAGE AREA
03480  M00S02984.comknwc +++|          SA4    RTAS        *RTASK*
03481  M00S02985.comknwc +++|          SB3    INSI        FWA OF BUFFER
03482  M00S02986.comknwc +++|          RJ     TRN         SCHEDULE *RTASK*
03483  M00S02987.comknwc +++|          ZR     X0,PCI2     IF *RTASK* NOT SCHEDULE
03484  M00S02988.comknwc +++|          SA2    SMPB
03485  M00S02989.comknwc +++|          SA2    X2
03486  M00S02990.comknwc +++|          MX0    60-TSARN
03487  M00S02991.comknwc +++|          SA4    X2          TST ENTRY
03488  M00S02992.comknwc +++|          LX0    TSARS-TSARN+1
03489  M00S02993.comknwc +++|          BX6    X0*X4       CLEAR RECOVERY FLAG
03490  M00S02994.comknwc +++|          SA6    A4

Seq #  *Modification Id* Act 
----------------------------+
03491  M01S02995.241l630 ---|          EQ     TSSC5       ACTIVE *RTASK*

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
03499  M01S03000.ns2337  ---|*                (X6) = MESSAGE PRIORITY AND REASON CODE.
03500  M01S03001.ns2337  ---|*                (X2) = ADDRESS OF NCT ENTRY.
03501  M01S03002.ns2337  ---|*

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

Seq #  *Modification Id* Act 
----------------------------+
03503  M02S00058.ns2337  ---|*         USES   X - 1, 2, 3, 4, 6, 7.
03504  M02S00059.ns2337  ---|*                A - 2, 3, 6, 7.
03505  M02S00060.ns2337  ---|*                B - 6.

Seq #  *Modification Id* Act 
----------------------------+
03506  M01S03004.ns2337  ---|
03507  M01S03005.ns2337  ---|
03508  M01S03006.ns2337  ---| PTE      NZ     B6,PTE1     IF QUEUED SUPERVISORY MESSAGE
03509  M01S03007.ns2337  ---|          SA3    X2          TST ENTRY
03510  M01S03008.ns2337  ---|          LX3    59-TSLIS
03511  M01S03009.ns2337  ---|          PL     X3,SMP1     IF TERMINAL NOT LOGGED IN
03512  M01S03010.ns2337  ---|          SA3    SMRB        RESPOUND SUPERVISORY MESSAGE
03513  M01S03011.ns2337  ---|          LX1    AHACS-AHACN+1
03514  M01S03012.ns2337  ---|          BX7    X1+X3       ADD ACN
03515  M01S03013.ns2337  ---|          SA7    OTSB        PREPARE *NETPUT*

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

Seq #  *Modification Id* Act 
----------------------------+
03517  M01S03014.ns2337  ---|          RJ     NPT         SEND RESPOUND
03518  M01S03015.ns2337  ---| PTE1     SA2    SMPB        GET SUPERVISORY
03519  M01S03016.ns2337  ---|          LX2    -18
03520  M01S03017.ns2337  ---|          SA3    X2          GET INPUT CHARACTER
03521  M01S03018.ns2337  ---|          LX3    -36
03522  M01S03019.ns2337  ---|          SX7    X3

Seq #  *Modification Id* Act 
----------------------------+
03523  M02S00062.ns2337  ---|          SX6    X7-USB1
03524  M02S00063.ns2337  ---|          SB6    B0+
03525  M02S00064.ns2337  ---|          ZR     X6,BRK      IF USER BREAK 1
03526  M02S00065.ns2337  ---|          SX6    X7-USB2
03527  M02S00066.ns2337  ---|          ZR     X6,BRK      IF USER BREAK 2

Seq #  *Modification Id* Act 
----------------------------+
03528  M01S03020.ns2337  ---|          SX6    B1+B1       MESSAGE LENGTH
03529  M01S03021.ns2337  ---|          SA7    INSJ+1
03530  M01S03022.ns2337  ---|          SA6    SMPA
03531  M01S03023.ns2337  ---|          SX6    PTES
03532  M01S03024.ns2337  ---|          EQ     ATK         SCHEDULE TASK

Seq #  *Modification Id* Act 
----------------------------+
03533  M02S00067.ns2337  ---| RUB      SPACE  4,10
03534  M02S00068.ns2337  ---|**        RUB - RESPOND TO USER BREAK INDICATOR MARK.
03535  M02S00069.ns2337  ---|*
03536  M02S00070.ns2337  ---|*         EXIT   TO *SMP1*
03537  M02S00071.ns2337  ---|*
03538  M02S00072.ns2337  ---| RUB      EQ     SMP1        RESUME OUTPUT
03539  M02S00073.ns2337  ---|

Seq #  *Modification Id* Act 
----------------------------+
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.

Seq #  *Modification Id* Act 
----------------------------+
03550  M01S00001.knwc27  +++|*                         SUPERVISORY MESSAGE IF THE SUPERVISORY
03551  M01S00002.knwc27  +++|*                         MESSAGE IS NOT QUEUED.

Seq #  *Modification Id* Act 
----------------------------+
03552  M01S00031.ns2337  +++|*                4. SCHEDULE *ITASK*.
03553  M01S00032.ns2337  +++|*
03554  M01S00033.ns2337  +++|*         ENTRY  (X1) = APPLICATION CONNECTION NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
03555  M01S00003.knwc27  +++|*                (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03556  M01S00004.knwc27  +++|*                     = 0 OTHERWISE.

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
03580  M01S00005.knwc27  +++|          NZ     B6,PUB0     IF QUEUED MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
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

Seq #  *Modification Id* Act 
----------------------------+
03589  M01S00006.knwc27  +++| PUB0     SX6    2           MESSAGE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
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  M00S03025.comknwc +++| SHU      SPACE  4,15
03605  M00S03026.comknwc +++|**        SHU - PROCESS NETWORK SHUTDOWN. (SHUT/INSD)
03606  M00S03027.comknwc +++|*
03607  M00S03028.comknwc +++|*              1.  IF NORMAL SHUT DOWN GO TO STEP 7.
03608  M00S03029.comknwc +++|*              2.  IF A QUEUED SUPERVISORY MESSAGE GO TO STEP 5.
03609  M00S03030.comknwc +++|*              3.  DO A NETOFF.
03610  M00S03031.comknwc +++|*              4.  CALL *LOVL* TO LOAD ROUTINE *CIN* TO CLEAR
03611  M00S03032.comknwc +++|*                  TERMINAL LOGIN FIELD IN TST.
03612  M00S03033.comknwc +++|*              5.  SET FORCED SHUTDOWN REASON CODE FOR *ITASK*.
03613  M00S03034.comknwc +++|*              6.  GO TO SCHEDULE TASK *ATK*.  THE ACN EQUALS
03614  M00S03035.comknwc +++|*                  ZERO FOR THIS MESSAGE.  NO TERMINALS WILL BE ON
03615  M00S03036.comknwc +++|*                  ACN = 0.
03616  M00S03037.comknwc +++|*              7.  SET SHUTDOWN FLAG.  ROUTINE *NGL* WILL EXAMINE THIS
03617  M00S03038.comknwc +++|*                  FLAG TO DETERMINE WHEN ALL TERMINAL ACTIVITY HAS
03618  M00S03039.comknwc +++|*                  FINISHED.
03619  M00S03040.comknwc +++|*              8.  SET NORMAL SHUTDOWN REASON CODE FOR *ITASK*.
03620  M00S03041.comknwc +++|*              9.  GO TO SCHEDULE TASK *ATK*.
03621  M00S03042.comknwc +++|*
03622  M00S03043.comknwc +++|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03623  M00S03044.comknwc +++|*                       0 OTHERWISE.
03624  M00S03045.comknwc +++|*                (X4) = NETWORK SHUTDOWN SUPERVISORY MESSAGE.
03625  M00S03046.comknwc +++|*
03626  M00S03047.comknwc +++|*         EXIT   (X6) = MESSAGE PRIORITY AND REASON CODE.
03627  M00S03048.comknwc +++|*                TO *ATK*.
03628  M00S03049.comknwc +++|*
03629  M00S03050.comknwc +++|*         USES   A - 1, 6, 7.
03630  M00S03051.comknwc +++|*                X - 1, 4, 6, 7.
03631  M00S03052.comknwc +++|*
03632  M00S03053.comknwc +++|*         CALLS  LOVL, NOF.
03633  M00S03054.comknwc +++|
03634  M00S03055.comknwc +++|
03635  M00S03056.comknwc +++| SHU      LX4    59-AHSIS
03636  M00S03057.comknwc +++|          PL     X4,SHU2     IF NORMAL SHUTDOWN
03637  M00S03058.comknwc +++|          NZ     B6,SHU1     IF QUEUED SUPERVISORY MESSAGE
03638  M00S03059.comknwc +++|          RJ     NOF         DO A *NETOFF*
03639  M00S03060.comknwc +++|          SA1    LOVG        COMMUNICATION SUBSYSTEM INITIALIZATION
03640  M00S03061.comknwc +++|          RJ     LOVL        LOAD AND EXECUTE RECOVERY OVERLAY
03641  M00S03062.comknwc +++| SHU1     SX6    PTSD        FORCE SHUTDOWN
03642  M00S03063.comknwc +++|          EQ     ATK         SCHEDULE *ITASK*
03643  M00S03064.comknwc +++|
03644  M00S03065.comknwc +++|*         NORMAL SHUTDOWN.
03645  M00S03066.comknwc +++|
03646  M00S03067.comknwc +++| SHU2     SX6    PNSD        NORMAL SHUTDOWN
03647  M00S03068.comknwc +++|          EQ     ATK         SCHEDULE *ITASK*
03648  M00S03069.comknwc +++| STP      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
03649  M01S03070.ns2337  ---|*         STP - PROCESS STOP ON DOWN LINE CONNECTION. (CTRL/STOP)
03650  M01S03071.ns2337  ---|*
03651  M01S03072.ns2337  ---|*               1. IF QUEUED SUPERVISORY MESSAGE GO TO STEP 5.
03652  M01S03073.ns2337  ---|*               2. SET STOP ON DOWN LINE CONNECTION FLAG IN NCT.
03653  M01S03074.ns2337  ---|*               3. CLEAR OUTSTANDING OUTPUT BLOCK FOR CONNECTION.
03654  M01S03075.ns2337  ---|*               4. SET RECOVERY GLAG IN TST.
03655  M01S03076.ns2337  ---|*               5. SET REASON CODE FOR DOWN LINE CONNECTION.
03656  M01S03077.ns2337  ---|*               6. GO TO *ATK*.
03657  M01S03078.ns2337  ---|*
03658  M01S03079.ns2337  ---|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03659  M01S03080.ns2337  ---|*                       0 OTHERWISE.
03660  M01S03081.ns2337  ---|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03661  M01S03082.ns2337  ---|*
03662  M01S03083.ns2337  ---|*         EXIT   TO *ATK*.
03663  M01S03084.ns2337  ---|*                (X6) = MESSAGE PRIORITY AND REASON CODE.
03664  M01S03085.ns2337  ---|*
03665  M01S03086.ns2337  ---|*         USES   A - 4, 6, 7.
03666  M01S03087.ns2337  ---|*                X - 0, 3, 4, 6, 7.
03667  M01S03088.ns2337  ---|
03668  M01S03089.ns2337  ---|
03669  M01S03090.ns2337  ---| STP      NZ     B6,STP1     IF QUEUED SUPERVISORY MESSAGE
03670  M01S03091.ns2337  ---|          MX0    1
03671  M01S03092.ns2337  ---|          MX3    -TNBON
03672  M01S03093.ns2337  ---|          BX7    X0+X2       SET STOP ON DOWN LINE CONNECTION FLAG
03673  M01S03094.ns2337  ---|          LX3    TNBOS-TNBON+1
03674  M01S03095.ns2337  ---|          LX0    TSRBS-59
03675  M01S03096.ns2337  ---|          SA4    X2
03676  M01S03097.ns2337  ---|          BX7    X3*X7       CLEAR OUTSTANDING OUTPUT BLOCK COUNT
03677  M01S03098.ns2337  ---|          BX6    X4+X0       SET RECOVERY BIT IN TST
03678  M01S03099.ns2337  ---|          SA7    A2          RESTORE NCT
03679  M01S03100.ns2337  ---|          SA6    A4          RESTORE TST
03680  M01S03101.ns2337  ---| STP1     SX6    PSTP
03681  M01S03102.ns2337  ---|          EQ     ATK         SCHEDULE TASK
03682  M01S03103.ns2337  ---|
03683  M01S03104.ns2337  ---| STR      SPACE  4,20
03684  M01S03105.ns2337  ---|**        STR - PROCESS START ON DOWN LINE CONNECTION. (CTRL/START)
03685  M01S03106.ns2337  ---|*
03686  M01S03107.ns2337  ---|*                1. IF QUEUED SUPERVISORY MESSAGE GO TO STEP 4.
03687  M01S03108.ns2337  ---|*                2. CLEAR STOP ON DOWN LINE CONNECTION FLAG IN NCT.
03688  M01S03109.ns2337  ---|*                3. SET RESET FLAG IN NCT.
03689  M01S03110.ns2337  ---|*                4. GO TO *ATK*.
03690  M01S03111.ns2337  ---|*
03691  M01S03112.ns2337  ---|*         ENTRY  (B6) = 1 IF QUEUED SUPERVISORY MESSAGE.
03692  M01S03113.ns2337  ---|*                       0 OTHERWISE.
03693  M01S03114.ns2337  ---|*                (A2)/(X2) = ADDRESS OF NCT ENTRY.
03694  M01S03115.ns2337  ---|*                (X1) = APPLICATION CONNECTION NUMBER.
03695  M01S03116.ns2337  ---|*
03696  M01S03117.ns2337  ---|*         EXIT   TO *ATK*.
03697  M01S03118.ns2337  ---|*                (X6) = MESSAGE PRIORITY AND REASON CODE.
03698  M01S03119.ns2337  ---|*
03699  M01S03120.ns2337  ---|*         USES   A - 5, 6, 7.
03700  M01S03121.ns2337  ---|*                X - 0, 1, 5, 6, 7.
03701  M01S03122.ns2337  ---|*
03702  M01S03123.ns2337  ---|*         CALL   NPT.
03703  M01S03124.ns2337  ---|
03704  M01S03125.ns2337  ---|
03705  M01S03126.ns2337  ---| STR      NZ     B6,STR1     IF QUEUED SUPERVISORY MESSAGE
03706  M01S03127.ns2337  ---|          SA5    X2          TST ENTRY
03707  M01S03128.ns2337  ---|          LX5    59-TSLIS
03708  M01S03129.ns2337  ---|          PL     X5,SMP1     IF TERMINAL NOT LOGGED IN
03709  M01S03130.ns2337  ---|          MX0    1
03710  M01S03131.ns2337  ---|          LX1    AHACS-AHACN+1
03711  M01S03132.ns2337  ---|          SA5    SMRS        RESET SUPERVISORY MESSAGE
03712  M01S03133.ns2337  ---|          BX7    -X0*X2      CLEAR STOP ON DOWN LINE CONNECTION FLAG
03713  M01S03134.ns2337  ---|          BX6    X5+X1
03714  M01S03135.ns2337  ---|          SA7    A2+
03715  M01S03136.ns2337  ---|          SA6    OTSB

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

Seq #  *Modification Id* Act 
----------------------------+
03717  M01S03137.ns2337  ---|          RJ     NPT         SEND RESET SUPERVISORY MESSAGE
03718  M01S03138.ns2337  ---| STR1     SX6    PSTR
03719  M01S03139.ns2337  ---|          EQ     ATK         SCHEDULE TASK
03720  M00S03140.comknwc ---|          TITLE  SMP SUBROUTINES.
03721  M00S03141.comknwc ---| SMQ      SPACE  4,10
03722  M00S03142.comknwc ---|**        SMQ - SUPERVISORY MESSAGE QUEUED.
03723  M00S03143.comknwc ---|*
03724  M00S03144.comknwc ---|*                1. SET FLAG TO INDICATE THIS IS THE LAST SUPERVISORY
03725  M00S03145.comknwc ---|*                   MESSAGE IN QUEUE.
03726  M00S03146.comknwc ---|*                2. LET TAIL OF QUEUE (NCTB) POINT TO CURRENT
03727  M00S03147.comknwc ---|*                   NCT ENTRY.
03728  M00S03148.comknwc ---|*                3. IF EMPTY QUEUE LET HEAD OF QUEUE (NCTA) = CURRENT
03729  M00S03149.comknwc ---|*                   ACN.  ELSE LET LAST END OF QUEUE POINT TO CURRENT
03730  M00S03150.comknwc ---|*                   NCT ENTRY.
03731  M00S03151.comknwc ---|*
03732  M00S03152.comknwc ---|*         ENTRY  (SMPB) = 1/Q,5/ ,18/ACN,18/SMA,18/NCT.
03733  M00S03153.comknwc ---|*
03734  M00S03154.comknwc ---|*         USES   A - 1, 2, 3, 6, 7.
03735  M00S03155.comknwc ---|*                X - 0, 1, 2, 3, 6, 7.
03736  M00S03156.comknwc ---|
03737  M00S03157.comknwc ---|
03738  M00S03158.comknwc ---| SMQ      SUBR               ENTRY/EXIT
03739  M00S03159.comknwc ---|          SA1    SMPB
03740  M00S03160.comknwc ---|          SA2    X1          NCT ENTRY
03741  M00S03161.comknwc ---|          MX0    1
03742  M00S03162.comknwc ---|          MX3    -TNCNN
03743  M00S03163.comknwc ---|          LX0    TNQSS-59
03744  M00S03164.comknwc ---|          BX2    X0+X2       SET QUEUE FLAG
03745  M00S03165.comknwc ---|          LX3    TNCNS-TNCNN+1
03746  M00S03166.comknwc ---|          BX7    X3*X2       SET QUEUE LINK FIELD .EQ. ZERO
03747  M00S03167.comknwc ---|          LX1    -36
03748  M00S03168.comknwc ---|          SA3    NCTB
03749  M00S03169.comknwc ---|          SX6    X1          CURRENT APPLICATION CONNECTION NUMBER
03750  M00S03170.comknwc ---|          SA7    A2          NEW NCT ENTRY
03751  M00S03171.comknwc ---|          SA6    A3+         PUT ACN AT BOTTOM OF QUEUE
03752  M00S03172.comknwc ---|          ZR     X3,SMQ1     IF INITIAL QUEUE
03753  M00S03173.comknwc ---|          SX2    TNCTL
03754  M00S03174.comknwc ---|          IX2    X2*X3
03755  M00S03175.comknwc ---|          LX6    TNCNS-TNCNN+1
03756  M00S03176.comknwc ---|          TA2    X2,VNCT     LAST NCT ENTRY IN QUEUE
03757  M00S03177.comknwc ---|          BX6    X6+X2       ADD NEW LINK
03758  M00S03178.comknwc ---|          SA6    A2
03759  M00S03179.comknwc ---|          EQ     SMQX        RETURN
03760  M00S03180.comknwc ---|
03761  M00S03181.comknwc ---|*         INITIAL SET UP OF QUEUE.
03762  M00S03182.comknwc ---|
03763  M00S03183.comknwc ---| SMQ1     SA6    NCTA        HEAD OF QUEUE
03764  M00S03184.comknwc ---|          EQ     SMQX        RETURN
03765  M00S03185.comknwc ---| SMR      SPACE  4,30
03766  M00S03186.comknwc ---|**        SMR - SUPERVISORY MESSAGE REPLACE.
03767  M00S03187.comknwc ---|*
03768  M00S03188.comknwc ---|*                1. IF NCT ENTRY IS NOT QUEUED, GO TO STEP 7.
03769  M00S03189.comknwc ---|*                2. COMPARE PRIORITIES IF INCOMING SUPERVISORY MESSAGE
03770  M00S03190.comknwc ---|*                   PRIORITY IS NO GREATER THAN THE RESIDENT SUPERVISORY
03771  M00S03191.comknwc ---|*                   PRIORITY, RETURN.
03772  M00S03192.comknwc ---|*                3. IF CURRENT ACN IS HEAD OF QUEUE, RESET HEAD
03773  M00S03193.comknwc ---|*                   OF QUEUE AND GO TO STEP 5.
03774  M00S03194.comknwc ---|*                4. FIND PREDECESSOR OF CURRENT ACN AND RESET LINKAGE.
03775  M00S03195.comknwc ---|*                5. CLEAR LINK FIELD AND QUEUE FLAG IN CURRENT ENTRY.
03776  M00S03196.comknwc ---|*                6. IF CURRENT ACN IS TAIL OF QUEUE, RESET TAIL OF
03777  M00S03197.comknwc ---|*                   QUEUE.
03778  M00S03198.comknwc ---|*                7. REPLACE SUPERVISORY MESSAGE AND RETURN.
03779  M00S03199.comknwc ---|*
03780  M00S03200.comknwc ---|*         ENTRY  (SMPB) = 1/Q,5/ ,18/ACN,18/SMA,18/NCT.
03781  M00S03201.comknwc ---|*                (X6) = 42/0,6/I,6/R,6/C.
03782  M00S03202.comknwc ---|*                I = INCOMING SUPERVISORY MESSAGE PRIORITY.
03783  M00S03203.comknwc ---|*                R = RESIDENT SUPERVISORY MESSAGE PRIORITY.
03784  M00S03204.comknwc ---|*                C = *ITASK* REASON CODE.
03785  M00S03205.comknwc ---|*                (NCTA) = HEAD OF QUEUE.
03786  M00S03206.comknwc ---|*                (NCTB) = TAIL OF QUEUE.
03787  M00S03207.comknwc ---|*
03788  M00S03208.comknwc ---|*                A - 1, 3, 4, 5, 6, 7.
03789  M00S03209.comknwc ---|*                B - 3, 4, 6.
03790  M00S03210.comknwc ---|*                X - 0, 1, 3, 4, 5, 6, 7.
03791  M00S03211.comknwc ---|*
03792  M00S03212.comknwc ---|*         CALLS  EXIT.
03793  M00S03213.comknwc ---|
03794  M00S03214.comknwc ---|
03795  M00S03215.comknwc ---| SMR      SUBR               ENTRY/EXIT
03796  M00S03216.comknwc ---|          MX7    -6
03797  M00S03217.comknwc ---|          LX6    -6
03798  M00S03218.comknwc ---|          SA1    SMPB
03799  M00S03219.comknwc ---|          BX5    -X7*X6      RESIDENT PRIORITY
03800  M00S03220.comknwc ---|          LX6    -6
03801  M00S03221.comknwc ---|          SA3    X1          NCT ENTRY
03802  M00S03222.comknwc ---|          SA4    X1+B1
03803  M00S03223.comknwc ---|          LX3    59-TNQSS    LEFT JUSTIFY QUEUE FIELD
03804  M00S03224.comknwc ---|          AX1    18
03805  M00S03225.comknwc ---|          MX0    -5          MASK PRIORITY
03806  M00S03226.comknwc ---|          SB6    X5          RESIDENT PRIORITY
03807  M00S03227.comknwc ---|          SX6    X6
03808  M00S03228.comknwc ---|          SB4    X1
03809  M00S03229.comknwc ---|          PL     X3,SMR3     IF NO QUEUED SUPERVISORY MESSAGE
03810  M00S03230.comknwc ---|          BX5    -X0*X4
03811  M00S03231.comknwc ---|          IX7    X6-X5       COMPARE PRIORITY
03812  M00S03232.comknwc ---|          NG     X7,SMRX     IF LOWER PRIORITY
03813  M00S03233.comknwc ---|          ZR     X7,SMRX     IF EQUAL PRIORITY
03814  M00S03234.comknwc ---|          SX6    TNCTL       LENGTH OF NCT ENTRY
03815  M00S03235.comknwc ---|          SA5    NCTA        HEAD OF QUEUE
03816  M00S03236.comknwc ---|          AX1    18
03817  M00S03237.comknwc ---|          SX4    X1          CURRENT ACN
03818  M00S03238.comknwc ---|          MX0    -TNCNN      MASK ACN
03819  M00S03239.comknwc ---|          LX3    TNCNN-TNCNS-1-59+TNQSS  RIGHT JUSTIFY QUEUE ACN
03820  M00S03240.comknwc ---|          ZR     X5,SMRX     IF EMPTY QUEUE
03821  M00S03241.comknwc ---|
03822  M00S03242.comknwc ---|*         PROCESS DELETE ENTRY FROM QUEUE.
03823  M00S03243.comknwc ---|
03824  M00S03244.comknwc ---|          IX7    X4-X5
03825  M00S03245.comknwc ---|          NZ     X7,SMR1     IF NOT HEAD OF QUEUE
03826  M00S03246.comknwc ---|          BX6    -X0*X3      MASK NEXT ACN
03827  M00S03247.comknwc ---|
03828  M00S03248.comknwc ---|*         RESET HEAD OF QUEUE.
03829  M00S03249.comknwc ---|
03830  M00S03250.comknwc ---|          SB3    X6
03831  M00S03251.comknwc ---|          SA6    A5          HEAD OF QUEUE
03832  M00S03252.comknwc ---|          EQ     SMR2        RESET NCT ENTRY
03833  M00S03253.comknwc ---|
03834  M00S03254.comknwc ---|*         RESET LINKAGE IN QUEUE.
03835  M00S03255.comknwc ---|
03836  M00S03256.comknwc ---| SMR1     IX7    X5*X6
03837  M00S03257.comknwc ---|          SB3    X5          SAVE PREDECESSOR
03838  M00S03258.comknwc ---|          TA1    X7,VNCT     NCT ENTRY
03839  M00S03259.comknwc ---|          LX1    TNCNN-TNCNS-1 RIGHT JUSTIFY NEXT ACN IN QUEUE
03840  M00S03260.comknwc ---|          BX5    -X0*X1      MASK ACN IN QUEUE

Seq #  *Modification Id* Act 
----------------------------+
03841  M01S03261.knwc5   ---|          ZR     X5,SMR4     IF END OF QUEUE

Seq #  *Modification Id* Act 
----------------------------+
03842  M01S00007.knwc5   +++|          ZR     X5,SMR3     IF END OF QUEUE
03843  M00S03262.comknwc +++|          IX7    X4-X5
03844  M00S03263.comknwc +++|          NZ     X7,SMR1     IF NOT PREDECESSOR
03845  M00S03264.comknwc +++|          BX7    X0*X1       CLEAR LINK FIELD
03846  M00S03265.comknwc +++|          BX6    -X0*X3      MASK NEXT ACN
03847  M00S03266.comknwc +++|          BX7    X7+X6
03848  M00S03267.comknwc +++|          LX7    TNCNS-TNCNN+1
03849  M00S03268.comknwc +++|          SA7    A1          RESET THE LINK IN PREDECESSOR
03850  M00S03269.comknwc +++| SMR2     LX3    TNQSN-TNQSS-1-TNCNN+TNCNS+1  RIGHT JUSTIFY QUEUE FIELD
03851  M00S03270.comknwc +++|          MX0    59          CLEAR QUEUE FLAG
03852  M00S03271.comknwc +++|          BX6    X0*X3
03853  M00S03272.comknwc +++|          LX6    TNQSS-TNQSN+1
03854  M00S03273.comknwc +++|          SA6    A3          NCT ENTRY
03855  M00S03274.comknwc +++|
03856  M00S03275.comknwc +++|*         RESET TAIL OF QUEUE.
03857  M00S03276.comknwc +++|
03858  M00S03277.comknwc +++|          SA5    NCTB        TAIL OF QUEUE
03859  M00S03278.comknwc +++|          IX7    X4-X5
03860  M00S03279.comknwc +++|          NZ     X7,SMR3     IF NOT TAIL OF QUEUE
03861  M00S03280.comknwc +++|          SX7    B3          PREDECESSOR
03862  M00S03281.comknwc +++|          SA7    A5
03863  M00S03282.comknwc +++|
03864  M00S03283.comknwc +++|*         REPLACE SUPERVISORY MESSAGE.
03865  M00S03284.comknwc +++|
03866  M00S03285.comknwc +++| SMR3     SA5    B4          NEW SUPERVISORY MESSAGE
03867  M00S03286.comknwc +++|          SX1    B6
03868  M00S03287.comknwc +++|          BX7    X5+X1       ADD RESIDENT PRIORITY
03869  M00S03288.comknwc +++|          SA7    A3+B1       PUT NEW SUPERVISORY MESSAGE IN NCT W2
03870  M00S03289.comknwc +++|          EQ     SMRX        RETURN
03871  M00S03290.comknwc +++|

Seq #  *Modification Id* Act 
----------------------------+
03872  M01S03291.knwc5   ---| SMR4     RJ     EXIT        QUEUE ERROR
03873  M00S03292.comknwc ---|          TITLE  SND - TERMINAL OUTPUT PROCESSOR.
03874  M00S03293.comknwc ---| SND      SPACE  4,20
03875  M00S03294.comknwc ---|**        SND - SEND TERMINAL OUTPUT.
03876  M00S03295.comknwc ---|*
03877  M00S03296.comknwc ---|*                 1. IF TERMINAL LOGGED IN, GO TO STEP 3.
03878  M00S03297.comknwc ---|*                    IF PREVIOUS NETWORK REQUEST NOT COMPLETE, PUT TASK

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

Seq #  *Modification Id* Act 
----------------------------+
03880  M02S00079.knwc29  ---|*                    IF RECALL AND GO TO STEP 24.

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

Seq #  *Modification Id* Act 
----------------------------+
03885  M01S03302.ns2337  ---|*                 3. IF TERMINAL DOES NOT HAVE A DOWN LINE STOP STATUS,
03886  M01S03303.ns2337  ---|*                    GO TO STEP  5.
03887  M01S03304.ns2337  ---|*                 4. IF TASK SEND WITH RECALL RETURN DOWNLINE STOP TO
03888  M01S03305.ns2337  ---|*                    TASK AND GO TO TASK SWITCH ROUTINE, ELSE ABORT
03889  M01S03306.ns2337  ---|*                    THE TASK.
03890  M01S03307.ns2337  ---|*                 5. IF TERMINAL HAS SEND WITH RECALL ACTIVE *TNSR*,
03891  M01S03308.ns2337  ---|*                    GO TO STEP 26.
03892  M01S03309.ns2337  ---|*                 6. IF OUTSTANDING OUTPUT BLOCK IS ZERO, GO TO 10.
03893  M01S03310.ns2337  ---|*                 7. IF TASK CALL SEND WITH RECALL, GO TO STEP 26.
03894  M01S03311.ns2337  ---|*                 8. IF THERE IS NO BLOCK LIMIT, GO TO STEP 11.
03895  M01S03312.ns2337  ---|*                 9. IF OUTPUT DOES NOT EXCEED BLOCK LIMIT, GO TO 11
03896  M01S03313.ns2337  ---|*                    ELSE  GO TO STEP 6.
03897  M01S03314.ns2337  ---|*                10. SET RECALL BIT (TNSR) IN NCT IF NEEDED.
03898  M01S03315.ns2337  ---|*                11. FORMAT APPLICATION BLOCK HEADER, IF TASK DOES NOT
03899  M01S03316.ns2337  ---|*                    SUPPLY ABH USE DEFAULT VALUES FOR ABH.  PUT ABH IN
03900  M01S03317.ns2337  ---|*                    NCT.
03901  M01S03318.ns2337  ---|*                12. UPDATE OUTSTANDING OUTPUT BLOCK COUNTER (TNBO) IN
03902  M01S03319.ns2337  ---|*                    NCT.
03903  M01S03320.ns2337  ---|*                13. DO A NETPUT.
03904  M01S03321.ns2337  ---|*                    AND CALL ROUTINE *PPM* TO CHECK IF INPUT COMPLETE.
03905  M01S03322.ns2337  ---|*                14. IF SEND WITH CEASE, EXIT TO CEASE ROUTINE *SCT2*.
03906  M01S03323.ns2337  ---|*                15. IF SEND WITH NO RECALL, EXIT TO *TSSC*.
03907  M01S03324.ns2337  ---|*                16. COMPUTE TIME THAT BLOCK MUST BE DELIVERED BY USING
03908  M01S03325.ns2337  ---|*                    CURRENT TIME PLUS INSTALLATION ASSEMBLY WAIT TIME
03909  M01S03326.ns2337  ---|*                    AND PUT TIME IN TASK SYSTEM AREA.
03910  M01S03327.ns2337  ---|*                17. SET TASK RETURN TO STEP 24 UPON RESCHEDULING.
03911  M01S03328.ns2337  ---|*                18. IF MESSAGE IS LESS THAN INSTALLATION DEFINED
03912  M01S03329.ns2337  ---|*                    LIMIT, GO TO STEP 27.
03913  M01S03330.ns2337  ---|*                19. IF TASK HAS DATA MANAGER ACTIVITY OR ROLLOUT TABLE
03914  M01S03331.ns2337  ---|*                    IS UNAVAILABLE, GO TO STEP 27.
03915  M01S03332.ns2337  ---|*                20. SET ROLLOUT BIT *TNSE* IN NCT.
03916  M01S03333.ns2337  ---|*                21. USE ACN AND ABN TO IDENTIFY THE EVENT AND EXIT
03917  M01S03334.ns2337  ---|*                    TO ROLLOUT ROUTINE.
03918  M01S03335.ns2337  ---|*                22. IF THERE IS A SUPERVISORY MESSAGE IN NCT, COPY THE
03919  M01S03336.ns2337  ---|*                    SUPERVISORY MESSAGE TO THE TASK STATUS ADDRESS,
03920  M01S03337.ns2337  ---|*                    CLEAR THE RECALL FIELD IN THE NCT CLEAR THE
03921  M01S03338.ns2337  ---|*                    SUPERVISORY MESSAGE FROM THE NCT, AND EXIT TO THE
03922  M01S03339.ns2337  ---|*                    TASK SWITCHING ROUTINE.
03923  M01S03340.ns2337  ---|*                23. IF THE TIME FOR THE BLOCK DELIVERED SUPERVISORY
03924  M01S03341.ns2337  ---|*                    MESSAGE HAS PASSED, RETURN A BLOCK NOT DELIVERED
03925  M01S03342.ns2337  ---|*                    SUPERVISORY MESSAGE TO THE TASK STATUS ADDRESS
03926  M01S03343.ns2337  ---|*                    CLEAR THE RECALL FIELD IN THE NCT, ZERO NUMBER OF
03927  M01S03344.ns2337  ---|*                    OUTSTANDING OUTPUT BLOCKS IN THE NCT AND EXIT TO
03928  M01S03345.ns2337  ---|*                    THE TASK SWITCHING ROUTINE.
03929  M01S03346.ns2337  ---|*                24. TASK MUST CONTINUE TO WAIT, SET TASK RETURN
03930  M01S03347.ns2337  ---|*                    ADDRESS.  AND GO TO STEP 27.
03931  M01S03348.ns2337  ---|*                25. PREPARE ENTRY REGISTERS FOR *SND* AND GO TO STEP 1.
03932  M01S03349.ns2337  ---|*                26. LET RETURN ADDRESS BE STEP 25 UPON TASK
03933  M01S03350.ns2337  ---|*                    RESCHEDULED.
03934  M01S03351.ns2337  ---|*                27. PUT TASK IN RECALL AND EXIT TO EXECUTIVE RECALL

Seq #  *Modification Id* Act 
----------------------------+
03935  M01S00080.ns2337  +++|*                 3. IF TERMINAL HAS SEND WITH RECALL ACTIVE *TNSR*,
03936  M01S00081.ns2337  +++|*                    GO TO STEP 24.
03937  M01S00082.ns2337  +++|*                 4. IF OUTSTANDING OUTPUT BLOCK IS ZERO, GO TO 8.
03938  M01S00083.ns2337  +++|*                 5. IF TASK CALL SEND WITH RECALL, GO TO STEP 24.
03939  M01S00084.ns2337  +++|*                 6. IF THERE IS NO BLOCK LIMIT, GO TO STEP 9.
03940  M01S00085.ns2337  +++|*                 7. IF OUTPUT DOES NOT EXCEED BLOCK LIMIT, GO TO 9

Seq #  *Modification Id* Act 
----------------------------+
03941  M02S00086.knwc29  ---|*                    ELSE  GO TO STEP 4.

Seq #  *Modification Id* Act 
----------------------------+
03942  M01S00002.knwc29  +++|*                    ELSE GO TO STEP 26.

Seq #  *Modification Id* Act 
----------------------------+
03943  M01S00087.ns2337  +++|*                 8. SET RECALL BIT (TNSR) IN NCT IF NEEDED.
03944  M01S00088.ns2337  +++|*                 9. FORMAT APPLICATION BLOCK HEADER, IF TASK DOES NOT
03945  M01S00089.ns2337  +++|*                    SUPPLY ABH USE DEFAULT VALUES FOR ABH.  PUT ABH IN
03946  M01S00090.ns2337  +++|*                    NCT.
03947  M01S00091.ns2337  +++|*                10. UPDATE OUTSTANDING OUTPUT BLOCK COUNTER (TNBO) IN
03948  M01S00092.ns2337  +++|*                    NCT.
03949  M01S00093.ns2337  +++|*                11. DO A NETPUT AND CALL ROUTINE *PPM* TO CHECK IF
03950  M01S00094.ns2337  +++|*                    INPUT COMPLETE.
03951  M01S00095.ns2337  +++|*                12. IF SEND WITH CEASE, EXIT TO CEASE ROUTINE *SCT2*.
03952  M01S00096.ns2337  +++|*                13. IF SEND WITH NO RECALL, EXIT TO *TSSC*.
03953  M01S00097.ns2337  +++|*                14. COMPUTE TIME THAT BLOCK MUST BE DELIVERED BY USING
03954  M01S00098.ns2337  +++|*                    CURRENT TIME PLUS INSTALLATION ASSEMBLY WAIT TIME
03955  M01S00099.ns2337  +++|*                    AND PUT TIME IN TASK SYSTEM AREA.
03956  M01S00100.ns2337  +++|*                15. SET TASK RETURN TO STEP 22 UPON RESCHEDULING.
03957  M01S00101.ns2337  +++|*                16. IF MESSAGE IS LESS THAN INSTALLATION DEFINED
03958  M01S00102.ns2337  +++|*                    LIMIT, GO TO STEP 25.
03959  M01S00103.ns2337  +++|*                17. IF TASK HAS DATA MANAGER ACTIVITY OR ROLLOUT TABLE
03960  M01S00104.ns2337  +++|*                    IS UNAVAILABLE, GO TO STEP 25.
03961  M01S00105.ns2337  +++|*                18. SET ROLLOUT BIT *TNSE* IN NCT.
03962  M01S00106.ns2337  +++|*                19. USE ACN AND ABN TO IDENTIFY THE EVENT AND EXIT
03963  M01S00107.ns2337  +++|*                    TO ROLLOUT ROUTINE.
03964  M01S00108.ns2337  +++|*                20. IF THERE IS A SUPERVISORY MESSAGE IN NCT, COPY THE
03965  M01S00109.ns2337  +++|*                    SUPERVISORY MESSAGE TO THE TASK STATUS ADDRESS,
03966  M01S00110.ns2337  +++|*                    CLEAR THE RECALL FIELD IN THE NCT, CLEAR THE
03967  M01S00111.ns2337  +++|*                    SUPERVISORY MESSAGE FROM THE NCT, AND EXIT TO THE
03968  M01S00112.ns2337  +++|*                    TASK SWITCHING ROUTINE.
03969  M01S00113.ns2337  +++|*                21. IF THE TIME FOR THE BLOCK DELIVERED SUPERVISORY
03970  M01S00114.ns2337  +++|*                    MESSAGE HAS PASSED, RETURN A BLOCK NOT DELIVERED
03971  M01S00115.ns2337  +++|*                    SUPERVISORY MESSAGE TO THE TASK STATUS ADDRESS,
03972  M01S00116.ns2337  +++|*                    CLEAR THE RECALL FIELD IN THE NCT, ZERO NUMBER OF
03973  M01S00117.ns2337  +++|*                    OUTSTANDING OUTPUT BLOCKS IN THE NCT AND EXIT TO
03974  M01S00118.ns2337  +++|*                    THE TASK SWITCHING ROUTINE.
03975  M01S00119.ns2337  +++|*                22. TASK MUST CONTINUE TO WAIT, SET TASK RETURN
03976  M01S00120.ns2337  +++|*                    ADDRESS, AND GO TO STEP 25.
03977  M01S00121.ns2337  +++|*                23. PREPARE ENTRY REGISTERS FOR *SND*, GO TO STEP 1.
03978  M01S00122.ns2337  +++|*                24. LET RETURN ADDRESS BE STEP 23 UPON TASK
03979  M01S00123.ns2337  +++|*                    RESCHEDULED.
03980  M01S00124.ns2337  +++|*                25. PUT TASK IN RECALL AND EXIT TO EXECUTIVE RECALL.

Seq #  *Modification Id* Act 
----------------------------+
03981  M01S00003.knwc29  +++|*                26. IF SUBCP DROPPED BY OPERATOR, EXIT TO CEASE
03982  M01S00004.knwc29  +++|*                    ROUTINE *SCT1* ELSE GO TO STEP 5.
03983  M00S03352.comknwc +++|*
03984  M00S03353.comknwc +++|*         ENTRY  (B3) = WORD COUNT OF MESSAGE.
03985  M00S03354.comknwc +++|*                (B5) = TASK RA.
03986  M00S03355.comknwc +++|*                (B6) = -FWA OF MESSAGE +1.
03987  M00S03356.comknwc +++|*                (A4) = FWA OF TST ENTRY FOR TERMINAL.
03988  M00S03357.comknwc +++|*                (X4) = FIRST WORD OF TERMINAL STATUS TABLE ENTRY FOR
03989  M00S03358.comknwc +++|*                       TERMINAL WITH FIELD *TSLI* AT BIT 59.
03990  M00S03359.comknwc +++|*                (A2) = FWA OF REQUEST.
03991  M00S03360.comknwc +++|*                (X2) = FIRST WORD OF REQUEST LEFT SHIFT 30 BITS.
03992  M00S03361.comknwc +++|*                (PPMA) = NETWORK REQUEST STATUS.
03993  M00S03362.comknwc +++|*                (VNON) = NETWORK COMMUNICATION STATUS.
03994  M00S03363.comknwc +++|*                (NSUP) = NETWORK STATUS WORD.
03995  M00S03364.comknwc +++|*                (SCRC+1) = RETURN ADDRESS IF LAST MESSAGE BLOCK.
03996  M00S03365.comknwc +++|*
03997  M00S03366.comknwc +++|*         EXIT   TO *TSSC* IF SEND COMPLETE.
03998  M00S03367.comknwc +++|*                TO *ROL2.1* IF TASK IS TO BE ROLLED.
03999  M00S03368.comknwc +++|*                TO *TRCL2* IF TASK PUT IN RECALL.
04000  M00S03369.comknwc +++|*                TO *SCT2* IF SEND WITH CEASE.
04001  M00S03370.comknwc +++|*                TO *SCT1.4* IF NULL MESSAGE BEFORE CEASE.
04002  M00S03371.comknwc +++|*                TO *SCT39.2* IF NULL MESSAGE BEFORE WAITINP.

Seq #  *Modification Id* Act 
----------------------------+
04003  M01S00125.ns2337  +++|*                TO *SRM* IF USER BREAK.
04004  M00S03372.comknwc +++|*                TO *TERR27* IF TERMINAL LOGGED OUT.

Seq #  *Modification Id* Act 
----------------------------+
04005  M01S00005.knwc29  +++|*                TO *SCT1* IF SUBCP DROPPED.
04006  M00S03373.comknwc +++|*                (B1) = 1.
04007  M00S03374.comknwc +++|*
04008  M00S03375.comknwc +++|*         USES   X - ALL.
04009  M00S03376.comknwc +++|*                B - 3, 4, 5, 6.
04010  M00S03377.comknwc +++|*                A - 1, 2, 3, 4, 5, 6, 7.
04011  M00S03378.comknwc +++|*
04012  M00S03379.comknwc +++|*         CALLS  FFR, NPT, PNT, PTR, RSP.
04013  M00S03380.comknwc +++|*
04014  M00S03381.comknwc +++|*         MACROS NET.
04015  M00S03382.comknwc +++|
04016  M00S03383.comknwc +++|
04017  M00S03384.comknwc +++| SND      SA3    VNON        *NAM* STATUS
04018  M00S03385.comknwc +++|          SA1    NSUP
04019  M00S03386.comknwc +++|          NZ     X3,SND16    IF *NAM* NOT RUNNING
04020  M00S03387.comknwc +++|          SA3    PPMA
04021  M00S03388.comknwc +++|          PL     X1,SND14    IF NETWORK REQUEST NOT COMPLETE
04022  M00S03389.comknwc +++|          NZ     X3,SND14    IF NETGET OUTSTANDING
04023  M00S03390.comknwc +++|          MX0    -TSCNN      MASK ACN
04024  M00S03391.comknwc +++|          LX2    59-55+30    LEFT JUSTIFY RECALL STATUS
04025  M00S03392.comknwc +++|          PL     X4,SND16    IF TERMINAL NOT LOGGED IN
04026  M00S03393.comknwc +++| SND1     LX4    TSCNN-TSCNS-1-59+TSLIS  RIGHT JUSTIFY ACN
04027  M00S03394.comknwc +++|          SX1    TNCTL
04028  M00S03395.comknwc +++|          BX3    -X0*X4      ACN
04029  M00S03396.comknwc +++|          IX1    X1*X3
04030  M00S03397.comknwc +++|          TA1    X1,VNCT     NCT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04031  M01S03398.ns2337  ---|          NG     X1,SND16    IF TERMINAL STOP ON DOWN LINE CONNECTION
04032  M00S03399.comknwc ---|          LX3    AHADS-AHADN+1
04033  M00S03400.comknwc ---|          LX1    59-TNSRS    PREVIOUS RECALL STATUS
04034  M00S03401.comknwc ---|          MX0    -TNBON      MASK FOR OUTSTANDING OUTPUT BLOCK
04035  M00S03402.comknwc ---|          NG     X1,SND14    IF LAST RECALL NOT COMPLETE
04036  M01S03403.ns2337  ---|          LX1    TNBON-TNBOS-1-59+TNSRS

Seq #  *Modification Id* Act 
----------------------------+
04037  M01S00126.ns2337  +++|          LX1    59-TNBKS-59+TNSRS
04038  M01S00127.ns2337  +++|          PL     X1,SND1.1   IF NO USER BREAK
04039  M01S00128.ns2337  +++|          EQ     SRM         SEND RESUME OUTPUT MARKER
04040  M01S00129.ns2337  +++|
04041  M01S00130.ns2337  +++| SND1.1   LX1    TNBON-TNBOS-1-59+TNBKS
04042  M00S03404.comknwc +++|          BX4    -X0*X1      MASK OUSTANDING OUTPUT BLOCK
04043  M00S03405.comknwc +++|          ZR     X4,SND3     IF NO OUTSTANDING OUTPUT BLOCK
04044  M00S03406.comknwc +++|          BX6    X0*X1       CLEAR OUTSTANDING OUTPUT BLOCK
04045  M00S03407.comknwc +++|          LX1    TNBLN-TNBLS-1-TNBON+TNBOS+1  RIGHT JUSTIFY BLOCK LIMIT
04046  M00S03408.comknwc +++|          NG     X2,SND14    IF TASK CALL SEND WITH RECALL
04047  M00S03409.comknwc +++|          BX5    -X0*X1      OUTPUT BLOCK LIMIT
04048  M00S03410.comknwc +++|          SX4    X4+B1
04049  M00S03411.comknwc +++|          ZR     X5,SND2     IF NO BLOCK LIMIT
04050  M00S03412.comknwc +++|          IX5    X5-X4       BLOCK LIMIT - OUTPUT BLOCKS
04051  M00S03413.comknwc +++|          SX0    1
04052  M00S03414.comknwc +++|          NG     X5,SND13    IF BLOCK LIMIT EXCEEDED
04053  M00S03415.comknwc +++| SND2     BX6    X4+X6
04054  M00S03416.comknwc +++|          LX6    TNBOS-TNBON+1
04055  M00S03417.comknwc +++|          EQ     SND4        SET UP APPLICATION HEADER
04056  M00S03418.comknwc +++|
04057  M00S03419.comknwc +++| SND3     SX4    B1
04058  M00S03420.comknwc +++|          BX6    X4+X1       SET NEW OUTSTANDING BLOCK EQUALS 1
04059  M00S03421.comknwc +++|          LX6    TNBOS-TNBON+1
04060  M00S03422.comknwc +++|          LX4    TNSMS-TNSMN+1
04061  M00S03423.comknwc +++|          PL     X2,SND4     IF SEND WITHOUT RECALL
04062  M00S03424.comknwc +++|          BX6    -X4*X6      CLEAR SUPERVISORY MESSAGE FLAG
04063  M00S03425.comknwc +++|
04064  M00S03426.comknwc +++|*         SET UP APPLICATION BLOCK HEADER.
04065  M00S03427.comknwc +++|
04066  M00S03428.comknwc +++| SND4     SX7    B1
04067  M00S03429.comknwc +++|          BX7    X2*X7       MASK RETURN ABN FLAG
04068  M00S03430.comknwc +++|          SA6    A1          FIRST WORD OF NCT ENTRY
04069  M00S03431.comknwc +++|          LX2    59-54-59+55
04070  M00S03432.comknwc +++|          SA5    A2+2        USER DEFINED ABH
04071  M00S03433.comknwc +++|          NG     X2,SND6     IF USER SUPPLIED ABH
04072  M00S03434.comknwc +++|          LX2    59-58-59+54
04073  M00S03435.comknwc +++|          SX1    B3          WORD COUNT OF MESSAGE
04074  M00S03436.comknwc +++|          SA5    DABH        DEFAULT ABH
04075  M00S03437.comknwc +++|          NG     X2,SND5     IF NOT ONLY BLOCK
04076  M00S03438.comknwc +++|          SA5    DABI        ABH WITH ABT .EQ. 1
04077  M00S03439.comknwc +++| SND5     SX4    10
04078  M00S03440.comknwc +++|          LX2    59-54-59+58
04079  M00S03441.comknwc +++|          MX0    -AHLCN      MASK TLC FIELD
04080  M00S03442.comknwc +++|          SX7    B1
04081  M00S03443.comknwc +++|          IX6    X1*X4       MESSAGE LENGTH IN CHARACTERS
04082  M00S03444.comknwc +++|          BX4    -X0*X6
04083  M00S03445.comknwc +++|          BX5    X4+X5       ADD TLC
04084  M00S03446.comknwc +++| SND6     MX0    -AHBNN      UPDATE ABN
04085  M00S03447.comknwc +++|          SA4    VSND        BLOCK NUMBER
04086  M00S03448.comknwc +++|          IX6    X4+X7
04087  M00S03449.comknwc +++|          BX6    -X0*X6

Seq #  *Modification Id* Act 
----------------------------+
04088  M01S03450.knwc26  ---|          SA6    A4

Seq #  *Modification Id* Act 
----------------------------+
04089  M01S00001.knwc26  +++|          SX4    X6
04090  M01S00002.knwc26  +++|          PL     X4,SND6.1   IF NOT ABN OVERFLOW
04091  M01S00003.knwc26  +++|          BX6    X6-X6       RESET APPLICATION BLOCK NUMBER
04092  M01S00004.knwc26  +++| SND6.1   SA6    A4
04093  M00S03451.comknwc +++|          ZR     X7,SND7     IF BLOCK NUMBER NOT PROVIDED
04094  M00S03452.comknwc +++|          LX0    AHBNS-AHBNN+1
04095  M00S03453.comknwc +++|          LX6    AHBNS-AHBNN+1
04096  M00S03454.comknwc +++|          BX5    X0*X5       CLEAR ABN FIELD
04097  M00S03455.comknwc +++|          BX5    X5+X6       ADD ABN
04098  M00S03456.comknwc +++| SND7     LX2    59-56-59+54 LEFT JUSTIFY BLOCK NUMBER FLAG
04099  M00S03457.comknwc +++|          PL     X2,SND8     IF BLOCK NUMBER NOT TO BE RETURNED
04100  M00S03458.comknwc +++|          SA4    A2+B1
04101  M00S03459.comknwc +++|          MX0    -AHBNN
04102  M00S03460.comknwc +++|          LX6    AHBNN-AHBNS-1
04103  M00S03461.comknwc +++|          BX4    X0*X4       CLEAR BLOCK FIELD
04104  M00S03462.comknwc +++|          BX7    X4+X6       RETURN BLOCK NUMBER
04105  M00S03463.comknwc +++|          SA7    A4+
04106  M00S03464.comknwc +++|
04107  M00S03465.comknwc +++|*         PREPARE NETWORK COMMUNICATION.
04108  M00S03466.comknwc +++|
04109  M00S03467.comknwc +++| SND8     SX4    B5-B6       FWA OF MESSAGE
04110  M00S03468.comknwc +++|          MX0    -AHADN
04111  M00S03469.comknwc +++|          LX0    AHADS-AHADN+1
04112  M00S03470.comknwc +++|          SX6    X4+B1
04113  M00S03471.comknwc +++|          BX7    X0*X5       CLEAR OLD CONNECTION NUMBER
04114  M00S03472.comknwc +++|          BX7    X3+X7       ADD CONNECTION NUMBER INTO ABH
04115  M00S03473.comknwc +++|          SX5    A2+         FWA OF REQUEST
04116  M00S03474.comknwc +++|          SA7    A1+TNAHW    PUT IO FLAG WORD ON NCT WORD TWO
04117  M00S03475.comknwc +++|          LX3    AHACS-AHACN+1-AHADS+AHADN-1
04118  M00S03476.comknwc +++|          SA4    A1          NCT ENTRY
04119  M00S03477.comknwc +++|          SA6    SND9+4      MESSAGE ADDRESS FOR NETPUT
04120  M00S03478.comknwc +++|          LX5    18
04121  M00S03479.comknwc +++|          SX6    A1          ADDRESS OF NCT ENTRY
04122  M00S03480.comknwc +++|          MX0    -18
04123  M00S03481.comknwc +++|          BX6    X5+X6       FWA OF REQUEST + NCT ENTRY
04124  M00S03482.comknwc +++|          SB6    X4          TST ADDRESS
04125  M00S03483.comknwc +++|          SA2    A2          FWA OF REQUEST
04126  M00S03484.comknwc +++|          SA7    INDI        PREPARE ABH FOR NETPUT
04127  M00S03485.comknwc +++|          SA6    SNDA
04128  M00S03486.comknwc +++|          BX2    X0*X2       CLEAR NUM FIELD
04129  M00S03487.comknwc +++|          SX6    B3          MESSAGE LENGTH IN WORDS

Seq #  *Modification Id* Act 
----------------------------+
04130  M01S03488.ns2337  ---|          LX4    59-TNBKS    TERMINAL BREAK FIELD
04131  M00S03489.comknwc ---|          MX0    6
04132  M00S03490.comknwc ---|          BX6    X2+X6       ADD MESSAGE LENGTH
04133  M00S03491.comknwc ---|          LX2    59-53
04134  M00S03492.comknwc ---|          BX5    X0*X7       GET ABT
04135  M00S03493.comknwc ---|          LX5    6
04136  M00S03494.comknwc ---|          SB4    X5-2
04137  M00S03495.comknwc ---|          NG     X2,SND8.1   IF FINAL SEND FOR THE TRANSACTION
04138  M00S03496.comknwc ---|          SX0    B1+
04139  M00S03497.comknwc ---|          NZ     B4,SND8.1   IF NOT LAST MESSAGE BLOCK
04140  M00S03498.comknwc ---|          ERRNZ  TSMSW-1     MESSAGE BLOCK SENT FLAG NOT IN WORD 1
04141  M00S03499.comknwc ---|          ERRNZ  TSMSN-1     MESSAGE BLOCK SENT FLAG LENGTH .NE. 1
04142  M00S03500.comknwc ---|          SA5    B6+B1       TST WORD TWO
04143  M00S03501.comknwc ---|          LX0    TSMSS-TSMSN+1
04144  M00S03502.comknwc ---|          BX7    X0+X5       PUT MESSAGE BLOCK SEND FLAG
04145  M00S03503.comknwc ---|          SA7    A5          UPDATE TST WORD TWO
04146  M00S03504.comknwc ---| SND8.1   SA6    B2+SCRC     SAVE FIRST WORD OF REQUEST
04147  M01S03505.ns2337  ---|          PL     X4,SND9     IF NO TERMINAL BREAK
04148  M01S03506.ns2337  ---|          MX0    1
04149  M01S03507.ns2337  ---|          BX7    -X0*X4      CLEAR BREAK FIELD

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

Seq #  *Modification Id* Act 
----------------------------+
04151  M02S00075.ns2337  ---|          SA5    SMRO        RESUME OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
04152  M01S03509.ns2337  ---|          LX7    TNBKS-59
04153  M01S03510.ns2337  ---|          BX6    X5+X3       ADD ACN
04154  M01S03511.ns2337  ---|          SA7    A4+         UPDATE NCT ENTRY
04155  M01S03512.ns2337  ---|          SA6    OTSB

Seq #  *Modification Id* Act 
----------------------------+
04156  M02S00076.ns2337  ---|          BX4    X4-X4

Seq #  *Modification Id* Act 
----------------------------+
04157  M01S03513.ns2337  ---|          RJ     NPT         SEND RESET TO NAM
04158  M00S03514.comknwc ---| SND9     NET    PUT,INDI,0
04159  M00S03515.comknwc ---|          SA1    SREG
04160  M00S03516.comknwc ---|          SA2    NSUP        NETWORK STATUS
04161  M00S03517.comknwc ---|          SB7    X1
04162  M00S03518.comknwc ---|          AX1    18
04163  M00S03519.comknwc ---|          SB2    X1
04164  M00S03520.comknwc ---|          NG     X2,SND9.1   IF NETPUT COMPLETED
04165  M00S03521.comknwc ---|          RJ     PTR         PUT TASK IN RECALL
04166  M00S03522.comknwc ---|
04167  M00S03523.comknwc ---|*         PROCESS RETURN FROM NAM.
04168  M00S03524.comknwc ---|
04169  M00S03525.comknwc ---| SND9.1   MX0    -24
04170  M00S03526.comknwc ---|          BX7    X7-X7
04171  M00S03527.comknwc ---|          SA4    LTIME       CURRENT TIME
04172  M00S03528.comknwc ---|          SX5    WTIM        WAIT FOR BLOCK DELIVERED
04173  M00S03529.comknwc ---|          LX4    -36
04174  M00S03530.comknwc ---|          BX4    -X0*X4
04175  M00S03531.comknwc ---|          IX4    X4+X5       TIME BEFORE ACTIVE
04176  M00S03532.comknwc ---|          SX6    B2+NUAPL    TASK RA
04177  M00S03533.comknwc ---|          SB4    B0          DO NOT ABORT ON CEASE
04178  M00S03534.comknwc ---|          SA2    B2+SCRC
04179  M00S03535.comknwc ---|          SA3    INDI        ABH
04180  M00S03536.comknwc ---|          SB5    X6          TASK RA
04181  M00S03537.comknwc ---|          LX2    59-53
04182  M00S03538.comknwc ---|          PL     X2,SND9.2   IF NOT FINAL SEND BEFORE CEASE OR WAITINP
04183  M00S03539.comknwc ---|          SA5    A2+B1       RETURN ADDRESS
04184  M00S03540.comknwc ---|          SB3    X5
04185  M00S03541.comknwc ---|          JP     B3          RETURN
04186  M00S03542.comknwc ---|
04187  M00S03543.comknwc ---| SND9.2   LX2    59-58-59+53
04188  M00S03544.comknwc ---|          SA7    X6+B1       CLEAR TASK RA+1
04189  M00S03545.comknwc ---|          SX5    B2+CB1C
04190  M00S03546.comknwc ---|          NG     X2,SCT1     IF SEND WITH CEASE
04191  M00S03547.comknwc ---|          SA1    SNDA        FWA OF NCT ENTRY
04192  M00S03548.comknwc ---|          MX0    AHACN       MASK FOR ACN
04193  M00S03549.comknwc ---|          SA5    X1          NCT ENTRY
04194  M00S03550.comknwc ---|          AX1    18
04195  M00S03551.comknwc ---|          IX6    X1-X6       FWA OF REQUEST RELATIVE TO TASK RA
04196  M00S03552.comknwc ---|          LX6    -18
04197  M00S03553.comknwc ---|          LX2    59-55-59+58 TASK RECALL FIELD
04198  M00S03554.comknwc ---|          BX6    X6+X4
04199  M00S03555.comknwc ---|          LX3    59-AHADS
04200  M00S03556.comknwc ---|          BX1    X0*X3       MASK ACN
04201  M00S03557.comknwc ---|          PL     X2,TSSC     IF SEND WITHOUT RECALL
04202  M00S03558.comknwc ---|          MX3    1
04203  M00S03559.comknwc ---|          LX3    TNSRS-59
04204  M00S03560.comknwc ---|          SA4    B7+B1       SUBCONTROL POINT TABLE WORD TWO
04205  M00S03561.comknwc ---|          LX2    55-59       RIGHT JUSTIFY NUM
04206  M00S03562.comknwc ---|          BX7    X3+X5       SET RECALL FLAG
04207  M00S03563.comknwc ---|          LX1    -18
04208  M00S03564.comknwc ---|          SA7    A5
04209  M00S03565.comknwc ---|          LX4    59-57       POSITION CM RESIDENT BIT
04210  M00S03566.comknwc ---|          SX5    MLIM        MESSAGE MARGIN
04211  M00S03567.comknwc ---|          BX6    X1+X6       FWA OF REQUEST + ACN + TIME
04212  M00S03568.comknwc ---|          SX3    X2          MESSAGE LENGTH
04213  M00S03569.comknwc ---|          SX7    SND10       RETURN ADDRESS
04214  M00S03570.comknwc ---|          SA6    B2+RCLA     RECALL STATUS WORD TWO
04215  M00S03571.comknwc ---|          NG     X4,TRCL2    IF CM RESIDENT TASK
04216  M00S03572.comknwc ---|          SA4    B2+CB1C
04217  M00S03573.comknwc ---|          IX3    X5-X3
04218  M00S03574.comknwc ---|          SX5    X4
04219  M00S03575.comknwc ---|          PL     X3,TRCL2    IF MESSAGE LESS THAN LIMIT
04220  M00S03576.comknwc ---|          NZ     X5,TRCL2    IF OUTSTANDING DATA MANAGER REQUEST
04221  M00S03577.comknwc ---|          SB4    EVTO        TERMINAL OUTPUT THRESHOLD ROLLOUT
04222  M00S03578.comknwc ---|          RJ     FFR         RESERVE ROLLOUT TABLE
04223  M00S03579.comknwc ---|          ZR     X0,TRCL2    IF ROLLOUT TABLE FULL
04224  M00S03580.comknwc ---|
04225  M00S03581.comknwc ---|*         SET FLAG IN NCT INDICATE TASK IS ROLLED OUT.
04226  M00S03582.comknwc ---|
04227  M00S03583.comknwc ---|          SA4    B2+RCLA
04228  M00S03584.comknwc ---|          BX6    X4
04229  M00S03585.comknwc ---|          MX3    1
04230  M00S03586.comknwc ---|          SA7    B2+SCRC
04231  M00S03587.comknwc ---|          SA6    A7+B1
04232  M00S03588.comknwc ---|          LX3    TNSES-59    ROLLOUT FLAG
04233  M00S03589.comknwc ---|          SA2    A5          NCT ENTRY
04234  M00S03590.comknwc ---|          BX6    X2+X3
04235  M00S03591.comknwc ---|          SA6    A2+         UPDATE NCT ENTRY
04236  M00S03592.comknwc ---|          SA4    ITIME
04237  M00S03593.comknwc ---|          SX3    13B         TIMED ROLLOUT AND RESTART FLAGS
04238  M00S03594.comknwc ---|          MX7    -RTTLN      MASK SECONDS
04239  M00S03595.comknwc ---|          AX4    36
04240  M00S03596.comknwc ---|          BX4    -X7*X4      CURRENT TIME IN SECONDS
04241  M00S03597.comknwc ---|          LX3    54
04242  M00S03598.comknwc ---|          SX2    WTIM        ROLLOUT FOR *WTIM* SECONDS
04243  M00S03599.comknwc ---|          IX4    X2+X4
04244  M00S03600.comknwc ---|          SA2    INDI        APPLICATION BLOCK HEADER
04245  M00S03601.comknwc ---|          LX4    30
04246  M00S03602.comknwc ---|          BX4    X3+X4
04247  M00S03603.comknwc ---|          SA3    B2+CB2C     GET COMMUNICATION BLOCK ADDRESS
04248  M00S03604.comknwc ---|          TX7    X3,-VCBSA   CALCULATE C.B. INDEX
04249  M00S03605.comknwc ---|          LX7    18
04250  M00S03606.comknwc ---|          LX1    -12
04251  M00S03607.comknwc ---|          MX3    -18
04252  M00S03608.comknwc ---|          LX2    AHBNN-AHBNS-1 RIGHT JUSTIFY APPLICATION BLOCK NUMBER
04253  M00S03609.comknwc ---|          BX3    -X3*X2
04254  M00S03610.comknwc ---|          BX6    X3+X1       ROLLOUT EVENT   ACN + ABN
04255  M00S03611.comknwc ---|          BX1    X4+X7       13B + TIME + C.B. INDEX
04256  M00S03612.comknwc ---|          PX6    B4,X6       ROLLOUT EVENT  ACN + ABN
04257  M00S03613.comknwc ---|          EQ     ROL3        ROLLOUT TASK
04258  M00S03614.comknwc ---|
04259  M00S03615.comknwc ---|*         PROCESS RETURN FROM RECALL AFTER SEND.
04260  M00S03616.comknwc ---|
04261  M00S03617.comknwc ---| SND10    SA1    B2+RCLA
04262  M00S03618.comknwc ---|          SA5    LTIME       CURRENT TIME
04263  M00S03619.comknwc ---|          MX0    -24
04264  M00S03620.comknwc ---|          LX5    -36
04265  M00S03621.comknwc ---|          BX6    -X0*X1
04266  M00S03622.comknwc ---|          AX1    30
04267  M00S03623.comknwc ---|          BX5    -X0*X5
04268  M00S03624.comknwc ---|          MX0    -12
04269  M00S03625.comknwc ---|          SB5    B2+NUAPL
04270  M00S03626.comknwc ---|          SX7    TNCTL
04271  M00S03627.comknwc ---|          BX2    -X0*X1      MASK ACN
04272  M00S03628.comknwc ---|          MX0    1
04273  M00S03629.comknwc ---|          IX7    X2*X7
04274  M00S03630.comknwc ---|          AX1    12
04275  M00S03631.comknwc ---|          IX5    X6-X5
04276  M00S03632.comknwc ---|          SX1    B5+X1       FWA OF REQUEST
04277  M00S03633.comknwc ---|          TA4    X7,VNCT     NCT ENTRY
04278  M00S03634.comknwc ---|          SA3    A4+B1
04279  M00S03635.comknwc ---|          LX4    59-TNBDS    LEFT JUSTIFY BLOCK DELIVERED FLAG
04280  M00S03636.comknwc ---|          BX7    X3          SUPERVISORY MESSAGE
04281  M00S03637.comknwc ---|          LX2    AHACS-AHACN+1
04282  M00S03638.comknwc ---|          NG     X4,SND11    IF BLOCK DELIVERED
04283  M00S03639.comknwc ---|          BX6    X4
04284  M00S03640.comknwc ---|          LX4    59-TNSMS-59+TNBDS
04285  M00S03641.comknwc ---|          NG     X4,SND12    IF SUPERVISORY MESSAGE
04286  M00S03642.comknwc ---|          PL     X5,TRCL     IF STILL TIME TO WAIT
04287  M00S03643.comknwc ---|          SA5    SMAX        BLOCK NO DELIVERED
04288  M00S03644.comknwc ---|          BX7    X5+X2       ADD ACN
04289  M00S03645.comknwc ---|          EQ     SND12       RETURN BLOCK NO DELIVERED
04290  M00S03646.comknwc ---|
04291  M00S03647.comknwc ---| SND11    SA5    SMAK        BLOCK DELIVERED
04292  M00S03648.comknwc ---|          BX7    X5+X2       ADD ACN
04293  M00S03649.comknwc ---|          BX6    -X0*X4      CLEAR BLOCK DELIVER FLAG
04294  M00S03650.comknwc ---| SND12    LX6    TNBDS-59
04295  M00S03651.comknwc ---|          SA7    X1+3
04296  M00S03652.comknwc ---|          LX0    TNSRS-59
04297  M00S03653.comknwc ---|          BX6    -X0*X6      CLEAR RECALL FLAG
04298  M00S03654.comknwc ---|          SA6    A4          RESET NCT ENTRY
04299  M00S03655.comknwc ---|          EQ     TSSC        EXIT TO MAIN LOOP
04300  M00S03656.comknwc ---|
04301  M00S03657.comknwc ---|*         UPDATE NUMBER OF TIMES BLOCK LIMIT EXCEEDED.
04302  M00S03658.comknwc ---|
04303  M00S03659.comknwc ---| SND13    SA3    STAT9
04304  M00S03660.comknwc ---|          IX6    X3+X0       INCREMENT BY ONE
04305  M00S03661.comknwc ---|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
04306  M01S00006.knwc29  +++|          SA3    B7+SCDRW    SUB-CP WORD 2
04307  M01S00007.knwc29  +++|          LX3    59-SCDRS
04308  M01S00008.knwc29  +++|          SB4    B1          CEASE WITHOUT ANY ACTION
04309  M01S00009.knwc29  +++|          NG     X3,SCT1     IF DROPPED BY OPERATOR - CEASE
04310  M00S03662.comknwc +++|
04311  M00S03663.comknwc +++|*         SAVE SEND PARAMETERS FOR RECALL.
04312  M00S03664.comknwc +++|
04313  M00S03665.comknwc +++| SND14    SX3    B3          WORD COUNT OF MESSAGE
04314  M00S03666.comknwc +++|          SX1    A2-B2       FWA OF REQUEST FROM TASK SYSTEM AREA
04315  M00S03667.comknwc +++|          SX6    A4          TST ENTRY
04316  M00S03668.comknwc +++|          LX3    18
04317  M00S03669.comknwc +++|          SX7    SND15       RETURN ADDRESS
04318  M00S03670.comknwc +++|          BX6    X3+X6
04319  M00S03671.comknwc +++|          LX1    18
04320  M00S03672.comknwc +++|          BX7    X1+X7
04321  M00S03673.comknwc +++|          SA6    B2+RCLA
04322  M00S03674.comknwc +++|          EQ     TRCL2       PUT TASK IN RECALL
04323  M00S03675.comknwc +++|
04324  M00S03676.comknwc +++|*         SET UP SEND AFTER RECALL.
04325  M00S03677.comknwc +++|
04326  M00S03678.comknwc +++| SND15    LX1    -18
04327  M00S03679.comknwc +++|          SA3    B2+RCLA
04328  M00S03680.comknwc +++|          SX1    X1          FWA OF REQUEST
04329  M00S03681.comknwc +++|          SB5    B2+NUAPL    TASK RA
04330  M00S03682.comknwc +++|          SA4    X3          TST ENTRY
04331  M00S03683.comknwc +++|          SA2    B2+X1       FWA OF REQUEST WITH RESPECT TO TAF
04332  M00S03684.comknwc +++|          LX3    -18
04333  M00S03685.comknwc +++|          LX2    -30
04334  M00S03686.comknwc +++|          SB6    X2          FWA OF MESSAGE
04335  M00S03687.comknwc +++|          LX4    59-TSLIS
04336  M00S03688.comknwc +++|          SB3    X3          WORD COUNT
04337  M00S03689.comknwc +++|          SB6    B1-B6
04338  M00S03690.comknwc +++|          EQ     SND         TRY AGAIN
04339  M00S03691.comknwc +++|

Seq #  *Modification Id* Act 
----------------------------+
04340  M01S03692.ns2337  ---|*         PROCESS STOP ON DOWN LINE CONNECTION.

Seq #  *Modification Id* Act 
----------------------------+
04341  M01S00131.ns2337  +++|*         PROCESS NAM DOWN OR USER NOT LOGGED IN.
04342  M00S03693.comknwc +++|
04343  M00S03694.comknwc +++| SND16    PL     X2,SND17    IF SEND WITH NO RECALL
04344  M00S03695.comknwc +++|          SA5    SMCE        CONNECTION END SUPERVISORY MESSAGE
04345  M00S03696.comknwc +++|          LX3    AHACS-AHACN+1
04346  M00S03697.comknwc +++|          BX7    X3+X5       ADD ACN
04347  M00S03698.comknwc +++|          SA7    A2+3        RETURN CONNECTION END
04348  M00S03699.comknwc +++|          EQ     TSSC        MAIN LOOP
04349  M00S03700.comknwc +++|
04350  M00S03701.comknwc +++|*         SCHEDULE *CTASK* FOR RECOVERABLE TRANSACTION.
04351  M00S03702.comknwc +++|
04352  M00S03703.comknwc +++| SND17    SA4    A4+1        GET TERMINAL NAME
04353  M00S03704.comknwc +++|          SA1    B2+CB2C     GET C.B. ADDRESS
04354  M00S03705.comknwc +++|          SA2    X1+CBRTW
04355  M00S03706.comknwc +++|          MX0    42
04356  M00S03707.comknwc +++|          LX2    59-CBRTS
04357  M00S03708.comknwc +++|          SA1    X1+CMBHL+1  GET TERMINAL NAME
04358  M00S03709.comknwc +++|          PL     X2,TERR27   IF NOT A RECOVERABLE TRANSACTION
04359  M00S03710.comknwc +++|          BX3    X1-X4
04360  M00S03711.comknwc +++|          BX2    X0*X3
04361  M00S03712.comknwc +++|          NZ     X2,TERR27   IF NOT SEND TO THE ORIGINAL TERMINAL
04362  M00S03713.comknwc +++|          RJ     PNT         PROCESS NETWORK OR TERMINAL FAILURE
04363  M00S03714.comknwc +++|          EQ     TERR27      ABORT TASK
04364  M00S03715.comknwc +++|
04365  M00S03716.comknwc +++| SNDA     BSS    1           24/0,18/FWA OF REQUEST,18/NCT ENTRY
04366  M00S03717.comknwc +++| SNDB     CON    0           NETPUT FLAG - ADDRESS OF SUBCP + RCL
04367  M01S00132.ns2337  +++| SRM      SPACE  4,25
04368  M01S00133.ns2337  +++|**        SRM - SEND RESUME OUTPUT MARKER.
04369  M01S00134.ns2337  +++|*
04370  M01S00135.ns2337  +++|*         ENTRY  IF CALLED BY *CTD* -
04371  M01S00136.ns2337  +++|*                (B4) = PARAMETER BLOCK ADDRESS.
04372  M01S00137.ns2337  +++|*                (A1) = TST ENTRY OF TERMINAL.
04373  M01S00138.ns2337  +++|*                (X1) = .GE. 0.
04374  M01S00139.ns2337  +++|*                (X2) = APPLICATION CONNECTION NUMBER.
04375  M01S00140.ns2337  +++|*                (A3) = NCT ENTRY.
04376  M01S00141.ns2337  +++|*
04377  M01S00142.ns2337  +++|*                IF CALLED BY *SND* -
04378  M01S00143.ns2337  +++|*                (B3) = WORD COUNT OF MESSAGE.
04379  M01S00144.ns2337  +++|*                (A1) = NCT ENTRY.
04380  M01S00145.ns2337  +++|*                (X1) = .LT. 0.
04381  M01S00146.ns2337  +++|*                (A2) = FWA OF REQUEST.
04382  M01S00147.ns2337  +++|*                (X3) = APPLICATION CONNECTION NUMBER IN BITS 47-36.
04383  M01S00148.ns2337  +++|*                (A4) = FWA OF TST OF TERMINAL.
04384  M01S00149.ns2337  +++|*
04385  M01S00150.ns2337  +++|*         EXIT   TO *TRCL2*.
04386  M01S00151.ns2337  +++|*
04387  M01S00152.ns2337  +++|*         USES   X - ALL.
04388  M01S00153.ns2337  +++|*                A - 1, 2, 3, 6, 7.
04389  M01S00154.ns2337  +++|*                B - 3.
04390  M01S00155.ns2337  +++|*
04391  M01S00156.ns2337  +++|*         CALLS  NPT, RSP.
04392  M01S00157.ns2337  +++|
04393  M01S00158.ns2337  +++|
04394  M01S00159.ns2337  +++| SRM      NG     X1,SRM1     IF FROM *SND*
04395  M01S00160.ns2337  +++|          SX1    A1
04396  M01S00161.ns2337  +++|          BX3    X2
04397  M01S00162.ns2337  +++|          LX3    AHADS-AHADN+1
04398  M01S00163.ns2337  +++|          SB3    B2+NUAPL
04399  M01S00164.ns2337  +++|          SX2    B4-B3
04400  M01S00165.ns2337  +++|          LX1    18
04401  M01S00166.ns2337  +++|          BX6    X1+X2
04402  M01S00167.ns2337  +++|          SA2    A3+         NCT ENTRY
04403  M01S00168.ns2337  +++|          SX7    CTD4
04404  M01S00169.ns2337  +++|          EQ     SRM2        SEND RESUME OUTPUT MARKER
04405  M01S00170.ns2337  +++|
04406  M01S00171.ns2337  +++| SRM1     SX1    B3          WORD COUNT OF MESSAGE
04407  M01S00172.ns2337  +++|          SX2    A2-B2       FWA OF REQUEST FROM TASK SYSTEM AREA
04408  M01S00173.ns2337  +++|          SX6    A4+         TST ENTRY
04409  M01S00174.ns2337  +++|          LX1    18
04410  M01S00175.ns2337  +++|          SX7    SND15       RETURN ADDRESS
04411  M01S00176.ns2337  +++|          BX6    X1+X6
04412  M01S00177.ns2337  +++|          LX2    18
04413  M01S00178.ns2337  +++|          BX7    X2+X7
04414  M01S00179.ns2337  +++|          SA2    A1+         NCT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04415  M02S00180.ns2729  ---| SRM2     SA7    SRMA

Seq #  *Modification Id* Act 
----------------------------+
04416  M01S00001.ns2729  +++| SRM2     SA7    SRMC

Seq #  *Modification Id* Act 
----------------------------+
04417  M01S00181.ns2337  +++|          SA6    B2+RCLA
04418  M01S00182.ns2337  +++|          MX0    -TNBON      MASK OUTPUT BLOCK
04419  M01S00183.ns2337  +++|          LX2    TNBON-TNBOS-1
04420  M01S00184.ns2337  +++|          BX4    -X0*X2      OUTSTANDING OUTPUT BLOCKS
04421  M01S00185.ns2337  +++|          BX6    X0*X2
04422  M01S00186.ns2337  +++|          LX2    TNBLN-TNBLS-1-TNBON+TNBOS+1
04423  M01S00187.ns2337  +++|          BX5    -X0*X2      BLOCK LIMIT
04424  M01S00188.ns2337  +++|          SX4    X4+B1
04425  M01S00189.ns2337  +++|          IX5    X5-X4       BLOCK LIMIT - OUTSTANDING OUTPUT BLOCKS
04426  M01S00190.ns2337  +++|          NG     X5,SRM3     IF BLOCK LIMIT EXCEEDED
04427  M01S00191.ns2337  +++|          BX6    X4+X6
04428  M01S00192.ns2337  +++|          LX6    59-TNBKS-TNBON+TNBOS+1
04429  M01S00193.ns2337  +++|          MX0    -59         CLEAR USER BREAK FIELD
04430  M01S00194.ns2337  +++|          BX6    -X0*X6
04431  M01S00195.ns2337  +++|          LX6    59-59-59+TNBKS
04432  M01S00196.ns2337  +++|          SA6    A2          REPLACE WORD ONE OF NCT
04433  M01S00197.ns2337  +++|          LX3    AHACS-AHACN+1-AHADS+AHADN-1
04434  M01S00198.ns2337  +++|          BX7    X3
04435  M01S00199.ns2337  +++|          SA7    SRMB        SAVE ACN
04436  M01S00200.ns2337  +++|          SA1    SMRB
04437  M01S00201.ns2337  +++|          BX7    X1+X3
04438  M01S00202.ns2337  +++|          SX4    B1          ASYNCHRONOUS SUPERVISORY MESSAGE
04439  M01S00203.ns2337  +++|          SA7    OTSB
04440  M01S00204.ns2337  +++|          RJ     NPT         SEND INTR/RSP
04441  M01S00205.ns2337  +++|          BX4    X4-X4       SYNCHRONOUS SUPERVISORY MESSAGE
04442  M01S00206.ns2337  +++|          SA2    SMRO
04443  M01S00207.ns2337  +++|          BX7    X2
04444  M01S00208.ns2337  +++|          SA7    OTSB        APPLICATION BLOCK HEADER
04445  M01S00209.ns2337  +++|          SA3    SRMB        GET ACN
04446  M01S00210.ns2337  +++|          RJ     NPT         DO A NETPUT

Seq #  *Modification Id* Act 
----------------------------+
04447  M02S00211.ns2729  ---|          SA1    SRMA

Seq #  *Modification Id* Act 
----------------------------+
04448  M01S00002.ns2729  +++|          SA1    SRMC

Seq #  *Modification Id* Act 
----------------------------+
04449  M01S00212.ns2337  +++|          BX7    X1          RECALL RETURN ADDRESS
04450  M01S00213.ns2337  +++| SRM3     EQ     TRCL2       PUT TASK IN RECALL
04451  M01S00214.ns2337  +++|
04452  M01S00215.ns2337  +++|

Seq #  *Modification Id* Act 
----------------------------+
04453  M02S00216.ns2729  ---| SRMA     CON    0

Seq #  *Modification Id* Act 
----------------------------+
04454  M01S00003.ns2729  +++| SRMC     CON    0

Seq #  *Modification Id* Act 
----------------------------+
04455  M01S00217.ns2337  +++| SRMB     CON    0           ACN
04456  M00S03718.comknwc +++| PNT      SPACE  4,15
04457  M00S03719.comknwc +++|**        PNT - PROCESS NETWORK OR TERMINAL FAILURE.
04458  M00S03720.comknwc +++|*
04459  M00S03721.comknwc +++|*         ENTRY  (B2) = FWA OF TASK SYSTEM AREA.
04460  M00S03722.comknwc +++|*                (SCTC) = *CTASK* BIAS.
04461  M00S03723.comknwc +++|*
04462  M00S03724.comknwc +++|*         EXIT   TO *SCT1* IF RECOVERY INSTALLED.
04463  M00S03725.comknwc +++|*
04464  M00S03726.comknwc +++|*         USES   X - 1, 2, 3, 4, 6.
04465  M00S03727.comknwc +++|*                A - 1, 2, 3, 4, 6.
04466  M00S03728.comknwc +++|*                B - 4, 5.
04467  M00S03729.comknwc +++|*
04468  M00S03730.comknwc +++|*         CALLS  REM.
04469  M00S03731.comknwc +++|
04470  M00S03732.comknwc +++|
04471  M00S03733.comknwc +++| PNT      SUBR               ENTRY/EXIT
04472  M00S03734.comknwc +++| .A       IFEQ   IPTAR,1     IF AUTOMATIC RECOVERY INSTALLED
04473  M00S03735.comknwc +++|          SA2    B2+SECR     CHECK FOR *SECURE* REQUEST
04474  M00S03736.comknwc +++|          ZR     X2,PNT1     IF NOT A *SECURE* REQUEST
04475  M00S03737.comknwc +++|          BX7    X7-X7
04476  M00S03738.comknwc +++|          SA7    A2          CLEAR *SECURE* REQUEST WORD
04477  M00S03739.comknwc +++|          SA1    B2+SECH     APPLICATION BLOCK HEADER
04478  M00S03740.comknwc +++|          SB5    B2+NUAPL    TASK RA
04479  M00S03741.comknwc +++|          RJ     REM         RESTORE END OF MESSAGE
04480  M00S03742.comknwc +++| PNT1     SA3    SCTC        *CTASK* BIAS
04481  M00S03743.comknwc +++|          SA2    B2+CB2C     GET C.B. ADDRESS
04482  M00S03744.comknwc +++|          SB4    B0+         NORMAL CEASE PARAMETER
04483  M00S03745.comknwc +++|          BX6    X3
04484  M00S03746.comknwc +++|          LX6    -12
04485  M00S03747.comknwc +++|          SA6    X2+CBTLW    CALL *CTASK*
04486  M00S03748.comknwc +++|          SA3    X2+CMBHL+1  WORD TWO OF C.B. USER HEADER
04487  M00S03749.comknwc +++|          MX6    1           ADD SYSTEM ORIGIN FLAG
04488  M00S03750.comknwc +++|          LX6    17-59
04489  M00S03751.comknwc +++|          SX5    B2+CB1C     C.B. WORD ONE
04490  M00S03752.comknwc +++|          BX6    X3+X6
04491  M00S03753.comknwc +++|          SA6    A3          RESTORE WORD TWO OF C.B. USER HEADER
04492  M00S03754.comknwc +++|          SA3    X2+CBSOW    WORD SIX OF C.B. SYSTEM HEADER
04493  M00S03755.comknwc +++|          MX6    1           ADD SYSTEM ORIGIN FLAG
04494  M00S03756.comknwc +++|          LX6    CBSOS-59
04495  M00S03757.comknwc +++|          BX3    X6+X3
04496  M00S03758.comknwc +++|          LX6    CBTRS-59-CBSOS+59  CLEAR RESTARTED FLAG
04497  M00S03759.comknwc +++|          BX6    -X6*X3
04498  M00S03760.comknwc +++|          SA6    A3          RESTORE WORD SIX OF C.B. SYSTEM HEADER

Seq #  *Modification Id* Act 
----------------------------+
04499  M01S03761.ns2145  ---|          SX6    TYTF        TERMINAL FAILURE

Seq #  *Modification Id* Act 
----------------------------+
04500  M01S00001.ns2145  +++|          MX6    CBRCN       ADD RECOVERY FOR *CDCS* FLAG
04501  M01S00002.ns2145  +++|          SA3    X5
04502  M01S00003.ns2145  +++|          LX6    CBRCS-59    SET RECOVERY FOR *CDCS*
04503  M01S00004.ns2145  +++|          BX6    X6+X3
04504  M01S00005.ns2145  +++|          SA6    A3+         RESTORE WORD ONE OF C.B. SYSTEM HEADER
04505  M01S00006.ns2145  +++| PNT2     SX6    TYTF        TERMINAL FAILURE
04506  M00S03762.comknwc +++|          SA6    B2+NUAPL+SUAC+CMBRL  WORD ONE OF TASK MESSAGE AREA
04507  M00S03763.comknwc +++|          SA3    VREC        GET RECOVERY FLAG
04508  M00S03764.comknwc +++|          MX6    59
04509  M00S03765.comknwc +++|          LX6    24
04510  M00S03766.comknwc +++|          BX6    X6*X3
04511  M00S03767.comknwc +++|          SA6    A6+B1       WORD TWO OF MESSAGE AREA
04512  M00S03768.comknwc +++|          EQ     SCT1        PROCESS CALLTSK WITH CEASE
04513  M00S03769.comknwc +++| .A       ELSE
04514  M00S03770.comknwc +++|          EQ     PNTX        RETURN
04515  M00S03771.comknwc +++| .A       ENDIF
04516  M00S03772.comknwc +++|
04517  M00S03773.comknwc +++|          TITLE  FACILITY ROUTINES.
04518  M00S03774.comknwc +++| PTR      SPACE  4,15
04519  M00S03775.comknwc +++|**        PTR - PUT TASK IN RECALL.
04520  M00S03776.comknwc +++|*
04521  M00S03777.comknwc +++|*         ROUTINE *PTR* IS CALLED AFTER A TASK SENDS A DATA MESSAGE
04522  M00S03778.comknwc +++|*         DOWN LINE AND THE *AIP* CAN NOT COMPLETE THE PROCESS.
04523  M00S03779.comknwc +++|*         THE TASK IS PUT IN RECALL AND STORAGE MOVEMENT
04524  M00S03780.comknwc +++|*         OF THE TASK IS PROHIBITED UNTIL THE *AIP*
04525  M00S03781.comknwc +++|*         COMPLETES ITS PROCESS.
04526  M00S03782.comknwc +++|*
04527  M00S03783.comknwc +++|*         ENTRY  TO *PTR2*, IF TASK ACTIVATED FROM RECALL.
04528  M00S03784.comknwc +++|*
04529  M00S03785.comknwc +++|*         EXIT   TO *TRCL2* IF NETWORK REQUEST IS NOT COMPLETE.
04530  M00S03786.comknwc +++|*
04531  M00S03787.comknwc +++|*         USES   A - 1, 2, 6, 7.
04532  M00S03788.comknwc +++|*                X - 0, 1, 2, 6, 7.
04533  M00S03789.comknwc +++|
04534  M00S03790.comknwc +++|
04535  M00S03791.comknwc +++| PTR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
04536  M01S00006.knwc23  +++|          SA1    SNDB        CHECK PRIOR TASK RECALL STATUS
04537  M01S00007.knwc23  +++|          ZR     X1,PTR1     IF LAST REQUEST COMPLETE
04538  M01S00008.knwc23  +++|          SA1    X1
04539  M01S00009.knwc23  +++|          MX7    1           SET COMPLETE FLAG
04540  M01S00010.knwc23  +++|          BX7    X7+X1
04541  M01S00011.knwc23  +++|          SA7    A1
04542  M00S03792.comknwc +++| PTR1     SX6    B2+RCL
04543  M00S03793.comknwc +++|          SA1    SNDA        SAVE TASK PARAMETERS
04544  M00S03794.comknwc +++|          MX0    1           SET FLAG TO PROHIBIT STORAGE MOVE
04545  M00S03795.comknwc +++|          SA6    SNDB        SET NETPUT FLAG
04546  M00S03796.comknwc +++|          SA2    B7
04547  M00S03797.comknwc +++|          BX7    X0+X2
04548  M00S03798.comknwc +++|          BX6    X1
04549  M00S03799.comknwc +++|          SA7    A2+         FWA OF SUBCP TABLE
04550  M00S03800.comknwc +++|          SA6    B2+RCLA     TASK RECALL STATUS WORD TWO
04551  M00S03801.comknwc +++|          SX7    PTR2        RETURN ADDRESS
04552  M00S03802.comknwc +++|          SA7    TROF        INHIBIT *TAF* FROM ROLLOUT
04553  M00S03803.comknwc +++|          SA7    PPMA        SET NETWORK REQUEST FLAG
04554  M00S03804.comknwc +++|          EQ     TRCL2       PUT TASK IN RECALL
04555  M00S03805.comknwc +++|
04556  M00S03806.comknwc +++|*         TASK RETURNS HERE AFTER RECALL.
04557  M00S03807.comknwc +++|
04558  M00S03808.comknwc +++| PTR2     PL     X1,PTR1     IF NETWORK REQUEST NOT COMPLETE
04559  M00S03809.comknwc +++|          MX0    -59         CLEAR FLAG TO ALLOW STORAGE MOVE

Seq #  *Modification Id* Act 
----------------------------+
04560  M01S03810.knwc23  ---|          SA1    B7          FWA OF SUBCP TABLE
04561  M00S03811.comknwc ---|          BX7    X7-X7
04562  M01S03812.knwc23  ---|          SA2    B2+RCLA     TASK RECALL STATUS WORD TWO

Seq #  *Modification Id* Act 
----------------------------+
04563  M01S00012.knwc23  +++|          SX2    B2+RCL
04564  M01S00013.knwc23  +++|          SA1    SNDB
04565  M01S00014.knwc23  +++|          BX2    X2-X1
04566  M01S00015.knwc23  +++|          SA1    B7          FWA OF SUBCP TABLE
04567  M01S00016.knwc23  +++|          NZ     X2,PTR3     IF NOT THE SAME TASK
04568  M01S00017.knwc23  +++|          SA7    SNDB        CLEAR NETPUT FLAG
04569  M01S00018.knwc23  +++|          SA7    TROF        CLEAR ROLLOUT INHIBIT FLAG
04570  M01S00019.knwc23  +++|          SA7    PPMA        CLEAR NETWORK REQUEST FLAG
04571  M01S00020.knwc23  +++| PTR3     SA2    B2+RCLA     TASK RECALL STATUS WORD TWO
04572  M00S03813.comknwc +++|          BX6    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
04573  M01S03814.knwc23  ---|          SA7    SNDB        CLEAR NETPUT FLAG
04574  M01S03815.knwc23  ---|          SA7    TROF        CLEAR ROLLOUT INHIBIT FLAG
04575  M01S03816.knwc23  ---|          SA7    PPMA        CLEAR NETWORK REQUEST FLAG
04576  M00S03817.comknwc ---|          SA6    A1
04577  M00S03818.comknwc ---|          BX7    X2
04578  M00S03819.comknwc ---|          SA7    SNDA        RESTORE PARAMETERS
04579  M00S03820.comknwc ---|          EQ     PTRX        RETURN
04580  M00S03821.comknwc ---| SOT      SPACE  4,15
04581  M00S03822.comknwc ---|**        SOT - SYSTEM ORIGIN TASK.
04582  M00S03823.comknwc ---|*
04583  M00S03824.comknwc ---|*         ENTRY  (X1) = MESSAGE LENGTH IN WORDS.
04584  M00S03825.comknwc ---|*                (X3) = TST TERMINAL ADDRESS.
04585  M00S03826.comknwc ---|*
04586  M00S03827.comknwc ---|*         EXIT   (INSI) SET UP FOR SYSTEM ORIGIN TASK.
04587  M00S03828.comknwc ---|*
04588  M00S03829.comknwc ---|*         USES   X - 1, 4, 5, 6.
04589  M00S03830.comknwc ---|*                A - 6.
04590  M00S03831.comknwc ---|*                B - 6.
04591  M00S03832.comknwc ---|
04592  M00S03833.comknwc ---|
04593  M00S03834.comknwc ---| SOT      SUBR               ENTRY/EXIT
04594  M00S03835.comknwc ---|          TX4    X3,-VTST    COMPUTE TST ORDINAL
04595  M00S03836.comknwc ---|          SX5    TSTLLE
04596  M00S03837.comknwc ---|          PX4    X4
04597  M00S03838.comknwc ---|          PX5    X5
04598  M00S03839.comknwc ---|          NX4    X4
04599  M00S03840.comknwc ---|          NX5    X5
04600  M00S03841.comknwc ---|          FX4    X4/X5
04601  M00S03842.comknwc ---|          UX4,B6 X4
04602  M00S03843.comknwc ---|          LX5    X4,B6
04603  M00S03844.comknwc ---|          MX4    1
04604  M00S03845.comknwc ---|          BX1    X4+X1       STATUS + MESSAGE LENGTH
04605  M00S03846.comknwc ---|          LX5    INTOS-INTON+1
04606  M00S03847.comknwc ---|          BX6    X5+X1       ADD TERMINAL ORDINAL
04607  M00S03848.comknwc ---|          LX4    INSOS-59
04608  M00S03849.comknwc ---|          BX6    X6+X4       ADD SYSTEM TRANSACTION
04609  M00S03850.comknwc ---|          SA6    INSI        BUFFER FOR TRANSACTION
04610  M00S03851.comknwc ---|          EQ     SOTX        RETURN
04611  M00S03852.comknwc ---| TLO      SPACE  4,15
04612  M00S03853.comknwc ---|**        TLO - TERMINAL LOGOUT.
04613  M00S03854.comknwc ---|*
04614  M00S03855.comknwc ---|*                1. IF TERMINAL NOT LOGGED IN CORRECTLY
04615  M00S03856.comknwc ---|*                   EXIT TO ABORT TASK ROUTINE.

Seq #  *Modification Id* Act 
----------------------------+
04616  M01S03857.knwc2   ---|*                2. LOGOUT TERMINAL FROM NCT.
04617  M01S03858.knwc2   ---|*                3. SEND NAM END CONNECTION SUPERVISORY MESSAGE.
04618  M01S03859.knwc2   ---|*                4. RETURN TO TASK SWITCHING LOOP.

Seq #  *Modification Id* Act 
----------------------------+
04619  M01S00008.knwc2   +++|*                2. CLEAR USER LOGGED IN.
04620  M01S00009.knwc2   +++|*                3. IF LOGOUT WITH RECOVERY REQUIRED GOTO STEP 5.
04621  M01S00010.knwc2   +++|*                4. WRITE TERMINATION *STEP* TO *CRF*.
04622  M01S00011.knwc2   +++|*                5. LOGOUT TERMINAL FROM NCT.
04623  M01S00012.knwc2   +++|*                6. SEND NAM END CONNECTION SUPERVISORY MESSAGE.
04624  M01S00013.knwc2   +++|*                7. RETURN TO TASK SWITCHING LOOP.
04625  M00S03860.comknwc +++|*
04626  M00S03861.comknwc +++|*         ENTRY  (B6) = FWA OF COMMUNICATION BLOCK HEADER.
04627  M00S03862.comknwc +++|*                (X5) = REQUEST WORD.
04628  M00S03863.comknwc +++|*T        18/ ADDR,24/4LCTIP,18/15B.

Figure

04629  M00S03864.comknwc +++|*
04630  M00S03865.comknwc +++|*                ADDR = ADDRESS FIELD OF *LOGT* REQUEST.
04631  M00S03866.comknwc +++|*
04632  M00S03867.comknwc +++|*         EXITS  *TERR7* IF TERMINAL NOT LOGGED IN.
04633  M00S03868.comknwc +++|*                *TSSC* NORMAL EXIT.
04634  M00S03869.comknwc +++|*
04635  M00S03870.comknwc +++|*         USES   A - 1, 4, 5, 6, 7.
04636  M00S03871.comknwc +++|*                X - 1, 2, 4, 5, 6, 7.
04637  M00S03872.comknwc +++|*                B - 3.
04638  M00S03873.comknwc +++|*
04639  M00S03874.comknwc +++|*         CALLS  NPT.
04640  M00S03875.comknwc +++|
04641  M00S03876.comknwc +++|
04642  M00S03877.comknwc +++| TLO      LX5    18          POSITION ADDRESS FIELD
04643  M00S03878.comknwc +++|          SB3    X5
04644  M00S03879.comknwc +++|          SA1    B6+1
04645  M00S03880.comknwc +++|          MX6    1
04646  M00S03881.comknwc +++|          LX1    -18
04647  M00S03882.comknwc +++|          SA4    X1          TST ENTRY
04648  M00S03883.comknwc +++|
04649  M00S03884.comknwc +++|*         CHECK FOR LEGAL TERMINAL LOG IN.
04650  M00S03885.comknwc +++|
04651  M00S03886.comknwc +++|          SX2    X1
04652  M00S03887.comknwc +++|          LX6    TSLIS-59
04653  M00S03888.comknwc +++|          ZR     X2,TERR7    IF NOT ORGINATING TERMINAL
04654  M00S03889.comknwc +++|          BX2    X6*X4
04655  M00S03890.comknwc +++|          ZR     X2,TERR7    IF TERMINAL NOT LOGGED IN
04656  M01S00014.knwc2   +++|          BX4    -X6*X4      CLEAR LOGIN FIELD
04657  M00S03891.comknwc +++|          LX6    TSARS-59-TSLIS+59
04658  M00S03892.comknwc +++|          BX4    X6+X4       SET *TSAR* BIT IF NOT TO WRITE *STEP*

Seq #  *Modification Id* Act 
----------------------------+
04659  M01S03893.knwc1   ---|          LX6    TSARS-59-TSLIS+59  SET RECOVERY FLAG
04660  M01S03894.knwc1   ---|          BX4    X6+X4
04661  M00S03895.comknwc ---|          NZ     B3,TLO2     IF NOT TO WRITE *STEP*

Seq #  *Modification Id* Act 
----------------------------+
04662  M01S00015.knwc2   +++|          BX6    -X6*X4      CLEAR *TSAR* BIT
04663  M01S00016.knwc2   +++|          SA6    A4+
04664  M00S03896.comknwc +++|          SX5    CSNR        NON-RECOVERABLE TRANSACTION/JOB *STEP*
04665  M00S03897.comknwc +++|          SX3    TLO1        RETURN ADDRESS
04666  M00S03898.comknwc +++|          RJ     WTS         WRITE TERMINATION *STEP*
04667  M00S03899.comknwc +++| TLO1     SA1    B2+CB2C     GET TST ENTRY

Proceed to Part 3