Common COMKNWC

35 Modifications

Listing Sections

Common COMKNWC Start
Common COMKNWC Part 1 (Line 1476)
Common COMKNWC Part 2 (Line 2772)
Common COMKNWC Part 3 (Line 3889)

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comknwc +++|          TITLE  COMKNWC - COMMUNICATION WITH NETWORKS.
00002  M01S00002.comknwc +++|          CTEXT  COMKNWC - COMMUNICATION WITH NETWORKS.
00003  M01S00003.comknwc +++|          SPACE  4
00004  M01S00004.comknwc +++|          BASE   D
00005  M01S00001.ns2517  +++|          LIST   F           LIST IF-SKIPPED LINES
00006  M01S00002.ns2517  +++|          SPACE  4

Line S00005 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP.  1977.
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00006.comknwc +++| NWC      SPACE  4
00010  M01S00007.comknwc +++|***       COMKNWC - NETWORK COMMUNICATION WITH TRANSACTIONS.
00011  M01S00008.comknwc +++|*         M. M. CHEN.       77/11/01.
00012  M01S00009.comknwc +++|          SPACE  4,10
00013  M01S00010.comknwc +++|          TTL    TAF - NAM COMMUNICATIONS.
00014  M01S00011.comknwc +++|***       *COMKNWC* PROVIDES THE INTERFACES BETWEEN TAF AND NAM.
00015  M01S00012.comknwc +++|*         IT HANDLES SUPERVISORY MESSAGE THROUGH ROUTINE *SMP*,
00016  M01S00013.comknwc +++|*         PROCESS INPUT DATA MESSAGE BY ROUTINE *NGL*, OUTPUT
00017  M01S00014.comknwc +++|*         MESSAGE BY ROUTINE *SND*, AND TAKES CARE OF CTI FUNCTIONS
00018  M01S00015.comknwc +++|*         BY *CTA*, *CTD*, *CTH*.
00019  M01S00016.comknwc +++|*
00020  M01S00017.comknwc +++|*         REGISTER CONVENTIONS.
00021  M01S00018.comknwc +++|*
00022  M01S00019.comknwc +++|*         B2 - START OF SYSTEM AREA OF TASK CURRENTLY SELECTED FOR
00023  M01S00020.comknwc +++|*              CPU ASSIGNMENT. (TASK-S RA)
00024  M01S00021.comknwc +++|*         B7 - START OF SUB CONTROL POINT AREA OF TASK CURRENTLY
00025  M01S00022.comknwc +++|*              SELECTED FOR CPU ASSIGNMENT.
00026  M01S00023.comknwc +++|*
00027  M01S00024.comknwc +++|*         DOCUMENT CONVENTIONS.
00028  M01S00025.comknwc +++|*
00029  M01S00026.comknwc +++|*         1. NCT ENTRY - FIRST WORD ADDRESS OF NETWORK COMMUNICATION
00030  M01S00027.comknwc +++|*                        TABLE OF THE TERMINAL.
00031  M01S00028.comknwc +++|*         2. (AI)/(XI) - MEANS THE CONTAINS OF ADDRESS AI IS IN XI.
00032  M01S00029.comknwc +++|*         3. TST ENTRY - FIRST WORD ADDRESS OF TERMINAL STATUS TABLE
00033  M01S00030.comknwc +++|*                        OF SPECIFIED TERMINAL.
00034  M01S00031.comknwc +++|*
00035  M01S00032.comknwc +++|*         SYMBOL CONVENTIONS.
00036  M01S00033.comknwc +++|*
00037  M01S00034.comknwc +++|*         ALL SYMBOLS START WITH
00038  M01S00035.comknwc +++|*         1. *V* - GLOBAL REFERENCES THROUGH OUT TAF AND COMKNWC.
00039  M01S00036.comknwc +++|*         2. *PF* - PRIMARY FUNCTION CODE.
00040  M01S00037.comknwc +++|*         3. *SF* - SECONDARY FUNCTION CODE.
00041  M01S00038.comknwc +++|*         4. *AH* - APPLICATION BLOCK HEADER FIELDS.
00042  M01S00039.comknwc +++|*         5. *IN* - FIELDS OF TRANSACTION INPUT.
00043  M01S00040.comknwc +++|*         6. *CI* - SYSTEM TRANSACTION CODES.
00044  M01S00041.comknwc +++|*         7. *TN* - NETWORK COMMUNICATION TABLE FIELDS.
00045  M01S00042.comknwc +++|*         8. *EV* - TASK ROLLOUT CONTROL TABLE FIELDS.
00046  M01S00043.comknwc +++|*         9. *TS* - TERMINAL STATUS TABLE FILEDS.
00047  M01S00044.comknwc +++|*
00048  M01S00045.comknwc +++|*         NOTE - THIS COMMON DECK CAN ONLY BE CALLED BY TAFNAM.
00049  M01S00046.comknwc +++|          SPACE  4,10
00050  M01S00047.comknwc +++|**        ABBREVIATIONS IN *COMKNWC*.
00051  M01S00048.comknwc +++|*
00052  M01S00049.comknwc +++|*         ACN  = APPLICATION CONNECTION NUMBER.
00053  M01S00050.comknwc +++|*         C.B. = COMMUNICATION BLOCK.
00054  M01S00051.comknwc +++|*         NCT  = NETWORK COMMUNICATION TABLE.
00055  M01S00052.comknwc +++|*         NAM  = NETWORK ACCESS METHOD.
00056  M01S00053.comknwc +++|*         Q    = QUEUE SUPERVISORY MESSAGE.
00057  M01S00054.comknwc +++|*         TST  = TERMINAL STATUS TABLE.
00058  M01S00055.comknwc +++|*         SM   = SUPERVISORY MESSAGE.
00059  M01S00056.comknwc +++|*
00060  M01S00057.comknwc +++|*         SUPERVISORY MESSAGE ABBREVIATIONS.
00061  M01S00058.comknwc +++|*
00062  M01S00059.comknwc +++|*         PFC  = PRIMARY FUNCTION CODE.
00063  M01S00060.comknwc +++|*         EB   = ERROR BIT.  ABNORMAL RESPONSE IF SET.
00064  M01S00061.comknwc +++|*         RB   = 1 IF NORMAL RESPONSE.
00065  M01S00062.comknwc +++|*         SFC  = SECONDARY FUNCTION CODE.
00066  M01S00063.comknwc +++|*         PARM = PARAMETERS
00067  M01S00064.comknwc +++|*
00068  M01S00065.comknwc +++|*         APPLICATION BLOCK HEADER.
00069  M01S00066.comknwc +++|*
00070  M01S00067.comknwc +++|*         ABT  = APPLICATION BLOCK TYPE.
00071  M01S00068.comknwc +++|*         ADR  = ADDRESS INFORMATION.
00072  M01S00069.comknwc +++|*         ABN  = APPLICATION BLOCK NUMBER.
00073  M01S00070.comknwc +++|*         ACT  = APPLICATION CHARACTER TYPE.
00074  M01S00071.comknwc +++|*         IBU  = INPUT BLOCK UNDELIVERABLE.
00075  M01S00072.comknwc +++|*         RFE  = RESERVED.
00076  M01S00073.comknwc +++|*         NFE  = 1 IF NO FORMAT EFFECTORS.
00077  M01S00074.comknwc +++|*         XPT  = 1 IF INPUT IS IN TRANSPARENT MODE.
00078  M01S00075.comknwc +++|*         CAN  = 1 IF INPUT IS TO BE CANCELED.
00079  M01S00076.comknwc +++|*         BIT  = 1 IF INPUT HAS PARITY ERROR.
00080  M01S00077.comknwc +++|*         TLC  = TEXT LENGTH IN UNITS.
00081  M01S00078.comknwc +++|          SPACE  4,10
00082  M01S00079.comknwc +++|**        DAYFILE MESSAGES.
00083  M01S00080.comknwc +++|*
00084  M01S00081.comknwc +++|*         1. * NAM FUNCTION NOT FOUND.*
00085  M01S00082.comknwc +++|*              NAM ISSUES A SUPERVISORY MESSAGE TAF CAN NOT RECOGNIZE.
00086  M01S00083.comknwc +++|*
00087  M01S00084.comknwc +++|*         2. * NAM LOGICAL ERROR.*
00088  M01S00085.comknwc +++|*              NAM ISSUES A LOGICAL SUPERVISORY TO TAF WITH REASON
00089  M01S00086.comknwc +++|*              CODE .GT. 3.
00090  M01S00087.comknwc +++|*

Line S00088 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00088.v23l617 ---|*         3. * NAM ERROR ILLEGAL ABH.*
00092  M01S00001.v23l617 +++|*         3. * NAM ERROR INCORRECT ABH.*
00093  M01S00089.comknwc +++|*              NAM SENDS A DATA MESSAGE WITH ILLOGICAL APPLICATION
00094  M01S00090.comknwc +++|*              BLOCK HEADER.
00095  M01S00091.comknwc +++|*
00096  M01S00092.comknwc +++|*         4. * NAM ERROR - ILLOGICAL ABT.*
00097  M01S00093.comknwc +++|*              NAM SENDS A DATA MESSAGE WITH ILLOGICAL APPLICATION
00098  M01S00094.comknwc +++|*              BLOCK TYPE.
00099  M01S00095.comknwc +++|*
00100  M01S00096.comknwc +++|*         5. * NETON COMPLETE.*
00101  M01S00097.comknwc +++|*              INFORMATION MESSAGE INDICATING CONNECTION TO NAM
00102  M01S00098.comknwc +++|*              HAS BEEN MADE.
00103  M01S00099.comknwc +++|*
00104  M01S00100.comknwc +++|*         6. * NETOFF COMPLETE.*
00105  M01S00101.comknwc +++|*              INFORMATION MESSAGE INIDICATING CONNECTION TO NAM
00106  M01S00102.comknwc +++|*              HAS BEEN BROKEN.
00107  M01S00103.comknwc +++|*
00108  M01S00104.comknwc +++|*         7. * NAM NOT AVAILABLE.*
00109  M01S00105.comknwc +++|*              NETWORK IS NOT READY YET.
00110  M01S00106.comknwc +++|*
00111  M01S00107.comknwc +++|*         8. * OPERATOR DROP.*
00112  M01S00108.comknwc +++|*              OPERATOR DROP THE TAF.
00113  M01S00109.comknwc +++|*         9.  * NETWORK SHUT DOWN DETECTED.*
00114  M01S00110.comknwc +++|*               NETWORK SHUT DOWN DETECTED.
00115  M01S00111.comknwc +++|*
00116  M01S00112.comknwc +++|*
00117  M01S00113.comknwc +++|*         10. * AIP DEBUG OPTION TURNED ON.*
00118  M01S00114.comknwc +++|*               DATA AND SUPERVISORY MESSAGES ARE LOGGED ON TRACE FILE.
00119  M01S00115.comknwc +++|*
00120  M01S00116.comknwc +++|*         11. * AIP DEBUG OPTION TURNED OFF.*
00121  M01S00117.comknwc +++|*               DATA AND SUPERVISORY MESSAGES ARE NOT LOGGED ON
00122  M01S00118.comknwc +++|*               TRACE FILE.
00123  M01S00119.comknwc +++| NET      SPACE  4,10
00124  M01S00120.comknwc +++|**        NET - A MACRO TO SETUP CALLS TO NAM REQUESTS.
00125  M01S00121.comknwc +++|*
00126  M01S00122.comknwc +++|*         ENTRY  NET X,ACN,HA,TA,TLMAX,LIST
00127  M01S00123.comknwc +++|*                WHERE X = GETL, GET, PUT, ON, OFF,
00128  M01S00124.comknwc +++|*                          GET, OR OTHER NAM NETWORK COMMAND.
00129  M01S00125.comknwc +++|*
00130  M01S00126.comknwc +++|*                          ACN,HA,TA,TLMAX,LIST ARE PARAMETERS AS
00131  M01S00127.comknwc +++|*                          REQUIRED FOR PARTICULAR NAM NETWORK COMMAND.
00132  M01S00128.comknwc +++|*
00133  M01S00129.comknwc +++|*         EXIT   REMOTE BLOCK *INI* SETS UP RJ TO AIP ENTRY POINTS.
00134  M01S00130.comknwc +++|*                (B1) = 1.
00135  M01S00131.comknwc +++|*
00136  M01S00132.comknwc +++|*         USES   X - 6.
00137  M01S00133.comknwc +++|*                A - 6.
00138  M01S00134.comknwc +++|*                B - 1.
00139  M01S00135.comknwc +++|
00140  M01S00136.comknwc +++|
00141  M01S00137.comknwc +++| NET      MACRO  X,ACN,HA,TA,TLMAX,LIST
00142  M01S00138.comknwc +++|          LOCAL  TAG
00143  M01S00139.comknwc +++| TAG      BSS    0
00144  M01S00140.comknwc +++| INI      RMT
00145  M01S00141.comknwc +++|          SA1    B5+NET_X_
00146  M01S00142.comknwc +++|          BX6    X1
00147  M01S00143.comknwc +++| OFS      SET    1
00148  M01S00144.comknwc +++|          IFC    EQ,*X*OFF*,1
00149  M01S00145.comknwc +++| OFS      SET    0
00150  M01S00146.comknwc +++|          IFC    EQ,*X*CHEK*,1
00151  M01S00147.comknwc +++| OFS      SET    0
00152  M01S00148.comknwc +++|          SA6    TAG+OFS
00153  M01S00149.comknwc +++|          RMT
00154  M01S00150.comknwc +++|          NET_X_ ACN,HA,TA,TLMAX,LIST
00155  M01S00151.comknwc +++|          SB1    1
00156  M01S00152.comknwc +++|          ENDM
00157  M01S00153.comknwc +++|          SPACE  4,10
00158  M01S00154.comknwc +++|**        ASSEMBLY CONSTANTS.
00159  M01S00155.comknwc +++|
00160  M01S00156.comknwc +++| NAM      EQU    1           1 IF NAM COMMUNICATIONS MODE
00161  M01S00157.comknwc +++|*NAM      EQU    0           0 IF TELEX IS COMMUNICATIONS MODE
00162  M01S00158.comknwc +++| ALN      EQU    1           TAF APPLICATION LIST NUMBER FOR NAM
00163  M01S00159.comknwc +++|
00164  M01S00160.comknwc +++| NONTL    EQU    5*1000      MILLISECONDS BETWEEN *NETON* ATTEMPTS
00165  M01S00161.comknwc +++| NCBN     CON    NCBC        MAXIMUM COMMUNICATION BLOCKS
00166  M01S00001.knwc9   +++| FSZE     EQU    64          MAXIMUM FRAGMENT SIZE FOR *NETGETF*
00167  M01S00162.comknwc +++|
00168  M01S00163.comknwc +++| ZERO     CON    0
00169  M01S00164.comknwc +++|
00170  M01S00165.comknwc +++|*         BLRT - TIME (IN MILLISECONDS) FOR A TASK TO WAIT WHEN
00171  M01S00166.comknwc +++|*                BLOCK LIMIT HAS BEEN EXCEEDED.
00172  M01S00167.comknwc +++|
00173  M01S00168.comknwc +++| BLRT     EQU    5*1000
00174  M01S00169.comknwc +++|
00175  M01S00170.comknwc +++|*         WTIM - TIME INTERVAL (IN SECONDS) FOR A TASK TO STAY
00176  M01S00171.comknwc +++|*                IN ROLLOUT QUEUE IF TASK DOES A SEND WITH RECALL.
00177  M01S00172.comknwc +++|*                TASK WILL BE ROLLED IN IF TAF GETS A SUPERVISORY
00178  M01S00173.comknwc +++|*                MESSAGE BACK FROM NETWORK OR TIME ELAPSES.
00179  M01S00174.comknwc +++|
00180  M01S00175.comknwc +++| WTIM     EQU    3*60
00181  M01S00176.comknwc +++|
00182  M01S00177.comknwc +++|*         MLIM - MESSAGE LIMIT (IN WORDS) THAT A TASK STAY IN CORE
00183  M01S00178.comknwc +++|*                WHILE DOING A SEND WITH RECALL.
00184  M01S00179.comknwc +++|
00185  M01S00180.comknwc +++| MLIM     EQU    100
00186  M01S00181.comknwc +++| EXT      OPSYN  NIL
00187  M01S00182.comknwc +++|          SPACE  4,10
00188  M01S00183.comknwc +++|*         THE FOLLOWING TAGS ARE USED TO PREVENT ASSEMBLY ERRORS
00189  M01S00184.comknwc +++|*         UNDER *TELEX* MODE OF COMMUNICATION.  SHOULD INTER-CONTROL
00190  M01S00185.comknwc +++|*         POINT REQUESTS REQUIRE SERVICING, THEN CODE
00191  M01S00186.comknwc +++|*         AT *CSM1* WILL HANDLE THE REQUESTS BY JOURNALLING
00192  M01S00187.comknwc +++|*         A MALICIOUS USER MESSAGE.
00193  M01S00188.comknwc +++|
00194  M01S00189.comknwc +++| SNS      BSS    0
00195  M01S00190.comknwc +++| TOC      BSS    0
00196  M01S00191.comknwc +++| TSM      BSS    0
00197  M01S00192.comknwc +++| TTH      BSS    0
00198  M01S00193.comknwc +++| TTL      BSS    0
00199  M01S00194.comknwc +++|          EQ     CSM1        PROCESS UNEXPECTED *SIC* REQUESTS
00200  M01S00195.comknwc +++|          SPACE  4,10
00201  M01S00196.comknwc +++|**        ENTRY POINTS FOR NAM REQUESTS ARE TEMPORARILY STORED
00202  M01S00197.comknwc +++|*         IN AREA FOR NCT TERMINAL ENTRIES BY *TAFNAM1*.
00203  M01S00198.comknwc +++|*         NOTE   THE FOLLOWING ENTRIES SHOULD BE IN ALPHABETICAL
00204  M01S00199.comknwc +++|*                ORDER AS IN THE LOADER REQUEST.
00205  M01S00200.comknwc +++|
00206  M01S00201.comknwc +++| NBUF     BSS    0
00207  M01S00202.comknwc +++|          LOC    0
00208  M01S00203.comknwc +++| NETCHEK  BSS    1
00209  M01S00204.comknwc +++| .A       IFEQ   DBUG,0
00210  M01S00205.comknwc +++| NETDBG   BSS    1
00211  M01S00206.comknwc +++| .A       ENDIF
00212  M01S00207.comknwc +++| NETGET   BSS    1
00213  M01S00208.comknwc +++| NETGETF  BSS    1
00214  M01S00209.comknwc +++| NETGETL  BSS    1
00215  M01S00210.comknwc +++| NETOFF   BSS    1
00216  M01S00211.comknwc +++| NETON    BSS    1
00217  M01S00212.comknwc +++| NETPUT   BSS    1
00218  M01S00213.comknwc +++| NETSETP  BSS    1
00219  M01S00214.comknwc +++|          LOC    *O
00220  M01S00215.comknwc +++| NETL     EQU    *-NBUF      LENGTH OF *AIP* ENTRY POINT TABLE
00221  M01S00216.comknwc +++|          ORG    NBUF
00222  M01S00217.comknwc +++| NCT      SPACE  4,10
00223  M01S00218.comknwc +++|**        NCT - NAM COMMUNICATION TABLE.
00224  M01S00219.comknwc +++|*

