cdc:nos2.source:opl.opl871:deck:1cd
Deck 1CD
Library Member Format: MODIFY
Listing Sections
- Deck 1CD Start
- Deck 1CD Part 1 (Line 1918)
- Deck 1CD Part 2 (Line 3979)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1cd +++| IDENT 1CD,ICD 00002 M00S00002.1cd +++| PERIPH 00003 M00S00003.1cd +++| BASE MIXED 00004 M00S00004.1cd +++| SST 00005 M00S00005.1cd +++|*COMMENT 1CD - BATCHIO COMBINED DRIVER.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.1cd +++| TITLE 1CD - BATCHIO COMBINED DRIVER. 00009 M00S00008.1cd +++| SPACE 4,10 00010 M00S00009.1cd +++|*** 1CD - *BATCHIO* COMBINED DRIVER. 00011 M00S00010.1cd +++|* 00012 M00S00011.1cd +++|* G. R. MANSFIELD. 70/09/01. 00013 M00S00012.1cd +++|* P. D. HAAS. 73/12/20. 00014 M00S00013.1cd +++|* R. M. YASUHARA. 75/01/17. 00015 M00S00014.1cd +++|* D. R. HILGREN. 79/01/15. 00016 M00S00015.1cd +++|* D. R. HILGREN. 79/04/25. RESEQUENCED. 00017 M00S00016.1cd +++|* A. F. JOHNSTON. 84/11/16. 5870/5970 DRIVER. 00018 M00S00017.1cd +++| SPACE 4,10 00019 M00S00018.1cd +++|*** *1CD* IS THE DEVICE DRIVER FOR *BATCHIO*. EACH *1CD* CAN 00020 M00S00019.1cd +++|* DRIVE A SET OF DEVICES, DEFINED BY THE SUB-DRIVER ITS RUNS. 00021 M00S00020.1cd +++|* THE FOLLOWING SUB-DRIVERS AND THE DEVICES THEY HANDLE ARE 00022 M00S00021.1cd +++|* AS FOLLOWS: 00023 M00S00022.1cd +++|* 00024 M00S00023.1cd +++|* DCC SUB-DRIVER (UP TO 8 DEVICES PER *1CD*) 00025 M00S00024.1cd +++|* 3555/512 - 580 00026 M00S00025.1cd +++|* 3446/415 00027 M00S00026.1cd +++|* 3447/405 00028 M00S00027.1cd +++|* 00029 M00S00028.1cd +++|* CCC SUB-DRIVER (UP TO 8 DEVICES PER *1CD*) 00030 M00S00029.1cd +++|* 5870 00031 M00S00030.1cd +++|* 5970 00032 M00S00031.1cd +++| SPACE 4,10 00033 M00S00032.1cd +++|*** 1CD CALL. 00034 M00S00033.1cd +++|* 00035 M00S00034.1cd +++|*T IR 18/ 1CD, 6/, 12/ DN, 12/ COUNT, 12/ SDT
Figure IR
00036 M00S00035.1cd +++|* 00037 M00S00036.1cd +++|* DN DRIVER NUMBER (ASSIGNMENT ADDRESS). 00038 M00S00037.1cd +++|* COUNT NUMBER OF DEVICES BEING DRIVEN. 00039 M00S00038.1cd +++|* SDT SUB-DRIVER TYPE 00040 M00S00039.1cd +++|* 0 - 6681 DEVICES (LPDT, CRDT, CPDT). 00041 M00S00040.1cd +++|* 1 - CCC DEVICES (NPDT). 00042 M00S00041.1cd +++| SPACE 4,10 00043 M00S00042.1cd +++|*** 3555/512 - 580 DRIVER CHARACTERISTICS. 00044 M00S00043.1cd +++|* 00045 M00S00044.1cd +++|* LINE SPACING IS NORMALLY DONE IN THE *AUTO EJECT* MODE. THIS 00046 M00S00045.1cd +++|* MEANS CREASES IN THE PAPER ARE SKIPPED VIA THE 3555 OR 580 00047 M00S00046.1cd +++|* AUTOMATIC LINE SPACING. THUS, IT IS NECESARY FOR AUTO EJECT 00048 M00S00047.1cd +++|* TO BE DESELECTED IF ONE WANTS TO USE FORMAT CHANNELS TO 00049 M00S00048.1cd +++|* ADVANCE FROM PRIOR TO BOTTOM OF FORM TO BEYOND TOP OF FORM. 00050 M00S00049.1cd +++|* AN EXAMPLE OF THIS WOULD BE WITH THE TYPICAL *NOS* FORMAT 00051 M00S00050.1cd +++|* TAPE WHICH HAS ONLY 1 HOLE IN CHANNEL 6 THUS PROVIDING AN 00052 M00S00051.1cd +++|* EJECT OF UP TO TWO PAGES IN ORDER TO INSURE ALL BANNER PAGES 00053 M00S00052.1cd +++|* COME OUT FACE UP IF THE PAPER IS PUT IN THE PRINTER 00054 M00S00053.1cd +++|* CORRECTLY. IT SHOULD ALSO BE NOTED THAT DESELECTION OF AUTO 00055 M00S00054.1cd +++|* EJECT MODE ON A 512/580 WILL RESULT IN DESELECTION OF 00056 M00S00055.1cd +++|* 8 LINES/INCH IF PREVIOUSLY SELECTED. 00057 M00S00056.1cd +++|* 00058 M00S00057.1cd +++|* THE FIRST CHARACTER OF THE PRINT LINE CONTROLS THE OPTIONAL 00059 M00S00058.1cd +++|* FORMATS. THIS CHARACTER IS NOT PRINTED. THE PRINT 00060 M00S00059.1cd +++|* LINE THEREFORE CONSISTS OF UP TO 136 CHARACTERS. 00061 M00S00060.1cd +++|* 00062 M00S00061.1cd +++|* THE FORMAT CONTROL CHARACTERS, THE NUMBER OF LINES CHARGED 00063 M00S00062.1cd +++|* FOR THEM, AND THEIR FUNCTION FOLLOWS - 00064 M00S00063.1cd +++|* CHAR. LINE CHARGE FUNCTION 00065 M00S00064.1cd +++|* C 4 SKIP TO FORMAT CHANNEL 6 AFTER PRINT 00066 M00S00065.1cd +++|* D 3 SKIP TO FORMAT CHANNEL 5 AFTER PRINT 00067 M00S00066.1cd +++|* E 3 SKIP TO FORMAT CHANNEL 4 AFTER PRINT 00068 M00S00067.1cd +++|* F 2 SKIP TO FORMAT CHANNEL 3 AFTER PRINT 00069 M00S00068.1cd +++|* G 2 SKIP TO FORMAT CHANNEL 2 AFTER PRINT 00070 M00S00069.1cd +++|* H 1 SKIP TO FORMAT CHANNEL 1 AFTER PRINT 00071 M00S00070.1cd +++|* Q 0 SUPPRESS AUTO EJECT 00072 M00S00071.1cd +++|* R 0 SET AUTO EUECT 00073 M00S00072.1cd +++|* S 0 CLEAR 8 LINES/INCH (512/580 ONLY) 00074 M00S00073.1cd +++|* T 0 SET 8 LINES/INCH (512/580 ONLY) 00075 M00S00074.1cd +++|* V PL6L OR PL8L EJECT PAGE / RELOAD 580 PFC MEMORY 00076 M00S00075.1cd +++|* 0 2 SPACE 1 LINE BEFORE PRINT 00077 M00S00076.1cd +++|* 1 PL6L OR PL8L EJECT PAGE BEFORE PRINT 00078 M00S00077.1cd +++|* 2 PL6L/2 OR PL8L/2 ADV TO BOTTOM OF FORM BEFORE PRINT 00079 M00S00078.1cd +++|* 3 4 SKIP TO FORMAT CHANNEL 6 BEFORE PRINT 00080 M00S00079.1cd +++|* 4 3 SKIP TO FORMAT CHANNEL 5 BEFORE PRINT 00081 M00S00080.1cd +++|* 5 3 SKIP TO FORMAT CHANNEL 4 BEFORE PRINT 00082 M00S00081.1cd +++|* 6 2 SKIP TO FORMAT CHANNEL 3 BEFORE PRINT 00083 M00S00082.1cd +++|* 7 2 SKIP TO FORMAT CHANNEL 2 BEFORE PRINT 00084 M00S00083.1cd +++|* 8 1 SKIP TO FORMAT CHANNEL 1 BEFORE PRINT 00085 M00S00084.1cd +++|* + 1 SUPPRESS SPACE BEFORE PRINT 00086 M00S00085.1cd +++|* - 3 SPACE 2 LINES BEFORE PRINT 00087 M00S00086.1cd +++|* / 1 SUPPRESS SPACE AFTER PRINT 00088 M00S00087.1cd +++|* SPACE 1 NO LINE CONTROL 00089 M00S00088.1cd +++|* OTHER 1 NO LINE CONTROL 00090 M00S00089.1cd +++|* 00091 M00S00090.1cd +++|* ANY FORMAT CONTROL OTHER THAN *Q*, *R*, *S*, AND *T* 00092 M00S00091.1cd +++|* ARE PROCESSED ONCE FOR THE LINE PRINTED. 00093 M00S00092.1cd +++|* 00094 M00S00093.1cd +++|* IF THE FIRST TWO CHARACTERS OF THE LINE ARE *PM* THEN 00095 M00S00094.1cd +++|* THE MESSAGE TEXT ON THE REMAINDER OF THE LINE WILL BE 00096 M00S00095.1cd +++|* DISPLAYED ON THE *I* DISPLAY AND THE PRINTING OF THE 00097 M00S00096.1cd +++|* FILE WILL BE HALTED UNTIL THE OPERATOR ENTERS A 00098 M00S00097.1cd +++|* *CONTINUE* COMMAND. *PM* MESSAGE PROCESSING WILL BE 00099 M00S00098.1cd +++|* ALLOWED ONLY FOR USERS THAT HAVE THE *CBIO* VALIDATION 00100 M00S00099.1cd +++|* PARAMETER SET IN *AACW*. 00101 M00S00100.1cd +++| SPACE 4,10 00102 M00S00101.1cd +++|*** 3446/415 DRIVER CHARACTERISTICS. 00103 M00S00102.1cd +++|* 00104 M00S00103.1cd +++|* HOLLERITH CARDS ARE PUNCHED FROM A LINE CONSISTING OF UP TO 00105 M00S00104.1cd +++|* 90 CHARACTERS. HOWEVER, ONLY THE FIRST 80 CHARACTERS 00106 M00S00105.1cd +++|* OF THE LINE ARE ACTUALLY PUNCHED. THE DISPLAY CODE 00107 M00S00106.1cd +++|* TO O26/O29 CONVERSION IS ACCOMPLISHED BY A 00108 M00S00107.1cd +++|* DISPLAY CODE TO BINARY COLUMN IMAGE CONVERSION IN THE 00109 M00S00108.1cd +++|* DRIVER. THE CARD IS THEN PUNCHED IN BINARY MODE 00110 M00S00109.1cd +++|* ON THE 3446. 00111 M00S00110.1cd +++|* 00112 M00S00111.1cd +++|* BINARY DATA ARE PUNCHED IN THE FOLLOWING FORMAT 00113 M00S00112.1cd +++|* COLUMN 1 = WORD COUNT AND BINARY CARD INDICATOR (79) 00114 M00S00113.1cd +++|* COLUMN 2 = BINARY DATA CHECKSUM MODULO 4095 00115 M00S00114.1cd +++|* COLUMNS 3 - 77 = 15 CENTRAL WORDS OF DATA 00116 M00S00115.1cd +++|* COLUMN 78 = BLANK 00117 M00S00116.1cd +++|* COLUMNS 79 - 80 = 24 BIT BINARY CARD SEQUENCE NUMBER 00118 M00S00117.1cd +++|* 00119 M00S00118.1cd +++|* ABSOLUTE BINARY DATA ARE PUNCHED 16 CENTRAL WORDS/CARD WITH 00120 M00S00119.1cd +++|* NO SPECIAL PUNCHES. 00121 M00S00120.1cd +++|* 00122 M00S00121.1cd +++|* END OF RECORD CARDS CONTAIN A 7/8/9 PUNCH IN COLUMN 1 00123 M00S00122.1cd +++|* AND THE REMAINDER OF THE CARD IS BLANK. 00124 M00S00123.1cd +++|* END OF FILE CARDS CONTAIN A 6/7/9 PUNCH IN COLUMN 1 00125 M00S00124.1cd +++|* AND THE REMAINDER OF THE CARD IS BLANK. 00126 M00S00125.1cd +++|* 00127 M00S00126.1cd +++|* CARDS OFFSET ARE AS FOLLOWS - 00128 M00S00127.1cd +++|* 1. ALL END OF RECORD CARDS. 00129 M00S00128.1cd +++|* 2. THE END OF INFORMATION CARD. 00130 M00S00129.1cd +++|* 3. A CARD ON WHICH A COMPARE ERROR WAS DETECTED WILL BE 00131 M00S00130.1cd +++|* OFFSET AND ALSO THE FOLLOWING CARD. THESE 2 CARDS WILL 00132 M00S00131.1cd +++|* BE REPUNCHED UNTIL NO ERROR IS DETECTED. 00133 M00S00132.1cd +++| SPACE 4,10 00134 M00S00133.1cd +++|*** 3447/405 DRIVER CHARACTERISTICS. 00135 M00S00134.1cd +++|* 00136 M00S00135.1cd +++|* HOLLERITH CARDS ARE READ WITH TRAILING SPACES DELETED. 00137 M00S00136.1cd +++|* UP TO 80 CHARACTERS MAY BE TRANSFERRED TO THE CM BUFFER. 00138 M00S00137.1cd +++|* HOLLERITH TO DISPLAY CODE TRANSLATION IS ACCOMPLISHED BY 00139 M00S00138.1cd +++|* VERIFYING AND CONVERTING THE HOLLERITH DATA TO EXTERNAL BCD 00140 M00S00139.1cd +++|* FOLLOWED BY A BCD TO DISPLAY CONVERSION IN THE DRIVER. 00141 M00S00140.1cd +++|* ILLEGAL HOLLERITH CODES ARE TRANSLATED AS BLANKS. 00142 M00S00141.1cd +++|* HOLLERITH CONVERSION MAY BE CHANGED BY THE USE OF A CARD WITH 00143 M00S00142.1cd +++|* 5/7/9 PUNCHES IN COLUMN 1 AND THE CONVERSION MODE IN 00144 M00S00143.1cd +++|* COLUMN 2. THE ASSUMED MODE IS O26. A MODE CHANGE IS IN 00145 M00S00144.1cd +++|* EFFECT UNTIL CHANGED. 00146 M00S00145.1cd +++|* 00147 M00S00146.1cd +++|* CONVERSION MODE PUNCHES IN COLUMN 2 - 00148 M00S00147.1cd +++|* BLANK O26 00149 M00S00148.1cd +++|* 9 O29 00150 M00S00149.1cd +++|* 4/5/6/7/8/9 LITERAL INPUT 00151 M00S00150.1cd +++|* CARDS ARE READ IN BINARY FORMAT WITH NO CONVERSION 00152 M00S00151.1cd +++|* OR CHECKING UNTIL A CARD WHICH IS IDENTICAL IN ALL 00153 M00S00152.1cd +++|* 80 COLUMNS IS READ. 00154 M00S00153.1cd +++|* 00155 M00S00154.1cd +++|* HOLLERITH CONVERSION MAY ALSO BE SIGNALLED BY PUNCHING 00156 M00S00155.1cd +++|* *26* OR *29* IN COLUMNS 79 AND 80 OF THE FOLLOWING CARDS - 00157 M00S00156.1cd +++|* JOB CARD 00158 M00S00157.1cd +++|* EOR (7/8/9) CARD 00159 M00S00158.1cd +++|* EOF (6/7/9) CARD 00160 M00S00159.1cd +++|* 00161 M00S00160.1cd +++|* BINARY CARDS MUST CONFORM TO THE ABOVE SPECIFICATION FOR 00162 M00S00161.1cd +++|* PUNCHED BINARY DATA. 00163 M00S00162.1cd +++|* 00164 M00S00163.1cd +++|* AN END OF RECORD CONSISTS OF A CARD WITH 7/8/9 PUNCHES IN 00165 M00S00164.1cd +++|* COLUMN 1. 00166 M00S00165.1cd +++|* AN END OF FILE CONSISTS OF A CARD WITH 6/7/9 PUNCHES IN 00167 M00S00166.1cd +++|* COLUMN 1. 00168 M00S00167.1cd +++|* AN END OF INFORMATION CONSISTS OF A CARD WITH 6/7/8/9 00169 M00S00168.1cd +++|* PUNCHES IN COLUMN 1. 00170 M00S00169.1cd +++|* IN ANY CASE, THE REMAINDER OF THE CARD IS NOT CONSIDERED 00171 M00S00170.1cd +++|* AS DATA. 00172 M00S00171.1cd +++| SPACE 4,10 00173 M00S00172.1cd +++|*** 5870/5970 DRIVER CHARACTERISTICS. 00174 M00S00173.1cd +++|* 00175 M00S00174.1cd +++|* THE DRIVER FOR THE 5870/5970 IS SIMILAR TO THE 3555/512 - 580 00176 M00S00175.1cd +++|* DRIVER. 00177 M00S00176.1cd +++|* 00178 M00S00177.1cd +++|* THE FIRST CHARACTER OF THE PRINT LINE CONTAINS THE FORMAT 00179 M00S00178.1cd +++|* CONTROL CHARACTER. THIS CHARACTER IS NOT PRINTED. THE PRINT 00180 M00S00179.1cd +++|* LINE CONSISTS OF UP TO 150 CHARACTERS. 00181 M00S00180.1cd +++|* 00182 M00S00181.1cd +++|* THE FORMAT CONTROL CHARACTERS, THE NUMBER OF LINES CHARGED 00183 M00S00182.1cd +++|* FOR THEM, AND THEIR FUNCTION FOLLOWS - 00184 M00S00183.1cd +++|* 00185 M00S00184.1cd +++|* CHAR. LINE CHARGE FUNCTION 00186 M00S00185.1cd +++|* C 1 SKIP TO FORMAT CHANNEL 6 AFTER PRINT 00187 M00S00186.1cd +++|* D 1 SKIP TO FORMAT CHANNEL 5 AFTER PRINT 00188 M00S00187.1cd +++|* E 1 SKIP TO FORMAT CHANNEL 4 AFTER PRINT 00189 M00S00188.1cd +++|* F 1 SKIP TO FORMAT CHANNEL 3 AFTER PRINT 00190 M00S00189.1cd +++|* G 1 SKIP TO FORMAT CHANNEL 2 AFTER PRINT 00191 M00S00190.1cd +++|* H 1 SKIP TO FORMAT CHANNEL 1 AFTER PRINT 00192 M00S00191.1cd +++|* Q 0 LINE IGNORED 00193 M00S00192.1cd +++|* R 0 LINE IGNORED 00194 M00S00193.1cd +++|* S 0 LINE IGNORED 00195 M00S00194.1cd +++|* T 0 LINE IGNORED 00196 M00S00195.1cd +++|* V 0 LINE IGNORED 00197 M00S00196.1cd +++|* 0 2 SPACE 1 LINE BEFORE PRINT 00198 M00S00197.1cd +++|* 1 1 EJECT PAGE BEFORE PRINT 00199 M00S00198.1cd +++|* 2 1 ADVANCE TO BOTTOM OF FORM BEFORE PRINT 00200 M00S00199.1cd +++|* 3 1 SKIP TO FORMAT CHANNEL 6 BEFORE PRINT 00201 M00S00200.1cd +++|* 4 1 SKIP TO FORMAT CHANNEL 5 BEFORE PRINT 00202 M00S00201.1cd +++|* 5 1 SKIP TO FORMAT CHANNEL 4 BEFORE PRINT 00203 M00S00202.1cd +++|* 6 1 SKIP TO FORMAT CHANNEL 3 BEFORE PRINT 00204 M00S00203.1cd +++|* 7 1 SKIP TO FORMAT CHANNEL 2 BEFORE PRINT 00205 M00S00204.1cd +++|* 8 1 SKIP TO FORMAT CHANNEL 1 BEFORE PRINT 00206 M00S00205.1cd +++|* + 1 SUPPRESS SPACE BEFORE PRINT 00207 M00S00206.1cd +++|* - 3 SPACE 2 LINES BEFORE PRINT 00208 M00S00207.1cd +++|* / 1 SUPPRESS SPACE AFTER PRINT 00209 M00S00208.1cd +++|* SPACE 1 NO LINE CONTROL 00210 M00S00209.1cd +++|* OTHER 1 NO LINE CONTROL 00211 M00S00210.1cd +++|* 00212 M00S00211.1cd +++|* IF THE FIRST TWO CHARACTERS OF THE LINE ARE *PM*, THEN 00213 M00S00212.1cd +++|* THE REMAINDER OF THE LINE, UP TO 80 CHARACTERS, ARE 00214 M00S00213.1cd +++|* CONSIDERED A MESSAGE FOR THE 5870/5970. THIS IS ONLY 00215 M00S00214.1cd +++|* ALLOWED FOR USERS WITH THE *CBIO* VALIDATION. 00216 M00S00215.1cd +++| SPACE 4,10 00217 M00S00216.1cd +++|*** ERRLOG MESSAGES. 00218 M00S00217.1cd +++|* 00219 M00S00218.1cd +++|* 00220 M00S00219.1cd +++|* *EQXXX CCC/NIP STATUS ERROR.* = A STATUS OF 5XXX WAS 00221 M00S00220.1cd +++|* RETURNED FROM THE CCC. 00222 M00S00221.1cd +++|* 00223 M00S00222.1cd +++|* *EQXXX CHANNEL PARITY ERROR.* = A PARITY ERROR WAS DETECTED 00224 M00S00223.1cd +++|* ON A CONVERTER OR EQUIPMENT. 00225 M00S00224.1cd +++|* 00226 M00S00225.1cd +++|* *EQXXX COMPARE ERROR.* = COMPARE ERROR WAS DETECTED. 00227 M00S00226.1cd +++|* 00228 M00S00227.1cd +++|* *EQXXX CONTROLLER HUNG BUSY.* = THE CONTROLLER DOES NOT DROP 00229 M00S00228.1cd +++|* BUSY STATUS. 00230 M00S00229.1cd +++|* 00231 M00S00230.1cd +++|* *EQXXX FEED FAILURE.* = CARD FEED PROBLEM WAS DETECTED. 00232 M00S00231.1cd +++|* 00233 M00S00232.1cd +++|* *EQXXX FUNCTION TIMEOUT* = A FUNCTION TIMEOUT WAS DETECTED 00234 M00S00233.1cd +++|* ON A CONVERTER OR EQUIPMENT FUNCTION. 00235 M00S00234.1cd +++|* 00236 M00S00235.1cd +++|* *EQXXX INCOMPLETE DATA TRANSFER.* = AN INCOMPLETE DATA 00237 M00S00236.1cd +++|* TRANSFER WAS DETECTED. 00238 M00S00237.1cd +++|* 00239 M00S00238.1cd +++|* *EQXXX INTERNAL/EXTERNAL REJECT.* = AN INTERNAL OR EXTERNAL 00240 M00S00239.1cd +++|* REJECT WAS DETECTED. 00241 M00S00240.1cd +++|* 00242 M00S00241.1cd +++|* *EQXXX NNNN PRINT ERRORS.* = PRINT ERRORS DETECTED. 00243 M00S00242.1cd +++|* 00244 M00S00243.1cd +++|* *EQXXX PFC ERROR.* = ERROR LOADING PFC MEMORY. 00245 M00S00244.1cd +++|* 00246 M00S00245.1cd +++|* *EQXXX PRINT ERROR LIMIT EXCEEDED.* = PRINT ERROR LIMIT WAS 00247 M00S00246.1cd +++|* EXCEEDED. 00248 M00S00247.1cd +++|* 00249 M00S00248.1cd +++|* *EQXXX TRANSMISSION PARITY ERROR.* = A TRANSMISSION PARITY 00250 M00S00249.1cd +++|* ERROR WAS DETECTED. 00251 M00S00250.1cd +++|* 00252 M00S00251.1cd +++|* *EQXXX TURNED OFF BY SYSTEM.* = FAULTY EQUIPMENT 00253 M00S00252.1cd +++|* WAS TURNED OFF BY THE SYSTEM. 00254 M00S00253.1cd +++|* 00255 M00S00254.1cd +++|* WHERE - 00256 M00S00255.1cd +++|* EQ = EQUIPMENT MNEMONIC. 00257 M00S00256.1cd +++|* XXX = EST ORDINAL. 00258 M00S00257.1cd +++|* NNNN = NUMBER OF PRINT ERRORS. 00259 M00S00258.1cd +++| SPACE 4,10 00260 M00S00259.1cd +++|*** OPERATOR *I* DISPLAY STATUS MESSAGES. 00261 M00S00260.1cd +++|* 00262 M00S00261.1cd +++|* *NOT READY.* = DEVICE IS NOT READY. 00263 M00S00262.1cd +++|* 00264 M00S00263.1cd +++|* *NO PAPER.* = PRINTER HAS A PAPER OUT CONDITION. 00265 M00S00264.1cd +++|* 00266 M00S00265.1cd +++|* *COMPARE ERROR.* = CARD PUNCH HAS A COMPARE ERROR. 00267 M00S00266.1cd +++|* 00268 M00S00267.1cd +++|* *FEED FAILURE.* = CARD PUNCH HAS A CARD FEED PROBLEM. 00269 M00S00268.1cd +++|*
| Line S00269 Modification History | |
|---|---|
M01 (Removed by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 00270 M01S00269.ns2655 ---|* *OFF.* = DEVICE IS IDLE AND *OFF* IN THE EST. 00271 M01S00270.ns2655 ---|* 00272 M01S00271.ns2655 ---|* *DOWN.* = DEVICE IS *DOWN* AND *OFF* IN THE EST. 00273 M01S00272.ns2655 ---|* 00274 M00S00273.1cd +++|* *HOLD.* = DEVICE IS SKIPPING OR HAS BEEN PLACED IN HOLD.
| Line S00274 Modification History | |
|---|---|
M01 (Removed by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 00275 M01S00274.ns2655 ---|*
| Line S00275 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
M02 (Removed by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 00276 M02S00275.ns2655 ---|* *CHECK PAPER ALIGNMENT.* = CORRECT PAPER ALIGNMENT, IF 00277 M02S00276.ns2655 ---|* NECESSARY, THEN ENTER *CONTINUE* FROM *DSD*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
M02 (Removed by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 00278 M02S00001.ns2655 ---|* *PAPER FAULT.* = CORRECT PAPER ALIGNMENT, IF NECESSARY, 00279 M02S00002.ns2655 ---|* THEN ENTER *CONTINUE,EST.* FROM *DSD*. 00280 M00S00277.1cd +++|*
| Line S00278 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00281 M01S00278.1cd9 ---|* *PM MESSAGE, WAITING CONTINUE.* = PRINTER IS WAITING, 00282 M01S00279.1cd9 ---|* CHECK *PM* MESSAGE AND *CONTINUE*.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00283 M01S00003.1cd9 +++|* *PM MESSAGE.* = PRINTER IS WAITING; CHECK *PM* MESSAGE 00284 M01S00004.1cd9 +++|* THEN ENTER *CONTINUE,EST.* FROM *DSD*. 00285 M01S00005.1cd9 +++|* 00286 M01S00006.1cd9 +++|* *PRINT ERROR.* = CORRECT PRINTER ERROR THEN ENTER 00287 M01S00007.1cd9 +++|* *CONTINUE,EST.* FROM *DSD*.
| Line S00280 Modification History | |
|---|---|
M01 (Removed by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 00288 M01S00280.ns2655 ---|* 00289 M01S00281.ns2655 ---|* *OFF - CHECK ERRLOG.* = DEVICE HAS BEEN TURNED OFF DUE TO A 00290 M01S00282.ns2655 ---|* HARDWARE PROBLEM. CHECK THE ERRLOG FOR THE DETAILS. 00291 M00S00283.1cd +++|*
| Line S00284 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00292 M01S00284.1cd9 ---|* *RE-RD 1 CD. COMPARE ERROR.* = CARD READER HAS A 00293 M01S00285.1cd9 ---|* CARD COMPARE ERROR. OPERATOR SHOULD RE-READ THE LAST CARD 00294 M01S00286.1cd9 ---|* IN THE OUTPUT HOPPER.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00295 M01S00008.1cd9 +++|* *RE-RD CD COMPARE ERR.* = CARD READER HAS A CARD COMPARE 00296 M01S00009.1cd9 +++|* ERROR. OPERATOR SHOULD RE-READ THE LAST CARD IN THE OUTPUT 00297 M01S00010.1cd9 +++|* HOPPER. 00298 M00S00287.1cd +++|*
| Line S00288 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00299 M01S00288.1cd9 ---|* *ADVANCE 1 CD. RE-RD 3 CDS.* = CARD READER HAS 00300 M01S00289.1cd9 ---|* ENCOUNTERED A TRANSMISSION PARITY ERROR, AN INCOMPLETE 00301 M01S00290.1cd9 ---|* DATA TRANSFER, OR A BINARY CHECKSUM ERROR. IN ORDER TO 00302 M01S00291.1cd9 ---|* RECOVER, THE OPERATOR MUST ADVANCE THE NEXT CARD IN THE 00303 M01S00292.1cd9 ---|* INPUT HOPPER, AND THEN RE-READ THE LAST 3 CARDS IN THE 00304 M01S00293.1cd9 ---|* OUTPUT HOPPER.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00305 M01S00011.1cd9 +++|* *ADV 1 CD RE-RD 3 CDS.* = CARD READER HAS ENCOUNTERED A 00306 M01S00012.1cd9 +++|* TRANSMISSION PARITY ERROR, AN INCOMPLETE DATA TRANSFER, OR A 00307 M01S00013.1cd9 +++|* BINARY CHECKSUM ERROR. IN ORDER TO RECOVER, THE OPERATOR 00308 M01S00014.1cd9 +++|* MUST ADVANCE THE NEXT CARD IN THE INPUT HOPPER, AND THEN 00309 M01S00015.1cd9 +++|* RE-READ THE LAST 3 CARDS IN THE OUTPUT HOPPER. 00310 M00S00294.1cd +++|*
| Line S00295 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00311 M01S00295.1cd9 ---|* *INTERVENTION REQUIRED.* = THE 5870/5970 REQUIRES OPERATOR
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00312 M01S00016.1cd9 +++|* *INTERVENTION NEEDED.* = THE 5870/5970 REQUIRES OPERATOR 00313 M00S00296.1cd +++|* INTERVENTION. 00314 M00S00297.1cd +++| SPACE 4,10 00315 M00S00298.1cd +++|*** CHANNEL ERROR PROCESSING. 00316 M00S00299.1cd +++|* 00317 M00S00300.1cd +++|* 00318 M00S00301.1cd +++|* THE FOLLOWING CHANNEL ERRORS ARE RETRIED *ERRL* TIMES - 00319 M00S00302.1cd +++|* CONNECT REJECT. 00320 M00S00303.1cd +++|* FUNCTION REJECT. 00321 M00S00304.1cd +++|* TRANSMISSION PARITY ERROR. 00322 M00S00305.1cd +++|* INCOMPLETE DATA TRANSFER. 00323 M00S00306.1cd +++|* THE FOLLOWING CHANNEL ERRORS ARE NOT RETRIED - 00324 M00S00307.1cd +++|* 6681 FUNCTION TIMEOUT. 00325 M00S00308.1cd +++|* EQUIPMENT FUNCTION TIMEOUT. 00326 M00S00309.1cd +++|* AFTER THE RETRY LIMIT IS REACHED OR AFTER A FUNCTION 00327 M00S00310.1cd +++|* TIMEOUT IS DETECTED, ERROR HANDLING PROCEEDS AS FOLLOWS - 00328 M00S00311.1cd +++|* OUTPUT FILES ARE REQUEUED. 00329 M00S00312.1cd +++|* TRACKS FOR INPUT FILES ARE DROPPED. 00330 M00S00313.1cd +++|* THE FAULTY EQUIPMENT IS TURNED OFF AND DROPPED. 00331 M00S00314.1cd +++|* ERROR LOG MESSAGES ARE ISSUED. 00332 M00S00315.1cd +++| SPACE 4,10 00333 M00S00316.1cd +++|*** *1CD* - *QAP* INTERFACE. 00334 M00S00317.1cd +++|* 00335 M00S00318.1cd +++|* 00336 M00S00319.1cd +++|* *1CD* AND *QAP* COMMUNICATE PRIMARILY VIA BYTE 4 OF THE 00337 M00S00320.1cd +++|* FIRST WORD OF THE FET. WHEN *1CD* MAKES A REQUEST, 00338 M00S00321.1cd +++|* THIS BYTE IS SET WITH THE REQUEST CODE AND BIT 0 00339 M00S00322.1cd +++|* IS CLEARED, INDICATING THAT THIS BUFFER 00340 M00S00323.1cd +++|* IS BUSY. UPON COMPLETION OF THE REQUESTED TASK, 00341 M00S00324.1cd +++|* QAP* SETS BIT 0 OF THIS BYTE, INDICATING THE 00342 M00S00325.1cd +++|* BUFFER IS NO LONGER BUSY. 00343 M00S00326.1cd +++| SPACE 4,10 00344 M00S00327.1cd +++|*** NOTES. 00345 M00S00328.1cd +++|* 00346 M00S00329.1cd +++|* 00347 M00S00330.1cd +++|* (1) LINES PRODUCING PRINTER *PRINT ERRORS* ARE FLAGGED 00348 M00S00331.1cd +++|* ON THE LISTING, AND THEN REPRINTED. THE OPERATOR MAY 00349 M00S00332.1cd +++|* BYPASS ERROR PROCESSING BY TURNING ON SSW1, OR BY MANUALLY 00350 M00S00333.1cd +++|* DEPRESSING THE *ERROR OVERRIDE* SWITCH. THE LATTER 00351 M00S00334.1cd +++|* INHIBITS PRINT ERROR ON THE STATUS LINE, AND AS SUCH WILL 00352 M00S00335.1cd +++|* SUPPRESS STATISTICS REPORTED IN THE *ERRLOG*. 00353 M00S00336.1cd +++|* IF ERROR PROCESSING IS NOT BYPASSED AND MORE THAN 00354 M00S00337.1cd +++|* *PERL* CONSECUTIVE LINES HAVE *PRINT ERRORS*, THEN 00355 M00S00338.1cd +++|* THE FILE IS REQUEUED AND THE PRINTER IS TURNED OFF. 00356 M00S00339.1cd +++|* 00357 M00S00340.1cd +++|* (2) INCOMPLETE DATA TRANSFERS AND TRANSMISSION PARITY 00358 M00S00341.1cd +++|* ERRORS DETECTED WHILE PUNCHING CARDS ARE COUNTED AND 00359 M00S00342.1cd +++|* RETRIED A MAXIMUM OF *ERRL* TIMES PER CARD IMAGE. 00360 M00S00343.1cd +++|* IF *ERRL* IS REACHED, THEN THE PUNCH FILE WILL BE 00361 M00S00344.1cd +++|* REQUEUED AND THE EQUIPMENT TURNED OFF. IF *ERRL* 00362 M00S00345.1cd +++|* IS NOT REACHED, ONLY THE LAST BAD CARD IS OFFSET FOR 00363 M00S00346.1cd +++|* A GIVEN CARD IMAGE, INDEPENDENT OF THE NUMBER OF 00364 M00S00347.1cd +++|* RETRIES FOR THAT CARD IMAGE. 00365 M00S00348.1cd +++|* 00366 M00S00349.1cd +++|* (3) THE CARD PUNCH ERROR COUNT IS PUNCHED IN COLUMN 00367 M00S00350.1cd +++|* 40 OF THE EOI CARD. 00368 M00S00351.1cd +++| SPACE 4,10 00369 M00S00352.1cd +++|** PROGRAMMING CONSIDERATIONS. 00370 M00S00353.1cd +++|* 00371 M00S00354.1cd +++|* 00372 M00S00355.1cd +++|* (1) BEFORE ADDING CODE TO THIS ROUTINE, ONE SHOULD 00373 M00S00356.1cd +++|* UNDERSTAND WHAT HAPPENS ON A FUNCTION REJECT OR WAIT NOT 00374 M00S00357.1cd +++|* BUSY CONDITION. SEE SUBROUTINES *FCN* AND *WNB*. 00375 M00S00358.1cd +++|* 00376 M00S00359.1cd +++|* (2) THE PROGRAMMER SHOULD BE AWARE OF THE IMPLICATIONS 00377 M00S00360.1cd +++|* OF JUMPING TO MANAGER FROM A SUBROUTINE. IF THAT 00378 M00S00361.1cd +++|* SUBROUTINE IS CALLED MORE THAN ONCE, ANOTHER EQUIPMENT 00379 M00S00362.1cd +++|* DRIVEN BY THIS SAME *1CD* COULD CONCEIVABLY CALL THE 00380 M00S00363.1cd +++|* SAME SUBROUTINE FROM A DIFFERENT LOCATION. THUS, THE 00381 M00S00364.1cd +++|* RETURN ADDRESS WOULD NOT BE CORRECT FOR THE EQUIPMENT 00382 M00S00365.1cd +++|* THAT FIRST CALLED THE SUBROUTINE WHEN IT RESUMES 00383 M00S00366.1cd +++|* PROCESSING. 00384 M00S00367.1cd +++| SPACE 4,10 00385 M00S00368.1cd +++|*** PROGRAMS CALLED. 00386 M00S00369.1cd +++|* 00387 M00S00370.1cd +++|* CIO - COMBINED I/O. 00388 M00S00371.1cd +++|* QAP - QUEUE AUXILIARY PROCESSOR. 00389 M00S00372.1cd +++| SPACE 4,10 00390 M00S00373.1cd +++|* COMMON DECKS. 00391 M00S00374.1cd +++| 00392 M00S00375.1cd +++| 00393 M00S00376.1cd +++|*CALL COMPMAC 00394 M00S00377.1cd +++| LIST X 00395 M00S00378.1cd +++|*CALL COMSBIO 00396 M00S00379.1cd +++| LIST * 00397 M00S00380.1cd +++|*CALL COMSCPS 00398 M00S00381.1cd +++|*CALL COMSJIO 00399 M00S00382.1cd +++|*CALL COMSPIM 00400 M00S00383.1cd +++| SPACE 4,10 00401 M00S00384.1cd +++|**** DIRECT CELL USAGE. 00402 M00S00385.1cd +++| 00403 M00S00386.1cd +++| 00404 M00S00387.1cd +++| DB EQU 15 DATA BUFFER ADDRESS 00405 M00S00388.1cd +++| FC EQU 16 FUNCTION CODE 00406 M00S00389.1cd +++| PA EQU 17 PROCESSING ADDRESS 00407 M00S00390.1cd +++| FP EQU 20 - 24 FILE PARAMETERS (FET+5) (5 LOCATIONS)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 00408 M01S00001.ns2319 +++| BF EQU FP BUFFER POINT OFFSET 00409 M00S00391.1cd +++| BI EQU 25 PP BUFFER CONTROL INDEX 00410 M00S00392.1cd +++| DA EQU 26 DATA ADDRESS 00411 M00S00393.1cd +++| BR EQU 27 BUSY RETURN
| Line S00394 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00412 M01S00394.1cd9 ---| F6 EQU 30 - 34 FILE PARAMETERS (FET+6) (5 LOCATIONS) 00413 M01S00395.1cd9 ---| CS EQU F6 CONVERTER STATUS (FET+6 - BYTE 0) 00414 M01S00396.1cd9 ---| ST EQU F6+1 EQUIPMENT STATUS (FET+6 - BYTE 1) 00415 M01S00397.1cd9 ---| UL EQU F6+3 - F6+4 USER LIMIT (FET+6 - BYTES 3 AND 4)
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00416 M01S00017.1cd9 +++| F2 EQU 30 - 34 FILE PARAM WORD 2 (FET+12) (5 LOCATIONS) 00417 M01S00018.1cd9 +++| CS EQU F2 CONVERTER STATUS (FET+12 - BYTE 0) 00418 M01S00019.1cd9 +++| ST EQU F2+1 EQUIPMENT STATUS (FET+12 - BYTE 1) 00419 M01S00020.1cd9 +++| UL EQU F2+3 - F2+4 USER LIMIT (FET+12 - BYTES 3 AND 4) 00420 M00S00398.1cd +++| CR EQU 35 CHANNEL RESERVED 00421 M00S00399.1cd +++| EQ EQU 36 EQUIPMENT TYPE NUMBER 00422 M00S00400.1cd +++| TL EQU 37 CONVERSION TABLE LENGTH 00423 M00S00401.1cd +++| BS EQU 40 - 44 BUFFER STATUS (5 LOCATIONS)
| Line S00402 Modification History | |
|---|---|
M01 (Removed by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 00424 M01S00402.ns2319 ---| BF EQU 45 BUFFER POINT ADDRESS 00425 M00S00403.1cd +++| SB EQU 46 STATUS BLOCK WRITE LOCKOUT 00426 M00S00404.1cd +++| BL EQU 47 EQUIPMENT STATUS BLOCK LENGTH 00427 M00S00405.1cd +++| FA EQU 57 ADDRESS OF FST ENTRY 00428 M00S00406.1cd +++| FT EQU 60 - 61 FIRST ADDRESS OF CM BUFFER (2 LOCATIONS) 00429 M00S00407.1cd +++| IN EQU 62 - 63 NEXT INPUT ADDRESS (2 LOCATIONS) 00430 M00S00408.1cd +++| OT EQU 64 - 65 NEXT OUTPUT ADDRESS (2 LOCATIONS) 00431 M00S00409.1cd +++| LM EQU 66 - 67 LIMIT ADDRESS OF CM BUFFER (2 LOCATIONS) 00432 M00S00410.1cd +++| SPACE 4,10 00433 M00S00411.1cd +++|* ASSEMBLY CONSTANTS. 00434 M00S00412.1cd +++| 00435 M00S00413.1cd +++| 00436 M00S00414.1cd +++|* PROGRAMMERS NOTE - THE DEFAULT CHANNEL SHOULD REMAIN 16B. 00437 M00S00415.1cd +++|* THE MAIN LOOP OF *1CD* ASSUMES THAT A CHANNEL IS ALREADY 00438 M00S00416.1cd +++|* RESERVED AND IT WILL BE DROPPED WHEN NECESSARY. IN ORDER TO 00439 M00S00417.1cd +++|* ELIMINATE SPECIAL CASE CODE, CHANNEL 16B IS USED IN PRESET 00440 M00S00418.1cd +++|* SINCE IT IS DEFINED TO BE NON-DEDICATED AND MAY ALWAYS BE 00441 M00S00419.1cd +++|* REQUESTED AND DROPPED. USE OF ANY OTHER CHANNEL MAY RESULT 00442 M00S00420.1cd +++|* IN DEADLOCK WITH PP PROGRAMS WHICH MAY USE THAT CHANNEL IN A 00443 M00S00421.1cd +++|* DEDICATED MODE (SUCH AS *1TD*). 00444 M00S00422.1cd +++| 00445 M00S00423.1cd +++| CH EQU 16B CHANNEL NUMBER 00446 M00S00424.1cd +++| BUFS EQU 2 BUFFER TABLE ENTRY LENGTH 00447 M00S00425.1cd +++|**** 00448 M00S00426.1cd +++| SPACE 4,10 00449 M00S00427.1cd +++|* CONVERSION TABLE AREA. 00450 M00S00428.1cd +++| 00451 M00S00429.1cd +++| 00452 M00S00430.1cd +++| CTID EQU MSFW 00453 M00S00431.1cd +++| CTBL EQU CTID+1
| Line S00432 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 00454 M01S00432.284l847 ---| CTBLL EQU CTID+5*TLEN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 00455 M01S00001.284l847 +++| CTBLL EQU CTID+5*CTLN 00456 M00S00433.1cd +++| TITLE MACRO DEFINITIONS. 00457 M00S00434.1cd +++| SPACE 4,10 00458 M00S00435.1cd +++|** MACRO DEFINITIONS. 00459 M00S00436.1cd +++| FMTC SPACE 4,10 00460 M00S00437.1cd +++|** FMTC C,L,F1,F2 00461 M00S00438.1cd +++|* 00462 M00S00439.1cd +++|* GENERATE ENTRY IN FORMAT CONTROL TABLE. 00463 M00S00440.1cd +++|* 00464 M00S00441.1cd +++|*T, 12/ASCII8
Figure
00465 M00S00442.1cd +++|*T+1, 6/L,6/F2 00466 M00S00443.1cd +++|* ASCII8 = 12-BIT ASCII CODE. 00467 M00S00444.1cd +++|* C = CONTROL CHARACTER IN 12 BIT ASCII, RIGHT- 00468 M00S00445.1cd +++|* JUSTIFIED. 00469 M00S00446.1cd +++|* L = NUMBER OF LINES CHARGED THRU ACCOUNTING. 00470 M00S00447.1cd +++|* F2 = FUNCTION CODE FOR 512/580. 00471 M00S00448.1cd +++| 00472 M00S00449.1cd +++| 00473 M00S00450.1cd +++| FMTC MACRO C,L,F1,F2 00474 M00S00451.1cd +++| NOREF YY 00475 M00S00452.1cd +++| CODE ASCII 00476 M00S00453.1cd +++| YY SET 1R_C+40B 00477 M00S00454.1cd +++| VFD 12/YY 00478 M00S00455.1cd +++| CODE * 00479 M00S00456.1cd +++| VFD 6/L,6/F2 00480 M00S00457.1cd +++| ENDM 00481 M00S00458.1cd +++| NFMTC SPACE 4,15 00482 M00S00459.1cd +++|** NFMTC - NON-IMPACT PRINTER FORMAT CONTROL TABLE. 00483 M00S00460.1cd +++|* 00484 M00S00461.1cd +++|* NFMTC IS USED TO GENERATE A ENTRY IN THE FORMAT CONTROL 00485 M00S00462.1cd +++|* TABLE FOR A NON-IMPACT PRINTER. 00486 M00S00463.1cd +++|* 00487 M00S00464.1cd +++|* NFMTC C,NP,L,F1,F2 00488 M00S00465.1cd +++|* 00489 M00S00466.1cd +++|* ENTRY *C* = CONTROL CHARACTER. 00490 M00S00467.1cd +++|* *NP* = IF PRESENT, DO NOT PRINT LINE. 00491 M00S00468.1cd +++|* *L* = ADDITIONAL LINES TO CHARGE. 00492 M00S00469.1cd +++|* *F1* = FUNCTION TO ISSUE TO CCC. 00493 M00S00470.1cd +++|* *F2* = ADDITIONAL FUNCTION TO ISSUE AFTER *F1*. 00494 M00S00471.1cd +++| 00495 M00S00472.1cd +++| 00496 M00S00473.1cd +++| PURGMAC NFMTC 00497 M00S00474.1cd +++| 00498 M00S00475.1cd +++| NFMTC MACRO C,NP,L,F1,F2 00499 M00S00476.1cd +++| MACREF NFMTC 00500 M00S00477.1cd +++| NOREF YY 00501 M00S00478.1cd +++| CODE ASCII 00502 M00S00479.1cd +++| YY SET 1R_C+40B 00503 M00S00480.1cd +++| VFD 12/YY 00504 M00S00481.1cd +++| CODE * 00505 M00S00482.1cd +++| VFD 6/L 00506 M00S00483.1cd +++| .A IFC EQ,$NP$$ 00507 M00S00484.1cd +++| VFD 6/0 00508 M00S00485.1cd +++| .A ELSE 00509 M00S00486.1cd +++| VFD 6/1 00510 M00S00487.1cd +++| .A ENDIF 00511 M00S00488.1cd +++| .A IFC EQ,$F2$$ 00512 M00S00489.1cd +++| VFD 12/F1,12/0 00513 M00S00490.1cd +++| .A ELSE 00514 M00S00491.1cd +++| VFD 12/F2,12/F1 00515 M00S00492.1cd +++| .A ENDIF 00516 M00S00493.1cd +++| NFMTC ENDM 00517 M00S00494.1cd +++| RELM SPACE 4,10 00518 M00S00495.1cd +++|** RELM 00519 M00S00496.1cd +++|* REDEFINE -M- TYPE DATA INSTRUCTIONS FOR AUTOMATIC BIAS 00520 M00S00497.1cd +++|* BY *EQSB* IF -M- PART OF ADDRESS .LE. *CMDA*. 00521 M00S00498.1cd +++|* ORIGINAL FORM AVAILABLE WITH *.* SUFFIX. 00522 M00S00499.1cd +++| 00523 M00S00500.1cd +++| 00524 M00S00501.1cd +++| RELM MACRO OPC 00525 M00S00502.1cd +++| OPC. OPSYN OPC 00526 M00S00503.1cd +++| OPC= MACRO M,D 00527 M00S00504.1cd +++| IF DEF,M 00528 M00S00505.1cd +++| IFLE M,CMDA 00529 M00S00506.1cd +++| IFC EQ,*D** 00530 M00S00507.1cd +++| OPC. M+EQSB 00531 M00S00508.1cd +++| ELSE 00532 M00S00509.1cd +++| OPC. M,D 00533 M00S00510.1cd +++| ENDIF 00534 M00S00511.1cd +++| OPC= ENDM 00535 M00S00512.1cd +++| OPC OPSYN OPC= 00536 M00S00513.1cd +++| RELM ENDM 00537 M00S00514.1cd +++| 00538 M00S00515.1cd +++| 00539 M00S00516.1cd +++| RELM LDM 00540 M00S00517.1cd +++| RELM ADM 00541 M00S00518.1cd +++| RELM SBM 00542 M00S00519.1cd +++| RELM LMM 00543 M00S00520.1cd +++| RELM STM 00544 M00S00521.1cd +++| RELM RAM 00545 M00S00522.1cd +++| RELM AOM 00546 M00S00523.1cd +++| RELM SOM 00547 M00S00524.1cd +++| STR SPACE 4,10 00548 M00S00525.1cd +++|** STR - GENERATE ASCII STRING. 00549 M00S00526.1cd +++|* 00550 M00S00527.1cd +++|* STR IS USED TO GENERATE A STRING OF ASCII CHARACTERS. 00551 M00S00528.1cd +++|* THE CHARACTERS ARE STORED ONE PER BYTE, RIGHT-ADJUSTED. 00552 M00S00529.1cd +++|* 00553 M00S00530.1cd +++|* STR (ABCD) 00554 M00S00531.1cd +++|* 00555 M00S00532.1cd +++|* ENTRY *ABCD* = STRING TO GENERATE. 00556 M00S00533.1cd +++| 00557 M00S00534.1cd +++| 00558 M00S00535.1cd +++| PURGMAC STR 00559 M00S00536.1cd +++| 00560 M00S00537.1cd +++| STR MACRO STRING 00561 M00S00538.1cd +++| MACREF STR 00562 M00S00539.1cd +++| NOREF .1,.2,.3 00563 M00S00540.1cd +++| .B MICRO 1,,(STRING( 00564 M00S00541.1cd +++| .1 MICCNT .B 00565 M00S00542.1cd +++| .2 SET 1 00566 M00S00543.1cd +++| CODE ASCII 00567 M00S00544.1cd +++| DUP .1,4 00568 M00S00545.1cd +++| .C MICRO .2,1,#".B"# 00569 M00S00546.1cd +++| .3 SET 1R".C"+40B 00570 M00S00547.1cd +++| VFD 12/.3 00571 M00S00548.1cd +++| .2 SET .2+1 00572 M00S00549.1cd +++| CODE * 00573 M00S00550.1cd +++| STR ENDM 00574 M00S00551.1cd +++| SPACE 4,10 00575 M00S00552.1cd +++|** COMMON DECKS. 00576 M00S00553.1cd +++| 00577 M00S00554.1cd +++| 00578 M00S00555.1cd +++|*CALL COMPCHI 00579 M00S00556.1cd +++| TITLE MANAGER. 00580 M00S00557.1cd +++| ICD SPACE 4,10 00581 M00S00558.1cd +++|** MGR - EQUIPMENT MANAGER. 00582 M00S00559.1cd +++| 00583 M00S00560.1cd +++| 00584 M00S00561.1cd +++| ORG PPFW 00585 M00S00562.1cd +++| 00586 M00S00563.1cd +++| ICD LJM PRS PRESET PROGRAM 00587 M00S00564.1cd +++| MGR EQU *-1 00588 M00S00565.1cd +++| STM CMAR SAVE -A- REGISTER 00589 M00S00566.1cd +++| LDM MGR STORE PROGRAM ADDRESS 00590 M00S00567.1cd +++| STM CMPA 00591 M00S00568.1cd +++| LDN FRJI CLEAR FUNCTION REJECT RETRY COUNT 00592 M00S00569.1cd +++| RJM CRV 00593 M00S00570.1cd +++| MGRA LDN 0 RESET TIMEOUT COUNTER 00594 M00S00571.1cd +++|* LDN 1 (1X PP SPEED) 00595 M00S00572.1cd +++|* LDN 2 (2X PP SPEED) 00596 M00S00573.1cd +++|* LDN 4 (4X PP SPEED) 00597 M00S00574.1cd +++| STM CMTC 00598 M00S00575.1cd +++| 00599 M00S00576.1cd +++|* *MGR1* IS A SECONDARY ENTRY POINT FOR *MGR*. 00600 M00S00577.1cd +++| 00601 M00S00578.1cd +++| MGR1 LDD BR STORE BUSY RETURN 00602 M00S00579.1cd +++| STM CMBR 00603 M00S00580.1cd +++| 00604 M00S00581.1cd +++|* PAUSE FOR STORAGE MOVE / CHANNEL REQUESTED. 00605 M00S00582.1cd +++| 00606 M00S00583.1cd +++| PSE LDN CMCL READ STORAGE MOVE CONTROL 00607 M00S00584.1cd +++| CRD CM 00608 M00S00585.1cd +++| LDD CP CHECK CONTROL POINT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00609 M01S00001.271l716 +++| SHN -7 00610 M00S00586.1cd +++| LMD CM 00611 M00S00587.1cd +++| ZJN PSE2 IF MOVE REQUESTED 00612 M00S00588.1cd +++| LCN 0 00613 M00S00589.1cd +++| STD T0 00614 M00S00590.1cd +++| LDD CR 00615 M00S00591.1cd +++| STD T1 00616 M00S00592.1cd +++| PSE1 AOD T0 DETERMINE CHANNEL WORD ADDRESS 00617 M00S00593.1cd +++| LCN 5 00618 M00S00594.1cd +++| RAD T1 00619 M00S00595.1cd +++| PJN PSE1 IF CORRECT CHANNEL WORD NOT REACHED 00620 M00S00596.1cd +++| LDC 0 00621 M00S00597.1cd +++| PSEA EQU *-1 (CHANNEL TABLE ADDRESS) 00622 M00S00598.1cd +++| ADD T0 00623 M00S00599.1cd +++| CRD CM 00624 M00S00600.1cd +++| LDM CM+5,T1 CHECK CHANNEL 00625 M00S00601.1cd +++| SHN -13 00626 M00S00602.1cd +++| ZJN MGR2 IF CHANNEL NOT REQUESTED 00627 M00S00603.1cd +++| PSE2 LDD CR RELEASE CHANNEL 00628 M00S00604.1cd +++| DCHAN 00629 M00S00605.1cd +++| LDD CR RESERVE CHANNEL 00630 M00S00606.1cd +++| RCHAN 00631 M00S00607.1cd +++|* LDN 0 CLEAR EQUIPMENT COUNTER 00632 M00S00608.1cd +++| MGR2 STD T7 00633 M00S00609.1cd +++| LDD RA READ REQUEST WORD 00634 M00S00610.1cd +++| SHN 6 00635 M00S00611.1cd +++| ADN DRQR 00636 M00S00612.1cd +++| CRD CM 00637 M00S00613.1cd +++| LDD SB 00638 M00S00614.1cd +++| NJN MGR2.1 IF STATUS BLOCK INTERLOCKED 00639 M00S00615.1cd +++| RJM SFA 00640 M00S00616.1cd +++| ADN EDSO STORE STATUS BLOCK 00641 M00S00617.1cd +++| CWM EQSB,BL 00642 M00S00618.1cd +++| MGR2.1 LDD CM 00643 M00S00619.1cd +++| LMD IR+2 00644 M00S00620.1cd +++| NJN MGR3 IF NO REQUEST 00645 M00S00621.1cd +++| RJM SEA SET EQUIPMENT ASSIGNMENT 00646 M00S00622.1cd +++| MGR3 LDN BUFS ADVANCE BUFFER ADDRESS 00647 M00S00623.1cd +++| RAD BI 00648 M00S00624.1cd +++| LMC CBUFL 00649 M00S00625.1cd +++| NJN MGR4 IF NOT END OF BUFFERS 00650 M00S00626.1cd +++| LCN CBUFL-CBUF 00651 M00S00627.1cd +++| RAD BI 00652 M00S00628.1cd +++| MGR4 LDI BI 00653 M00S00629.1cd +++| ADM 1,BI 00654 M00S00630.1cd +++| NJN MGR5 IF EQUIPMENT ACTIVE 00655 M00S00631.1cd +++| AOD T7 ADVANCE EQUIPMENT COUNTER 00656 M00S00632.1cd +++| LMN MEQD 00657 M00S00633.1cd +++| NJN MGR3 IF NOT LAST EQUIPMENT 00658 M00S00634.1cd +++| LDD CR RELEASE CHANNEL 00659 M00S00635.1cd +++| DCHAN 00660 M00S00636.1cd +++| LDD RA 00661 M00S00637.1cd +++| SHN 6 00662 M00S00638.1cd +++| ADD IR+2 00663 M00S00639.1cd +++| CWD CM 00664 M00S00640.1cd +++| MONITOR DPPM DROP PP 00665 M00S00641.1cd +++| LJM PPR EXIT TO PP RESIDENT 00666 M00S00642.1cd +++| 00667 M00S00643.1cd +++| MGR5 RJM SFA READ FET PARAMETERS 00668 M00S00644.1cd +++| CRD BS BUFFER STATUS 00669 M00S00645.1cd +++| ADN QAPO 00670 M00S00646.1cd +++| CRD T1 QUEUE ACCESS PARAMETER BLOCK
| Line S00647 Modification History | |
|---|---|
M01 (Removed by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 00671 M01S00647.ns2487 ---| SBN QAPO-6 00672 M01S00648.ns2487 ---| CRD F6 FILE PARAMETERS (FET+6) 00673 M01S00649.ns2487 ---| SBN 1 00674 M01S00650.ns2487 ---| CRD FP FILE PARAMETERS (FET+5)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 00675 M01S00001.ns2487 +++| ADN FPW2-QAPO
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2487 |
M02 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00676 M02S00002.1cd9 ---| CRD F6 FILE PARAMETER WORD 2
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 00677 M01S00021.1cd9 +++| CRD F2 FILE PARAMETER WORD 2
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 00678 M01S00003.ns2487 +++| SBN FPW2-5 00679 M01S00004.ns2487 +++| CRD FP FILE PARAMETER WORD 1 (FET+5) 00680 M00S00651.1cd +++| SBN 1 00681 M00S00652.1cd +++| CRD LM-3 LIMIT 00682 M00S00653.1cd +++| CRD T6 00683 M00S00654.1cd +++| SBN 1 00684 M00S00655.1cd +++| CRD OT-3 OUT 00685 M00S00656.1cd +++| SBN 1 00686 M00S00657.1cd +++| CRD IN-3 IN 00687 M00S00658.1cd +++| SBN 1 00688 M00S00659.1cd +++| CRD CM FIRST 00689 M00S00660.1cd +++| ADN EDSO-1 00690 M00S00661.1cd +++| CRM EQSB,BL 00691 M00S00662.1cd +++| LDM CMEN SET EQUIPMENT TYPE 00692 M00S00663.1cd +++| LPN 7 00693 M00S00664.1cd +++| STD EQ 00694 M00S00665.1cd +++| LDM CMBR SET BUSY RETURN 00695 M00S00666.1cd +++| STD BR 00696 M00S00667.1cd +++| LDD CM+3 00697 M00S00668.1cd +++| LPN 37 00698 M00S00669.1cd +++| STD FT 00699 M00S00670.1cd +++| LDD CM+4 00700 M00S00671.1cd +++| STD FT+1 00701 M00S00672.1cd +++| LDD BS+4 00702 M00S00673.1cd +++| SHN 21-0 00703 M00S00674.1cd +++| MJN MGR6 IF FILE NOT BUSY 00704 M00S00675.1cd +++| LDD T1+4 00705 M00S00676.1cd +++| SHN 21-0 00706 M00S00677.1cd +++| PJN MGR6 IF QUEUE ACCESS PARAMETER BLOCK BUSY 00707 M00S00678.1cd +++| AOD BS+4 SET FILE NOT BUSY 00708 M00S00679.1cd +++| SOD T1+4 SET QUEUE ACCESS PARAMETER BLOCK BUSY 00709 M00S00680.1cd +++| RJM SFA WRITE BUFFER STATUS 00710 M00S00681.1cd +++| CWD BS 00711 M00S00682.1cd +++| ADN QAPO WRITE QUEUE ACCESS PARAMETER BLOCK 00712 M00S00683.1cd +++| CWD T1 00713 M00S00684.1cd +++| MGR6 LDD T6 SET FST ADDRESS 00714 M00S00685.1cd +++| ZJN MGR7 IF NO FNT ENTRY 00715 M00S00686.1cd +++| SBN FSTL 00716 M00S00687.1cd +++| MGR7 STD FA 00717 M00S00688.1cd +++| LDM CMSB SET STATUS BLOCK INTERLOCK FLAG 00718 M00S00689.1cd +++| LPN 2 00719 M00S00690.1cd +++| STD SB 00720 M00S00691.1cd +++| NJN MGR9 IF INTERLOCKED 00721 M00S00692.1cd +++| LDM CMDB SET DATA ADDRESS 00722 M00S00693.1cd +++| STD DA
| Line S00694 Modification History | |
|---|---|
M01 (Removed by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 00723 M01S00694.ns2319 ---| LDM CMBF SET BUFFER POINT ADDRESS 00724 M01S00695.ns2319 ---| STD BF 00725 M00S00696.1cd +++| NFA BF,R READ BUFFER POINT WORD 00726 M00S00697.1cd +++| CRD CM 00727 M00S00698.1cd +++| LDD CM+4 CHECK FOR OPERATOR REQUEST 00728 M00S00699.1cd +++| LPN 77 00729 M00S00700.1cd +++| ZJN MGR8 IF NO REQUEST 00730 M00S00701.1cd +++| RJM POF PROCESS OPERATOR REQUEST 00731 M00S00702.1cd +++| MGR8 RJM PMR PROCESS MESSAGE REQUEST 00732 M00S00703.1cd +++| NJN MGR9 IF REQUEST PENDING 00733 M00S00704.1cd +++| RJM ** ENTER SUB-DRIVER PROCESSOR 00734 M00S00705.1cd +++| MGRB EQU *-1 (SET BY *PRS*) 00735 M00S00706.1cd +++|* RJM /3CZ/SDP 00736 M00S00707.1cd +++|* RJM /3CY/SDP 00737 M00S00708.1cd +++| MGR9 LJM PSE CHECK FOR STORAGE MOVE 00738 M00S00709.1cd +++| TEQD SPACE 4,10 00739 M00S00710.1cd +++|** TEQD - TABLE OF EQUIPMENT DRIVERS. 00740 M00S00711.1cd +++|* 00741 M00S00712.1cd +++|* INDEXED BY EQUIPMENT TYPE CODE. 00742 M00S00713.1cd +++| 00743 M00S00714.1cd +++| 00744 M00S00715.1cd +++| TEQD INDEX 00745 M00S00716.1cd +++| INDEX LPDT,/3CZ/LPD 00746 M00S00717.1cd +++| INDEX CPDT,/3CZ/CPD 00747 M00S00718.1cd +++| INDEX CRDT,/3CZ/CRD 00748 M00S00719.1cd +++| INDEX NPDT,/3CY/NPD 00749 M00S00720.1cd +++| INDEX MXDT 00750 M00S00721.1cd +++| TDCM SPACE 4,10 00751 M00S00722.1cd +++|** TDCM - TABLE OF DEFAULT CONVERSION MODES. 00752 M00S00723.1cd +++|* 00753 M00S00724.1cd +++|* INDEXED BY EQUIPMENT TYPE CODE. 00754 M00S00725.1cd +++| 00755 M00S00726.1cd +++| 00756 M00S00727.1cd +++| TDCM INDEX 00757 M00S00728.1cd +++| INDEX LPDT,CDX8 00758 M00S00729.1cd +++| INDEX CPDT,CDXH 00759 M00S00730.1cd +++| INDEX CRDT,C6XD 00760 M00S00731.1cd +++| INDEX NPDT,CDX8 00761 M00S00732.1cd +++| INDEX MXDT 00762 M00S00733.1cd +++| TNRP SPACE 4,10 00763 M00S00734.1cd +++|** TNRP - TABLE OF *NOT READY* PROCESSORS. 00764 M00S00735.1cd +++|* 00765 M00S00736.1cd +++|* INDEXED BY EQUIPMENT TYPE CODE. 00766 M00S00737.1cd +++| 00767 M00S00738.1cd +++| 00768 M00S00739.1cd +++| TNRP INDEX 00769 M00S00740.1cd +++| INDEX LPDT,/3CZ/LPE 00770 M00S00741.1cd +++| INDEX CPDT,/3CZ/CPE 00771 M00S00742.1cd +++| INDEX CRDT,/3CZ/CRE 00772 M00S00743.1cd +++| INDEX NPDT,/3CY/NPE 00773 M00S00744.1cd +++| INDEX MXDT 00774 M00S00745.1cd +++| SEA SPACE 4,15 00775 M00S00746.1cd +++|** SEA - SET EQUIPMENT ASSIGNMENT. 00776 M00S00747.1cd +++|* 00777 M00S00748.1cd +++|* ENTRY (CM - CM+4) = EQUIPMENT ASSIGNMENT. 00778 M00S00749.1cd +++|* 00779 M00S00750.1cd +++|* EXIT BUFFER INITIALIZED. 00780 M00S00751.1cd +++|* 00781 M00S00752.1cd +++|* USES EQ, IR+3, T1, CM - CM+4. 00782 M00S00753.1cd +++|* 00783 M00S00754.1cd +++|* CALLS CLB, SFA. 00784 M00S00755.1cd +++|* 00785 M00S00756.1cd +++|* MACROS MONITOR. 00786 M00S00757.1cd +++| 00787 M00S00758.1cd +++| 00788 M00S00759.1cd +++| SEA2 MONITOR HNGM HANG PP 00789 M00S00760.1cd +++| 00790 M00S00761.1cd +++| SEA SUBR ENTRY/EXIT 00791 M00S00762.1cd +++| LDD CM+1 SET EQUIPMENT TYPE 00792 M00S00763.1cd +++| LPN 7 00793 M00S00764.1cd +++| STD EQ 00794 M00S00765.1cd +++| SBN MXDT 00795 M00S00766.1cd +++| PJN SEA2 IF DRIVER NOT AVAILABLE 00796 M00S00767.1cd +++| LDC CBUF-BUFS SET BUFFER ADDRESS 00797 M00S00768.1cd +++| STD T1 00798 M00S00769.1cd +++| SEA1 LDN BUFS ADVANCE BUFFER ADDRESS 00799 M00S00770.1cd +++| RAD T1 00800 M00S00771.1cd +++| LMC CBUFL 00801 M00S00772.1cd +++| ZJN SEAX IF ALL BUFFERS BUSY 00802 M00S00773.1cd +++| LDI T1 00803 M00S00774.1cd +++| ADM 1,T1 00804 M00S00775.1cd +++| NJN SEA1 IF BUFFER IN USE 00805 M00S00776.1cd +++| STD SB 00806 M00S00777.1cd +++| LDD T1 00807 M00S00778.1cd +++| STD BI 00808 M00S00779.1cd +++| LDD CM+3 SET BUFFER ADDRESS 00809 M00S00780.1cd +++| STI BI 00810 M00S00781.1cd +++| LDD CM+4 00811 M00S00782.1cd +++| STM 1,BI 00812 M00S00783.1cd +++| RJM SFA READ DRIVER STATUS BLOCK 00813 M00S00784.1cd +++| ADN EDSO 00814 M00S00785.1cd +++| CRM EQSB,BL 00815 M00S00786.1cd +++| RJM CLB CLEAR STATUS BLOCK 00816 M00S00787.1cd +++| LDN ZERL CLEAR REQUEST 00817 M00S00788.1cd +++| CRD CM 00818 M00S00789.1cd +++| AOD IR+3 ADVANCE ENTRY COUNT 00819 M00S00790.1cd +++| LDD RA UPDATE EQUIPMENT COUNT 00820 M00S00791.1cd +++| SHN 6 00821 M00S00792.1cd +++| ADD IR+2 00822 M00S00793.1cd +++| CWD IR 00823 M00S00794.1cd +++| SBD IR+2 00824 M00S00795.1cd +++| ADN DRQR 00825 M00S00796.1cd +++| CWD CM 00826 M00S00797.1cd +++| LJM MGR1 STORE STATUS BLOCK 00827 M00S00798.1cd +++| TITLE PROCESS OPERATOR REQUESTS. 00828 M00S00799.1cd +++| CPH SPACE 4,10 00829 M00S00800.1cd +++|** CPH - CLEAR PRINTER HOLDING. 00830 M00S00801.1cd +++|* 00831 M00S00802.1cd +++|* EXIT TO *POF1*. 00832 M00S00803.1cd +++| 00833 M00S00804.1cd +++| 00834 M00S00805.1cd +++| CPH LDN 0 CLEAR HOLD FLAG 00835 M00S00806.1cd +++| STM CMHF 00836 M00S00807.1cd +++|* UJN POF1 PROCESS OPERATOR FLAG 00837 M00S00808.1cd +++| POF SPACE 4,15 00838 M00S00809.1cd +++|** POF - PROCESS OPERATOR FLAG. 00839 M00S00810.1cd +++|* 00840 M00S00811.1cd +++|* ENTRY (A) = OPERATOR REQUEST. 00841 M00S00812.1cd +++|* (EQ) = DEVICE TYPE. 00842 M00S00813.1cd +++|* (CM - CM+4) = BUFFER POINT WORD. 00843 M00S00814.1cd +++|* 00844 M00S00815.1cd +++|* USES CM+4, T1, T3. 00845 M00S00816.1cd +++|* 00846 M00S00817.1cd +++|* CALLS PROCESSOR WITH THE FOLLOWING CONDITIONS - 00847 M00S00818.1cd +++|* (EQ) = DEVICE TYPE. 00848 M00S00819.1cd +++|* (T3) = REQUEST PARAMETER. 00849 M00S00820.1cd +++|* BUFFER NOT BUSY. 00850 M00S00821.1cd +++|* 00851 M00S00822.1cd +++|* MACROS NFA. 00852 M00S00823.1cd +++| 00853 M00S00824.1cd +++| 00854 M00S00825.1cd +++| POF1 LDM CMER SET REPEAT COUNT 00855 M00S00826.1cd +++| SHN 6 00856 M00S00827.1cd +++| STD CM+4 00857 M00S00828.1cd +++| NFA BF,R STORE BUFFER POINT WORD 00858 M00S00829.1cd +++| CWD CM 00859 M00S00830.1cd +++| 00860 M00S00831.1cd +++| POF SUBR ENTRY/EXIT 00861 M00S00832.1cd +++| STD T1 SET REQUEST 00862 M00S00833.1cd +++| SBN FPRE 00863 M00S00834.1cd +++| PJN POF1 IF ILLEGAL REQUEST 00864 M00S00835.1cd +++| LDD BS+4 00865 M00S00836.1cd +++| LPN 1 00866 M00S00837.1cd +++| ZJN POFX IF BUFFER BUSY 00867 M00S00838.1cd +++| LDM CMPA 00868 M00S00839.1cd +++| LMC TOPA 00869 M00S00840.1cd +++| ZJN POFX IF TERMINATION PROCESSING 00870 M00S00841.1cd +++| LDD CM+4 SET REQUEST PARAMETER 00871 M00S00842.1cd +++| SHN -6 00872 M00S00843.1cd +++| STD T3 00873 M00S00844.1cd +++| LDM TOPF,T1 PROCESS REQUEST 00874 M00S00845.1cd +++| STD T1 00875 M00S00846.1cd +++| LJM 0,T1 EXIT TO PROCESSOR 00876 M00S00847.1cd +++| CNT SPACE 4,10 00877 M00S00848.1cd +++|** CNT - CONTINUE PRINTING. 00878 M00S00849.1cd +++|* 00879 M00S00850.1cd +++|* EXIT TO *POFX*. 00880 M00S00851.1cd +++|* 00881 M00S00852.1cd +++|* CALLS SDM. 00882 M00S00853.1cd +++| 00883 M00S00854.1cd +++| 00884 M00S00855.1cd +++| CNT LDN 0 00885 M00S00856.1cd +++| STM CMHF 00886 M00S00857.1cd +++| LDN CNTM SEND DAYFILE MESSAGE 00887 M00S00858.1cd +++| RJM SDM 00888 M00S00859.1cd +++| CNT1 UJN POFX RETURN 00889 M00S00860.1cd +++| HLD SPACE 4,10 00890 M00S00861.1cd +++|** HLD - HOLD PRINTING. 00891 M00S00862.1cd +++|* 00892 M00S00863.1cd +++|* EXIT TO *CNT1*. 00893 M00S00864.1cd +++|* 00894 M00S00865.1cd +++|* CALLS MSG, SDM. 00895 M00S00866.1cd +++| 00896 M00S00867.1cd +++| 00897 M00S00868.1cd +++| HLD LDN HLDM 00898 M00S00869.1cd +++| RJM SDM SEND DAYFILE MESSAGE 00899 M00S00870.1cd +++| LDN EHLD 00900 M00S00871.1cd +++| RJM MSG ISSUE BUFFER POINT MESSAGE 00901 M00S00872.1cd +++| LDM CMHF 00902 M00S00873.1cd +++| SCN 1 SET HOLD FLAG 00903 M00S00874.1cd +++| HLD1 LMN 1 00904 M00S00875.1cd +++| STM CMHF 00905 M00S00876.1cd +++| HLD2 UJN CNT1 RETURN 00906 M00S00877.1cd +++| PPF SPACE 4,10 00907 M00S00878.1cd +++|** PPF - POSITION PRINT FILE. 00908 M00S00879.1cd +++|* 00909 M00S00880.1cd +++|* EXIT TO *HLD1* IF DRIVER NOT HOLDING. 00910 M00S00881.1cd +++|* TO *HLD2* IF DRIVER HOLDING. 00911 M00S00882.1cd +++|* 00912 M00S00883.1cd +++|* USES CM - CM+4. 00913 M00S00884.1cd +++|* 00914 M00S00885.1cd +++|* CALLS CPS. 00915 M00S00886.1cd +++|* 00916 M00S00887.1cd +++|* MACROS NFA. 00917 M00S00888.1cd +++| 00918 M00S00889.1cd +++| 00919 M00S00890.1cd +++| PPF LDM CMHF CHECK DRIVER HOLDING 00920 M00S00891.1cd +++| LPN 2 00921 M00S00892.1cd +++| ZJN HLD1 IF DRIVER NOT HOLDING 00922 M00S00893.1cd +++| LDN ZERL SET UP BUFFER POINT PARAMETERS 00923 M00S00894.1cd +++| CRD CM 00924 M00S00895.1cd +++| LDN EHLD 00925 M00S00896.1cd +++| STD CM SET MESSAGE CODE 00926 M00S00897.1cd +++| LDM CMER 00927 M00S00898.1cd +++| STD CM+4 SET REPEAT COUNT 00928 M00S00899.1cd +++| NFA BF,R 00929 M00S00900.1cd +++| ADN 1 STORE BUFFER POINT WORD 00930 M00S00901.1cd +++| CWD CM 00931 M00S00902.1cd +++| LDC PORF+1000 PROCESS OPERATOR REQUEST 00932 M00S00903.1cd +++| RJM CPS 00933 M00S00904.1cd +++| UJN HLD2 RETURN 00934 M00S00905.1cd +++| RRN SPACE 4,10 00935 M00S00906.1cd +++|** RRN - PROCESS RERUN. 00936 M00S00907.1cd +++|* 00937 M00S00908.1cd +++|* ENTRY (EQ) = DEVICE TYPE.
| Line S00909 Modification History | |
|---|---|
M01 (Removed by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 00938 M01S00909.ns2319 ---|* (T3) = REQUESTED RERUN PRIORITY. 00939 M00S00910.1cd +++|* 00940 M00S00911.1cd +++|* EXIT TO *END2* IF CARD READER. 00941 M00S00912.1cd +++|* TO *TOP1* IF PUNCH OR PRINTER. 00942 M00S00913.1cd +++|* 00943 M00S00914.1cd +++|* CALLS SDM. 00944 M00S00915.1cd +++| 00945 M00S00916.1cd +++| 00946 M00S00917.1cd +++| RRN LDD EQ 00947 M00S00918.1cd +++| SBK CRDT 00948 M00S00919.1cd +++| ZJN END2 IF CARD READER 00949 M00S00920.1cd +++| LDN RRNM ISSUE RERUN MESSAGE 00950 M00S00921.1cd +++| RJM SDM 00951 M00S00922.1cd +++|* LDN 0 CLEAR MESSAGE REQUEST 00952 M00S00923.1cd +++| STM CMMR 00953 M00S00924.1cd +++| LDC RQFF+1000 REQUEUE FILE 00954 M00S00925.1cd +++| LJM TOP1 TERMINATE OPERATION 00955 M00S00926.1cd +++| END SPACE 4,10 00956 M00S00927.1cd +++|** END - PROCESS *END*. 00957 M00S00928.1cd +++|* 00958 M00S00929.1cd +++|* ENTRY (T3) = NUMBER OF ENDS TO FORCE. 00959 M00S00930.1cd +++|* 00960 M00S00931.1cd +++|* EXIT TO *PSE*. 00961 M00S00932.1cd +++|* 00962 M00S00933.1cd +++|* USES T1, T3. 00963 M00S00934.1cd +++| 00964 M00S00935.1cd +++|* 00965 M00S00936.1cd +++|* CALLS ECB, SDM, SFA. 00966 M00S00937.1cd +++| 00967 M00S00938.1cd +++| 00968 M00S00939.1cd +++| END LDD T3 FORCE ONE END 00969 M00S00940.1cd +++| NJN END1 IF .GE. ONE END 00970 M00S00941.1cd +++| AOD T3 00971 M00S00942.1cd +++| END1 AOM CMER DECREMENT REPEAT COUNT 00972 M00S00943.1cd +++| SBD T3 00973 M00S00944.1cd +++| PJN END2 IF REPEAT COUNT .GE. END COUNT 00974 M00S00945.1cd +++| ADN 1 CLEAR REPEAT COUNT 00975 M00S00946.1cd +++| RAD T3 00976 M00S00947.1cd +++| LDN 0 CLEAR REPEAT COUNT 00977 M00S00948.1cd +++| END2 STM CMER 00978 M00S00949.1cd +++| LDN ENDM SEND DAYFILE MESSAGE 00979 M00S00950.1cd +++| RJM SDM 00980 M00S00951.1cd +++| LDC 1031 SET EOI/EOF 00981 M00S00952.1cd +++| STD BS+4 00982 M00S00953.1cd +++| RJM SFA STORE BUFFER STATUS 00983 M00S00954.1cd +++| CWD BS 00984 M00S00955.1cd +++| RJM ECB EMPTY CENTRAL BUFFER 00985 M00S00956.1cd +++| LDM ENDA,EQ 00986 M00S00957.1cd +++| STM CMPA 00987 M00S00958.1cd +++| LJM PSE PAUSE 00988 M00S00959.1cd +++| 00989 M00S00960.1cd +++| 00990 M00S00961.1cd +++| ENDA INDEX *END* PROCESSOR 00991 M00S00962.1cd +++| INDEX LPDT,/3CZ/LPN PRINT DAYFILE 00992 M00S00963.1cd +++| INDEX CPDT,/3CZ/PED END OF FILE 00993 M00S00964.1cd +++| INDEX CRDT,TOP TERMINATE OPERATION 00994 M00S00965.1cd +++| INDEX NPDT,/3CY/NPN PRINT DAYFILE 00995 M00S00966.1cd +++| INDEX MXDT 00996 M00S00967.1cd +++| REP SPACE 4,15 00997 M00S00968.1cd +++|** REP - PROCESS REPEAT. 00998 M00S00969.1cd +++|* 00999 M00S00970.1cd +++|* ENTRY (T3) = NUMBER OF REPEATS. 01000 M00S00971.1cd +++|* 01001 M00S00972.1cd +++|* EXIT TO *POFX*. 01002 M00S00973.1cd +++|* 01003 M00S00974.1cd +++|* USES T3. 01004 M00S00975.1cd +++|* 01005 M00S00976.1cd +++|* CALLS SDM. 01006 M00S00977.1cd +++| 01007 M00S00978.1cd +++| 01008 M00S00979.1cd +++| REP LDD T3 01009 M00S00980.1cd +++| NJN REP1 IF .GE. ONE REPEAT 01010 M00S00981.1cd +++| AOD T3 01011 M00S00982.1cd +++| REP1 RAM CMER ADVANCE REPEAT COUNT 01012 M00S00983.1cd +++| SHN -6 01013 M00S00984.1cd +++| ZJN REP2 IF REPEAT COUNT .LE. 77 01014 M00S00985.1cd +++| LDN 77 01015 M00S00986.1cd +++| STM CMER 01016 M00S00987.1cd +++| REP2 LDN REPM SEND DAYFILE MESSAGE 01017 M00S00988.1cd +++| RJM SDM 01018 M00S00989.1cd +++| REP3 LJM POFX RETURN 01019 M00S00990.1cd +++| SUP SPACE 4,10 01020 M00S00991.1cd +++|** SUP - TOGGLE SUPPRESS FLAG. 01021 M00S00992.1cd +++|* 01022 M00S00993.1cd +++|* EXIT TO *REP3*. 01023 M00S00994.1cd +++|* 01024 M00S00995.1cd +++|* CALLS SDM. 01025 M00S00996.1cd +++| 01026 M00S00997.1cd +++| 01027 M00S00998.1cd +++| SUP LDM CMSF TOGGLE SUPPRESS FLAG 01028 M00S00999.1cd +++| LMN 4 01029 M00S01000.1cd +++| STM CMSF 01030 M00S01001.1cd +++| LDN SUPM SEND DAYFILE MESSAGE 01031 M00S01002.1cd +++| RJM SDM 01032 M00S01003.1cd +++| UJN REP3 RETURN 01033 M00S01004.1cd +++| TOPF SPACE 4,30 01034 M00S01005.1cd +++|** TOPF - TABLE OF OPERATOR REQUESTS PROCESSORS. 01035 M00S01006.1cd +++|* 01036 M00S01007.1cd +++|* INDEXED BY REQUEST CODE. (DEFINED IN COMSBIO) 01037 M00S01008.1cd +++|* ONE WORD ENTRY IN FORMAT - 01038 M00S01009.1cd +++|* 01039 M00S01010.1cd +++|*T, 12/ ADDR
Figure
01040 M00S01011.1cd +++|* ADDR ADDRESS OF REQUEST PROCESSOR. 01041 M00S01012.1cd +++| 01042 M00S01013.1cd +++| 01043 M00S01014.1cd +++| TOPF INDEX 01044 M00S01015.1cd +++| INDEX ENDM,END END 01045 M00S01016.1cd +++| INDEX REPM,REP REPEAT 01046 M00S01017.1cd +++| INDEX SUPM,SUP SUPPRESS 01047 M00S01018.1cd +++| INDEX RRNM,RRN RERUN 01048 M00S01019.1cd +++| INDEX HLDM,HLD HOLD 01049 M00S01020.1cd +++| INDEX CNTM,CNT CONTINUE 01050 M00S01021.1cd +++| INDEX BKPO,PPF BACKSPACE PRUS 01051 M00S01022.1cd +++| INDEX BKRO,PPF BACKSPACE RECORDS 01052 M00S01023.1cd +++| INDEX BKFO,PPF BACKSPACE FILES 01053 M00S01024.1cd +++| INDEX SKPO,PPF SKIP PRUS 01054 M00S01025.1cd +++| INDEX SKRO,PPF SKIP RECORDS 01055 M00S01026.1cd +++| INDEX SKFO,PPF SKIP FILES 01056 M00S01027.1cd +++| INDEX CPHP,CPH CLEAR PRINTER HOLDING 01057 M00S01028.1cd +++| INDEX LNLP,PPF LOCATE NEXT LINE 01058 M00S01029.1cd +++| INDEX LCBP,PPF LOAD CENTRAL BUFFER 01059 M00S01030.1cd +++| INDEX FPRE TABLE TERMINATOR 01060 M00S01031.1cd +++| TITLE COMMON SUBROUTINES. 01061 M00S01032.1cd +++| ACT SPACE 4,10 01062 M00S01033.1cd +++|** ACT - PROCESS ACCOUNTING INFORMATION. 01063 M00S01034.1cd +++|* 01064 M00S01035.1cd +++|* EXIT (A) = STATUS RESPONSE FROM *CPS*. 01065 M00S01036.1cd +++|* 01066 M00S01037.1cd +++|* USES CM, CM+3 - CM+4. 01067 M00S01038.1cd +++|* 01068 M00S01039.1cd +++|* CALLS CPS. 01069 M00S01040.1cd +++| 01070 M00S01041.1cd +++| 01071 M00S01042.1cd +++| ACT SUBR ENTRY/EXIT 01072 M00S01043.1cd +++| LDD EQ 01073 M00S01044.1cd +++| STD CM+1 ENTER EQUIPMENT TYPE 01074 M00S01045.1cd +++| LDM CMRC 01075 M00S01046.1cd +++| STD CM+3 01076 M00S01047.1cd +++| LDM CMRC+1 01077 M00S01048.1cd +++| STD CM+4 01078 M00S01049.1cd +++| LDD FT STORE REQUEST IN BUFFER 01079 M00S01050.1cd +++| SHN 6 01080 M00S01051.1cd +++| ADD RA 01081 M00S01052.1cd +++| SHN 6 01082 M00S01053.1cd +++| ADD FT+1 01083 M00S01054.1cd +++| CWD CM 01084 M00S01055.1cd +++| LDC ACTF+1000 PROCESS ACCOUNTING 01085 M00S01056.1cd +++| RJM CPS 01086 M00S01057.1cd +++| UJN ACTX RETURN 01087 M00S01058.1cd +++| ADB SPACE 4,10 01088 M00S01059.1cd +++|** ADB - ASSIGN DATA BUFFER. 01089 M00S01060.1cd +++|* 01090 M00S01061.1cd +++|* ENTRY (DB) = FWA OF LAST DATA BUFFER USED. 01091 M00S01062.1cd +++|* 01092 M00S01063.1cd +++|* EXIT (A) = (DA) = (CMDB) = BUFFER ADDRESS. 01093 M00S01064.1cd +++|* (DB) = FWA OF DATA BUFFER ASSIGNED. 01094 M00S01065.1cd +++|* ((DB)) = RELATIVE LOCATION BUFFER INDEX. 01095 M00S01066.1cd +++|* TO *MGR1* IF NO DATA BUFFER AVAILABLE. 01096 M00S01067.1cd +++|* 01097 M00S01068.1cd +++|* USES DA, DB, T7. 01098 M00S01069.1cd +++| 01099 M00S01070.1cd +++| 01100 M00S01071.1cd +++| ADB3 LDD BI SET BUFFER ASSIGNED 01101 M00S01072.1cd +++| STI DB 01102 M00S01073.1cd +++| LDD DB ADDRESS OF DATA BUFFER 01103 M00S01074.1cd +++| ADN 1 01104 M00S01075.1cd +++| STM CMDB FWA OF DATA (DB+1) IN DATA BUFFER 01105 M00S01076.1cd +++| ADB4 STD DA 01106 M00S01077.1cd +++| 01107 M00S01078.1cd +++| ADB SUBR ENTRY/EXIT 01108 M00S01079.1cd +++| LDM CMDB 01109 M00S01080.1cd +++| NJN ADB4 IF DATA BUFFER IS ASSIGNED TO THIS DEVICE 01110 M00S01081.1cd +++| STD T7 01111 M00S01082.1cd +++| ADB1 LDI DB 01112 M00S01083.1cd +++| ZJN ADB3 IF THIS DATA BUFFER NOT ASSIGNED 01113 M00S01084.1cd +++| LDC 0 CHECK NEXT DATA BUFFER 01114 M00S01085.1cd +++| ADBA EQU *-1 (DATA BUFFER SIZE SET BY *PRS*) 01115 M00S01086.1cd +++| RAD DB 01116 M00S01087.1cd +++| LMC 0 01117 M00S01088.1cd +++| ADBB EQU *-1 (LWA+1 OF DATA BUFFERS SET BY *PRS*) 01118 M00S01089.1cd +++| NJN ADB2 IF NOT LAST DATA BUFFER 01119 M00S01090.1cd +++| LDC 0 LOOP TO FIRST DATA BUFFER 01120 M00S01091.1cd +++| ADBC EQU *-1 (FWA OF DATA BUFFERS SET BY *PRS*) 01121 M00S01092.1cd +++| STD DB 01122 M00S01093.1cd +++| ADB2 AOD T7 01123 M00S01094.1cd +++| ADBD LMN 0 (NUMBER OF DATA BUFFERS SET BY *PRS*) 01124 M00S01095.1cd +++| NJN ADB1 IF NOT ALL DATA BUFFERS CHECKED 01125 M00S01096.1cd +++| LJM MGR1 IGNORE REQUEST 01126 M00S01097.1cd +++| AOP SPACE 4,10 01127 M00S01098.1cd +++|** AOP - ADVANCE OUT POINTER. 01128 M00S01099.1cd +++|* 01129 M00S01100.1cd +++|* ENTRY (A) = NUMBER OF WORDS TO ADVANCE POINTER. 01130 M00S01101.1cd +++|* 01131 M00S01102.1cd +++|* USES OT - OT+1. 01132 M00S01103.1cd +++|* 01133 M00S01104.1cd +++|* CALLS CDB. 01134 M00S01105.1cd +++| 01135 M00S01106.1cd +++| 01136 M00S01107.1cd +++| AOP SUBR ENTRY/EXIT 01137 M00S01108.1cd +++| RAD OT+1 ADVANCE OUT POINTER 01138 M00S01109.1cd +++| SHN -14 01139 M00S01110.1cd +++| RAD OT 01140 M00S01111.1cd +++| SBD LM OUT - LIMIT 01141 M00S01112.1cd +++| SHN 14 01142 M00S01113.1cd +++| ADD OT+1 01143 M00S01114.1cd +++| SBD LM+1 01144 M00S01115.1cd +++| MJN AOP1 IF NO WRAP AROUND 01145 M00S01116.1cd +++| ADD FT+1 01146 M00S01117.1cd +++| STD OT+1 01147 M00S01118.1cd +++| SHN -14 01148 M00S01119.1cd +++| ADD FT 01149 M00S01120.1cd +++| STD OT 01150 M00S01121.1cd +++| AOP1 RJM CDB CHECK DATA REMAINING IN BUFFER 01151 M00S01122.1cd +++| UJN AOPX RETURN 01152 M00S01123.1cd +++| CCE SPACE 4,15 01153 M00S01124.1cd +++|** CCE - CHECK FOR CHANNEL ERROR. 01154 M00S01125.1cd +++|* 01155 M00S01126.1cd +++|* ENTRY (A) = STATUS/DATA INDEX. 01156 M00S01127.1cd +++|* (T5) = FUNCTION CODE. 01157 M00S01128.1cd +++|* 01158 M00S01129.1cd +++|* EXIT (A) = 0 IF NO ERROR. 01159 M00S01130.1cd +++|* 1 IF CHANNEL ERROR FLAG SET. 01160 M00S01131.1cd +++|* 01161 M00S01132.1cd +++|* USES T1, FC. 01162 M00S01133.1cd +++|* 01163 M00S01134.1cd +++|* CALLS CRV, PRE. 01164 M00S01135.1cd +++| 01165 M00S01136.1cd +++| 01166 M00S01137.1cd +++| CCE1 LDD T5 SAVE FUNCTION CODE FOR ERROR MESSAGE 01167 M00S01138.1cd +++| STD FC 01168 M00S01139.1cd +++| LDD T1 PROCESS RETRIED ERROR 01169 M00S01140.1cd +++| RJM PRE 01170 M00S01141.1cd +++| LDN 1 ERROR RETURN 01171 M00S01142.1cd +++| 01172 M00S01143.1cd +++| CCE SUBR ENTRY/EXIT 01173 M00S01144.1cd +++| STD T1 SAVE STATUS/DATA INDEX
| Line S01145 Modification History | |
|---|---|
M01 (Removed by) | 1cd4 |
Seq # *Modification Id* Act ----------------------------+ 01174 M01S01145.1cd4 ---| CCEA SFM CCE1,CH IF CHANNEL ERROR FLAG SET
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1cd4 |
Seq # *Modification Id* Act ----------------------------+ 01175 M01S00001.1cd4 +++| CCEA SFM. CCE1,CH IF CHANNEL ERROR FLAG SET 01176 M00S01146.1cd +++| RJM CRV CHECK FOR RECOVERED ERROR 01177 M00S01147.1cd +++|* LDN 0 01178 M00S01148.1cd +++| UJN CCEX RETURN 01179 M00S01149.1cd +++| CDB SPACE 4,10 01180 M00S01150.1cd +++|** CDB - CHECK DATA IN OUTPUT BUFFER. 01181 M00S01151.1cd +++|* 01182 M00S01152.1cd +++|* EXIT (A) = (CMBE) = NUMBER OF WORDS IN BUFFER. 01183 M00S01153.1cd +++| 01184 M00S01154.1cd +++| 01185 M00S01155.1cd +++| CDB SUBR ENTRY/EXIT 01186 M00S01156.1cd +++| LDD IN LENGTH = IN - OUT 01187 M00S01157.1cd +++| SBD OT 01188 M00S01158.1cd +++| SHN 14 01189 M00S01159.1cd +++| ADD IN+1 01190 M00S01160.1cd +++| SBD OT+1 01191 M00S01161.1cd +++| PJN CDB1 IF IN .GE. OUT 01192 M00S01162.1cd +++| SHN 6 LENGTH = (LIMIT - OUT) + (IN - FIRST) 01193 M00S01163.1cd +++| ADD LM 01194 M00S01164.1cd +++| SBD FT 01195 M00S01165.1cd +++| SHN 14 01196 M00S01166.1cd +++| ADD LM+1 01197 M00S01167.1cd +++| SBD FT+1 01198 M00S01168.1cd +++| CDB1 STM CMBE SET LENGTH 01199 M00S01169.1cd +++| UJN CDBX RETURN 01200 M00S01170.1cd +++| CEP SPACE 4,10 01201 M00S01171.1cd +++|** CEP - CHANNEL ERROR PROCESSOR. 01202 M00S01172.1cd +++|* 01203 M00S01173.1cd +++|* EXIT TO *TOP2*. 01204 M00S01174.1cd +++|* 01205 M00S01175.1cd +++|* USES BR. 01206 M00S01176.1cd +++|* 01207 M00S01177.1cd +++|* CALLS RDB. 01208 M00S01178.1cd +++| 01209 M00S01179.1cd +++| 01210 M00S01180.1cd +++| CEP RJM RDB RELEASE DATA BUFFER 01211 M00S01181.1cd +++| STM CMMR CLEAR DAYFILE MESSAGE REQUEST 01212 M00S01182.1cd +++| AOD BR SET BUSY RETURN 01213 M00S01183.1cd +++| LDC CECF+1000 DEACTIVATE EQUIPMENT 01214 M00S01184.1cd +++| STM CMLR 01215 M00S01185.1cd +++| LJM TOP2 TERMINATE OPERATION ON DEVICE 01216 M00S01186.1cd +++| CIB SPACE 4,15 01217 M00S01187.1cd +++|** CIB - CHECK INPUT BUFFER. 01218 M00S01188.1cd +++|* 01219 M00S01189.1cd +++|* EXIT (A) = WORD COUNT OF BUFFER. 01220 M00S01190.1cd +++|* IF WORD COUNT .LT. 1 SECTOR, A CALL WILL BE MADE TO 01221 M00S01191.1cd +++|* DUMP BUFFER. 01222 M00S01192.1cd +++|* IF FIRST WRITE, MAKE PP SERVICE CALL TO INITIATE 01223 M00S01193.1cd +++|* INPUT FILE. 01224 M00S01194.1cd +++|* 01225 M00S01195.1cd +++|* USES BS+4, T1. 01226 M00S01196.1cd +++|* 01227 M00S01197.1cd +++|* CALLS CPS. 01228 M00S01198.1cd +++| 01229 M00S01199.1cd +++| 01230 M00S01200.1cd +++| CIB SUBR ENTRY/EXIT 01231 M00S01201.1cd +++| LDD BS+4 CHECK CURRENT STATUS 01232 M00S01202.1cd +++| LPN 21 01233 M00S01203.1cd +++| LMN 20 01234 M00S01204.1cd +++| ZJP MGR1 IF BUFFER BUSY AND EOR 01235 M00S01205.1cd +++| LDD OT LENGTH = OUT - IN 01236 M00S01206.1cd +++| SBD IN 01237 M00S01207.1cd +++| SHN 14 01238 M00S01208.1cd +++| ADD OT+1 01239 M00S01209.1cd +++| SBD IN+1 01240 M00S01210.1cd +++| ZJN CIB1 IF IN = OUT 01241 M00S01211.1cd +++| PJN CIB2 IF IN .LT. OUT 01242 M00S01212.1cd +++| CIB1 SHN 6 01243 M00S01213.1cd +++| ADD LM 01244 M00S01214.1cd +++| SBD FT LENGTH = (LIMIT - IN) + (OUT - FIRST) 01245 M00S01215.1cd +++| SHN 14 01246 M00S01216.1cd +++| ADD LM+1 01247 M00S01217.1cd +++| SBD FT+1 01248 M00S01218.1cd +++| CIB2 SBN 1 01249 M00S01219.1cd +++| STD T1 SAVE LENGTH 01250 M00S01220.1cd +++| SHN -6 01251 M00S01221.1cd +++| NJN CIB4 IF LENGTH .GE. 1 SECTOR 01252 M00S01222.1cd +++| LDD BS+4 01253 M00S01223.1cd +++| LPN 3 01254 M00S01224.1cd +++| STD BS+4 REQUEST BUFFER WRITE 01255 M00S01225.1cd +++| LDD FA 01256 M00S01226.1cd +++| ZJN CIB3 IF FIRST WRITE 01257 M00S01227.1cd +++| LDC WTIF+1000&14 01258 M00S01228.1cd +++| CIB3 LMC WTIF+1000 SET REQUEST 01259 M00S01229.1cd +++| RJM CPS 01260 M00S01230.1cd +++| CIB4 LDD T1 SET LENGTH 01261 M00S01231.1cd +++| LJM CIBX RETURN 01262 M00S01232.1cd +++| CLB SPACE 4,15 01263 M00S01233.1cd +++|** CLB - CLEAR INTERNAL BUFFER. 01264 M00S01234.1cd +++|* 01265 M00S01235.1cd +++|* ENTRY (EQ) = EQUIPMENT TYPE CODE. 01266 M00S01236.1cd +++|* 01267 M00S01237.1cd +++|* EXIT (A) = 0. 01268 M00S01238.1cd +++|* (T3) = ADDRESS OF *CMER*. 01269 M00S01239.1cd +++|* (BR) .NE. 0 (BUSY RETURN SET). 01270 M00S01240.1cd +++|* (CMPA) = PROCESSOR ADDRESS. 01271 M00S01241.1cd +++|* (CMCT) = DEFAULT CONVERSION MODE. 01272 M00S01242.1cd +++| 01273 M00S01243.1cd +++| 01274 M00S01244.1cd +++| CLB SUBR ENTRY/EXIT 01275 M00S01245.1cd +++| LDC EQSB+CMER SET LOWER LIMIT 01276 M00S01246.1cd +++| STD BR 01277 M00S01247.1cd +++| ADN CMDA-CMER-1 SET UPPER LIMIT 01278 M00S01248.1cd +++| STD T3 01279 M00S01249.1cd +++| LDM TEQD,EQ SET PROCESSOR ADDRESS 01280 M00S01250.1cd +++| STM CMPA 01281 M00S01251.1cd +++| LDM TDCM,EQ SET DEFAULT CONVERSION MODE 01282 M00S01252.1cd +++| STM CMCT 01283 M00S01253.1cd +++| CLB1 LDN 0 CLEAR BUFFER 01284 M00S01254.1cd +++| STI T3 01285 M00S01255.1cd +++| SOD T3 DECREMENT BUFFER ADDRESS 01286 M00S01256.1cd +++| LMD BR 01287 M00S01257.1cd +++| NJN CLB1 IF NOT LOWER LIMIT 01288 M00S01258.1cd +++| UJN CLBX RETURN 01289 M00S01259.1cd +++| COB SPACE 4,15 01290 M00S01260.1cd +++|** COB - CHECK OUTPUT BUFFER. 01291 M00S01261.1cd +++|* 01292 M00S01262.1cd +++|* EXIT (A) = WORD COUNT OF BUFFER. 01293 M00S01263.1cd +++|* IF WORD COUNT .LT. 1 SECTOR AND STATUS .NE. EOR 01294 M00S01264.1cd +++|* OR EOF, A CALL WILL BE MADE TO FILL BUFFER. 01295 M00S01265.1cd +++|* IF FILE IS A 12 BIT ASCII PRINT FILE, THE WORD 01296 M00S01266.1cd +++|* COUNT THRESHOLD CHECK MADE IS FOR .LT. 2 SECTORS 01297 M00S01267.1cd +++|* RATHER THAN 1 SECTOR. 01298 M00S01268.1cd +++|* IF BUFFER IS EMPTY, AND STATUS = EOR OR EOF, EXIT 01299 M00S01269.1cd +++|* WILL BE TAKEN TO APPROPRIATE PROCESSOR. 01300 M00S01270.1cd +++|* 01301 M00S01271.1cd +++|* USES BS+4, T1 - T2. 01302 M00S01272.1cd +++|* 01303 M00S01273.1cd +++|* CALLS CDB, CPS. 01304 M00S01274.1cd +++| 01305 M00S01275.1cd +++| 01306 M00S01276.1cd +++| COB3 LDD BS+4 01307 M00S01277.1cd +++| LPN 1 01308 M00S01278.1cd +++| ZJN COB4 IF BUFFER BUSY 01309 M00S01279.1cd +++| STD BS+4 01310 M00S01280.1cd +++| LDM COBC,EQ REQUEST READ 01311 M00S01281.1cd +++| RJM CPS 01312 M00S01282.1cd +++| COB4 LDD T1 RETURN WITH LENGTH 01313 M00S01283.1cd +++| 01314 M00S01284.1cd +++| COB SUBR ENTRY/EXIT 01315 M00S01285.1cd +++| RJM CDB CHECK DATA IN OUTPUT BUFFER 01316 M00S01286.1cd +++| STD T1 SAVE LENGTH 01317 M00S01287.1cd +++| SBM CMBT 01318 M00S01288.1cd +++| PJN COB4 IF LENGTH .LT. 1 OR 2 SECTORS 01319 M00S01289.1cd +++| LDD BS+4 CHECK BUFFER STATUS 01320 M00S01290.1cd +++| LPN 20 01321 M00S01291.1cd +++| ZJN COB3 IF NOT EOR/EOF 01322 M00S01292.1cd +++| LDD T1 01323 M00S01293.1cd +++| NJN COBX IF BUFFER NOT EMPTY 01324 M00S01294.1cd +++| LDD BS+4 01325 M00S01295.1cd +++| LPN 10 01326 M00S01296.1cd +++| NJN COB1 IF EOF/EOI 01327 M00S01297.1cd +++| LDM COBA,EQ 01328 M00S01298.1cd +++| UJN COB2 SET EOR PROCESSOR 01329 M00S01299.1cd +++| 01330 M00S01300.1cd +++| COB1 LDM COBB,EQ SET EOF/EOI PROCESSOR 01331 M00S01301.1cd +++| COB2 STD T2 01332 M00S01302.1cd +++| LJM 0,T2 PROCESS EOF 01333 M00S01303.1cd +++| 01334 M00S01304.1cd +++| 01335 M00S01305.1cd +++|* END OF RECORD PROCESSORS. 01336 M00S01306.1cd +++| 01337 M00S01307.1cd +++| COBA INDEX 01338 M00S01308.1cd +++| INDEX LPDT,COB3 READ NEXT RECORD 01339 M00S01309.1cd +++| INDEX CPDT,/3CZ/PER PUNCH EOR 01340 M00S01310.1cd +++| INDEX NPDT,COB3 READ NEXT RECORD 01341 M00S01311.1cd +++| INDEX MXDT 01342 M00S01312.1cd +++| 01343 M00S01313.1cd +++|* END OF FILE PROCESSORS. 01344 M00S01314.1cd +++| 01345 M00S01315.1cd +++| COBB INDEX 01346 M00S01316.1cd +++| INDEX LPDT,/3CZ/LEF LIST END OF INFORMATION 01347 M00S01317.1cd +++| INDEX CPDT,/3CZ/PEF PUNCH END OF FILE 01348 M00S01318.1cd +++| INDEX NPDT,/3CY/NEF LIST END OF INFORMATION 01349 M00S01319.1cd +++| INDEX MXDT 01350 M00S01320.1cd +++| 01351 M00S01321.1cd +++|* READ REQUEST CODES. 01352 M00S01322.1cd +++| 01353 M00S01323.1cd +++| COBC INDEX 01354 M00S01324.1cd +++| INDEX LPDT,600 READEI 01355 M00S01325.1cd +++| INDEX CPDT,10 READ 01356 M00S01326.1cd +++| INDEX NPDT,600 READEI 01357 M00S01327.1cd +++| INDEX MXDT 01358 M00S01328.1cd +++| CPS SPACE 4,15 01359 M00S01329.1cd +++|** CPS - CALL PP SERVICE PROGRAM. 01360 M00S01330.1cd +++|* 01361 M00S01331.1cd +++|* ENTRY (A) = REQUEST. 01362 M00S01332.1cd +++|* 01363 M00S01333.1cd +++|* EXIT (A) = 0 IF REQUEST NOT ACCEPTED. 01364 M00S01334.1cd +++|* 01365 M00S01335.1cd +++|* USES BS+4, T0, CM - CM+4. 01366 M00S01336.1cd +++|* 01367 M00S01337.1cd +++|* CALLS *CIO*, *QAP*, SFA. 01368 M00S01338.1cd +++|* 01369 M00S01339.1cd +++|* MACROS EXECUTE, MONITOR. 01370 M00S01340.1cd +++| 01371 M00S01341.1cd +++| 01372 M00S01342.1cd +++| CPS SUBR ENTRY/EXIT 01373 M00S01343.1cd +++| STD T0 SAVE REQUEST 01374 M00S01344.1cd +++| SHN -9D 01375 M00S01345.1cd +++| STD CM+2 01376 M00S01346.1cd +++| ZJN CPS1 IF CIO REQUEST 01377 M00S01347.1cd +++| SHN 9D CLEAR UPPER THREE BITS OF REQUEST 01378 M00S01348.1cd +++| LMD T0 01379 M00S01349.1cd +++| STD T0 01380 M00S01350.1cd +++| LDC 3RPQA&3ROCI 01381 M00S01351.1cd +++| CPS1 LMC 3ROCI 01382 M00S01352.1cd +++| STD CM 01383 M00S01353.1cd +++| SHN -6 01384 M00S01354.1cd +++| SCN 77 01385 M00S01355.1cd +++| STD CM+1 01386 M00S01356.1cd +++| LDD BS+4 SAVE CURRENT BUFFER STATUS 01387 M00S01357.1cd +++| STM CPSB 01388 M00S01358.1cd +++| LPN 1 01389 M00S01359.1cd +++| ZJN CPSX IF BUFFER BUSY 01390 M00S01360.1cd +++| LMD BS+4 01391 M00S01361.1cd +++| LMD T0 01392 M00S01362.1cd +++| ZJN CPSX IF SAME OPERATION 01393 M00S01363.1cd +++| LDD T0 SET REQUEST 01394 M00S01364.1cd +++| STD BS+4 01395 M00S01365.1cd +++| LDD CM+2 01396 M00S01366.1cd +++| STM CMSB 01397 M00S01367.1cd +++| LDI BI SET FET ADDRESS IN CALL 01398 M00S01368.1cd +++| STD CM+3 01399 M00S01369.1cd +++| LDM 1,BI 01400 M00S01370.1cd +++| STD CM+4 01401 M00S01371.1cd +++| RJM SFA STORE BUFFER STATUS 01402 M00S01372.1cd +++| CWD BS 01403 M00S01373.1cd +++| EXECUTE CIO,= 01404 M00S01374.1cd +++| EXECUTE QAP,= 01405 M00S01375.1cd +++| LDD MA 01406 M00S01376.1cd +++| CWD CM 01407 M00S01377.1cd +++| LDN 0 ENABLE QUEUING OF PP REQUEST 01408 M00S01378.1cd +++| STD CM+1 01409 M00S01379.1cd +++| MONITOR RPPM 01410 M00S01380.1cd +++| LDD CM+1 01411 M00S01381.1cd +++| NJN CPS2 IF PP ASSIGNED 01412 M00S01382.1cd +++| LDC * 01413 M00S01383.1cd +++| CPSB EQU *-1 01414 M00S01384.1cd +++| STD BS+4 RESTORE ORIGINAL STATUS 01415 M00S01385.1cd +++| RJM SFA SET FET ADDRESS 01416 M00S01386.1cd +++| CWD BS 01417 M00S01387.1cd +++| LDN 0 01418 M00S01388.1cd +++| STM CMSB 01419 M00S01389.1cd +++| CPS2 LJM CPSX RETURN 01420 M00S01390.1cd +++| CRV SPACE 4,10 01421 M00S01391.1cd +++|** CRV - CHECK FOR RECOVERED ERROR. 01422 M00S01392.1cd +++|* 01423 M00S01393.1cd +++|* ENTRY (A) = INDEX OF ERROR. 01424 M00S01394.1cd +++|* 01425 M00S01395.1cd +++|* EXIT (A) = 0. 01426 M00S01396.1cd +++|* 01427 M00S01397.1cd +++|* USES T1, T3. 01428 M00S01398.1cd +++|* 01429 M00S01399.1cd +++|* CALLS SDM. 01430 M00S01400.1cd +++| 01431 M00S01401.1cd +++| 01432 M00S01402.1cd +++| CRV SUBR ENTRY/EXIT 01433 M00S01403.1cd +++| STD T1 SAVE INDEX 01434 M00S01404.1cd +++| LDM FRCI+EQSB,T1 GET ERROR COUNT 01435 M00S01405.1cd +++| ZJN CRVX IF NO PREVIOUS ERROR 01436 M00S01406.1cd +++| SHN 6 01437 M00S01407.1cd +++| STD T3 SAVE RETRY COUNT 01438 M00S01408.1cd +++| LDN 0 01439 M00S01409.1cd +++| STM FRCI+EQSB,T1 CLEAR ERROR COUNTER 01440 M00S01410.1cd +++| LDM TERC,T1 01441 M00S01411.1cd +++| RJM SDM 01442 M00S01412.1cd +++|* LDN 0 01443 M00S01413.1cd +++| UJN CRVX RETURN 01444 M00S01414.1cd +++| CUL SPACE 4,15 01445 M00S01415.1cd +++|** CUL - CHECK USER LIMIT REACHED. 01446 M00S01416.1cd +++|* 01447 M00S01417.1cd +++|* ENTRY (A) = DECREMENT OF RECORD COUNT. 01448 M00S01418.1cd +++|* (EQ) = EQUIPMENT TYPE CODE. 01449 M00S01419.1cd +++|* 01450 M00S01420.1cd +++|* EXIT (A) = 0 IF USER LIMIT NOT EXCEEDED. 01451 M00S01421.1cd +++|* IF THE USER LIMIT IS EXCEEDED, 01452 M00S01422.1cd +++|* THEN EXIT IS MADE TO THE RESPECTIVE 01453 M00S01423.1cd +++|* DRIVER. 01454 M00S01424.1cd +++|* 01455 M00S01425.1cd +++|* USES T1. 01456 M00S01426.1cd +++|* 01457 M00S01427.1cd +++|* CALLS CPS, ECB, MGR. 01458 M00S01428.1cd +++| 01459 M00S01429.1cd +++| 01460 M00S01430.1cd +++| CUL4 LDN 0 RETURN WITH (A) = 0 01461 M00S01431.1cd +++| 01462 M00S01432.1cd +++| CUL SUBR ENTRY/EXIT 01463 M00S01433.1cd +++| LMC -0 01464 M00S01434.1cd +++| RAM CMRC+1 01465 M00S01435.1cd +++| PJN CUL4 IF NO UNDERFLOW 01466 M00S01436.1cd +++| AOM CMRC+1 01467 M00S01437.1cd +++| SOM CMRC 01468 M00S01438.1cd +++| PJN CUL4 IF USER LIMIT NOT EXCEEDED 01469 M00S01439.1cd +++| AOM CMRC 01470 M00S01440.1cd +++| 01471 M00S01441.1cd +++|* AN EXIT TO *CULX* IS NOT POSSIBLE AFTER THIS POINT. 01472 M00S01442.1cd +++|* (SEE *PROGRAMMING CONSIDERATIONS*.) 01473 M00S01443.1cd +++| 01474 M00S01444.1cd +++| CUL1 RJM MGR GO TO MANAGER 01475 M00S01445.1cd +++| LDD BS+4 CHECK IF BUFFER ACTIVE 01476 M00S01446.1cd +++| SHN 21-0 01477 M00S01447.1cd +++| PJN CUL1 IF BUFFER ACTIVE 01478 M00S01448.1cd +++| RJM ECB EMPTY CENTRAL BUFFER 01479 M00S01449.1cd +++| CUL2 LDC PLEF+1000 REQUEST OUTPUT FILE TERMINATION 01480 M00S01450.1cd +++| RJM CPS 01481 M00S01451.1cd +++| CUL3 RJM MGR GO TO MANAGER 01482 M00S01452.1cd +++| ZJN CUL2 IF REQUEST NOT ENTERED 01483 M00S01453.1cd +++| LDD BS+4 01484 M00S01454.1cd +++| SHN 21-0 01485 M00S01455.1cd +++| PJN CUL3 IF REQUEST NOT COMPLETE
| Line S01456 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01486 M01S01456.ns2597 ---| LDM CMSF CLEAR 12 BIT ASCII STATUS 01487 M01S01457.ns2597 ---| SCN 10
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01488 M01S00001.ns2597 +++| LDM CMSF CLEAR 6/12 AND 8/12 ASCII STATUS 01489 M01S00002.ns2597 +++| SCN 50 01490 M00S01458.1cd +++| STM CMSF 01491 M00S01459.1cd +++| LDM CULA,EQ SET PROCESSOR ADDRESS 01492 M00S01460.1cd +++| STD T1 01493 M00S01461.1cd +++| LJM 0,T1 PROCESS USER VALIDATION EXCEEDED 01494 M00S01462.1cd +++| 01495 M00S01463.1cd +++| 01496 M00S01464.1cd +++| CULA INDEX VALIDATION EXCEEDED PROCESSORS 01497 M00S01465.1cd +++| INDEX LPDT,/3CZ/LPD4 01498 M00S01466.1cd +++| INDEX CPDT,/3CZ/CPD3 01499 M00S01467.1cd +++| INDEX NPDT,/3CY/NPD4 01500 M00S01468.1cd +++| INDEX MXDT 01501 M00S01469.1cd +++|ECB SPACE 4,10 01502 M00S01470.1cd +++|** ECB - EMPTY CIRCULAR BUFFER. 01503 M00S01471.1cd +++|* 01504 M00S01472.1cd +++|* EXIT IN = OUT = FIRST. 01505 M00S01473.1cd +++|* 01506 M00S01474.1cd +++|* CALLS SOP. 01507 M00S01475.1cd +++| 01508 M00S01476.1cd +++| 01509 M00S01477.1cd +++| ECB SUBR ENTRY/EXIT 01510 M00S01478.1cd +++| LDK FT-EQSB SET OUT = FIRST 01511 M00S01479.1cd +++| RJM SOP STORE OUT POINTER 01512 M00S01480.1cd +++| SBN 1 STORE IN POINTER 01513 M00S01481.1cd +++| CWD CM 01514 M00S01482.1cd +++| UJN ECBX RETURN
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01515 M01S00003.ns2597 +++| MCC SPACE 4,10 01516 M01S00004.ns2597 +++|** MCC - MOVE AND CONVERT CHARACTER. 01517 M01S00005.ns2597 +++|* 01518 M01S00006.ns2597 +++|* ENTRY (A) = DISPLAY CODE CHARACTER. 01519 M01S00007.ns2597 +++|* (T2) = BYTE INDEX. 01520 M01S00008.ns2597 +++|* 01521 M01S00009.ns2597 +++|* EXIT (T0) = 0#23, IF ILLEGAL CHARACTER. 01522 M01S00010.ns2597 +++|* (T2) DECREMENTED, IF CHARACTER NOT ESCAPE CODE. 01523 M01S00011.ns2597 +++|* (T3) = UNCONVERTED CHARACTER. 01524 M01S00012.ns2597 +++|* 01525 M01S00013.ns2597 +++|* USES T2, T3. 01526 M01S00014.ns2597 +++| 01527 M01S00015.ns2597 +++| 01528 M01S00016.ns2597 +++| MCC3 ADN 76 SAVE UNCONVERTED NORMAL CHARACTER 01529 M01S00017.ns2597 +++| MCC4 STD T3 01530 M01S00018.ns2597 +++| SOD T2 DECREMENT BUFFER INDEX 01531 M01S00019.ns2597 +++| LDM CTBL,T3 CONVERT CHARACTER 01532 M01S00020.ns2597 +++| MCC5 STM 1,T2 01533 M01S00021.ns2597 +++| 01534 M01S00022.ns2597 +++| MCC SUBR ENTRY/EXIT 01535 M01S00023.ns2597 +++| UJN MCC4 CONVERT CHARACTER 01536 M01S00024.ns2597 +++|* PSN (IF ASCII 6/12 FILE) 01537 M01S00025.ns2597 +++| MCCA EQU *-1 01538 M01S00026.ns2597 +++| SBN 74 01539 M01S00027.ns2597 +++| ZJN MCC1 IF CHARACTER IS ESCAPE CODE 74 01540 M01S00028.ns2597 +++| SBN 76-74 01541 M01S00029.ns2597 +++| NJN MCC3 IF CHARACTER IS NOT ESCAPE CODE 76 01542 M01S00030.ns2597 +++| LDD T3 01543 M01S00031.ns2597 +++| ZJN MCC2 IF 7600 01544 M01S00032.ns2597 +++| SBN 37 01545 M01S00033.ns2597 +++| PJN MCC2 IF 7637 - 7677 01546 M01S00034.ns2597 +++| ADC 140+37 01547 M01S00035.ns2597 +++| UJN MCC5 STORE CONVERTED CHARACTER 01548 M01S00036.ns2597 +++| 01549 M01S00037.ns2597 +++| MCC1 LDD T3 01550 M01S00038.ns2597 +++| SBN MCCBL 01551 M01S00039.ns2597 +++| PJN MCC2 IF ILLEGAL CHARACTER 01552 M01S00040.ns2597 +++| LDM MCCB,T3 01553 M01S00041.ns2597 +++| NJN MCC5 IF LEGAL CHARACTER 01554 M01S00042.ns2597 +++| MCC2 LDN 0#23 FLAG ILLEGAL CHARACTER 01555 M01S00043.ns2597 +++| STD T0 01556 M01S00044.ns2597 +++| LDN 0#20 REPLACE WITH BLANK 01557 M01S00045.ns2597 +++| UJN MCC5 STORE CHARACTER 01558 M01S00046.ns2597 +++| 01559 M01S00047.ns2597 +++| 01560 M01S00048.ns2597 +++|* TABLE OF 74XX CHARACTERS. 01561 M01S00049.ns2597 +++| 01562 M01S00050.ns2597 +++| MCCB BSS 0 01563 M01S00051.ns2597 +++| CON 0 ILLEGAL 01564 M01S00052.ns2597 +++| CON 100 COMMERCIAL AT 01565 M01S00053.ns2597 +++| CON 136 CIRCUMFLEX 01566 M01S00054.ns2597 +++| CON 0 ILLEGAL 01567 M01S00055.ns2597 +++| MCCC CON 72 COLON (64 CHARACTER SET) 01568 M01S00056.ns2597 +++|* CON 45 PERCENT (63 CHARACTER SET) 01569 M01S00057.ns2597 +++| CON 0 ILLEGAL 01570 M01S00058.ns2597 +++| CON 0 ILLEGAL 01571 M01S00059.ns2597 +++| CON 140 GRAVE 01572 M01S00060.ns2597 +++| MCCBL EQU *-MCCB 01573 M00S01483.1cd +++| MSG SPACE 4,10 01574 M00S01484.1cd +++|** MSG - SET BUFFER POINT MESSAGE. 01575 M00S01485.1cd +++|* 01576 M00S01486.1cd +++|* ENTRY (A) = MESSAGE NUMBER. 01577 M00S01487.1cd +++|* 01578 M00S01488.1cd +++|* USES T1, CM - CM+4. 01579 M00S01489.1cd +++|* 01580 M00S01490.1cd +++|* MACROS NFA. 01581 M00S01491.1cd +++| 01582 M00S01492.1cd +++| 01583 M00S01493.1cd +++| MSG SUBR ENTRY/EXIT 01584 M00S01494.1cd +++| STD T1 01585 M00S01495.1cd +++| NFA BF,R READ MESSAGE CONTROL 01586 M00S01496.1cd +++| ADN 1 01587 M00S01497.1cd +++| CRD CM 01588 M00S01498.1cd +++| LDD CM CHECK PREVIOUS MESSAGE 01589 M00S01499.1cd +++| LMD T1 01590 M00S01500.1cd +++| ZJN MSGX IF SAME AS CURRENT MESSAGE 01591 M00S01501.1cd +++| LDD T1 SET BUFFER POINT MESSAGE 01592 M00S01502.1cd +++| STD CM 01593 M00S01503.1cd +++| SBN ENEC 01594 M00S01504.1cd +++| MJN MSG1 IF NOT ERROR CONDITION 01595 M00S01505.1cd +++| LDD CP STORE CONTROL POINT MESSAGE 01596 M00S01506.1cd +++| ADN MS2W 01597 M00S01507.1cd +++| CWM MSGA,TR 01598 M00S01508.1cd +++| MSG1 NFA BF,R STORE BUFFER POINT MESSAGE 01599 M00S01509.1cd +++| ADN 1 01600 M00S01510.1cd +++| CWD CM 01601 M00S01511.1cd +++| UJN MSGX RETURN 01602 M00S01512.1cd +++| 01603 M00S01513.1cd +++| 01604 M00S01514.1cd +++| MSGA DATA C+$REQUEST *I* DISPLAY.+ 01605 M00S01515.1cd +++| PMR SPACE 4,10 01606 M00S01516.1cd +++|** PMR - PROCESS MESSAGE REQUEST. 01607 M00S01517.1cd +++|* 01608 M00S01518.1cd +++|* EXIT (A) = 0 IF NO REQUEST OR REQUEST PROCESSED. 01609 M00S01519.1cd +++|* 01610 M00S01520.1cd +++|* USES BS+4. 01611 M00S01521.1cd +++|* 01612 M00S01522.1cd +++|* CALLS CPS, SFA. 01613 M00S01523.1cd +++| 01614 M00S01524.1cd +++| 01615 M00S01525.1cd +++| PMR2 LDD BS+4 CHECK BUFFER BUSY 01616 M00S01526.1cd +++| LPN 1 01617 M00S01527.1cd +++| ZJN PMR4 IF BUSY 01618 M00S01528.1cd +++| LDM CMBS 01619 M00S01529.1cd +++| STD BS+4 RESTORE PREVIOUS STATUS 01620 M00S01530.1cd +++| RJM SFA SET FET ADDRESS 01621 M00S01531.1cd +++| CWD BS 01622 M00S01532.1cd +++| LDN 0 01623 M00S01533.1cd +++| PMR3 STM CMMR INDICATE REQUEST IN PROGRESS/COMPLETED 01624 M00S01534.1cd +++| ADN 1 01625 M00S01535.1cd +++| PMR4 LMN 1 SET EXIT CONDITIONS 01626 M00S01536.1cd +++| 01627 M00S01537.1cd +++| PMR SUBR ENTRY/EXIT 01628 M00S01538.1cd +++| LDM CMMR 01629 M00S01539.1cd +++| ZJN PMRX IF NO REQUEST 01630 M00S01540.1cd +++| SHN 6 01631 M00S01541.1cd +++| MJN PMR2 IF REQUEST IN PROGRESS 01632 M00S01542.1cd +++| LDC PDMF+1000 PROCESS DAYFILE MESSAGE 01633 M00S01543.1cd +++| RJM CPS 01634 M00S01544.1cd +++| ZJN PMR4 IF REQUEST NOT HONORED 01635 M00S01545.1cd +++| LDM CPSB 01636 M00S01546.1cd +++| LMC PDMF+3 01637 M00S01547.1cd +++| ZJN PMR1 IF PREVIOUS STATUS MESSAGE PROCESSING 01638 M00S01548.1cd +++| LMC PDMF+3 01639 M00S01549.1cd +++| STM CMBS SAVE PREVIOUS STATUS 01640 M00S01550.1cd +++| PMR1 LCN 7 01641 M00S01551.1cd +++| UJN PMR3 SET REQUEST IN PROGRESS 01642 M00S01552.1cd +++| PRE SPACE 4,10 01643 M00S01553.1cd +++|** PRE - PROCESS RETRIED ERROR. 01644 M00S01554.1cd +++|* 01645 M00S01555.1cd +++|* ENTRY (A) = INDEX OF ERROR. 01646 M00S01556.1cd +++|* 01647 M00S01557.1cd +++|* EXIT TO *CEP* IF MAXIMUM RETRIES REACHED. 01648 M00S01558.1cd +++|* 01649 M00S01559.1cd +++|* USES T1. 01650 M00S01560.1cd +++|* 01651 M00S01561.1cd +++|* CALLS SDM, WST. 01652 M00S01562.1cd +++| 01653 M00S01563.1cd +++| 01654 M00S01564.1cd +++| PRE SUBR ENTRY/EXIT 01655 M00S01565.1cd +++| STD T1 SAVE INDEX 01656 M00S01566.1cd +++| RJM WST WRITE STATUS TO FET 01657 M00S01567.1cd +++| AOM FRCI+EQSB,T1 INCREMENT ERROR COUNTER 01658 M00S01568.1cd +++| SBM TMAX,T1 COMPARE TO MAXIMUM 01659 M00S01569.1cd +++| NJN PREX IF NOT AT MAXIMUM 01660 M00S01570.1cd +++| 01661 M00S01571.1cd +++|* ISSUE MESSAGE AND TERMINATE OPERATION. 01662 M00S01572.1cd +++| 01663 M00S01573.1cd +++| LDM FRCI+EQSB,T1 GET RETRY COUNT 01664 M00S01574.1cd +++| SHN 6 01665 M00S01575.1cd +++| ADN 1 SET UNRECOVERED FLAG 01666 M00S01576.1cd +++| STD T3 01667 M00S01577.1cd +++| LDN 0 CLEAR COUNTER 01668 M00S01578.1cd +++| STM FRCI+EQSB,T1 01669 M00S01579.1cd +++| LDM TERC,T1 01670 M00S01580.1cd +++| RJM SDM 01671 M00S01581.1cd +++| LJM CEP CHANNEL ERROR PROCESSOR 01672 M00S01582.1cd +++| TERC SPACE 4,10 01673 M00S01583.1cd +++|** TERC - TABLE OF ERROR CODES. 01674 M00S01584.1cd +++| 01675 M00S01585.1cd +++| 01676 M00S01586.1cd +++| TERC INDEX 01677 M00S01587.1cd +++| INDEX DRRI,EITM INCOMPLETE DATA TRANSFER 01678 M00S01588.1cd +++| INDEX FRJI,ERJM INTERNAL/EXTERNAL REJECT 01679 M00S01589.1cd +++| INDEX SCEI,ECRE CHANNEL PARITY ERROR - STATUS 01680 M00S01590.1cd +++| INDEX DCPI,ECRE CHANNEL PARITY ERROR - DATA 01681 M00S01591.1cd +++| INDEX PERI,EPLM PRINT ERROR 01682 M00S01592.1cd +++| INDEX MXRI 01683 M00S01593.1cd +++| TMAX SPACE 4,10 01684 M00S01594.1cd +++|** TMAX - TABLE OF MAXIMUM RETRIES. 01685 M00S01595.1cd +++| 01686 M00S01596.1cd +++| 01687 M00S01597.1cd +++| TMAX INDEX 01688 M00S01598.1cd +++| INDEX DRRI,ERRL INCOMPLETE DATA TRANSFER 01689 M00S01599.1cd +++| INDEX FRJI,ERRL INTERNAL/EXTERNAL REJECT 01690 M00S01600.1cd +++| INDEX SCEI,CHPR CHANNEL PARITY ERROR - STATUS 01691 M00S01601.1cd +++| INDEX DCPI,CHPR CHANNEL PARITY ERROR - DATA 01692 M00S01602.1cd +++| INDEX PERI,PERL PRINT ERROR 01693 M00S01603.1cd +++| INDEX MXRI 01694 M00S01604.1cd +++| PSD SPACE 4,15 01695 M00S01605.1cd +++|** PSD - PRESET DRIVER. 01696 M00S01606.1cd +++|* 01697 M00S01607.1cd +++|* ENTRY (FA) = FST ADDRESS. 01698 M00S01608.1cd +++|* (UL - UL+1) = USER LIMITS. 01699 M00S01609.1cd +++|* 01700 M00S01610.1cd +++|* EXIT FILE REWOUND. 01701 M00S01611.1cd +++|* USER LIMITS SET IN *CMRC*.
| Line S01612 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01702 M01S01612.ns2597 ---|* 12 BIT ASCII PRINT CONTROL SET/CLEARED IN *CMSF.*
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01703 M01S00061.ns2597 +++|* 6/12 AND 8/12 ASCII PRINT FLAGS SET/CLEAR IN *CMSF*. 01704 M00S01613.1cd +++|* 01705 M00S01614.1cd +++|* USES CM - CM+4. 01706 M00S01615.1cd +++|* 01707 M00S01616.1cd +++|* MACROS NFA. 01708 M00S01617.1cd +++| 01709 M00S01618.1cd +++| 01710 M00S01619.1cd +++| PSD SUBR ENTRY/EXIT
| Line S01620 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 01711 M01S01620.1cd9 ---| LDD F6+2 SET/CLEAR 12 BIT ASCII PRINT FILE FLAG
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
M02 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01712 M02S00022.ns2597 ---| LDD F2+2 SET/CLEAR 12 BIT ASCII PRINT FILE FLAG
| Line S01621 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01713 M01S01621.ns2597 ---| LPN 4
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01714 M01S00062.ns2597 +++| LDD F2+2 SET/CLEAR ASCII PRINT FILE FLAGS 01715 M01S00063.ns2597 +++| LPN 24 01716 M00S01622.1cd +++| SHN 1 01717 M00S01623.1cd +++| STM CMSF 01718 M00S01624.1cd +++| NFA FA,R READ FST INFORMATION 01719 M00S01625.1cd +++| CRD CM 01720 M00S01626.1cd +++| LDD CM+1 REWIND FILE 01721 M00S01627.1cd +++| STD CM+2 01722 M00S01628.1cd +++| LDN FSMS 01723 M00S01629.1cd +++| STD CM+3 01724 M00S01630.1cd +++| NFA FA,R STORE FST INFORMATION 01725 M00S01631.1cd +++| CWD CM 01726 M00S01632.1cd +++| LDD UL SET USER LIMITS 01727 M00S01633.1cd +++| STM CMRC 01728 M00S01634.1cd +++| LDD UL+1 01729 M00S01635.1cd +++| STM CMRC+1 01730 M00S01636.1cd +++| UJN PSDX RETURN 01731 M00S01637.1cd +++| RCB SPACE 4,15 01732 M00S01638.1cd +++|** RCB - READ CODED BUFFER. 01733 M00S01639.1cd +++|* 01734 M00S01640.1cd +++|* ENTRY (A) = CM WORD LIMIT FOR LINE/CARD IMAGE. 01735 M00S01641.1cd +++|* 01736 M00S01642.1cd +++|* EXIT (A) = (CMLR) = LENGTH OF LINE/CARD IN BYTES. 01737 M00S01643.1cd +++|* (T2 - T6) = FIRST WORD NEXT LINE/CARD. 01738 M00S01644.1cd +++|* (CM - CM+4) = LAST WORD CURRENT LINE/CARD. 01739 M00S01645.1cd +++|* (OT - OT+1) UPDATED. 01740 M00S01646.1cd +++|* (T1) = ADDRESS + 1 OF LAST CHARACTER TRANSLATED. 01741 M00S01647.1cd +++|*
| Line S01648 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01742 M01S01648.ns2597 ---|* USES OT - OT+1, T1 - T7.
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01743 M01S00064.ns2597 +++|* USES T1 - T7. 01744 M00S01649.1cd +++|*
| Line S01650 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01745 M01S01650.ns2597 ---|* CALLS RNL, SCN.
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01746 M01S00065.ns2597 +++|* CALLS MCC, RNL, SCN. 01747 M00S01651.1cd +++| 01748 M00S01652.1cd +++| 01749 M00S01653.1cd +++| RCB3 LDI T7 CHECK NEXT CHARACTER 01750 M00S01654.1cd +++| LPC 3777 IGNORE HIGH-ORDER BIT 01751 M00S01655.1cd +++| SBN 40 01752 M00S01656.1cd +++| MJN RCB4 IF INCORRECT CHARACTER 01753 M00S01657.1cd +++| SBK 177-40 01754 M00S01658.1cd +++| MJN RCB5 IF LEGAL CHARACTER 01755 M00S01659.1cd +++| RCB4 LDN 40 SUBSTITUTE BLANK 01756 M00S01660.1cd +++| STI T7 01757 M00S01661.1cd +++| LDN 43 SET INCORRECT CHARACTER IN LINE 01758 M00S01662.1cd +++| STM 1,DA 01759 M00S01663.1cd +++| RCB5 AOD T7 ADVANCE BUFFER ADDRESS 01760 M00S01664.1cd +++| LMD T1 01761 M00S01665.1cd +++| RCB6 NJN RCB3 IF NOT EOL 01762 M00S01666.1cd +++|* PSN (NON-IMPACT PRINTER) 01763 M00S01667.1cd +++| RCBA EQU RCB6 01764 M00S01668.1cd +++| RCB7 LDD OT READ NEXT WORD 01765 M00S01669.1cd +++| SHN 6 01766 M00S01670.1cd +++| ADD RA 01767 M00S01671.1cd +++| SHN 6 01768 M00S01672.1cd +++| ADD OT+1 01769 M00S01673.1cd +++| CRD T2 01770 M00S01674.1cd +++| LDD T1 SET BYTE COUNT FOR LINE/CARD IMAGE 01771 M00S01675.1cd +++| SBD DA 01772 M00S01676.1cd +++| STM CMLR 01773 M00S01677.1cd +++| 01774 M00S01678.1cd +++| RCB SUBR ENTRY/EXIT 01775 M00S01679.1cd +++| STD T3 01776 M00S01680.1cd +++| LDC 1S12 READ CODED LINE/CARD 01777 M00S01681.1cd +++| LMD DA 01778 M00S01682.1cd +++| RJM RNL 01779 M00S01683.1cd +++| LDD T1 01780 M00S01684.1cd +++| SBD T7 01781 M00S01685.1cd +++| ZJN RCB7 IF EMPTY LINE OR CARD 01782 M00S01686.1cd +++| LDM CMSF CHECK MODE OF FILE
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01783 M01S00066.ns2597 +++| LPN 50 01784 M01S00067.ns2597 +++| ZJN RCB1 IF NOT ASCII FILE 01785 M00S01687.1cd +++| LPN 10
| Line S01688 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01786 M01S01688.ns2597 ---| NJN RCB6 IF ASCII PRINT FILE
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01787 M01S00068.ns2597 +++| NJN RCB6 IF 8/12 ASCII FILE 01788 M01S00069.ns2597 +++| STD T0 INITIALIZE ILLEGAL CHARACTER FLAG 01789 M01S00070.ns2597 +++| UJN RCB1.1 ENABLE 6/12 CONVERSION IN *MCC* 01790 M00S01689.1cd +++| 01791 M00S01690.1cd +++|* CONVERT LINE OR CARD IMAGE. 01792 M00S01691.1cd +++|
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01793 M01S00071.ns2597 +++| RCB1 LDC ** DISABLE 6/12 CONVERSION IN *MCC* 01794 M01S00072.ns2597 +++| ORG *-1 01795 M01S00073.ns2597 +++| LOC MCCA 01796 M01S00074.ns2597 +++| UJN MCC4 SKIP 6/12 CONVERSION 01797 M01S00075.ns2597 +++| LOC *O 01798 M01S00076.ns2597 +++| RCB1.1 STM MCCA 01799 M00S01692.1cd +++| RJM SCN LOAD CONVERSION TABLE 01800 M00S01693.1cd +++| SOD T1 SET END OF DATA IN BUFFER 01801 M00S01694.1cd +++| STD T4 01802 M00S01695.1cd +++| ADN 1 01803 M00S01696.1cd +++| SBD DA SET END OF UNPACKED DATA 01804 M00S01697.1cd +++| SHN 1 01805 M00S01698.1cd +++| ADD DA 01806 M00S01699.1cd +++| STD T1 01807 M00S01700.1cd +++| SBN 1 01808 M00S01701.1cd +++| STD T2 01809 M00S01702.1cd +++| LDI T4 SAVE LAST CHARACTER FOR PUNCH DRIVER 01810 M00S01703.1cd +++| LPN 77 01811 M00S01704.1cd +++| STD T7 01812 M00S01705.1cd +++| RCB2 LDI T4 UNPACK DATA BYTE
| Line S01706 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01813 M01S01706.ns2597 ---| SHN 14 01814 M01S01707.ns2597 ---| STD T5 01815 M01S01708.ns2597 ---| SHN -14 01816 M01S01709.ns2597 ---| STD T6 01817 M01S01710.ns2597 ---| LDM CTBL,T6 CONVERT LOWER CHARACTER 01818 M01S01711.ns2597 ---| STI T2 01819 M01S01712.ns2597 ---| SOD T2 01820 M01S01713.ns2597 ---| LDM CTBL,T5 CONVERT UPPER CHARACTER 01821 M01S01714.ns2597 ---| STI T2 01822 M01S01715.ns2597 ---| SOD T2
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01823 M01S00077.ns2597 +++| LPN 77 01824 M01S00078.ns2597 +++| RJM MCC MOVE AND CONVERT CHARACTER 01825 M01S00079.ns2597 +++| LDI T4 01826 M01S00080.ns2597 +++| SHN -6 01827 M01S00081.ns2597 +++| RJM MCC MOVE AND CONVERT CHARACTER 01828 M00S01716.1cd +++| SOD T4 DECREMENT DATA ADDRESS 01829 M00S01717.1cd +++| SBD DA 01830 M00S01718.1cd +++| PJN RCB2 IF NOT START OF BUFFER
| Line S01719 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01831 M01S01719.ns2597 ---| LJM RCB7 READ NEXT WORD
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01832 M01S00082.ns2597 +++| LDM CMSF 01833 M01S00083.ns2597 +++| LPN 40 01834 M01S00084.ns2597 +++| ZJN RCB2.3 IF NOT 6/12 ASCII 01835 M01S00085.ns2597 +++| LDD DA SET BUFFER INDEX 01836 M01S00086.ns2597 +++| STD T3 01837 M01S00087.ns2597 +++| RCB2.1 AOD T2 01838 M01S00088.ns2597 +++| SBD T1 01839 M01S00089.ns2597 +++| PJN RCB2.2 IF END OF DATA 01840 M01S00090.ns2597 +++| LDI T2 MOVE DATA BYTE 01841 M01S00091.ns2597 +++| STI T3 01842 M01S00092.ns2597 +++| AOD T3 01843 M01S00093.ns2597 +++| UJN RCB2.1 READ NEXT BYTE 01844 M01S00094.ns2597 +++| 01845 M01S00095.ns2597 +++| RCB2.2 LDD T3 SET NEW LWA+1 01846 M01S00096.ns2597 +++| STD T1 01847 M01S00097.ns2597 +++| LDD T0 01848 M01S00098.ns2597 +++| ZJN RCB2.3 IF NO ILLEGAL CHARACTERS IN LINE 01849 M01S00099.ns2597 +++| STM 1,DA FLAG ILLEGAL CHARACTER(S) 01850 M01S00100.ns2597 +++| RCB2.3 LJM RCB7 READ NEXT WORD 01851 M00S01720.1cd +++| RDB SPACE 4,10 01852 M00S01721.1cd +++|** RDB - RELEASE DATA BUFFER. 01853 M00S01722.1cd +++|* 01854 M00S01723.1cd +++|* ENTRY (CMDB) = FWA+1 OF DATA BUFFER ASSIGNED. 01855 M00S01724.1cd +++|* 01856 M00S01725.1cd +++|* EXIT (A) = (CMDB) = 0. 01857 M00S01726.1cd +++|* (DB) = FWA OF DATA BUFFER RELEASED. 01858 M00S01727.1cd +++|* ((DB)) = 0. 01859 M00S01728.1cd +++|* 01860 M00S01729.1cd +++|* USES DB. 01861 M00S01730.1cd +++| 01862 M00S01731.1cd +++| 01863 M00S01732.1cd +++| RDB1 SBN 1 01864 M00S01733.1cd +++| STD DB 01865 M00S01734.1cd +++| LDN 0 RELEASE DATA BUFFER 01866 M00S01735.1cd +++| STI DB 01867 M00S01736.1cd +++| STM CMDB 01868 M00S01737.1cd +++| 01869 M00S01738.1cd +++| RDB SUBR ENTRY/EXIT 01870 M00S01739.1cd +++| LDM CMDB 01871 M00S01740.1cd +++| NJN RDB1 IF DATA BUFFER IS ASSIGNED 01872 M00S01741.1cd +++| UJN RDBX RETURN 01873 M00S01742.1cd +++| RNL SPACE 4,15 01874 M00S01743.1cd +++|** RNL - READ NEXT LINE (CARD). 01875 M00S01744.1cd +++|* 01876 M00S01745.1cd +++|* ENTRY (A) BITS 0 - 11 = PP BUFFER ADDRESS. 01877 M00S01746.1cd +++|* BITS 12 - 17 = 0 IF BINARY READ. 01878 M00S01747.1cd +++|* = 1 IF CODED READ. 01879 M00S01748.1cd +++|* (T3) = NUMBER OF WORDS TO READ. 01880 M00S01749.1cd +++|* (CMBE) = NUMBER OF WORDS IN CENTRAL BUFFER. 01881 M00S01750.1cd +++|* 01882 M00S01751.1cd +++|* EXIT (T1) = END OF DATA IN PP BUFFER (CODED READ ONLY). 01883 M00S01752.1cd +++|* (T3) = ACTUAL WORD COUNT TO END OF LINE (CARD). 01884 M00S01753.1cd +++|* (T7) = PP BUFFER ADDRESS. 01885 M00S01754.1cd +++|* 01886 M00S01755.1cd +++|* USES T0 - T1, T3 - T7. 01887 M00S01756.1cd +++|* 01888 M00S01757.1cd +++|* CALLS AOP. 01889 M00S01758.1cd +++| 01890 M00S01759.1cd +++| 01891 M00S01760.1cd +++| RNL SUBR ENTRY/EXIT 01892 M00S01761.1cd +++| STM RNLB SET PP BUFFER ADDRESS 01893 M00S01762.1cd +++| STD T1 01894 M00S01763.1cd +++| STD T7 01895 M00S01764.1cd +++| SHN -14 SAVE BINARY / CODED READ FLAG 01896 M00S01765.1cd +++| STD T6 01897 M00S01766.1cd +++| LDM CMBE CHECK DATA IN CENTRAL BUFFER 01898 M00S01767.1cd +++| SBD T3 01899 M00S01768.1cd +++| PJN RNL1 IF SUFFICIENT DATA 01900 M00S01769.1cd +++| RAD T3 01901 M00S01770.1cd +++| RNL1 LDD T3 NUMBER OF WORDS TO READ 01902 M00S01771.1cd +++| STD T5 01903 M00S01772.1cd +++| LDD LM LIMIT - OUT 01904 M00S01773.1cd +++| SBD OT 01905 M00S01774.1cd +++| SHN 14 01906 M00S01775.1cd +++| ADD LM+1 01907 M00S01776.1cd +++| SBD OT+1 01908 M00S01777.1cd +++| STD T0 NUMBER OF WORDS FROM *OUT* TO *LIMIT* 01909 M00S01778.1cd +++| SBD T3 01910 M00S01779.1cd +++| PJN RNL2 IF NO WRAP AROUND 01911 M00S01780.1cd +++| LMC -0 NUMBER OF WORDS STARTING AT *FIRST* 01912 M00S01781.1cd +++| STD T4 01913 M00S01782.1cd +++| LDD T0 WORD COUNT FROM *OUT* TO *LIMIT* 01914 M00S01783.1cd +++| STD T5 01915 M00S01784.1cd +++| SHN 2 01916 M00S01785.1cd +++| ADD T5 01917 M00S01786.1cd +++| ADD T1 BUFFER ADDRESS FOR FIRST READ
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1cd.txt · Last modified: by 127.0.0.1