cdc:nos2.source:opl.opl871:common:comcrtn
Common COMCRTN
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comcrtn +++| CTEXT COMCRTN - READ TERMINAL NETWORK DESCRIPTION. 00002 M00S00002.comcrtn +++| RTN SPACE 4 00003 M00S00003.comcrtn +++| IF -DEF,QUAL$,1 00004 M00S00004.comcrtn +++| QUAL COMCRTN 00005 M00S00005.comcrtn +++| BASE D
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.comcrtn +++| RTN SPACE 4 00009 M00S00008.comcrtn +++|*** RTN - READ TERMINAL NETWORK DESCRIPTION. 00010 M00S00009.comcrtn +++|* J.C. BOHNHOFF. 72/09/09. 00011 M00S00010.comcrtn +++| SPACE 4 00012 M00S00011.comcrtn +++|*** RTN READS AND INTERPRETS A RECORD OF DISPLAY CODED 00013 M00S00012.comcrtn +++|* TERMINAL DESCRIPTIONS AND ALLOWS THE FORMATION OF A TABLE 00014 M00S00013.comcrtn +++|* BASED UPON INFORMATION FOUND. 00015 M00S00014.comcrtn +++|* 00016 M00S00015.comcrtn +++|* TERMINAL DESCRIPTION FORMAT. 00017 M00S00016.comcrtn +++|* TERMINAL NETWORK DESCRIPTION CONSISTS OF A SET OF DIRECTIVE 00018 M00S00017.comcrtn +++|* CARDS DESCRIBING EACH TERMINAL IN THE NETWORK. CARDS MAY 00019 M00S00018.comcrtn +++|* BE UP TO 90 COLUMNS, BUT ONLY COLUMNS 1 THROUGH 72 ARE 00020 M00S00019.comcrtn +++|* EXAMINED BY RTN. ANY CARD CONTAINING AN ASTERISK (*) IN 00021 M00S00020.comcrtn +++|* COLUMN 1 IS CONSIDERED A COMMENT CARD AND IS IGNORED. 00022 M00S00021.comcrtn +++|* IF THE FILE IS BEING FORMATTED FOR NETWORK INTERFACE, 00023 M00S00022.comcrtn +++|* THE ONLY DIRECTIVE WHICH WILL BE CONTAINED IN THE FILE WILL 00024 M00S00023.comcrtn +++|* HAVE THE FORMAT
| Line S00024 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00025 M01S00024.ns22000 ---|* //NAMIAF,NC=NNN,HS=NN.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00026 M01S00001.ns22000 +++|* //NAMIAF,NC=NNN. 00027 M00S00025.comcrtn +++|* NC. NUMBER OF CONNECTIONS. 00028 M00S00026.comcrtn +++|* 1-512D.
| Line S00027 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00029 M01S00027.ns22000 ---|* HS. NUMBER OF HIGH SPEED CONNECTIONS. 00030 M01S00028.ns22000 ---|* 1-31D. 00031 M00S00029.comcrtn ---|* TERMINALS ARE GROUPED INTO SETS BY THE MULTIPLEXOR THROUGH 00032 M00S00030.comcrtn ---|* WHICH THEY COMMUNICATE WITH THE SYSTEM. EACH SET IS INTRODUCED 00033 M00S00031.comcrtn ---|* BY A MUX DEFINITION IN THE FOLLOWING FORMAT - 00034 M00S00032.comcrtn ---|* //MUXTYPE,P1=N,P2=N 00035 M00S00033.comcrtn ---|* A TERMINAL IS CONSIDERED TO BELONG TO THE MUX SET BEGUN WITH 00036 M00S00034.comcrtn ---|* THE PRECEDING MUX DEFINITION. 00037 M00S00035.comcrtn ---|* 00038 M00S00036.comcrtn ---|* EACH TERMINAL DESCRIPTION IS BEGUN BY A TERMINAL NAME 00039 M00S00037.comcrtn ---|* DIRECTIVE IN THE FORMAT - /NAMENAM 00040 M00S00038.comcrtn ---|* THE SLASH (/) IS MANDATORY AND MUST IMMEDIATELY PRECEDE THE 00041 M00S00039.comcrtn ---|* TERMINAL NAME WHICH MAY BE ANY 1 TO 7 ALPHANUMERIC CHARACTERS. 00042 M00S00040.comcrtn ---|* FOLLOWING THE TERMINAL NAME AND SEPERATED BY COMMAS ARE 00043 M00S00041.comcrtn ---|* VARIOUS ARGUMENTS DESCRIBING TERMINAL CHARACTERISTICS IN THE 00044 M00S00042.comcrtn ---|* FORM - /NAME,AA=AAAA,NN=NNNNNN,... 00045 M00S00043.comcrtn ---|* IN THE FOLLOWING ARGUMENT DESCRIPTIONS, ALPHNUMERIC ARGUMENT 00046 M00S00044.comcrtn ---|* VALUES ARE DENOTED BY *AAA* AND NUMERIC ARGUMENT VALUES BY 00047 M00S00045.comcrtn ---|* *NNN*. NUMERIC VALUES ARE ALWAYS INTEGERS AND MAY BE SPECIFIED 00048 M00S00046.comcrtn ---|* IN EITHER OCTAL OR DECIMAL BASE BY INCLUDING A *B* OR *D* 00049 M00S00047.comcrtn ---|* RADIX SYMBOL IMMEDIATELY AFTER THE NUMBER. IN THE ABSENCE OF A 00050 M00S00048.comcrtn ---|* RADIX, DECIMAL BASE IS ASSUMED. EACH TERMINAL DESCRIPTION MAY 00051 M00S00049.comcrtn ---|* SPAN SEVERAL CARDS AND SPACES BETWEEN ARGUMENTS ARE IGNORED. 00052 M00S00050.comcrtn ---|* AN ARGUMENT NAME OR VALUE MAY NOT BE BROKEN BETWEEN INPUT 00053 M00S00051.comcrtn ---|* CARDS. THE NAME MAY APPEAR ON THE CARD PREVIOUS TO THE VALUE, 00054 M00S00052.comcrtn ---|* BUT THE EQUAL SIGN MUST IMMEDIATELY FOLLOW THE NAME AND BE ON 00055 M00S00053.comcrtn ---|* THE SAME INPUT CARD. 00056 M00S00054.comcrtn ---|* IF AN ERROR IS DETECTED, COMCRTN WILL RETURN - 00057 M00S00055.comcrtn ---|* THE ADDRESS OF AN ERROR MESSAGE, 00058 M00S00056.comcrtn ---|* THE CARD NUMBER OF THE OFFENDING CARD, 00059 M00S00057.comcrtn ---|* THE ADDRESS OF THE CARD STRING BUFFER. 00060 M00S00058.comcrtn ---|* UPON THE NEXT ENTRY TO ATD AFTER AN ERROR, CHARACTERS ARE 00061 M00S00059.comcrtn ---|* SKIPPED UNTIL A */* IS ENCOUNTERED AND THEN ASSEMBLY BEGINS 00062 M00S00060.comcrtn ---|* ANEW. 00063 M00S00061.comcrtn ---|* 00064 M00S00062.comcrtn ---|* THE DESCRIPTION FILE IS EXPECTED TO BE PROPERLY 00065 M00S00063.comcrtn ---|* POSITIONED UPON ENTRY TO ATD. 00066 M00S00064.comcrtn ---|* 00067 M00S00065.comcrtn ---|* PROGRAMS THAT USE COMCRTN MAY PLACE FURTHER 00068 M00S00066.comcrtn ---|* RESTRICTIONS UPON ARGUMENT VALUES THAN THOSE STATED BELOW. 00069 M00S00067.comcrtn ---|* IT IS BEST TO CONSULT APPROPRIATE DOCUMENTATION FOR THOSE 00070 M00S00068.comcrtn ---|* PROGRAMS BEFORE WRITING TERMINAL DESCRIPTIONS. 00071 M00S00069.comcrtn ---|* 00072 M00S00070.comcrtn ---|* AFTER EACH TERMINAL DESCRIPTION HAS BEEN ASSEMBLED, ATD 00073 M00S00071.comcrtn ---|* RETURNS TO THE CALLER. TERMINAL DESCRIPTION ARGUMENT VALUES 00074 M00S00072.comcrtn ---|* AT THIS POINT RESIDE IN THE FOLLOWING LOCATIONS - 00075 M00S00073.comcrtn ---|* TN. TERMINAL NAME. 00076 M00S00074.comcrtn ---|* 1-7 LEFT JUSTIFIED, ZERO FILL, CHARS. 00077 M00S00075.comcrtn ---|* DB. DATA BASE NAME.* 00078 M00S00076.comcrtn ---|* 2 LEFT JUSTIFIED CHARACTERS. 00079 M00S00077.comcrtn ---|* IS. INITIAL ON/OFF STATUS.* 00080 M00S00078.comcrtn ---|* BINARY 0 OR 1. 1=OFF. 00081 M00S00079.comcrtn ---|* LS. LINE SPEED IN CHARACTERS PER SECOND. 00082 M00S00080.comcrtn ---|* BINARY VALUE FROM 1-3777B. 00083 M00S00081.comcrtn ---|* PC. POLLING CODE. 00084 M00S00082.comcrtn ---|* 24 BIT BINARY VALUE. 00085 M00S00083.comcrtn ---|* PN. PORT NUMBER. 00086 M00S00084.comcrtn ---|* PACKED FLOATING POINT FORMAT VALUE. 00087 M00S00085.comcrtn ---|* COEFFICIENT IS THE PORT NUMBER FROM 0-63. 00088 M00S00086.comcrtn ---|* IF EXPONENT IS NONZERO, A RANGE OF PORTS 00089 M00S00087.comcrtn ---|* WITH IDENTICAL TERMINALS IS DEFINED. 00090 M00S00088.comcrtn ---|* IN THIS CASE, THE EXPONENT IS THE NUMBER OF 00091 M00S00089.comcrtn ---|* PORTS IN THE RANGE - 1. 00092 M00S00090.comcrtn ---|* RS. DATA BASE READ SECURITY.* 00093 M00S00091.comcrtn ---|* 3 BIT BINARY VALUE. 00094 M00S00092.comcrtn ---|* TT. TERMINAL TYPE. 00095 M00S00093.comcrtn ---|* BINARY VALUE DEFINED BY SYMBOL IN *COMSNET* 00096 M00S00094.comcrtn ---|* IF BIT 11 IS SET, TERMINAL IS A KTS 00097 M00S00095.comcrtn ---|* TERMINAL. 00098 M00S00096.comcrtn ---|* UA. USER ARGUMENTS.* 00099 M00S00097.comcrtn ---|* 24 BIT BINARY VALUE. 00100 M00S00098.comcrtn ---|* US. DATA BASE UPDATE SECURITY.* 00101 M00S00099.comcrtn ---|* 3 BIT BINARY VALUE. 00102 M00S00100.comcrtn ---|* MT. MULTIPLEXOR TYPE. 00103 M00S00101.comcrtn ---|* BINARY VALUE SYMBOLIZED IN *COMSNET*. 00104 M00S00102.comcrtn ---|* CH. MULTIPLEXOR CHANNEL. 00105 M00S00103.comcrtn ---|* PACKED FLOATING POINT FORMAT VALUE. 00106 M00S00104.comcrtn ---|* EXPONENT IS ZERO, COEFFICIENT IS CHANNEL. 00107 M01S00105.ns22000 ---|* EQ. MULTIPLEXOR EQUIPMENT NUMBER.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00108 M01S00002.ns22000 +++|* EQ. MULTIPLEXOR EQUIPMENT (CONTROLLER) NUMBER 00109 M00S00106.comcrtn +++|* PACKED FLOATING POINT FORMAT VALUE. 00110 M00S00107.comcrtn +++|* EXPONENT IS ZERO, COEFFICIENT IS EQUIPMENT. 00111 M00S00108.comcrtn +++|* CC CURRENT INPUT CARD NUMBER. 00112 M00S00109.comcrtn +++|* BINARY. 00113 M00S00110.comcrtn +++|* CD INPUT CARD STRING BUFFER. 00114 M00S00111.comcrtn +++|* ONE RIGHT JUSTIFIED CHARACTER PER WORD.
| Line S00112 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00115 M01S00112.ns22000 ---|* * KTS TERMINAL ARGUMENT. 00116 M00S00113.comcrtn ---|* 00117 M00S00114.comcrtn ---|* AFTER ALL TERMINAL DESCRIPTIONS HAVE BEEN ASSEMBLED, 00118 M00S00115.comcrtn ---|* THE USER MAY CALL STB TO SORT A TERMINAL TABLE THAT HE HAS 00119 M00S00116.comcrtn ---|* FORMED. THE TABLE ENTRIES ARE SORTED IN ASCENDING ORDER BY 00120 M00S00117.comcrtn ---|* CHANNEL, EQUIPMENT, AND PORT NUMBER. TO MINIMIZE SORTING TIME, 00121 M00S00118.comcrtn ---|* THE SOURCE DESCRIPTIONS SHOULD BE MAINTAINED IN THIS ORDER. 00122 M00S00119.comcrtn ---|* 00123 M00S00120.comcrtn ---|* INTERFACE SPECIFICATIONS FOR *ATD* - ASSEMBLE TERMINAL 00124 M00S00121.comcrtn ---|* DESCRIPTION - 00125 M00S00122.comcrtn ---|* 00126 M01S00123.ns22000 ---|* ENTRY (X5)= ADDRESS OF FET FOR DESCRIPTION FILE. 00127 M01S00124.ns22000 ---|* (A0)= ADDRESS OF A WORD THAT DESCRIBES A TABLE THAT 00128 M01S00125.ns22000 ---|* COMCRTN MAY USE TO STORE TERMINAL NAMES. 00129 M01S00126.ns22000 ---|* WORD FORMAT - 00130 M01S00127.ns22000 ---|* 12/0, 18/LENGTH, 30/FWA 00131 M01S00128.ns22000 ---|* WHERE - LENGTH= MAXIMUM LENGTH TABLE MAY 00132 M01S00129.ns22000 ---|* ATTAIN. 00133 M01S00130.ns22000 ---|* FWA= FIRST WORD ADDRESS OF TABLE. 00134 M01S00131.ns22000 ---|* NOTE - UPPER 12 BITS ARE USED BY COMCRTN 00135 M01S00132.ns22000 ---|* FOR CURRENT TABLE POSITION. 00136 M01S00133.ns22000 ---|* (B1)= 1.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00137 M01S00003.ns22000 +++|* ENTRY (X5) = ADDRESS OF FET FOR DESCRIPTION FILE. 00138 M01S00004.ns22000 +++|* (A0) = ADDRESS OF A WORD THAT DESCRIBES A TABLE THAT 00139 M01S00005.ns22000 +++|* *COMCRTN* CAN USE TO STORE TERMINAL NAMES. 00140 M01S00006.ns22000 +++|* (B1) = 1. 00141 M01S00007.ns22000 +++|*T WORD 12/SCRATCH,18/LENGTH,30/FWA
Figure WORD
00142 M01S00008.ns22000 +++|* SCRATCH = USED BY *COMCRTN*. 00143 M01S00009.ns22000 +++|* LENGTH = MAXIMUM TABLE LENGTH. 00144 M01S00010.ns22000 +++|* FWA = ADDRESS OF TABLE. 00145 M00S00134.comcrtn +++|*
| Line S00135 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00146 M01S00135.ns22000 ---|* EXIT (B1)= 1. 00147 M01S00136.ns22000 ---|* (X1)" 0 IF ERROR ENCOUNTERED IN DESCRIPTION FILE. 00148 M01S00137.ns22000 ---|* IF (X1)" 0, THEN - 00149 M01S00138.ns22000 ---|* (X2)= ADDRESS OF ERROR MESSAGE. 00150 M01S00139.ns22000 ---|* (*C* FORMAT) 00151 M01S00140.ns22000 ---|* (X4)= CARD NUMBER OF OFFENDING CARD. 00152 M01S00141.ns22000 ---|* IF (X4)= 0, NO DESCRIPTION CARDS 00153 M01S00142.ns22000 ---|* WERE FOUND IN THE RECORD. 00154 M01S00143.ns22000 ---|* IF (X4)< 0, THIS IS NOT AN ERROR, BUT 00155 M01S00144.ns22000 ---|* END OF RECORD WAS ENCOUNTERED. 00156 M01S00145.ns22000 ---|* (X0)= ADDRESS OF CARD STRING BUFFER. 00157 M01S00146.ns22000 ---|* (ABMA) = ADDITIONAL PLT WORDS FOR HIGH SPEED LINES. 00158 M01S00147.ns22000 ---|* 00159 M01S00148.ns22000 ---|* DOES NOT USE X - 5. 00160 M01S00149.ns22000 ---|* A - 0. 00161 M01S00150.ns22000 ---|* 00162 M01S00151.ns22000 ---|* CALLS CIO=,DXB,RDS=. 00163 M01S00152.ns22000 ---|* 00164 M01S00153.ns22000 ---|* REQUIRES COMSNET.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00165 M01S00011.ns22000 +++|* EXIT (X1) .NE. 0 IF ENCOUNTERED IN DESCRIPTION FILE. 00166 M01S00012.ns22000 +++|* IF ERROR ENCOUNTERED, THEN - 00167 M01S00013.ns22000 +++|* (X0) = ADDRESS OF CARD STRING BUFFER. 00168 M01S00014.ns22000 +++|* (X2) = ADDRESS OF ERROR MESSAGE. 00169 M01S00015.ns22000 +++|* (X4) = CARD NUMBER WITH ERROR. IF (X4) = 0, NO 00170 M01S00016.ns22000 +++|* DESCRIPTION CARDS WERE FOUND, IF (X4) .LT. 0, 00171 M01S00017.ns22000 +++|* AN *EOR* WAS ENCOUNTERED (NO ERROR). 00172 M01S00018.ns22000 +++|* 00173 M01S00019.ns22000 +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 00174 M01S00020.ns22000 +++|* A - 1, 2, 3, 4, 6, 7. 00175 M01S00021.ns22000 +++|* B - ALL. 00176 M01S00022.ns22000 +++|* 00177 M01S00023.ns22000 +++|* CALLS DXB. 00178 M01S00024.ns22000 +++|* 00179 M01S00025.ns22000 +++|* MACROS ABORT, DATE, MACHID, MESSAGE, READS, REWIND. 00180 M01S00026.ns22000 +++|* 00181 M01S00027.ns22000 +++|* XREF COMSNET. 00182 M00S00154.comcrtn +++| 00183 M00S00155.comcrtn +++| 00184 M00S00156.comcrtn +++|* PROCESS END OF RECORD. 00185 M00S00157.comcrtn +++| 00186 M00S00158.comcrtn +++| ATD6 SA1 ST CHECK *STOP* FLAG 00187 M00S00159.comcrtn +++| NZ X1,ATD8 IF *STOP* 00188 M00S00160.comcrtn +++| SX6 B1 SET *STOP* 00189 M00S00161.comcrtn +++| SA2 ATDC MOVE PSEUDO-CARD TO STRING BUFFER 00190 M00S00162.comcrtn +++| MX0 -6 00191 M00S00163.comcrtn +++| SA6 A1+ 00192 M00S00164.comcrtn +++| LX2 6 00193 M00S00165.comcrtn +++| BX7 -X0*X2 00194 M00S00166.comcrtn +++| SA7 CD 00195 M00S00167.comcrtn +++| ATD7 LX2 6 00196 M00S00168.comcrtn +++| BX7 -X0*X2 00197 M00S00169.comcrtn +++| SA7 A7+1 00198 M00S00170.comcrtn +++| NZ X7,ATD7 00199 M00S00171.comcrtn +++| RJ EPD ENTER PREVIOUS DESCRIPTION 00200 M00S00172.comcrtn +++| ATD8 SX1 1 RETURN *EOR* 00201 M00S00173.comcrtn +++| SX4 -1 00202 M00S00174.comcrtn +++| 00203 M00S00175.comcrtn +++|** ATD - ASSEMBLE TERMINAL DESCRIPTION. 00204 M00S00176.comcrtn +++| 00205 M00S00177.comcrtn +++| ATD PS ENTRY/EXIT 00206 M00S00178.comcrtn +++| SA2 ATDA CHECK *FIRST ENTRY* 00207 M00S00179.comcrtn +++| ZR X2,ATD1 IF NOT *FIRST ENTRY* 00208 M00S00180.comcrtn +++| 00209 M00S00181.comcrtn +++|* PROCESS FIRST CALL. 00210 M00S00182.comcrtn +++| 00211 M00S00183.comcrtn +++| BX7 X7-X7 CLEAR *FIRST ENTRY* 00212 M00S00184.comcrtn +++| SA7 A2 00213 M00S00185.comcrtn +++| READ X5 INITIATE READ 00214 M00S00186.comcrtn +++| RJ RNC READ FIRST CARD 00215 M00S00187.comcrtn +++| RJ ANW ASSEMBLE FIRST WORD 00216 M00S00188.comcrtn +++| SX4 0 00217 M00S00189.comcrtn +++| NZ X1,ATD RETURN - IF EOR/EOF 00218 M00S00190.comcrtn +++| SX2 EMDE * MULTIPLEXOR DESCRIPTION EXPECTED.* 00219 M00S00191.comcrtn +++| 00220 M00S00192.comcrtn +++|* RE-ENTER PROGRAM IF NEEDED. 00221 M00S00193.comcrtn +++| 00222 M00S00194.comcrtn +++| ATD1 SA1 RE CHECK RE-ENTRY NEEDED 00223 M00S00195.comcrtn +++| ZR X1,ATD2 IF NONE 00224 M00S00196.comcrtn +++| BX6 X6-X6 CLEAR RE-ENTRY 00225 M00S00197.comcrtn +++| SB7 X1 RE-ENTER PROGRAM 00226 M00S00198.comcrtn +++| SA6 RE 00227 M00S00199.comcrtn +++| JP B7 00228 M00S00200.comcrtn +++| 00229 M00S00201.comcrtn +++|* BEGIN NEW MUX/TERMINAL DESCRIPTION. 00230 M00S00202.comcrtn +++| 00231 M00S00203.comcrtn +++| ATD2 SA1 WD VERIFY START OF NEW DESCRIPTION 00232 M00S00204.comcrtn +++| MX0 60-6 00233 M00S00205.comcrtn +++| LX1 6 00234 M00S00206.comcrtn +++| BX6 -X0*X1 00235 M00S00207.comcrtn +++| SB7 X6-1R/ 00236 M00S00208.comcrtn +++| LX1 6 00237 M00S00209.comcrtn +++| NZ B7,ERR IF NOT TERMINAL NAME OR MUX DESCRIPTION 00238 M00S00210.comcrtn +++| BX6 -X0*X1 CHECK MUX DESCRIPTION 00239 M00S00211.comcrtn +++| SB7 X6-1R/ 00240 M00S00212.comcrtn +++| NZ B7,TNAP PROCESS TERMINAL NAME 00241 M00S00213.comcrtn +++| JP MUAP PROCESS MUX DESCRIPTION 00242 M00S00214.comcrtn +++| 00243 M00S00215.comcrtn +++|* PROCESS MUX/TERMINAL DESCRIPTION ARGUMENTS. 00244 M00S00216.comcrtn +++| 00245 M00S00217.comcrtn +++| ATDR BSS 0 RETURN FROM ARGUMENT PROCESSORS 00246 M00S00218.comcrtn +++| ATD3 RJ ANW ASSEMBLE NEXT KEYWORD 00247 M00S00219.comcrtn +++| NZ X1,ATD6 IF EOR/EOF 00248 M00S00220.comcrtn +++| SA3 TK IDENTIFY KEYWORD 00249 M00S00221.comcrtn +++| MX0 42 00250 M00S00222.comcrtn +++| SA3 X3 00251 M00S00223.comcrtn +++| SA1 WD 00252 M00S00224.comcrtn +++| SX2 EUKW * UNKNOWN KEYWORD.* 00253 M00S00225.comcrtn +++| ATD4 ZR X3,ATD2 IF END OF TABLE 00254 M00S00226.comcrtn +++| BX6 X1-X3 COMPARE 00255 M00S00227.comcrtn +++| BX7 X0*X6 00256 M00S00228.comcrtn +++| ZR X7,ATD5 IF KEYWORD FOUND 00257 M00S00229.comcrtn +++| SA3 A3+1 READ NEXT TABLE ENTRY 00258 M00S00230.comcrtn +++| EQ ATD4 LOOP 00259 M00S00231.comcrtn +++| 00260 M00S00232.comcrtn +++| ATD5 SA1 LC CHECK SEPERATOR +=+ 00261 M00S00233.comcrtn +++| SA1 X1 00262 M00S00234.comcrtn +++| SX6 X3 SAVE PROCESSOR ADDRESS 00263 M00S00235.comcrtn +++| SB6 X1-1R= 00264 M00S00236.comcrtn +++| SX2 EKNE * KEYWORD NOT EQUIVALENCED.* 00265 M00S00237.comcrtn +++| NZ B6,ERR IF SEPERATOR NOT +=+ 00266 M00S00238.comcrtn +++| SA6 ATDB 00267 M00S00239.comcrtn +++| RJ ANW ASSEMBLE ARGUMENT VALUE 00268 M00S00240.comcrtn +++| SX2 EAVM * ARGUMENT VALUE MISSING.* 00269 M00S00241.comcrtn +++| NZ X1,ERR IF EOR/EOF 00270 M00S00242.comcrtn +++| SA1 ATDB EXECUTE KEYWORD PROCESSOR 00271 M00S00243.comcrtn +++| SB7 X1+ 00272 M00S00244.comcrtn +++| JP B7 00273 M00S00245.comcrtn +++| 00274 M00S00246.comcrtn +++| ATDA CON 1 *FIRST ENTRY* FLAG 00275 M00S00247.comcrtn +++| ATDB CON 0 ARGUMENT PROCESSOR ADDRESS HOLD 00276 M00S00248.comcrtn +++| ATDC CON 9L>> EOR << *EOR* PSEUDO-CARD 00277 M00S00249.comcrtn +++| TTDK SPACE 4 00278 M00S00250.comcrtn +++|** TTDK - TABLE OF TERMINAL DESCRIPTION KEYWORDS. 00279 M00S00251.comcrtn +++|* ONE WORD ENTRY IN FORMAT - 00280 M00S00252.comcrtn +++|* 00281 M00S00253.comcrtn +++|*T 42/ *KEYWORD*,18/ PROC
Figure
00282 M00S00254.comcrtn +++|* 00283 M00S00255.comcrtn +++|* WHERE KEYWORD= LEFT JUSTIFIED, ZERO FILLED KEYWORD. 00284 M00S00256.comcrtn +++|* PROC= ADDRESS OF KEYWORD PROCESSOR. 00285 M00S00257.comcrtn +++| 00286 M00S00258.comcrtn +++| 00287 M00S00259.comcrtn +++| TTDK BSS 0 00288 M00S00260.comcrtn +++| CON 0LDB+DBAP *DB* 00289 M00S00261.comcrtn +++| CON 0LIS+ISAP *IS* 00290 M00S00262.comcrtn +++| CON 0LLS+LSAP *LS* 00291 M00S00263.comcrtn +++| CON 0LPC+PCAP *PC* 00292 M00S00264.comcrtn +++| CON 0LPL+PLAP *PL* 00293 M00S00265.comcrtn +++| CON 0LPN+PNAP *PN* 00294 M00S00266.comcrtn +++| CON 0LRS+RSAP *RS* 00295 M00S00267.comcrtn +++| CON 0LTT+TTAP *TT* 00296 M00S00268.comcrtn +++| CON 0LUA+UAAP *UA* 00297 M00S00269.comcrtn +++| CON 0LUS+USAP *US* 00298 M00S00270.comcrtn +++| CON 0 TABLE TERMINATOR 00299 M00S00271.comcrtn +++| TMDK SPACE 4 00300 M00S00272.comcrtn +++|** TMDK - TABLE OF MULTIPLEXOR DESCRIPTION KEYWORDS. 00301 M00S00273.comcrtn +++|* SAME FORMAT AS *TTDK*. 00302 M00S00274.comcrtn +++| 00303 M00S00275.comcrtn +++| 00304 M00S00276.comcrtn +++| TMDK BSS 0 00305 M00S00277.comcrtn +++| CON 0LCH+CHAP *CH* 00306 M00S00278.comcrtn +++| CON 0LEQ+EQAP *EQ* 00307 M00S00279.comcrtn +++| CON 0 00308 M00S00280.comcrtn +++| COM SPACE 4 00309 M00S00281.comcrtn +++|* COMMON STORAGE. 00310 M00S00282.comcrtn +++| 00311 M00S00283.comcrtn +++| 00312 M00S00284.comcrtn +++| AB CON 1 ASSEMBLY BYPASS (=0 IF BYPASS) 00313 M00S00285.comcrtn +++| CC CON 0 CARD COUNT 00314 M00S00286.comcrtn +++| CD BSS 91 CARD STRING BUFFER 00315 M00S00287.comcrtn +++| CL CON 0 ADDRESS OF CARD LIMIT 00316 M00S00288.comcrtn +++| EB CON 0 ENTRY BYPASS (=0 IF BYPASS) 00317 M00S00289.comcrtn +++| FC CON 0 ADDRESS OF FIRST CHARACTER OF CURRENT WORD 00318 M00S00290.comcrtn +++| LC CON 0 ADDRESS OF NEXT CHARACTER TO ASSEMBLE 00319 M00S00291.comcrtn +++| MD CON 0 *PROCESSING MUX DESCRIPTION* FLAG 00320 M00S00292.comcrtn +++| NF CON 0 NETWORK FLAG 00321 M00S00293.comcrtn +++| RE CON 0 RE-ENTRY ADDRESS 00322 M00S00294.comcrtn +++| ST CON 0 *STOP* FLAG 00323 M00S00295.comcrtn +++| KF CON 0 KTS FLAG 00324 M00S00296.comcrtn +++| TK CON TMDK ADDRESS OF KEYWORD TABLE 00325 M00S00297.comcrtn +++| CON 0 SACRIFICIAL WORD BEFORE *WD* 00326 M00S00298.comcrtn +++| WD BSS 8 WORD ASSEMBLY BUFFER 00327 M00S00299.comcrtn +++| 00328 M00S00300.comcrtn +++|* TERMINAL ARGUMENT VALUES. 00329 M00S00301.comcrtn +++| 00330 M00S00302.comcrtn +++| TARV BSS 0 00331 M00S00303.comcrtn +++| TN. CON 0 TERMINAL NAME 00332 M00S00304.comcrtn +++| DB. CON 0 DATA BASE NAME 00333 M00S00305.comcrtn +++| IS. CON 0 INITIAL STATUS 00334 M00S00306.comcrtn +++| LS. CON 0 LINE SPEED 00335 M00S00307.comcrtn +++| NC. CON 0 NUMBER OF NAM CONNECTIONS 00336 M00S00308.comcrtn +++| PC. CON 0 POLLING CODE 00337 M00S00309.comcrtn +++| PN. CON 0 PORT NUMBER 00338 M00S00310.comcrtn +++| RS. CON 0 READ SECURITY 00339 M00S00311.comcrtn +++| TT. CON 0 TERMINAL TYPE 00340 M00S00312.comcrtn +++| UA. CON 0 USER ARGUMENTS 00341 M00S00313.comcrtn +++| US. CON 0 UPDATE SECURITY 00342 M00S00314.comcrtn +++| TARVL EQU *-TARV 00343 M00S00315.comcrtn +++| 00344 M00S00316.comcrtn +++| MT. CON 0 MULTIPLEXOR TYPE 00345 M00S00317.comcrtn +++| CH. CON 0 MULTIPLEXOR CHANNEL 00346 M00S00318.comcrtn +++| EQ. CON 0 MULTIPLEXOR EQUIPMENT 00347 M00S00319.comcrtn +++| TITLE COMCRTN - MULTIPLEXOR DESCRIPTION ARGUMENT PROCESSORS. 00348 M00S00320.comcrtn +++|*** MULTIPLEXOR DESCRIPTION ARGUMENT FORMATS. 00349 M00S00321.comcrtn +++|* 00350 M00S00322.comcrtn +++|* EXAMPLE OF MULTIPLEXOR DESCRIPTION - 00351 M00S00323.comcrtn +++|* 00352 M00S00324.comcrtn +++|* //6676,CH=1,EQ=4. 00353 M00S00325.comcrtn +++|* 00354 M00S00326.comcrtn +++|* EXAMPLE OF NETWORK ACCESS METHOD INTERFACE DESCRIPTION - 00355 M00S00327.comcrtn +++|* 00356 M00S00328.comcrtn +++|* //NAMIAF,NC=10,HS=6. 00357 M00S00329.comcrtn +++| MDAP SPACE 4 00358 M00S00330.comcrtn +++|*** //AAAA 00359 M00S00331.comcrtn +++|* ** MANDATORY TO START A SET OF TERMINAL DESCRIPTIONS. 00360 M00S00332.comcrtn +++|* DESCRIBE MULTIPLEXOR OF TYPE AAAA. 00361 M00S00333.comcrtn +++|* AAAA MAY BE - 00362 M00S00334.comcrtn +++|* 6676 6676 MULTIPLEXOR 00363 M00S00335.comcrtn +++|* 6671 6671 MULTIPLEXOR 00364 M00S00336.comcrtn +++|* STIM STIMULATED MULTIPLEXOR 00365 M00S00337.comcrtn +++|* DIAL PSUEDO MULTIPLEXOR 00366 M00S00338.comcrtn +++|* NAMIAF NETWORK ACCESS METHOD INTERFACE 00367 M00S00339.comcrtn +++| 00368 M00S00340.comcrtn +++| 00369 M00S00341.comcrtn +++|** MDAP - PROCESS MULTIPLEXOR DESCRIPTION. 00370 M00S00342.comcrtn +++| 00371 M00S00343.comcrtn +++| 00372 M00S00344.comcrtn +++| MUAP BSS 0 ENTRY 00373 M00S00345.comcrtn +++| RJ EPD ENTER PREVIOUS DESCRIPTION 00374 M00S00346.comcrtn +++| SA1 WD IDENTIFY MUX TYPE 00375 M00S00347.comcrtn +++| SA3 TMTD 00376 M00S00348.comcrtn +++| MX0 42 00377 M00S00349.comcrtn +++| SX2 EUMT * UNKNOWN MULTIPLEXOR TYPE.* 00378 M00S00350.comcrtn +++| LX1 6*2 00379 M00S00351.comcrtn +++| MUAP1 ZR X3,ERR IF END OF TABLE 00380 M00S00352.comcrtn +++| BX6 X1-X3 COMPARE 00381 M00S00353.comcrtn +++| BX7 X0*X6 00382 M00S00354.comcrtn +++| ZR X7,MUAP2 IF MATCH FOUND 00383 M00S00355.comcrtn +++| SA3 A3+1 READ NEXT TABLE ENTRY 00384 M00S00356.comcrtn +++| EQ MUAP1 LOOP THROUGH TABLE 00385 M00S00357.comcrtn +++| 00386 M00S00358.comcrtn +++| MUAP2 SX7 B1 SET *PROCESSING MUX ENTRY* FLAG 00387 M00S00359.comcrtn +++| SX6 X3 STORE MUX TYPE 00388 M00S00360.comcrtn +++| SA7 MD 00389 M00S00361.comcrtn +++| SA6 MT. 00390 M00S00362.comcrtn +++| SX6 X6-MXNI CHECK MUX TYPE 00391 M00S00363.comcrtn +++| ZR X6,NCAP IF NAM INTERFACE 00392 M00S00364.comcrtn +++| SX7 0 CLEAR EQUIPMENT AND CHANNEL NUMBERS 00393 M00S00365.comcrtn +++| SX6 TMDK SET MUX DESCRIPTION KEYWORD TABLE 00394 M00S00366.comcrtn +++| SA7 CH. 00395 M00S00367.comcrtn +++| SA6 TK 00396 M00S00368.comcrtn +++| SA7 EQ. 00397 M00S00369.comcrtn +++| JP ATDR RETURN 00398 M00S00370.comcrtn +++| TMTD SPACE 4 00399 M00S00371.comcrtn +++|** TMTD - TABLE OF MULTIPLEXOR TYPE DESIGNATIONS. 00400 M00S00372.comcrtn +++| 00401 M00S00373.comcrtn +++| 00402 M00S00374.comcrtn +++| TMTD BSS 0 00403 M00S00375.comcrtn +++| CON 0L6676+MT76 6676 00404 M00S00376.comcrtn +++| CON 0L6671+MT71 6671 00405 M00S00377.comcrtn +++| CON 0LSTIM+MTST STIMULATED 00406 M00S00378.comcrtn +++| CON 0LDIAL+MXPM PSUEDO 00407 M00S00379.comcrtn +++| CON 0LNAMIAF+MXNI NAM INTERFACE 00408 M00S00380.comcrtn +++| CON 0 TABLE TERMINATOR 00409 M00S00381.comcrtn +++| CHAP SPACE 4 00410 M00S00382.comcrtn +++|*** CH=NN. 00411 M00S00383.comcrtn +++|* ** MANDATORY ARGUMENT ON MULTIPLEXOR DESCRIPTION. 00412 M00S00384.comcrtn +++|* DECLARE MULTIPLEXOR CHANNEL. 00413 M00S00385.comcrtn +++|* NN MAY RANGE FROM 0 TO 13B AND 20B TO 33B. 00414 M00S00386.comcrtn +++| 00415 M00S00387.comcrtn +++| 00416 M00S00388.comcrtn +++|** CHAP - PROCESS *CH*. 00417 M00S00389.comcrtn +++| 00418 M00S00390.comcrtn +++| 00419 M00S00391.comcrtn +++| CHAP BSS 0 ENTRY 00420 M00S00392.comcrtn +++| SB6 CHAPA PROCESS VALUE 00421 M00S00393.comcrtn +++| RJ PNA 00422 M00S00394.comcrtn +++| ZR X4,CHAP1 IF NO ERROR 00423 M00S00395.comcrtn +++| SB6 CHAPB TRY OTHER RANGE 00424 M00S00396.comcrtn +++| RJ PNA 00425 M00S00397.comcrtn +++| SX2 ECHR * CHANNEL NUMBER OUT OF RANGE.* 00426 M00S00398.comcrtn +++| NZ X4,ERR IF OUT OF RANGE 00427 M00S00399.comcrtn +++| CHAP1 PX6 X6 STORE CHANNEL NUMBER 00428 M00S00400.comcrtn +++| SA6 CH. 00429 M00S00401.comcrtn +++| JP ATDR RETURN 00430 M00S00402.comcrtn +++| 00431 M00S00403.comcrtn +++| CHAPA VFD 12/2000B,48/14B 00432 M00S00404.comcrtn +++| CHAPB VFD 12/2020B,48/34B 00433 M00S00405.comcrtn +++| EQAP SPACE 4 00434 M00S00406.comcrtn +++|*** EQ=N. 00435 M00S00407.comcrtn +++|* ** MANDATORY ARGUMENT ON MULTIPLEXOR DESCRIPTION.
| Line S00408 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00436 M01S00408.ns22000 ---|* DECLARE MULTIPLEXOR EQUIPMENT NUMBER.
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00437 M01S00028.ns22000 +++|* DECLARE MULTIPLEXOR EQUIPMENT (CONTROLLER) NUMBER. 00438 M00S00409.comcrtn +++|* N MAY RANGE FROM 0 TO 7. 00439 M00S00410.comcrtn +++| 00440 M00S00411.comcrtn +++| 00441 M00S00412.comcrtn +++|** EQAP - PROCESS *EQ*. 00442 M00S00413.comcrtn +++| 00443 M00S00414.comcrtn +++| 00444 M00S00415.comcrtn +++| EQAP BSS 0 ENTRY 00445 M00S00416.comcrtn +++| SB6 EQAPA PROCESS VALUE 00446 M00S00417.comcrtn +++| RJ PNA 00447 M00S00418.comcrtn +++| SX2 EEQR * EQUIPMENT NUMBER OUT OF RANGE.* 00448 M00S00419.comcrtn +++| NZ X4,ERR IF OUT OF RANGE
| Line S00420 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00449 M01S00420.ns22000 ---| PX6 X6 STORE EQUIPMENT NUMBER
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00450 M01S00029.ns22000 +++| PX6 X6 STORE EQUIPMENT (CONTROLLER) NUMBER 00451 M00S00421.comcrtn +++| SA6 EQ. 00452 M00S00422.comcrtn +++| JP ATDR RETURN 00453 M00S00423.comcrtn +++| 00454 M00S00424.comcrtn +++| EQAPA VFD 12/2000B,48/10B 00455 M00S00425.comcrtn +++| NCAP SPACE 4,10
| Line S00426 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00456 M01S00426.ns22000 ---|** NC=N,HS=P.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00457 M01S00030.ns22000 +++|** NC=N. 00458 M00S00427.comcrtn +++|* 00459 M00S00428.comcrtn +++|* ** NC IS A MANDATORY ARGUMENT FOR NAM INTERFACE DESCRIPTION. 00460 M00S00429.comcrtn +++|* DECLARE NUMBER OF CONNECTIONS. 00461 M00S00430.comcrtn +++|* N MAY RANGE FROM 1 TO 512D.
| Line S00431 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00462 M01S00431.ns22000 ---|* ** HS IS AN OPTIONAL ARGUMENT. 00463 M01S00432.ns22000 ---|* DECLARE NUMBER OF HIGH SPEED CONNECTIONS. 00464 M01S00433.ns22000 ---|* P MAY RANGE FROM 1 TO 31D. 00465 M00S00434.comcrtn ---| 00466 M00S00435.comcrtn ---| 00467 M00S00436.comcrtn ---| NCAP BSS 0 ENTRY 00468 M00S00437.comcrtn ---| SA1 NF CHECK FOR PREVIOUS NAM DEFINITION 00469 M00S00438.comcrtn ---| SX2 EMND * MULTIPLE NAM INTERFACE DEFINITIONS.* 00470 M00S00439.comcrtn ---| NZ X1,ERR IF PREVIOUS DEFINITION 00471 M00S00440.comcrtn ---| SA1 KF CHECK KTS FLAG 00472 M00S00441.comcrtn ---| SX2 EKNI * KTS AND NAM INCOMPATIBLE.* 00473 M00S00442.comcrtn ---| NZ X1,ERR IF KTS DEFINED 00474 M00S00443.comcrtn ---| RJ ANW ASSEMBLE KEYWORD 00475 M00S00444.comcrtn ---| SX2 ECCM * CONNECTION COUNT MISSING.* 00476 M00S00445.comcrtn ---| NZ X1,ERR IF EOR/EOF 00477 M00S00446.comcrtn ---| SA1 WD CHECK KEYWORD 00478 M00S00447.comcrtn ---| LX1 12 00479 M00S00448.comcrtn ---| SX1 X1-2RNC 00480 M00S00449.comcrtn ---| NZ X1,ERR IF NOT *NC* 00481 M00S00450.comcrtn ---| SX3 NCA1 SET RETURN ADDRESS 00482 M00S00451.comcrtn ---| EQ ATD5 PROCESS ARGUMENT 00483 M00S00452.comcrtn ---| 00484 M00S00453.comcrtn ---|* RETURN FROM ARGUMENT PROCESSOR. 00485 M00S00454.comcrtn ---| 00486 M00S00455.comcrtn ---| NCA1 SB6 NCAPA PROCESS VALUE 00487 M00S00456.comcrtn ---| RJ PNA 00488 M00S00457.comcrtn ---| SX2 EICC * INVALID CONNECTION COUNT* 00489 M00S00458.comcrtn ---| NZ X4,ERR IF CONNECTION COUNT ERROR 00490 M00S00459.comcrtn ---| 00491 M00S00460.comcrtn ---|* SET PARAMETERS FOR RETURN TO CALLER. 00492 M00S00461.comcrtn ---| 00493 M00S00462.comcrtn ---| SA6 NC. CONNECTION COUNT 00494 M00S00463.comcrtn ---| SB3 X6-1 CONNECTION COUNT-1 00495 M00S00464.comcrtn ---| SX6 B1 FIRST PORT 00496 M00S00465.comcrtn ---| PX6 X6,B3 FORMAT PORT ENTRY 00497 M00S00466.comcrtn ---| SA6 PN. STORE PORT ENTRY 00498 M00S00467.comcrtn ---| SX7 TTNI SET TERMINAL TYPE 00499 M00S00468.comcrtn ---| SA7 TT. 00500 M00S00469.comcrtn ---| SX6 37B SET DUMMY CHANNEL 00501 M00S00470.comcrtn ---| SX7 7 SET DUMMY EQUIPMENT 00502 M00S00471.comcrtn ---| SA6 CH. 00503 M00S00472.comcrtn ---| SA7 EQ. 00504 M00S00473.comcrtn ---| SA6 NF SET NAM INTERFACE FLAG 00505 M00S00474.comcrtn ---| RJ ANW ASSEMBLE KEYWORD 00506 M01S00475.ns22000 ---| NZ X1,NCA1.2 IF EOR/EOF 00507 M01S00476.ns22000 ---| SA1 WD CHECK KEYWORD 00508 M01S00477.ns22000 ---| LX1 12 00509 M01S00478.ns22000 ---| SX1 X1-2RHS 00510 M01S00479.ns22000 ---| SX2 EUKW * UNKNOWN KEYWORD.* 00511 M01S00480.ns22000 ---| NZ X1,ERR IF NOT *HS* 00512 M01S00481.ns22000 ---| SX3 NCA1.1 SET RETURN ADDRESS 00513 M01S00482.ns22000 ---| EQ ATD5 PROCESS ARGUMENT 00514 M01S00483.ns22000 ---| 00515 M01S00484.ns22000 ---|* RETURN FROM ARGUMENT PROCESSOR. 00516 M01S00485.ns22000 ---| 00517 M01S00486.ns22000 ---| NCA1.1 SB6 NCAPB PROCESS VALUE 00518 M01S00487.ns22000 ---| RJ PNA 00519 M01S00488.ns22000 ---| SX2 EIHS *INVALID HIGH SPEED LINE COUNT.* 00520 M01S00489.ns22000 ---| NZ X4,ERR IF HIGH SPEED LINE COUNT ERROR 00521 M01S00490.ns22000 ---| SX2 VBPT SET HIGH SPEED LINE POT COUNT 00522 M01S00491.ns22000 ---| IX6 X6*X2 00523 M01S00492.ns22000 ---| SA6 ABMA 00524 M01S00493.ns22000 ---| NCA1.2 SX7 NCA2 SET REENTRY ADDRESS
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00525 M01S00031.ns22000 +++| SX2 EUKW * UNKNOWN KEYWORD.* 00526 M01S00032.ns22000 +++| ZR X1,ERR IF NOT EOR/EOF 00527 M01S00033.ns22000 +++| SX7 NCA2 SET REENTRY ADDRESS 00528 M00S00494.comcrtn +++| SA7 RE 00529 M00S00495.comcrtn +++| SX1 B0+ X1 = NO ERRORS 00530 M00S00496.comcrtn +++| JP ATD RETURN TO CALLING PROCESSOR 00531 M00S00497.comcrtn +++| 00532 M00S00498.comcrtn +++|* REENTER TO PROCESS NEXT MUX ENTRY. 00533 M00S00499.comcrtn +++| 00534 M00S00500.comcrtn +++| NCA2 RJ CTV CLEAR TERMINAL VALUES 00535 M00S00501.comcrtn +++| SA6 EB SET ENTRY BYPASS 00536 M00S00502.comcrtn +++| RJ ANW ASSEMBLE NEXT KEYWORD 00537 M00S00503.comcrtn +++| SX4 -1 INDICATE CARDS PROCESSED 00538 M00S00504.comcrtn +++| NZ X1,ATD IF EOR/EOF - RETURN 00539 M00S00505.comcrtn +++| SX2 EMDE * MULTIPLEXER DESCRIPTION EXPECTED.* 00540 M00S00506.comcrtn +++| JP ATD2 PROCESS NEXT MULTIPLEXER DESCRIPTION 00541 M00S00507.comcrtn +++| 00542 M00S00508.comcrtn +++| NCAPA VFD 12/2001B,48/1018D 00543 M00S00509.comcrtn +++| NCAPB VFD 12/2001B,48/32D 00544 M00S00510.comcrtn +++| TITLE COMCRTN - TERMINAL DESCRIPTION ARGUMENT PROCESSORS. 00545 M00S00511.comcrtn +++|*** TERMINAL DESCRIPTION ARGUMENT FORMATS. 00546 M00S00512.comcrtn +++|* 00547 M00S00513.comcrtn +++|* EXAMPLE OF TIME-SHARING TERMINAL DESCRIPTION - 00548 M00S00514.comcrtn +++|* 00549 M00S00515.comcrtn +++|* /XXX,LS=10,PN=1,TT=AB. 00550 M00S00516.comcrtn +++|* 00551 M00S00517.comcrtn +++|* EXAMPLE OF KTS TERMINAL DESCRIPTION - 00552 M00S00518.comcrtn +++|* 00553 M00S00519.comcrtn +++|* /C02001A,DB=LC,IS=ON,LS=15,PC=20B,PN=3, 00554 M00S00520.comcrtn +++|* RS=4,TT=*NIX,UA=015700B,US=4. 00555 M00S00521.comcrtn +++| TNAP SPACE 4 00556 M00S00522.comcrtn +++|*** /AAAAAAA 00557 M00S00523.comcrtn +++|* ** MANDATORY TO DESCRIBE A TERMINAL. 00558 M00S00524.comcrtn +++|* DEFINE TERMINAL NAME AAAAAAA. 00559 M00S00525.comcrtn +++|* AAAAAAA MAY BE ANY 7 OR LESS ALPHANUMERIC CHARACTERS. 00560 M00S00526.comcrtn +++| 00561 M00S00527.comcrtn +++| 00562 M00S00528.comcrtn +++|** TNAP - PROCESS TERMINAL NAME. 00563 M00S00529.comcrtn +++|* 00564 M00S00530.comcrtn +++|* ENTRY (X2)= ERROR CODE. IF (X2)= *EMDE*, A MUX DESCRIPTION 00565 M00S00531.comcrtn +++|* WAS EXPECTED, SO TREAT AS AN ERROR. 00566 M00S00532.comcrtn +++| 00567 M00S00533.comcrtn +++| 00568 M00S00534.comcrtn +++| TNAP BSS 0 ENTRY 00569 M00S00535.comcrtn +++| SB7 X2-EMDE 00570 M00S00536.comcrtn +++| ZR B7,ERR IF MUX DESCRIPTION EXPECTED 00571 M00S00537.comcrtn +++| RJ EPD ENTER PREVIOUS TERMINAL DESCRIPTION 00572 M00S00538.comcrtn +++| SX6 TTDK SET TERMINAL DESCRIPTION KEYWORD TABLE 00573 M00S00539.comcrtn +++| SA1 WD CHECK NAME .LE. 7 CHARACTERS 00574 M00S00540.comcrtn +++| SA6 TK 00575 M00S00541.comcrtn +++| MX0 60-6 00576 M00S00542.comcrtn +++| LX1 6 00577 M00S00543.comcrtn +++| MX4 6*7 00578 M00S00544.comcrtn +++| BX3 X0*X1 REMOVE +/+ 00579 M00S00545.comcrtn +++| SX2 ETNL * TERMINAL NAME TOO LONG.* 00580 M00S00546.comcrtn +++| BX4 -X4*X3 PICK EXCESS CHARACTERS 00581 M00S00547.comcrtn +++| NZ X4,ERR IF NAME TOO LONG 00582 M00S00548.comcrtn +++| RJ STN CHECK DUPLICATE KTS TERMINAL NAME 00583 M00S00549.comcrtn +++| ZR X2,TNAP1 IF NO DUPLICATE FOUND 00584 M00S00550.comcrtn +++| SX2 EDTN * TERMINAL NAME DUPLICATES THAT OF KTS 00585 M00S00551.comcrtn +++|* TERMINAL.* 00586 M00S00552.comcrtn +++| JP ERR 00587 M00S00553.comcrtn +++| TNAP1 SA6 TN. STORE TERMINAL NAME 00588 M00S00554.comcrtn +++| JP ATDR RETURN 00589 M00S00555.comcrtn +++| DBAP SPACE 4 00590 M00S00556.comcrtn +++|*** DB=AA. 00591 M00S00557.comcrtn +++|* ** KTS TERMINAL ARGUMENT. 00592 M00S00558.comcrtn +++|* DECLARE DATA BASE TO BE USED BY TERMINAL. 00593 M00S00559.comcrtn +++|* AA MAY BE ANY LEGAL 2 CHARACTER DATA BASE NAME. 00594 M00S00560.comcrtn +++| 00595 M00S00561.comcrtn +++| 00596 M00S00562.comcrtn +++|** DBAP - PROCESS *DB*. 00597 M00S00563.comcrtn +++| 00598 M00S00564.comcrtn +++| 00599 M00S00565.comcrtn +++| DBAP BSS 0 ENTRY 00600 M00S00566.comcrtn +++| SA1 WD CHECK NAME IS 2 CHARACTERS 00601 M00S00567.comcrtn +++| MX0 6*2 00602 M00S00568.comcrtn +++| MX2 6 00603 M00S00569.comcrtn +++| BX6 -X0*X1 EXCESS CHARACTERS PAST 2 00604 M00S00570.comcrtn +++| BX7 -X2*X1 EXCESS CHARACTERS PAST 1 00605 M00S00571.comcrtn +++| SX2 EDBL * DATA BASE NAME NOT 2 CHARACTERS.* 00606 M00S00572.comcrtn +++| NZ X6,ERR IF .GT. 2 CHARACTERS 00607 M00S00573.comcrtn +++| ZR X7,ERR IF .LT. 2 CHARACTERS 00608 M00S00574.comcrtn +++| SX2 EDBF * DATA BASE NAME FIRST CHARACTER BAD.* 00609 M00S00575.comcrtn +++| NG X1,ERR IF NAME STARTS WITH CHARACTER .GE. 5 00610 M00S00576.comcrtn +++| BX6 X1 STORE DATA BASE NAME 00611 M00S00577.comcrtn +++| SA6 DB. 00612 M00S00578.comcrtn +++| JP ATDR RETURN 00613 M00S00579.comcrtn +++| ISAP SPACE 4 00614 M00S00580.comcrtn +++|*** IS=AAA. 00615 M00S00581.comcrtn +++|* ** KTS TERMINAL ARGUMENT. 00616 M00S00582.comcrtn +++|* DECLARE INITIAL ON/OFF STATUS. 00617 M00S00583.comcrtn +++|* AAA MAY BE *ON* OR *OFF*. 00618 M00S00584.comcrtn +++|* DEFAULT VALUE IS *ON*. 00619 M00S00585.comcrtn +++| 00620 M00S00586.comcrtn +++| 00621 M00S00587.comcrtn +++|** ISAP - PROCESS *IS*. 00622 M00S00588.comcrtn +++| 00623 M00S00589.comcrtn +++| 00624 M00S00590.comcrtn +++| ISAP BSS 0 ENTRY 00625 M00S00591.comcrtn +++| SA1 WD CHECK *ON* 00626 M00S00592.comcrtn +++| SA3 ISAPA 00627 M00S00593.comcrtn +++| SX2 EUIS * UNKNOWN INITIAL STATUS.* 00628 M00S00594.comcrtn +++| SA4 ISAPB CHECK *OFF* 00629 M00S00595.comcrtn +++| BX6 X1-X3 00630 M00S00596.comcrtn +++| BX7 X1-X4 00631 M00S00597.comcrtn +++| ZR X6,ISAP1 IF *ON* 00632 M00S00598.comcrtn +++| NZ X7,ERR IF NOT *OFF* 00633 M00S00599.comcrtn +++| SX6 1 00634 M00S00600.comcrtn +++| ISAP1 SA6 IS. STORE INITIAL STATUS 00635 M00S00601.comcrtn +++| JP ATDR RETURN 00636 M00S00602.comcrtn +++| 00637 M00S00603.comcrtn +++| ISAPA CON 0LON 00638 M00S00604.comcrtn +++| ISAPB CON 0LOFF 00639 M00S00605.comcrtn +++| LSAP SPACE 4 00640 M00S00606.comcrtn +++|*** LS=NNNN. 00641 M00S00607.comcrtn +++|* DECLARE TERMINAL LINE SPEED. (CHARACTER RATE) 00642 M00S00608.comcrtn +++|* NNNN IS IN CHARACTERS PER SECOND AND VALUES MAY RANGE 00643 M00S00609.comcrtn +++|* FROM 1 TO 2047. IF TERMINAL BIT RATE IS NOT INTEGRAL WHEN 00644 M00S00610.comcrtn +++|* EXPRESSED IN CHARACTERS PER SECOND, USE THE NEXT HIGHER 00645 M00S00611.comcrtn +++|* INTEGER. 00646 M00S00612.comcrtn +++| 00647 M00S00613.comcrtn +++| 00648 M00S00614.comcrtn +++|** LSAP - PROCESS *LS*. 00649 M00S00615.comcrtn +++| 00650 M00S00616.comcrtn +++| 00651 M00S00617.comcrtn +++| LSAP BSS 0 ENTRY 00652 M00S00618.comcrtn +++| SB6 LSAPA PROCESS VALUE 00653 M00S00619.comcrtn +++| RJ PNA 00654 M00S00620.comcrtn +++| SA6 LS. STORE VALUE 00655 M00S00621.comcrtn +++| SX2 ELSR * LINE SPEED OUT OF RANGE.* 00656 M00S00622.comcrtn +++| ZR X4,ATDR IF VALUE WITHIN RANGE 00657 M00S00623.comcrtn +++| JP ERR PROCESS ERROR 00658 M00S00624.comcrtn +++| 00659 M00S00625.comcrtn +++| LSAPA VFD 12/2001B,48/1S11 00660 M00S00626.comcrtn +++| PCAP SPACE 4 00661 M00S00627.comcrtn +++|*** PC=NNNNNNNN. 00662 M00S00628.comcrtn +++|* DEFINE TERMINAL POLLING CODE. 00663 M00S00629.comcrtn +++|* NNNNNNNN MAY RANGE FROM 0 TO 16777215. (24 BITS) 00664 M00S00630.comcrtn +++| 00665 M00S00631.comcrtn +++| 00666 M00S00632.comcrtn +++|** PCAP - PROCESS *PC*. 00667 M00S00633.comcrtn +++| 00668 M00S00634.comcrtn +++| 00669 M00S00635.comcrtn +++| PCAP BSS 0 ENTRY 00670 M00S00636.comcrtn +++| SB6 PCAPA PROCESS VALUE 00671 M00S00637.comcrtn +++| RJ PNA 00672 M00S00638.comcrtn +++| SA6 PC. STORE VALUE 00673 M00S00639.comcrtn +++| SX2 EPCR * POLLING CODE OUT OF RANGE.* 00674 M00S00640.comcrtn +++| ZR X4,ATDR IF VALUE WITHIN RANGE 00675 M00S00641.comcrtn +++| JP ERR PROCESS ERROR 00676 M00S00642.comcrtn +++| 00677 M00S00643.comcrtn +++| PCAPA VFD 12/2000B,48/1S24 00678 M00S00644.comcrtn +++| PLAP SPACE 4 00679 M00S00645.comcrtn +++|*** PL=N. 00680 M00S00646.comcrtn +++|* DEFINE LIMIT OF A RANGE OF PORTS FOR A SET OF IDENTICAL 00681 M00S00647.comcrtn +++|* TERMINALS. 00682 M00S00648.comcrtn +++|* N MAY RANGE FROM THE PREVIOUS DECLARED PORT NUMBER *PN* + 1 00683 M00S00649.comcrtn +++|* TO 64 FOR A 6676 MULTIPLEXOR, TO 16 FOR A 6671 MULTIPLEXOR, OR 00684 M00S00650.comcrtn +++|* TO 1023 FOR A STIMULATED MULTIPLEXOR. THE *PN* ARGUMENT MUST 00685 M00S00651.comcrtn +++|* APPEAR PREVIOUS TO THE *PL* ARGUMENT. 00686 M00S00652.comcrtn +++| 00687 M00S00653.comcrtn +++| 00688 M00S00654.comcrtn +++|** PLAP - PROCESS *PL*. 00689 M00S00655.comcrtn +++| 00690 M00S00656.comcrtn +++| 00691 M00S00657.comcrtn +++| PLAP BSS 0 ENTRY 00692 M00S00658.comcrtn +++| SA1 PN. CHECK FIRST PORT DEFINED 00693 M00S00659.comcrtn +++| SA3 MT. FIND PORT LIMIT FOR MUX TYPE 00694 M00S00660.comcrtn +++| SX2 EFPU * *PN* DESIGNATION MUST PRECEDE *PL*.* 00695 M00S00661.comcrtn +++| ZR X1,ERR IF FIRST PORT UNDEFINED 00696 M00S00662.comcrtn +++| SB7 X3 00697 M00S00663.comcrtn +++| UX6 X1 00698 M00S00664.comcrtn +++| SA1 PLAPA+B7 READ UPPER LIMIT FOR MUX TYPE 00699 M00S00665.comcrtn +++| SB7 X6+B1 LOWER LIMIT = PN+1 00700 M00S00666.comcrtn +++| PX6 X1,B7 00701 M00S00667.comcrtn +++| SA6 PLAPB 00702 M00S00668.comcrtn +++| SB6 PLAPB PROCESS NUMERIC ARGUMENT 00703 M00S00669.comcrtn +++| RJ PNA 00704 M00S00670.comcrtn +++| SX2 EPLR * PORT LIMIT OUT OF RANGE.* 00705 M00S00671.comcrtn +++| NZ X4,ERR IF OUT OF RANGE 00706 M00S00672.comcrtn +++| SA1 PN. RESET PORT COUNT 00707 M00S00673.comcrtn +++| UX7 X1 00708 M00S00674.comcrtn +++| IX6 X6-X7 NUMBER OF PORTS - 1 00709 M00S00675.comcrtn +++| SB7 X6 00710 M00S00676.comcrtn +++| PX6 X7,B7 00711 M00S00677.comcrtn +++| SA6 PN. 00712 M00S00678.comcrtn +++| JP ATDR RETURN 00713 M00S00679.comcrtn +++| 00714 M00S00680.comcrtn +++| PLAPA CON 65 00715 M00S00681.comcrtn +++| CON 17 00716 M00S00682.comcrtn +++| CON 1024 00717 M00S00683.comcrtn +++| PLAPB CON 0 00718 M00S00684.comcrtn +++| PNAP SPACE 4 00719 M00S00685.comcrtn +++|*** PN=N. 00720 M00S00686.comcrtn +++|* DECLARE PORT NUMBER OF THIS TERMINALS LINE. 00721 M00S00687.comcrtn +++|* N MAY RANGE FROM 1 TO 64 IF MULTIPLEXOR IS A 6676, FROM 1 TO 00722 M00S00688.comcrtn +++|* 16 IF MULTIPLEXOR IS A 6671, FROM 1 TO 4096 IF MULTIPLEXOR 00723 M00S00689.comcrtn +++|* IS STIMULATED, AND FROM 0 TO 4096 IF PSUEDO MULTIPLEXOR. 00724 M00S00690.comcrtn +++| 00725 M00S00691.comcrtn +++| 00726 M00S00692.comcrtn +++|** PNAP - PROCESS *PN*. 00727 M00S00693.comcrtn +++| 00728 M00S00694.comcrtn +++| 00729 M00S00695.comcrtn +++| PNAP BSS 0 ENTRY 00730 M00S00696.comcrtn +++| SA1 MT. SET PROPER VALUE RANGE DEPENDING UPON 00731 M00S00697.comcrtn +++|* MUX TYPE 00732 M00S00698.comcrtn +++| SB6 PNAPA+X1 PROCESS VALUE 00733 M00S00699.comcrtn +++| RJ PNA 00734 M00S00700.comcrtn +++| SX2 EPNR * PORT NUMBER OUT OF RANGE.* 00735 M00S00701.comcrtn +++| NZ X4,ERR IF VALUE OUT OF RANGE 00736 M00S00702.comcrtn +++| PX6 X6 PACK PORT NUMBER 00737 M00S00703.comcrtn +++| SA6 PN. STORE VALUE 00738 M00S00704.comcrtn +++| JP ATDR RETURN 00739 M00S00705.comcrtn +++| 00740 M00S00706.comcrtn +++| PNAPA BSS 0 00741 M00S00707.comcrtn +++| VFD 12/2001B,48/65 00742 M00S00708.comcrtn +++| VFD 12/2001B,48/17 00743 M00S00709.comcrtn +++| VFD 12/2001B,48/4096 00744 M00S00710.comcrtn +++| VFD 12/2000B,48/4096 00745 M00S00711.comcrtn +++| RSAP SPACE 4 00746 M00S00712.comcrtn +++|*** RS=N. 00747 M00S00713.comcrtn +++|* ** KTS TERMINAL ARGUMENT. 00748 M00S00714.comcrtn +++|* DECLARE DATA BASE READ SECURITY. 00749 M00S00715.comcrtn +++|* N MAY RANGE FROM 0 TO 7. 00750 M00S00716.comcrtn +++|* DEFAULT VALUE IS 0. 00751 M00S00717.comcrtn +++| 00752 M00S00718.comcrtn +++| 00753 M00S00719.comcrtn +++|** RSAP - PROCESS *RS*. 00754 M00S00720.comcrtn +++| 00755 M00S00721.comcrtn +++| 00756 M00S00722.comcrtn +++| RSAP BSS 0 ENTRY 00757 M00S00723.comcrtn +++| SB6 RSAPA PROCESS VALUE 00758 M00S00724.comcrtn +++| RJ PNA 00759 M00S00725.comcrtn +++| SA6 RS. STORE VALUE 00760 M00S00726.comcrtn +++| SX2 ERSR * READ SECURITY OUT OF RANGE.* 00761 M00S00727.comcrtn +++| ZR X4,ATDR IF VALUE WITHIN RANGE 00762 M00S00728.comcrtn +++| JP ERR PROCESS ERROR 00763 M00S00729.comcrtn +++| 00764 M00S00730.comcrtn +++| RSAPA VFD 12/2000B,48/8 00765 M00S00731.comcrtn +++| TTAP SPACE 4 00766 M00S00732.comcrtn +++|*** TT=AAAAAAAA. 00767 M00S00733.comcrtn +++|* DECLARE TERMINAL TYPE. 00768 M00S00734.comcrtn +++|* AAAAAAAA MAY BE ANY ONE OF THE FOLLOWING - 00769 M00S00735.comcrtn +++|* AB TERMINAL WILL BE IDENTIFIED BY ANSWERBACK. 00770 M00S00736.comcrtn +++|* ID TERMINAL WILL BE IDENTIFIED BY TERMINAL 00771 M00S00737.comcrtn +++|* OPERATOR ENTRY. 00772 M00S00738.comcrtn +++|* NIX *CYBERLOAN* NIXDORF TERMINAL. 00773 M00S00739.comcrtn +++|* IF ANY ONE OF THE ABOVE TERMINAL TYPE MNEMONICS 00774 M00S00740.comcrtn +++|* IS PREFIXED BY +*+, IT IS DEFINED AS BELONGING 00775 M00S00741.comcrtn +++|* TO THE KTS TERMINAL NETWORK. FOR EXAMPLE - 00776 M00S00742.comcrtn +++|* TT=*NIX 00777 M00S00743.comcrtn +++|* DECLARES A KTS NIXDORF TERMINAL. 00778 M00S00744.comcrtn +++|* 00779 M00S00745.comcrtn +++|* KTS AND NIXDORF TERMINALS ARE INVALID IF NETWORK 00780 M00S00746.comcrtn +++|* INTERFACE IS DEFINED. 00781 M00S00747.comcrtn +++| 00782 M00S00748.comcrtn +++| 00783 M00S00749.comcrtn +++|** TTAP - PROCESS *TT*. 00784 M00S00750.comcrtn +++| 00785 M00S00751.comcrtn +++| 00786 M00S00752.comcrtn +++| TTAP BSS 0 ENTRY 00787 M00S00753.comcrtn +++| SA1 WD VERIFY TERMINAL TYPE 00788 M00S00754.comcrtn +++| MX0 60-6 CHECK KTS PREFIX (*) 00789 M00S00755.comcrtn +++| LX1 6 00790 M00S00756.comcrtn +++| BX4 -X0*X1 00791 M00S00757.comcrtn +++| SB7 B0+ ASSUME NOT KTS 00792 M00S00758.comcrtn +++| LX1 -6 00793 M00S00759.comcrtn +++| SB2 X4-1R* 00794 M00S00760.comcrtn +++| NZ B2,TTAP1 IF NOT KTS 00795 M00S00761.comcrtn +++| LX1 6 SHIFT OFF * 00796 M00S00762.comcrtn +++| SB7 B1 00797 M00S00763.comcrtn +++| SA4 NF CHECK NETWORK FLAG 00798 M00S00764.comcrtn +++| SX2 EKNI * KTS AND NAM INCOMPATIBLE.* 00799 M00S00765.comcrtn +++| NZ X4,ERR IF NETWORK TERMINALS DEFINED 00800 M00S00766.comcrtn +++| SX7 B1+ SET KTS FLAG 00801 M00S00767.comcrtn +++| SA7 KF 00802 M00S00768.comcrtn +++| TTAP1 SA3 TTCT SEARCH TERMINAL TYPE TABLE 00803 M00S00769.comcrtn +++| MX0 42 00804 M00S00770.comcrtn +++| SX2 EUTT * UNKNOWN TERMINAL TYPE.* 00805 M00S00771.comcrtn +++| TTAP2 ZR X3,ERR IF END OF TABLE 00806 M00S00772.comcrtn +++| BX6 X1-X3 COMPARE 00807 M00S00773.comcrtn +++| BX7 X0*X6 00808 M00S00774.comcrtn +++| ZR X7,TTAP3 IF MATCH 00809 M00S00775.comcrtn +++| SA3 A3+1 READ NEXT TABLE ENTRY 00810 M00S00776.comcrtn +++| EQ TTAP2 LOOP FOR ALL ENTRIES 00811 M00S00777.comcrtn +++| 00812 M00S00778.comcrtn +++| TTAP3 SX7 B7 STORE TERMINAL TYPE CODE AND KTS INDICATOR 00813 M00S00779.comcrtn +++| SX6 X3 00814 M00S00780.comcrtn +++| LX7 11 00815 M00S00781.comcrtn +++| BX6 X6+X7 00816 M00S00782.comcrtn +++| SA6 TT. 00817 M00S00783.comcrtn +++| JP ATDR RETURN 00818 M00S00784.comcrtn +++| TTCT SPACE 4 00819 M00S00785.comcrtn +++|** TTCT - TERMINAL TYPE CODE TABLE. 00820 M00S00786.comcrtn +++|* ONE WORD ENTRY IN FORMAT: 00821 M00S00787.comcrtn +++|* 00822 M00S00788.comcrtn +++|*T TTCT 42/ TERMINAL TYPE MNEMONIC,18/ TYPE CODE
Figure TTCT
00823 M00S00789.comcrtn +++|* 00824 M00S00790.comcrtn +++|* IN ORDER OF TYPE CODE. 00825 M00S00791.comcrtn +++| 00826 M00S00792.comcrtn +++| 00827 M00S00793.comcrtn +++| TTCT BSS 0 00828 M00S00794.comcrtn +++| LOC 1 00829 M00S00795.comcrtn +++| CON 0LAB+TTAB 00830 M00S00796.comcrtn +++| CON 0LID+TTID 00831 M00S00797.comcrtn +++| CON 0LNIX+TTNX 00832 M00S00798.comcrtn +++| CON 0 TABLE TERMINATOR 00833 M00S00799.comcrtn +++| LOC *O 00834 M00S00800.comcrtn +++| UAAP SPACE 4 00835 M00S00801.comcrtn +++|*** UA=NNNNNN. 00836 M00S00802.comcrtn +++|* ** KTS TERMINAL ARGUMENT. 00837 M00S00803.comcrtn +++|* DEFINE CONTENTS OF USER ARGUMENT AREA. 00838 M00S00804.comcrtn +++|* NNNNNN MAY RANGE FROM 0 TO 16777215. (24 BITS) 00839 M00S00805.comcrtn +++|* DEFAULT VALUE IS 0. 00840 M00S00806.comcrtn +++| 00841 M00S00807.comcrtn +++| 00842 M00S00808.comcrtn +++|** UAAP - PROCESS *UA*. 00843 M00S00809.comcrtn +++| 00844 M00S00810.comcrtn +++| 00845 M00S00811.comcrtn +++| UAAP BSS 0 ENTRY 00846 M00S00812.comcrtn +++| SB6 UAAPA PROCESS VALUE 00847 M00S00813.comcrtn +++| RJ PNA 00848 M00S00814.comcrtn +++| SA6 UA. STORE VALUE 00849 M00S00815.comcrtn +++| SX2 EUAR * USER ARGUMENT OUT OF RANGE.* 00850 M00S00816.comcrtn +++| ZR X4,ATDR IF VALUE WITHIN RANGE 00851 M00S00817.comcrtn +++| JP ERR PROCESS ERROR 00852 M00S00818.comcrtn +++| 00853 M00S00819.comcrtn +++| UAAPA VFD 12/2000B,48/1S24 00854 M00S00820.comcrtn +++| USAP SPACE 4 00855 M00S00821.comcrtn +++|*** US=N. 00856 M00S00822.comcrtn +++|* ** KTS TERMINAL ARGUMENT. 00857 M00S00823.comcrtn +++|* DECLARE DATA BASE UPDATE SECURITY. 00858 M00S00824.comcrtn +++|* N MAY RANGE FROM 0 TO 7. 00859 M00S00825.comcrtn +++|* DEFAULT VALUE IS 0. 00860 M00S00826.comcrtn +++| 00861 M00S00827.comcrtn +++| 00862 M00S00828.comcrtn +++|** USAP - PROCESS *US*. 00863 M00S00829.comcrtn +++| 00864 M00S00830.comcrtn +++| 00865 M00S00831.comcrtn +++| USAP BSS 0 ENTRY 00866 M00S00832.comcrtn +++| SB6 USAPA PROCESS VALUE 00867 M00S00833.comcrtn +++| RJ PNA 00868 M00S00834.comcrtn +++| SA6 US. STORE VALUE 00869 M00S00835.comcrtn +++| SX2 EUSR * UPDATE SECURITY OUT OF RANGE.* 00870 M00S00836.comcrtn +++| ZR X4,ATDR IF VALUE WITHIN RANGE 00871 M00S00837.comcrtn +++| JP ERR PROCESS ERROR 00872 M00S00838.comcrtn +++| 00873 M00S00839.comcrtn +++| USAPA VFD 12/2000B,48/8 00874 M00S00840.comcrtn +++| ANW TITLE COMCRTN - SUBROUTINES. 00875 M00S00841.comcrtn +++|** ANW - ASSEMBLE NEXT WORD. 00876 M00S00842.comcrtn +++|* 00877 M00S00843.comcrtn +++|* ENTRY (LC)= ADDRESS OF NEXT CHARACTER TO ASSEMBLE. 00878 M00S00844.comcrtn +++|* (CL)= ADDRESS OF CARD LIMIT. 00879 M00S00845.comcrtn +++|* (AB)= ASSEMBLY BYPASS. 00880 M00S00846.comcrtn +++|* 00881 M00S00847.comcrtn +++|* EXIT (X1)= NONZERO IF EOR/EOF. 00882 M00S00848.comcrtn +++|* (WD - WD+N)= ASSEMBLED WORD. 00883 M00S00849.comcrtn +++|* 00884 M00S00850.comcrtn +++|* USES B - 2,6. 00885 M00S00851.comcrtn +++|* A - 1,2,7. 00886 M00S00852.comcrtn +++|* X - 1,2,7. 00887 M00S00853.comcrtn +++|* 00888 M00S00854.comcrtn +++|* CALLS AWD,RNC. 00889 M00S00855.comcrtn +++| 00890 M00S00856.comcrtn +++| 00891 M00S00857.comcrtn +++| ANW2 SX7 1 CLEAR BYPASS 00892 M00S00858.comcrtn +++| SA7 AB 00893 M00S00859.comcrtn +++| 00894 M00S00860.comcrtn +++| ANW PS ENTRY/EXIT 00895 M00S00861.comcrtn +++| SA1 AB CHECK ASSEMBLY BYPASS 00896 M00S00862.comcrtn +++| ZR X1,ANW2 IF BYPASS 00897 M00S00863.comcrtn +++| ANW1 SA1 LC SET SCAN START 00898 M00S00864.comcrtn +++| SA2 CL SET CARD LIMIT 00899 M00S00865.comcrtn +++| SB2 X1 00900 M00S00866.comcrtn +++| SB6 X2 00901 M00S00867.comcrtn +++| RJ AWD ASSEMBLE WORD 00902 M00S00868.comcrtn +++| SX1 0 00903 M00S00869.comcrtn +++| NZ X6,ANW RETURN - IF NOT END OF LINE 00904 M00S00870.comcrtn +++| RJ RNC READ NEXT CARD 00905 M00S00871.comcrtn +++| ZR X1,ANW1 IF NOT EOR 00906 M00S00872.comcrtn +++| JP ANW RETURN 00907 M00S00873.comcrtn +++| ATN SPACE 4 00908 M00S00874.comcrtn +++|** ATN - ADD TERMINAL NAME TO TABLE. 00909 M00S00875.comcrtn +++|* 00910 M00S00876.comcrtn +++|* ENTRY (X1)= TERMINAL NAME. 00911 M00S00877.comcrtn +++|* (A0)= ADDRESS OF TABLE POINTER WORD. 00912 M00S00878.comcrtn +++|* 00913 M00S00879.comcrtn +++|* EXIT NONE. 00914 M00S00880.comcrtn +++|* 00915 M00S00881.comcrtn +++|* USES B - 5,6,7. 00916 M00S00882.comcrtn +++|* A - 3,6,7. 00917 M00S00883.comcrtn +++|* X - 0,2,3,6,7. 00918 M00S00884.comcrtn +++|* 00919 M00S00885.comcrtn +++|* CALLS NONE. 00920 M00S00886.comcrtn +++| 00921 M00S00887.comcrtn +++| 00922 M00S00888.comcrtn +++| ATN PS ENTRY/EXIT 00923 M00S00889.comcrtn +++| SA3 A0 READ TABLE POINTER 00924 M00S00890.comcrtn +++| SB5 X3 FWA 00925 M00S00891.comcrtn +++| MX7 -12 00926 M00S00892.comcrtn +++| LX3 -30 00927 M00S00893.comcrtn +++| BX6 X1 ENTRY 00928 M00S00894.comcrtn +++| SB7 X3 LENGTH 00929 M00S00895.comcrtn +++| LX3 -18 EXTRACT *IN* 00930 M00S00896.comcrtn +++| BX7 -X7*X3 00931 M00S00897.comcrtn +++| LX3 -12 00932 M00S00898.comcrtn +++| SB6 X7+B1 CHECK ROOM FOR ENTRY + 1 00933 M00S00899.comcrtn +++| SX2 ENTF * TERMINAL NAME TABLE OVERFLOW.* 00934 M00S00900.comcrtn +++| GE B6,B7,ATN1 IF OVERFLOW 00935 M00S00901.comcrtn +++| MX0 1 ADVANCE *IN* 00936 M00S00902.comcrtn +++| SA6 B5+X7 STORE ENTRY 00937 M00S00903.comcrtn +++| LX0 -11 00938 M00S00904.comcrtn +++| IX7 X3+X0 00939 M00S00905.comcrtn +++| SA7 A0+ RESTORE POINTER 00940 M00S00906.comcrtn +++| JP ATN RETURN 00941 M00S00907.comcrtn +++| 00942 M00S00908.comcrtn +++| ATN1 MX0 12 RESET IN 00943 M00S00909.comcrtn +++| BX7 -X0*X3 00944 M00S00910.comcrtn +++| SA7 A0+ 00945 M00S00911.comcrtn +++| JP ERR PROCESS ERROR 00946 M00S00912.comcrtn +++| AWD SPACE 4 00947 M00S00913.comcrtn +++|** AWD - ASSEMBLE WORD. 00948 M00S00914.comcrtn +++|* 00949 M00S00915.comcrtn +++|* ENTRY (B2)= ADDRESS OF FIRST CHARACTER TO CHECK. 00950 M00S00916.comcrtn +++|* (B6)= LIMIT OF STRING BUFFER. 00951 M00S00917.comcrtn +++|* 00952 M00S00918.comcrtn +++|* EXIT (X6)=0 IF END OF LINE. 00953 M00S00919.comcrtn +++|* (LC)= LWA+1 OF STRING WORD. 00954 M00S00920.comcrtn +++|* (FC)= FWA OF STRING WORD. 00955 M00S00921.comcrtn +++|* (WD - WD+N)= ASSEMBLED WORD. 00956 M00S00922.comcrtn +++|* (WD-1)= 0. 00957 M00S00923.comcrtn +++|* 00958 M00S00924.comcrtn +++|* USES B - 7. 00959 M00S00925.comcrtn +++|* A - 1,2,3,6,7. 00960 M00S00926.comcrtn +++|* X - 0,1,2,3,6,7. 00961 M00S00927.comcrtn +++|* 00962 M00S00928.comcrtn +++|* CALLS NONE. 00963 M00S00929.comcrtn +++| 00964 M00S00930.comcrtn +++| 00965 M00S00931.comcrtn +++| AWD5 BX7 X3 RESTORE (LWA+1) 00966 M00S00932.comcrtn +++| SX6 0 00967 M00S00933.comcrtn +++| SA7 B6 00968 M00S00934.comcrtn +++| 00969 M00S00935.comcrtn +++| AWD PS ENTRY/EXIT 00970 M00S00936.comcrtn +++| SX6 0 ASSUME END OF LINE 00971 M00S00937.comcrtn +++| GE B2,B6,AWD RETURN - IF EOL 00972 M00S00938.comcrtn +++| SB5 60 INITIALIZE ASSEMBLY COUNTER 00973 M00S00939.comcrtn +++| SB7 B2-CD-72 CHECK BEYOND COL. 72 00974 M00S00940.comcrtn +++| PL B7,AWD RETURN - IF PAST COL. 72 00975 M00S00941.comcrtn +++| SX7 1RE SET IGNORE SCAN STOPPER 00976 M00S00942.comcrtn +++| SA3 B6 PRESERVE (LWA+1) 00977 M00S00943.comcrtn +++| SA1 B2-B1 INITIALIZE CHARACTER ADDRESS 00978 M00S00944.comcrtn +++| SA7 B6+ 00979 M00S00945.comcrtn +++| SA2 AWDA READ IGNORE/SEPARATOR MASK 00980 M00S00946.comcrtn +++| AWD1 SA1 A1+1 READ CHARACTER 00981 M00S00947.comcrtn +++| SB7 X1 00982 M00S00948.comcrtn +++| LX7 X2,B7 00983 M00S00949.comcrtn +++| NG X7,AWD1 IF IGNORE CHARACTER 00984 M00S00950.comcrtn +++| SB7 A1+ 00985 M00S00951.comcrtn +++| GE B7,B6,AWD5 IF END OF LINE 00986 M00S00952.comcrtn +++| SX6 1R SET ASSEMBLY SCAN STOPPER 00987 M00S00953.comcrtn +++| SX7 A1 SET FIRST CHARACTER ADDRESS 00988 M00S00954.comcrtn +++| SA6 B6 00989 M00S00955.comcrtn +++| SA7 FC 00990 M00S00956.comcrtn +++| SX6 0 INITIALIZE ASSEMBLY DESTINATION ADDRESS 00991 M00S00957.comcrtn +++| SA6 WD-1 00992 M00S00958.comcrtn +++| JP AWD3 00993 M00S00959.comcrtn +++| 00994 M00S00960.comcrtn +++| AWD2 SA1 A1+B1 READ CHARACTER 00995 M00S00961.comcrtn +++| NO 00996 M00S00962.comcrtn +++| SB7 X1 00997 M00S00963.comcrtn +++| LX7 X2,B7 00998 M00S00964.comcrtn +++| NO 00999 M00S00965.comcrtn +++| NG X7,AWD4 IF SEPARATOR 01000 M00S00966.comcrtn +++| AWD3 LX6 6 INSERT CHARACTER 01001 M00S00967.comcrtn +++| SB5 B5-6 COUNT CHARACTER 01002 M00S00968.comcrtn +++| BX6 X6+X1 01003 M00S00969.comcrtn +++| NZ B5,AWD2 IF ASSEMBLY NOT FULL 01004 M00S00970.comcrtn +++| SA6 A6+1 STORE WORD 01005 M00S00971.comcrtn +++| SB5 60 RESET ASSEMBLY COUNTER 01006 M00S00972.comcrtn +++| SX6 0 CLEAR ASSEMBLY 01007 M00S00973.comcrtn +++| EQ AWD2 01008 M00S00974.comcrtn +++| 01009 M00S00975.comcrtn +++| AWD4 LX6 X6,B5 LEFT JUSTIFY WORD 01010 M00S00976.comcrtn +++| SA6 A6+B1 STORE LAST WORD 01011 M00S00977.comcrtn +++| BX7 X3 RESTORE (LWA+1) 01012 M00S00978.comcrtn +++| SX6 A1 SET LWA+1 OF STRING WORD 01013 M00S00979.comcrtn +++| SA7 B6 01014 M00S00980.comcrtn +++| SB7 A6 01015 M00S00981.comcrtn +++| SA6 LC 01016 M00S00982.comcrtn +++| MX7 0 TERMINATE WORD 01017 M00S00983.comcrtn +++| SX6 1 01018 M00S00984.comcrtn +++| SA7 B7+B1 01019 M00S00985.comcrtn +++| JP AWD RETURN 01020 M00S00986.comcrtn +++| 01021 M00S00987.comcrtn +++| AWDA BSS 0 IGNORE/SEPERATOR MASK WORD 01022 M00S00988.comcrtn +++| POS 60-1R= 01023 M00S00989.comcrtn +++| VFD 1/1 01024 M00S00990.comcrtn +++| POS 60-1R 01025 M00S00991.comcrtn +++| VFD 1/1 01026 M00S00992.comcrtn +++| POS 60-1R, 01027 M00S00993.comcrtn +++| VFD 1/1 01028 M00S00994.comcrtn +++| POS 60-1R. 01029 M00S00995.comcrtn +++| VFD 1/1 01030 M00S00996.comcrtn +++| BSS 0 01031 M00S00997.comcrtn +++| CTV SPACE 4 01032 M00S00998.comcrtn +++|** CTV - CLEAR TERMINAL VALUES. 01033 M00S00999.comcrtn +++|* 01034 M00S01000.comcrtn +++|* ENTRY NONE. 01035 M00S01001.comcrtn +++|* 01036 M00S01002.comcrtn +++|* EXIT NONE. 01037 M00S01003.comcrtn +++|* 01038 M00S01004.comcrtn +++|* USES B - 6,7. 01039 M00S01005.comcrtn +++|* A - 6. 01040 M00S01006.comcrtn +++|* X - 6. 01041 M00S01007.comcrtn +++|* 01042 M00S01008.comcrtn +++|* CALLS NONE. 01043 M00S01009.comcrtn +++| 01044 M00S01010.comcrtn +++| 01045 M00S01011.comcrtn +++| CTV PS ENTRY/EXIT 01046 M00S01012.comcrtn +++| SB7 TARVL-1 CLEAR TABLE 01047 M00S01013.comcrtn +++| SX6 0 01048 M00S01014.comcrtn +++| SB6 TARV 01049 M00S01015.comcrtn +++| CTV1 SA6 B6+B7 01050 M00S01016.comcrtn +++| SB7 B7-B1 01051 M00S01017.comcrtn +++| PL B7,CTV1 01052 M00S01018.comcrtn +++| JP CTV RETURN 01053 M00S01019.comcrtn +++| EPD SPACE 4 01054 M00S01020.comcrtn +++|** EPD - ENTER PREVIOUS TERMINAL DESCRIPTION INTO TABLE. 01055 M00S01021.comcrtn +++|* 01056 M00S01022.comcrtn +++|* ENTRY NONE. 01057 M00S01023.comcrtn +++|* 01058 M00S01024.comcrtn +++|* EXIT NONE. 01059 M00S01025.comcrtn +++|* 01060 M00S01026.comcrtn +++|* USES B - 5. 01061 M00S01027.comcrtn +++|* A - 1,3,6,7. 01062 M00S01028.comcrtn +++|* X - 1,2,3,6,7. 01063 M00S01029.comcrtn +++|* 01064 M00S01030.comcrtn +++|* CALLS ATN,CTV,ERR. 01065 M00S01031.comcrtn +++| 01066 M00S01032.comcrtn +++| 01067 M00S01033.comcrtn +++| EPD4 SX7 1 CLEAR FLAG 01068 M00S01034.comcrtn +++| SA7 EB 01069 M00S01035.comcrtn +++| 01070 M00S01036.comcrtn +++| EPD PS ENTRY/EXIT 01071 M00S01037.comcrtn +++| SA1 EB CHECK ENTRY BYPASS SET 01072 M00S01038.comcrtn +++| ZR X1,EPD4 IF ENTRY BYPASS 01073 M00S01039.comcrtn +++| SA1 MD CHECK MUX DESCRIPTION ACTIVE 01074 M00S01040.comcrtn +++| NZ X1,EPD3 IF MUX DESCRIPTION 01075 M00S01041.comcrtn +++| 01076 M00S01042.comcrtn +++|* COMPLETE DESCRIPTION PROCESSING. 01077 M00S01043.comcrtn +++| 01078 M00S01044.comcrtn +++| SA1 PN. CHECK PORT UNDEFINED 01079 M00S01045.comcrtn +++| SX2 -EPNU * PORT NUMBER UNDEFINED.* 01080 M00S01046.comcrtn +++| NZ X1,EPD0 IF PORT DEFINED 01081 M00S01047.comcrtn +++| SA3 MT. 01082 M00S01048.comcrtn +++| PX6 X1 01083 M00S01049.comcrtn +++| BX1 X6 01084 M00S01050.comcrtn +++| SA6 A1+ SET *PN.* VALUE 01085 M00S01051.comcrtn +++| SX3 X3-MXPM 01086 M00S01052.comcrtn +++| NZ X3,ERR IF NOT PSUEDO MULTIPLEXOR 01087 M00S01053.comcrtn +++| SB5 0 01088 M00S01054.comcrtn +++| JP EPD0.1 01089 M00S01055.comcrtn +++| 01090 M00S01056.comcrtn +++| EPD0 SA2 TT. CHECK TRANSACTION SUBSYSTEM TERMINAL 01091 M00S01057.comcrtn +++| LX2 59-11 01092 M00S01058.comcrtn +++| PL X2,EPD1 IF NOT KTS 01093 M00S01059.comcrtn +++| UX6,B5 X1 CHECK *PL* SPECIFIED 01094 M00S01060.comcrtn +++| EPD0.1 SX2 -EKPR 01095 M00S01061.comcrtn +++| SA1 TN. ENTER TERMINAL NAME INTO TABLE 01096 M00S01062.comcrtn +++| NZ B5,ERR IF *PL* SPECIFIED 01097 M00S01063.comcrtn +++| RJ ATN ADD TERMINAL NAME TO TABLE 01098 M00S01064.comcrtn +++| EPD1 SX6 EPD2 SET RE-ENTRY ADDRESS 01099 M00S01065.comcrtn +++| SX1 0 INDICATE NO ERROR 01100 M00S01066.comcrtn +++| SA6 RE 01101 M00S01067.comcrtn +++| JP ATD RETURN 01102 M00S01068.comcrtn +++| 01103 M00S01069.comcrtn +++| EPD2 RJ CTV CLEAR TERMINAL VALUES 01104 M00S01070.comcrtn +++| JP EPD RETURN 01105 M00S01071.comcrtn +++| 01106 M00S01072.comcrtn +++|* VALIDATE COMPLETE MUX DESCRIPTION. 01107 M00S01073.comcrtn +++| 01108 M00S01074.comcrtn +++| EPD3 BX6 X6-X6 CLEAR *PROCESSING MUX DESCRIPTION* FLAG 01109 M00S01075.comcrtn +++| SA3 MT. CHECK MULTIPLEXOR TYPE 01110 M00S01076.comcrtn +++| SA6 A1 01111 M00S01077.comcrtn +++| SX7 X3-MXPM 01112 M00S01078.comcrtn +++| NZ X7,EPD3.1 IF NOT PSUEDO MULTIPLEXOR 01113 M00S01079.comcrtn +++| SX2 -EPME * PSUEDO MULTIPLEXOR DESCRIPTION ERROR.* 01114 M00S01080.comcrtn +++| SA1 EQ. 01115 M00S01081.comcrtn +++| SA3 CH. CHECK FOR EQUIPMENT/CHANNEL ASSIGNMENT 01116 M00S01082.comcrtn +++| BX3 X3+X1 01117 M00S01083.comcrtn +++| ZR X3,EPD IF NO EQUIPMENT/CHANNEL, RETURN 01118 M00S01084.comcrtn +++| JP ERR PROCESS ERROR 01119 M00S01085.comcrtn +++| 01120 M00S01086.comcrtn +++| EPD3.1 SA3 EQ. CHECK EQUIPMENT DESCRIPTION 01121 M00S01087.comcrtn +++| SX2 -EMEU * MULTIPLEXOR EQUIPMENT UNDEFINED.* 01122 M00S01088.comcrtn +++| ZR X3,ERR IF EQUIPMENT UNDEFINED 01123 M00S01089.comcrtn +++| SA3 CH. CHECK CHANNEL DEFINED 01124 M00S01090.comcrtn +++| SX2 -EMCU * MULTIPLEXOR CHANNEL UNDEFINED.* 01125 M00S01091.comcrtn +++| NZ X3,EPD RETURN - IF CHANNEL DEFINED 01126 M00S01092.comcrtn +++|* JP ERR PROCESS ERROR 01127 M00S01093.comcrtn +++| ERR SPACE 4 01128 M00S01094.comcrtn +++|** ERR - PROCESS ERROR. 01129 M00S01095.comcrtn +++|* 01130 M00S01096.comcrtn +++|* ENTRY (X2)= ERROR MESSAGE ADDRESS. 01131 M00S01097.comcrtn +++|* IF (X2) .LT. ZERO, START RECOVERY AT CURRENT WORD 01132 M00S01098.comcrtn +++|* ELSE, SCAN FOR */* STARTING AT NEXT WORD. 01133 M00S01099.comcrtn +++|* 01134 M00S01100.comcrtn +++|* EXIT NONE. 01135 M00S01101.comcrtn +++|* 01136 M00S01102.comcrtn +++|* USES B - NONE. 01137 M00S01103.comcrtn +++|* A - 1,4,6. 01138 M00S01104.comcrtn +++|* X - 0,1,2,4,6. 01139 M00S01105.comcrtn +++|* 01140 M00S01106.comcrtn +++|* CALLS REC. 01141 M00S01107.comcrtn +++| 01142 M00S01108.comcrtn +++| 01143 M00S01109.comcrtn +++| ERR BSS 0 ENTRY 01144 M00S01110.comcrtn +++| BX6 X2 CHECK ENTRY BYPASS INDICATOR 01145 M00S01111.comcrtn +++| PL X2,ERR1 IF *SET ENTRY BYPASS* 01146 M00S01112.comcrtn +++| BX2 -X6 01147 M00S01113.comcrtn +++| ERR1 SA6 ERRA SAVE BYPASS INDICATOR 01148 M00S01114.comcrtn +++| SA4 CC INDICATE CARD NUMBER 01149 M00S01115.comcrtn +++| SX1 X2+ 01150 M00S01116.comcrtn +++| SX6 CEP SET RE-ENTRY ADDRESS 01151 M00S01117.comcrtn +++| SX0 CD INDICATE BUFFER ADDRESS 01152 M00S01118.comcrtn +++| SA6 RE 01153 M00S01119.comcrtn +++| JP ATD RETURN 01154 M00S01120.comcrtn +++| 01155 M00S01121.comcrtn +++|* COMPLETE ERROR PROCESSING. 01156 M00S01122.comcrtn +++| 01157 M00S01123.comcrtn +++| CEP SX6 0 01158 M00S01124.comcrtn +++| SA1 ERRA INDICATE RECOVERY STARTING POINT 01159 M00S01125.comcrtn +++| SA6 EB SET TABLE ENTRY BYPASS 01160 M00S01126.comcrtn +++| RJ REC RECOVER COMPOSURE 01161 M00S01127.comcrtn +++| JP ATDR CONTINUE 01162 M00S01128.comcrtn +++| 01163 M00S01129.comcrtn +++| ERRA CON 0 01164 M00S01130.comcrtn +++| PNA SPACE 4 01165 M00S01131.comcrtn +++|** PNA - PROCESS NUMERIC ARGUMENT. 01166 M00S01132.comcrtn +++|* 01167 M00S01133.comcrtn +++|* ENTRY (B6)= ADDRESS OF MINIMUM AND MAXIMUM VALUES IN 01168 M00S01134.comcrtn +++|* FLOATING FORMAT WHERE THE EXPONENT IS THE MINIMUM AND 01169 M00S01135.comcrtn +++|* THE COEFFICIENT IS THE MAXIMUM. 01170 M00S01136.comcrtn +++|* (MAXIMUM= MAXIMUM LEGAL VALUE + 1) 01171 M00S01137.comcrtn +++|* 01172 M00S01138.comcrtn +++|* EXIT (X6)= CONVERTED VALUE. 01173 M00S01139.comcrtn +++|* (X4)= 1 IF ERROR. 01174 M00S01140.comcrtn +++|* 01175 M00S01141.comcrtn +++|* USES B - 7. 01176 M00S01142.comcrtn +++|* A - 1,2,5. 01177 M00S01143.comcrtn +++|* X - 1,2,4,7. 01178 M00S01144.comcrtn +++|* 01179 M00S01145.comcrtn +++|* CALLS DXB,ERR. 01180 M00S01146.comcrtn +++| 01181 M00S01147.comcrtn +++| 01182 M00S01148.comcrtn +++| PNA1 SX4 1 RETURN ERROR 01183 M00S01149.comcrtn +++| 01184 M00S01150.comcrtn +++| PNA PS ENTRY/EXIT 01185 M00S01151.comcrtn +++| SB7 X5+ SAVE FET ADDRESS 01186 M00S01152.comcrtn +++| SA5 WD READ VALUE 01187 M00S01153.comcrtn +++| RJ DXB CONVERT VALUE 01188 M00S01154.comcrtn +++| SA2 WD+1 CHECK TOO MANY DIGITS 01189 M00S01155.comcrtn +++| SA1 B6+ READ MINIMUM, MAXIMUM 01190 M00S01156.comcrtn +++| SX5 B7 RESTORE FET ADDRESS 01191 M00S01157.comcrtn +++| BX4 X2+X4 01192 M00S01158.comcrtn +++| SX2 ENCE * NUMERIC CONSTANT ERROR.* 01193 M00S01159.comcrtn +++| NZ X4,ERR IF ILLEGAL NUMBER 01194 M00S01160.comcrtn +++| UX2,B7 X1 UNPACK MIN, MAX 01195 M00S01161.comcrtn +++| IX7 X6-X2 CHECK VALUE TOO LARGE 01196 M00S01162.comcrtn +++| SX2 B7 CHECK VALUE TOO SMALL 01197 M00S01163.comcrtn +++| PL X7,PNA1 IF TOO LARGE 01198 M00S01164.comcrtn +++| IX7 X6-X2 01199 M00S01165.comcrtn +++| NG X7,PNA1 IF TOO SMALL 01200 M00S01166.comcrtn +++| JP PNA RETURN 01201 M00S01167.comcrtn +++| RNC SPACE 4 01202 M00S01168.comcrtn +++|** RNC - READ NEXT CARD. 01203 M00S01169.comcrtn +++|* 01204 M00S01170.comcrtn +++|* ENTRY NONE. 01205 M00S01171.comcrtn +++|* 01206 M00S01172.comcrtn +++|* EXIT (X1)= NONZERO IF EOR DETECTED. 01207 M00S01173.comcrtn +++|* 01208 M00S01174.comcrtn +++|* USES B - 5,7. 01209 M00S01175.comcrtn +++|* A - 1,2,6,7. 01210 M00S01176.comcrtn +++|* X - 1,2,6,7. 01211 M00S01177.comcrtn +++|* 01212 M00S01178.comcrtn +++|* CALLS RDS=. 01213 M00S01179.comcrtn +++| 01214 M00S01180.comcrtn +++| 01215 M00S01181.comcrtn +++| RNC PS ENTRY/EXIT 01216 M00S01182.comcrtn +++| RNC1 READS X5,CD,90 01217 M00S01183.comcrtn +++| SA2 CC ADVANCE CARD COUNT 01218 M00S01184.comcrtn +++| SX7 X2+B1 01219 M00S01185.comcrtn +++| SA7 A2 01220 M00S01186.comcrtn +++| NZ X1,RNC IF EOR - RETURN 01221 M00S01187.comcrtn +++| SA1 CD CHECK COMMENT CARD 01222 M00S01188.comcrtn +++| SB7 X1-1R* 01223 M00S01189.comcrtn +++| ZR B7,RNC1 IF COMMENT CARD 01224 M00S01190.comcrtn +++| SB7 B6-CD CHECK BLANK CARD 01225 M00S01191.comcrtn +++| SB5 CD+72 SET PROCESSING LIMIT 01226 M00S01192.comcrtn +++| ZR B7,RNC1 IF BLANK CARD 01227 M00S01193.comcrtn +++| SX6 B6+ 01228 M00S01194.comcrtn +++| LE B6,B5,RNC2 IF CARD TERMINATES BEFORE COL. 73 01229 M00S01195.comcrtn +++| SX6 B5+ 01230 M00S01196.comcrtn +++| RNC2 SA6 CL SET CARD PROCESSING LIMIT 01231 M00S01197.comcrtn +++| SB6 X6 01232 M00S01198.comcrtn +++| SX7 A1 SET NEXT ASSEMBLY ADDRESS 01233 M00S01199.comcrtn +++| SX1 0 01234 M00S01200.comcrtn +++| SA7 LC 01235 M00S01201.comcrtn +++| JP RNC RETURN 01236 M00S01202.comcrtn +++| SPACE 4 01237 M00S01203.comcrtn +++|** REC - RECOVER COMPOSURE AFTER ERROR. 01238 M00S01204.comcrtn +++|* 01239 M00S01205.comcrtn +++|* ENTRY (X1) .LT. ZERO, START SCAN FOR */* AT CURRENT WORD. 01240 M00S01206.comcrtn +++|* 01241 M00S01207.comcrtn +++|* EXIT (AB)= 0. 01242 M00S01208.comcrtn +++|* (MD)= 0. 01243 M00S01209.comcrtn +++|* 01244 M00S01210.comcrtn +++|* USES B - 7. 01245 M00S01211.comcrtn +++|* A - 1,6. 01246 M00S01212.comcrtn +++|* X - 0,1,6. 01247 M00S01213.comcrtn +++|* 01248 M00S01214.comcrtn +++|* CALLS ANW. 01249 M00S01215.comcrtn +++| 01250 M00S01216.comcrtn +++| 01251 M00S01217.comcrtn +++| REC3 SX6 0 SET ASSEMBLY BYPASS 01252 M00S01218.comcrtn +++| SA6 AB 01253 M00S01219.comcrtn +++| SA6 MD CLEAR *MUX DESCRIPTION ACTIVE* 01254 M00S01220.comcrtn +++| RJ CTV CLEAR TERMINAL ARGUMENT VALUES 01255 M00S01221.comcrtn +++| 01256 M00S01222.comcrtn +++| REC PS ENTRY/EXIT 01257 M00S01223.comcrtn +++| PL X1,REC2 IF NOT *START AT CURRENT WORD* 01258 M00S01224.comcrtn +++| REC1 SA1 WD CHECK FIRST CHARACTER= +/+ 01259 M00S01225.comcrtn +++| MX0 60-6 01260 M00S01226.comcrtn +++| LX1 6 01261 M00S01227.comcrtn +++| BX6 -X0*X1 01262 M00S01228.comcrtn +++| SB7 X6-1R/ 01263 M00S01229.comcrtn +++| ZR B7,REC3 IF */* 01264 M00S01230.comcrtn +++| REC2 RJ ANW ASSEMBLE NEXT WORD 01265 M00S01231.comcrtn +++| ZR X1,REC1 IF NOT EOR/EOF 01266 M00S01232.comcrtn +++| JP REC RETURN 01267 M00S01233.comcrtn +++| STB SPACE 4
| Line S01234 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01268 M01S01234.ns22000 ---|*** STB MAY BE CALLED TO SORT A TABLE IN ASCENDING ORDER BY 01269 M01S01235.ns22000 ---|* MUX CHANNEL, MUX EQUIPMENT NUMBER, AND TERMINAL PORT NUMBER.
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01270 M01S00034.ns22000 +++|*** *STB* SORTS A TABLE IN ASCENDING ORDER BY CHANNEL, 01271 M01S00035.ns22000 +++|* EQUIPMENT (CONTROLLER) NUMBER, AND TERMINAL PORT NUMBER. 01272 M00S01236.comcrtn +++|* THESE FIELDS MAY BE IN ANY WORD OF EACH TABLE ENTRY BUT THEY 01273 M00S01237.comcrtn +++|* MUST APPEAR IN THE ABOVE ORDER (CHANNEL IN HIGHEST ORDER 01274 M00S01238.comcrtn +++|* POSITION) AND MUST ALL BE CONTAINED IN A SINGLE WORD. 01275 M00S01239.comcrtn +++|* USE OF BIT 59 IN THIS WORD SHOULD BE AVOIDED. 01276 M00S01240.comcrtn +++|* 01277 M00S01241.comcrtn +++|* INTERFACE SPECIFICATIONS FOR *STB* - 01278 M00S01242.comcrtn +++|* 01279 M00S01243.comcrtn +++|* ENTRY (X0)= MASK USED TO EXTRACT CHANNEL, EQUIPMENT AND PORT. 01280 M00S01244.comcrtn +++|* (B2)= FWA OF TABLE. 01281 M00S01245.comcrtn +++|* (B3)= LENGTH OF TABLE IN WORDS. 01282 M00S01246.comcrtn +++|* (B4)= NUMBER OF WORDS IN EACH ENTRY. 01283 M00S01247.comcrtn +++|* (B5)= WORD IN EACH ENTRY WHICH CONTAINS THE SORT KEYS. 01284 M00S01248.comcrtn +++|* (0 IS THE FIRST WORD) 01285 M00S01249.comcrtn +++|* 01286 M00S01250.comcrtn +++|* EXIT NONE. 01287 M00S01251.comcrtn +++|* 01288 M00S01252.comcrtn +++|* USES B - 3,6,7. 01289 M00S01253.comcrtn +++|* A - 1,2,6,7. 01290 M00S01254.comcrtn +++|* X - 1,2,3,4,6,7. 01291 M00S01255.comcrtn +++|* 01292 M00S01256.comcrtn +++|* CALLS NONE. 01293 M00S01257.comcrtn +++| 01294 M00S01258.comcrtn +++| 01295 M00S01259.comcrtn +++| STB PS ENTRY/EXIT 01296 M00S01260.comcrtn +++| SB3 B2+B3 LWA+1 OF TABLE 01297 M00S01261.comcrtn +++| SB7 B2-B4 FIRST-1 ENTRY ADDRESS 01298 M00S01262.comcrtn +++| SB3 B3-B4 ADDRESS OF LAST ENTRY 01299 M00S01263.comcrtn +++| STB1 SB7 B7+B4 ADVANCE TO NEXT PAIR 01300 M00S01264.comcrtn +++| GE B7,B3,STB3 IF END OF TABLE 01301 M00S01265.comcrtn +++| SA1 B7+B5 READ KEY WORD OF FIRST IN PAIR 01302 M00S01266.comcrtn +++| SA2 A1+B4 READ KEY WORD OF SECOND IN PAIR 01303 M00S01267.comcrtn +++| BX6 X0*X1 COMPARE 01304 M00S01268.comcrtn +++| BX7 X0*X2 01305 M00S01269.comcrtn +++| IX3 X7-X6 01306 M00S01270.comcrtn +++| PL X3,STB1 IF PAIR IS IN ORDER 01307 M00S01271.comcrtn +++| SB6 B1 INDICATE SWAP 01308 M00S01272.comcrtn +++| SX4 B4-B1 SWAP ENTRIES 01309 M00S01273.comcrtn +++| STB2 SA1 B7+X4 01310 M00S01274.comcrtn +++| SA2 A1+B4 01311 M00S01275.comcrtn +++| BX6 X1 01312 M00S01276.comcrtn +++| LX7 X2 01313 M00S01277.comcrtn +++| SA6 A2 01314 M00S01278.comcrtn +++| SX4 X4-1 01315 M00S01279.comcrtn +++| SA7 A1 01316 M00S01280.comcrtn +++| PL X4,STB2 LOOP FOR ALL WORDS IN ENTRY 01317 M00S01281.comcrtn +++| EQ STB1 01318 M00S01282.comcrtn +++| 01319 M00S01283.comcrtn +++| STB3 ZR B6,STB RETURN - IF TABLE SORTED 01320 M00S01284.comcrtn +++| SB6 B0 CLEAR SWAP FLAG 01321 M00S01285.comcrtn +++| SB7 B2-B4 RESET TO BEGINNING OF TABLE 01322 M00S01286.comcrtn +++| EQ STB1 01323 M00S01287.comcrtn +++| STN SPACE 4 01324 M00S01288.comcrtn +++|** STN - SEARCH TERMINAL NAME TABLE. 01325 M00S01289.comcrtn +++|* 01326 M00S01290.comcrtn +++|* ENTRY (X1)= SEARCH CRITERION. 01327 M00S01291.comcrtn +++|* (A0)= ADDRESS OF TABLE POINTER WORD. 01328 M00S01292.comcrtn +++|* 01329 M00S01293.comcrtn +++|* EXIT (X2)= ZERO IF ENTRY NOT FOUND. 01330 M00S01294.comcrtn +++|* (X6)= UPPER 42 BITS OF CRITERION. 01331 M00S01295.comcrtn +++|* 01332 M00S01296.comcrtn +++|* USES B - 6,7. 01333 M00S01297.comcrtn +++|* A - 2,6. 01334 M00S01298.comcrtn +++|* X - 0,2,6,7. 01335 M00S01299.comcrtn +++|* 01336 M00S01300.comcrtn +++|* CALLS NONE. 01337 M00S01301.comcrtn +++| 01338 M00S01302.comcrtn +++| 01339 M00S01303.comcrtn +++| STN2 SX2 0 RETURN *NOT FOUND* 01340 M00S01304.comcrtn +++| 01341 M00S01305.comcrtn +++| STN PS ENTRY/EXIT 01342 M00S01306.comcrtn +++| SA2 A0 READ TABLE POINTER 01343 M00S01307.comcrtn +++| MX6 -12 01344 M00S01308.comcrtn +++| SB7 X2 FWA 01345 M00S01309.comcrtn +++| LX2 -48 EXTRACT *IN* 01346 M00S01310.comcrtn +++| BX7 -X6*X2 *IN* 01347 M00S01311.comcrtn +++| MX0 42 01348 M00S01312.comcrtn +++| SB6 B7+X7 LWA+1 01349 M00S01313.comcrtn +++| BX6 X0*X1 01350 M00S01314.comcrtn +++| ZR X7,STN2 IF TABLE EMPTY 01351 M00S01315.comcrtn +++| SA2 B7 READ FIRST ENTRY 01352 M00S01316.comcrtn +++| SA6 B6 01353 M00S01317.comcrtn +++| STN1 BX2 X1-X2 COMPARE 01354 M00S01318.comcrtn +++| BX7 X0*X2 01355 M00S01319.comcrtn +++| SA2 A2+1 READ NEXT ENTRY 01356 M00S01320.comcrtn +++| NZ X7,STN1 IF NOT MATCH 01357 M00S01321.comcrtn +++| SB7 A2-B6 01358 M00S01322.comcrtn +++| SX2 B1 01359 M00S01323.comcrtn +++| NE B7,B1,STN RETURN - IF ENTRY FOUND 01360 M00S01324.comcrtn +++| JP STN2 RETURN 01361 M00S01325.comcrtn +++| TMES SPACE 4 01362 M00S01326.comcrtn +++|** TMES - TABLE OF ERROR MESSAGES. 01363 M00S01327.comcrtn +++| 01364 M00S01328.comcrtn +++| 01365 M00S01329.comcrtn +++| TMES BSS 0 01366 M00S01330.comcrtn +++| EAVM DIS ,* ARGUMENT VALUE MISSING.* 01367 M00S01331.comcrtn +++| ECCM DIS ,* CONNECTION COUNT MISSING.* 01368 M00S01332.comcrtn +++| ECHR DIS ,* CHANNEL NUMBER OUT OF RANGE.* 01369 M00S01333.comcrtn +++| EDBF DIS ,* DATA BASE NAME FIRST CHARACTER BAD.* 01370 M00S01334.comcrtn +++| EDBL DIS ,* DATA BASE NAME NOT 2 CHARACTERS.* 01371 M00S01335.comcrtn +++| EDTN DIS ,* TERMINAL NAME DUPLICATES THAT OF KTS TERMINAL.* 01372 M00S01336.comcrtn +++| EEQR DIS ,* EQUIPMENT NUMBER OUT OF RANGE.* 01373 M00S01337.comcrtn +++| EFPU DIS ,+ *PN* DESIGNATION MUST PRECEDE *PL*.+ 01374 M00S01338.comcrtn +++| EICC DIS ,* INVALID CONNECTION COUNT.*
| Line S01339 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01375 M01S01339.ns22000 ---| EIHS DIS ,* INVALID HIGH SPEED LINE COUNT.* 01376 M00S01340.comcrtn ---| EKNE DIS ,* KEYWORD NOT EQUIVALENCED.* 01377 M00S01341.comcrtn ---| EKNI DIS ,* KTS AND NAM INTERFACE INCOMPATIBLE.* 01378 M00S01342.comcrtn ---| EKPR DIS ,* PREVIOUS KTS TERMINAL MAY NOT SPECIFY PORT RANGE.* 01379 M00S01343.comcrtn ---| ELSR DIS ,* LINE SPEED OUT OF RANGE.* 01380 M00S01344.comcrtn ---| EMCU DATA C* MULTIPLEXER CHANNEL UNDEFINED ON PREVIOUS MUX DESCRI 01381 M00S01345.comcrtn ---|,PTION.* 01382 M00S01346.comcrtn ---| EMDE DATA C* MULTIPLEXER DESCRIPTION EXPECTED.* 01383 M00S01347.comcrtn ---| EMEU DATA C* MULTIPLEXER EQUIPMENT UNDEFINED ON PREVIOUS MUX DESC 01384 M00S01348.comcrtn ---|,RIPTION.* 01385 M00S01349.comcrtn ---| EMND DIS ,* MULTIPLE NAM INTERFACE DEFINITIONS.* 01386 M00S01350.comcrtn ---| ENCE DIS ,* NUMERIC CONSTANT ERROR.* 01387 M00S01351.comcrtn ---| ENTF DIS ,* TERMINAL NAME TABLE OVERFLOW.* 01388 M00S01352.comcrtn ---| EPCR DIS ,* POLLING CODE OUT OF RANGE.* 01389 M00S01353.comcrtn ---| EPLR DIS ,* PORT LIMIT OUT OF RANGE.* 01390 M00S01354.comcrtn ---| EPME DATA C* PSUEDO MULTIPLEXER DESCRIPTION ERROR.* 01391 M00S01355.comcrtn ---| EPNR DIS ,* PORT NUMBER OUT OF RANGE.* 01392 M00S01356.comcrtn ---| EPNU DIS ,* PORT NUMBER UNDEFINED FOR PREVIOUS TERMINAL.* 01393 M00S01357.comcrtn ---| ERSR DIS ,* READ SECURITY OUT OF RANGE.* 01394 M00S01358.comcrtn ---| ETNL DIS ,* TERMINAL NAME TOO LONG.* 01395 M00S01359.comcrtn ---| EUAR DIS ,* USER ARGUMENT OUT OF RANGE.* 01396 M00S01360.comcrtn ---| EUIS DIS ,* UNKNOWN INITIAL STATUS.* 01397 M00S01361.comcrtn ---| EUKW DIS ,* UNKNOWN KEYWORD.* 01398 M00S01362.comcrtn ---| EUMT DATA C* UNKNOWN MULTIPLEXER TYPE.* 01399 M00S01363.comcrtn ---| EUSR DIS ,* UPDATE SECURITY OUT OF RANGE.* 01400 M00S01364.comcrtn ---| EUTT DIS ,* UNKNOWN TERMINAL TYPE.* 01401 M00S01365.comcrtn ---| SPACE 4 01402 M00S01366.comcrtn ---| BASE * 01403 M00S01367.comcrtn ---| QUAL$ IF -DEF,QUAL$ 01404 M00S01368.comcrtn ---| QUAL * 01405 M00S01369.comcrtn ---| ATD EQU /COMCRTN/ATD 01406 M00S01370.comcrtn ---| STB EQU /COMCRTN/STB 01407 M00S01371.comcrtn ---| QUAL$ ENDIF 01408 M00S01372.comcrtn ---| ENDX
cdc/nos2.source/opl.opl871/common/comcrtn.txt · Last modified: (external edit)