Line S00220 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00220.knwc25  ---|*T, W1    9/NCTFLAG,6/ ,3/TNBO,3/TNBL,12/TNCN,9/TNCB,18/TNTS

Figure W1

00226  M01S00001.knwc25  +++|*T, W1    9/NCTFLAG,4/ ,2/TNCT,3/TNBO,3/TNBL,12/TNCN,9/TNCB,18/TNTS

Figure W1

00227  M01S00221.comknwc +++|*T, W2    8/PFC,1/EB,1/RB,6/SFC,44/PARM

Figure W2

00228  M01S00222.comknwc +++|*T, W3    6/ABT,12/ADR,18/ABN,4/ACT,8/STATUS,12/TLC

Figure W3

00229  M01S00223.comknwc +++|*
00230  M01S00224.comknwc +++|*

Line S00225 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00231  M02S00225.ns2337  ---|*         NCTFLAG = 1/TNDS,1/TNQS,1/TNSR,1/TNSL,1/TNSE,1/TNTF,1/TNBD,
00232  M01S00001.ns2337  +++|*         NCTFLAG = 1/,1/TNQS,1/TNSR,1/TNSL,1/TNSE,1/TNTF,1/TNBD,
00233  M01S00226.comknwc +++|*                   1/TNBK,1/TNSM
00234  M01S00227.comknwc +++|*

Line S00228 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00228.ns2337  ---|*         TNDS = 1 IF TERMINAL HAS STOP ON DOWN LINE CONNECTION.
00236  M01S00229.comknwc +++|*         TNQS = 1 IF QUEUED SUPERVISORY MESSAGE.
00237  M01S00230.comknwc +++|*         TNSR = 1 IF TASK SEND MESSAGE WITH RECALL.
00238  M01S00231.comknwc +++|*         TNSL = 1 IF INPUT FROM TERMINAL EXCEEDED LIMIT.
00239  M01S00232.comknwc +++|*         TNSE = 1 IF TASK IS ROLLED OUT ON SEND.
00240  M01S00233.comknwc +++|*         TNTF = 1 IF TERMINAL TEMPOFF.
00241  M01S00234.comknwc +++|*         TNBD = 1 IF BLOCK DELIVERED.

Line S00235 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00235.ns2337  ---|*         TNBK = 1 IF TERMINAL BREAK.
00243  M01S00002.ns2337  +++|*         TNBK = 1 IF USER BREAK.
00244  M01S00236.comknwc +++|*         TNSM = 1 IF SUPERVISORY MESSAGE RETURN AFTER SEND.
00245  M01S00002.knwc25  +++|*         TNCT = APPLICATION CHARACTER TYPE - 1.
00246  M01S00237.comknwc +++|*         TNBO = OUTSTANDING OUTPUT BLOCKS.
00247  M01S00238.comknwc +++|*         TNBL = OUTPUT BLOCK LIMIT.
00248  M01S00239.comknwc +++|*         TNCN = NEXT ACN IN QUEUE.
00249  M01S00240.comknwc +++|*         TNCB = INDEX OF COMMUNICATION BLOCK CONNECTION TO TERMINAL.
00250  M01S00241.comknwc +++|*         TNTS = ADDRESS OF TST ENTRY FOR CONNECTION.
00251  M01S00242.comknwc +++|*
00252  M01S00243.comknwc +++|*         STATUS = 1/IBU,3/RFE,1/NFE,1/XPT,1/CAN,1/BIT
00253  M01S00244.comknwc +++|
00254  M01S00245.comknwc +++| NCTA     CON    0           HEAD OF SUPERVISORY MESSAGE QUEUE
00255  M01S00246.comknwc +++| NCTB     CON    0           END OF SUPERVISORY MESSAGE QUEUE
00256  M01S00247.comknwc +++| TNCTL    EQU    3           LENGTH OF NCT ENTRY
00257  M01S00248.comknwc +++|
00258  M01S00249.comknwc +++| TNQS     FIELD  ,58,58      QUEUED SUPERVISORY MESSAGE
00259  M01S00250.comknwc +++| TNSR     FIELD  ,57,57      TASK SEND WITH RECALL
00260  M01S00251.comknwc +++| TNSL     FIELD  ,56,56      INPUT EXCEEDED LIMIT
00261  M01S00252.comknwc +++| TNSE     FIELD  ,55,55      TASK ROLLED OUT ON SEND
00262  M01S00253.comknwc +++| TNTF     FIELD  ,54,54      TERMINAL TEMPOFF
00263  M01S00254.comknwc +++| TNBD     FIELD  ,53,53      BLOCK DELIVERED

Line S00255 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00255.ns2337  ---| TNBK     FIELD  ,52,52      TERMINAL BREAK
00265  M01S00003.ns2337  +++| TNBK     FIELD  ,52,52      USER BREAK
00266  M01S00256.comknwc +++| TNSM     FIELD  ,51,51      SUPERVISORY MESSAGE INDICATOR
00267  M01S00003.knwc25  +++| TNCT     FIELD  ,46,45      APPLICATION CHARACTER TYPE - 1
00268  M01S00257.comknwc +++| TNBO     FIELD  ,44,42      OUTSTANDING OUTPUT BLOCK
00269  M01S00258.comknwc +++| TNBL     FIELD  ,41,39      OUTPUT BLOCK LIMIT
00270  M01S00259.comknwc +++| TNCN     FIELD  ,38,27      NEXT ACN IN QUEUE
00271  M01S00260.comknwc +++| TNCB     FIELD  ,26,18      COMMUNICATION BLOCK INDEX
00272  M01S00261.comknwc +++| TNTS     FIELD  ,17,0       TST ENTRY FWA
00273  M01S00262.comknwc +++| TNAH     FIELD  2,59,0      APPLICATION BLOCK HEADER
00274  M01S00263.comknwc +++|          SPACE  4,10
00275  M01S00264.comknwc +++|**        GLOBAL STORAGE.
00276  M01S00265.comknwc +++|
00277  M01S00266.comknwc +++| ACNA     CON    0           APPLICATION CONNECTION NUMBER
00278  M01S00267.comknwc +++| ACNS     CON    0           SUPERVISORY MESSAGE CONNECTION NUMBER
00279  M01S00268.comknwc +++| ACMA     CON    NCTL        LARGEST CONNECTION NUMBER
00280  M01S00269.comknwc +++| ACMI     CON    1           SMALLEST CONNECTION NUMBER
00281  M01S00270.comknwc +++| ALNO     CON    ALN         APPLICATION LIST NUMBER
00282  M01S00001.knwc6   +++| ALNA     CON    ALN+1       PRIORITY APPLICATION LIST
00283  M01S00271.comknwc +++| NSUP     CON    0           SUPERVISORY MESSAGE STATUS
00284  M01S00272.comknwc +++| NMBP     VFD    60/0        NULL MESSAGE PARAMETER BLOCK
00285  M01S00273.comknwc +++|          SPACE  4,10
00286  M01S00274.comknwc +++|**        SUPERVISORY MESSAGES SENT TO NAM.
00287  M01S00275.comknwc +++|
00288  M01S00276.comknwc +++|*         CONNECTION ACCEPTED.
00289  M01S00277.comknwc +++| SMAC     VFD    8/PFCN,1/0,1/1,6/SFRT,8/0,12/0,14/0,4/4,6/ALN
00290  M01S00278.comknwc +++|
00291  M01S00279.comknwc +++|*         CONNECTION REJECTED.
00292  M01S00280.comknwc +++| SMCR     VFD    8/PFCN,1/1,1/0,6/SFRT,8/4,12/0,24/0
00293  M01S00281.comknwc +++|
00294  M01S00282.comknwc +++|*         CONNECTION ENDED.
00295  M01S00283.comknwc +++| SMCE     VFD    8/PFCN,1/0,1/0,6/SFEN,12/0,8/0,24/0
00296  M01S00284.comknwc +++|
00297  M01S00285.comknwc +++|*         CHANGE INPUT CHARACTER TYPE.
00298  M01S00286.comknwc +++| SMDC     VFD    8/PFDC,1/0,1/0,6/SFIC,8/0,12/0,18/0,6/0
00299  M01S00287.comknwc +++|
00300  M01S00288.comknwc +++|*         BLOCK DELIVERED.
00301  M01S00289.comknwc +++| SMAK     VFD    8/PFFC,2/0,6/SFAK,8/0,12/0,24/0
00302  M01S00290.comknwc +++|
00303  M01S00291.comknwc +++|*         BLOCK NOT DELIVERED.
00304  M01S00292.comknwc +++| SMAX     VFD    8/PFFC,1/0,1/0,6/SFAX,8/1,12/0,18/0,6/0
00305  M01S00293.comknwc +++|
00306  M01S00294.comknwc +++|*         CONNECTION INITIALIZE.
00307  M01S00295.comknwc +++| SMCM     VFD    8/PFFC,1/0,1/1,6/SFCM,8/0,12/0,24/0
00308  M01S00296.comknwc +++|
00309  M01S00297.comknwc +++|*         HALF DUPLEX.
00310  M01S00298.comknwc +++| SMHD     VFD    8/PFLS,2/0,6/SFHD,8/0,12/0,24/0
00311  M01S00299.comknwc +++|

Line S00300 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
00312  M02S00300.knwc6   ---|*         TEMPORARY ON.

Line S00301 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
00313  M02S00301.knwc6   ---| SMON     VFD    8/PFLS,1/0,1/0,6/SFON,8/0,12/0,24/0

Line S00302 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
00314  M02S00302.knwc6   ---|

Line S00303 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
00315  M02S00303.knwc6   ---|*         TEMPORARY OFF.

Line S00304 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
00316  M02S00304.knwc6   ---| SMOF     VFD    8/PFLS,1/0,1/0,6/SFOF,8/0,12/0,24/0

Line S00305 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
00317  M02S00305.knwc6   ---|

Line S00306 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00318  M02S00306.ns2337  ---|*         ENQUIRE OR STATUS.
00319  M01S00004.ns2337  +++|*         INTERRUPT RESPONSE.
00320  M01S00307.comknwc +++| SMRB     VFD    8/PFIN,2/0,6/SFRB,8/0,12/0,24/0
00321  M01S00308.comknwc +++|
00322  M01S00001.ns22000 +++|*         RESUME OUTPUT.
00323  M01S00002.ns22000 +++| SMRO     VFD    8/PFRO,1/0,1/0,6/SFRO,12/0,32/0
00324  M01S00003.ns22000 +++|

Line S00309 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00325  M02S00309.ns2337  ---|*         RESET.

Line S00310 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00310.ns2337  ---| SMRS     VFD    8/PFFC,1/0,1/0,6/SFRS,12/0,32/0

Line S00002 Modification History
`M01` (Added by)	`knwc6`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00002.ns2337  ---|
00328  M01S00003.knwc6   +++|*         SWITCH APPLICATION CONNECTION.
00329  M01S00004.knwc6   +++| SMSW     VFD    8/PFLS,1/0,1/0,6/SFSW,8/0,12/0,18/0,6/0
00330  M01S00005.ns2337  +++|
00331  M01S00006.ns2337  +++|*         TERMDEF FUNCTION CODE.

Line S00007 Modification History
`M01` (Added by)	`ns2337`
`M02` (Updated by)	`ns2416`

Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00007.ns2416  ---| SMTD     VFD    8/PFTC,2/0,6/SFDF,44/0
00333  M01S00001.ns2416  +++| SMTD     VFD    8/PFTC,2/0,6/SFDM,44/0
00334  M01S00003.ns2517  +++|
00335  M01S00004.ns2517  +++|*         TYPE-AHEAD DISABLE MESSAGE.
00336  M01S00005.ns2517  +++| SMTY     VFD    8/PFTC,2/0,6/SFDM,8/112,8/TYPEAH,8/0,8/0,8/0,4/0
00337  M01S00311.comknwc +++|          SPACE  4,15
00338  M01S00312.comknwc +++|**        DAYFILE MESSAGES.
00339  M01S00313.comknwc +++|
00340  M01S00314.comknwc +++| SMGA     DATA   C* NAM FUNCTION NOT FOUND.*

Line S00315 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc21`

Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00315.knwc21  ---| SMGB     DATA   C* NAM LOGICAL ERROR.*
00342  M01S00001.knwc21  +++| SMGB     DATA   C* ERR/LGL RECEIVED FROM NAM - RC = XX.*
00343  M01S00316.comknwc +++| SMGD     DATA   C* NAM ERROR - ILLOGICAL ABT.*
00344  M01S00317.comknwc +++| SMGF     DATA   C* NETOFF COMPLETE.*

Line S00318 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00318.v23l617 ---| SMGG     DATA   C* NAM ERROR - ILLEGAL ABH.*
00346  M01S00002.v23l617 +++| SMGG     DATA   C* NAM ERROR - INCORRECT ABH.*
00347  M01S00319.comknwc +++| SMGH     DATA   C* NAM NOT AVAILABLE.*
00348  M01S00320.comknwc +++| SMGI     DATA   C* NETON COMPLETE.*
00349  M01S00321.comknwc +++| SMGJ     DATA   C* AIP DEBUG OPTION TURNED ON.*
00350  M01S00322.comknwc +++| SMGK     DATA   C* AIP DEBUG OPTION TURNED OFF.*
00351  M01S00323.comknwc +++|          SPACE  4,10
00352  M01S00324.comknwc +++|**        DATA MESSAGE INPUT AREA.
00353  M01S00325.comknwc +++|
00354  M01S00326.comknwc +++| INDH     BSS    1           DATA MESSAGE HEADER
00355  M01S00327.comknwc +++|
00356  M01S00328.comknwc +++|*         (INDI) AND (INDB) ARE FORMATTED TO LOOK LIKE TELEX INPUT.
00357  M01S00329.comknwc +++|*         (INDB) IS ALSO USED TO CONTAIN ROUTINE *XST* BEFORE
00358  M01S00330.comknwc +++|*         NAM INPUT ARRIVES.
00359  M01S00331.comknwc +++|
00360  M01S00332.comknwc +++| INDI     VFD    1/0,1/0,22/0,18/0,18/0
00361  M01S00333.comknwc +++| INDB     EQU    *           BUFFER FOR NAM INPUT

Line S00334 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00334.knwc6   ---| INDBL    EQU    250         MESSAGE BUFFER LENGTH
00363  M01S00005.knwc6   +++| INDBL    EQU    422         MESAGE BUFFER LENGTH
00364  M01S00335.comknwc +++|          ORG    INDB+INDBL+1
00365  M01S00336.comknwc +++| INDM     VFD    60/INDBL-1  MAXIMUM MESSAGE LENGTH
00366  M01S00006.knwc6   +++| INDN     VFD    60/INDBL-CMBHL-CMBRL-1  MAXIMUM LENGTH FOR 2ND LIST
00367  M01S00007.knwc6   +++|          ERRNG  INDBL-CMBRL-CMBHL-1-409  BUFFER TOO SMALL
00368  M01S00337.comknwc +++|
00369  M01S00338.comknwc +++|**        SUPERVISORY INPUT MESSAGE AREA.
00370  M01S00339.comknwc +++|
00371  M01S00340.comknwc +++| INSH     BSS    1           SUPERVISORY MESSAGE HEADER
00372  M01S00341.comknwc +++|
00373  M01S00342.comknwc +++|*         (INSI) AND (INSJ) ARE USED TO SETUP SYSTEM ORIGIN
00374  M01S00343.comknwc +++|*         TRANSACTIONS FOR ITASK.
00375  M01S00344.comknwc +++|
00376  M01S00345.comknwc +++| INSI     VFD    1/0,1/0,22/0,18/0,18/0
00377  M01S00346.comknwc +++| INSJ     BSS    2           SYSTEM ORIGIN TASK MESSAGE BUFFER
00378  M01S00347.comknwc +++| INSB     EQU    *           SUPERVISORY MESSAGE BUFFER
00379  M01S00348.comknwc +++| INSBL    EQU    64+1        INPUT SUPERVISORY BUFFER LENGTH
00380  M01S00349.comknwc +++|          ORG    INSB+INSBL+1
00381  M01S00350.comknwc +++| INSM     VFD    60/INSBL    MAXIMUM MESSAGE LENGTH
00382  M01S00351.comknwc +++|          SPACE  4,10
00383  M01S00352.comknwc +++|**        SUPERVISORY OUTPUT MESSAGE AREA.
00384  M01S00353.comknwc +++|

Line S00004 Modification History
`M01` (Added by)	`ns22000`
`M02` (Updated by)	`ns2517`

Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00004.ns2517  ---| OTSG     VFD    6/3,12/0,18/0,4/2,8/0,12/2  SYNCHRONOUS HEADER
00386  M01S00006.ns2517  +++| OTSG     VFD    6/3,12/0,18/0,4/2,8/0,12/4  SYNCHRONOUS HEADER
00387  M01S00005.ns22000 +++|
00388  M01S00354.comknwc +++| OTSH     VFD    6/3,12/0,18/0,4/1,4/0,1/1,3/0,12/OTSBL
00389  M01S00355.comknwc +++| OTSI     VFD    6/3,12/0,18/0,4/2,4/0,1/1,3/0,12/0
00390  M01S00356.comknwc +++| OTSJ     BSSZ   1           SUPERVISORY MESSAGE HEADER

Line S00357 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc13`

Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00357.knwc13  ---| OTSBL    EQU    1           LENGTH OF OUTPUT SUPERVISORY MESSAGE

