cdc:nos2.source:opl.opl871:common:comknwc
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
cdc/nos2.source/opl.opl871/common/comknwc.txt · Last modified: by 127.0.0.1