cdc:nos2.source:opl.opl871:deck:valnet
Deck VALNET
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.valnet +++| IDENT VALNET,FET,VALNET 00002 M00S00002.valnet +++| ABS 00003 M00S00003.valnet +++| SYSCOM B1 00004 M00S00004.valnet +++| SST 00005 M00S00005.valnet +++|*COMMENT VALNET - VALIDATE TERMINAL DESCRIPTION FILE.
| 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.valnet +++| TITLE VALNET - VALIDATE TERMINAL NETWORK DESCRIPTION FILE. 00009 M00S00008.valnet +++| VALNET SPACE 4 00010 M00S00009.valnet +++|*** VALNET - VALIDATE TERMINAL NETWORK DESCRIPTION FILE. 00011 M00S00010.valnet +++|* J.C. BOHNHOFF. 72/09/09. 00012 M00S00011.valnet +++| VALNET SPACE 4 00013 M00S00012.valnet +++|*** VALNET READS A TERMINAL NETWORK DESCRIPTION WRITTEN 00014 M00S00013.valnet +++|* AS A SERIES OF DIRECTIVES DEFINED BY THE COMMON DECK 00015 M00S00014.valnet +++|* *COMCRTN*. ERRORS IN NETWORK DESCRIPTION ARE DIAGNOSED AND 00016 M00S00015.valnet +++|* ERROR MESSAGES ARE PLACED ON A LIST FILE. IF NO ERRORS ARE 00017 M00S00016.valnet +++|* ENCOUNTERED, NO LISTING IS PRODUCED. 00018 M00S00017.valnet +++| SPACE 4 00019 M00S00018.valnet +++|*** CONTROL CARD CALL. 00020 M00S00019.valnet +++|* 00021 M00S00020.valnet +++|* VALNET(P1,P2,P3) 00022 M00S00021.valnet +++|* 00023 M00S00022.valnet +++|* WHERE PI MAY BE - 00024 M00S00023.valnet +++|* 00025 M00S00024.valnet +++|* P TERMINAL NETWORK DESCRIPTION FILE NAME. 00026 M00S00025.valnet +++|* P FILE *COMPILE*. 00027 M00S00026.valnet +++|* P=FN FILE *FN*. 00028 M00S00027.valnet +++|* ABSENT FILE *NETWXX*. 00029 M00S00028.valnet +++|* XX = MACHINE ID. 00030 M00S00029.valnet +++|* 00031 M00S00030.valnet +++|* L FILE TO RECEIVE LIST OF ERRORS. 00032 M00S00031.valnet +++|* L FILE *LIST* 00033 M00S00032.valnet +++|* L=FN FILE *FN*. 00034 M00S00033.valnet +++|* L=0 NO LIST. 00035 M00S00034.valnet +++|* ABSENT FILE *OUTPUT*. 00036 M00S00035.valnet +++|* 00037 M00S00036.valnet +++|* NR DO NOT REWIND DESCRIPTION FILE BEFORE READING. 00038 M00S00037.valnet +++|* NR DO NOT REWIND. 00039 M00S00038.valnet +++|* ABSENT REWIND FIRST. 00040 M00S00039.valnet +++| SPACE 4 00041 M00S00040.valnet +++|*** LISTABLE OUTPUT. 00042 M00S00041.valnet +++|* EACH ERROR ENCOUNTERED PRODUCES 2 LINES OF LISTING. THE 00043 M00S00042.valnet +++|* LINES CONSIST OF - 00044 M00S00043.valnet +++|* 1) THE INPUT LINE CONTAINING THE ERROR. 00045 M00S00044.valnet +++|* SYNTACTICAL ERRORS CAUSE THE LINE CONTAINING THE 00046 M00S00045.valnet +++|* ERROR TO BE LISTED. HOWEVER, FOR LOGICAL ERRORS 00047 M00S00046.valnet +++|* (E.G. NOT DEFINING MULTIPLEXOR CHANNEL OR DEFINING 00048 M00S00047.valnet +++|* DUPLICATE POLLING CODES) THE CARD CURRENTLY IN THE 00049 M00S00048.valnet +++|* BUFFER IS LISTED SINCE THIS TYPE OF ERROR IS NOT 00050 M00S00049.valnet +++|* DETECTED UNTIL IT IS CERTAIN THAT THE LAST STATEMENT 00051 M00S00050.valnet +++|* IS COMPLETE. THE CARD LISTED IN THIS CASE IS THE 00052 M00S00051.valnet +++|* CARD AFTER THE BAD CARD IF THERE IS ONLY ONE 00053 M00S00052.valnet +++|* DESCRIPTION PER CARD. ERRORS THAT PERTAIN TO 00054 M00S00053.valnet +++|* DUPLICATE POLLING CODES, POLLED/NON-POLLED TERMINALS 00055 M00S00054.valnet +++|* ON THE SAME LINE, AND MORE THAN ONE NON-POLLED 00056 M00S00055.valnet +++|* TERMINAL ON A LINE CONTAIN A CARD NUMBER OF A 00057 M00S00056.valnet +++|* PREVIOUSLY DEFINED TERMINAL THAT CAUSED THE ERROR 00058 M00S00057.valnet +++|* TO BE DETECTED. IF ONLY ONE DESCRIPTION IS GIVEN ON 00059 M00S00058.valnet +++|* EACH CARD, THIS CARD NUMBER WILL BE CORRECT, 00060 M00S00059.valnet +++|* OTHERWISE IT WILL BE ONE LESS THAN THE CORRECT 00061 M00S00060.valnet +++|* NUMBER. 00062 M00S00061.valnet +++|* 2) CARD NUMBER OF OFFENDING CARD. 00063 M00S00062.valnet +++|* THIS IS SUBJECT TO THE SAME EXCEPTIONS AS NOTED 00064 M00S00063.valnet +++|* ABOVE IN ITEM 1. 00065 M00S00064.valnet +++|* 3) A DIAGNOSTIC MESSAGE EXPLAINING THE ERROR. 00066 M00S00065.valnet +++|* 00067 M00S00066.valnet +++|* LIST LINES ARE FORMATTED FOR PRINTING ON A 72 COLUMN DEVICE 00068 M00S00067.valnet +++|* EXCEPT FOR THOSE INPUT LINES THAT EXCEED THIS LENGTH. 00069 M00S00068.valnet +++| SPACE 4 00070 M00S00069.valnet +++|*** DAYFILE MESSAGES ISSUED. 00071 M00S00070.valnet +++|* 00072 M00S00071.valnet +++|* * NO DESCRIPTIONS FOUND.* 00073 M00S00072.valnet +++|* NO MUX/TERMINAL DESCRIPTIONS WERE FOUND ON THE 00074 M00S00073.valnet +++|* DESCRIPTION RECORD. 00075 M00S00074.valnet +++|* * FILE NAME CONFLICT.* 00076 M00S00075.valnet +++|* THE *P* FILE NAME IS THE SAME AS THE *L* FILE NAME. 00077 M00S00076.valnet +++|* * TERMINAL DESCRIPTION ERRORS.* 00078 M00S00077.valnet +++|* ERRORS WERE FOUND IN THE TERMINAL DESCRIPTIONS. 00079 M00S00078.valnet +++|* CONSULT LISTING FOR DIAGNOSTIC MESSAGES. 00080 M00S00079.valnet +++|* * VALNET ARGUMENT ERROR.* 00081 M00S00080.valnet +++|* THE VALNET CONTROL CARD CONTAINS UNKNOWN OR 00082 M00S00081.valnet +++|* INCORRECTLY USED ARGUMENTS. 00083 M00S00082.valnet +++|* * VALNET COMPLETE.* 00084 M00S00083.valnet +++|* ALL DESCRIPTIONS HAVE BEEN VALIDATED AS CORRECT. 00085 M00S00084.valnet +++|* * TABLE OVERFLOW.* 00086 M00S00085.valnet +++|* NOT ENOUGH STORAGE WAS AVAILABLE TO HOLD ALL TERMINAL 00087 M00S00086.valnet +++|* DESCRIPTION TABLE ENTRIES. RERUN WITH GREATER FIELD 00088 M00S00087.valnet +++|* LENGTH. 00089 M00S00088.valnet +++| TITLE SYMBOL DEFINITIONS.
| Line S00089 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00090 M01S00089.ns22000 ---|* SYMBOL DEFINITIONS. 00091 M01S00090.ns22000 ---| 00092 M01S00091.ns22000 ---|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00093 M01S00001.ns22000 +++| BUFFERS SPACE 4,10 00094 M00S00092.valnet +++|* BUFFER SIZES. 00095 M00S00093.valnet +++| 00096 M00S00094.valnet +++| PBUFL EQU 1001B DESCRIPTION FILE 00097 M00S00095.valnet +++| OBUFL EQU 401B LIST FILE 00098 M00S00096.valnet +++| LIST X 00099 M00S00097.valnet +++|*CALL,COMSNET
| Line S00098 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00100 M01S00098.ns22000 ---|*CALL COMSREM INTERACTIVE SUBSYSTEM PARAMETERS 00101 M00S00099.valnet ---| LIST -X 00102 M00S00100.valnet ---| TITLE MACRO DEFINITIONS. 00103 M00S00101.valnet ---|* SYSTEM MACRO DEFINITIONS. 00104 M00S00102.valnet ---| 00105 M00S00103.valnet ---| 00106 M00S00104.valnet ---|*CALL COMCMAC 00107 M00S00105.valnet ---|*CALL COMCCMD 00108 M00S00106.valnet ---|*CALL,COMCMTM 00109 M00S00107.valnet ---| TITLE FET AND TABLE DEFINITIONS. 00110 M00S00108.valnet ---|* FET DEFINITIONS. 00111 M00S00109.valnet ---| 00112 M00S00110.valnet ---| 00113 M00S00111.valnet ---| ORG 101B 00114 M00S00112.valnet ---| 00115 M00S00113.valnet ---| FET BSS 0 00116 M00S00114.valnet ---| 00117 M00S00115.valnet ---| P BSS 0 DESCRIPTION FILE 00118 M00S00116.valnet ---| NETWXX FILEC PBUF,PBUFL,(FET=8) 00119 M00S00117.valnet ---| 00120 M00S00118.valnet ---| O BSS 0 LIST FILE 00121 M00S00119.valnet ---| OUTPUT FILEC OBUF,OBUFL,(FET=8) 00122 M00S00120.valnet ---| SPACE 4 00123 M00S00121.valnet ---|** MANAGED TABLE DEFINITION. 00124 M00S00122.valnet ---| 00125 M00S00123.valnet ---| 00126 M00S00124.valnet ---|** TTED - TABLE OF TERMINAL DESCRIPTIONS. 00127 M00S00125.valnet ---|* TWO WORDS PER ENTRY IN FORMAT - 00128 M00S00126.valnet ---|* 00129 M00S00127.valnet ---|*T TTED 6/ CH,3/EQ,12/ PN,12/ ,24/ PC,3/IS
Figure TTED
00130 M00S00128.valnet ---|*T 60/ CARD
Figure
00131 M00S00129.valnet ---|* 00132 M00S00130.valnet ---|* WHERE - 00133 M00S00131.valnet ---|* CH= MUX CHANNEL. 00134 M00S00132.valnet ---|* EQ= MUX EQUIPMENT. 00135 M00S00133.valnet ---|* PN= PORT NUMBER. 00136 M00S00134.valnet ---|* PC= POLLING CODE. 00137 M00S00135.valnet ---|* IS= INITIAL ON/OFF STATUS. 00138 M00S00136.valnet ---|* CARD= CARD NUMBER. 00139 M00S00137.valnet ---| 00140 M00S00138.valnet ---| 00141 M00S00139.valnet ---| TTED TABLE 2 00142 M01S00140.ns22000 ---| 00143 M01S00141.ns22000 ---|* THE SYMBOL, *ABMA*,IS INCLUDED ONLY TO ALLOW ASSEMBLY OF 00144 M01S00142.ns22000 ---|* *VALNET*. IT ACTUALLY OCCURS WITHIN THE BODY OF *IAFEX* 00145 M01S00143.ns22000 ---|* INITIALIZATION AND IS ALTERED BY *COMCRTN*. 00146 M01S00144.ns22000 ---| 00147 M01S00145.ns22000 ---| ABMA CON 0 ADDITIONAL PLT WORDS FOR HIGH SPEED LINES 00148 M00S00146.valnet ---| TITLE MAIN PROGRAM. 00149 M00S00147.valnet ---|* MAIN PROGRAM. 00150 M00S00148.valnet ---| 00151 M00S00149.valnet ---| 00152 M00S00150.valnet ---| VALNET RJ PRS PRESET PROGRAM 00153 M00S00151.valnet ---| RJ RTN READ TERMINAL DESCRIPTIONS 00154 M00S00152.valnet ---| SX2 =C* NO DESCRIPTIONS FOUND.* 00155 M00S00153.valnet ---| ZR X4,VAL1 IF NO DESCRIPTIONS PROCESSED 00156 M00S00154.valnet ---| SX2 =C* VALNET COMPLETE.* 00157 M00S00155.valnet ---| ZR X1,VAL2 IF NO ERRORS 00158 M00S00156.valnet ---| RJ CDD CONVERT ERROR COUNT 00159 M00S00157.valnet ---| SA6 VALC STORE ERROR COUNT 00160 M00S00158.valnet ---| RJ CEP CHECK END OF PAGE 00161 M00S00159.valnet ---| WRITEW O,VALA,B1 DOUBLE SPACE 00162 M00S00160.valnet ---| WRITEW O,VALB,VALBL WRITE ERROR COUNT 00163 M00S00161.valnet ---| WRITER O END OUTPUT RECORD 00164 M00S00162.valnet ---| SX2 =C* TERMINAL DESCRIPTION ERRORS.* 00165 M00S00163.valnet ---| VAL1 MESSAGE X2 00166 M00S00164.valnet ---| ABORT 00167 M00S00165.valnet ---| 00168 M00S00166.valnet ---| VAL2 MESSAGE X2 ISSUE COMPLETION MESSAGE 00169 M00S00167.valnet ---| ENDRUN 00170 M00S00168.valnet ---| 00171 M00S00169.valnet ---| LN CON LINP CURRENT LINE NUMBER ON LIST PAGE 00172 M00S00170.valnet ---| PG CON 1 CURRENT LIST PAGE 00173 M00S00171.valnet ---| VALA DIS ,*0 * 00174 M00S00172.valnet ---| VALB DATA 10H // 00175 M00S00173.valnet ---| VALC CON 0 ERROR COUNT 00176 M00S00174.valnet ---| DATA 20H ERRORS ENCOUNTERED. 00177 M00S00175.valnet ---| CON 0 00178 M00S00176.valnet ---| VALBL EQU *-VALB 00179 M00S00177.valnet ---| CEP TITLE SUBROUTINES. 00180 M00S00178.valnet ---|** CEP - CHECK END OF LISTING PAGE. 00181 M00S00179.valnet ---|* 00182 M00S00180.valnet ---|* ENTRY NONE. 00183 M00S00181.valnet ---|* 00184 M00S00182.valnet ---|* EXIT NONE. 00185 M00S00183.valnet ---|* 00186 M00S00184.valnet ---|* USES B - 7. 00187 M00S00185.valnet ---|* A - 1,6. 00188 M00S00186.valnet ---|* X - 1,6,7. 00189 M00S00187.valnet ---|* 00190 M00S00188.valnet ---|* CALLS CDD,SYS=,WTW. 00191 M00S00189.valnet ---| 00192 M00S00190.valnet ---| 00193 M00S00191.valnet ---| CEP1 SA7 LN STORE UPDATED LINE COUNT 00194 M00S00192.valnet ---| 00195 M00S00193.valnet ---| CEP SUBR ENTRY/EXIT 00196 M00S00194.valnet ---| SA1 LN ADVANCE LINE COUNT 00197 M00S00195.valnet ---| SB7 X1-LINP CHECK END OF PAGE 00198 M00S00196.valnet ---| SX7 X1+3 00199 M00S00197.valnet ---| NG B7,CEP1 IF NOT END OF PAGE 00200 M00S00198.valnet ---| SA1 PG CONVERT PAGE NUMBER 00201 M00S00199.valnet ---| RJ CDD 00202 M00S00200.valnet ---| SA1 CEPE MERGE *PAGE* 00203 M00S00201.valnet ---| BX6 X1-X6 00204 M00S00202.valnet ---| SA6 CEPD 00205 M00S00203.valnet ---| CLOCK CEPC SET TIME 00206 M00S00204.valnet ---| WRITEW O,CEPA,CEPAL WRITE PAGE HEADER 00207 M00S00205.valnet ---| SA1 PG ADVANCE PAGE NUMBER 00208 M00S00206.valnet ---| SX7 4 RESET LINE COUNT 00209 M00S00207.valnet ---| SX6 X1+B1 00210 M00S00208.valnet ---| SA6 A1 00211 M00S00209.valnet ---| JP CEP1 00212 M00S00210.valnet ---| 00213 M00S00211.valnet ---| CEPA DATA 10H1 00214 M00S00212.valnet ---| DATA 30HTERMINAL DESCRIPTION ERRORS. 00215 M00S00213.valnet ---| CEPB CON 0 DATE 00216 M00S00214.valnet ---| CEPC CON 0 TIME 00217 M00S00215.valnet ---| CEPD CON 0 PAGE 00218 M00S00216.valnet ---| CON 0 00219 M00S00217.valnet ---| DIS ,*0 * 00220 M00S00218.valnet ---| CEPAL EQU *-CEPA 00221 M00S00219.valnet ---| CEPE CON 5LPAGE &5L 00222 M00S00220.valnet ---| MEP SPACE 4 00223 M00S00221.valnet ---|** MEP - PARTIAL SEARCH OF MANAGED TABLE. 00224 M00S00222.valnet ---|* 00225 M00S00223.valnet ---|* ENTRY (X6)= ENTRY FOR SEARCH. 00226 M00S00224.valnet ---|* (X0)= MASK. 00227 M00S00225.valnet ---|* (X2)= SEARCH LIMIT. 00228 M00S00226.valnet ---|* (X7)= STARTING ENTRY ORDINAL FOR SEARCH. 00229 M00S00227.valnet ---|* (B7)= WORDS PER ENTRY. 00230 M00S00228.valnet ---|* (A0)= TABLE NUMBER. 00231 M00S00229.valnet ---|* 00232 M00S00230.valnet ---|* EXIT (X2)= ENTRY IF FOUND, ELSE ZERO. 00233 M00S00231.valnet ---|* (A2)= ADDRESS OF ENTRY. 00234 M00S00232.valnet ---|* 00235 M00S00233.valnet ---|* USES B - NONE. 00236 M00S00234.valnet ---|* A - 1,2,6. 00237 M00S00235.valnet ---|* X - 1,2,3,4,7. 00238 M00S00236.valnet ---|* 00239 M00S00237.valnet ---|* CALLS NONE. 00240 M00S00238.valnet ---| 00241 M00S00239.valnet ---| 00242 M00S00240.valnet ---| MEP1 BX4 X0*X2 00243 M00S00241.valnet ---| SA1 A1+B7 READ NEXT ENTRY 00244 M00S00242.valnet ---| NO 00245 M00S00243.valnet ---| BX2 X6-X1 00246 M00S00244.valnet ---| NZ X4,MEP1 LOOP TO MATCH 00247 M00S00245.valnet ---| SX4 A1-B7 CHECK ENTRY FOUND 00248 M00S00246.valnet ---| BX2 X4-X3 00249 M00S00247.valnet ---| ZR X2,MEP2 IF NOT FOUND 00250 M00S00248.valnet ---| SA2 X4+ RETURN ENTRY 00251 M00S00249.valnet ---| MEP2 SA7 A6+ RESTORE (LWA+1) 00252 M00S00250.valnet ---| 00253 M00S00251.valnet ---| MEP PS ENTRY/EXIT 00254 M00S00252.valnet ---| SA1 FTAB+A0 SET SEARCH PARAMETERS 00255 M00S00253.valnet ---| IX7 X1+X7 00256 M00S00254.valnet ---| IX3 X1+X2 SET SEARCH KEY IN LWA+1 00257 M00S00255.valnet ---| SA2 X3 SAVE (LWA+1) 00258 M00S00256.valnet ---| SA6 X3 00259 M00S00257.valnet ---| SA1 X7 READ FIRST ENTRY 00260 M00S00258.valnet ---| LX7 X2 00261 M00S00259.valnet ---| BX2 X6-X1 00262 M00S00260.valnet ---| EQ MEP1 00263 M00S00261.valnet ---| RTN SPACE 4 00264 M00S00262.valnet ---|** RTN - READ TERMINAL DESCRIPTIONS. 00265 M00S00263.valnet ---|* 00266 M00S00264.valnet ---|* ENTRY NONE. 00267 M00S00265.valnet ---|* 00268 M00S00266.valnet ---|* EXIT (X1)= ERROR COUNT. 00269 M00S00267.valnet ---|* (X4)= 0 IF NO CARDS PROCESSED. 00270 M00S00268.valnet ---|* 00271 M00S00269.valnet ---|* USES B - 7. 00272 M00S00270.valnet ---|* A - 0,1,2,3,6,7. 00273 M00S00271.valnet ---|* X - 0,1,2,3,4,5,6,7. 00274 M00S00272.valnet ---|* 00275 M00S00273.valnet ---|* CALLS ATD,CEP,WTW,WTS,CDD,WTC,ADW,MEP. 00276 M00S00274.valnet ---| 00277 M00S00275.valnet ---| 00278 M00S00276.valnet ---| RTN12 SA1 RTNF RETURN ERROR COUNT 00279 M00S00277.valnet ---| 00280 M00S00278.valnet ---| RTN SUBR ENTRY/EXIT 00281 M00S00279.valnet ---| RTN1 SX5 P SET FET ADDRESS 00282 M00S00280.valnet ---| SA0 PTRN SET TABLE POINTER ADDRESS 00283 M00S00281.valnet ---| RJ ATD ASSEMBLE DESCRIPTION 00284 M00S00282.valnet ---| NZ X1,RTN10 IF ERROR 00285 M00S00283.valnet ---| 00286 M00S00284.valnet ---|* ENTER DESCRIPTION INTO TABLE. 00287 M00S00285.valnet ---| 00288 M00S00286.valnet ---| SA1 /COMCRTN/PN. PN,PL 00289 M00S00287.valnet ---| SA2 /COMCRTN/CH. CH 00290 M00S00288.valnet ---| SA3 /COMCRTN/EQ. EQ 00291 M00S00289.valnet ---| UX1,B7 X1 X1=PN,B7=PL 00292 M00S00290.valnet ---| UX2 X2 CH 00293 M00S00291.valnet ---| LX1 39-0 PN 00294 M00S00292.valnet ---| UX3 X3 EQ 00295 M00S00293.valnet ---| LX2 54-0 CH 00296 M00S00294.valnet ---| LX3 51-0 EQ 00297 M00S00295.valnet ---| BX6 X1+X2 PN+CH 00298 M00S00296.valnet ---| SA1 /COMCRTN/PC. PC 00299 M00S00297.valnet ---| BX7 X6+X3 (PN+CH)+EQ 00300 M00S00298.valnet ---| LX1 3-0 PC 00301 M00S00299.valnet ---| SA3 /COMCRTN/IS. IS 00302 M00S00300.valnet ---| BX6 X1+X3 PC+IS 00303 M00S00301.valnet ---| ADDWRD TTED,X6+X7 ENTER WORD 0 00304 M00S00302.valnet ---| SA5 /COMCRTN/CC ENTER WORD 1 00305 M00S00303.valnet ---| SB6 X3 SAVE POSITION OF FIRST PORT ENTRY 00306 M00S00304.valnet ---| BX0 X1 SAVE WORD 0 00307 M00S00305.valnet ---| SX5 X5-1 00308 M00S00306.valnet ---| SB5 X3 INITIALIZE LAST PORT POSITION 00309 M00S00307.valnet ---| ADDWRD TTED,X5 00310 M00S00308.valnet ---| RTN2 ZR B7,RTN3 IF NO (MORE) PORTS 00311 M00S00309.valnet ---| SX1 B1 ADVANCE PORT NUMBER 00312 M00S00310.valnet ---| SB7 B7-B1 DECREMENT PORT COUNT 00313 M00S00311.valnet ---| LX1 39-0 00314 M00S00312.valnet ---| IX0 X0+X1 00315 M00S00313.valnet ---| ADDWRD TTED,X0 ENTER WORD 0 00316 M00S00314.valnet ---| SB5 X3 UPDATE LAST PORT POSITION 00317 M00S00315.valnet ---| ADDWRD TTED,X5 ENTER WORD 1 00318 M00S00316.valnet ---| JP RTN2 LOOP FOR ALL PORTS 00319 M00S00317.valnet ---| 00320 M00S00318.valnet ---|* CHECK DESCRIPTION. 00321 M00S00319.valnet ---| 00322 M00S00320.valnet ---| RTN3 SA0 TTED SET TABLE NUMBER 00323 M00S00321.valnet ---| SB7 C.TTED SET ENTRY SIZE 00324 M00S00322.valnet ---| BX7 X7-X7 SET SEARCH START 00325 M00S00323.valnet ---| SX5 B6-B1 SET SEARCH LIMIT AT FIRST PORT 00326 M00S00324.valnet ---| BX6 X0 00327 M00S00325.valnet ---| MX0 -39 SET SEARCH MASK FOR CH,EQ,PN 00328 M00S00326.valnet ---| RTN4 SX2 X5 SET SEARCH LIMIT 00329 M00S00327.valnet ---| RJ MEP SEARCH TABLE 00330 M00S00328.valnet ---| NZ X2,RTN5 IF MATCH 00331 M00S00329.valnet ---| EQ B5,B6,RTN1 IF FIRST PORT CHECKED 00332 M00S00330.valnet ---| SA1 F.TTED CHECK NEXT PORT 00333 M00S00331.valnet ---| SX1 X1-1 00334 M00S00332.valnet ---| SB5 B5-B7 DECREMENT PORT POSITION 00335 M00S00333.valnet ---| SA1 X1+B5 00336 M00S00334.valnet ---| BX6 X1 00337 M00S00335.valnet ---| JP RTN4 00338 M00S00336.valnet ---| 00339 M00S00337.valnet ---|* CHECK DUPLICATE POLLING CODE. 00340 M00S00338.valnet ---| 00341 M00S00339.valnet ---| RTN5 SA4 /COMCRTN/PC. CHECK THIS TERMINAL POLLED 00342 M00S00340.valnet ---| ZR X4,RTN6 IF NOT POLLED 00343 M00S00341.valnet ---| SA1 RTNG 00344 M00S00342.valnet ---| BX7 X2-X6 00345 M00S00343.valnet ---| BX7 X1*X7 00346 M00S00344.valnet ---| NZ X7,RTN6 IF DIFFERENT POLLING CODE 00347 M00S00345.valnet ---| LX2 59-0 00348 M00S00346.valnet ---| NG X2,RTN6 IF BOTH TERMINALS ARE OFF 00349 M00S00347.valnet ---| SA1 A2+B1 READ CARD NUMBER OF FIRST TERMINAL 00350 M00S00348.valnet ---| RJ CDD CONVERT 00351 M00S00349.valnet ---| SX6 1R &1R. INSERT PERIOD 00352 M00S00350.valnet ---| LX6 54-0 00353 M00S00351.valnet ---| AX6 X6,B2 00354 M00S00352.valnet ---| BX7 X4-X6 00355 M00S00353.valnet ---| SA7 RTNI 00356 M00S00354.valnet ---| SX2 RTNH LIST ERROR 00357 M00S00355.valnet ---| JP RTN11 00358 M00S00356.valnet ---| 00359 M00S00357.valnet ---|* CHECK POLLED AND NON-POLLED ON SAME LINE. 00360 M00S00358.valnet ---| 00361 M00S00359.valnet ---| RTN6 MX7 -24 00362 M00S00360.valnet ---| AX2 3 00363 M00S00361.valnet ---| BX7 -X7*X2 00364 M00S00362.valnet ---| BX2 X4+X7 00365 M00S00363.valnet ---| ZR X2,RTN8 IF BOTH TERMINALS ARE NON-POLLED 00366 M00S00364.valnet ---| ZR X7,RTN7 IF FIRST TERMINAL NON-POLLED 00367 M00S00365.valnet ---| NZ X4,RTN9 IF BOTH TERMINALS ARE POLLED 00368 M00S00366.valnet ---| RTN7 SA1 A2+1 READ CARD NUMBER OF FIRST TERMINAL 00369 M00S00367.valnet ---| RJ CDD CONVERT 00370 M00S00368.valnet ---| SX6 1R &1R. INSERT PERIOD 00371 M00S00369.valnet ---| LX6 54-0 00372 M00S00370.valnet ---| AX6 X6,B2 00373 M00S00371.valnet ---| BX7 X4-X6 00374 M00S00372.valnet ---| LX7 -6 00375 M00S00373.valnet ---| SA7 RTNK 00376 M00S00374.valnet ---| SX2 RTNJ LIST ERROR 00377 M00S00375.valnet ---| JP RTN11 00378 M00S00376.valnet ---| 00379 M00S00377.valnet ---|* PROCESS MULTIPLE NON-POLLED TERMINALS ON SAME LINE. 00380 M00S00378.valnet ---| 00381 M00S00379.valnet ---| RTN8 SA3 /COMCRTN/TT. 00382 M00S00380.valnet ---| SA2 A2+B1 READ CARD NUMBER OF FIRST TERMINAL 00383 M00S00381.valnet ---| LX3 59-11 00384 M00S00382.valnet ---| NG X3,RTN9 IF TRANSACTION TERMINAL 00385 M00S00383.valnet ---| RJ CDD CONVERT 00386 M00S00384.valnet ---| SX6 1R &1R. INSERT PERIOD 00387 M00S00385.valnet ---| LX6 54-0 00388 M00S00386.valnet ---| AX6 X6,B2 00389 M00S00387.valnet ---| BX7 X4-X6 00390 M00S00388.valnet ---| SA7 RTNM 00391 M00S00389.valnet ---| SX2 RTNL LIST ERROR 00392 M00S00390.valnet ---| JP RTN11 00393 M00S00391.valnet ---| 00394 M00S00392.valnet ---|* ADVANCE SEARCH. 00395 M00S00393.valnet ---| 00396 M00S00394.valnet ---| RTN9 SA1 F.TTED SET SEARCH START AFTER CURRENT ENTRY 00397 M00S00395.valnet ---| SX7 A2+B7 00398 M00S00396.valnet ---| IX7 X7-X1 00399 M00S00397.valnet ---| JP RTN4 00400 M00S00398.valnet ---| 00401 M00S00399.valnet ---|* LIST ERROR. 00402 M00S00400.valnet ---| 00403 M00S00401.valnet ---| RTN10 ZR X4,RTNX IF NO CARDS PROCESSED - RETURN 00404 M00S00402.valnet ---| NG X4,RTN12 IF EOR/EOF 00405 M00S00403.valnet ---| RTN11 SX5 X2 SAVE ERROR MESSAGE ADDRESS 00406 M00S00404.valnet ---| RJ CEP CHECK END OF PAGE 00407 M00S00405.valnet ---| WRITEW O,RTNA,B1 WRITE LINE PREFIX 00408 M00S00406.valnet ---| WRITES O,/COMCRTN/CD,90 WRITE INPUT CARD 00409 M00S00407.valnet ---| SA1 /COMCRTN/CC CONVERT CARD NUMBER 00410 M00S00408.valnet ---| RJ CDD 00411 M00S00409.valnet ---| SA1 RTNB INSERT *CARD* 00412 M00S00410.valnet ---| BX6 X1-X6 00413 M00S00411.valnet ---| SA6 RTND 00414 M00S00412.valnet ---| WRITEW O,RTNC,B1+B1 WRITE ERROR PREFIX 00415 M00S00413.valnet ---| WRITEC O,X5 WRITE ERROR MESSAGE 00416 M00S00414.valnet ---| WRITEW O,RTNE,B1 SPACE ONE LINE 00417 M00S00415.valnet ---| SA1 RTNF ADVANCE ERROR COUNT 00418 M00S00416.valnet ---| SX6 X1+B1 00419 M00S00417.valnet ---| SA6 A1 00420 M00S00418.valnet ---| JP RTN1 CONTINUE 00421 M00S00419.valnet ---| 00422 M00S00420.valnet ---| RTNA DATA 10H 00423 M00S00421.valnet ---| RTNB CON 5LCARD &5L 00424 M00S00422.valnet ---| RTNC DATA 10H 00425 M00S00423.valnet ---| RTND CON 0 00426 M00S00424.valnet ---| RTNE DIS ,* * 00427 M00S00425.valnet ---| RTNF CON 0 00428 M00S00426.valnet ---| RTNG VFD 6/0,3/0,12/0,12/0,24/-0,3/-0 00429 M00S00427.valnet ---| RTNH DATA 40H POLLING CODE DUPLICATES THAT OF CARD 00430 M00S00428.valnet ---| RTNI CON 0,0 00431 M00S00429.valnet ---| RTNJ DATA 40H POLLED TERMINAL ON SAME LINE AS NON-POL 00432 M00S00430.valnet ---| DATA 20HLED TERMINAL ON CARD 00433 M00S00431.valnet ---| RTNK CON 0,0 00434 M00S00432.valnet ---| RTNL DATA 50H NON-POLLED TERMINAL ON SAME LINE AS THAT OF CARD 00435 M00S00433.valnet ---| RTNM CON 0,0 00436 M00S00434.valnet ---| TOV SPACE 4 00437 M00S00435.valnet ---|** TOV - PROCESS TABLE OVERFLOW. 00438 M00S00436.valnet ---|* 00439 M00S00437.valnet ---|* ENTRY NONE. 00440 M00S00438.valnet ---|* 00441 M00S00439.valnet ---|* EXIT NONE. 00442 M00S00440.valnet ---|* 00443 M00S00441.valnet ---|* USES NONE. 00444 M00S00442.valnet ---|* 00445 M00S00443.valnet ---|* CALLS SYS=. 00446 M00S00444.valnet ---| 00447 M00S00445.valnet ---| 00448 M00S00446.valnet ---| TOV BSS 0 ENTRY 00449 M00S00447.valnet ---| MESSAGE (=C* TABLE OVERFLOW.*) 00450 M00S00448.valnet ---| ABORT 00451 M00S00449.valnet ---| SYS SPACE 4 00452 M00S00450.valnet ---|* SYSTEM COMMON DECKS. 00453 M00S00451.valnet ---| 00454 M00S00452.valnet ---| 00455 M00S00453.valnet ---| LIST X 00456 M00S00454.valnet ---|*CALL COMCRTN 00457 M00S00455.valnet ---| LIST -X 00458 M00S00456.valnet ---|*CALL COMCSYS 00459 M00S00457.valnet ---|*CALL COMCCIO 00460 M00S00458.valnet ---|*CALL COMCRDW 00461 M00S00459.valnet ---|*CALL COMCRDS 00462 M00S00460.valnet ---|*CALL COMCWTS 00463 M00S00461.valnet ---|*CALL COMCWTW 00464 M00S00462.valnet ---|*CALL COMCWTC 00465 M00S00463.valnet ---|*CALL COMCDXB 00466 M00S00464.valnet ---|*CALL COMCCDD 00467 M00S00465.valnet ---|*CALL,COMCMTP 00468 M00S00466.valnet ---|*CALL,COMCMVE 00469 M00S00467.valnet ---| TITLE BUFFERS 00470 M00S00468.valnet ---|* BUFFERS. 00471 M00S00469.valnet ---| 00472 M00S00470.valnet ---| 00473 M00S00471.valnet ---| USE BUFFERS 00474 M00S00472.valnet ---| PTRN VFD 30/1200,30/TTRN TERMINAL NAME TABLE POINTER 00475 M00S00473.valnet ---| BUFFERS BSS 0 00476 M00S00474.valnet ---| PBUF BSS PBUFL DESCRIPTION FILE 00477 M00S00475.valnet ---| OBUF BSS OBUFL LIST FILE 00478 M00S00476.valnet ---| TTRN BSS 1200 KTS TERMINAL NAME TABLE 00479 M00S00477.valnet ---| MEML BSS 5 LOW TABLE LIMIT 00480 M00S00478.valnet ---| USE * 00481 M00S00479.valnet ---| PRS TITLE PRESET. 00482 M00S00480.valnet ---|** PRS - PRESET VALNET. 00483 M00S00481.valnet ---|* 00484 M00S00482.valnet ---|* ENTRY NONE. 00485 M00S00483.valnet ---|* 00486 M00S00484.valnet ---|* EXIT NONE. 00487 M00S00485.valnet ---|* 00488 M00S00486.valnet ---|* USES B - 4,5. 00489 M00S00487.valnet ---|* A - 1,2,4,7. 00490 M00S00488.valnet ---|* X - 1,2,4,6,7. 00491 M00S00489.valnet ---|* 00492 M00S00490.valnet ---|* CALLS ARG,SYS=. 00493 M00S00491.valnet ---| 00494 M00S00492.valnet ---| 00495 M00S00493.valnet ---| ORG BUFFERS 00496 M00S00494.valnet ---| 00497 M00S00495.valnet ---| PRS SUBR ENTRY/EXIT 00498 M00S00496.valnet ---| SB1 1 SET CONSTANT 1 00499 M00S00497.valnet ---| MACHID PRSB GENERATE DEFAULT NETWORK FILE NAME 00500 M00S00498.valnet ---| SA1 PRSB 00501 M00S00499.valnet ---| SA2 P 00502 M00S00500.valnet ---| MX0 12 00503 M00S00501.valnet ---| LX1 24 00504 M00S00502.valnet ---| LX0 -24 00505 M00S00503.valnet ---| BX6 -X0*X2 00506 M00S00504.valnet ---| BX6 X6+X1 00507 M00S00505.valnet ---| SA6 A2 00508 M00S00506.valnet ---| SA1 ACTR PROCESS CONTROL CARD ARGUMENTS 00509 M00S00507.valnet ---| SB4 X1+ 00510 M00S00508.valnet ---| SA4 ARGR 00511 M00S00509.valnet ---| SB5 TARG 00512 M00S00510.valnet ---| RJ ARG 00513 M00S00511.valnet ---| SX2 =C* VALNET ARGUMENT ERROR.* 00514 M00S00512.valnet ---| ZR X1,PRS2 IF NO ERROR 00515 M00S00513.valnet ---| PRS1 MESSAGE X2 ISSUE DAYFILE MESSAGE 00516 M00S00514.valnet ---| ABORT 00517 M00S00515.valnet ---| PRS2 SA1 P CHECK FILE NAME CONFLICT 00518 M00S00516.valnet ---| SA2 O 00519 M00S00517.valnet ---| MX0 42 00520 M00S00518.valnet ---| BX6 X1-X2 00521 M00S00519.valnet ---| SX2 =C* FILE NAME CONFLICT.* 00522 M00S00520.valnet ---| BX7 X0*X6 00523 M00S00521.valnet ---| ZR X7,PRS1 IF P=L 00524 M00S00522.valnet ---| SX6 A0 SET HIGH TABLE LIMIT 00525 M00S00523.valnet ---| SA6 F.TEND 00526 M00S00524.valnet ---| DATE CEPB GET DATE 00527 M00S00525.valnet ---| SA1 PRSA SET FET POINTER 00528 M00S00526.valnet ---| BX6 X1 00529 M00S00527.valnet ---| SA6 B1+B1 00530 M00S00528.valnet ---| SA1 NR CHECK REWIND NEEDED 00531 M00S00529.valnet ---| NZ X1,PRSX RETURN - IF NO REWIND 00532 M00S00530.valnet ---| REWIND P,R REWIND DESCRIPTION FILE 00533 M00S00531.valnet ---| JP PRSX RETURN 00534 M00S00532.valnet ---| 00535 M00S00533.valnet ---| PRSA CON 0LOUTPUT+O 00536 M00S00534.valnet ---| PRSB BSSZ 1 MACHINE ID RECEIVING AREA 00537 M00S00535.valnet ---| TARG SPACE 4 00538 M00S00536.valnet ---|* TARG - CONTROL CARD ARGUMENT TABLE. 00539 M00S00537.valnet ---| 00540 M00S00538.valnet ---| 00541 M00S00539.valnet ---| TARG BSS 0 00542 M00S00540.valnet ---| P ARG PAS,P 00543 M00S00541.valnet ---| L ARG LAS,O,400B 00544 M00S00542.valnet ---| NR ARG -NAS,NR 00545 M00S00543.valnet ---| CON 0 00546 M00S00544.valnet ---| 00547 M00S00545.valnet ---| PAS CON 0LCOMPILE+3 00548 M00S00546.valnet ---| LAS CON 0LLIST+3 00549 M00S00547.valnet ---| NAS CON 1 00550 M00S00548.valnet ---| NR CON 0 *NO REWIND* FLAG (=0 IF REWIND) 00551 M00S00549.valnet ---| SPACE 4 00552 M00S00550.valnet ---|* PRESET COMMON DECKS. 00553 M00S00551.valnet ---| 00554 M00S00552.valnet ---|*CALL COMCARG 00555 M00S00553.valnet ---|*CALL COMCCPM 00556 M00S00554.valnet ---| 00557 M00S00555.valnet ---| END
cdc/nos2.source/opl.opl871/deck/valnet.txt · Last modified: (external edit)