Line S00001 Modification History
`M01` (Added by)	`knwc13`
`M02` (Updated by)	`ns2517`

Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00001.ns2517  ---| OTSBL    EQU    2
00393  M01S00007.ns2517  +++| OTSBL    EQU    4
00394  M01S00358.comknwc +++| OTSB     BSS    OTSBL       SUPERVISORY MESSAGE
00395  M01S00002.knwc13  +++|          VFD    42/0HBYE,18/0
00396  M01S00359.comknwc +++|
00397  M01S00360.comknwc +++|*         DEFAULT APPLICATION BLOCK HEADER.
00398  M01S00361.comknwc +++|
00399  M01S00362.comknwc +++| DABH     VFD    6/2,12/0,18/0,4/4,1/0,3/0,1/1,3/0,12/0
00400  M01S00363.comknwc +++| DABI     VFD    6/1,12/0,18/0,4/4,1/0,3/0,1/1,3/0,12/0
00401  M01S00364.comknwc +++|          SPACE  4,10
00402  M01S00365.comknwc +++|**        PRIORITY AND REASON CODE FOR SUPERVISORY MESSAGE.
00403  M01S00366.comknwc +++|*T        42/ ,6/I,6/R,6/C

Figure

00404  M01S00367.comknwc +++|*         I      INCOMING SUPERVISORY MESSAGE PRIORITY.
00405  M01S00368.comknwc +++|*         R      RESIDENT SUPERVISORY MESSAGE PRIORITY.
00406  M01S00369.comknwc +++|*         C      ITASK REASON CODE.
00407  M01S00370.comknwc +++|
00408  M01S00371.comknwc +++| PINI     EQU    110200B+CILOG  TERMINAL LOGIN
00409  M01S00372.comknwc +++| PCBK     EQU    111000B+CICNB  CONNECTION BROKEN
00410  M01S00373.comknwc +++| PACK     EQU    050400B        BLOCK DELIVERED
00411  M01S00374.comknwc +++| PNAK     EQU    060500B+CINAK  BLOCK NOT DELIVERED

Line S00375 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00375.ns2337  ---| PBRK     EQU    040200B+CIBRK  TERMINAL BREAK

Line S00376 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00376.ns2337  ---| PSTR     EQU    040200B+CISTR  START DOWN LINE CONNECTION

Line S00377 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00377.ns2337  ---| PSTP     EQU    040200B+CISTP  STOP DOWN LINE CONNECTION
00415  M01S00008.ns2337  +++| PBRK     EQU    040200B+CIBRK  USER BREAK
00416  M01S00378.comknwc +++| PINA     EQU    020100B+CIINA  TERMINAL INACTIVE
00417  M01S00379.comknwc +++| PTCH     EQU    030200B+CITC   TERMINAL CHARACTERISTIC
00418  M01S00380.comknwc +++| PLGR     EQU    070600B+CILGR  LOGICAL ERROR
00419  M01S00381.comknwc +++| PTSD     EQU    111100B+CITSD  NETWORK FORCED SHUTDOWN
00420  M01S00382.comknwc +++| PNSD     EQU    060500B+CISHT  NETWORK NORMAL SHUTDOWN
00421  M01S00383.comknwc +++| PTES     EQU    100000B+CIUS   TERMINAL STATUS REQUEST
00422  M01S00384.comknwc +++|          TITLE  TAF INTERFACE FUNCTION.
00423  M01S00385.comknwc +++| CTA      SPACE  4,20
00424  M01S00386.comknwc +++|**        NETWORKS ACCESS METHODS FUNCTION PROCESSORS.
00425  M01S00387.comknwc +++|*         THE FOLLOWING PROCESSORS ARE AVAILABLE ONLY IN NAM
00426  M01S00388.comknwc +++|*         TELE-PROCESSING MODE.
00427  M01S00389.comknwc +++|*
00428  M01S00390.comknwc +++|*         NOTE - REGISTER CONVENTION IS THE SAME AS OTHER CTI
00429  M01S00391.comknwc +++|*         PROCESSORS, EVEN THOUGH THE CODE IS NOT CONTIGUOUSLY
00430  M01S00392.comknwc +++|*         PLACED.
00431  M01S00393.comknwc +++| CTA      SPACE  4,20
00432  M01S00394.comknwc +++|*         CTA - REQUEST CODE 16, SET INPUT CHARACTER TYPE.
00433  M01S00395.comknwc +++|*
00434  M01S00396.comknwc +++|*         THE REQUEST FORMAT IS
00435  M01S00397.comknwc +++|*
00436  M01S00398.comknwc +++|*T  ADDR   42/     TERMINAL, 18/     ACT

Figure ADDR

00437  M01S00399.comknwc +++|*T, ADDR+1 42/      ,18/      STATUS

Figure ADDR+1

00438  M01S00400.comknwc +++|*
00439  M01S00401.comknwc +++|*         TERMINAL = TERMINAL BEING OPERATED UPON.
00440  M01S00402.comknwc +++|*         ACT = INPUT CHARACTER TYPE 2,3,4.
00441  M01S00403.comknwc +++|*         STATUS = LOCATION FOR RETURNED LOGIN STATUS.
00442  M01S00404.comknwc +++|*
00443  M01S00405.comknwc +++|*         OPERATION - THE PARAMETERS ARE VERIFIED FOR LEGALITY AND
00444  M01S00406.comknwc +++|*                     THE TASK ABORTED FOR INVALID CONDITIONS.  THE

Line S00407 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00407.knwc25  ---|*                     CHARACTER TYPE IS CHECKED FOR LEGALITY, AND THEN

Line S00408 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
00446  M02S00408.knwc25  ---|*                     A NETPUT IS ISSUED TO INFORM THE NETWORK.
00447  M01S00004.knwc25  +++|*                     CHARACTER TYPE IS CHECKED FOR LEGALITY AND THEN
00448  M01S00005.knwc25  +++|*                     SAVED IN THE NCT.  THEN A NETPUT IS ISSUED TO
00449  M01S00006.knwc25  +++|*                     INFORM THE NETWORK.
00450  M01S00409.comknwc +++|*
00451  M01S00410.comknwc +++|*         ENTRY  (B6) = START OF COMMUNICATIONS BLOCK HEADER.
00452  M01S00411.comknwc +++|*                (B5) = TASK RA.
00453  M01S00412.comknwc +++|*                (B4) = COMPLEMENT OF PARAMETER ADDRESS.
00454  M01S00413.comknwc +++|*                (B2) = ADDRESS OF TASK-S SYSTEM AREA.
00455  M01S00414.comknwc +++|*

Line S00415 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00415.v23l617 ---|*         EXIT   TO *TERR28* IF ILLEGAL ACT.
00457  M01S00003.v23l617 +++|*         EXIT   TO *TERR28* IF INCORRECT ACT.
00458  M01S00416.comknwc +++|*                TO *TSSC* OTHERWISE.
00459  M01S00417.comknwc +++|*

Line S00418 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00418.knwc25  ---|*         USES   A - 2, 4, 6.
00461  M01S00007.knwc25  +++|*         USES   A - 2, 4, 5, 6, 7.
00462  M01S00419.comknwc +++|*                B - 6.

Line S00420 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00420.knwc25  ---|*                X - 0, 1, 2, 3, 4, 6.
00464  M01S00008.knwc25  +++|*                X - ALL.
00465  M01S00421.comknwc +++|*
00466  M01S00422.comknwc +++|*         CALLS  NPT, VPR.
00467  M01S00423.comknwc +++|
00468  M01S00424.comknwc +++|
00469  M01S00425.comknwc +++| CTA      SX2    B1          (X2) = NUMBER OF WORDS IN PARAMETER BLOCK
00470  M01S00426.comknwc +++|          RJ     VPR         VERIFY REQUEST PARAMETERS
00471  M01S00009.knwc25  +++|          LX1    TSCNN-TSCNS-1  RIGHT JUSTIFY ACN
00472  M01S00427.comknwc +++|          ZR     X6,TSSC     IF TERMINAL NOT LOGGED IN
00473  M01S00428.comknwc +++|          SA2    B4          READ TASK ACT

Line S00429 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00429.knwc25  ---|          LX1    TSCNN-TSCNS-1  RIGHT JUSTIFY ACN
00475  M01S00430.comknwc +++|          MX0    -AHACN
00476  M01S00431.comknwc +++|          BX1    -X0*X1      ACN
00477  M01S00432.comknwc +++|          SX3    X2-1
00478  M01S00010.knwc25  +++|          SB6    B1          (B6) .GT. 0 IMPLIES DEFAULT PARAMETERS
00479  M01S00011.knwc25  +++|          NG     X3,TERR28   IF ACT .LT. 1 (INCORRECT ACT)
00480  M01S00433.comknwc +++|          ZR     X3,TERR28   IF ACT .EQ. 1 (EXECUTIVE TO NAM ONLY)

Line S00434 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00434.knwc25  ---|          LX1    AHACS-AHACN+1

Line S00435 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00435.knwc25  ---|          MX0    -AHCTN
00483  M01S00436.comknwc +++|          SX3    X2-5
00484  M01S00437.comknwc +++|          SA4    SMDC        SET ACT IN SUPERVISORY MESSAGE

Line S00438 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00438.v23l617 ---|          PL     X3,TERR28   IF ACT .GT. 4 (ILLEGAL ACT)
00486  M01S00004.v23l617 +++|          PL     X3,TERR28   IF ACT .GT. 4 (INCORRECT ACT)
00487  M01S00012.knwc25  +++|          SX5    TNCTL
00488  M01S00013.knwc25  +++|          IX5    X5*X1
00489  M01S00014.knwc25  +++|          LX1    AHACS-AHACN+1
00490  M01S00015.knwc25  +++|          TA5    X5,VNCT     NCT ENTRY
00491  M01S00016.knwc25  +++|          LX5    -TNCTS+TNCTN-1
00492  M01S00017.knwc25  +++|          MX0    -TNCTN
00493  M01S00018.knwc25  +++|          BX5    X0*X5
00494  M01S00019.knwc25  +++|          SX7    X2-1        APPLICATION CHARACTER TYPE - 1
00495  M01S00020.knwc25  +++|          BX7    X5+X7
00496  M01S00021.knwc25  +++|          LX7    TNCTS-TNCTN+1
00497  M01S00022.knwc25  +++|          SA7    A5          STORE IN NCT
00498  M01S00023.knwc25  +++|          MX0    -AHCTN
00499  M01S00439.comknwc +++|          BX2    -X0*X2      MASK APPLICATION CHARACTER TYPE
00500  M01S00440.comknwc +++|          BX6    X2+X4
00501  M01S00441.comknwc +++|          BX6    X1+X6       INSERT ACN
00502  M01S00442.comknwc +++|          SA6    OTSB

Line S00443 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00443.knwc25  ---|          SB6    B1          (B6) .GT. 0 IMPLIES DEFAULT PARAMETERS
00504  M01S00006.ns22000 +++|          SX4    B1
00505  M01S00444.comknwc +++|          RJ     NPT         SET INPUT CHARACTER TYPE
00506  M01S00445.comknwc +++|          EQ     TSSC        RETURN TO TASK SWITCHING LOOP
00507  M01S00446.comknwc +++| CTD      SPACE  4,10
00508  M01S00447.comknwc +++|**        CTD - REQUEST CODE 17, DEFINE TERMINAL CHARACTERISTICS.
00509  M01S00448.comknwc +++|*
00510  M01S00449.comknwc +++|*         THE REQUEST FORMAT IS
00511  M01S00450.comknwc +++|*
00512  M01S00451.comknwc +++|*T  ADDR   42/      TERMINAL,18/     CC

Figure ADDR

00513  M01S00452.comknwc +++|*T, ADDR+1 42/      ,18/      STATUS

Figure ADDR+1

00514  M01S00453.comknwc +++|*T, ADDR+2 16/      CODE,44/      TEXT

Figure ADDR+2

00515  M01S00454.comknwc +++|*T, ADDR+N 60/      TEXT

Figure ADDR+N

00516  M01S00455.comknwc +++|*
00517  M01S00456.comknwc +++|*         TERMINAL = TERMINAL NAME OF TERMINAL TO BE OPERATED
00518  M01S00457.comknwc +++|*                     UPON.  ZERO IMPLIES ORIGINATING TERMINAL.
00519  M01S00458.comknwc +++|*         CC = CHARACTER COUNT OF ATTENDANT TEXT.
00520  M01S00459.comknwc +++|*         CODE = PRIMARY FUNCTION CODE FOR NETWORK SUPERVISOR.
00521  M01S00460.comknwc +++|*         TEXT = HEXIDECIMAL CHARACTERS WHOSE VALUES ARE ASCII FOR
00522  M01S00461.comknwc +++|*                THE NEW ATTRIBUTES FOR THE TERMINAL.
00523  M01S00462.comknwc +++|*
00524  M01S00463.comknwc +++|*         OPERATION - THE REQUEST PARAMETERS ARE VALIDATED AND

Line S00464 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00464.v23l617 ---|*                     THE TASK ABORTED FOR ILLEGAL CONDITIONS.  THE
00526  M01S00005.v23l617 +++|*                     THE TASK ABORTED FOR INCORRECT CONDITIONS.  THE
00527  M01S00465.comknwc +++|*                     CHARACTER COUNT AND THE ACN ARE TRANSFERRED TO
00528  M01S00466.comknwc +++|*                     THEIR RESPECTIVE PLACES IN THE ABH AND
00529  M01S00467.comknwc +++|*                     SUPERVISORY MESSAGE BUFFER, FOLLOWED BY A
00530  M01S00468.comknwc +++|*                     NETPUT OF THE MESSAGE.
00531  M01S00469.comknwc +++|*
00532  M01S00470.comknwc +++|*         ENTRY  (B6) = START OF COMMUNICATIONS BLOCK HEADER.
00533  M01S00471.comknwc +++|*                (B5) = TASK RA.
00534  M01S00472.comknwc +++|*                (B4) = COMPLEMENT OF PAREMETER ADDRESS.
00535  M01S00473.comknwc +++|*                (B2) = ADDRESS OF TASK-S SYSTEM AREA.
00536  M01S00474.comknwc +++|*
00537  M01S00475.comknwc +++|*         EXIT   TO *TRCL2* IF BLOCK OUTSTANDING.
00538  M01S00009.ns2337  +++|*                TO *SRM* IF BREAK OUTSTANDING.
00539  M01S00476.comknwc +++|*                TO *TSSC* OTHERWISE.
00540  M01S00477.comknwc +++|*                (B1) = 1.
00541  M01S00478.comknwc +++|*
00542  M01S00479.comknwc +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
00543  M01S00480.comknwc +++|*                B - 1, 3, 4.
00544  M01S00481.comknwc +++|*                X - ALL.
00545  M01S00482.comknwc +++|*
00546  M01S00483.comknwc +++|*         CALLS  NCK, NPT, PNT, RSP, VPR.
00547  M01S00484.comknwc +++|*
00548  M01S00485.comknwc +++|*         MACROS NET.
00549  M01S00486.comknwc +++|*
00550  M01S00487.comknwc +++|*         NOTE   1. IF TERMINAL HAS SEND WITH RECALL OR OUTPUT BLOCK
00551  M01S00488.comknwc +++|*                   OUTSTANDING, THE TASK IS PUT IN RECALL.

