cdc:nos2.source:opl.opl871:deck:1io
Deck 1IO
14 Modifications
Listing Sections
- Deck 1IO Start
- Deck 1IO Part 1 (Line 1960)
- Deck 1IO Part 2 (Line 3956)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.1io +++| IDENT 1IO,BCM 00002 M01S00002.1io +++| PERIPH 00003 M01S00003.1io +++| BASE MIXED 00004 M01S00004.1io +++| SST 00005 M01S00005.1io +++|*COMMENT 1IO - BATCHIO MANAGER.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.1io +++| TITLE 1IO - BATCHIO MANAGER. 00009 M01S00008.1io +++| SPACE 4,10 00010 M01S00009.1io +++|***** 1IO - *BATCHIO* MANAGER. 00011 M01S00010.1io +++|* G. R. MANSFIELD. 70/07/20. 00012 M01S00011.1io +++|* P. D. HAAS. 74/04/19. 00013 M01S00012.1io +++|* R. M. YASUHARA. 75/01/17. 00014 M01S00013.1io +++|* D. R. HILGREN. 79/04/06. RESEQUENCED. 00015 M01S00014.1io +++| SPACE 4,15 00016 M01S00015.1io +++|*** 1IO PERFORMS SCHEDULING OF ALL PROCESSES OPERATING AT 00017 M01S00016.1io +++|* THE *BATCHIO* CONTROL POINT. THIS INCLUDES - 00018 M01S00017.1io +++|* (1) SEARCHING FOR THE HIGHEST PRIORITY *OUTPUT* AND *PUNCH* 00019 M01S00018.1io +++|* FILES. 00020 M01S00019.1io +++|* (2) CHECKING FOR A *READY* STATUS ON ANY CARD READERS. 00021 M01S00020.1io +++|* (3) MANAGING BUFFER STORAGE FOR THE ABOVE. 00022 M01S00021.1io +++|* (4) POSTING ERROR CONDITION MESSAGES FOR THE ABOVE. 00023 M01S00022.1io +++|* 00024 M01S00023.1io +++|* 1IO WITH THE OVERLAY 3ID INITIALIZES THE *BATCHIO* 00025 M01S00024.1io +++|* CONTROL POINT TO AN FL=200, AND SETS THE AVAILABLE EQUIPMENT 00026 M01S00025.1io +++|* LIST FROM WHICH THE OPERATIONS ARE SCHEDULED. 00027 M01S00026.1io +++|* ALSO SET IN THE CONTROL POINT ARE THE CONVERSION MODE TABLES 00028 M01S00027.1io +++|* WHICH 1CD WILL USE WHEN DRIVING THE VARIOUS EQUIPMENTS. 00029 M01S00028.1io +++| SPACE 4,10 00030 M01S00029.1io +++|*** CALL. 00031 M01S00030.1io +++|* 00032 M01S00031.1io +++|* 00033 M01S00032.1io +++|*T 18/ *1IO*,1/P,5/ CP,5/,1/F,6/ RS,12/ BN,12/ AB
Figure
00034 M01S00033.1io +++|* 00035 M01S00034.1io +++|* P PRESET PERFORMED. 00036 M01S00035.1io +++|* CP CONTROL POINT NUMBER. 00037 M01S00036.1io +++|* F FILE PREVIOUSLY REQUESTED FLAG. 00038 M01S00037.1io +++|* RS RELEASE STORAGE REPEAT COUNT. 00039 M01S00038.1io +++|* BN BUFFER POINT NUMBER CURRENTLY UNDER CONSIDERATION. 00040 M01S00039.1io +++|* AB ACTIVE BUFFER COUNT. 00041 M01S00040.1io +++| SPACE 4,10 00042 M01S00041.1io +++|*** DAYFILE AND ERRLOG MESSAGES. 00043 M01S00042.1io +++|* 00044 M01S00043.1io +++|* 00045 M01S00044.1io +++|* *EQXXX CCC/NIP CONTROLWARE LOADED.* = 00046 M01S00045.1io +++|* INFORMATIVE MESSAGE INDICATING THAT CCC/NIP 00047 M01S00046.1io +++|* CONTROLWARE WAS LOADED SUCCESSFULLY. 00048 M01S00047.1io +++|* 00049 M01S00048.1io +++|* *EQXXX CCC/NIP CONTROLWARE LOAD ERROR.* = ERROR WAS 00050 M01S00049.1io +++|* ENCOUNTERED IN THE CCC/NIP CONTROLWARE WHEN ATTEMPTING 00051 M01S00050.1io +++|* TO LOAD THE CCC. 00052 M01S00051.1io +++|* 00053 M01S00052.1io +++|* *EQXXX CCC/NIP CONTROLWARE NOT FOUND.* = 00054 M01S00053.1io +++|* CCC/NIP CONTROLWARE WAS NOT FOUND ON THE SYSTEM FILE. 00055 M01S00054.1io +++|* 00056 M01S00055.1io +++|* *EQXXX CCC/NIP STATUS ERROR.* = A STATUS OF 5XXX WAS 00057 M01S00056.1io +++|* RETURNED FROM THE CCC. 00058 M01S00057.1io +++|* 00059 M01S00058.1io +++|* *EQXXX CHANNEL PARITY ERROR.* = 00060 M01S00059.1io +++|* A PARITY ERROR WAS DETECTED ON A CONVERTER 00061 M01S00060.1io +++|* OR EQUIPMENT. 00062 M01S00061.1io +++|* 00063 M01S00062.1io +++|* *EQXXX CONTROLLER HUNG BUSY.* = 00064 M01S00063.1io +++|* THE CONTROLLER DOES NOT DROP BUSY STATUS. 00065 M01S00064.1io +++|* 00066 M01S00065.1io +++|* *EQXXX FUNCTION TIMEOUT* = 00067 M01S00066.1io +++|* A FUNCTION TIMEOUT WAS DETECTED ON A CONVERTER 00068 M01S00067.1io +++|* OR EQUIPMENT FUNCTION. 00069 M01S00068.1io +++|* 00070 M01S00069.1io +++|* *EQXXX INCOMPLETE DATA TRANSFER.* = 00071 M01S00070.1io +++|* AN INCOMPLETE DATA TRANSFER WAS DETECTED. 00072 M01S00071.1io +++|* 00073 M01S00072.1io +++|* *EQXXX INTERNAL/EXTERNAL REJECT.* = 00074 M01S00073.1io +++|* AN INTERNAL OR EXTERNAL REJECT WAS DETECTED. 00075 M01S00074.1io +++|* 00076 M01S00075.1io +++|* *EQXXX TRANSMISSION PARITY ERROR.* = 00077 M01S00076.1io +++|* A TRANSMISSION PARITY ERROR WAS DETECTED. 00078 M01S00077.1io +++|* 00079 M01S00078.1io +++|* *EQXXX TURNED OFF BY SYSTEM.* = 00080 M01S00079.1io +++|* FAULTY EQUIPMENT WAS TURNED OFF BY THE SYSTEM. 00081 M01S00080.1io +++|* 00082 M01S00081.1io +++|* * NO EQUIPMENT AVAILABLE.* = 00083 M01S00082.1io +++|* *BIO* DETERMINED THAT THERE IS NO EQUIPMENT IN 00084 M01S00083.1io +++|* THE SYSTEM THAT IT CAN DRIVE. 00085 M01S00084.1io +++|* 00086 M01S00085.1io +++|* * RECOVERY COMPLETE.* = 00087 M01S00086.1io +++|* INFORMATIVE MESSAGE. 00088 M01S00087.1io +++|* 00089 M01S00088.1io +++|* WHERE- 00090 M01S00089.1io +++|* EQ = EQUIPMENT MNEMONIC. 00091 M01S00090.1io +++|* XXX = EST ORDINAL. 00092 M01S00091.1io +++| SPACE 4,10 00093 M01S00092.1io +++|*** OPERATOR *I* DISPLAY STATUS MESSAGES. 00094 M01S00093.1io +++|* 00095 M01S00094.1io +++|* *NOT READY.* = DEVICE IS NOT READY. 00096 M01S00095.1io +++|* 00097 M01S00096.1io +++|* *OFF.* = DEVICE IS *OFF* IN THE EST. 00098 M01S00097.1io +++|*
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 00099 M02S00098.ns2655 ---|* *INTERVENTION REQUIRED.* = DEVICE REQUIRES OPERATOR
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 00100 M02S00099.ns2655 ---|* INTERVENTION. 00101 M01S00001.ns2655 +++|* *DOWN.* = DEVICE IS *DOWN* IN THE EST. 00102 M01S00002.ns2655 +++|* 00103 M01S00003.ns2655 +++|* *OFF - CHECK ERRLOG.* = DEVICE HAS BEEN TURNED OFF DUE TO A 00104 M01S00004.ns2655 +++|* HARDWARE PROBLEM. CHECK THE ERRLOG FOR THE DETAILS. 00105 M01S00005.ns2655 +++|* 00106 M01S00006.ns2655 +++|* *INTERVENTION NEEDED.* = DEVICE NEEDS OPERATOR INTERVENTION. 00107 M01S00007.ns2655 +++|* 00108 M01S00008.ns2655 +++|* *CH UNAVAILABLE.* = CHANNEL COULD NOT BE RESERVED. 00109 M01S00100.1io +++| SPACE 4,10 00110 M01S00101.1io +++|*** ERROR PROCESSING. 00111 M01S00102.1io +++|* 00112 M01S00103.1io +++|* 00113 M01S00104.1io +++|* CHANNEL ERROR PROCESSING. 00114 M01S00105.1io +++|* 00115 M01S00106.1io +++|* THE FOLLOWING CHANNEL ERRORS ARE DETECTED - 00116 M01S00107.1io +++|* CONNECT REJECT. 00117 M01S00108.1io +++|* FUNCTION REJECT. 00118 M01S00109.1io +++|* TRANSMISSION PARITY ERRORS. 00119 M01S00110.1io +++|* INCOMPLETE DATA TRANSFER. 00120 M01S00111.1io +++|* 6681 FUNCTION TIMEOUT. 00121 M01S00112.1io +++|* EQUIPMENT FUNCTION TIMEOUT. 00122 M01S00113.1io +++|* CCC/NIP STATUS ERROR. 00123 M01S00114.1io +++|* WHEN ANY OF THESE CHANNEL ERRORS ARE DETECTED, THE 00124 M01S00115.1io +++|* FOLLOWING ACTION IS TAKEN - 00125 M01S00116.1io +++|* OUTPUT FILES ARE REQUEUED. 00126 M01S00117.1io +++|* TRACKS FOR INPUT FILES ARE DROPPED. 00127 M01S00118.1io +++|* THE FAULTY EQUIPMENT IS TURNED OFF AND DROPPED. 00128 M01S00119.1io +++|* ERROR LOG MESSAGES ARE ISSUED. 00129 M01S00120.1io +++|* 00130 M01S00121.1io +++|* BAD SYSTEM SECTOR ERROR PROCESSING. 00131 M01S00122.1io +++|* 00132 M01S00123.1io +++|* IF AN ERROR IS ENCOUNTERED WHILE READING THE SYSTEM 00133 M01S00124.1io +++|* SECTORS, THE FILE IS RELEASED FROM THE *BATCHIO* CP 00134 M01S00125.1io +++|* WITH THE FOLLOWING CONDITIONS - 00135 M01S00126.1io +++|* THE NAME OF THE FILE IS CHANGED TO -**BAD O-. 00136 M01S00127.1io +++|* THE FILE TYPE IS CHANGED TO COMMON. 00137 M01S00128.1io +++|* WRITE LOCKOUT IS SELECTED FOR THE FILE. 00138 M01S00129.1io +++| SPACE 4,10 00139 M01S00130.1io +++|** ROUTINES USED. 00140 M01S00131.1io +++|* 00141 M01S00132.1io +++|* 00142 M01S00133.1io +++|* 3IA - 1IO SUBROUTINES. 00143 M01S00134.1io +++|* 3IB - 1IO LOAD IMAGE MEMORY. 00144 M01S00135.1io +++|* 3IC - 1IO ERROR ROUTINES. 00145 M01S00136.1io +++|* 3ID - 1IO PRESET ROUTINES. 00146 M01S00137.1io +++|* 3IF - 1IO LOAD CCC/NIP CONTROLWARE. 00147 M01S00138.1io +++| SPACE 4,10 00148 M01S00139.1io +++|** PROGRAMS CALLED. 00149 M01S00140.1io +++|* 00150 M01S00141.1io +++|* 00151 M01S00142.1io +++|* CIO - COMBINED INPUT/OUTPUT. 00152 M01S00143.1io +++|* QAC - QUEUE ACCESS. 00153 M01S00144.1io +++|* QAP - QUEUE AUXILIARY PROCESSOR. 00154 M01S00145.1io +++|* 1CD - *BATCHIO* DRIVER. 00155 M01S00146.1io +++| SPACE 4,10 00156 M01S00147.1io +++|** COMMON DECKS. 00157 M01S00148.1io +++| 00158 M01S00149.1io +++| 00159 M01S00150.1io +++|*CALL COMPMAC 00160 M01S00151.1io +++|*CALL COMSACC 00161 M01S00152.1io +++|*CALL COMPCHI 00162 M01S00153.1io +++| LIST X 00163 M01S00154.1io +++|*CALL COMSBIO 00164 M01S00155.1io +++| LIST * 00165 M01S00156.1io +++|*CALL COMSCPS 00166 M01S00157.1io +++|*CALL COMSDFS 00167 M01S00158.1io +++|*CALL COMSDSP 00168 M01S00159.1io +++|*CALL COMSEVT 00169 M01S00160.1io +++|*CALL COMSJCE 00170 M01S00161.1io +++|*CALL COMSJIO 00171 M01S00001.242l642 +++|*CALL COMSPIM 00172 M01S00162.1io +++|*CALL COMSQAC 00173 M01S00163.1io +++|*CALL COMSSSD 00174 M01S00164.1io +++| SPACE 4,10 00175 M01S00165.1io +++|**** DIRECT LOCATION ASSIGNMENTS. 00176 M01S00166.1io +++| 00177 M01S00167.1io +++| 00178 M01S00168.1io +++| RI EQU 16 - 17 RANDOM INDEX (2 LOCATIONS) 00179 M01S00169.1io +++| ES EQU 20 - 24 EST ENTRY 00180 M01S00170.1io +++| EC EQU 25 EQUIPMENT TYPE CODE 00181 M01S00171.1io +++| FC EQU 26 FUNCTION CODE 00182 M01S00172.1io +++| EI EQU 27 EQUIPMENT INDEX 00183 M01S00173.1io +++| CN EQU 30 - 34 CM WORD BUFFER (5 LOCATIONS) 00184 M01S00174.1io +++| CS EQU 35 CONVERTER STATUS 00185 M01S00175.1io +++| ST EQU 36 EQUIPMENT STATUS 00186 M01S00176.1io +++| ET EQU 37 EQUIPMENT DEFINITION 00187 M01S00177.1io +++| FN EQU 40 - 44 FILE NAME (5 LOCATIONS) 00188 M01S00178.1io +++| AB EQU FN - FN+4 PROGRAM NAME (5 LOCATIONS) 00189 M01S00179.1io +++| EQ EQU 45 EST ORDINAL / DEVICE TYPE 00190 M01S00180.1io +++| BA EQU 46 - 47 BUFFER ADDRESS (2 LOCATIONS) 00191 M01S00181.1io +++| FA EQU 57 FNT ADDRESS 00192 M01S00182.1io +++| FS EQU 60 - 64 FST INFORMATION (5 LOCATIONS) 00193 M01S00183.1io +++| RT EQU 65 ERROR RETRY COUNT + RECOVERY FLAG 00194 M01S00184.1io +++| MC EQU 66 ERROR MESSAGE CODE 00195 M01S00185.1io +++| RC EQU 67 CHANNEL ERROR RETRY COUNT 00196 M01S00186.1io +++| SPACE 4,10 00197 M01S00187.1io +++|* ASSEMBLY CONSTANT. 00198 M01S00188.1io +++| 00199 M01S00189.1io +++| 00200 M01S00190.1io +++| CH EQU 12 CHANNEL NUMBER 00201 M01S00001.1io6 +++| BFL EQU BUFR+77 BUFFER LENGTH, ROUNDED UP 00202 M01S00191.1io +++| MSR$ EQU 0 DEFINE ERROR PROCESSOR FOR *COMPRNS* 00203 M01S00192.1io +++| SAF$ EQU 1 DEFINE ENTRY CONDITION FOR *COMPSAF* 00204 M01S00193.1io +++|**** 00205 M01S00194.1io +++| DBMLT SPACE 4,10 00206 M01S00195.1io +++|** DBMLT - DEFINE BML MESSAGE TABLE. 00207 M01S00196.1io +++|* 00208 M01S00197.1io +++|* DBMLT MSGCD,PROC,SYMPC,NBYTES. 00209 M01S00198.1io +++|* 00210 M01S00199.1io +++|* ENTRY MSGCD = MESSAGE CODE. 00211 M01S00200.1io +++|* PROC = ADDRESS OF BML MESSAGE PROCESSOR. 00212 M01S00201.1io +++|* SYMPC = SYMPTOM CODE FOR BML MESSAGE. 00213 M01S00202.1io +++|* NBYTES = NUMBER OF BYTES IN BML MESSAGE. 00214 M01S00203.1io +++| 00215 M01S00204.1io +++| 00216 M01S00205.1io +++| DBMLT MACRO MSGCD,PROC,SYMPC,NBYTES 00217 M01S00206.1io +++| DTPR RMT 00218 M01S00207.1io +++| INDEX MSGCD-BAME,PROC 00219 M01S00208.1io +++| RMT 00220 M01S00209.1io +++| DTSY RMT 00221 M01S00210.1io +++| INDEX MSGCD-BAME,SYMPC 00222 M01S00211.1io +++| RMT 00223 M01S00212.1io +++| DTNB RMT 00224 M01S00213.1io +++| INDEX MSGCD-BAME,NBYTES 00225 M01S00214.1io +++| RMT 00226 M01S00215.1io +++| ENDM 00227 M01S00216.1io +++| DEFOIES SPACE 4,10 00228 M01S00217.1io +++|** DEFOIES - DEFINE LOAD ADDRESS OF ERROR ROUTINES. 00229 M01S00218.1io +++|* 00230 M01S00219.1io +++|* DEFOIES ADDR 00231 M01S00220.1io +++|* 00232 M01S00221.1io +++|* ENTRY *ADDR* = LOAD ADDRESS. IF NOT SPECIFIED, USE 00233 M01S00222.1io +++|* CURRENT ADDRESS + 5. 00234 M01S00223.1io +++|* 00235 M01S00224.1io +++|* EXIT *OIES* = NEW OVERLAY LOAD ADDRESS VALUE. 00236 M01S00225.1io +++| 00237 M01S00226.1io +++| 00238 M01S00227.1io +++| PURGMAC DEFOIES 00239 M01S00228.1io +++| 00240 M01S00229.1io +++| DEFOIES MACRO ADDR 00241 M01S00230.1io +++| MACREF DEFOIES 00242 M01S00231.1io +++| NOREF .1 00243 M01S00232.1io +++| QUAL 00244 M01S00233.1io +++| .1 SET ADDR *+5 00245 M01S00234.1io +++| IF -DEF,OIES 00246 M01S00235.1io +++| OIES SET .1 00247 M01S00236.1io +++| ELSE 00248 M01S00237.1io +++| OIES MAX OIES,.1 00249 M01S00238.1io +++| ENDIF 00250 M01S00239.1io +++| QUAL * 00251 M01S00240.1io +++| DEFOIES ENDM 00252 M01S00241.1io +++| SPACE 4,10 00253 M01S00242.1io +++|* DEFINE QUAL BLOCK ORDER. 00254 M01S00243.1io +++| 00255 M01S00244.1io +++| 00256 M01S00245.1io +++| QUAL 3IA 00257 M01S00246.1io +++| QUAL 3IB 00258 M01S00247.1io +++| QUAL 3IC 00259 M01S00248.1io +++| QUAL 3ID 00260 M01S00249.1io +++| QUAL 3IF 00261 M01S00250.1io +++| QUAL 5IA 00262 M01S00251.1io +++| QUAL 5IC 00263 M01S00252.1io +++| QUAL 5ID 00264 M01S00253.1io +++| QUAL 5IE 00265 M01S00254.1io +++| QUAL 5IG 00266 M01S00255.1io +++| QUAL 5IH 00267 M01S00256.1io +++| QUAL 00268 M01S00257.1io +++| TITLE MAIN PROGRAM. 00269 M01S00258.1io +++| BCM SPACE 4,10 00270 M01S00259.1io +++|** BCM - MAIN PROGRAM. 00271 M01S00260.1io +++| 00272 M01S00261.1io +++| 00273 M01S00262.1io +++| ORG PPFW 00274 M01S00263.1io +++| 00275 M01S00264.1io +++| BCM LDD IR+1 CHECK PRESET FLAG 00276 M01S00265.1io +++| SHN 14 00277 M01S00266.1io +++| MJN BCM1 IF NOT FIRST ENTRY 00278 M01S00267.1io +++| EXECUTE 3ID PRESET BATCHIO 00279 M01S00268.1io +++| BCM1 LDN 0 CLEAR FST ADDRESS 00280 M01S00269.1io +++| STD RT 00281 M01S00270.1io +++| STD FA 00282 M01S00271.1io +++| STD BA CLEAR BUFFER ADDRESS 00283 M01S00272.1io +++| STD BA+1
| Line S00273 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io7 |
Seq # *Modification Id* Act ----------------------------+ 00284 M02S00273.1io7 ---| LDC INWL CHECK SCHEDULER CONTROL
| Line S00274 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io7 |
Seq # *Modification Id* Act ----------------------------+ 00285 M02S00274.1io7 ---| CRD CM
| Line S00275 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io7 |
Seq # *Modification Id* Act ----------------------------+ 00286 M02S00275.1io7 ---| LDD CM+3 CHECK IF SCHEDULING DISABLED
| Line S00276 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io7 |
Seq # *Modification Id* Act ----------------------------+ 00287 M02S00276.1io7 ---| LPN 2
| Line S00277 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io7 |
Seq # *Modification Id* Act ----------------------------+ 00288 M02S00277.1io7 ---| NJN BCM2 IF DISABLED 00289 M01S00278.1io +++| LDD IR+4 CLEAR RECOVERY FLAG 00290 M01S00279.1io +++| LPN 77 00291 M01S00280.1io +++| STD IR+4 00292 M01S00281.1io +++| LDD CP CHECK IDLEDOWN STATUS 00293 M01S00282.1io +++| ADN SNSW 00294 M01S00283.1io +++| CRD CM 00295 M01S00284.1io +++| LDD CM+3 00296 M01S00285.1io +++| SHN 21-3 00297 M01S00286.1io +++| PJN BCM3 IF IDLEDOWN NOT REQUESTED 00298 M01S00287.1io +++| BCM2 LDD IR+4 00299 M01S00288.1io +++| NJN BCM4 IF BUFFERS ASSIGNED 00300 M01S00289.1io +++| LJM DPP DROP PP 00301 M01S00290.1io +++| 00302 M01S00291.1io +++| BCM3 LDD RA CHECK FOR PENDING REQUEST 00303 M01S00292.1io +++| SHN 6 00304 M01S00293.1io +++| ADN DRQR 00305 M01S00294.1io +++| CRD CM 00306 M01S00295.1io +++| LDD CM 00307 M01S00296.1io +++| ZJN BCM5 IF NO PENDING REQUEST 00308 M01S00297.1io +++| BCM4 LJM BCM11 TERMINATE PROCESSING 00309 M01S00298.1io +++| 00310 M01S00299.1io +++| BCM5 LDN TAEQL/5 00311 M01S00300.1io +++| STD T1 00312 M01S00301.1io +++| LDD RA READ EQUIPMENT TABLE 00313 M01S00302.1io +++| SHN 6 00314 M01S00303.1io +++| ADK TEQR 00315 M01S00304.1io +++| CRM TAEQ,T1 00316 M01S00305.1io +++| LDD IR+2 CHECK FILE REQUESTED FLAG 00317 M01S00306.1io +++| SHN 21-6 00318 M01S00307.1io +++| MJN BCM7 IF FILE PREVIOUSLY REQUESTED 00319 M01S00308.1io +++| 00320 M01S00309.1io +++|* ENTER FILE REQUEST. 00321 M01S00310.1io +++| 00322 M01S00311.1io +++| RJM REQ REQUEST EQUIPMENT 00323 M01S00312.1io +++| ZJN BCM4 IF NO EQUIPMENT AVAILABLE 00324 M01S00313.1io +++| RJM CPB CLEAR *QAC* PARAMETER BLOCK 00325 M01S00314.1io +++| LDD EQ SET EQUIPMENT TYPE 00326 M01S00315.1io +++| LPN 7 00327 M01S00316.1io +++| STD T1 00328 M01S00317.1io +++| LDM BCMA,T1 00329 M01S00318.1io +++| STD T1 00330 M01S00319.1io +++| LJM 0,T1 PROCESS EQUIPMENT 00331 M01S00320.1io +++| 00332 M01S00321.1io +++|* RELEASE FILE BACK TO QUEUE. 00333 M01S00322.1io +++| 00334 M01S00323.1io +++| BCM6 EXECUTE 3IC 00335 M01S00324.1io +++| LJM /3IC/CAS RELEASE FILE BACK TO QUEUE 00336 M01S00325.1io +++| 00337 M01S00326.1io +++|* FILE PREVIOUSLY REQUESTED. 00338 M01S00327.1io +++| 00339 M01S00328.1io +++| BCM7 RJM CFF CHECK FOR FILE 00340 M01S00329.1io +++| MJN BCM8 IF FILE FOUND 00341 M01S00330.1io +++| ZJN BCM11 IF REQUEST NOT COMPLETE 00342 M01S00331.1io +++| LDD FL CLEAR ANY PENDING FL REQUEST 00343 M01S00332.1io +++| RJM RSI 00344 M01S00333.1io +++| AOM RCLA SET NO RECALL REQUESTED FLAG 00345 M01S00334.1io +++| UJN BCM10 RELEASE EQUIPMENT 00346 M01S00335.1io +++| 00347 M01S00336.1io +++|* PREPARE COMMUNICATION AREA FOR *1CD*. 00348 M01S00337.1io +++| 00349 M01S00338.1io +++| BCM8 LDD EQ CHECK FOR PRINTER 00350 M01S00339.1io +++| LPN 7 00351 M01S00340.1io +++| SBK LPDT 00352 M01S00341.1io +++| NJN BCM9 IF NOT PRINTER 00353 M01S00342.1io +++| EXECUTE 3IB LOAD IMAGE MEMORY 00354 M01S00343.1io +++| NJN BCM6 IF MEMORY NOT LOADED 00355 M01S00344.1io +++| BCM9 EXECUTE 3IA ASSIGN JOB 00356 M01S00345.1io +++| RJM /3IA/ABF ASSIGN BUFFER 00357 M01S00346.1io +++| LJM /3IA/ADR ASSIGN DRIVER 00358 M01S00347.1io +++| 00359 M01S00348.1io +++|* RELEASE EQUIPMENT AND TERMINATE PROCESSING. 00360 M01S00349.1io +++| 00361 M01S00350.1io +++| BCM10 RJM RLE RELEASE EQUIPMENT 00362 M01S00351.1io +++| BCM11 RJM MSG PROCESS MESSAGES 00363 M01S00352.1io +++| RJM CPR CHECK PENDING REQUEST 00364 M01S00353.1io +++| RJM CSR CHECK STORAGE RELEASE 00365 M01S00354.1io +++|* UJN RCL RECALL *1IO* 00366 M01S00355.1io +++| RCL SPACE 4,10 00367 M01S00356.1io +++|** RCL - RECALL *1IO*. 00368 M01S00357.1io +++| 00369 M01S00358.1io +++| 00370 M01S00359.1io +++| RCL PAUSE CHECK ERROR FLAG 00371 M01S00360.1io +++| LDD CM+1 00372 M01S00361.1io +++| NJN ERR IF ERROR FLAG SET 00373 M01S00362.1io +++| RCLA LDN 0 RECALL REQUESTED 00374 M01S00363.1io +++|* LDN 1 (NO RECALL REQUESTED) 00375 M01S00364.1io +++| ZJN RCL1 IF RECALL REQUESTED 00376 M01S00365.1io +++| SOM RCLA 00377 M01S00366.1io +++| LJM BCM CHECK NEXT EQUIPMENT 00378 M01S00367.1io +++| 00379 M01S00368.1io +++| RCL1 LDN ZERL 00380 M01S00369.1io +++| CRD CM 00381 M01S00370.1io +++| RCL2 LDD MA ENTER PP RECALL REQUEST 00382 M01S00371.1io +++| CWD IR 00383 M01S00372.1io +++| MONITOR RECM 00384 M01S00373.1io +++| RCL3 LJM PPR EXIT TO PP RESIDENT 00385 M01S00374.1io +++| DPP SPACE 4,10 00386 M01S00375.1io +++|** DPP - DROP PP. 00387 M01S00376.1io +++| 00388 M01S00377.1io +++| 00389 M01S00378.1io +++| DPP MONITOR DPPM DROP PP 00390 M01S00379.1io +++| LJM PPR EXIT TO PP RESIDENT 00391 M01S00380.1io +++| ERR SPACE 4,10 00392 M01S00381.1io +++|** ERR - PROCESS ERROR. 00393 M01S00382.1io +++|* 00394 M01S00383.1io +++|* ENTRY (A) = ERROR FLAG. 00395 M01S00384.1io +++| 00396 M01S00385.1io +++| 00397 M01S00386.1io +++| ERR LMN IDET 00398 M01S00387.1io +++| ZJN DPP IF IDLEDOWN 00399 M01S00388.1io +++| EXECUTE 3IC 00400 M01S00389.1io +++| RJM /3IC/PEF PROCESS ERROR FLAG 00401 M01S00390.1io +++| UJN DPP DROP PP 00402 M01S00391.1io +++| 00403 M01S00392.1io +++| 00404 M01S00393.1io +++| BCMA INDEX 00405 M01S00394.1io +++| INDEX LPDT,LPP 00406 M01S00395.1io +++| INDEX CPDT,CPP 00407 M01S00396.1io +++| INDEX CRDT,CRP 00408 M01S00397.1io +++| INDEX NPDT,LPP 00409 M01S00398.1io +++| INDEX MXDT 00410 M01S00399.1io +++| LPP SPACE 4,10 00411 M01S00400.1io +++|** LPP - LINE PRINTER PROCESSOR. 00412 M01S00401.1io +++| 00413 M01S00402.1io +++| 00414 M01S00403.1io +++| LPP LDN 1S2 FILE TYPE = PRINT 00415 M01S00404.1io +++| LJM SFF SEARCH FOR FILE 00416 M01S00405.1io +++| CPP SPACE 4,10 00417 M01S00406.1io +++|** CPP - CARD PUNCH PROCESSOR. 00418 M01S00407.1io +++| 00419 M01S00408.1io +++| 00420 M01S00409.1io +++| CPP LDN 1S3 FILE TYPE = PUNCH 00421 M01S00410.1io +++| LJM SFF SEARCH FOR FILE 00422 M01S00411.1io +++| CRP SPACE 4,10 00423 M01S00412.1io +++|** CRP - CARD READER PROCESSOR. 00424 M01S00413.1io +++| 00425 M01S00414.1io +++| 00426 M01S00415.1io +++| CRP LDD ST CHECK STATUS 00427 M01S00416.1io +++| LPN 40 00428 M01S00417.1io +++| ZJN CRP1 IF *INPUT TRAY NOT EMPTY* 00429 M01S00418.1io +++| LJM BCM10 RELEASE EQUIPMENT 00430 M01S00419.1io +++| 00431 M01S00420.1io +++| CRP1 LDC 2R SET DUMMY NAME * * FOR INPUT FILE 00432 M01S00421.1io +++| STM QACB 00433 M01S00422.1io +++| LDN BCOT SET BATCH ORIGIN TYPE 00434 M01S00423.1io +++| STM QACB+5*5+4 00435 M01S00424.1io +++| LJM BCM9 ASSIGN JOB 00436 M01S00425.1io +++| TITLE SUBROUTINES. 00437 M01S00426.1io +++| CAD SPACE 4,10 00438 M01S00427.1io +++|** CAD - CLEAR AND DISCONNECT EQUIPMENT. 00439 M01S00428.1io +++|* 00440 M01S00429.1io +++|* ENTRY (ES+1) = CHANNEL (RESERVED). 00441 M01S00430.1io +++|* (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE. 00442 M01S00431.1io +++|* 00443 M01S00432.1io +++|* EXIT (A) = 0. 00444 M01S00433.1io +++|* CHANNEL RELEASED. 00445 M01S00434.1io +++|* 00446 M01S00435.1io +++|* CALLS FCN. 00447 M01S00436.1io +++|* 00448 M01S00437.1io +++|* MACROS DCHAN. 00449 M01S00438.1io +++| 00450 M01S00439.1io +++| 00451 M01S00440.1io +++| CAD SUBR ENTRY/EXIT 00452 M01S00441.1io +++| LDD EQ CHECK EQUIPMENT 00453 M01S00442.1io +++| LPN 7 00454 M01S00443.1io +++| SBK NPDT 00455 M01S00444.1io +++| ZJN CAD1 IF NON-IMPACT PRINTER 00456 M01S00445.1io +++| LDN 0 CLEAR AND DISCONNECT 00457 M01S00446.1io +++| RJM FCN 00458 M01S00447.1io +++| CAD1 LDD ES+1 RELEASE CHANNEL 00459 M01S00448.1io +++| DCHAN 00460 M01S00449.1io +++|* LDN 0 00461 M01S00450.1io +++| UJN CADX RETURN 00462 M01S00451.1io +++| CCT SPACE 4,15 00463 M01S00452.1io +++|** CCT - CONNECT TO EQUIPMENT. 00464 M01S00453.1io +++|* 00465 M01S00454.1io +++|* ENTRY (ES - ES+4) = EST ENTRY. 00466 M01S00455.1io +++|* 00467 M01S00456.1io +++|* EXIT (A) = GENERAL STATUS. 00468 M01S00457.1io +++|* 00469 M01S00458.1io +++|* ERROR TO *FCN2* IF FUNCTION TIMEOUT. 00470 M01S00459.1io +++|* TO *FCN3* IF ERROR. 00471 M01S00460.1io +++|* 00472 M01S00461.1io +++|* CALLS CFN, CGS. 00473 M01S00462.1io +++| 00474 M01S00463.1io +++| 00475 M01S00464.1io +++| CCT4 DCN CH+40 00476 M01S00465.1io +++| RJM CGS GET GENERAL STATUS 00477 M01S00466.1io +++| NJN CCT3 IF ERROR 00478 M01S00467.1io +++| LDD ST CHECK STATUS 00479 M01S00468.1io +++| SHN -11 00480 M01S00469.1io +++| LMN 5 00481 M01S00470.1io +++| ZJN CCT2 IF STATUS ERROR 00482 M01S00471.1io +++| LDD ST 00483 M01S00472.1io +++| 00484 M01S00473.1io +++| CCT SUBR ENTRY/EXIT 00485 M01S00474.1io +++| LDN 0 ISSUE SELECT UNIT FUNCTION 00486 M01S00475.1io +++| RJM CFN 00487 M01S00476.1io +++| NJN CCT3 IF ERROR 00488 M01S00477.1io +++| LDD ES+4 SET DEVICE 00489 M01S00478.1io +++| SHN -11 00490 M01S00479.1io +++| ACN CH 00491 M01S00480.1io +++| OAN CH+40 00492 M01S00481.1io +++| CCT1 ADD ON 00493 M01S00482.1io +++| EJM CCT4,CH IF FUNCTION ACCEPTED 00494 M01S00483.1io +++| NJN CCT1 IF NOT TIMED OUT 00495 M01S00484.1io +++| LJM FCN2 PROCESS FUNCTION TIMEOUT 00496 M01S00485.1io +++| 00497 M01S00486.1io +++| CCT2 LDN ECSE *EQXXX CCC/NIP STATUS ERROR.* 00498 M01S00487.1io +++| CCT3 LJM FCN3 PROCESS ERROR 00499 M01S00488.1io +++| CEQ SPACE 4,15 00500 M01S00489.1io +++|** CEQ - CHECK EQUIPMENT AVAILABLE. 00501 M01S00490.1io +++|* 00502 M01S00491.1io +++|* ENTRY (A) = EST ORDINAL. 00503 M01S00492.1io +++|* 00504 M01S00493.1io +++|* EXIT (A) = 0 IF EQUIPMENT AVAILABLE AND RESERVED. 00505 M01S00494.1io +++|* (T5) = EST ORDINAL. 00506 M01S00495.1io +++|* (ES - ES+4) = EST ENTRY. 00507 M01S00496.1io +++|* 00508 M01S00497.1io +++|* USES CM - CM+4, FS - FS+4. 00509 M01S00498.1io +++|* 00510 M01S00499.1io +++|* CALLS IOM. 00511 M01S00500.1io +++|* 00512 M01S00501.1io +++|* MACROS MONITOR, SFA. 00513 M01S00502.1io +++| 00514 M01S00503.1io +++| 00515 M01S00504.1io +++| CEQ2 LDD FS+4 00516 M01S00505.1io +++| NJN CEQX IF EQUIPMENT ASSIGNED
| Line S00506 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00517 M02S00506.242l642 ---| LDD ES+3
| Line S00507 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00518 M02S00507.242l642 ---| SHN 0-13 00519 M01S00002.242l642 +++| LDD ES 00520 M01S00003.242l642 +++| ERRNZ REQS CODE ASSUMES *REQS* = 0 00521 M01S00004.242l642 +++| LPN 2 00522 M01S00508.1io +++| NJN CEQ1 IF EQUIPMENT OFF 00523 M01S00509.1io +++| STD CM+2 00524 M01S00510.1io +++| MONITOR REQM RESERVE EQUIPMENT 00525 M01S00511.1io +++| LDD CM+1
| Line S00512 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00526 M02S00512.242l642 ---| LMD T5 00527 M01S00005.242l642 +++| ZJN CEQ3 IF NOT ASSIGNED 00528 M01S00006.242l642 +++| LCN 1 00529 M01S00007.242l642 +++| CEQ3 ADN 1 RETURN ASSIGNED ELSEWHERE STATUS 00530 M01S00513.1io +++| 00531 M01S00514.1io +++| CEQ SUBR ENTRY/EXIT 00532 M01S00515.1io +++| STD T5 00533 M01S00516.1io +++| STD CM+1 00534 M01S00517.1io +++| SFA EST FETCH EST ENTRY 00535 M01S00518.1io +++| ADK EQDE 00536 M01S00519.1io +++| CRD ES 00537 M01S00520.1io +++| ADK EQAE-EQDE READ EQUIPMENT ASSIGNMENT WORD 00538 M01S00521.1io +++| CRD FS
| Line S00522 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00539 M02S00522.242l642 ---| LDD ES CHECK MAINTENANCE MODE
| Line S00523 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00540 M02S00523.242l642 ---| LPN 40
| Line S00524 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00541 M02S00524.242l642 ---| ZJN CEQ2 IF EQUIPMENT NOT DOWN
| Line S00525 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00542 M02S00525.242l642 ---| LDN EDWN&EOFF&1 *DOWN.*
| Line S00526 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00543 M02S00526.242l642 ---| CEQ1 LMN EOFF&1 *OFF.* 00544 M01S00008.242l642 +++| LDD ES 00545 M01S00009.242l642 +++| LPN 3 CHECK DEVICE STATE 00546 M01S00010.242l642 +++| LMN 3 00547 M01S00011.242l642 +++| NJN CEQ2 IF EQUIPMENT NOT DOWN 00548 M01S00012.242l642 +++| LDN EDWN&EOFF&2 00549 M01S00013.242l642 +++| CEQ1 LMN EOFF&2 00550 M01S00527.1io +++| RJM IOM ISSUE OPERATOR MESSAGE 00551 M01S00528.1io +++| LDN 1 SET NOT AVAILABLE 00552 M01S00529.1io +++| UJN CEQX RETURN 00553 M01S00530.1io +++| CFF SPACE 4,20 00554 M01S00531.1io +++|** CFF - CHECK FOR FILE. 00555 M01S00532.1io +++|* 00556 M01S00533.1io +++|* ENTRY (IR+2) = FILE REQUESTED FLAG SET (BIT 6). 00557 M01S00534.1io +++|* (IR+3) = BUFFER POINT NUMBER. 00558 M01S00535.1io +++|* 00559 M01S00536.1io +++|* EXIT (A) .GT. 0 IF FILE NOT FOUND OR ERRORS. 00560 M01S00537.1io +++|* (A) = 0 IF *QAC* REQUEST NOT COMPLETE. 00561 M01S00538.1io +++|* (A) .LT. 0 IF FILE FOUND. 00562 M01S00539.1io +++|* AVAILABLE EQUIPMENT TABLE WRITTEN. 00563 M01S00540.1io +++|* (EQ) = EST ORDINAL / DEVICE TYPE. 00564 M01S00541.1io +++|* (ES - ES+4) = EST ENTRY. 00565 M01S00542.1io +++|* (FA) = FNT ADDRESS. 00566 M01S00543.1io +++|* (FS - FS+4) = FST ENTRY. 00567 M01S00544.1io +++|* (QACB - QACB+QACBL) = *QAC* PARAMETER BLOCK. 00568 M01S00545.1io +++|* 00569 M01S00546.1io +++|* USES EQ, T1. 00570 M01S00547.1io +++|* 00571 M01S00548.1io +++|* MACROS NFA, SFA. 00572 M01S00549.1io +++| 00573 M01S00550.1io +++| 00574 M01S00551.1io +++| CFF SUBR ENTRY/EXIT 00575 M01S00552.1io +++| LDM TAEQ+1,IR+3 SET EST ORDINAL / DEVICE TYPE 00576 M01S00553.1io +++| STD EQ 00577 M01S00554.1io +++| SHN -3 00578 M01S00555.1io +++| SFA EST 00579 M01S00556.1io +++| ADK EQDE 00580 M01S00557.1io +++| CRD ES 00581 M01S00558.1io +++| 00582 M01S00559.1io +++|* CHECK *QAC* PARAMETER BLOCK. 00583 M01S00560.1io +++| 00584 M01S00561.1io +++| LDN QAPBL READ *QAC* PARAMETER BLOCK 00585 M01S00562.1io +++| STD T1 00586 M01S00563.1io +++| LDD RA 00587 M01S00564.1io +++| SHN 6 00588 M01S00565.1io +++| ADC QAPB 00589 M01S00566.1io +++| CRM QACB,T1 00590 M01S00567.1io +++| LDM QACB+0*5+4 00591 M01S00568.1io +++| LPN 1 00592 M01S00569.1io +++| ZJN CFFX IF *QAC* REQUEST NOT COMPLETE 00593 M01S00570.1io +++| LDD IR+2 CLEAR FILE REQUESTED FLAG 00594 M01S00571.1io +++| LMD HN 00595 M01S00572.1io +++| STD IR+2 00596 M01S00573.1io +++| LDM QACB+0*5+3 CHECK ERROR CODE 00597 M01S00574.1io +++| SHN 6 00598 M01S00575.1io +++| LMM QACB+0*5+4 00599 M01S00576.1io +++| SHN -12 00600 M01S00577.1io +++| NJN CFF1 IF ERROR 00601 M01S00578.1io +++| LDM QACB+4*5 SET FNT OFFSET 00602 M01S00579.1io +++| STD FA 00603 M01S00580.1io +++| NFA FA,R READ FST INFORMATION 00604 M01S00581.1io +++| ADN FSTL 00605 M01S00582.1io +++| CRD FS READ FST ENTRY 00606 M01S00583.1io +++| LCN 0 INDICATE NO ERRORS 00607 M01S00584.1io +++| CFF1 LJM CFFX RETURN 00608 M01S00585.1io +++| CFN SPACE 4,15 00609 M01S00586.1io +++|** CFN - OUTPUT FUNCTION TO EQUIPMENT. 00610 M01S00587.1io +++|* 00611 M01S00588.1io +++|* ENTRY (A) = FUNCTION CODE. 00612 M01S00589.1io +++|* 00613 M01S00590.1io +++|* EXIT (A) = 0 IF FUNCTION SUCCESSFUL. 00614 M01S00591.1io +++|* (FC) = FUNCTION CODE IF NOT GENERAL STATUS FUNCTION. 00615 M01S00592.1io +++|* 00616 M01S00593.1io +++|* ERROR (A) = ERROR MESSAGE CODE. 00617 M01S00594.1io +++|* 00618 M01S00595.1io +++|* USES T1. 00619 M01S00596.1io +++| 00620 M01S00597.1io +++| 00621 M01S00598.1io +++| CFN2 LDN 0 00622 M01S00599.1io +++| 00623 M01S00600.1io +++| CFN SUBR ENTRY/EXIT 00624 M01S00601.1io +++| FAN CH ISSUE FUNCTION 00625 M01S00602.1io +++| STD T1 00626 M01S00603.1io +++| LMN 12 00627 M01S00604.1io +++| ZJN CFN1 IF GENERAL STATUS FUNCTION 00628 M01S00605.1io +++| LMN 12 SAVE FUNCTION CODE FOR ERROR MESSAGE 00629 M01S00606.1io +++| STD FC 00630 M01S00607.1io +++| CFN1 ADD ON 00631 M01S00608.1io +++| IJM CFN2,CH IF FUNCTION ACCEPTED 00632 M01S00609.1io +++| NJN CFN1 IF NOT TIMED OUT 00633 M01S00610.1io +++| DCN CH+40 00634 M01S00611.1io +++| LDD T1 00635 M01S00612.1io +++| STD FC 00636 M01S00613.1io +++| LDN EFTM *EQXXX FUNCTION TIMEOUT.* 00637 M01S00614.1io +++| UJN CFNX RETURN 00638 M01S00615.1io +++| CGS SPACE 4,15 00639 M01S00616.1io +++|** CGS - GET GENERAL STATUS. 00640 M01S00617.1io +++|* 00641 M01S00618.1io +++|* ENTRY (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE. 00642 M01S00619.1io +++|* (ES - ES+4) = EST ENTRY. 00643 M01S00620.1io +++|* 00644 M01S00621.1io +++|* EXIT (A) = 0 IF GENERAL STATUS OBTAINED. 00645 M01S00622.1io +++|* (ST) = GENERAL STATUS. 00646 M01S00623.1io +++|* 00647 M01S00624.1io +++|* CALLS CFN, PCP. 00648 M01S00625.1io +++| 00649 M01S00626.1io +++| 00650 M01S00627.1io +++| CGS2 LDD RC 00651 M01S00628.1io +++| ZJN CGSX IF NO ERRORS 00652 M01S00629.1io +++| LDN 0 REPORT CHANNEL PARITY ERRORS 00653 M01S00630.1io +++| CGS3 RJM PCP 00654 M01S00631.1io +++| LDN 0 00655 M01S00632.1io +++| 00656 M01S00633.1io +++| CGS SUBR ENTRY/EXIT 00657 M01S00634.1io +++| CGS1 LDN 12 ISSUE GENERAL STATUS FUNCTION 00658 M01S00635.1io +++| RJM CFN 00659 M01S00636.1io +++| NJN CGSX IF ERROR 00660 M01S00637.1io +++| ACN CH 00661 M01S00638.1io +++| IAN CH+40 00662 M01S00639.1io +++| DCN CH+40 00663 M01S00640.1io +++| STD ST 00664 M01S00641.1io +++| CFM CGS2,CH IF NO CHANNEL ERROR 00665 M01S00642.1io +++| AOD RC 00666 M01S00643.1io +++| SBK CHPR 00667 M01S00644.1io +++| NJN CGS1 IF RETRY COUNT NOT EXHAUSTED 00668 M01S00645.1io +++| LDN 1 00669 M01S00646.1io +++| UJN CGS3 PROCESS UNRECOVERED PARITY ERROR 00670 M01S00647.1io +++| CON SPACE 4,20 00671 M01S00648.1io +++|** CON - CONNECT EQUIPMENT. 00672 M01S00649.1io +++|* 00673 M01S00650.1io +++|* ENTRY 6681 CONNECTED. 00674 M01S00651.1io +++|* (ES - ES+4) = EST ENTRY. 00675 M01S00652.1io +++|* 00676 M01S00653.1io +++|* EXIT (A) = BITS 0 - 2 OF 6681 STATUS. 00677 M01S00654.1io +++|* (CS) = 6681 STATUS. 00678 M01S00655.1io +++|* (ST) = EQUIPMENT STATUS. 00679 M01S00656.1io +++|* (FC) = CONNECT CODE. 00680 M01S00657.1io +++|* EQUIPMENT CONNECTED. 00681 M01S00658.1io +++|* IF THE CONNECT FUNCTION TIMES OUT, THEN EXIT IS MADE 00682 M01S00659.1io +++|* TO *RAF* VIA *FCN2*. 00683 M01S00660.1io +++|* 00684 M01S00661.1io +++|* USES FC. 00685 M01S00662.1io +++|* 00686 M01S00663.1io +++|* CALLS GST, IFN. 00687 M01S00664.1io +++| 00688 M01S00665.1io +++| 00689 M01S00666.1io +++| CON2 DCN CH+40 00690 M01S00667.1io +++| RJM GST GET STATUS OF 6681 AND EQUIPMENT 00691 M01S00668.1io +++| 00692 M01S00669.1io +++| CON SUBR ENTRY/EXIT 00693 M01S00670.1io +++| LDN 10 SELECT MODE II CONNECT 00694 M01S00671.1io +++| RJM IFN 00695 M01S00672.1io +++| LDD ES+4 OUTPUT CONNECT CODE 00696 M01S00673.1io +++| LPC 7000 SAVE CONNECT CODE 00697 M01S00674.1io +++| STD FC 00698 M01S00675.1io +++| OAN CH+40 00699 M01S00676.1io +++| LCN 0 TIME OUT CONNECT 00700 M01S00677.1io +++| CON1 EJM CON2,CH IF CONNECT RESPONSE RECEIVED 00701 M01S00678.1io +++| SBN 1 00702 M01S00679.1io +++| NJN CON1 IF NOT TIMED OUT 00703 M01S00680.1io +++| LJM FCN2 FUNCTION TIMEOUT ERROR PROCESSOR 00704 M01S00681.1io +++| CPB SPACE 4,10 00705 M01S00682.1io +++|** CPB - CLEAR *QAC* PARAMETER BLOCK. 00706 M01S00683.1io +++|* 00707 M01S00684.1io +++|* USES T2. 00708 M01S00685.1io +++| 00709 M01S00686.1io +++| 00710 M01S00687.1io +++| CPB SUBR ENTRY/EXIT 00711 M01S00688.1io +++| LDC QACB 00712 M01S00689.1io +++| STD T2 00713 M01S00690.1io +++| CPB1 LDN 0 CLEAR PARAMETER BLOCK 00714 M01S00691.1io +++| STI T2 00715 M01S00692.1io +++| AOD T2 ADVANCE ADDRESS 00716 M01S00693.1io +++| LMC QACB+QACBL 00717 M01S00694.1io +++| NJN CPB1 IF NOT END OF PARAMETER BLOCK 00718 M01S00695.1io +++| LDC QAPBL*100-500 SET PARAMETER BLOCK LENGTH 00719 M01S00696.1io +++| STM QACB+1*5+3 00720 M01S00697.1io +++| UJN CPBX RETURN 00721 M01S00698.1io +++| CPR SPACE 4,10 00722 M01S00699.1io +++|** CPR - CHECK PENDING REQUEST. 00723 M01S00700.1io +++|* 00724 M01S00701.1io +++|* CHECKS IF REQUEST IS PENDING FOR A *1CD* THAT HAS DROPPED 00725 M01S00702.1io +++|* OUT. 00726 M01S00703.1io +++|* 00727 M01S00704.1io +++|* EXIT TO *3IA* IF PENDING REQUEST AND *1CD* NOT ACTIVE. 00728 M01S00705.1io +++|* 00729 M01S00706.1io +++|* USES EC, CM - CM+4, CN - CN+4. 00730 M01S00707.1io +++|* 00731 M01S00708.1io +++|* CALLS *3IA*. 00732 M01S00709.1io +++|* 00733 M01S00710.1io +++|* MACROS EXECUTE. 00734 M01S00711.1io +++| 00735 M01S00712.1io +++| 00736 M01S00713.1io +++| CPR SUBR ENTRY/EXIT 00737 M01S00714.1io +++| LDD RA 00738 M01S00715.1io +++| SHN 6 00739 M01S00716.1io +++| ADN DRQR 00740 M01S00717.1io +++| CRD CN 00741 M01S00718.1io +++| LDD CN 00742 M01S00719.1io +++| ZJN CPRX IF NO PENDING REQUEST 00743 M01S00720.1io +++| LDD RA CHECK IF *1CD* ACTIVE 00744 M01S00721.1io +++| SHN 6 00745 M01S00722.1io +++| ADD CN 00746 M01S00723.1io +++| CRD CM 00747 M01S00724.1io +++| LDD CM 00748 M01S00725.1io +++| NJN CPRX IF *1CD* ACTIVE 00749 M01S00726.1io +++| LDD CN+1 SET DEVICE TYPE 00750 M01S00727.1io +++| LPN 7 00751 M01S00728.1io +++| STD EC 00752 M01S00729.1io +++| EXECUTE 3IA 00753 M01S00730.1io +++| LJM /3IA/ADR4 ASSIGN DRIVER 00754 M01S00731.1io +++| CSR SPACE 4,10 00755 M01S00732.1io +++|** CSR - CHECK FOR STORAGE RELEASE. 00756 M01S00733.1io +++|* 00757 M01S00734.1io +++|* ENTRY (IR - IR+4) SET. 00758 M01S00735.1io +++|* 00759 M01S00736.1io +++|* USES IR+2, IR+4, BA - BA+1, CM - CM+4, CN - CN+4, T1 - T4. 00760 M01S00737.1io +++|* 00761 M01S00738.1io +++|* MACROS MONITOR, PAUSE. 00762 M01S00739.1io +++| 00763 M01S00740.1io +++| 00764 M01S00741.1io +++| CSR SUBR ENTRY/EXIT 00765 M01S00742.1io +++| LDD IR+4 00766 M01S00743.1io +++| LPN 77 00767 M01S00744.1io +++| ZJN CSRX IF NO BUFFER ASSIGNED 00768 M01S00745.1io +++| AOD IR+2 ADVANCE ENTRY COUNT 00769 M01S00746.1io +++| LPN 77 00770 M01S00747.1io +++| LMN 5 00771 M01S00748.1io +++| NJN CSRX IF NOT 5 ENTRIES 00772 M01S00749.1io +++| LDD IR+2 00773 M01S00750.1io +++| SCN 77 00774 M01S00751.1io +++| STD IR+2 CLEAR ENTRY COUNT 00775 M01S00752.1io +++| LDN 0 CLEAR BUFFER COUNT 00776 M01S00753.1io +++| STD T1 00777 M01S00754.1io +++| STD T4 CLEAR LAST BUFFER NUMBER 00778 M01S00755.1io +++| STD T2 SET BUFFER ADDRESS 00779 M01S00756.1io +++| STD BA 00780 M01S00757.1io +++| LDC BUFR 00781 M01S00758.1io +++| STD T3 00782 M01S00759.1io +++| STD BA+1 00783 M01S00760.1io +++| CSR1 LDD T2 READ BUFFER STATUS 00784 M01S00761.1io +++| SHN 6 00785 M01S00762.1io +++| ADD RA 00786 M01S00763.1io +++| SHN 6 00787 M01S00764.1io +++| ADD T3 00788 M01S00765.1io +++| CRD CM 00789 M01S00766.1io +++| ADN 4 READ LIMIT 00790 M01S00767.1io +++| CRD CN 00791 M01S00768.1io +++| LDD CM 00792 M01S00769.1io +++| ZJN CSR2 IF BUFFER FREE 00793 M01S00770.1io +++| LDD CN+3 SET BUFFER LIMIT 00794 M01S00771.1io +++| STD BA 00795 M01S00772.1io +++| LDD CN+4 00796 M01S00773.1io +++| STD BA+1 00797 M01S00774.1io +++| LDD T1 SET CURRENT BUFFER COUNT 00798 M01S00775.1io +++| ADN 1 00799 M01S00776.1io +++| STD T4 00800 M01S00777.1io +++| CSR2 LDD CN+3 SET NEXT BUFFER ADDRESS 00801 M01S00778.1io +++| STD T2 00802 M01S00779.1io +++| LDD CN+4 00803 M01S00780.1io +++| STD T3 00804 M01S00781.1io +++| AOD T1 ADVANCE BUFFER COUNT 00805 M01S00782.1io +++| LMD IR+4 00806 M01S00783.1io +++| NJN CSR1 IF NOT END OF BUFFERS 00807 M01S00784.1io +++| LDD BA CHECK LAST BUFFER 00808 M01S00785.1io +++| SHN 14 00809 M01S00786.1io +++| ADD BA+1 00810 M01S00787.1io +++| ADN 77 00811 M01S00788.1io +++| SHN -6 00812 M01S00789.1io +++| STD CM+1 00813 M01S00790.1io +++| STD T1 00814 M01S00791.1io +++| LMD FL 00815 M01S00792.1io +++| ZJN CSR3 IF NO FL CHANGE 00816 M01S00793.1io +++| LDN 0 SET CM REQUEST 00817 M01S00794.1io +++| STD CM+2 00818 M01S00795.1io +++| MONITOR RSTM REQUEST STORAGE 00819 M01S00796.1io +++| PAUSE 00820 M01S00797.1io +++| LDD FL CHECK STORAGE 00821 M01S00798.1io +++| LMD T1 00822 M01S00799.1io +++| NJN CSR3 IF NOT RELEASED 00823 M01S00800.1io +++| LDD T4 SET NEW BUFFER COUNT 00824 M01S00801.1io +++| STD IR+4 00825 M01S00802.1io +++| CSR3 LJM CSRX RETURN 00826 M01S00803.1io +++| C2D SPACE 4,10 00827 M01S00804.1io +++|** C2D - CONVERT 2 DIGITS. 00828 M01S00805.1io +++|* 00829 M01S00806.1io +++|* ENTRY (A) = DIGITS RIGHT JUSTIFIED. 00830 M01S00807.1io +++|* 00831 M01S00808.1io +++|* EXIT (A) = DIGITS CONVERTED WITH LEADING 0 SUPPRESSED. 00832 M01S00809.1io +++|* 00833 M01S00810.1io +++|* USES T0. 00834 M01S00811.1io +++| 00835 M01S00812.1io +++| 00836 M01S00813.1io +++| C2D SUBR ENTRY/EXIT 00837 M01S00814.1io +++| LPN 77 UNPACK DIGITS 00838 M01S00815.1io +++| STD T0 00839 M01S00816.1io +++| SHN 3 00840 M01S00817.1io +++| LMD T0 00841 M01S00818.1io +++| SCN 70 00842 M01S00819.1io +++| ADC 2R00 CONVERT 00843 M01S00820.1io +++| STD T0 00844 M01S00821.1io +++| SHN -6 00845 M01S00822.1io +++| LMN 1R0 DELETE LEADING 0 00846 M01S00823.1io +++| NJN C2D1 IF NO LEADING ZERO 00847 M01S00824.1io +++| LDN 1R -1R0 00848 M01S00825.1io +++| SHN 6 00849 M01S00826.1io +++| RAD T0 00850 M01S00827.1io +++| C2D1 LDD T0 00851 M01S00828.1io +++| UJN C2DX RETURN 00852 M01S00829.1io +++| FCN SPACE 4,10 00853 M01S00830.1io +++|** FCN - ISSUE FUNCTION TO EQUIPMENT. 00854 M01S00831.1io +++|* 00855 M01S00832.1io +++|* ENTRY (A) BITS 0 - 11 = FUNCTION CODE. 00856 M01S00833.1io +++|* 12 - 17 = 0, ABORT IF ERROR DETECTED 00857 M01S00834.1io +++|* IN 6681 STATUS. 00858 M01S00835.1io +++|* 12 - 17 .NE. 0, EXIT IF EXTERNAL REJECT. 00859 M01S00836.1io +++|* 00860 M01S00837.1io +++|* EXIT (A) = BITS 0 - 2 OF 6681 STATUS. 00861 M01S00838.1io +++|* IF THE EXTERNAL REJECT EXIT IS REQUESTED 00862 M01S00839.1io +++|* AND THAT ERROR OCCURS, A NORMAL EXIT FROM 00863 M01S00840.1io +++|* *FCN* TAKES PLACE. 00864 M01S00841.1io +++|* OTHERWISE, IF A FUNCTION REJECT OR 00865 M01S00842.1io +++|* TRANSMISSION PARITY ERROR IS DETECTED, OR 00866 M01S00843.1io +++|* IF THE FUNCTION TIMES OUT, 00867 M01S00844.1io +++|* THEN EXIT IS MADE TO */3IC/CAS*. 00868 M01S00845.1io +++|* 00869 M01S00846.1io +++|* USES FC, MC, T6. 00870 M01S00847.1io +++|* 00871 M01S00848.1io +++|* CALLS GST, *3IC*. 00872 M01S00849.1io +++|* 00873 M01S00850.1io +++|* MACROS DCHAN, EXECUTE. 00874 M01S00851.1io +++| 00875 M01S00852.1io +++| 00876 M01S00853.1io +++| FCN4 RJM GST GET 6681 AND EQUIPMENT STATUS 00877 M01S00854.1io +++| ZJN FCNX IF NO ERRORS 00878 M01S00855.1io +++| LMN 1 00879 M01S00856.1io +++| ZJN FCN6 IF EXTERNAL REJECT 00880 M01S00857.1io +++| FCN5 LDN ERJM REJECT/TRANSMISSION PARITY ERROR 00881 M01S00858.1io +++| UJN FCN3 PROCESS ERROR 00882 M01S00859.1io +++| 00883 M01S00860.1io +++| FCN6 LDD T6 00884 M01S00861.1io +++| ZJN FCN5 IF EXTERNAL REJECT EXIT NOT REQUESTED 00885 M01S00862.1io +++| LDD CS RETURN WITH CONVERTER STATUS 00886 M01S00863.1io +++| LPN 7 00887 M01S00864.1io +++| 00888 M01S00865.1io +++| FCN SUBR ENTRY/EXIT 00889 M01S00866.1io +++| STD FC SAVE FUNCTION CODE 00890 M01S00867.1io +++| SHN -14 00891 M01S00868.1io +++| STD T6 RETURN CONTROLLER STATUS FLAG 00892 M01S00869.1io +++| LDD FC 00893 M01S00870.1io +++| FAN CH ISSUE FUNCTION 00894 M01S00871.1io +++| LCN 0 SET TIMEOUT LIMIT 00895 M01S00872.1io +++| FCN1 IJM FCN4,CH IF FUNCTION ACCEPTED 00896 M01S00873.1io +++| SBN 1 00897 M01S00874.1io +++| NJN FCN1 IF NOT TIMED OUT 00898 M01S00875.1io +++| 00899 M01S00876.1io +++|* *FCN2* IS A SECONDARY ENTRY POINT FOR *FCN*. 00900 M01S00877.1io +++|* 00901 M01S00878.1io +++|* PROCESS FUNCTION TIMEOUT. 00902 M01S00879.1io +++| 00903 M01S00880.1io +++| FCN2 DCN CH+40 00904 M01S00881.1io +++| LDN EFTM *EQXXX FUNCTION TIMEOUT.* 00905 M01S00882.1io +++| 00906 M01S00883.1io +++|* *FCN3* IS A SECONDARY ENTRY POINT FOR *FCN*. 00907 M01S00884.1io +++|* 00908 M01S00885.1io +++|* ENTRY (A) = MESSAGE CODE. 00909 M01S00886.1io +++|* (ES+1) = CHANNEL (RESERVED). 00910 M01S00887.1io +++| 00911 M01S00888.1io +++| FCN3 STD MC SAVE MESSAGE CODE 00912 M01S00889.1io +++| LDD ES+1 RELEASE CHANNEL 00913 M01S00890.1io +++| DCHAN 00914 M01S00891.1io +++| EXECUTE 3IC 00915 M01S00892.1io +++| RJM /3IC/ERM SEND ERROR MESSAGE 00916 M01S00893.1io +++| RJM /3IC/OEQ OFF EQUIPMENT 00917 M01S00894.1io +++| LJM /3IC/CAS CLEAR ASSIGNMENT 00918 M01S00895.1io +++| GST SPACE 4,10 00919 M01S00896.1io +++|** GST - GET STATUS OF 6681 AND EQUIPMENT. 00920 M01S00897.1io +++|* 00921 M01S00898.1io +++|* EXIT (A) = BITS O - 2 OF 6681 STATUS. 00922 M01S00899.1io +++|* (CS) = 6681 STATUS. 00923 M01S00900.1io +++|* (ST) = EQUIPMENT STATUS. 00924 M01S00901.1io +++|* 00925 M01S00902.1io +++|* CALLS RST. 00926 M01S00903.1io +++| 00927 M01S00904.1io +++| 00928 M01S00905.1io +++| GST SUBR ENTRY/EXIT 00929 M01S00906.1io +++| LDN 13 SELECT EQUIPMENT STATUS 00930 M01S00907.1io +++| RJM RST 00931 M01S00908.1io +++| LDN 12 GET CONVERTER STATUS 00932 M01S00909.1io +++| RJM RST 00933 M01S00910.1io +++| LDD CS CHECK CONVERTER STATUS 00934 M01S00911.1io +++| LPN 7 00935 M01S00912.1io +++| UJN GSTX RETURN 00936 M01S00913.1io +++| IFN SPACE 4,10 00937 M01S00914.1io +++|** IFN - ISSUE FUNCTION TO CONVERTER. 00938 M01S00915.1io +++|* 00939 M01S00916.1io +++|* ENTRY (A) = FUNCTION CODE/100. 00940 M01S00917.1io +++|* 00941 M01S00918.1io +++|* EXIT (FC) = FUNCTION CODE. 00942 M01S00919.1io +++|* CHANNEL ACTIVE. 00943 M01S00920.1io +++|* TO *FCN2* IF FUNCTION TIMEOUT. 00944 M01S00921.1io +++| 00945 M01S00922.1io +++| 00946 M01S00923.1io +++| IFN2 ACN CH 00947 M01S00924.1io +++| 00948 M01S00925.1io +++| IFN SUBR ENTRY/EXIT 00949 M01S00926.1io +++| SHN 6 00950 M01S00927.1io +++| FAN CH ISSUE FUNCTION 00951 M01S00928.1io +++| STD FC 00952 M01S00929.1io +++| LDN 6 00953 M01S00930.1io +++| IFN1 IJM IFN2,CH IF FUNCTION ACCEPTED 00954 M01S00931.1io +++| SBN 1 00955 M01S00932.1io +++| NJN IFN1 IF NOT TIMED OUT 00956 M01S00933.1io +++| LJM FCN2 FUNCTION TIMEOUT ERROR PROCESSOR 00957 M01S00934.1io +++| IOM SPACE 4,10 00958 M01S00935.1io +++|** IOM - ISSUE OPERATOR MESSAGE. 00959 M01S00936.1io +++|* 00960 M01S00937.1io +++|* ENTRY (A) = MESSAGE CODE FOR *I* DISPLAY. 00961 M01S00938.1io +++|* (IR+3) = BUFFER POINT NUMBER. 00962 M01S00939.1io +++|* 00963 M01S00940.1io +++|* USES T1, CM - CM+4. 00964 M01S00941.1io +++|* 00965 M01S00942.1io +++|* MACROS NFA. 00966 M01S00943.1io +++| 00967 M01S00944.1io +++| 00968 M01S00945.1io +++| IOM SUBR ENTRY/EXIT 00969 M01S00946.1io +++| STD T1 00970 M01S00947.1io +++| NFA BFCW+1 READ PREVIOUS MESSAGE 00971 M01S00948.1io +++| ADD IR+3 00972 M01S00949.1io +++| ADD IR+3 00973 M01S00950.1io +++| CRD CM 00974 M01S00951.1io +++| LDD CM CHECK IF SAME MESSAGE 00975 M01S00952.1io +++| LMD T1 00976 M01S00953.1io +++| ZJN IOMX IF SAME AS LAST MESSAGE 00977 M01S00954.1io +++| LDD T1 00978 M01S00955.1io +++| LMN EOFF 00979 M01S00956.1io +++| NJN IOM1 IF SETTING *OFF* MESSAGE 00980 M01S00957.1io +++| LDD CM 00981 M01S00958.1io +++| LMN EOHE 00982 M01S00959.1io +++| ZJN IOMX IF CURRENTLY OFF WITH ERROR 00983 M01S00960.1io +++| IOM1 LDD T1 SET NEW MESSAGE 00984 M01S00961.1io +++| STD CM 00985 M01S00962.1io +++| SBN ENEC 00986 M01S00963.1io +++| MJN IOM2 IF NOT ERROR CONDITION 00987 M01S00964.1io +++| LDD CP GET ATTENTION OF OPERATOR 00988 M01S00965.1io +++| ADN MS2W 00989 M01S00966.1io +++| CWM IOMA,TR 00990 M01S00967.1io +++| IOM2 NFA BFCW+1 STORE NEW MESSAGE 00991 M01S00968.1io +++| ADD IR+3 00992 M01S00969.1io +++| ADD IR+3 00993 M01S00970.1io +++| CWD CM 00994 M01S00971.1io +++| UJP IOMX RETURN 00995 M01S00972.1io +++| 00996 M01S00973.1io +++| 00997 M01S00974.1io +++| IOMA DATA C+$REQUEST *I* DISPLAY.+ 00998 M01S00975.1io +++| MCI SPACE 4,10 00999 M01S00976.1io +++|** MCI - MODIFY CHANNEL INSTRUCTIONS. 01000 M01S00977.1io +++|* 01001 M01S00978.1io +++|* ENTRY (ES+1) = CHANNEL NUMBER. 01002 M01S00979.1io +++|*
| Line S00980 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 01003 M02S00980.ns2655 ---|* EXIT (RC) = 0.
| Line S00981 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 01004 M02S00981.ns2655 ---|* CHANNEL RESERVED. 01005 M01S00009.ns2655 +++|* EXIT (A) .EQ. 0, CHANNEL RESERVED AND (RC) = 0. 01006 M01S00010.ns2655 +++|* (A) .EQ. *ECUA*, CHANNEL UNAVAILABLE. 01007 M01S00982.1io +++|* 01008 M01S00983.1io +++|* USES T1, T2. 01009 M01S00984.1io +++|* 01010 M01S00985.1io +++|* MACROS CHTL, RCHAN. 01011 M01S00986.1io +++| 01012 M01S00987.1io +++| 01013 M01S00988.1io +++| MCI1 RAI T2 01014 M01S00989.1io +++| AOD T1 01015 M01S00990.1io +++| MCI2 LDI T1 01016 M01S00991.1io +++| STD T2 01017 M01S00992.1io +++| LDD ES+1 01018 M01S00001.252l678 +++| LPN 37 01019 M01S00993.1io +++| CHTL * 01020 M01S00994.1io +++| SBN CH 01021 M01S00995.1io +++| NJN MCI1 IF MORE INSTRUCTIONS TO MODIFY 01022 M01S00996.1io +++| STD RC CLEAR RETRY COUNT 01023 M01S00011.ns2655 +++| 01024 M01S00012.ns2655 +++| MCI SUBR ENTRY/EXIT
| Line S00997 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 01025 M02S00997.ns2655 ---| LDD ES+1 RESERVE CHANNEL 01026 M01S00013.ns2655 +++| LDD ES+1 GET CHANNEL BYTE 01027 M01S00014.ns2655 +++| LPC 4037 REMOVE ALL BUT CHANNEL NUMBER
| Line S00998 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 01028 M02S00998.ns2655 ---| RCHAN
| Line S00999 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 01029 M02S00999.ns2655 ---|
| Line S01000 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 01030 M02S01000.ns2655 ---| MCI SUBR ENTRY/EXIT 01031 M01S00015.ns2655 +++| RCHAN TRY TO RESERVE CHANNEL 01032 M01S01001.1io +++| LDC TCHS LOAD FWA OF CHANNEL TABLE ADDRESSES 01033 M01S01002.1io +++| STD T1
| Line S01003 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 01034 M02S01003.ns2655 ---| UJN MCI2 UPDATE CHANNEL INSTRUCTIONS 01035 M01S00016.ns2655 +++| LDM CM+1 01036 M01S00017.ns2655 +++| SHN 21-13 01037 M01S00018.ns2655 +++| PJN MCI2 IF CHANNEL AVAILABLE 01038 M01S00019.ns2655 +++| LDN ECUA *CHANNEL UNAVAILABLE* 01039 M01S00020.ns2655 +++| UJN MCIX EXIT WITH ERROR CODE 01040 M01S01004.1io +++| MSG SPACE 4,10 01041 M01S01005.1io +++|** MSG - PROCESS CONTROL POINT MESSAGE. 01042 M01S01006.1io +++|* 01043 M01S01007.1io +++|* ENTRY (IR+4) SET. 01044 M01S01008.1io +++|* 01045 M01S00001.1io9 +++|* USES T1, CM - CM+4. 01046 M01S00002.1io9 +++|* 01047 M01S01009.1io +++|* CALLS C2D. 01048 M01S01010.1io +++| 01049 M01S01011.1io +++|
| Line S01012 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io9 |
Seq # *Modification Id* Act ----------------------------+ 01050 M02S01012.1io9 ---| MSG1 RJM C2D CONVERT BUFFER COUNT
| Line S01013 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io9 |
Seq # *Modification Id* Act ----------------------------+ 01051 M02S01013.1io9 ---| STM MSGA
| Line S01014 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io9 |
Seq # *Modification Id* Act ----------------------------+ 01052 M02S01014.1io9 ---| LDD CP STORE CONTROL POINT MESSAGE
| Line S01015 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io9 |
Seq # *Modification Id* Act ----------------------------+ 01053 M02S01015.1io9 ---| ADN MS1W
| Line S01016 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io9 |
Seq # *Modification Id* Act ----------------------------+ 01054 M02S01016.1io9 ---| CWM MSGA,TR
| Line S01017 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io9 |
Seq # *Modification Id* Act ----------------------------+ 01055 M02S01017.1io9 ---| 01056 M01S01018.1io +++| MSG SUBR ENTRY/EXIT 01057 M01S01019.1io +++| LDD IR+4 01058 M01S01020.1io +++| LPN 77 01059 M01S01021.1io +++| NJN MSG1 IF BUFFERS ASSIGNED 01060 M01S01022.1io +++| LDD CP CONSOLE MESSAGE = *IDLE.* 01061 M01S01023.1io +++| ADN MS1W 01062 M01S01024.1io +++| CWM =C*IDLE.*,ON
| Line S01025 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io9 |
Seq # *Modification Id* Act ----------------------------+ 01063 M02S01025.1io9 ---| UJN MSGX RETURN 01064 M01S00003.1io9 +++| UJN MSG2 CHECK FOR *MS2W* MESSAGE 01065 M01S00004.1io9 +++| 01066 M01S00005.1io9 +++| MSG1 RJM C2D CONVERT BUFFER COUNT 01067 M01S00006.1io9 +++| STM MSGA 01068 M01S00007.1io9 +++| LDD CP STORE CONTROL POINT MESSAGE 01069 M01S00008.1io9 +++| ADN MS1W 01070 M01S00009.1io9 +++| CWM MSGA,TR 01071 M01S00010.1io9 +++| MSG2 LDD CP CHECK FOR *MS2W* MESSAGE 01072 M01S00011.1io9 +++| ADN MS2W 01073 M01S00012.1io9 +++| CRD CM 01074 M01S00013.1io9 +++| LDD CM 01075 M01S00014.1io9 +++| ZJN MSGX IF NO +CHECK *I* DISPLAY+ MESSAGE 01076 M01S00015.1io9 +++| LDN 0 SET BUFFER POINT INDEX 01077 M01S00016.1io9 +++| STD T1 01078 M01S00017.1io9 +++| MSG3 NFA BFCW+1 READ SECOND BUFFER POINT WORD 01079 M01S00018.1io9 +++| ADD T1 01080 M01S00019.1io9 +++| ADD T1 01081 M01S00020.1io9 +++| CRD CM 01082 M01S00021.1io9 +++| LDD CM CHECK *I* DISPLAY MESSAGE CODE 01083 M01S00022.1io9 +++| SBN ENEC 01084 M01S00023.1io9 +++| PJN MSG4 IF ERROR CONDITION PRESENT 01085 M01S00024.1io9 +++| AOD T1 ADVANCE BUFFER POINT INDEX 01086 M01S00025.1io9 +++| LMM TAEQ 01087 M01S00026.1io9 +++| NJN MSG3 IF MORE TO CHECK 01088 M01S00027.1io9 +++| STD CM 01089 M01S00028.1io9 +++| LDD CP CLEAR OPERATOR ALERT 01090 M01S00029.1io9 +++| ADN MS2W 01091 M01S00030.1io9 +++| CWD CM 01092 M01S00031.1io9 +++| MSG4 LJM MSGX RETURN 01093 M01S00032.1io9 +++| 01094 M01S01026.1io +++| 01095 M01S01027.1io +++| MSGA DATA C*00 BUFFERS ACTIVE.* 01096 M01S01028.1io +++| PCP SPACE 4,10 01097 M01S01029.1io +++|** PCP - PROCESS CHANNEL PARITY. 01098 M01S01030.1io +++|* 01099 M01S01031.1io +++|* ENTRY (A) = UNRECOVERED FLAG. 01100 M01S01032.1io +++|* (RC) = RETRY COUNT. 01101 M01S01033.1io +++|* 01102 M01S01034.1io +++|* EXIT TO *FCN3* IF UNRECOVERED ERROR. 01103 M01S01035.1io +++|* 01104 M01S01036.1io +++|* USES MC, RC, RT. 01105 M01S01037.1io +++|* 01106 M01S01038.1io +++|* CALLS *3IC*. 01107 M01S01039.1io +++|* 01108 M01S01040.1io +++|* MACROS EXECUTE. 01109 M01S01041.1io +++| 01110 M01S01042.1io +++| 01111 M01S01043.1io +++| PCP1 STD RC CLEAR RETRY COUNT 01112 M01S01044.1io +++| EXECUTE 3IC 01113 M01S01045.1io +++| RJM /3IC/ERM ISSUE ERROR MESSAGE 01114 M01S01046.1io +++| 01115 M01S01047.1io +++| PCP SUBR 01116 M01S01048.1io +++| STD RT STORE RECOVERED FLAG 01117 M01S01049.1io +++| LDN ECRE *EQXXX CHANNEL PARITY ERROR.* 01118 M01S01050.1io +++| STD MC 01119 M01S01051.1io +++| LDD RC 01120 M01S01052.1io +++| SHN 6 APPEND RETRY COUNT TO RECOVERY FLAG 01121 M01S01053.1io +++| RAD RT 01122 M01S01054.1io +++| LPN 1 01123 M01S01055.1io +++| ZJN PCP1 IF RECOVERED ERROR 01124 M01S01056.1io +++| LDN ECRE *EQXXX CHANNEL PARITY ERROR.* 01125 M01S01057.1io +++| LJM FCN3 PROCESS UNRECOVERED ERROR 01126 M01S01058.1io +++| REQ SPACE 4,15 01127 M01S01059.1io +++|** REQ - REQUEST EQUIPMENT. 01128 M01S01060.1io +++|*
| Line S01061 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io5 |
Seq # *Modification Id* Act ----------------------------+ 01129 M02S01061.1io5 ---|* EXIT (A) = 0 IF NO EQUIPMENT AVAILABLE. 01130 M01S00001.1io5 +++|* EXIT (A) = 0 IF NO EQUIPMENT AVAILABLE OR *DSP/QAC* CALL 01131 M01S00002.1io5 +++|* BLOCK BUSY. 01132 M01S01062.1io +++|* (EQ) = EST ORDINAL / DEVICE TYPE. 01133 M01S01063.1io +++|* (FA) = 0. 01134 M01S01064.1io +++|* (ES - ES+4) = EST ENTRY. 01135 M01S01065.1io +++|* (IR+3) = EQUIPMENT INDEX. 01136 M01S01066.1io +++|* 01137 M01S01067.1io +++|* USES EI. 01138 M01S01068.1io +++|* 01139 M01S01069.1io +++|* CALLS CAD, CEQ, CCT, IOM, MCI, RLE, STS. 01140 M01S01070.1io +++|* 01141 M01S01071.1io +++|* MACROS EXECUTE. 01142 M01S01072.1io +++| 01143 M01S01073.1io +++| 01144 M01S01074.1io +++| REQ SUBR ENTRY/EXIT 01145 M01S00003.1io5 +++| LDD RA CHECK *DSP/QAC* PARAMETER BLOCK BUSY 01146 M01S00004.1io5 +++| SHN 6 01147 M01S00005.1io5 +++| ADK QAPB 01148 M01S00006.1io5 +++| CRD CM 01149 M01S00007.1io5 +++| LDD CM+4 BUSY BIT 01150 M01S00008.1io5 +++| LPN 1 01151 M01S00009.1io5 +++| REQ0 ZJN REQX IF CALL BLOCK BUSY 01152 M01S01075.1io +++| LDN 0 CLEAR EST ORDINAL 01153 M01S01076.1io +++| STD EQ 01154 M01S01077.1io +++| STD FA CLEAR FST ADDRESS 01155 M01S01078.1io +++| LCN 0 SET COUNTER 01156 M01S01079.1io +++| STD EI 01157 M01S01080.1io +++| LDD IR+3 GET EQUIPMENT INDEX 01158 M01S01081.1io +++| SHN 0-13 01159 M01S01082.1io +++| ZJN REQ1 IF ALL EQUIPMENT NOT CHECKED 01160 M01S01083.1io +++| LCN 0 01161 M01S01084.1io +++| STD IR+3 01162 M01S01085.1io +++| REQ1 AOD IR+3 ADVANCE EQUIPMENT INDEX 01163 M01S01086.1io +++| LMM TAEQ 01164 M01S01087.1io +++| NJN REQ2 IF NO MATCH 01165 M01S01088.1io +++| STD IR+3 01166 M01S01089.1io +++| REQ2 AOD EI ADVANCE COUNTER 01167 M01S01090.1io +++| LMM TAEQ
| Line S01091 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 1io5 |
Seq # *Modification Id* Act ----------------------------+ 01168 M02S01091.1io5 ---| ZJN REQX IF ALL EQUIPMENT CHECKED 01169 M01S00010.1io5 +++| ZJN REQ0 IF ALL EQUIPMENT CHECKED 01170 M01S01092.1io +++| LDM TAEQ+1,IR+3 01171 M01S01093.1io +++| STD EQ 01172 M01S01094.1io +++| SHN -3 CHECK EQUIPMENT AVAILABLE 01173 M01S01095.1io +++| RJM CEQ
| Line S01096 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01174 M02S01096.242l642 ---| NJN REQ1 IF ASSIGNED, DOWN, OR OFF 01175 M01S00014.242l642 +++| NJN REQ1 IF EQUIPMENT ASSIGNED ELSEWHERE 01176 M01S01097.1io +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS
| Line S01098 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2655 |
Seq # *Modification Id* Act ----------------------------+ 01177 M02S01098.ns2655 ---| LDD EQ 01178 M01S00021.ns2655 +++| ZJN REQ2.1 IF CHANNEL AVAILABLE 01179 M01S00022.ns2655 +++| RJM IOM ISSUE ERROR MESSAGE 01180 M01S00023.ns2655 +++| UJN REQ1 CHECK NEXT EQUIPMENT 01181 M01S00024.ns2655 +++| 01182 M01S00025.ns2655 +++| REQ2.1 LDD EQ 01183 M01S01099.1io +++| LPN 7 01184 M01S01100.1io +++| SBK NPDT 01185 M01S01101.1io +++| NJN REQ4 IF NOT NON-IMPACT PRINTER 01186 M01S01102.1io +++| LDD ES CHECK IF CONTROLWARE LOAD NEEDED 01187 M01S01103.1io +++| SHN 21-4 01188 M01S01104.1io +++| PJN REQ3 IF LOAD NOT NEEDED 01189 M01S01105.1io +++| EXECUTE 3IF LOAD CONTROLWARE 01190 M01S01106.1io +++| NJN REQ7 IF BUFFER SPACE UNAVAILABLE 01191 M01S01107.1io +++| REQ3 RJM CCT CONNECT TO DEVICE 01192 M01S01108.1io +++| ZJN REQ8 IF DEVICE READY 01193 M01S01109.1io +++| LMN 1 01194 M01S01110.1io +++| ZJN REQ5 IF NOT READY 01195 M01S01111.1io +++| LMN 4&1 01196 M01S01112.1io +++| NJN REQ7 IF INTERVENTION NOT REQUIRED 01197 M01S01113.1io +++| LDN EIVR *INTERVENTION REQUIRED.* 01198 M01S01114.1io +++| UJN REQ6 SET ERROR MESSAGE 01199 M01S01115.1io +++| 01200 M01S01116.1io +++| REQ4 RJM STS CHECK STATUS 01201 M01S01117.1io +++| NJN REQ8 IF EQUIPMENT READY 01202 M01S01118.1io +++| REQ5 LDN ENRD *NOT READY.* 01203 M01S01119.1io +++| REQ6 RJM IOM ISSUE OPERATOR MESSAGE 01204 M01S01120.1io +++| REQ7 RJM CAD CLEAR AND DISCONNECT 01205 M01S01121.1io +++| RJM RLE RELEASE EQUIPMENT 01206 M01S01122.1io +++| LJM REQ1 PROCESS NEXT EQUIPMENT 01207 M01S01123.1io +++| 01208 M01S01124.1io +++| REQ8 RJM CAD CLEAR AND DISCONNECT 01209 M01S01125.1io +++| LDN ECLE CLEAR MESSAGE 01210 M01S01126.1io +++| RJM IOM ISSUE OPERATOR MESSAGE 01211 M01S01127.1io +++| LDN 1 SET EQUIPMENT AVAILABLE 01212 M01S01128.1io +++| LJM REQX RETURN 01213 M01S01129.1io +++| RLE SPACE 4,10 01214 M01S01130.1io +++|** RLE - RELEASE EQUIPMENT. 01215 M01S01131.1io +++|* 01216 M01S01132.1io +++|* ENTRY (EQ) = 9/EST ORDINAL, 3/DEVICE TYPE. 01217 M01S01133.1io +++|* 01218 M01S01134.1io +++|* EXIT (EQ) = 0. 01219 M01S01135.1io +++|* 01220 M01S01136.1io +++|* MACROS MONITOR. 01221 M01S01137.1io +++| 01222 M01S01138.1io +++| 01223 M01S01139.1io +++| RLE SUBR ENTRY/EXIT 01224 M01S01140.1io +++| LDD EQ 01225 M01S01141.1io +++| SHN -3 01226 M01S01142.1io +++| ZJN RLEX IF NOT ASSIGNED 01227 M01S01143.1io +++| STD CM+1 01228 M01S01144.1io +++| MONITOR DEQM 01229 M01S01145.1io +++|* LDN 0 01230 M01S01146.1io +++| STD EQ 01231 M01S01147.1io +++| UJN RLEX RETURN 01232 M01S01148.1io +++| RST SPACE 4,15 01233 M01S01149.1io +++|** RST - READ STATUS. 01234 M01S01150.1io +++|* 01235 M01S01151.1io +++|* ENTRY (A) = 12 IF REQUESTING CONVERTER STATUS. 01236 M01S01152.1io +++|* = 13 IF REQUESTING EQUIPMENT STATUS. 01237 M01S01153.1io +++|* 01238 M01S01154.1io +++|* EXIT (CS) = CONVERTER STATUS IF REQUESTED. 01239 M01S01155.1io +++|* (ST) = EQUIPMENT STATUS IF REQUESTED. 01240 M01S01156.1io +++|* 01241 M01S01157.1io +++|* USES CM, RC, T4. 01242 M01S01158.1io +++|* 01243 M01S01159.1io +++|* CALLS IFN, PCP. 01244 M01S01160.1io +++| 01245 M01S01161.1io +++| 01246 M01S01162.1io +++| RST2 AOD RC ADVANCE RETRY COUNT 01247 M01S01163.1io +++| SBN CHPR 01248 M01S01164.1io +++| MJN RST1 IF NOT AT RETRY LIMIT 01249 M01S01165.1io +++| LDN 1 01250 M01S01166.1io +++| RST3 RJM PCP PROCESS PARITY ERROR 01251 M01S01167.1io +++| 01252 M01S01168.1io +++| RST SUBR ENTRY/EXIT 01253 M01S01169.1io +++| STD CM 01254 M01S01170.1io +++| SBN 12 SET STATUS INDEX 01255 M01S01171.1io +++| STD T4 01256 M01S01172.1io +++| RST1 LDD CM ISSUE CONVERTER FUNCTION 01257 M01S01173.1io +++| RJM IFN 01258 M01S01174.1io +++| IAN CH+40 INPUT STATUS 01259 M01S01175.1io +++| DCN CH+40 01260 M01S01176.1io +++| ERRNZ CS+1-ST CODE DEPENDS ON VALUE 01261 M01S01177.1io +++| STM CS,T4 01262 M01S01178.1io +++| SFM RST2,CH IF CHANNEL PARITY ERROR 01263 M01S01179.1io +++| LDD RC 01264 M01S01180.1io +++| ZJN RSTX IF NO PREVIOUS ERROR 01265 M01S01181.1io +++| LDN 0 01266 M01S01182.1io +++| UJN RST3 PROCESS RECOVERED PARITY ERROR 01267 M01S01183.1io +++| SFA SPACE 4,10 01268 M01S01184.1io +++|** SFA - SET FET ADDRESS. 01269 M01S01185.1io +++|* 01270 M01S01186.1io +++|* ENTRY (BA - BA+1) = RELATIVE FET ADDRESS. 01271 M01S01187.1io +++|* 01272 M01S01188.1io +++|* EXIT (A) = ABSOLUTE FET ADDRESS. 01273 M01S01189.1io +++| 01274 M01S01190.1io +++| 01275 M01S01191.1io +++| SFA SUBR ENTRY/EXIT 01276 M01S01192.1io +++| LDD BA 01277 M01S01193.1io +++| SHN 6 01278 M01S01194.1io +++| ADD RA 01279 M01S01195.1io +++| SHN 6 01280 M01S01196.1io +++| ADD BA+1 01281 M01S01197.1io +++| UJN SFAX RETURN 01282 M01S01198.1io +++| SFF SPACE 4,15 01283 M01S01199.1io +++|** SFF - SEARCH FOR FILE. 01284 M01S01200.1io +++|* 01285 M01S01201.1io +++|* ENTRY (A) = FILE TYPE. 01286 M01S01202.1io +++|* (EQ) = 9/EST ORDINAL,3/EQUIPMENT TYPE. 01287 M01S01203.1io +++|* (ES - ES+4) = EST ENTRY. 01288 M01S01204.1io +++|* 01289 M01S01205.1io +++|* EXIT *1IO* IS RECALLED AND *QAC* IS CALLED INTO THIS PP. 01290 M01S01206.1io +++|* 01291 M01S01207.1io +++|* USES T1, T2, CM - CM+4. 01292 M01S01208.1io +++|* 01293 M01S01209.1io +++|* CALLS *QAC*. 01294 M01S01210.1io +++|* 01295 M01S01211.1io +++|* MACROS EXECUTE, MONITOR, SFA. 01296 M01S01212.1io +++| 01297 M01S01213.1io +++| 01298 M01S01214.1io +++| SFF STM QACB+10*5 SET QUEUE TYPE 01299 M01S01215.1io +++| LMK PHQQ 01300 M01S01216.1io +++| ZJN SFF3 IF PUNCH QUEUE 01301 M01S01217.1io +++| LDK ZESF+HESF+DSSF SET EXT. CHAR. AND DISP. CODE 01302 M01S01218.1io +++| STM QACB+7*5+4 01303 M01S01219.1io +++| LDD ES+4 SET EXTERNAL CHARACTERISTICS (PRINT TRAIN) 01304 M01S01220.1io +++| SHN -6 01305 M01S01221.1io +++| LPN 7 01306 M01S01222.1io +++| STD T1 01307 M01S01223.1io +++| LMN 6 01308 M01S01224.1io +++| NJN SFF2 IF NOT 12-BIT ASCII TRAIN 01309 M01S01225.1io +++| LDK ECSF+DSSF SET EXPLICIT EXT. CHAR. AND DISP. CODE 01310 M01S01226.1io +++| STM QACB+7*5+4 01311 M01S01227.1io +++| SFF2 LDM TPTE,T1 SET EXTERNAL CHARACTERISTICS 01312 M01S01228.1io +++| STM QACB+10*5+3 01313 M01S01229.1io +++| SFF3 LDK FCSF+IDSF+DPSF ADD SELECTION FLAGS 01314 M01S01230.1io +++| RAM QACB+7*5+4 01315 M01S01231.1io +++| LDK LPSF+LVSF 01316 M01S01232.1io +++| STM QACB+7*5+3 01317 M01S01233.1io +++| LDD ES+3 SET DISPOSITION CODE 01318 M01S01234.1io +++| STM QACB+10*5+2
| Line S01235 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01319 M02S01235.252l678 ---| LDD ES+2 SET FORMS CODE
| Line S01236 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01320 M02S01236.252l678 ---| STM QACB+10*5+1 01321 M01S01237.1io +++| LDD ES+4 SET DEVICE ID CODE 01322 M01S01238.1io +++| LPN 77 01323 M01S01239.1io +++| STM QACB+5*5+3 01324 M01S01240.1io +++| LDD EQ READ EST ENTRY 01325 M01S01241.1io +++| SHN -3 01326 M01S01242.1io +++| SFA EST 01327 M01S01243.1io +++| ADK EQAE 01328 M01S01244.1io +++| CRD CM 01329 M01S00002.252l678 +++| LDD CM+2 SET FORMS CODE 01330 M01S00003.252l678 +++| STM QACB+10*5+1 01331 M01S01245.1io +++| LDD CM+3 SET EQUIPMENT ACCESS LEVEL LIMITS 01332 M01S01246.1io +++| SHN 6 01333 M01S01247.1io +++| STM QACB+11*5+3 01334 M01S01248.1io +++| LDN GTFC*2 SET *GET* FUNCTION 01335 M01S01249.1io +++| STM QACB+4 01336 M01S01250.1io +++| 01337 M01S01251.1io +++|* RECALL *1IO* AND CALL *QAC* INTO THIS PP. 01338 M01S01252.1io +++| 01339 M01S01253.1io +++| LDN QAPBL WRITE *QAC* PARAMETER BLOCK 01340 M01S01254.1io +++| STD T1 01341 M01S01255.1io +++| LDD RA 01342 M01S01256.1io +++| SHN 6 01343 M01S01257.1io +++| ADC QAPB 01344 M01S01258.1io +++| CWM QACB,T1 01345 M01S01259.1io +++| LDD HN SET FILE REQUESTED FLAG IN *1IO* RECALL 01346 M01S01260.1io +++| RAD IR+2 01347 M01S01261.1io +++| EXECUTE QAC,= 01348 M01S01262.1io +++| LDD MA CALL *QAC* 01349 M01S01263.1io +++| CWM SFFA,ON 01350 M01S01264.1io +++| LDN 0 ENABLE QUEUING OF PP REQUEST 01351 M01S01265.1io +++| STD CM+1 01352 M01S01266.1io +++| MONITOR RPPM 01353 M01S01267.1io +++| LJM RCL1 RECALL *1IO* 01354 M01S01268.1io +++| 01355 M01S01269.1io +++| SFFA VFD 18/3LQAC,24/0,18/QAPB 01356 M01S01270.1io +++| STS SPACE 4,20 01357 M01S01271.1io +++|** STS - CHECK EQUIPMENT STATUS. 01358 M01S01272.1io +++|* 01359 M01S01273.1io +++|* ENTRY (ES - ES+4) = EST ENTRY. 01360 M01S01274.1io +++|* 01361 M01S01275.1io +++|* EXIT (A) = 0, IF EQUIPMENT *NOT READY*. 01362 M01S01276.1io +++|* (A) = 1, IF EQUIPMENT CONNECTED AND *READY*. 01363 M01S01277.1io +++|* (CS) = 6681 STATUS. 01364 M01S01278.1io +++|* (ST) = EQUIPMENT STATUS. 01365 M01S01279.1io +++|* TO *FCN3* IF ERROR. 01366 M01S01280.1io +++|* 01367 M01S01281.1io +++|* CALLS CON, IFN. 01368 M01S01282.1io +++| 01369 M01S01283.1io +++| 01370 M01S01284.1io +++| STS6 LDD ST CHECK EQUIPMENT STATUS 01371 M01S01285.1io +++| LPN 1 01372 M01S01286.1io +++| 01373 M01S01287.1io +++| STS SUBR ENTRY/EXIT 01374 M01S01288.1io +++| LDN 20 SELECT 6681 01375 M01S01289.1io +++| RJM IFN ISSUE FUNCTION 01376 M01S01290.1io +++| DCN CH+40 01377 M01S01291.1io +++| RJM CON CONNECT EQUIPMENT 01378 M01S01292.1io +++| STS3 ZJN STS6 IF NO ERROR 01379 M01S01293.1io +++| RJM CON 01380 M01S01294.1io +++| ZJN STS6 IF PARITY ERROR CLEARED 01381 M01S01295.1io +++| STS4 LDN ERJM REJECT/TRANSMISSION PARITY ERROR 01382 M01S01296.1io +++| STS5 LJM FCN3 PROCESS ERROR 01383 M01S01297.1io +++| SPACE 4,10 01384 M01S01298.1io +++|** COMMON DECKS. 01385 M01S01299.1io +++| 01386 M01S01300.1io +++| 01387 M01S01301.1io +++|*CALL COMPRSI 01388 M01S01302.1io +++| SPACE 4,10 01389 M01S01303.1io +++|** LITERALS BLOCK. 01390 M01S01304.1io +++| 01391 M01S01305.1io +++| 01392 M01S01306.1io +++| USE OVERLAY 01393 M01S01307.1io +++| TPTE SPACE 4,10 01394 M01S01308.1io +++|** TPTE - TABLE OF PRINT TRAIN EXTERNAL CHARACTERISTIC VALUES. 01395 M01S01309.1io +++|* 01396 M01S01310.1io +++|* INDEXED BY PRINT TRAIN NUMBER. 01397 M01S01311.1io +++|* 01398 M01S01312.1io +++|*T, 3/EC , 9/ 0
Figure
01399 M01S01313.1io +++|* 01400 M01S01314.1io +++|* EC = EXTERNAL CHARACTERISTIC VALUE. 01401 M01S01315.1io +++| 01402 M01S01316.1io +++| 01403 M01S01317.1io +++| TPTE BSS 0 01404 M01S01318.1io +++| 01405 M01S01319.1io +++| CON 4000 595-1/596-1 01406 M01S01320.1io +++| CON 4000 595-1/596-1 01407 M01S01321.1io +++| CON 4000 NOT SUPPORTED 01408 M01S01322.1io +++| CON 4000 NOT SUPPORTED 01409 M01S01323.1io +++| CON 6000 595-6/596-6 01410 M01S01324.1io +++| CON 5000 595-5/596-5 01411 M01S01325.1io +++| CON 6000 595-6/596-6 01412 M01S01326.1io +++| CON 0 595-6/596-6 USED AS 595-5/596-5 01413 M01S01327.1io +++| TCHS SPACE 4,10 01414 M01S01328.1io +++|** TCHS - CHANNEL TABLE. 01415 M01S01329.1io +++| 01416 M01S01330.1io +++| 01417 M01S01331.1io +++| TCHS CHTB 01418 M01S01332.1io +++| TAEQ SPACE 4,10 01419 M01S01333.1io +++|** TAEQ - TABLE OF AVAILABLE EQUIPMENT. 01420 M01S01334.1io +++| 01421 M01S01335.1io +++| 01422 M01S01336.1io +++| TAEQ BSS 0 01423 M01S01337.1io +++| TAEQL EQU CTIR*5-TEQR*5 TABLE LENGTH 01424 M01S01338.1io +++| SPACE 4,10 01425 M01S01339.1io +++|** QACB - *QAC* PARAMETER BLOCK BUFFER. 01426 M01S01340.1io +++| 01427 M01S01341.1io +++| 01428 M01S01342.1io +++| QACB EQU TAEQ+TAEQL FWA OF BUFFER 01429 M01S01343.1io +++| QACBL EQU QAPBL*5 *QAC* PARAMETER BLOCK BUFFER LENGTH 01430 M01S01344.1io +++| 01431 M01S01345.1io +++| ORGR EQU QACB+5*QFFL+5 01432 M01S01346.1io +++| 01433 M01S01347.1io +++| DEFOIES ORGR SET LOAD ADDRESS OF ERROR ROUTINES 01434 M01S01348.1io +++| SPACE 4,10 01435 M01S01349.1io +++| OVERFLOW ,BFMS-TAEQL 01436 M01S01350.1io +++| RIO TTL 1IO/3IA - 1IO SUBROUTINES. 01437 M01S01351.1io +++| TITLE 01438 M01S01352.1io +++| QUAL 3IA 01439 M01S01353.1io +++| IDENT 3IA,RIOX 01440 M01S01354.1io +++|*COMMENT 1IO - SUBROUTINES.
| Line S01355 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01441 M02S01355.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974. 01442 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01443 M01S01356.1io +++| RIO SPACE 4,10 01444 M01S01357.1io +++|** RIO - RETURN CONTROL. 01445 M01S01358.1io +++| 01446 M01S01359.1io +++| 01447 M01S01360.1io +++| ORG ORGR 01448 M01S01361.1io +++| 01449 M01S01362.1io +++| RIO SUBR ENTRY/EXIT 01450 M01S01363.1io +++| UJN RIOX RETURN 01451 M01S01364.1io +++| ABF SPACE 4,10 01452 M01S01365.1io +++|** ABF - ASSIGN BUFFER. 01453 M01S01366.1io +++|* 01454 M01S01367.1io +++|* ENTRY (EQ) = EST ORDINAL / DEVICE TYPE. 01455 M01S01368.1io +++|* (FA) = FST ADDRESS. 01456 M01S01369.1io +++|* (FS - FS+4) = FST ENTRY. 01457 M01S01370.1io +++|* (QACB - QACB+QACBL) = *QAC* PARAMETER BLOCK. 01458 M01S01371.1io +++|* 01459 M01S01372.1io +++|* USES EC, FA, FS - FS+4. 01460 M01S01373.1io +++|* 01461 M01S01374.1io +++|* CALLS EBP, EFT, FFB. 01462 M01S01375.1io +++| 01463 M01S01376.1io +++| 01464 M01S01377.1io +++| ABF SUBR ENTRY/EXIT 01465 M01S01378.1io +++| LDD EQ SET DEVICE TYPE 01466 M01S01379.1io +++| LPN 7 01467 M01S01380.1io +++| STD EC 01468 M01S01381.1io +++| SBK CRDT 01469 M01S01382.1io +++| NJN ABF1 IF NOT INPUT FILE 01470 M01S01383.1io +++| STD FA CLEAR FST ADDRESS 01471 M01S01384.1io +++| LDN ZERL CLEAR FST ENTRY 01472 M01S01385.1io +++| CRD FS 01473 M01S01386.1io +++| ABF1 RJM FFB FIND FREE BUFFER 01474 M01S01387.1io +++| RJM EFT ENTER FET INFORMATION 01475 M01S01388.1io +++| RJM EBP ENTER BUFFER POINT INFORMATION 01476 M01S01389.1io +++| UJN ABFX RETURN 01477 M01S01390.1io +++| ADR SPACE 4,15 01478 M01S01391.1io +++|** ADR - ASSIGN DRIVER. 01479 M01S01392.1io +++|* 01480 M01S01393.1io +++|* ENTRY (IR+3) = BUFFER NUMBER. 01481 M01S01394.1io +++|* (BA - BA+1) = BUFFER ADDRESS. 01482 M01S01395.1io +++|* (EQ) = EST ORDINAL / DEVICE TYPE. 01483 M01S01396.1io +++|* 01484 M01S01397.1io +++|* EXIT TO *RCL*. 01485 M01S01398.1io +++|* 01486 M01S01399.1io +++|* USES EC, T2, CM - CM+4, CN - CN+4. 01487 M01S01400.1io +++|* 01488 M01S01401.1io +++|* CALLS MSG, *3IC*. 01489 M01S01402.1io +++|* 01490 M01S01403.1io +++|* MACROS EXECUTE, MONITOR. 01491 M01S01404.1io +++| 01492 M01S01405.1io +++| 01493 M01S01406.1io +++| ADR LDN D1AR PREPARE REQUEST WORD 01494 M01S01407.1io +++| STD CN 01495 M01S01408.1io +++| LDD EQ 01496 M01S01409.1io +++| STD CN+1 01497 M01S01410.1io +++| LPN 7 01498 M01S01411.1io +++| STD EC SET DEVICE TYPE 01499 M01S01412.1io +++| LDD BA 01500 M01S01413.1io +++| STD CN+3 01501 M01S01414.1io +++| LDD BA+1 01502 M01S01415.1io +++| STD CN+4 01503 M01S01416.1io +++| LDN 0 CLEAR EMPTY INDICATOR 01504 M01S01417.1io +++| STD T2 01505 M01S01418.1io +++| ADR1 LDD RA READ ASSIGNMENT WORD 01506 M01S01419.1io +++| SHN 6 01507 M01S01420.1io +++| ADD CN 01508 M01S01421.1io +++| CRD CM 01509 M01S01422.1io +++| LDD CM+1 CHECK PROCESSOR 01510 M01S01423.1io +++| SCN 77 01511 M01S01424.1io +++| SHN 6 01512 M01S01425.1io +++| ADD CM 01513 M01S01426.1io +++| NJN ADR2 IF ASSIGNED 01514 M01S01427.1io +++| LDD CN SET FREE ADDRESS 01515 M01S01428.1io +++| STD T2 01516 M01S01429.1io +++| ADR2 LMC 3RD1C 01517 M01S01430.1io +++| NJN ADR3 IF NOT DRIVER 01518 M01S01431.1io +++| LDD CM+3 CHECK ENTRY COUNT 01519 M01S01432.1io +++| LMN MEQD 01520 M01S01433.1io +++| ZJN ADR3 IF DRIVER FULL 01521 M01S01434.1io +++| LDM ADRB,EC CHECK SUB-DRIVER TYPE 01522 M01S01435.1io +++| LMD CM+4 01523 M01S01436.1io +++| NJN ADR3 IF NOT PROPER SUB-DRIVER 01524 M01S01437.1io +++| LDD RA STORE REQUEST 01525 M01S01438.1io +++| SHN 6 01526 M01S01439.1io +++| ADN DRQR 01527 M01S01440.1io +++| CWD CN 01528 M01S01441.1io +++| LJM ADR5 CHECK JOB TYPE 01529 M01S01442.1io +++| 01530 M01S01443.1io +++| ADR3 AOD CN ADVANCE SEARCH 01531 M01S01444.1io +++| LMN DRQR 01532 M01S01445.1io +++| NJN ADR1 IF NOT END OF PROCESSORS 01533 M01S01446.1io +++| LDD T2 01534 M01S01447.1io +++| STD CN 01535 M01S01448.1io +++| NJN ADR4 IF ROOM FOR ANOTHER PROCESSOR 01536 M01S01449.1io +++| EXECUTE 3IC 01537 M01S01450.1io +++| LJM /3IC/CAS CLEAR ASSIGNMENT 01538 M01S01451.1io +++| 01539 M01S01452.1io +++|* *ADR4* IS A SECONDARY ENTRY POINT FOR *ADR*. 01540 M01S01453.1io +++|* 01541 M01S01454.1io +++|* FORMAT *1CD* CALL AND TRY TO INITIATE *1CD* IN ANOTHER PP. 01542 M01S01455.1io +++| 01543 M01S01456.1io +++| ADR4 LDD CN 01544 M01S01457.1io +++| STM ADRA+2 SET PROCESSER NUMBER 01545 M01S01458.1io +++| LDM ADRB,EC SET SUB-DRIVER TYPE 01546 M01S01459.1io +++| STM ADRA+4 01547 M01S01460.1io +++| LDD RA STORE PROCESSOR WORD 01548 M01S01461.1io +++| SHN 6 01549 M01S01462.1io +++| ADD CN 01550 M01S01463.1io +++| CWM ADRA,ON 01551 M01S01464.1io +++| LDD RA SET REQUEST 01552 M01S01465.1io +++| SHN 6 01553 M01S01466.1io +++| ADN DRQR 01554 M01S01467.1io +++| CWD CN 01555 M01S01468.1io +++| LDD IR+1 SET CONTROL POINT NUMBER 01556 M01S01469.1io +++| LPN 37 01557 M01S01470.1io +++| RAM ADRA+1 01558 M01S01471.1io +++| RJM MSG PROCESS MESSAGES 01559 M01S01472.1io +++| EXECUTE 1CD,= 01560 M01S01473.1io +++| LDD MA CALL *1CD* 01561 M01S01474.1io +++| CWM ADRA,ON 01562 M01S01475.1io +++| LDN 0 ENABLE QUEUING OF PP REQUEST 01563 M01S01476.1io +++| STD CM+1 01564 M01S01477.1io +++| MONITOR RPPM 01565 M01S01478.1io +++| LDD CM+1 01566 M01S01479.1io +++| ZJN ADR7 IF PP NOT ASSIGNED 01567 M01S01480.1io +++| 01568 M01S01481.1io +++|* REQUEST NO *1IO* RECALL FOR OUTPUT JOBS. 01569 M01S01482.1io +++| 01570 M01S01483.1io +++| ADR5 LDD FA 01571 M01S01484.1io +++| ZJN ADR6 IF INPUT JOB 01572 M01S01485.1io +++| AOM RCLA SET NO RECALL REQUESTED FLAG 01573 M01S01486.1io +++| ADR6 LJM RCL RECALL *1IO* 01574 M01S01487.1io +++| 01575 M01S01488.1io +++|* RECALL *1IO* AND CALL *1CD* INTO THIS PP. 01576 M01S01489.1io +++| 01577 M01S01490.1io +++| ADR7 LDC 4000 01578 M01S01491.1io +++| STD CM+1 01579 M01S01492.1io +++| LDD IA STORE INPUT REGISTER 01580 M01S01493.1io +++| CWM ADRA,ON 01581 M01S01494.1io +++| LJM RCL2 ENTER *1IO* RECALL REQUEST 01582 M01S01495.1io +++| 01583 M01S01496.1io +++| ADRA VFD 60/0L1CD 01584 M01S01497.1io +++| 01585 M01S01498.1io +++| ADRB INDEX SUB-DRIVER TYPES 01586 M01S01499.1io +++| INDEX LPDT,0 01587 M01S01500.1io +++| INDEX CPDT,0 01588 M01S01501.1io +++| INDEX CRDT,0 01589 M01S01502.1io +++| INDEX NPDT,1 01590 M01S01503.1io +++| INDEX MXDT 01591 M01S01504.1io +++| EBP SPACE 4,10 01592 M01S01505.1io +++|** EBP - ENTER BUFFER POINT INFORMATION. 01593 M01S01506.1io +++|* 01594 M01S01507.1io +++|* ENTRY (BA - BA+1) = BUFFER ADDRESS. 01595 M01S01508.1io +++|* (EQ) = EST ORDINAL / DEVICE TYPE. 01596 M01S01509.1io +++|* (IR+3) = BUFFER POINT NUMBER. 01597 M01S01510.1io +++|* (FA) = FNT ADDRESS. 01598 M01S01511.1io +++|* (T7) = REPEAT COUNT. 01599 M01S01512.1io +++|* (QACB) = FET. 01600 M01S01513.1io +++|* 01601 M01S01514.1io +++|* EXIT BUFFER POINT UPDATED. 01602 M01S01515.1io +++|* 01603 M01S01516.1io +++|* USES CM - CM+4. 01604 M01S01517.1io +++|* 01605 M01S01518.1io +++|* CALLS SFA. 01606 M01S01519.1io +++|* 01607 M01S01520.1io +++|* MACROS NFA. 01608 M01S01521.1io +++| 01609 M01S01522.1io +++| 01610 M01S01523.1io +++| EBP SUBR ENTRY/EXIT 01611 M01S01524.1io +++| RJM SFA READ FILE NAME 01612 M01S01525.1io +++| CRD CM 01613 M01S01526.1io +++| LDD EQ SET EST ORDINAL / DEVICE TYPE 01614 M01S01527.1io +++| SHN -3 01615 M01S01528.1io +++| STD CM+3 01616 M01S01529.1io +++| LDD T7 SET REPEAT COUNT 01617 M01S01530.1io +++| SHN 6 01618 M01S01531.1io +++| STD CM+4
| Line S01532 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 01619 M02S01532.ns2319 ---| NFA QACB+5*EDSO+CMBF,R STORE BUFFER POINT WORD 01620 M01S00001.ns2319 +++| NFA QACB+5*5,R STORE BUFFER POINT WORD 01621 M01S01533.1io +++| CWD CM 01622 M01S00001.ns2487 +++| LDN ZERL 01623 M01S00002.ns2487 +++| CRD CM 01624 M01S00003.ns2487 +++| LDD BA SET FET ADDRESS 01625 M01S00004.ns2487 +++| STD CM+3 01626 M01S00005.ns2487 +++| LDD BA+1 01627 M01S00006.ns2487 +++| STD CM+4 01628 M01S00007.ns2487 +++| NFA BFSP STORE AUXILIARY BUFFER POINT WORD 01629 M01S00008.ns2487 +++| ADD IR+3 01630 M01S00009.ns2487 +++| CWD CM 01631 M01S01534.1io +++| UJN EBPX RETURN 01632 M01S01535.1io +++| EFT SPACE 4,10 01633 M01S01536.1io +++|** EFT - ENTER FET INFORMATION. 01634 M01S01537.1io +++|* 01635 M01S01538.1io +++|* ENTRY (EC) = DEVICE TYPE. 01636 M01S01539.1io +++|* (T3) = BUFFER SIZE / 100. 01637 M01S01540.1io +++|* (IR+3) = BUFFER NUMBER. 01638 M01S01541.1io +++|* (BA - BA+1) = BUFFER ADDRESS. 01639 M01S01542.1io +++|* (ES - ES+4) = EST ENTRY. 01640 M01S01543.1io +++|* 01641 M01S01544.1io +++|* EXIT (T7) = REPEAT COUNT. 01642 M01S01545.1io +++|* 01643 M01S01546.1io +++|* USES EC, T1, T5, T6, RI - RI+1. 01644 M01S01547.1io +++|* 01645 M01S01548.1io +++|* CALLS CRA, SFA. 01646 M01S01549.1io +++| 01647 M01S01550.1io +++| 01648 M01S01551.1io +++|* PROCESS PRINT FILE. 01649 M01S01552.1io +++| 01650 M01S01553.1io +++| EFT1 SBN 6
| Line S01554 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01651 M02S01554.ns2597 ---| NJN EFT2 IF NOT 12-BIT ASCII PRINT FILE
| Line S01555 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 01652 M02S01555.ns2597 ---| LDN 4 01653 M01S00001.ns2597 +++| NJN EFT2 IF NOT ASCII PRINT FILE 01654 M01S00002.ns2597 +++| LDM QACB+10*5+3 01655 M01S00003.ns2597 +++| SHN -6 01656 M01S00004.ns2597 +++| LPN 7 ISOLATE IC 01657 M01S00005.ns2597 +++| LMK DCIC 01658 M01S00006.ns2597 +++| ZJN EFT2 IF 6-BIT DISPLAY CODE 01659 M01S00007.ns2597 +++| LMK A6IC&DCIC 01660 M01S00008.ns2597 +++| ZJN EFT1.1 IF 6/12 ASCII 01661 M01S00009.ns2597 +++| LDN 20&4 SET 8/12 ASCII 01662 M01S00010.ns2597 +++| EFT1.1 LMN 20 SET ASCII FILE FLAG
| Line S01556 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 01663 M02S01556.ns2487 ---| STM QACB+6*5+2 01664 M01S00010.ns2487 +++| STM QACB+5*FPW2+2 01665 M01S01557.1io +++| EFT2 LDM QACB+15*5+3 SET *BATCHIO* SUBSYSTEM PRIVILEDGES FLAG 01666 M01S01558.1io +++| STM QACB+4*5+2 01667 M01S01559.1io +++| SHN 0-13
| Line S01560 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 01668 M02S01560.ns2487 ---| RAM QACB+6*5+2 01669 M01S00011.ns2487 +++| RAM QACB+5*FPW2+2 01670 M01S01561.1io +++| LDD ES CHECK PAPER SIZE 01671 M01S01562.1io +++| SHN 3-11 01672 M01S01563.1io +++| LPN 10 SHORT PAPER BIT
| Line S01564 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 01673 M02S01564.ns2487 ---| RAM QACB+6*5+2 01674 M01S00012.ns2487 +++| RAM QACB+5*FPW2+2 01675 M01S01565.1io +++| LDM QACB+14*5+2 SET DAYFILE RANDOM ADDRESS 01676 M01S01566.1io +++| SCN 77 01677 M01S01567.1io +++| SHN 6 01678 M01S01568.1io +++| LMM QACB+14*5+1 01679 M01S01569.1io +++| SHN 6 01680 M01S01570.1io +++| STD RI+1 01681 M01S01571.1io +++| SCN 77 01682 M01S01572.1io +++| LMM QACB+14*5 01683 M01S01573.1io +++| SHN 6 01684 M01S01574.1io +++| STD RI 01685 M01S01575.1io +++| ADD RI+1 01686 M01S01576.1io +++| ZJN EFT4 IF NO DAYFILE 01687 M01S01577.1io +++| LDD FS SET EQUIPMENT 01688 M01S01578.1io +++| STD T5 01689 M01S01579.1io +++| LDD FS+1 SET FIRST TRACK 01690 M01S01580.1io +++| STD T6 01691 M01S01581.1io +++| RJM CRA CONVERT RANDOM ADDRESS 01692 M01S01582.1io +++| MJN EFT4 IF ADDRESS NOT ON CHAIN 01693 M01S01583.1io +++| LDD T6 SET DAYFILE TRACK 01694 M01S01584.1io +++| STM QACB+5*5+1 01695 M01S01585.1io +++| LDD T7 SET DAYFILE SECTOR 01696 M01S01586.1io +++| 01697 M01S01587.1io +++|* PROCESS PUNCH FILE. 01698 M01S01588.1io +++| 01699 M01S01589.1io +++| EFT3 STM QACB+5*5+2 01700 M01S01590.1io +++| EFT4 LDN 0 CLEAR USER FORMS CONTROL INDICATOR 01701 M01S01591.1io +++| STM QACB+5*5+3 01702 M01S01592.1io +++| LDM QACB+14*5+3 SET USER LIMITS
| Line S01593 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 01703 M02S01593.ns2487 ---| STM QACB+6*5+3 01704 M01S00013.ns2487 +++| STM QACB+5*FPW2+3 01705 M01S01594.1io +++| LDM QACB+14*5+4
| Line S01595 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 01706 M02S01595.ns2487 ---| STM QACB+6*5+4 01707 M01S00014.ns2487 +++| STM QACB+5*FPW2+4 01708 M01S00015.ns2487 +++| LDM QACB+5*16+1 MOVE FILE SIZE TO FET (LOWER 24 BITS) 01709 M01S00016.ns2487 +++| SHN 14 01710 M01S00017.ns2487 +++| SCN 77 01711 M01S00018.ns2487 +++| ADM QACB+5*16+2 01712 M01S00019.ns2487 +++| SHN -6 01713 M01S00020.ns2487 +++| STM QACB+5*14+4 FILE SIZE 01714 M01S00021.ns2487 +++| LDM QACB+5*16+0 01715 M01S00022.ns2487 +++| SHN 14 01716 M01S00023.ns2487 +++| SCN 77 01717 M01S00024.ns2487 +++| ADM QACB+5*16+1 01718 M01S00025.ns2487 +++| SHN -6 01719 M01S00026.ns2487 +++| STM QACB+5*14+3 FILE SIZE 01720 M01S00027.ns2487 +++| LDC 4000 01721 M01S00028.ns2487 +++| STM QACB+5*1+1 SET RANDOM BIT 01722 M01S01596.1io +++| 01723 M01S01597.1io +++|* PROCESS INPUT FILE. 01724 M01S01598.1io +++|
| Line S01599 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 01725 M02S01599.ns2319 ---| EFT5 LDD IR+3 SET BUFFER NUMBER 01726 M01S00002.ns2319 +++| EFT5 LDC BFCW SET BUFFER POINT OFFSET 01727 M01S00003.ns2319 +++| SBD IR+3 01728 M01S00004.ns2319 +++| SBD IR+3 01729 M01S01600.1io +++| STM QACB+5*5 01730 M01S01601.1io +++| LDN QFFL SET FET LENGTH 01731 M01S01602.1io +++| STD T1 01732 M01S01603.1io +++| ADD BA+1 SET BUFFER POINTERS 01733 M01S01604.1io +++| STM QACB+5*1+4 01734 M01S01605.1io +++| STM QACB+5*2+4 01735 M01S01606.1io +++| STM QACB+5*3+4 01736 M01S01607.1io +++| SHN -14 01737 M01S01608.1io +++| ADD BA 01738 M01S01609.1io +++| STM QACB+5*3+3 01739 M01S01610.1io +++| STM QACB+5*2+3 01740 M01S01611.1io +++| LMC QFFL*100-500 01741 M01S01612.1io +++| STM QACB+5*1+3 01742 M01S01613.1io +++| LDN 1 SET FET STATUS 01743 M01S01614.1io +++| STM QACB+4 01744 M01S01615.1io +++| LDN ZERL CLEAR QUEUE ACCESS PARAMETER BLOCK 01745 M01S01616.1io +++| CRM QACB+5*QAPO,ON 01746 M01S00029.ns2487 +++| LDN ZERL 01747 M01S00030.ns2487 +++| CRM QACB+5*FPSN,ON 01748 M01S01617.1io +++| 01749 M01S01618.1io +++|* INITIALIZE DRIVER STATUS BLOCK. 01750 M01S01619.1io +++| 01751 M01S01620.1io +++| LDM QACB+5*15+4 SAVE REPEAT COUNT 01752 M01S01621.1io +++| STD T7 01753 M01S01622.1io +++| LDC QACB+5*EDSO 01754 M01S01623.1io +++| STD T6 01755 M01S01624.1io +++| EFT6 LDN 0 CLEAR DRIVER STATUS BLOCK 01756 M01S01625.1io +++| STI T6 01757 M01S01626.1io +++| AOD T6 01758 M01S01627.1io +++| LMC QACB+5*QFFL 01759 M01S01628.1io +++| NJN EFT6 IF NOT END OF BLOCK 01760 M01S01629.1io +++| LDD EQ SET EQUIPMENT ORDINAL / TYPE 01761 M01S01630.1io +++| STM QACB+5*EDSO+CMEN 01762 M01S01631.1io +++| LDD ES+4 SET CONNECT CODE / CHANNEL 01763 M01S01632.1io +++| LPC 7000 01764 M01S01633.1io +++| LMD ES+1 01765 M01S00004.252l678 +++| SCN 37 01766 M01S00005.252l678 +++| LMD ES+1 01767 M01S01634.1io +++| STM QACB+5*EDSO+CMCE
| Line S01635 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 01768 M02S01635.ns2319 ---| LDC BFCW SET BUFFER POINT ADDRESS
| Line S01636 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 01769 M02S01636.ns2319 ---| SBD IR+3
| Line S01637 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 01770 M02S01637.ns2319 ---| SBD IR+3
| Line S01638 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | ns2319 |
Seq # *Modification Id* Act ----------------------------+ 01771 M02S01638.ns2319 ---| STM QACB+5*EDSO+CMBF 01772 M01S01639.1io +++| LDD T7 SET REPEAT COUNT 01773 M01S01640.1io +++| LPN 77 01774 M01S01641.1io +++| STM QACB+5*EDSO+CMER 01775 M01S01642.1io +++| LDD T3 SET BUFFER THRESHOLD 01776 M01S01643.1io +++| SHN -2 01777 M01S01644.1io +++| ERRNG BBFL-4 CODE DEPENDS ON VALUE 01778 M01S01645.1io +++| SHN 6 01779 M01S01646.1io +++| STM QACB+5*EDSO+CMBT 01780 M01S01647.1io +++| RJM SFA STORE FET 01781 M01S01648.1io +++| CWM QACB,T1 01782 M01S01649.1io +++| 01783 M01S01650.1io +++| EFT SUBR ENTRY/EXIT 01784 M01S01651.1io +++| LDM EFTA,EC SET PROCESSOR ADDRESS 01785 M01S01652.1io +++| STD T1 01786 M01S01653.1io +++| LDM QACB+10*5+3 EXTERNAL CHARACTERISTICS 01787 M01S01654.1io +++| SHN -11 01788 M01S01655.1io +++| LJM 0,T1 EXIT TO PROCESSOR 01789 M01S01656.1io +++| 01790 M01S01657.1io +++| EFTA INDEX 01791 M01S01658.1io +++| INDEX LPDT,EFT1 01792 M01S01659.1io +++| INDEX CPDT,EFT3 01793 M01S01660.1io +++| INDEX CRDT,EFT5 01794 M01S01661.1io +++| INDEX NPDT,EFT1 01795 M01S01662.1io +++| INDEX MXDT 01796 M01S01663.1io +++| FFB SPACE 4,15 01797 M01S01664.1io +++|** FFB - FIND FREE BUFFER. 01798 M01S01665.1io +++|* 01799 M01S01666.1io +++|* ENTRY (EC) = DEVICE TYPE. 01800 M01S01667.1io +++|* (IR+4) SET. 01801 M01S01668.1io +++|* 01802 M01S01669.1io +++|* EXIT (T3) = BUFFER SIZE / 100. 01803 M01S01670.1io +++|* (BA - BA+1) = BUFFER ADDRESS. 01804 M01S01671.1io +++|* 01805 M01S01672.1io +++|* USES T2, CM - CM+4, CN - CN+4. 01806 M01S01673.1io +++|* 01807 M01S01674.1io +++|* CALLS RSI, SFA, *3IC*. 01808 M01S01675.1io +++|* 01809 M01S01676.1io +++|* MACROS EXECUTE. 01810 M01S01677.1io +++| 01811 M01S01678.1io +++| 01812 M01S01679.1io +++| FFB6 LDD FL CLEAR PENDING FL REQUEST 01813 M01S01680.1io +++| RJM RSI 01814 M01S01681.1io +++| 01815 M01S01682.1io +++| FFB SUBR ENTRY/EXIT 01816 M01S01683.1io +++| 01817 M01S01684.1io +++|* SEARCH ALLOCATED BUFFERS FOR A FREE BUFFER. 01818 M01S01685.1io +++| 01819 M01S01686.1io +++| LDM FFBA,EC SET BUFFER SIZE 01820 M01S01687.1io +++| STD T3 01821 M01S01688.1io +++| LDN 0 CLEAR BUFFER COUNT 01822 M01S01689.1io +++| STD T2 01823 M01S01690.1io +++| STD BA SET FIRST BUFFER ADDRESS 01824 M01S01691.1io +++| LDC BUFR 01825 M01S01692.1io +++| STD BA+1 01826 M01S01693.1io +++| LDM QACB+10*5+3 CHECK FOR 12-BIT ASCII PRINT FILE 01827 M01S01694.1io +++| SHN -11 01828 M01S01695.1io +++| SBN 6 01829 M01S01696.1io +++| NJN FFB1 IF NOT 12-BIT ASCII CODE PRINT FILE 01830 M01S01697.1io +++| LDD T3 DOUBLE BUFFER SIZE REQUIRED 01831 M01S01698.1io +++| RAD T3 01832 M01S01699.1io +++| FFB1 LDD T2 01833 M01S01700.1io +++| LMD IR+4 01834 M01S01701.1io +++| ZJN FFB3 IF END OF BUFFERS 01835 M01S01702.1io +++| RJM SFA READ FET+0 01836 M01S01703.1io +++| CRD CM 01837 M01S01704.1io +++| ADN 4 READ LIMIT 01838 M01S01705.1io +++| CRD CN 01839 M01S01706.1io +++| LDD CM 01840 M01S01707.1io +++| NJN FFB2 IF BUFFER BUSY 01841 M01S01708.1io +++| LDD CN+3 CHECK BUFFER SIZE 01842 M01S01709.1io +++| STM QACB+4*5+3 01843 M01S01710.1io +++| SBD BA 01844 M01S01711.1io +++| SHN 14 01845 M01S01712.1io +++| ADD CN+4 01846 M01S01713.1io +++| STM QACB+4*5+4 01847 M01S01714.1io +++| SBD BA+1 01848 M01S01715.1io +++| SBK QFFL+1 01849 M01S01716.1io +++| SHN -6 01850 M01S01717.1io +++| SBD T3 01851 M01S01718.1io +++| MJN FFB2 IF FREE BUFFER NOT LARGE ENOUGH 01852 M01S01719.1io +++| LJM FFB6 CLEAR PENDING FL REQUESTS 01853 M01S01720.1io +++| 01854 M01S01721.1io +++| FFB2 LDD CN+3 SET NEXT BUFFER ADDRESS 01855 M01S01722.1io +++| STD BA 01856 M01S01723.1io +++| LDD CN+4 01857 M01S01724.1io +++| STD BA+1 01858 M01S01725.1io +++| AOD T2 ADVANCE BUFFER COUNT 01859 M01S01726.1io +++| UJN FFB1 CHECK NEXT BUFFER 01860 M01S01727.1io +++| 01861 M01S01728.1io +++|* REQUEST ADDITIONAL STORAGE. 01862 M01S01729.1io +++| 01863 M01S01730.1io +++| FFB3 LDD BA COMPUTE FL NEEDED 01864 M01S01731.1io +++| SHN 6 01865 M01S01732.1io +++| ADD T3 01866 M01S01733.1io +++| SHN 6 01867 M01S01734.1io +++| ADD BA+1 01868 M01S01735.1io +++| ADC QFFL+1+77 01869 M01S01736.1io +++| SHN -6 01870 M01S01737.1io +++| RJM RSI 01871 M01S01738.1io +++| ZJN FFB5 IF STORAGE ASSIGNED 01872 M01S01739.1io +++| MJN FFB4 IF NOT AVAILABLE 01873 M01S01740.1io +++| LDD CP CONSOLE MESSAGE = *WAITING FOR STORAGE.* 01874 M01S01741.1io +++| ADN MS1W 01875 M01S01742.1io +++| CWM =C*WAITING FOR STORAGE.*,TR 01876 M01S01743.1io +++| LDD IR+2 SET SO STORAGE REQUEST WILL REMAIN 5 TIMES 01877 M01S01744.1io +++| SCN 77 01878 M01S01745.1io +++| STD IR+2 01879 M01S01746.1io +++| FFB4 LDN 0 INDICATE NO BUFFER 01880 M01S01747.1io +++| STD BA 01881 M01S01748.1io +++| STD BA+1 01882 M01S01749.1io +++| SOD IR+3 DECREMENT EQUIPMENT INDEX 01883 M01S01750.1io +++| EXECUTE 3IC 01884 M01S01751.1io +++| LJM /3IC/CAS RELEASE FILE AND EQUIPMENT 01885 M01S01752.1io +++| 01886 M01S01753.1io +++| FFB5 AOD IR+4 ADVANCE ASSIGNED BUFFER COUNT 01887 M01S01754.1io +++| LDD BA 01888 M01S01755.1io +++| SHN 6 01889 M01S01756.1io +++| ADD T3 01890 M01S01757.1io +++| SHN 6 01891 M01S01758.1io +++| ADD BA+1 01892 M01S01759.1io +++| ADK QFFL+1 01893 M01S01760.1io +++| STM QACB+4*5+4 SET VALUE FOR LIMIT 01894 M01S01761.1io +++| SHN -14 01895 M01S01762.1io +++| STM QACB+4*5+3 01896 M01S01763.1io +++| LJM FFBX RETURN 01897 M01S01764.1io +++| 01898 M01S01765.1io +++| FFBA INDEX BUFFER SIZES / 100 01899 M01S01766.1io +++| INDEX LPDT,BBFL*2 01900 M01S01767.1io +++| INDEX CPDT,BBFL 01901 M01S01768.1io +++| INDEX CRDT,BBFL*2 01902 M01S01769.1io +++| INDEX NPDT,BBFL*4 01903 M01S01770.1io +++| INDEX MXDT 01904 M01S01771.1io +++| SPACE 4,10 01905 M01S01772.1io +++|** COMMON DECKS. 01906 M01S01773.1io +++| 01907 M01S01774.1io +++| 01908 M01S01775.1io +++|*CALL COMPCRA 01909 M01S01776.1io +++| SPACE 4,10 01910 M01S01777.1io +++| OVERFLOW ORGR,BFMS 01911 M01S01778.1io +++| TTL 1IO/3IB - LOAD IMAGE MEMORY. 01912 M01S01779.1io +++| TITLE 01913 M01S01780.1io +++| QUAL 3IB 01914 M01S01781.1io +++| IDENT 3IB,LDMX 01915 M01S01782.1io +++|*COMMENT 1IO - LOAD PRINTER IMAGE MEMORY.
| Line S01783 Modification History | |
|---|---|
M01 (Added by) | 1io |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01916 M02S01783.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974. 01917 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01918 M01S01784.1io +++| 3IB SPACE 4,10 01919 M01S01785.1io +++|** 3IB IS CALLED TO IDENTIFY A LINE PRINTER AND 01920 M01S01786.1io +++|* LOAD IMAGE MEMORY. 01921 M01S01787.1io +++|* 01922 M01S01788.1io +++|* ENTRY (EQ) = 9/EST ORDINAL,3/EQUIPMENT TYPE. 01923 M01S01789.1io +++|* 01924 M01S01790.1io +++|* EXIT (A) = 0, IF IMAGE CANNOT BE LOADED. 01925 M01S01791.1io +++| SLUG SPACE 4,15 01926 M01S01792.1io +++|** SLUG - DEFINE PRINT SLUG. 01927 M01S01793.1io +++|* 01928 M01S01794.1io +++|* CALL - 01929 M01S01795.1io +++|* SLUG (A1A2A3...AI),N 01930 M01S01796.1io +++|* 01931 M01S01797.1io +++|* WHERE AI ARE CODES APPEARING ON THE SLUG. 01932 M01S01798.1io +++|* N IS THE NUMBER OF CODES TO DEFINE. IF N IS 01933 M01S01799.1io +++|* ABSENT, THE SYMBOL *NCSL* DEFINES THE NUMBER OF 01934 M01S01800.1io +++|* CODES/SLUG. 01935 M01S01801.1io +++|* 01936 M01S01802.1io +++|* N WORDS ARE ASSEMBLED WITH THE CONTENTS BEING THE 12-BIT 01937 M01S01803.1io +++|* ASCII CODE EQUIVALENT OF THE SPECIFIED STRING, RIGHT- 01938 M01S01804.1io +++|* JUSTIFIED AND ZERO FILLED. 01939 M01S01805.1io +++| 01940 M01S01806.1io +++| 01941 M01S01807.1io +++| SLUG MACRO A,N 01942 M01S01808.1io +++| LOCAL AA,BB,CC 01943 M01S01809.1io +++| CC SET N NCSL 01944 M01S01810.1io +++| AA SET 1 01945 M01S01811.1io +++| CODE ASCII 01946 M01S01812.1io +++| NOREF NCSL 01947 M01S01813.1io +++| DUP CC,3 01948 M01S01814.1io +++| BB MICRO AA,1, A 01949 M01S01815.1io +++| CON 1R"BB"+40B 01950 M01S01816.1io +++| AA SET AA+1 01951 M01S01817.1io +++| CODE * 01952 M01S01818.1io +++| ENDM 01953 M01S01819.1io +++| ESLUG SPACE 4,10 01954 M01S01820.1io +++|** ESLUG - DEFINE EXTENDED TRAIN PRINT SLUG. 01955 M01S01821.1io +++|* 01956 M01S01822.1io +++|* CALL - 01957 M01S01823.1io +++|* ESLUG (XI,XJ,...,XM),P1,...,PN 01958 M01S01824.1io +++|* 01959 M01S01825.1io +++|* WHERE XI - XM ARE THE HEXADECIMAL REPRESENTATIONS OF
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1io.txt · Last modified: by 127.0.0.1