Line S00489 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00489.ns2337  ---|*                2. A RESET SUPERVISORY MESSAGE IS SENT PRIOR TO

Line S00490 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00490.ns2337  ---|*                   TERMDEF REQUEST IF BREAK IS OUTSTANDING.
00554  M01S00491.comknwc +++|
00555  M01S00492.comknwc +++|
00556  M01S00493.comknwc +++| CTD      SX4    60          COMPUTE REQUEST LENGTH
00557  M01S00494.comknwc +++|          SA2    B5-B4
00558  M01S00495.comknwc +++|          MX0    -18
00559  M01S00496.comknwc +++|          BX2    -X0*X2      LENGTH IN ASCII CHARACTERS
00560  M01S00497.comknwc +++|          LX2    3
00561  M01S00498.comknwc +++|          PX4    X4
00562  M01S00499.comknwc +++|          SX2    X2+179      LENGTH IN BITS
00563  M01S00500.comknwc +++|          NX4    X4
00564  M01S00501.comknwc +++|          PX2    X2
00565  M01S00502.comknwc +++|          NX2    X2
00566  M01S00503.comknwc +++|          FX4    X2/X4       LENGTH IN WORDS
00567  M01S00504.comknwc +++|          UX4,B3 X4
00568  M01S00505.comknwc +++|          LX2    X4,B3
00569  M01S00506.comknwc +++|          RJ     VPR         VERIFY REQUEST PARAMETERS
00570  M01S00507.comknwc +++| CTD1     LX1    59-TSLIS
00571  M01S00508.comknwc +++|          PL     X1,CTD5     IF TERMINAL NOT LOG IN
00572  M01S00509.comknwc +++|          MX0    -TSCNN
00573  M01S00510.comknwc +++|          LX1    TSCNN-TSCNS-1-59+TSLIS
00574  M01S00511.comknwc +++|          SX3    TNCTL
00575  M01S00512.comknwc +++|          BX2    -X0*X1      ACN
00576  M01S00513.comknwc +++|          IX3    X2*X3
00577  M01S00514.comknwc +++|          MX0    -TNBON
00578  M01S00515.comknwc +++|          TA3    X3,VNCT     NCT ENTRY
00579  M01S00516.comknwc +++|          SX5    B1          ADD OUTSTANDING OUTPUT BLOCK FLAG
00580  M01S00517.comknwc +++|          LX3    59-TNSRS
00581  M01S00518.comknwc +++|          NG     X3,CTD3     IF SEND WITH RECALL OUTSTANDING
00582  M01S00519.comknwc +++|          LX3    TNBON-TNBOS-1-59+TNSRS+60
00583  M01S00520.comknwc +++|          BX4    -X0*X3      OUTSTANDING OUTPUT BLOCK
00584  M01S00521.comknwc +++|          NZ     X4,CTD3     IF OUTPUT BLOCK OUTSTANDING
00585  M01S00522.comknwc +++|          BX3    X3+X5
00586  M01S00523.comknwc +++|          LX3    59-TNBKS-TNBON+TNBOS+1  LEFT JUSTIFY BREAK FLAG

Line S00524 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00524.ns2337  ---|          SA1    VSND        APPLICATION BLOCK NUMBER
00588  M01S00010.ns2337  +++|          PL     X3,CTD1.1   IF NO BREAK OUTSTANDING
00589  M01S00011.ns2337  +++|          SX1    B0
00590  M01S00012.ns2337  +++|          EQ     SRM         SEND RESUME OUTPUT MARKER
00591  M01S00013.ns2337  +++|
00592  M01S00014.ns2337  +++| CTD1.1   SA1    VSND        APPLICATION BLOCK NUMBER
00593  M01S00525.comknwc +++|          SA5    OTSI        SUPERVISORY MESSAGE HEADER
00594  M01S00526.comknwc +++|          MX0    -AHBNN
00595  M01S00527.comknwc +++|          SX6    X1+B1       INCREMENT APPLICATION BLOCK NUMBER
00596  M01S00528.comknwc +++|          BX6    -X0*X6
00597  M01S00529.comknwc +++|          SA4    B4          FIRST WORD OF PARAMETERS
00598  M01S00530.comknwc +++|          SA6    A1          UPDATE ABN
00599  M01S00531.comknwc +++|          LX2    AHADS-AHADN+1
00600  M01S00532.comknwc +++|          SX4    X4          TLC
00601  M01S00533.comknwc +++|          LX6    AHBNS-AHBNN+1
00602  M01S00534.comknwc +++|          SX7    B4+2        ADDRESS OF SUPERVISORY MESSAGE
00603  M01S00535.comknwc +++|          BX4    X4+X5       ADD TLC
00604  M01S00536.comknwc +++|          SA1    X7          FWA OF MESSAGE
00605  M01S00537.comknwc +++|          BX6    X4+X6       ADD ABN
00606  M01S00538.comknwc +++|          BX6    X2+X6       ADD ADR
00607  M01S00539.comknwc +++|          SA7    CTD2+4

Line S00540 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00608  M02S00540.ns2337  ---|          SA4    CTDA        TERMDEF FUNCTION CODE
00609  M01S00015.ns2337  +++|          SA4    SMTD        TERMDEF FUNCTION CODE
00610  M01S00541.comknwc +++|          MX0    -44
00611  M01S00542.comknwc +++|          BX7    -X0*X1      CLEAR FUNCTION CODE
00612  M01S00543.comknwc +++|          SA6    INDI        SUPERVISORY MESSAGE HEADER
00613  M01S00544.comknwc +++|          BX7    X4+X7
00614  M01S00545.comknwc +++|          SA7    A1

Line S00546 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00546.ns2337  ---|          MX0    -59         CLEAR BREAK INDICATOR

Line S00547 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00547.ns2337  ---|          BX7    -X0*X3
00617  M01S00016.ns2337  +++|          BX7    X3
00618  M01S00548.comknwc +++|          LX7    TNBKS-59

Line S00549 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00549.ns2337  ---|          SA7    A3          UPDATE NCT ENTRY

Line S00550 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00550.ns2337  ---|          PL     X3,CTD1.1   IF NOT BREAK OUTSTANDING

Line S00551 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00551.ns2337  ---|          SA5    SMRS        RESET FUNCTION

Line S00552 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00552.ns2337  ---|          LX2    AHACS-AHACN+1-AHADS+AHADN-1

Line S00553 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00553.ns2337  ---|          BX6    X2+X5       ADD ACN

Line S00554 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00554.ns2337  ---|          SA6    OTSB

Line S00007 Modification History
`M01` (Added by)	`ns22000`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00007.ns2337  ---|          SX4    B1

Line S00555 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

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

Line S00556 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00556.ns2337  ---|          EQ     CTD2        CONTINUE TO PROCESS TERMDEF REQUEST

Line S00557 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00557.ns2337  ---|

Line S00558 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00558.ns2337  ---| CTD1.1   RJ     NCK         CHECK NETWORK STATUS
00630  M01S00017.ns2337  +++|          SA7    A3+         UPDATE NCT ENTRY
00631  M01S00018.ns2337  +++|          RJ     NCK         CHECK NETWORK STATUS
00632  M01S00559.comknwc +++| CTD2     NET    PUT,INDI,O  SEND TERMDEF SUPERVISORY MESSAGE
00633  M01S00560.comknwc +++|          SB1    1
00634  M01S00561.comknwc +++|          RJ     NCK         CHECK NETWORK STATUS
00635  M01S00562.comknwc +++|          RJ     RSP         RESTORE (B2) AND (B7)
00636  M01S00563.comknwc +++|          EQ     TSSC        ACTIVE TASK
00637  M01S00564.comknwc +++|
00638  M01S00565.comknwc +++|*         SAVE REGISTER FOR RECALL.
00639  M01S00566.comknwc +++|
00640  M01S00567.comknwc +++| CTD3     SX1    A1          TST ENTRY
00641  M01S00568.comknwc +++|          SB3    B2+NUAPL    TASK RA
00642  M01S00569.comknwc +++|          SX2    B4-B3       FWA OF PARMETERS RELATIVE TO RA
00643  M01S00570.comknwc +++|          LX1    18
00644  M01S00571.comknwc +++|          BX6    X1+X2
00645  M01S00572.comknwc +++|          SX7    CTD4        RETURN ADDRESS
00646  M01S00573.comknwc +++|          SA6    B2+RCLA
00647  M01S00574.comknwc +++|          EQ     TRCL2       PUT TASK IN RECALL
00648  M01S00575.comknwc +++|
00649  M01S00576.comknwc +++|*         SET UP REGISTERS AFTER RECALL.
00650  M01S00577.comknwc +++|
00651  M01S00578.comknwc +++| CTD4     SA2    B2+RCLA
00652  M01S00579.comknwc +++|          SB3    B2+NUAPL    TASK RA
00653  M01S00580.comknwc +++|          SB4    B3+X2       FWA OF PARAMETERS
00654  M01S00581.comknwc +++|          LX2    -18
00655  M01S00582.comknwc +++|          SA1    X2          TST ENTRY
00656  M01S00583.comknwc +++|          EQ     CTD1        TRY AGAIN
00657  M01S00584.comknwc +++|
00658  M01S00585.comknwc +++| CTD5     SA4    A1+B1       GET *TST* WORD 2
00659  M01S00586.comknwc +++|          LX4    59-TSCPS
00660  M01S00587.comknwc +++|          PL     X4,TSSC     IF NOT DUE TO A CONNECTION FAILURE
00661  M01S00588.comknwc +++|          RJ     PNT         PROCESS NETWORK OR TERMINAL FAILURE
00662  M01S00589.comknwc +++|          EQ     TSSC        EXIT

Line S00590 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00590.ns2337  ---|

Line S00591 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns2337`

Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00591.ns2337  ---| CTDA     VFD    8/PFTC,2/0,6/SFDF,44/0  TERMDEF FUNCTION CODE
00665  M01S00592.comknwc +++| CTH      SPACE  4,10
00666  M01S00593.comknwc +++|**        CTH - REQUEST CODE 18, GET APPLICATION BLOCK HEADER.
00667  M01S00594.comknwc +++|*
00668  M01S00595.comknwc +++|*         THE REQUEST FORMAT IS
00669  M01S00596.comknwc +++|*
00670  M01S00597.comknwc +++|*T  ADDR   42/      TERMINAL,18/     0

Figure ADDR

00671  M01S00598.comknwc +++|*T, ADDR+1 42/      0,18/      STATUS

Figure ADDR+1

00672  M01S00599.comknwc +++|*T, ADDR+2 60/      ABH

Figure ADDR+2

00673  M01S00600.comknwc +++|*
00674  M01S00601.comknwc +++|*         TERMINAL - TERMINAL NAME BEING OPERATED UPON.
00675  M01S00602.comknwc +++|*                   ZERO IMPLIES ORIGINATING TERMINAL.
00676  M01S00603.comknwc +++|*         STATUS -  ADDRESS OF THE TERMINAL LOGGIN STATUS WORD.
00677  M01S00604.comknwc +++|*         ABH - APPLICATION BLOCK HEADER RETURNED TO THE TASK.
00678  M01S00605.comknwc +++|*
00679  M01S00606.comknwc +++|*         OPERATION - THE REQUEST PPARAMETERS ARE VERIFIED AND

Line S00607 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00607.v23l617 ---|*                     THE TASK ABORTED FOR ILLEGAL CONDITIONS.  THE
00681  M01S00006.v23l617 +++|*                     THE TASK ABORTED FOR INCORRECT CONDITIONS.  THE
00682  M01S00608.comknwc +++|*                     ABH FROM THE NCT IS LOCATED AND RETURNED TO
00683  M01S00609.comknwc +++|*                     THE TASK IN THE APPROPRIATE PLACE IN THE
00684  M01S00610.comknwc +++|*                     PARAMETER BLOCK.
00685  M01S00611.comknwc +++|*
00686  M01S00612.comknwc +++|*         ENTRY  (B6) = START OF COMMUNICATIONS BLOCK HEADER.
00687  M01S00613.comknwc +++|*                (B5) = TASK RA.
00688  M01S00614.comknwc +++|*                (B4) = COMPLEMENT OF PAREMETER ADDRESS.
00689  M01S00615.comknwc +++|*                (B2) = ADDRESS OF TASK-S SYSTEM AREA.
00690  M01S00616.comknwc +++|*
00691  M01S00617.comknwc +++|*         EXIT   TO *TSSC*.
00692  M01S00618.comknwc +++|*
00693  M01S00619.comknwc +++|*         USES   A - 4, 7.
00694  M01S00620.comknwc +++|*                X - 0, 1, 2, 3, 4, 7.
00695  M01S00621.comknwc +++|*
00696  M01S00622.comknwc +++|*         CALLS  PNT, VPR.
00697  M01S00623.comknwc +++|
00698  M01S00624.comknwc +++|
00699  M01S00625.comknwc +++| CTH      SX2    2           (X2) = WORD COUNT OF PARAMETER BLOCK
00700  M01S00626.comknwc +++|          RJ     VPR         VERIFY REQUEST PARAMETERS
00701  M01S00627.comknwc +++|          ZR     X6,CTH1     IF TERMINAL NOT LOG IN
00702  M01S00628.comknwc +++|          MX0    -12
00703  M01S00629.comknwc +++|          LX1    11-53
00704  M01S00630.comknwc +++|          SX2    TNCTL
00705  M01S00631.comknwc +++|          BX1    -X0*X1      MASK ACN
00706  M01S00632.comknwc +++|          IX3    X2*X1
00707  M01S00633.comknwc +++|          TX3    X3,VNCT
00708  M01S00634.comknwc +++|          SA4    X3+2        (X4) = ABH
00709  M01S00635.comknwc +++|          BX7    X4
00710  M01S00636.comknwc +++|          SA7    B4+2        RETURN ABH TO TASK FIELD LENGTH
00711  M01S00637.comknwc +++|          EQ     TSSC        RETURN TO TASK SWITCHING LOOP
00712  M01S00638.comknwc +++| CTS      SPACE  4,30
00713  M01S00639.comknwc +++|**        CTS - SEND TERMINAL OUTPUT.
00714  M01S00640.comknwc +++|
00715  M01S00641.comknwc +++| CTH1     SA4    A1+B1       GET *TST* WORD 2
00716  M01S00642.comknwc +++|          LX4    59-TSCPS
00717  M01S00643.comknwc +++|          PL     X4,TSSC     IF NOT DUE TO A CONNECTION FAILURE
00718  M01S00644.comknwc +++|          RJ     PNT         PROCESS NETWORK OR TERMINAL FAILURE
00719  M01S00645.comknwc +++|          EQ     TSSC        EXIT
00720  M01S00646.comknwc +++|*
00721  M01S00647.comknwc +++|*         THE REQUEST FORMAT IS
00722  M01S00648.comknwc +++|*
00723  M01S00649.comknwc +++|*T  ADDR   1/T,1/C,1/ ,1/B,1/R,1/A,1/F,5/ ,18/MSG,12/0,18/NUM

Figure ADDR

00724  M01S00650.comknwc +++|*T, ADDR+1 42/ TERMINAL NAME,18/BLOCK NUMBER

Figure ADDR+1

00725  M01S00651.comknwc +++|*T, ADDR+2 60/APPLICATION BLOCK HEADER

Figure ADDR+2

00726  M01S00652.comknwc +++|*T, ADDR+3 60/STATUS

Figure ADDR+3

00727  M01S00653.comknwc +++|*
00728  M01S00654.comknwc +++|*                T = 1 IF SEND TO TERMINAL SPECIFIED IN ADDR+1 ELSE
00729  M01S00655.comknwc +++|*                    SEND TO ORIGINATING TERMINAL.
00730  M01S00656.comknwc +++|*                C = 1 IF TASK CEASE REQUESTED.
00731  M01S00657.comknwc +++|*                B = RETURN APPLICATION BLOCK NUMBER.
00732  M01S00658.comknwc +++|*                R = 1 IF SEND MUST WAIT FOR BLOCK TO BE DELIVERTED
00733  M01S00659.comknwc +++|*                      TO TERMINAL.
00734  M01S00660.comknwc +++|*                A = 1 IF USER SUPPLIES ABH.
00735  M01S00661.comknwc +++|*                F = 1 IF FINAL SEND BEFORE *CEASE* OR *WAITINP*.
00736  M01S00662.comknwc +++|*                    THIS BIT IS RESERVED FOR *TAF*.
00737  M01S00663.comknwc +++|*                MSG = FWA OF MESSAGE.
00738  M01S00664.comknwc +++|*                NUM = NUMBER OF WORDS IN MESSAGE.
00739  M01S00665.comknwc +++|*
00740  M01S00666.comknwc +++|*         ENTRY  (B6) = START OF COMMUNICATIONS BLOCK HEADER.
00741  M01S00667.comknwc +++|*                (B5) = TASK RA.
00742  M01S00668.comknwc +++|*                (B4) = COMPLEMENT OF PAREMETER ADDRESS.
00743  M01S00669.comknwc +++|*                (B2) = ADDRESS OF TASK-S CONTEXT BLOCK.
00744  M01S00670.comknwc +++|*
00745  M01S00671.comknwc +++|*         EXIT   TO *SND* IF NORMAL TASK SEND.

Line S00672 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00672.v23l617 ---|*                TO *TERR8* IF ILLEGAL WORD COUNT.
00747  M01S00007.v23l617 +++|*                TO *TERR8* IF INCORRECT WORD COUNT.
00748  M01S00673.comknwc +++|*                TO *TERR2* IF MESSAGE OUT OF RANGE.
00749  M01S00674.comknwc +++|*                TO *TERR7* IF INVALID TERMINAL.
00750  M01S00675.comknwc +++|*                TO *TERR11* IF INVALID DATA BASE.
00751  M01S00676.comknwc +++|*
00752  M01S00677.comknwc +++|*         USES   A - 2, 3, 4, 6, 7.
00753  M01S00678.comknwc +++|*                B - 4, 6.
00754  M01S00679.comknwc +++|*                X - 0, 2, 3, 4, 5, 6, 7.
00755  M01S00680.comknwc +++|*
00756  M01S00681.comknwc +++|*         CALLS  CWC, STST.
00757  M01S00682.comknwc +++|
00758  M01S00683.comknwc +++|
00759  M01S00684.comknwc +++| CTS      SA2    B5-B4       PARAMETER WORD ONE
00760  M01S00685.comknwc +++|          SA3    B6+B1
00761  M01S00686.comknwc +++|          SX6    X2+B1       NUMBER OF WORDS TO SEND
00762  M01S00687.comknwc +++|          MX0    -59
00763  M01S00688.comknwc +++|          LX2    59-53       CLEAR FLAG
00764  M01S00689.comknwc +++|          BX2    -X0*X2
00765  M01S00690.comknwc +++|          LX2    59-54-59+53
00766  M01S00691.comknwc +++|          LX0    57-59
00767  M01S00692.comknwc +++|          PL     X2,CTS1     IF USER DOES NOT SUPPLIES ABH
00768  M01S00693.comknwc +++|          RJ     CWC         CALCULATE WORD COUNT
00769  M01S00694.comknwc +++| CTS1     LX2    54-59
00770  M01S00695.comknwc +++|          BX4    X0*X2
00771  M01S00696.comknwc +++|          BX6    X4+X6
00772  M01S00697.comknwc +++|          LX3    -42
00773  M01S00698.comknwc +++|          SX3    X3          TST ADDRESS FOR TERMINAL
00774  M01S00699.comknwc +++|          MX0    1
00775  M01S00700.comknwc +++|          NG     X2,CTS3     IF NOT SEND TO ORIGINATING TERMINAL
00776  M01S00701.comknwc +++| CTS2     SA4    B2+CB1C
00777  M01S00702.comknwc +++|          MX7    1
00778  M01S00703.comknwc +++|          LX7    CBSDS-59
00779  M01S00704.comknwc +++|          BX7    X7+X4       SET MESSAGE SENT FLAG
00780  M01S00705.comknwc +++|          SA7    A4
00781  M01S00706.comknwc +++|          EQ     CTS5        CHECK MESSAGE LENGTH
00782  M01S00707.comknwc +++|
00783  M01S00708.comknwc +++|*         VALIDATE TERMINAL.
00784  M01S00709.comknwc +++|
00785  M01S00710.comknwc +++| CTS3     SA4    A2+B1
00786  M01S00711.comknwc +++|          BX5    X3
00787  M01S00712.comknwc +++|          RJ     STST        SEARCH TERMINAL STATUS TABLE
00788  M01S00713.comknwc +++|          ZR     X3,TERR7    IF TERMINAL NOT FOUND
00789  M01S00001.knwc7   +++|          SA4    A3-1
00790  M01S00714.comknwc +++|          MX7    -12
00791  M01S00715.comknwc +++|          IX5    X3-X5
00792  M01S00716.comknwc +++|          LX4    -24
00793  M01S00717.comknwc +++|          BX7    -X7*X4      DATA BASE OF RECEIVING TERMINAL
00794  M01S00718.comknwc +++|          ZR     X5,CTS2     IF SEND TO ORIGINATING TERMINAL
00795  M01S00719.comknwc +++|          SA4    B2+DBNC     DATA BASE OF SENDING TERMINAL
00796  M01S00720.comknwc +++|          NG     X4,CTS5     IF VALID FOR ALL DATA BASES
00797  M01S00721.comknwc +++|          SX4    X4
00798  M01S00722.comknwc +++|          BX7    X7-X4
00799  M01S00723.comknwc +++|          ZR     X7,CTS5     IF DATA BASES MATCH
00800  M01S00724.comknwc +++|          SX4    X4-2RSY
00801  M01S00725.comknwc +++|          NZ     X4,TERR11   IF NOT VALIDATED FOR ALL DATA BASES
00802  M01S00726.comknwc +++| CTS5     LX2    -30
00803  M01S00727.comknwc +++|          ZR     X3,TERR7    IF NO TERMINAL EXISTS - FATAL ERROR
00804  M01S00728.comknwc +++|          SX5    TSTLLE      LENGTH OF TST ENTRY
00805  M01S00729.comknwc +++|          IX5    X3*X5       OFFSET INTO TST
00806  M01S00730.comknwc +++|          LX3    18
00807  M01S00731.comknwc +++|          TA4    X5,VTST     TST ENTRY FOR TERMINAL
00808  M01S00732.comknwc +++|          LX4    59-TSLIS
00809  M01S00733.comknwc +++|          SB6    X2          FWA OF MESSAGE
00810  M01S00734.comknwc +++|          SB4    X6-MAXWS-1
00811  M01S00735.comknwc +++|          IX7    X3+X6
00812  M01S00736.comknwc +++|          SA1    B7          SUBCONTROL POINT ENTRY
00813  M01S00737.comknwc +++|          NG     X6,TERR8    IF WORD COUNT IS NEGATIVE
00814  M01S00738.comknwc +++|          BX7    X7+X0
00815  M01S00739.comknwc +++|          SB3    X6
00816  M01S00740.comknwc +++|          EQ     B3,B1,TERR8 IF WORD COUNT IS ZERO
00817  M01S00741.comknwc +++|          SA3    B2+TOWC
00818  M01S00742.comknwc +++|          PL     B4,TERR8    IF WORD COUNT IS TOO HIGH
00819  M01S00743.comknwc +++|          SB3    B3-B1
00820  M01S00744.comknwc +++|          SX6    X3+B3       UPDATE TOTAL WORD OF TERMINAL OUTPUT
00821  M01S00745.comknwc +++|          SX3    B6
00822  M01S00746.comknwc +++|          LX1    -18         RIGHT JUSTIFY FL
00823  M01S00747.comknwc +++|          SX5    SUAC
00824  M01S00748.comknwc +++|          IX3    X3-X5
00825  M01S00749.comknwc +++|          SX1    X1
00826  M01S00750.comknwc +++|          NG     X3,TERR2    IF MESSAGE OUT OF RANGE
00827  M01S00751.comknwc +++|          SX3    X6-MAXTO
00828  M01S00752.comknwc +++|          SA6    A3
00829  M01S00753.comknwc +++|          SB6    -B6+B1
00830  M01S00754.comknwc +++|          PL     X3,TERR8    IF TOO MUCH TOTAL TERMINAL OUTPUT
00831  M01S00755.comknwc +++|          SB4    B6-B3
00832  M01S00756.comknwc +++|          SX6    X1+B4
00833  M01S00757.comknwc +++|          NG     X6,TERR2    IF MESSAGE OUT OF RANGE
00834  M01S00758.comknwc +++|          LX2    59-58+30
00835  M01S00759.comknwc +++|          SX5    B1
00836  M01S00760.comknwc +++|          PL     X2,CTS6     IF SEND WITHOUT CEASE
00837  M01S00761.comknwc +++|          MX3    -59
00838  M01S00762.comknwc +++|          BX2    -X3*X2      CLEAR CEASE FLAG
00839  M01S00763.comknwc +++|          MX0    -48
00840  M01S00764.comknwc +++|          SA1    B2+CB2C     GET C.B. ADDRESS
00841  M01S00765.comknwc +++|          SA1    X1+CBTLW
00842  M01S00766.comknwc +++|          BX7    -X0*X1
00843  M01S00767.comknwc +++|          NZ     X7,CTS6     IF NOT LAST TRANSACTION
00844  M01S00768.comknwc +++|          BX2    X2+X3       ADD LAST CEASE FLAG
00845  M01S00769.comknwc +++|          SX5    B1+B1
00846  M01S00770.comknwc +++| CTS6     LX5    -6
00847  M01S00771.comknwc +++|          MX0    -54         CLEAR ABT
00848  M01S00772.comknwc +++|          LX2    58-59+30
00849  M01S00773.comknwc +++|          SA3    A2+2        GET APPLICATION BLOCK HEADER
00850  M01S00774.comknwc +++|          BX7    -X0*X3      CLEAR ABT
00851  M01S00775.comknwc +++|          BX6    X5+X7       ADD NEW ABT
00852  M01S00776.comknwc +++|          SA6    A3          UPDATE APPLICATION BLOCK HEADER
00853  M01S00777.comknwc +++|          EQ     SND         SEND MESSAGE
00854  M01S00778.comknwc +++| CWC      SPACE  4,15
00855  M01S00779.comknwc +++|**        CWC - CALCULATE WORD COUNT.
00856  M01S00780.comknwc +++|*
00857  M01S00781.comknwc +++|*         ENTRY  (A2) = FIRST WORD ADDRESS OF PARAMETERS.
00858  M01S00782.comknwc +++|*
00859  M01S00783.comknwc +++|*         EXIT   (X6) = WORD COUNT PLUS ONE.
00860  M01S00784.comknwc +++|*
00861  M01S00785.comknwc +++|*         USES   A - 1, 4.
00862  M01S00786.comknwc +++|*                B - 3.
00863  M01S00787.comknwc +++|*                X - 1, 4, 5, 6, 7.
00864  M01S00788.comknwc +++|
00865  M01S00789.comknwc +++|
00866  M01S00790.comknwc +++| CWC      SUBR               ENTRY/EXIT
00867  M01S00791.comknwc +++|          MX1    -AHLCN      MASK TLC
00868  M01S00792.comknwc +++|          SA4    A2+2        APPLICATION BLOCK HEADER
00869  M01S00793.comknwc +++|          MX5    -AHCTN      MASK ACT
00870  M01S00794.comknwc +++|          BX7    -X1*X4      MESSAGE LENGTH IN UNIT
00871  M01S00795.comknwc +++|          LX4    AHCTN-AHCTS-1 RIGHT JUSTIFY ACT
00872  M01S00796.comknwc +++|          BX5    -X5*X4      APPLICATION CHARACTER TYPE
00873  M01S00797.comknwc +++|          SB3    X5-1        ACT-1
00874  M01S00798.comknwc +++|          SX5    X5-5

Line S00799 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00799.v23l617 ---|          LE     B3,TERR28   IF ILLEGAL ACT (.LE. 1)

Line S00800 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00876  M02S00800.v23l617 ---|          PL     X5,TERR28   IF ILLEGAL ACT (.GT. 4)
00877  M01S00008.v23l617 +++|          LE     B3,TERR28   IF INCORRECT ACT (.LE. 1)
00878  M01S00009.v23l617 +++|          PL     X5,TERR28   IF INCORRECT ACT (.GT. 4)
00879  M01S00801.comknwc +++|          SX6    60
00880  M01S00802.comknwc +++|          SA1    NGCA+B3     ACT TABLE
00881  M01S00803.comknwc +++|          IX1    X1*X7       MESSAGE LENGTH IN BITS
00882  M01S00804.comknwc +++|          PX6    X6
00883  M01S00805.comknwc +++|          SX1    X1+59       MODULE 60
00884  M01S00806.comknwc +++|          PX1    X1
00885  M01S00807.comknwc +++|          NX6    X6
00886  M01S00808.comknwc +++|          FX7    X1/X6       MESSAGE LENGTH IN WORDS
00887  M01S00809.comknwc +++|          UX7,B3 X7
00888  M01S00810.comknwc +++|          LX6    B3,X7
00889  M01S00811.comknwc +++|          SX6    X6+B1
00890  M01S00812.comknwc +++|          EQ     CWCX        RETURN
00891  M01S00813.comknwc +++|          TITLE  NGL - TERMINAL INPUT PROCESSOR.
00892  M01S00814.comknwc +++| NGL      SPACE  4,35
00893  M01S00815.comknwc +++|**        NGL - GET TERMINAL INPUT FROM NAM.
00894  M01S00816.comknwc +++|*
00895  M01S00817.comknwc +++|*                1. IF *NAM* IS RUNNING GO TO STEP 3.
00896  M01S00818.comknwc +++|*                2. CALL ROUTINE *PNS* TO CHECK ANY ACTIVE TERMINAL,
00897  M01S00819.comknwc +++|*                   IF THERE IS NO ACTIVE TERMINAL RETURN.
00898  M01S00820.comknwc +++|*                3. CHECK SUPERVISORY MESSAGE STATUS WORD *NSUP*.
00899  M01S00821.comknwc +++|*                   IF PREVIOUS NETWORK REQUEST NOT COMPLETE RETURN.
00900  M01S00822.comknwc +++|*                4. IF NO OUTSTANDING NETWORK REQUEST GO TO STEP 8.
00901  M01S00823.comknwc +++|*                5. IF TAF ROLLED CALL *TRI* TO ROLL TAF IN.
00902  M01S00824.comknwc +++|*                6. IF PREVIOUS REQUEST IS *NETPUT* SET COMPLETE FLAG
00903  M01S00825.comknwc +++|*                   IN TASK RECALL STATUS.  OUTPUT PROCESSOR *SND*
00904  M01S00826.comknwc +++|*                   RETURNS STATUS TO TASK BASED ON COMPLETION FLAG.
00905  M01S00827.comknwc +++|*                   GO TO STEP 8 TO CONTINUE INPUT PROCESS.
00906  M01S00828.comknwc +++|*                7. JUMP TO PROPER SUBROUTINE TO PROCESS PREVIOUS
00907  M01S00829.comknwc +++|*                   NETWORK REQUEST.
00908  M01S00830.comknwc +++|*                8. IF THERE IS A SM IN *AIP* CALL *SMP*.
00909  M01S00831.comknwc +++|*                9. CALL ROUTINE *NIT* TO PROCESS NETWORK TERMINAL
00910  M01S00832.comknwc +++|*                   INPUT.
00911  M01S00833.comknwc +++|*               10. IF COMMUNICATION BLOCK AVAILABLE RETURN.
00912  M01S00834.comknwc +++|*               11. INCREMENT NO COMMUNICATION BLOCK AVAILABLE COUNTER,
00913  M01S00835.comknwc +++|*                   IF THE COUNTER IS GREATER THAN 4, CALL *SMP* TO
00914  M01S00836.comknwc +++|*                   GET A BLOCK DELIVERED SUPERVISORY MESSAGE
00915  M01S00837.comknwc +++|*                   (FC/ACK) TO FREE A COMMUNICATION BLOCK.
00916  M01S00838.comknwc +++|*
00917  M01S00839.comknwc +++|*         ENTRY  (VNON) = NAM STATUS.
00918  M01S00840.comknwc +++|*                (TROA) = 0 IF TRANSACTION SUBSYSTEM ROLLED IN.
00919  M01S00841.comknwc +++|*                (NSUP) = 1 IF THERE IS SUPERVISORY MESSAGE IN AIP.
00920  M01S00842.comknwc +++|*                (PPMA) = NETWORK REQUEST STATUS.
00921  M01S00843.comknwc +++|*                (SMPD) = NO COMMUNICATION BLOCK COUNTER.
00922  M01S00844.comknwc +++|*
00923  M01S00845.comknwc +++|*         EXIT   (B2) AND (B7) RESTORED.
00924  M01S00846.comknwc +++|*                (B1) = 1.
00925  M01S00847.comknwc +++|*
00926  M01S00848.comknwc +++|*         USES   A - 1, 2, 3, 7.
00927  M01S00849.comknwc +++|*                B - 1, 3.
00928  M01S00850.comknwc +++|*                X - 1, 2, 3, 7.
00929  M01S00851.comknwc +++|*
00930  M01S00852.comknwc +++|*         CALLS  NIT, PNS, RSP, SMP, TRI.
00931  M01S00853.comknwc +++|*
00932  M01S00854.comknwc +++|*         MACROS NET.
00933  M01S00855.comknwc +++|
00934  M01S00856.comknwc +++|
00935  M01S00857.comknwc +++| NGL3     SB1    1
00936  M01S00858.comknwc +++|          RJ     RSP         RESTORE (B2) AND (B7)
00937  M01S00859.comknwc +++|
00938  M01S00860.comknwc +++| NGL      SUBR               ENTRY/EXIT
00939  M01S00861.comknwc +++|
00940  M01S00862.comknwc +++|*         CHECK FOR ANY SUPERVISORY.
00941  M01S00863.comknwc +++|
00942  M01S00864.comknwc +++|          SA3    VNON        *NAM* STATUS
00943  M01S00865.comknwc +++|          ZR     X3,NGL1     IF *NAM* RUNNING
00944  M01S00866.comknwc +++|          RJ     PNS         PROCESS NETWORK SHUTDOWN
00945  M01S00867.comknwc +++|          ZR     B3,NGL3     IF NO TERMINAL ACTIVE
00946  M01S00868.comknwc +++| NGL1     NET    CHEK        CHECK NETWORK STATUS
00947  M01S00869.comknwc +++|          SA1    NSUP        NETWORK STATUS WORD
00948  M01S00870.comknwc +++|          SA2    PPMA        RETURN ADDRESS
00949  M01S00871.comknwc +++|          PL     X1,NGL3     IF LAST NETWORK REQUEST NOT COMPLETE
00950  M01S00872.comknwc +++|          ZR     X2,NGL1.4   IF NO NETWORK REQUEST OUTSTANDING
00951  M01S00873.comknwc +++|          SA3    TROA
00952  M01S00874.comknwc +++|          ZR     X3,NGL1.2   IF TAF ROLLED IN
00953  M01S00875.comknwc +++|          RJ     TRI         ROLL TAF IN
00954  M01S00876.comknwc +++| NGL1.2   SA3    SNDB        *NETPUT* STATUS
00955  M01S00877.comknwc +++|          SA2    PPMA        NETWORK REQUEST STATUS
00956  M01S00878.comknwc +++|          ZR     X3,NGL1.3   IF NOT *NETPUT*
00957  M01S00879.comknwc +++|          SA3    X3          SET COMPLETE FLAG
00958  M01S00880.comknwc +++|          MX7    1
00959  M01S00881.comknwc +++|          BX7    X7+X3

Line S00882 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc23`

Seq #  *Modification Id* Act 
----------------------------+
00960  M02S00882.knwc23  ---|          SA7    A3
00961  M01S00001.knwc23  +++|          SA7    A3+
00962  M01S00002.knwc23  +++|          BX7    X7-X7
00963  M01S00003.knwc23  +++|          SA7    SNDB        CLEAR TASK RECALL STATUS
00964  M01S00004.knwc23  +++|          SA7    TROF        CLEAR ROLLOUT INHIBIT FLAG
00965  M01S00005.knwc23  +++|          SA7    PPMA        CLEAR NETWORK REQUEST FLAG
00966  M01S00883.comknwc +++|          EQ     NGL3        RETURN
00967  M01S00884.comknwc +++|
00968  M01S00885.comknwc +++| NGL1.3   SB3    X2          RETURN ADDRESS
00969  M01S00886.comknwc +++|          BX6    X6-X6       CLEAR NETWORK REQUEST STATUS WORD
00970  M01S00887.comknwc +++|          SA6    A2+
00971  M01S00888.comknwc +++|          JP     B3          PROCESS PROPER FUNCTION
00972  M01S00889.comknwc +++|
00973  M01S00890.comknwc +++| NGL1.4   SB3    B0
00974  M01S00891.comknwc +++|          LX1    59-55
00975  M01S00892.comknwc +++|          PL     X1,NGL2     IF NO SUPERVISORY MESSAGE
00976  M01S00893.comknwc +++|          RJ     SMP         PROCESS SUPERVISORY MESSAGE
00977  M01S00894.comknwc +++|          NZ     B3,NGL3     IF TASK SCHEDULED
00978  M01S00895.comknwc +++| NGL2     RJ     NIT         PROCESS NETWORK INPUT TO TAF
00979  M01S00896.comknwc +++|          NZ     X0,NGL3     IF COMMUNICATION BLOCK RESERVED
00980  M01S00897.comknwc +++|          SB3    B1+         FORCE UPDATE OF *NSUP*
00981  M01S00898.comknwc +++|          SA1    SMPD        INCREMENT NO C.B. AVAILABLE COUNTER
00982  M01S00899.comknwc +++|          SX7    X1+B1
00983  M01S00900.comknwc +++|          SA7    A1
00984  M01S00901.comknwc +++|          BX6    X6-X6
00985  M01S00902.comknwc +++|          LX7    -2
00986  M01S00903.comknwc +++|          PL     X7,NGL3     IF NOT TIME TO UPDATE *NSUP*
00987  M01S00904.comknwc +++|          SA6    A1
00988  M01S00905.comknwc +++|          RJ     SMP         DO A NETGET ON ACN = 0
00989  M01S00906.comknwc +++|          EQ     NGL3        RETURN
00990  M01S00907.comknwc +++| PPM      SPACE  4,15
00991  M01S00908.comknwc +++|**        PPM - PROCESS PARALLEL MODE.
00992  M01S00909.comknwc +++|*
00993  M01S00910.comknwc +++|*         ENTRY  (NSUP) = NEGATIVE IF *AIP* COMPLETED THE
00994  M01S00911.comknwc +++|*                         NETWORK REQUEST.
00995  M01S00912.comknwc +++|*
00996  M01S00913.comknwc +++|*         EXIT   (B1) = 1.
00997  M01S00914.comknwc +++|*                TO *NGL3* IF LAST REQUEST NOT COMPLETE.
00998  M01S00915.comknwc +++|*                (PPMA) = RETURN ADDRESS.
00999  M01S00916.comknwc +++|*
01000  M01S00917.comknwc +++|*         USES   A - 1, 2.
01001  M01S00918.comknwc +++|*                X - 1, 2.
01002  M01S00919.comknwc +++|
01003  M01S00920.comknwc +++|
01004  M01S00921.comknwc +++| PPM      SUBR               ENTRY/EXIT
01005  M01S00922.comknwc +++|          SA1    NSUP        NETWORK STATUS WORD
01006  M01S00923.comknwc +++|          BX2    X1
01007  M01S00924.comknwc +++|          LX2    59-57
01008  M01S00925.comknwc +++|          PL     X2,PPM1     IF *NETWORK* NOT AVAILABLE
01009  M01S00926.comknwc +++|          NG     X1,PPMX     IF LAST NETWORK REQUEST COMPLETED
01010  M01S00927.comknwc +++|          SA2    PPM         SET NETWORK REQUEST FLAG
01011  M01S00928.comknwc +++|          MX7    -18
01012  M01S00929.comknwc +++|          LX2    30
01013  M01S00930.comknwc +++|          BX7    -X7*X2
01014  M01S00931.comknwc +++|          SA7    PPMA
01015  M01S00932.comknwc +++|          EQ     NGL3        EXIT
01016  M01S00933.comknwc +++|
01017  M01S00934.comknwc +++| PPM1     RJ     RAN         RECOVER FROM ABORT OF *NETWORK*
01018  M01S00935.comknwc +++|          SA1    BFPT        ACKNOWLEDGE MESSAGE
01019  M01S00936.comknwc +++|          BX7    X1
01020  M01S00937.comknwc +++|          SA7    VSCR
01021  M01S00938.comknwc +++|          EQ     NGL3        EXIT
01022  M01S00939.comknwc +++|
01023  M01S00940.comknwc +++| PPMA     CON    0           NETWORK REQUEST FLAG - RETURN ADDRESS
01024  M01S00941.comknwc +++|          TITLE  PNS - PROCESS NETWORK SHUTDOWN.
01025  M01S00942.comknwc +++| PNS      SPACE  4,25
01026  M01S00943.comknwc +++|**        PNS - PROCESS NETWORK SHUTDOWN.
01027  M01S00944.comknwc +++|*
01028  M01S00945.comknwc +++|*                1. IF NETWORK NORMAL SHUT DOWN GO TO STEP 5.
01029  M01S00946.comknwc +++|*                2. IF NO NETON COMMAND FROM OPERATOR RETURN.
01030  M01S00947.comknwc +++|*                3. IF AN ASSEMBLY DEFINED TIME HAS ELAPSED SINCE
01031  M01S00948.comknwc +++|*                   LAST NETON ATTEMP CALL ROUTINE *NON* TO DO A
01032  M01S00949.comknwc +++|*                   *NETON*.
01033  M01S00950.comknwc +++|*                4. RETURN TO THE CALLER.
01034  M01S00951.comknwc +++|*                5. SEARCH ALL COMMUNICATION BLOCKS.  IF ANY
01035  M01S00952.comknwc +++|*                   COMMUNICATION BLOCK IS NOT RESERVED FOR BATCH
01036  M01S00953.comknwc +++|*                   INPUT RETURN WITH (B3) .EQ. 1.
01037  M01S00954.comknwc +++|*                6. SEARCH NETWORK COMMUNICATION TABLE TO FIND TST
01038  M01S00955.comknwc +++|*                    ENTRY.  IF ANY TASK IS IN *WAITINP*,
01039  M01S00956.comknwc +++|*                    RETURN WITH (B3) .EQ. 1.
01040  M01S00957.comknwc +++|*                7. DO A NETOFF AND RETURN WITH (B3) .EQ. 0.
01041  M01S00958.comknwc +++|*
01042  M01S00959.comknwc +++|*         ENTRY  (X3) .LT. 0, IF NORMAL SHUTDOWN.
01043  M01S00960.comknwc +++|*                     .GT. 0, OTHERWISE.
01044  M01S00961.comknwc +++|*
01045  M01S00962.comknwc +++|*         EXIT   (B3) .EQ. 0 IF NO TERMINAL ACTIVE.
01046  M01S00963.comknwc +++|*                     .EQ. 1 OTHERWISE.
01047  M01S00964.comknwc +++|*
01048  M01S00965.comknwc +++|*         USES   A - 1, 2, 3, 4, 7.
01049  M01S00966.comknwc +++|*                B - 4, 5.
01050  M01S00967.comknwc +++|*                X - 1, 2, 3, 4, 6, 7.
01051  M01S00968.comknwc +++|*
01052  M01S00969.comknwc +++|*         CALLS  NOF, NON, SCB, TRI.
01053  M01S00970.comknwc +++|
01054  M01S00971.comknwc +++|
01055  M01S00972.comknwc +++| PNS      SUBR               ENTRY/EXIT
01056  M01S00973.comknwc +++|          SB5    B0
01057  M01S00974.comknwc +++|          BX6    X6-X6
01058  M01S00975.comknwc +++|          SA1    STIN        START INPUT STATUS
01059  M01S00976.comknwc +++|          NG     X3,PNS1     IF NORMAL NETWORK SHUTDONW
01060  M01S00977.comknwc +++|          PL     X1,PNS6     IF COMMUNICATIONS NOT ENABLED
01061  M01S00978.comknwc +++|          SX7    NONTL       MINIMUM TIME BETWEEN *NETON* REQUESTS
01062  M01S00979.comknwc +++|          SA4    LTIME       CURRENT TIME
01063  M01S00980.comknwc +++|          SA3    NOND        LAST TIME *NETON*
01064  M01S00981.comknwc +++|          MX2    -36
01065  M01S00982.comknwc +++|          IX3    X4-X3       CURRENT TIME - *NETON* TIME
01066  M01S00983.comknwc +++|          BX3    -X2*X3
01067  M01S00984.comknwc +++|          IX3    X7-X3
01068  M01S00985.comknwc +++|          PL     X3,PNS6     IF NOT TIME FOR *NETON*
01069  M01S00986.comknwc +++|          RJ     NON         DO A *NETON*
01070  M01S00987.comknwc +++|          EQ     PNS6        RETURN
01071  M01S00988.comknwc +++|
01072  M01S00989.comknwc +++|*         PROCESS NORMAL SHUTDOWN.
01073  M01S00990.comknwc +++|
01074  M01S00991.comknwc +++| PNS1     SA3    TROA
01075  M01S00992.comknwc +++|          ZR     X3,PNS2     IF TAF ROLLED IN
01076  M01S00993.comknwc +++|          RJ     TRI         ROLLIN TAF
01077  M01S00994.comknwc +++|          SB5    B0+
01078  M01S00995.comknwc +++| PNS2     RJ     SCB         FIND RESERVED COMMUNICATION BLOCK
01079  M01S00996.comknwc +++|          ZR     B5,PNS3     IF END OF COMMUNICATION BLOCK
01080  M01S00997.comknwc +++|          SA3    B5+CMBHL+1
01081  M01S00998.comknwc +++|          LX3    59-CBBTS
01082  M01S00999.comknwc +++|          SB3    B1
01083  M01S01000.comknwc +++|          PL     X3,PNSX     IF NO BATCH INPUT
01084  M01S01001.comknwc +++|          EQ     PNS2        GET NEXT COMMUNICATION BLOCK
01085  M01S01002.comknwc +++|
01086  M01S01003.comknwc +++|*         SEARCH LOGGED IN TERMINALS.
01087  M01S01004.comknwc +++|
01088  M01S01005.comknwc +++| PNS3     SX1    TNCTL       LENGTH OF NCT ENTRY
01089  M01S01006.comknwc +++|          TA2    X1,VNCT
01090  M01S01007.comknwc +++|          SA3    VNCT        GET NUMBER OF NCT ENTRIES
01091  M01S01008.comknwc +++|          SB4    X3+
01092  M01S01009.comknwc +++| PNS4     SX2    X2          TST ENTRY
01093  M01S01010.comknwc +++|          SB4    B4-B1
01094  M01S01011.comknwc +++|          ZR     X2,PNS5     IF TERMINAL NOT LOGGED IN
01095  M01S01012.comknwc +++|          SB3    B1
01096  M01S01013.comknwc +++|          SA3    X2+TSIWW    INPUT WANTED STATUS
01097  M01S01014.comknwc +++|          LX3    59-TSIWS
01098  M01S01015.comknwc +++|          NG     X3,PNSX     IF TERIMINAL IN INPUT WANTED STATUS
01099  M01S01016.comknwc +++| PNS5     SA2    A2+TNCTL    NEXT ENTRY
01100  M01S01017.comknwc +++|          NZ     B4,PNS4     IF NOT END OF NCT
01101  M01S01018.comknwc +++|          RJ     NOF         DO A *NETOFF*
01102  M01S01019.comknwc +++| PNS6     SB3    B0
01103  M01S01020.comknwc +++|          EQ     PNSX        RETURN
01104  M01S01021.comknwc +++|          TITLE  INPUT PROCESSOR.
01105  M01S01022.comknwc +++| NIT      SPACE  1,7
01106  M01S01023.comknwc +++|**        NIT - NETWORK INPUT TO TAF.
01107  M01S01024.comknwc +++|*
01108  M01S01025.comknwc +++|*                 1. IF LAST REQUEST FOR INPUT VIA *NETGETL* OBTAINED
01109  M01S01026.comknwc +++|*                    DATA, GO TO STEP 3.
01110  M01S01027.comknwc +++|*                 2. IF NOT TIME FOR NEXT *NETGETL*, RETURN TO CALLER.
01111  M01S01028.comknwc +++|*                 3. IF TAF IS NOT ROLLED OUT, GO TO STEP 7.
01112  M01S01029.comknwc +++|*                    TAF ROLLS OUT WHEN NO ACTIVITY HAS OCCURED FOR AN
01113  M01S01030.comknwc +++|*                    INSTALLATION ASSEMBLY DEFINED PERIOD.
01114  M01S01031.comknwc +++|*                 4. DO A *NETGETL* TO ZERO LENGTH BUFFER.  CHECK
01115  M01S01032.comknwc +++|*                    THE APPLICATION BLOCK HEADER FOR ANY INPUT.  TAF
01116  M01S01033.comknwc +++|*                    CANNOT DO A *NETGETL* TO A COMMUNICATION BLOCK
01117  M01S01034.comknwc +++|*                    BECAUSE THE COMMUNICATION BLOCKS RESIDE IN ROLLED
01118  M01S01035.comknwc +++|*                    STORAGE.
01119  M01S01036.comknwc +++|*                    CALL ROUTINE *PPM* TO CHECK IF INPUT COMPLETE.
01120  M01S00008.ns22000 +++|*               4.1. IF A SUPERVISORY MESSAGE GO TO STEP 20.
01121  M01S01037.comknwc +++|*                 5. IF NO INPUT RETURN.
01122  M01S01038.comknwc +++|*                 6. CALL ROUTINE *TRI* TO ROLLIN TAF.

Line S01039 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01123  M02S01039.knwc6   ---|*                 7. GET A COMMUNICATION BLOCK.  IF NO COMMUNICATION

Line S01040 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01124  M02S01040.knwc6   ---|*                    BLOCK AVAILABLE RETURN.

Line S01041 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01125  M02S01041.knwc6   ---|*                 8. DO A *NETGETL* TO GET TERMINAL INPUT.

Line S01042 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01126  M02S01042.knwc6   ---|*                    CALL ROUTINE *PPM* TO CHECK IF INPUT COMPLETE.

Line S01043 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01127  M02S01043.knwc6   ---|*                 9. DECODE APPLICATION HEADER.

Line S01044 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01128  M02S01044.knwc6   ---|*                10. IF BLOCK UNDELIVERABLE CALL ROUTINE *PBU*.

Line S01045 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01129  M02S01045.knwc6   ---|*                    UPON RETURN GO TO STEP 13.

Line S01046 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01130  M02S01046.knwc6   ---|*                11. IF NO INPUT CALL ROUTINE *PTF*, SEE ANY TEMPOFFED

Line S01047 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01131  M02S01047.knwc6   ---|*                     TERMINAL.  UPON RETURN GO TO STEP 13.

Line S01048 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01132  M02S01048.knwc6   ---|*                12. IF NOT THE FIRST INPUT BLOCK OF A TRANSACTION,

Line S01049 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01133  M02S01049.knwc6   ---|*                    CALL ROUTINE *PSI*.

Line S01050 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01134  M02S01050.knwc6   ---|*                13. IF LAST MESSAGE BLOCK CALL *PLB*, ELSE

Line S01051 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01135  M02S01051.knwc6   ---|*                    PUT COMMUNICATION BLOCK INDEX IN NCT AND CALL

Line S01052 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01136  M02S01052.knwc6   ---|*                    ROUTINE *PFB*.

Line S01053 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01137  M02S01053.knwc6   ---|*                14. RETURN.
01138  M01S00008.knwc6   +++|*                 7. IF USERS ON THE PRIORITY LIST THEN GET INPUT,
01139  M01S00009.knwc6   +++|*                    ELSE GOTO STEP 12.
01140  M01S00010.knwc6   +++|*                 8. DECODE APPLICATION BLOCK.
01141  M01S00011.knwc6   +++|*                 9. IF NO INPUT FOR PRIORITY LIST GOTO STEP 12, ELSE
01142  M01S00012.knwc6   +++|*                    CALL ROUTINE *PSI*.
01143  M01S00013.knwc6   +++|*                10. IF NOT LAST MSG BLOCK RETURN, ELSE SWITCH ACN
01144  M01S00014.knwc6   +++|*                    BACK TO REGULAR LIST AND CALL *PLB*.
01145  M01S00015.knwc6   +++|*                11. RETURN.
01146  M01S00016.knwc6   +++|*                12. IF ENOUGH C.B-S AVAILABLE TO ACCEPT INPUT GET
01147  M01S00017.knwc6   +++|*                    A C.B., ELSE RETURN.
01148  M01S00018.knwc6   +++|*                13. DO A *NETGETL* TO GET TERMINAL INPUT.
01149  M01S00019.knwc6   +++|*                    CALL ROUTINE *PPM* TO CHECK IF INPUT COMPLETE.
01150  M01S00020.knwc6   +++|*                14. DECODE APPLICATION HEADER.
01151  M01S00021.knwc6   +++|*                15. IF BLOCK UNDELIVERABLE CALL ROUTINE *PBU*.
01152  M01S00022.knwc6   +++|*                    UPON RETURN GO TO STEP 13.
01153  M01S00023.knwc6   +++|*                16. IF NO INPUT CALL ROUTINE *PTF*, SEE ANY TEMPOFFED
01154  M01S00024.knwc6   +++|*                    TERMINAL.  UPON RETURN GO TO STEP 13.
01155  M01S00025.knwc6   +++|*                17. IF NOT THE FIRST INPUT BLOCK OF A TRANSACTION,
01156  M01S00026.knwc6   +++|*                    CALL ROUTINE *PSI*.
01157  M01S00027.knwc6   +++|*                18. IF LAST MESSAGE BLOCK CALL *PLB*, ELSE
01158  M01S00028.knwc6   +++|*                    PUT COMMUNICATION BLOCK INDEX IN NCT AND CALL
01159  M01S00029.knwc6   +++|*                    ROUTINE *PFB*.
01160  M01S00030.knwc6   +++|*                19. IF LAST MSG BLOCK NOT RECEIVED AFTER RETURN FROM
01161  M01S00031.knwc6   +++|*                    *PFB* THEN PLACE ACN ON PRIORITY LIST AND RETURN,
01162  M01S00032.knwc6   +++|*                    ELSE RETURN.
01163  M01S00009.ns22000 +++|*                20. RELEASE COMMUNICATION BLOCK AND PROCESS
01164  M01S00010.ns22000 +++|*                    SUPERVISORY MESSAGE.
01165  M01S01054.comknwc +++|*
01166  M01S01055.comknwc +++|*         ENTRY  (PRINA) = LAST INPUT STATUS.
01167  M01S01056.comknwc +++|*                (TROA) = TAF ROLLOUT STATUS.
01168  M01S01057.comknwc +++|*
01169  M01S01058.comknwc +++|*         EXIT   (B2) AND (B7) RESTORED.
01170  M01S01059.comknwc +++|*                (X0) = 0 IF NO COMMUNICATION BLOCK AVAILABLE.
01171  M01S01060.comknwc +++|*

Line S01061 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
01172  M02S01061.ns22000 ---|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
01173  M01S00011.ns22000 +++|*         USES   A - ALL.
01174  M01S01062.comknwc +++|*                X - ALL.
01175  M01S01063.comknwc +++|*                B - 3.
01176  M01S01064.comknwc +++|*
01177  M01S01065.comknwc +++|*         CALLS  FFCB, NGC, PBU, PFB, PLB, PPM, PRIN, PSI, PTF, TRI.
01178  M01S01066.comknwc +++|*
01179  M01S01067.comknwc +++|*         MACROS NET.
01180  M01S01068.comknwc +++|
01181  M01S01069.comknwc +++|
01182  M01S01070.comknwc +++| NIT      SUBR               ENTRY/EXIT
01183  M01S01071.comknwc +++|          SA2    PRINA       LAST INPUT STATUS
01184  M01S01072.comknwc +++|          ZR     X2,NIT1     IF LAST INPUT PROCESSED
01185  M01S01073.comknwc +++|          MX7    1
01186  M01S01074.comknwc +++|          BX6    X6-X6       RESET *PRIN* STATUS
01187  M01S01075.comknwc +++|          NG     X2,NIT1     IF *ITASK* BUSY
01188  M01S01076.comknwc +++|          SA6    PRINA
01189  M01S01077.comknwc +++|          LX7    55-59       SET FLAG INDICATE CALL FROM *NIT*
01190  M01S01078.comknwc +++|          SX0    X2
01191  M01S01079.comknwc +++|          SA7    INSI
01192  M01S01080.comknwc +++|          SA4    A7
01193  M01S01081.comknwc +++|          RJ     PRIN        ACTIVE *ITASK*
01194  M01S01082.comknwc +++|          EQ     NITX        RETURN
01195  M01S01083.comknwc +++|
01196  M01S01084.comknwc +++| NIT1     SA1    NSUP        NETWORK STATUS WORD
01197  M01S01085.comknwc +++|          PL     X1,NITX     IF PREVIOUS REQUEST NOT COMPLETE
01198  M01S01086.comknwc +++|          LX1    59-56
01199  M01S01087.comknwc +++|          NG     X1,NIT2     IF INPUT AVAILABLE
01200  M01S01088.comknwc +++|
01201  M01S01089.comknwc +++|*         FAKE NETGETL TO CHECK ANY INPUT FROM NETWORK.
01202  M01S01090.comknwc +++|
01203  M01S01091.comknwc +++|          NET    GETL,ACNS,INDH,INDB,ZERO
01204  M01S01092.comknwc +++|          RJ     PPM         PROCESS PARALLEL MODE
01205  M01S01093.comknwc +++|          SA1    NSUP        NETWORK STATUS WORD
01206  M01S01094.comknwc +++|          PL     X1,NITX     IF PREVIOUS REQUEST NOT COMPLETE
01207  M01S01095.comknwc +++|          SX0    B1
01208  M01S01096.comknwc +++|          LX1    59-56
01209  M01S01097.comknwc +++|          PL     X1,NITX     IF NO INPUT AVAILABLE
01210  M01S01098.comknwc +++| NIT2     SA3    TROA
01211  M01S01099.comknwc +++|          ZR     X3,NIT3     IF TAF ROLLED IN
01212  M01S01100.comknwc +++|          RJ     TRI         ROLLIN TAF

Line S01101 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01213  M02S01101.knwc6   ---| NIT3     BX0    X0-X0       NON-SYSTEM REQUEST
01214  M01S00033.knwc6   +++|
01215  M01S00034.knwc6   +++|*         NETGETL TO CHECK FOR ANY INPUT FROM PRIORITY LIST.
01216  M01S00035.knwc6   +++|
01217  M01S00036.knwc6   +++| NIT3     SA2    NITG        USERS IN PRIORITY LIST
01218  M01S00037.knwc6   +++|          ZR     X2,NIT3.1   IF NO USERS IN PRIORITY LIST
01219  M01S00038.knwc6   +++|          NET    GETL,ALNA,INDH,INDB+CMBHL+CMBRL,INDN
01220  M01S00039.knwc6   +++|          SX7    NIT3
01221  M01S00040.knwc6   +++|          SA7    TROF        INHIBIT TAF ROLLOUT
01222  M01S00041.knwc6   +++|          RJ     PPM         PROCESS PARALLEL MODE
01223  M01S00042.knwc6   +++|          SX7    INDB
01224  M01S00043.knwc6   +++|          SA7    NITF        SET FAKE C.B. ADDRESS
01225  M01S00044.knwc6   +++|          BX6    X6-X6       FAKE CLEARING WORDS 3 AND 4 OF C.B.
01226  M01S00045.knwc6   +++|          SA6    X7+2
01227  M01S00046.knwc6   +++|          SA6    A6+B1
01228  M01S00001.knwc31  +++|          SA6    TROF        CLEAR ROLLOUT INHIBIT FLAG
01229  M01S00047.knwc6   +++|          RJ     NGC         DECODE BLOCK HEADER
01230  M01S00012.ns22000 +++|          GT     B3,B1,NIT11 IF A SUPERVISORY MESSAGE
01231  M01S00048.knwc6   +++|          BX0    X0-X0
01232  M01S00049.knwc6   +++|          NG     B3,NIT3.1   IF NO INPUT FOR PRIORITY LIST
01233  M01S00050.knwc6   +++|          SX7    A4          NCT ENTRY
01234  M01S00051.knwc6   +++|          SA6    ACNA
01235  M01S00052.knwc6   +++|          MX0    -TNCBN
01236  M01S00053.knwc6   +++|          LX0    TNCBS-TNCBN+1
01237  M01S00054.knwc6   +++|          BX5    -X0*X4      C.B. INDEX
01238  M01S00055.knwc6   +++|          LX5    TNCBN-TNCBS-1  RIGHT JUSTIFY C.B. INDEX
01239  M01S00056.knwc6   +++|          SA7    NITH
01240  M01S00057.knwc6   +++|          SB3    B1
01241  M01S00058.knwc6   +++|          SX3    CMBL
01242  M01S00059.knwc6   +++|          SX5    X5-1
01243  M01S00060.knwc6   +++|          IX3    X5*X3
01244  M01S00061.knwc6   +++|          SX2    A5
01245  M01S00062.knwc6   +++|          TX6    X3,VCBSA    C.B. ADDRESS
01246  M01S00063.knwc6   +++|          SX7    A5+CMBHL+CMBRL  BEGINNING OF DATA AREA
01247  M01S00064.knwc6   +++|          SA6    NITF
01248  M01S00065.knwc6   +++|          SA7    NITJ
01249  M01S00066.knwc6   +++|          RJ     PSI         PROCESS SUBSEQUENT INPUT
01250  M01S00067.knwc6   +++|          LE     B3,NITX     IF NOT LAST MSG BLOCK

Line S00068 Modification History
`M01` (Added by)	`knwc6`
`M02` (Updated by)	`knwc14`

Seq #  *Modification Id* Act 
----------------------------+
01251  M02S00068.knwc14  ---|          SA2    ALNO        REMOVE ACN FROM PRIORITY LIST
01252  M01S00001.knwc14  +++|          SX7    ALN         REMOVE ACN FROM PRIORITY LIST
01253  M01S00069.knwc6   +++|          RJ     SAL         SWITCH APPLICATION LIST
01254  M01S00070.knwc6   +++|          SA1    NITG        UPDATE PRIORITY COUNTER
01255  M01S00071.knwc6   +++|          SX7    X1-1
01256  M01S00072.knwc6   +++|          SA4    NITH
01257  M01S00073.knwc6   +++|          SA7    A1
01258  M01S00074.knwc6   +++|          SA4    X4
01259  M01S00075.knwc6   +++|          RJ     PLB         PROCESS LAST BLOCK
01260  M01S00076.knwc6   +++|          EQ     NITX        RETURN
01261  M01S00077.knwc6   +++|
01262  M01S00078.knwc6   +++| NIT3.1   TA2    0,VCBRT
01263  M01S00079.knwc6   +++|          MX7    -48
01264  M01S00080.knwc6   +++|          BX7    -X7*X2
01265  M01S00081.knwc6   +++|          CX3    X7

Line S00082 Modification History
`M01` (Added by)	`knwc6`
`M02` (Updated by)	`knwc28`

Seq #  *Modification Id* Act 
----------------------------+
01266  M02S00082.knwc28  ---|          SB3    -NCBC-RSCMB MINIMUM NUMBER OF C.B.-S TO ACCEPT INPUT
01267  M01S00001.knwc28  +++|          SB3    -NCBC-RSCMB-1  MINIMUM NUMBER OF CB-S TO ACCEPT INPUT
01268  M01S00083.knwc6   +++|          SB3    X3+B3

Line S00084 Modification History
`M01` (Added by)	`knwc6`
`M02` (Updated by)	`knwc19`

Seq #  *Modification Id* Act 
----------------------------+
01269  M02S00084.knwc19  ---|          LE     B3,NITX     IF NOT ENOUGH C.B.-S TO ACCEPT INPUT

Line S01102 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc19`

Seq #  *Modification Id* Act 
----------------------------+
01270  M02S01102.knwc19  ---|          RJ     FFCB        GET A COMMUNICATION BLOCK
01271  M01S00001.knwc19  +++|          GE     B3,NIT3.2   IF ENOUGH C.B.-S TO ACCEPT INPUT
01272  M01S00002.knwc19  +++|          SA2    STAT12      NUMBER OF TIMES NOT ENOUGH C.B.-S
01273  M01S00003.knwc19  +++|          SX7    B1
01274  M01S00004.knwc19  +++|          IX7    X2+X7
01275  M01S00005.knwc19  +++|          SA7    A2+
01276  M01S00006.knwc19  +++|          EQ     NITX        NOT ENOUGH C.B.-S AVAILABLE
01277  M01S00007.knwc19  +++|
01278  M01S00008.knwc19  +++| NIT3.2   RJ     FFCB        GET A COMMUNICATION BLOCK
01279  M01S01103.comknwc +++|          ZR     X0,NITX     IF NO COMMUNICATION BLOCK AVAILABLE
01280  M01S01104.comknwc +++|          SA7    NITE        INDEX OF COMMUNICATION BLOCK
01281  M01S01105.comknwc +++|          SX7    X0
01282  M01S01106.comknwc +++|          SX6    X0+CMBHL+CMBRL  BUFFER HEADER
01283  M01S01107.comknwc +++|          SA7    NITF        COMMUNICATION BLOCK ADDRESS
01284  M01S01108.comknwc +++|          SA6    NIT4+5
01285  M01S01109.comknwc +++|
01286  M01S01110.comknwc +++|*         GET INPUT FROM NETWORK.
01287  M01S01111.comknwc +++|
01288  M01S01112.comknwc +++| NIT4     NET    GETL,ALNO,INDH,0,NITB
01289  M01S01113.comknwc +++|          SX7    NIT4
01290  M01S01114.comknwc +++|          SA7    TROF        INHIBIT *TAF* FROM ROLLOUT
01291  M01S01115.comknwc +++|          RJ     PPM         PROCESS PARALLEL MODE
01292  M01S00002.knwc31  +++|          SX6    B0+         CLEAR ROLLOUT INHIBIT FLAG
01293  M01S00003.knwc31  +++|          SA6    TROF
01294  M01S01116.comknwc +++|          RJ     NGC         CHECK AND DECODE APPLICATION BLOCK HEADER
01295  M01S00013.ns22000 +++|          GT     B3,B1,NIT11 IF A SUPERVISORY MESSAGE
01296  M01S01117.comknwc +++|          SX7    A4          NCT ENTRY
01297  M01S01118.comknwc +++|          MX0    -TNCBN      MASK COMMUNICATION BLOCK INDEX
01298  M01S01119.comknwc +++|          SA6    ACNA        APPLICATION CONNECTION NUMBER
01299  M01S01120.comknwc +++|          SA7    NITH

Line S01121 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc31`

Seq #  *Modification Id* Act 
----------------------------+
01300  M02S01121.knwc31  ---|          BX7    X7-X7

Line S01122 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc31`

Seq #  *Modification Id* Act 
----------------------------+
01301  M02S01122.knwc31  ---|          SA7    TROF        CLEAR ROLLOUT INHIBIT FLAG
01302  M01S01123.comknwc +++|          PL     X1,NIT5     IF BLOCK DELIVERED
01303  M01S01124.comknwc +++|          RJ     PBU         PROCESS BLOCK UNDELIVERABLE
01304  M01S01125.comknwc +++|          EQ     NIT9        PROCESS RETURN FROM SUBPROCESSOR
01305  M01S01126.comknwc +++|
01306  M01S01127.comknwc +++| NIT5     PL     B3,NIT6     IF NOT A NULL BLOCK

Line S01128 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01307  M02S01128.knwc6   ---|          RJ     PTF         PROCESS NULL BLOCK

Line S01129 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01308  M02S01129.knwc6   ---|          EQ     NIT9        PROCESS RETURN FROM SUBPROCESSOR
01309  M01S00085.knwc6   +++|          SA2    NITF        C.B. ADDRESS
01310  M01S00086.knwc6   +++|          RJ     RLC         RELEASE C.B.
01311  M01S00087.knwc6   +++|          EQ     NITX        RETURN
01312  M01S01130.comknwc +++|
01313  M01S01131.comknwc +++| NIT6     LX0    TNCBS-TNCBN+1
01314  M01S01132.comknwc +++|          BX5    -X0*X4      COMMUNICATION BLOCK INDEX
01315  M01S01133.comknwc +++|          ZR     X5,NIT8     IF FIRST BLOCK
01316  M01S01134.comknwc +++|          SX3    CMBL
01317  M01S01135.comknwc +++|          LX5    TNCBN-TNCBS-1
01318  M01S01136.comknwc +++|          SX5    X5-1
01319  M01S01137.comknwc +++|          IX3    X5*X3
01320  M01S01138.comknwc +++|          SX2    A5
01321  M01S01139.comknwc +++|          TX6    X3,VCBSA    COMMUNICATION BLOCK ADDRESS

Line S01140 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc9`

Seq #  *Modification Id* Act 
----------------------------+
01322  M02S01140.knwc9   ---|          SX7    A5+CMBHL+2  BEGINNING OF DATA AREA
01323  M01S00002.knwc9   +++|          SX7    A5+CMBHL+CMBRL  BEGINNING OF DATA AREA
01324  M01S01141.comknwc +++|          SA6    NITF
01325  M01S01142.comknwc +++|          SA7    NITJ
01326  M01S01143.comknwc +++|          RJ     RLC         RELEASE COMMUNICATION BLOCK
01327  M01S01144.comknwc +++| NIT7     SB3    B1
01328  M01S01145.comknwc +++|          RJ     PSI         PROCESS SUBSEQUENCE INPUT
01329  M01S01146.comknwc +++|          EQ     NIT9
01330  M01S01147.comknwc +++|
01331  M01S01148.comknwc +++| NIT8     SA3    NITE        COMMUNICATION BLOCK INDEX
01332  M01S01149.comknwc +++|          EQ     B3,B1,NIT9  IF LAST BLOCK
01333  M01S01150.comknwc +++|          LX3    TNCBS-TNCBN+1
01334  M01S01151.comknwc +++|          BX7    X4+X3       ADD COMMUNICATION BLOCK INDEX
01335  M01S01152.comknwc +++|          SA7    A4
01336  M01S01153.comknwc +++|          RJ     PFB         PROCESS LARGE OR MULTIPLE BLOCK INPUT
01337  M01S00088.knwc6   +++|          LE     B3,NIT10    IF NOT LAST MSG BLOCK
01338  M01S01154.comknwc +++| NIT9     LE     B3,NITX     IF NOT THE LAST MSG BLOCK
01339  M01S01155.comknwc +++|          RJ     PLB         PROCESS LAST MSG BLOCK
01340  M01S01156.comknwc +++|          EQ     NITX
01341  M01S01157.comknwc +++|

Line S00089 Modification History
`M01` (Added by)	`knwc6`
`M02` (Updated by)	`knwc14`

Seq #  *Modification Id* Act 
----------------------------+
01342  M02S00089.knwc14  ---| NIT10    SA2    ALNA        ADD ACN TO PRIORITY LIST
01343  M01S00002.knwc14  +++| NIT10    SX7    ALN+1       ADD ACN TO PRIORITY LIST
01344  M01S00090.knwc6   +++|          RJ     SAL         SWITCH APPLICATION LIST
01345  M01S00091.knwc6   +++|          SA1    NITG        UPDATE PRIORITY COUNTER
01346  M01S00092.knwc6   +++|          SX7    X1+B1
01347  M01S00093.knwc6   +++|          SA7    A1
01348  M01S00094.knwc6   +++|          EQ     NITX        RETURN
01349  M01S00095.knwc6   +++|
01350  M01S00014.ns22000 +++| NIT11    SX2    A5          FWA OF COMMUNICATION BLOCK
01351  M01S00015.ns22000 +++|          SA0    A4          NCT
01352  M01S00016.ns22000 +++|          SA4    A5+CMBHL+CMBRL  SUPERVISORY MESSAGE
01353  M01S00017.ns22000 +++|          BX7    X6          ACN
01354  M01S00018.ns22000 +++|          RJ     RLC         RELEASE COMMUNICATION BLOCK
01355  M01S00019.ns22000 +++|          BX1    X7
01356  M01S00020.ns22000 +++|          SA4    A4
01357  M01S00021.ns22000 +++|          SA2    A0
01358  M01S00022.ns22000 +++|          SB6    B0          NOT QUEUED
01359  M01S00023.ns22000 +++|          BX6    X2          WORD ONE OF NCT ENTRY
01360  M01S00024.ns22000 +++|          EQ     SMP4        PROCESS SUPERVISORY MESSAGE
01361  M01S00025.ns22000 +++|
01362  M01S01158.comknwc +++| NITA     CON    0           MESSAGE LENGTH IN BITS
01363  M01S01159.comknwc +++| NITB     CON    CBDL        MAXIMUM DATA INPUT
01364  M01S01160.comknwc +++| NITE     CON    0           INDEX OF COMMUNICATION BLOCK
01365  M01S01161.comknwc +++| NITF     CON    0           ADDRESS OF COMMUNICATION BLOCK

Line S01162 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc6`

Seq #  *Modification Id* Act 
----------------------------+
01366  M02S01162.knwc6   ---| NITG     CON    0           TEMPOFF COUNTER
01367  M01S00096.knwc6   +++| NITG     CON    0           PRIORITY LIST COUNTER
01368  M01S01163.comknwc +++| NITH     CON    0           NCT ENTRY
01369  M01S01164.comknwc +++| NITI     CON    0           BLOCK COUNTER
01370  M01S01165.comknwc +++| NITJ     CON    0           TEMPORARY COMMUNICATION BLOCK ADDRESS
01371  M01S01166.comknwc +++|          TITLE  INPUT SUBPROCESSOR.
01372  M01S01167.comknwc +++| PBU      SPACE  4,25
01373  M01S01168.comknwc +++|**        PBU - PROCESS BLOCK UNDELIVERABLE.
01374  M01S01169.comknwc +++|*

Line S01170 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
01375  M02S01170.knwc25  ---|*                1. IF NOT IN CORRECT APPLICATION CHARACTER TYPE, SEND

Line S01171 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
01376  M02S01171.knwc25  ---|*                   CHANGE INPUT CHARACTER TYPE SUPERVISORY MESSAGE

Line S01172 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
01377  M02S01172.knwc25  ---|*                   AND RETURN.
01378  M01S00024.knwc25  +++|*                1. IF THE NEW APPLICATION CHARACTER TYPE IS DIFFERENT
01379  M01S00025.knwc25  +++|*                   FROM THE APPLICATION CHARACTER TYPE IN THE NCT,
01380  M01S00026.knwc25  +++|*                   SEND CHANGE INPUT CHARACTER TYPE SUPERVISORY
01381  M01S00027.knwc25  +++|*                   MESSAGE AND RETURN.
01382  M01S01173.comknwc +++|*                2. IF NOT FIRST INPUT BLOCK GO TO STEP 5, ELSE
01383  M01S01174.comknwc +++|*                   RESERVE *NCBC* COMMUNICATION BLOCKS.
01384  M01S01175.comknwc +++|*                   IF COMMUNICATION BLOCKS NOT AVAILABLE, RETURN.
01385  M01S01176.comknwc +++|*                3. PREPARE SCATTER READ AND DO A *NETGETF* TO
01386  M01S01177.comknwc +++|*                   COMMUNICATION BLOCKS.  CALL *PPM* TO CHECK
01387  M01S01178.comknwc +++|*                   IF INPUT IS COMPLETE.
01388  M01S01179.comknwc +++|*                4. IF LAST INPUT MESSAGE BLOCK SET (B3) = 1  ELSE
01389  M01S01180.comknwc +++|*                   SET (B3) = 0 AND RETURN.
01390  M01S01181.comknwc +++|*                5. PREPARE ENTRY CONDITION TO PROCESS SUBSEQUENT
01391  M01S01182.comknwc +++|*                   LARGE INPUT AND CALL ROUTINE *PSI*.
01392  M01S01183.comknwc +++|*
01393  M01S01184.comknwc +++|*         ENTRY  (X1) = APPLICATION BLOCK HEADER.
01394  M01S00003.knwc9   +++|*                (A4/X4) = NCT ENTRY.
01395  M01S01185.comknwc +++|*                (B4) = APPLICATION CHARACTER TYPE - 1.
01396  M01S01186.comknwc +++|*

Line S01187 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc4`

Seq #  *Modification Id* Act 
----------------------------+
01397  M02S01187.knwc4   ---|*         EXIT   (B3) .GE. 1 IF LAST MSG BLOCK ENCOUNTED.
01398  M01S00001.knwc4   +++|*         EXIT   (B3) .GE. 1 IF LAST MSG BLOCK ENCOUNTERED.
01399  M01S01188.comknwc +++|*                     .EQ. 0 IF NO COMMUNICATION BLOCK AVAILABLE.
01400  M01S01189.comknwc +++|*

Line S01190 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc9`

Seq #  *Modification Id* Act 
----------------------------+
01401  M02S01190.knwc9   ---|*         USES   A - 1, 2, 6, 7.

Line S00004 Modification History
`M01` (Added by)	`knwc9`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
01402  M02S00004.knwc25  ---|*         USES   A - 1, 2, 3, 4, 6, 7.
01403  M01S00028.knwc25  +++|*         USES   A - ALL.
01404  M01S01191.comknwc +++|*                B - 3, 6.
01405  M01S01192.comknwc +++|*                X - ALL.
01406  M01S01193.comknwc +++|*
01407  M01S01194.comknwc +++|*         CALLS  EXIT, FNC, NGC, NPT, PPM, PSI, RLC.
01408  M01S01195.comknwc +++|*
01409  M01S01196.comknwc +++|*         MACROS MESSAGE, NET.
01410  M01S01197.comknwc +++|
01411  M01S01198.comknwc +++|
01412  M01S01199.comknwc +++| PBU      SUBR               ENTRY/EXIT
01413  M01S01200.comknwc +++|          LX1    59-AHPTS-59+AHBUS  CHECK XPT
01414  M01S01201.comknwc +++|          MX0    AHADN
01415  M01S01202.comknwc +++|          SB6    NCBC-1
01416  M01S01203.comknwc +++|          PL     X1,PBU1     IF LARGE INPUT

Line S01204 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc17`

Seq #  *Modification Id* Act 
----------------------------+
01417  M02S01204.knwc17  ---|          SX2    B4-2

Line S01205 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc17`

Seq #  *Modification Id* Act 
----------------------------+
01418  M02S01205.knwc17  ---|          ZR     X2,PBU1     IF ACT ALREADY 3

Line S00001 Modification History
`M01` (Added by)	`knwc17`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
01419  M02S00001.knwc25  ---|          SX2    B4-3        SET ACT-1-3

Line S00002 Modification History
`M01` (Added by)	`knwc17`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
01420  M02S00002.knwc25  ---|          NG     X2,PBU1     IF ACT IS ALLOWED FOR XPT INPUT

Line S01206 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
01421  M02S01206.knwc25  ---|          SA2    SMDC        CHANGE INPUT CHARACTER TYPE
01422  M01S00029.knwc25  +++|          BX6    X4
01423  M01S00030.knwc25  +++|          LX6    -TNCTS+TNCTN-1  RIGHT JUSTIFY ACT
01424  M01S00031.knwc25  +++|          MX3    -TNCTN
01425  M01S00032.knwc25  +++|          BX2    -X3*X6      APPLICATION CHARACTER TYPE - 1 FROM NCT
01426  M01S01207.comknwc +++|          LX1    59-AHADS-59+AHPTS

Line S01208 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc25`

Seq #  *Modification Id* Act 
----------------------------+
01427  M02S01208.knwc25  ---|          SX4    3           CHANGE ACT TO 3
01428  M01S00033.knwc25  +++|          SX5    B4          NEW APPLICATION CHARACTER TYPE - 1
01429  M01S00034.knwc25  +++|          BX2    X2-X5
01430  M01S00035.knwc25  +++|          ZR     X2,PBU1     IF SAME APPLICATION CHARACTER TYPE
01431  M01S00036.knwc25  +++|          BX6    X3*X6
01432  M01S00037.knwc25  +++|          BX2    -X3*X5
01433  M01S00038.knwc25  +++|          BX6    X6+X2       STORE IN NCT
01434  M01S00039.knwc25  +++|          LX6    TNCTS-TNCTN+1
01435  M01S00040.knwc25  +++|          SA6    A4
01436  M01S00041.knwc25  +++|          SX4    B4+1        APPLICATION CHARACTER TYPE
01437  M01S00042.knwc25  +++|          SA2    SMDC        CHANGE INPUT CHARACTER TYPE
01438  M01S01209.comknwc +++|          BX3    X0*X1       MASK ACN
01439  M01S01210.comknwc +++|          LX3    AHACS-59
01440  M01S01211.comknwc +++|          BX6    X3+X2       ADD ACN
01441  M01S01212.comknwc +++|          BX6    X6+X4
01442  M01S01213.comknwc +++|          SA6    OTSB
01443  M01S01214.comknwc +++|          RJ     NPT         CHANGE CHARACTER TYPE
01444  M01S01215.comknwc +++|          SA2    NITF
01445  M01S01216.comknwc +++|          RJ     RLC         RELEASE COMMUNICATION BLOCK
01446  M01S01217.comknwc +++|          SB3    B0+         NO COMMUNICATION BLOCK AVAILABLE
01447  M01S01218.comknwc +++|          EQ     PBUX        RETURN
01448  M01S01219.comknwc +++|
01449  M01S01220.comknwc +++|*         SUBSEQUENCE LARGE INPUT.
01450  M01S01221.comknwc +++|
01451  M01S01222.comknwc +++| PBU1     MX0    -TNCBN      MASK COMMUNICATION BLOCK INDEX
01452  M01S01223.comknwc +++|          LX0    TNCBS-TNCBN+1
01453  M01S01224.comknwc +++|          SA2    NITF        COMMUNICATION BLOCK ADDRESS
01454  M01S01225.comknwc +++|          BX5    -X0*X4
01455  M01S01226.comknwc +++|          BX7    X7-X7
01456  M01S01227.comknwc +++|          NZ     X5,PBU6     IF NOT FIRST INPUT BLOCK

Line S01228 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc4`

Seq #  *Modification Id* Act 
----------------------------+
01457  M02S01228.knwc4   ---|          SA1    X2
01458  M01S00002.knwc4   +++|          SA7    NITA        CLEAR MESSAGE LENGTH
01459  M01S00003.knwc4   +++|          SA1    X2+
01460  M01S00004.knwc4   +++|          SA7    A1+3        CLEAR WORD 4 OF THE C.B. HEADER
01461  M01S01229.comknwc +++|          RJ     FNC         FIND AND CHAIN COMMUNICATION BLOCK
01462  M01S01230.comknwc +++|          SA1    INDB        TEXT AREA ARRAY
01463  M01S01231.comknwc +++|          SA2    NITF
01464  M01S01232.comknwc +++|          ZR     B6,PBU3     IF ALL COMMUNICATION BLOCKS AVAILABLE
01465  M01S01233.comknwc +++|          RJ     RLC         RELEASE EXCESS COMMUNICATION BLOCKS
01466  M01S01234.comknwc +++| PBU2     SB3    B0
01467  M01S01235.comknwc +++|          EQ     PBUX        RETURN
01468  M01S01236.comknwc +++|
01469  M01S01237.comknwc +++|*         PREPARE SCATTER READ.
01470  M01S01238.comknwc +++|

Line S01239 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc9`

Seq #  *Modification Id* Act 
----------------------------+
01471  M02S01239.knwc9   ---| PBU3     SX4    CBDL

Line S01240 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc9`

Seq #  *Modification Id* Act 
----------------------------+
01472  M02S01240.knwc9   ---|          LX4    30          SET SIZE

Line S01241 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc9`

Seq #  *Modification Id* Act 
----------------------------+
01473  M02S01241.knwc9   ---|          SA7    A1-B1

Line S01242 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc9`

Seq #  *Modification Id* Act 
----------------------------+
01474  M02S01242.knwc9   ---|

Line S01243 Modification History
`M01` (Added by)	`comknwc`
`M02` (Updated by)	`knwc9`

Seq #  *Modification Id* Act 
----------------------------+
01475  M02S01243.knwc9   ---| PBU4     SX3    X2+CMBHL+2  SET ADDRESS

Proceed to Part 1