cdc:nos2.source:opl.opl871:deck:xhc
Deck XHC
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.xhc +++| IDENT XHC,XHC 00002 M01S00002.xhc +++| PERIPH 00003 M01S00003.xhc +++| BASE MIXED 00004 M01S00004.xhc +++| SST 00005 M01S00005.xhc +++| TITLE XHC - HOSTCOPY DRIVER FOR 5870/5970 NIP. 00006 M01S00006.xhc +++|*COMMENT XHC - HOSTCOPY DRIVER FOR 5870/5970 NIP.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | xhc |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.xhc +++| XHC SPACE 4,10 00010 M01S00009.xhc +++|*** XHC TRANSFERS DATA TO THE HOSTCOPY UTILITY 00011 M01S00010.xhc +++|* RESIDING ON A NIP PRINTER. 128 8-BIT BYTES OR 80 00012 M01S00011.xhc +++|* 8-BIT BYTES ARE TRANSFERED AT A TIME. 00013 M01S00012.xhc +++|* 00014 M01S00013.xhc +++|* L. M. BURGHER 84/09/22. 00015 M01S00014.xhc +++|* S. V. PRESTON 84/09/22. 00016 M01S00015.xhc +++| SPACE 4,10 00017 M01S00016.xhc +++|*** CALL. 00018 M01S00017.xhc +++|* 00019 M01S00018.xhc +++|*T 18/ *XHC*, 24/, 18/ CNTB
Figure
00020 M01S00019.xhc +++|* 00021 M01S00020.xhc +++|* CNTB ADDRESS OF CONTROL BLOCK *CNTB*. 00022 M01S00021.xhc +++| SPACE 4,10 00023 M01S00022.xhc +++|** CNTB - CONTROL BLOCK. 00024 M01S00023.xhc +++|* 00025 M01S00024.xhc +++|* COMMUNICATION BETWEEN XHC AND THE CALLING CP PROGRAM 00026 M01S00025.xhc +++|* OCCURS IN *CNTB*. 00027 M01S00026.xhc +++|* 00028 M01S00027.xhc +++|*T CNTC 3/ ,9/ EQ ,11/ ,1/ T,11/ ,1/ I,11/ ,1/C
Figure CNTC
00029 M01S00028.xhc +++|*T DRPC 42/ , 18/ DRP
Figure DRPC
00030 M01S00029.xhc +++|* 00031 M01S00030.xhc +++|* EQ = EQUIPMENT NUMBER. 00032 M01S00031.xhc +++|* T = (1), TERMINATE XHC. 00033 M01S00032.xhc +++|* I = (1), CARD IMAGE. 00034 M01S00033.xhc +++|* C = (1), REQUEST COMPLETE. 00035 M01S00034.xhc +++|* DRP = DATA RECORD ADDRESS. 00036 M01S00035.xhc +++| SPACE 4,10 00037 M01S00036.xhc +++|*** DAYFILE AND ERRLOG MESSAGES. 00038 M01S00037.xhc +++|* 00039 M01S00038.xhc +++|* *EQXXX CHYY ADDDD INCOMPLETE TRANSFER.* = 00040 M01S00039.xhc +++|* AN INCOMPLETE DATA TRANSFER WAS DETECTED. 00041 M01S00040.xhc +++|* 00042 M01S00041.xhc +++|* *EQXXX CHYY GSSSS COUPLER STATUS.* = 00043 M01S00042.xhc +++|* CCC COUPLER STATUS. 00044 M01S00043.xhc +++|* 00045 M01S00044.xhc +++|* *EQXXX CHYY CONTROLWARE NOT LOADED.*= 00046 M01S00045.xhc +++|* CCC CONTROLWARE NOT SUCCESSFULLY LOADED. 00047 M01S00046.xhc +++|* 00048 M01S00047.xhc +++|* *EQXXX CHYY RESERVED.* = EQUIPMENT FOUND RESERVED. 00049 M01S00048.xhc +++|* 00050 M01S00049.xhc +++|* *EQXXX INCORRECT EQUIPMENT TYPE.* = 00051 M01S00050.xhc +++|* EQUIPMENT REQUESTED WAS NOT OF TYPE *LX* OR *LY*. 00052 M01S00051.xhc +++|* 00053 M01S00052.xhc +++|* *EQXXX INCORRECT EQUIPMENT NUMBER.* = 00054 M01S00053.xhc +++|* EQUIPMENT NUMBER NOT IN EST. 00055 M01S00054.xhc +++|* 00056 M01S00055.xhc +++|* *EQXXX NOT AVAILABLE.* = EQUIPMENT REQUESTED IS DOWN AND OFF. 00057 M01S00056.xhc +++|* 00058 M01S00057.xhc +++|* *TABLE NOT IN FL.* = HSTCOPY TABLE POINTER IS OUTSIDE FL. 00059 M01S00058.xhc +++|* 00060 M01S00059.xhc +++|* *INCORRECT JOB ORIGIN.* = CALLING PROGRAM IS NOT SYSTEM ORIGIN 00061 M01S00060.xhc +++|* 00062 M01S00061.xhc +++|* WHERE - 00063 M01S00062.xhc +++|* EQ = EQUIPMENT TYPE (LX, LY). 00064 M01S00063.xhc +++|* XXX = EST ORDINAL. 00065 M01S00064.xhc +++|* YY = CHANNEL. 00066 M01S00065.xhc +++|* DDDD = NUMBER OF BYTES REMAINING. 00067 M01S00066.xhc +++|* SSSS = COUPLER STATUS. 00068 M01S00067.xhc +++| SPACE 4,10 00069 M01S00068.xhc +++|** COMMON DECKS. 00070 M01S00069.xhc +++| 00071 M01S00070.xhc +++| 00072 M01S00071.xhc +++|*CALL COMPCHI 00073 M01S00072.xhc +++|*CALL COMPMAC 00074 M01S00073.xhc +++| TITLE ASSEMBLY CONSTANTS. 00075 M01S00074.xhc +++| SPACE 4,10 00076 M01S00075.xhc +++|**** DIRECT CELL ASSIGNMENTS. 00077 M01S00076.xhc +++| 00078 M01S00077.xhc +++| 00079 M01S00078.xhc +++| BC EQU 25 BYTE COUNT 00080 M01S00079.xhc +++| EQ EQU 27 EQUIPMENT NUMBER 00081 M01S00080.xhc +++| ES EQU 30 - 34 EST ENTRY 00082 M01S00081.xhc +++| FC EQU 35 FUNCTION CODE 00083 M01S00001.xhc1 +++| T8 EQU 36 TEMPORARY 00084 M01S00082.xhc +++| TM EQU 45 TERMINATE REQUEST FLAG 00085 M01S00083.xhc +++| SPACE 4,10 00086 M01S00084.xhc +++|** CONTROL BLOCK DEFINITIONS. 00087 M01S00085.xhc +++| 00088 M01S00086.xhc +++| CNTC EQU 0 CONTROL BLOCK WORD 00089 M01S00087.xhc +++| DRPC EQU 1 DATA RECORD POINTER 00090 M01S00088.xhc +++| 00091 M01S00089.xhc +++| CNTBL EQU 2 CONTROL BLOCK LENGTH 00092 M01S00090.xhc +++| SPACE 4,10 00093 M01S00091.xhc +++|** DAYFILE MESSAGE CODES. 00094 M01S00092.xhc +++| 00095 M01S00093.xhc +++| 00096 M01S00094.xhc +++| LOC 0 00097 M01S00095.xhc +++| EITM BSS 1 *EQXXX CHYY ADDDD INCOMPLETE TRANSFER.* 00098 M01S00096.xhc +++| EGSM BSS 1 *EQXXX CHYY GSSSS COUPLER STATUS.* 00099 M01S00097.xhc +++| ENLM BSS 1 *EQXXX CHYY CCC CONTROLWARE NOT LOADED.* 00100 M01S00098.xhc +++| ERSM BSS 1 *EQXXX CHYY RESERVED.* 00101 M01S00099.xhc +++| ETYM BSS 1 *EQXXX INCORRECT EQUIPMENT TYPE.* 00102 M01S00100.xhc +++| ENMM BSS 1 *EQXXX INCORRECT EQUIPMENT NUMBER.* 00103 M01S00101.xhc +++| ENAM BSS 1 *EQXXX NOT AVAILABLE.* 00104 M01S00102.xhc +++| EFLM BSS 1 *TABLE NOT IN FL.* 00105 M01S00103.xhc +++| EJOM BSS 1 *INCORRECT JOB ORIGIN.* 00106 M01S00104.xhc +++| LOC *O 00107 M01S00105.xhc +++| SPACE 4,10 00108 M01S00106.xhc +++|** CCC FUNCTION DEFINITIONS. 00109 M01S00107.xhc +++| 00110 M01S00108.xhc +++| 00111 M01S00109.xhc +++| FSUF EQU 0 SELECT UNIT 00112 M01S00110.xhc +++| FGSF EQU 12 GENERAL STATUS 00113 M01S00111.xhc +++| FTDF EQU 20 TRANSPARENT DATA TRANSFER 00114 M01S00112.xhc +++| SPACE 4,10 00115 M01S00113.xhc +++|** MISCELLANEOUS CONSTANTS. 00116 M01S00114.xhc +++| 00117 M01S00115.xhc +++| 00118 M01S00116.xhc +++| BFCL EQU 128D*8D/60D+1 BUFF LENGTH IN CM WORDS 00119 M01S00117.xhc +++| BINL EQU 128D*8D/12D+1 BINARY BUFFER LENGTH 00120 M01S00118.xhc +++| CRDL EQU 80D*8D/12D+1 CARD IMAGE BUFFER LENGTH 00121 M01S00119.xhc +++| CH EQU 12 CHANNEL NUMBER 00122 M01S00120.xhc +++| NILP EQU 377777 NIL POINTER 00123 M01S00121.xhc +++|**** 00124 M01S00122.xhc +++| TITLE MAIN PROGRAM. 00125 M01S00123.xhc +++|** XHC - MAIN PROGRAM. 00126 M01S00124.xhc +++| 00127 M01S00125.xhc +++| 00128 M01S00126.xhc +++| ORG PPFW 00129 M01S00127.xhc +++| 00130 M01S00128.xhc +++| 00131 M01S00129.xhc +++| XHC RJM PRS PRESET *XHC* 00132 M01S00130.xhc +++| XHC1 RJM RCB READ CONTROL BLOCK 00133 M01S00131.xhc +++| ZJN XHC2 IF NO DATA TO TRANSFER 00134 M01S00132.xhc +++| CRM BUFF,T2 READ DATA RECORD 00135 M01S00133.xhc +++| RJM XDR TRANSFER DATA RECORD 00136 M01S00134.xhc +++| UJN XHC3 CHECK FOR MOVE REQUEST 00137 M01S00135.xhc +++| 00138 M01S00136.xhc +++| XHC2 LDD TM 00139 M01S00137.xhc +++| NJN TRM IF REQUEST TO TERMINATE 00140 M01S00138.xhc +++| XHC3 PAUSE PAUSE FOR STORAGE MOVE 00141 M01S00139.xhc +++| LDD CM+1 00142 M01S00140.xhc +++| ZJN XHC1 IF NO CONTROL POINT ERROR 00143 M01S00141.xhc +++| UJN TRM1 ERROR EXIT 00144 M01S00142.xhc +++| TITLE TERMINATION PROCESSORS. 00145 M01S00143.xhc +++| TRM SPACE 4,10 00146 M01S00144.xhc +++|** TRM - TERMINATION PROCESSOR. 00147 M01S00145.xhc +++|* 00148 M01S00146.xhc +++|* EXIT TO *PPR*. 00149 M01S00147.xhc +++|* 00150 M01S00148.xhc +++|* CALLS CRQ, DEQ. 00151 M01S00149.xhc +++|* 00152 M01S00150.xhc +++|* MACROS MONITOR. 00153 M01S00151.xhc +++| 00154 M01S00152.xhc +++| 00155 M01S00153.xhc +++| TRM RJM CRQ COMPLETE REQUEST 00156 M01S00154.xhc +++| 00157 M01S00155.xhc +++|* TRM1 IS A SECONDARY ENTRY POINT FOR TRM. 00158 M01S00156.xhc +++| 00159 M01S00157.xhc +++| TRM1 RJM DEQ DROP EQUIPMENT 00160 M01S00158.xhc +++| MONITOR DPPM DROP PP 00161 M01S00159.xhc +++| LJM PPR EXIT TO PP RESIDENT 00162 M01S00160.xhc +++| ABT SPACE 4,10 00163 M01S00161.xhc +++|** ABT - ABORT JOB. 00164 M01S00162.xhc +++|* 00165 M01S00163.xhc +++|* EXIT TO *PPR*. 00166 M01S00164.xhc +++|* 00167 M01S00165.xhc +++|* CALLS DEQ. 00168 M01S00166.xhc +++|* 00169 M01S00167.xhc +++|* MACROS MONITOR. 00170 M01S00168.xhc +++| 00171 M01S00169.xhc +++| 00172 M01S00170.xhc +++| ABT RJM DEQ DROP EQUIPMENT 00173 M01S00171.xhc +++| MONITOR ABTM ABORT JOB 00174 M01S00172.xhc +++| LJM PPR EXIT TO PP RESIDENT 00175 M01S00173.xhc +++| TITLE ERR - ERROR PROCESSOR. 00176 M01S00174.xhc +++| ERR SPACE 4,10 00177 M01S00175.xhc +++|** ERR - ERROR PROCESSOR. 00178 M01S00176.xhc +++|* 00179 M01S00177.xhc +++|* ENTRY (A) = MESSAGE CODE. 00180 M01S00178.xhc +++|* (FC) = STATUS/BYTES REMAINING. 00181 M01S00179.xhc +++|* (ES - ES+4) = EST ENTRY. 00182 M01S00180.xhc +++|* 00183 M01S00181.xhc +++|* USES T1, T2, T5. 00184 M01S00182.xhc +++|* 00185 M01S00183.xhc +++|* CALLS C2D, DFM. 00186 M01S00184.xhc +++| 00187 M01S00185.xhc +++| 00188 M01S00186.xhc +++| ERR SUBR ENTRY/EXIT 00189 M01S00187.xhc +++| SHN 1 GET TABLE ADDRESS 00190 M01S00188.xhc +++| STD T1 00191 M01S00189.xhc +++| LDM TDFP+1,T1 SET MESSAGE ADDRESS 00192 M01S00190.xhc +++| STD T5 00193 M01S00191.xhc +++| LDM TDFP,T1 SET PROCESSING ADDRESS 00194 M01S00192.xhc +++| STD T2 00195 M01S00193.xhc +++| LJM 0,T2 FORMAT ERROR MESSAGE 00196 M01S00194.xhc +++| 00197 M01S00195.xhc +++| ERR3 LDD FC CONVERT STATUS / BYTE COUNT REMAINING 00198 M01S00196.xhc +++| SHN -6 00199 M01S00197.xhc +++| RJM C2D 00200 M01S00198.xhc +++| STM 6,T5 00201 M01S00199.xhc +++| LDD FC 00202 M01S00200.xhc +++| RJM C2D 00203 M01S00201.xhc +++| STM 7,T5 00204 M01S00202.xhc +++| 00205 M01S00203.xhc +++| ERR4 LDD ES+1 CONVERT CHANNEL NUMBER TO DISPLAY CODE 00206 M01S00204.xhc +++| RJM C2D 00207 M01S00205.xhc +++| STM 4,T5 00208 M01S00206.xhc +++| LDD ES+3 SET EQUIPMENT TYPE 00209 M01S00207.xhc +++| STI T5 00210 M01S00208.xhc +++| 00211 M01S00209.xhc +++| ERR5 LDM CNTB+CNTC*5+0 CONVERT EQUIPMENT NUMBER 00212 M01S00210.xhc +++| SHN -3 00213 M01S00211.xhc +++| RJM C2D 00214 M01S00212.xhc +++| STM 1,T5 00215 M01S00213.xhc +++| LDM CNTB+CNTC*5+0 00216 M01S00214.xhc +++| RJM C2D 00217 M01S00215.xhc +++| SHN 6 00218 M01S00216.xhc +++| LMN 1R 00219 M01S00217.xhc +++| STM 2,T5 00220 M01S00218.xhc +++| 00221 M01S00219.xhc +++| ERR6 LDD T5 SEND MESSAGE TO DAYFILE 00222 M01S00220.xhc +++| RJM DFM 00223 M01S00221.xhc +++| LDC ERLN SEND MESSAGE TO ERROR LOG 00224 M01S00222.xhc +++| LMD T5 00225 M01S00223.xhc +++| RJM DFM 00226 M01S00224.xhc +++| LJM ERRX RETURN 00227 M01S00225.xhc +++| SPACE 4,10 00228 M01S00226.xhc +++|** TDFP - TABLE OF PROCESSORS AND MESSAGES. 00229 M01S00227.xhc +++|* 00230 M01S00228.xhc +++|* *TDFP* IS INDEXED WITH DAYFILE MESSAGE CODES. 00231 M01S00229.xhc +++|* 00232 M01S00230.xhc +++|* ENTRY - 2 WORDS. 00233 M01S00231.xhc +++|* 00234 M01S00232.xhc +++|* INDEXED BY (MESSAGE CODE * 2). 00235 M01S00233.xhc +++| 00236 M01S00234.xhc +++| 00237 M01S00235.xhc +++| TDFP EQU * 00238 M01S00236.xhc +++| LOC 0 00239 M01S00237.xhc +++| CON ERR3,=C*EQXXX CHYY ADDDD INCOMPLETE TRANSFER.* 00240 M01S00238.xhc +++| CON ERR3,=C*EQXXX CHYY GSSSS ADAPTER STATUS.* 00241 M01S00239.xhc +++| CON ERR4,=C*EQXXX CHYY CCC CONTROLWARE NOT LOADED.* 00242 M01S00240.xhc +++| CON ERR4,=C*EQXXX CHYY RESERVED.* 00243 M01S00241.xhc +++| CON ERR5,=C*EQXXX INCORRECT EQUIPMENT TYPE.* 00244 M01S00242.xhc +++| CON ERR5,=C*EQXXX INCORRECT EQUIPMENT NUMBER.* 00245 M01S00243.xhc +++| CON ERR5,=C*EQXXX NOT AVAILABLE.* 00246 M01S00244.xhc +++| CON ERR6,=C*TABLE NOT IN FL.* 00247 M01S00245.xhc +++| CON ERR6,=C*INCORRECT JOB ORIGIN.* 00248 M01S00246.xhc +++| LOC *O 00249 M01S00247.xhc +++| TDFPL EQU *-TDFP 00250 M01S00248.xhc +++| 00251 M01S00249.xhc +++| 00252 M01S00250.xhc +++| USE LITERALS 00253 M01S00251.xhc +++| TITLE XDR - TRANSFER DATA RECORD. 00254 M01S00252.xhc +++| XDR SPACE 4,10 00255 M01S00253.xhc +++|** XDR - TRANSFER DATA RECORD. 00256 M01S00254.xhc +++|* 00257 M01S00255.xhc +++|* ENTRY (BC) = BYTE COUNT. 00258 M01S00256.xhc +++|* (BUFF) = DATA BUFFER. 00259 M01S00257.xhc +++|* 00260 M01S00258.xhc +++|* ERROR TO *TRM1*, IF CONTROL POINT ERROR. 00261 M01S00259.xhc +++|* 00262 M01S00260.xhc +++|* TO *ABT*, IF INCOMPLETE DATA TRANSFER OR 00263 M01S00261.xhc +++|* BAD ADAPTER STATUS. 00264 M01S00262.xhc +++|* 00265 M01S00263.xhc +++|* USES FC. 00266 M01S00264.xhc +++|* 00267 M01S00265.xhc +++|* CALLS CRQ, ERR, FCN. 00268 M01S00266.xhc +++| 00269 M01S00267.xhc +++| 00270 M01S00268.xhc +++| XDR3 RJM CRQ COMPLETE REQUEST 00271 M01S00269.xhc +++| 00272 M01S00270.xhc +++| XDR SUBR ENTRY/EXIT 00273 M01S00271.xhc +++| LDN FTDF ISSUE TRANSPARENT DATA TRANSFER FUNCTION 00274 M01S00272.xhc +++| RJM FCN 00275 M01S00273.xhc +++| LDD BC BYTE COUNT 00276 M01S00274.xhc +++| OAM BUFF,CH OUTPUT BUFFER 00277 M01S00275.xhc +++| ZJN XDR1 IF TRANSFER COMPLETE 00278 M01S00276.xhc +++| STD FC REMAINING BYTE COUNT 00279 M01S00277.xhc +++| LDN EITM *EQXXX CHYY INCOMPLETE TRANSFER.* 00280 M01S00278.xhc +++| UJN XDR2 REPORT ERROR 00281 M01S00279.xhc +++| 00282 M01S00280.xhc +++| XDR1 FJM *,CH IF XFER INCOMPLETE 00283 M01S00281.xhc +++| DCN CH+40 00284 M01S00282.xhc +++| LDN FGSF ISSUE GENERAL STATUS FUNCTION 00285 M01S00283.xhc +++| RJM FCN 00286 M01S00284.xhc +++| IAN CH 00287 M01S00285.xhc +++| ZJN XDR3 IF STATUS OK 00288 M01S00286.xhc +++| STD FC SAVE STATUS 00289 M01S00287.xhc +++| LDN EGSM *EQXXX CHYY GSSSS ADAPTER STATUS.* 00290 M01S00288.xhc +++| XDR2 RJM ERR PROCESS ERROR 00291 M01S00289.xhc +++| LJM ABT ABORT JOB 00292 M01S00290.xhc +++| 00293 M01S00291.xhc +++| TITLE SUBROUTINES. 00294 M01S00292.xhc +++| CAD SPACE 4,15 00295 M01S00293.xhc +++|** CAD - COMPUTE ABSOLUTE ADDRESS. 00296 M01S00294.xhc +++|* 00297 M01S00295.xhc +++|* ENTRY (A) = WORD COUNT. 00298 M01S00296.xhc +++|* (T1) = INDIRECT ADDRESS OF ADDRESS. 00299 M01S00297.xhc +++|* ((T1)) - ((T1)+1) = ADDRESS. 00300 M01S00298.xhc +++|* 00301 M01S00299.xhc +++|* EXIT (A) = ABSOLUTE ADDRESS. 00302 M01S00300.xhc +++|* (T2) = WORD COUNT. 00303 M01S00301.xhc +++|* 00304 M01S00302.xhc +++|* ERROR TO *ERR*, IF TABLE NOT IN FL. 00305 M01S00303.xhc +++|* 00306 M01S00304.xhc +++|* USES T2. 00307 M01S00305.xhc +++|* 00308 M01S00306.xhc +++|* CALLS ERR. 00309 M01S00307.xhc +++| 00310 M01S00308.xhc +++| 00311 M01S00309.xhc +++| CAD2 LDI T1 LOAD ABSOLUTE ADDRESS 00312 M01S00310.xhc +++| LPN 77 00313 M01S00311.xhc +++| SHN 6 00314 M01S00312.xhc +++| ADD RA 00315 M01S00313.xhc +++| SHN 6 00316 M01S00314.xhc +++| ADM 1,T1 00317 M01S00315.xhc +++| 00318 M01S00316.xhc +++| CAD SUBR ENTRY/EXIT 00319 M01S00317.xhc +++| STD T2 SAVE WORD COUNT 00320 M01S00318.xhc +++| LDI T1 00321 M01S00319.xhc +++| LPN 77 00322 M01S00320.xhc +++| SHN 14 00323 M01S00321.xhc +++| MJN CAD1 IF OUT OF RANGE 00324 M01S00322.xhc +++| LMM 1,T1 00325 M01S00323.xhc +++| ADD T2 00326 M01S00324.xhc +++| SHN -6 00327 M01S00325.xhc +++| SBD FL 00328 M01S00326.xhc +++| MJN CAD2 IF < FL - WORD COUNT 00329 M01S00327.xhc +++| CAD1 LDN EFLM *TABLE NOT IN FL.* 00330 M01S00328.xhc +++| RJM ERR PROCESS ERROR 00331 M01S00329.xhc +++| LJM ABT ERROR EXIT 00332 M01S00330.xhc +++| CRQ SPACE 4,15 00333 M01S00331.xhc +++|** CRQ - COMPLETE REQUEST. 00334 M01S00332.xhc +++|* 00335 M01S00333.xhc +++|* ENTRY (IR+3) - (IR+4) = CNTB ADDRESS. 00336 M01S00334.xhc +++|* 00337 M01S00335.xhc +++|* EXIT CNTB UPDATED IN CM. 00338 M01S00336.xhc +++|* 00339 M01S00337.xhc +++|* USES T1, CM - CM+4. 00340 M01S00338.xhc +++|* 00341 M01S00339.xhc +++|* CALLS CAD. 00342 M01S00340.xhc +++|* 00343 M01S00341.xhc +++|* MACROS MONITOR. 00344 M01S00342.xhc +++| 00345 M01S00343.xhc +++| 00346 M01S00344.xhc +++| CRQ SUBR ENTRY/EXIT 00347 M01S00345.xhc +++| AOM CNTB+CNTC*5+4 SET REQUEST BIT 00348 M01S00346.xhc +++| LDN IR+3 CONTROL BLOCK ADDRESS 00349 M01S00347.xhc +++| STD T1 00350 M01S00348.xhc +++| LDN CNTBL CONTROL BLOCK LENGTH 00351 M01S00349.xhc +++| RJM CAD COMPUTE ABSOLUTE ADDRESS 00352 M01S00350.xhc +++| CWM CNTB,ON UPDATE CONTROL WORD 00353 M01S00351.xhc +++| LDD CP 00354 M01S00352.xhc +++| ADN STSW FETCH CONTROL POINT STATUS WORD 00355 M01S00353.xhc +++| CRD CM 00356 M01S00354.xhc +++| LDD CM CHECK CPU STATE 00357 M01S00355.xhc +++| SHN -11 00358 M01S00356.xhc +++| LMN 6 00359 M01S00357.xhc +++| NJN CRQX IF NOT IN *I* STATUS 00360 M01S00358.xhc +++| MONITOR RCPM 00361 M01S00359.xhc +++| UJN CRQX RETURN 00362 M01S00360.xhc +++| DEQ SPACE 4,10 00363 M01S00361.xhc +++|** DEQ - DROP EQUIPMENT. 00364 M01S00362.xhc +++|* 00365 M01S00363.xhc +++|* ENTRY (EQ) = 0, IF NO EQUIPMENT ASSIGNED. 00366 M01S00364.xhc +++|* (EQ) = EQUIPMENT NUMBER. 00367 M01S00365.xhc +++|* (ES - ES+4) = EST ENTRY. 00368 M01S00366.xhc +++|* 00369 M01S00367.xhc +++|* EXIT (EQ) = 0. 00370 M01S00368.xhc +++|* 00371 M01S00369.xhc +++|* USES CM - CM+4. 00372 M01S00370.xhc +++|* 00373 M01S00371.xhc +++|* MACROS DCHAN, MONITOR. 00374 M01S00372.xhc +++| 00375 M01S00373.xhc +++| 00376 M01S00374.xhc +++| DEQ SUBR ENTRY/EXIT 00377 M01S00375.xhc +++| LDD EQ 00378 M01S00376.xhc +++| ZJN DEQX IF NO EQUIPMENT ASSIGNED. 00379 M01S00377.xhc +++| LDD ES+1 DROP CHANNEL 00380 M01S00378.xhc +++| DCHAN 00381 M01S00379.xhc +++| LDD EQ DROP EQUIPMENT 00382 M01S00380.xhc +++| STD CM+1 00383 M01S00381.xhc +++| MONITOR DEQM 00384 M01S00382.xhc +++|* LDN 0 INDICATE EQUIPMENT RELEASED 00385 M01S00383.xhc +++| STD EQ 00386 M01S00384.xhc +++| UJN DEQX RETURN 00387 M01S00385.xhc +++| FCN SPACE 4,15 00388 M01S00386.xhc +++|** FCN - ISSUE FUNCTION TO EQUIPMENT. 00389 M01S00387.xhc +++|* 00390 M01S00388.xhc +++|* ENTRY (A) = FUNCTION CODE. 00391 M01S00389.xhc +++|* 00392 M01S00390.xhc +++|* EXIT CHANNEL ACTIVE. 00393 M01S00391.xhc +++|* 00394 M01S00392.xhc +++|* ERROR TO *TRM1*, IF CONTROL POINT ERROR. 00395 M01S00393.xhc +++|* 00396 M01S00394.xhc +++|* USES FC. 00397 M01S00395.xhc +++|* 00398 M01S00396.xhc +++|* MACROS PAUSE. 00399 M01S00397.xhc +++| 00400 M01S00398.xhc +++| 00401 M01S00399.xhc +++| FCN2 ACN CH ACTIVATE CHANNEL 00402 M01S00400.xhc +++| 00403 M01S00401.xhc +++| FCN SUBR ENTRY/EXIT 00404 M01S00402.xhc +++| STD FC SAVE FUNCTION CODE 00405 M01S00403.xhc +++| FAN CH ISSUE FUNCTION 00406 M01S00404.xhc +++| FCN1 IJM FCN2,CH IF FUNCTION ACCEPTED 00407 M01S00405.xhc +++| SBN 1 00408 M01S00406.xhc +++| NJN FCN1 IF NOT TIMED OUT 00409 M01S00407.xhc +++| PAUSE PAUSE FOR STORAGE MOVE 00410 M01S00408.xhc +++| LDD CM+1 00411 M01S00409.xhc +++| ZJN FCN1 IF NO CONTROL POINT ERROR 00412 M01S00410.xhc +++| DCN CH+40 00413 M01S00411.xhc +++| LJM TRM1 ERROR EXIT 00414 M01S00412.xhc +++| RCB SPACE 4,15 00415 M01S00413.xhc +++|** RCB - READ CONTROL BLOCK. 00416 M01S00414.xhc +++|* 00417 M01S00415.xhc +++|* ENTRY (IR+3) - (IR+4) = CNTB ADDRESS. 00418 M01S00416.xhc +++|* 00419 M01S00417.xhc +++|* EXIT (A) = 0, IF NO DATA TO TRANSFER. 00420 M01S00418.xhc +++|* (A) = DATA RECORD ADDRESS. 00421 M01S00419.xhc +++|* (T2) = *BFCL*, IF (A) = DATA RECORD ADDRESS. 00422 M01S00420.xhc +++|* (CNTB) UPDATED, IF (A) = DATA RECORD ADDRESS. 00423 M01S00421.xhc +++|* (TM) <> 0, IF REQUEST TO TERMINATE. 00424 M01S00422.xhc +++|* 00425 M01S00423.xhc +++|* USES T1. 00426 M01S00424.xhc +++|* 00427 M01S00425.xhc +++|* CALLS CAD. 00428 M01S00426.xhc +++| 00429 M01S00427.xhc +++| 00430 M01S00428.xhc +++| RCB1 AOD TM SET *TERMINATE REQUEST* 00431 M01S00429.xhc +++| RCB2 LDN 0 INDICATE NO REQUEST 00432 M01S00430.xhc +++| 00433 M01S00431.xhc +++| RCB SUBR ENTRY/EXIT 00434 M01S00432.xhc +++| LDN IR+3 CNTB ADDRESS 00435 M01S00433.xhc +++| STD T1 00436 M01S00434.xhc +++| LDN CNTBL CNTB LENGTH 00437 M01S00435.xhc +++| RJM CAD COMPUTE ABSOLUTE ADDRESS 00438 M01S00436.xhc +++| CRM CNTB,T2 READ CNTB 00439 M01S00437.xhc +++| LDM CNTB+CNTC*5+4 CHECK REQUEST BIT 00440 M01S00438.xhc +++| SHN 21-0 00441 M01S00439.xhc +++| MJN RCB2 IF NO REQUEST 00442 M01S00440.xhc +++| LDM CNTB+CNTC*5+1 CHECK TERMINATE REQUEST 00443 M01S00441.xhc +++| SHN 21-0 00444 M01S00442.xhc +++| MJN RCB1 IF NOT REQUEST TO TERMINATE 00445 M01S00443.xhc +++| LDM CNTB+DRPC*5+3 GET DATA RECORD POINTER 00446 M01S00444.xhc +++| SHN 14 00447 M01S00445.xhc +++| ADM CNTB+DRPC*5+4 00448 M01S00446.xhc +++| LMC NILP 00449 M01S00447.xhc +++| ZJN RCBX IF NIL 00450 M01S00448.xhc +++| LDC CNTB+DRPC*5+3 DATA RECORD ADDRESS 00451 M01S00449.xhc +++| STD T1 00452 M01S00450.xhc +++| LDN BFCL DATA RECORD LENGTH 00453 M01S00451.xhc +++| RJM CAD COMPUTE ABSOLUTE ADDRESS 00454 M01S00452.xhc +++| UJP RCBX RETURN 00455 M01S00453.xhc +++| SPACE 4,10 00456 M01S00454.xhc +++|** COMMON DECKS. 00457 M01S00455.xhc +++| 00458 M01S00456.xhc +++| 00459 M01S00457.xhc +++|*CALL COMPC2D 00460 M01S00458.xhc +++| SPACE 4,10 00461 M01S00459.xhc +++| USE BUFFER 00462 M01S00460.xhc +++| 00463 M01S00461.xhc +++| 00464 M01S00462.xhc +++| BUFF EQU * DATA RECORD BUFFER 00465 M01S00463.xhc +++| BUFE EQU BUFF+BFCL*5 END OF DATA BUFFER 00466 M01S00464.xhc +++| CNTB EQU BFMS-CNTBL*5 CONTROL BLOCK 00467 M01S00465.xhc +++| 00468 M01S00466.xhc +++| ERRNG CNTB-BUFE 00469 M01S00467.xhc +++| ERRNG CNTB-PRSE 00470 M01S00468.xhc +++| TITLE XHC PRESET. 00471 M01S00469.xhc +++| PRS SPACE 4,15 00472 M01S00470.xhc +++|** PRS - XHC PRESET. 00473 M01S00471.xhc +++|* 00474 M01S00472.xhc +++|* ENTRY (IR+3 - IR+4) = CONTROL BLOCK ADDRESS. 00475 M01S00473.xhc +++|* 00476 M01S00474.xhc +++|* EXIT (BC) = CRDL, IF CARD IMAGE FILE. 00477 M01S00475.xhc +++|* (BC) = BINL, IF BINARY FILE. 00478 M01S00476.xhc +++|* (EQ) = EQUIPMENT NUMBER. 00479 M01S00477.xhc +++|* (ES - ES+4) = EST ENTRY. 00480 M01S00478.xhc +++|* CHANNEL INSTRUCTIONS MODIFIED. 00481 M01S00479.xhc +++|* EQUIPMENT AND CHANNEL RESERVED. 00482 M01S00480.xhc +++|* NIP UNIT SELECTED. 00483 M01S00481.xhc +++|* 00484 M01S00482.xhc +++|* ERROR TO *ABT*, IF INCORRECT JOB ORIGIN OR 00485 M01S00483.xhc +++|* EQUIPMENT PROBLEM. 00486 M01S00484.xhc +++|* 00487 M01S00485.xhc +++|* TO *TRM1*, IF CONTROL POINT ERROR. 00488 M01S00486.xhc +++|*
| Line S00487 Modification History | |
|---|---|
M01 (Added by) | xhc |
M02 (Updated by) | xhc1 |
Seq # *Modification Id* Act ----------------------------+ 00489 M02S00487.xhc1 ---|* USES BC, CM - CM+4, EQ, ES - ES+4, FR, TM. 00490 M01S00002.xhc1 +++|* USES BC, CM - CM+4, EQ, ES - ES+4, FR, TM, T8. 00491 M01S00488.xhc +++|* 00492 M01S00489.xhc +++|* CALLS CRQ, ERR, FCN, GST, MCI, RCB. 00493 M01S00490.xhc +++|* 00494 M01S00491.xhc +++|* MACROS MONITOR, PAUSE, RCHAN. 00495 M01S00492.xhc +++| 00496 M01S00493.xhc +++| 00497 M01S00494.xhc +++| PRS SUBR ENTRY/EXIT 00498 M01S00495.xhc +++| LDN 0 00499 M01S00496.xhc +++| STD EQ EQUIPMENT NOT ASSIGNED 00500 M01S00497.xhc +++| STD TM TERMINATE NOT REQUESTED 00501 M01S00498.xhc +++| LDD CP CHECK FOR SYOT ORIGIN 00502 M01S00499.xhc +++| ADN JOTW 00503 M01S00500.xhc +++| CRD CM 00504 M01S00501.xhc +++| LDD CM+3 00505 M01S00502.xhc +++|* LMN SYOT 00506 M01S00503.xhc +++| ZJN PRS1 IF SYSTEM ORIGIN 00507 M01S00504.xhc +++| LDN EJOM *INCORRECT JOB ORIGIN.* 00508 M01S00505.xhc +++| UJN PRS4 PROCESS ERROR 00509 M01S00506.xhc +++| 00510 M01S00507.xhc +++| PRS1 RJM RCB READ CONTROL BLOCK 00511 M01S00508.xhc +++| LDM CNTB+CNTC*5+3 00512 M01S00509.xhc +++| SHN 21-0 00513 M01S00510.xhc +++| MJN PRS2 IF CARD IMAGE FILE 00514 M01S00511.xhc +++| LDC BINL 00515 M01S00512.xhc +++| UJN PRS3 00516 M01S00513.xhc +++| 00517 M01S00514.xhc +++| PRS2 LDN CRDL 00518 M01S00515.xhc +++| PRS3 STD BC 00519 M01S00516.xhc +++| LDN ESTP GET EST TABLE ADDRESS 00520 M01S00517.xhc +++| CRD CM 00521 M01S00518.xhc +++| LDM CNTB+CNTC*5+0 GET EQUIPMENT NUMBER 00522 M01S00519.xhc +++| LPC 777 00523 M01S00003.xhc1 +++| STD T8 00524 M01S00520.xhc +++| STD CM+1 00525 M01S00521.xhc +++| SBD CM+2 00526 M01S00522.xhc +++| MJN PRS5 IF ENTRY IN EST 00527 M01S00523.xhc +++| LDN ENMM *EQXXX CHYY INCORRECT EQUIPMENT NUMBER.* 00528 M01S00524.xhc +++| PRS4 RJM ERR PROCESS ERROR 00529 M01S00525.xhc +++| LJM ABT ABORT JOB 00530 M01S00526.xhc +++| 00531 M01S00527.xhc +++| PRS5 SFA EST,CM+1 00532 M01S00528.xhc +++| ADK EQDE 00533 M01S00529.xhc +++| CRD ES READ EST ENTRY 00534 M01S00530.xhc +++| LDD ES+3 CHECK FOR NIP
| Line S00531 Modification History | |
|---|---|
M01 (Added by) | xhc |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00535 M02S00531.252l678 ---| LPC 3777 00536 M01S00532.xhc +++| LMC 2RLX 00537 M01S00533.xhc +++| ZJN PRS6 IF 5870 00538 M01S00534.xhc +++| LMN 2RLY&2RLX 00539 M01S00535.xhc +++| ZJN PRS6 IF 5970 00540 M01S00536.xhc +++| LDN ETYM *EQXXX INCORRECT EQUIPMENT TYPE.* 00541 M01S00537.xhc +++| UJN PRS4 ERROR EXIT 00542 M01S00538.xhc +++| 00543 M01S00539.xhc +++| PRS6 STD CM+2 00544 M01S00540.xhc +++| LDD ES CHECK STATUS OF EQUIPMENT 00545 M01S00541.xhc +++| SHN 21-5 00546 M01S00542.xhc +++| PJN PRS8 IF NOT DOWN AND OFF 00547 M01S00543.xhc +++| LDN ENAM *EQXXX NOT AVAILABLE.* 00548 M01S00544.xhc +++| PRS7 UJN PRS4 ERROR EXIT 00549 M01S00545.xhc +++| 00550 M01S00546.xhc +++| PRS8 SHN 1 00551 M01S00547.xhc +++| PJN PRS9 IF CONTROLWARE LOADED 00552 M01S00548.xhc +++| LDN ENLM *EQXXX CHYY CONTROLWARE NOT LOADED.* 00553 M01S00549.xhc +++| UJN PRS7 PROCESS ERROR 00554 M01S00550.xhc +++| 00555 M01S00551.xhc +++| PRS9 MONITOR REQM REQUEST EQUIPMENT 00556 M01S00552.xhc +++| LDD CM+1 00557 M01S00553.xhc +++| NJN PRS10 IF EQUIPMENT ASSIGNED 00558 M01S00554.xhc +++| LDN ERSM *EQXXX CHYY RESERVED.* 00559 M01S00555.xhc +++| UJN PRS7 PROCESS ERROR 00560 M01S00556.xhc +++|
| Line S00557 Modification History | |
|---|---|
M01 (Added by) | xhc |
M02 (Updated by) | xhc1 |
Seq # *Modification Id* Act ----------------------------+ 00561 M02S00557.xhc1 ---| PRS10 STD EQ SET EQUIPMENT RESERVED 00562 M01S00004.xhc1 +++| PRS10 LDD T8 SET EQUIPMENT RESERVED 00563 M01S00005.xhc1 +++| STD EQ 00564 M01S00001.252l678 +++| LDD ES+1 CLEAR UPPER BITS OF CHANNEL 00565 M01S00002.252l678 +++| LPN 37 00566 M01S00003.252l678 +++| STD ES+1 00567 M01S00558.xhc +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS 00568 M01S00559.xhc +++| LDD ES+1 00569 M01S00560.xhc +++| RCHAN RESERVE CHANNEL 00570 M01S00561.xhc +++| 00571 M01S00562.xhc +++|* CONNECT EQUIPMENT. 00572 M01S00563.xhc +++| 00573 M01S00564.xhc +++| LDN FSUF SELECT UNIT 00574 M01S00565.xhc +++| RJM FCN 00575 M01S00566.xhc +++| LDD ES+4 OUTPUT UNIT NUMBER 00576 M01S00567.xhc +++| SHN 0-11 00577 M01S00568.xhc +++| OAN CH+40 00578 M01S00569.xhc +++| PRS11 EJM PRS12,CH IF CONNECT RESPONSE RECEIVED 00579 M01S00570.xhc +++| SBN 1 00580 M01S00571.xhc +++| NJN PRS11 IF NOT TIMED OUT 00581 M01S00572.xhc +++| PAUSE PAUSE FOR STORAGE MOVE 00582 M01S00573.xhc +++| LDD CM+1 00583 M01S00574.xhc +++| ZJN PRS11 IF NO CONTROL POINT ERROR 00584 M01S00575.xhc +++| DCN CH+40 00585 M01S00576.xhc +++| LJM TRM1 ERROR EXIT 00586 M01S00577.xhc +++| 00587 M01S00578.xhc +++| PRS12 DCN CH+40 00588 M01S00579.xhc +++| LDN FGSF GET GENERAL STATUS 00589 M01S00580.xhc +++| RJM FCN 00590 M01S00581.xhc +++| IAN CH 00591 M01S00582.xhc +++| ZJN PRS13 IF GOOD STATUS 00592 M01S00583.xhc +++| STD FC 00593 M01S00584.xhc +++| LDN EGSM *EQXXX CHYY GSSSS ADAPTER STATUS.* 00594 M01S00585.xhc +++| RJM ERR PROCESS ERROR 00595 M01S00586.xhc +++| LJM ABT ABORT JOB 00596 M01S00587.xhc +++| 00597 M01S00588.xhc +++| PRS13 RJM CRQ COMPLETE REQUEST 00598 M01S00589.xhc +++| LJM PRSX RETURN 00599 M01S00590.xhc +++| MCI SPACE 4,10 00600 M01S00591.xhc +++|** MCI - MODIFY CHANNEL INSTRUCTIONS. 00601 M01S00592.xhc +++|* 00602 M01S00593.xhc +++|* (ES+1) = CHANNEL NUMBER. 00603 M01S00594.xhc +++|* 00604 M01S00595.xhc +++|* USES T1, T2. 00605 M01S00596.xhc +++| 00606 M01S00597.xhc +++| 00607 M01S00598.xhc +++| MCI SUBR ENTRY/EXIT 00608 M01S00599.xhc +++| LDC TCHS LOAD FWA OF CHANNEL TABLE ADDRESSES 00609 M01S00600.xhc +++| STD T1 00610 M01S00601.xhc +++| MCI1 LDI T1 00611 M01S00602.xhc +++| ZJN MCIX IF NO MORE INSTRUCTIONS TO MODIFY 00612 M01S00603.xhc +++| STD T2 00613 M01S00604.xhc +++| LDI T2 00614 M01S00605.xhc +++| SCN 37 00615 M01S00606.xhc +++| LMD ES+1 00616 M01S00607.xhc +++| STI T2 00617 M01S00608.xhc +++| AOD T1 00618 M01S00609.xhc +++| UJN MCI1 MODIFY NEXT INSTRUCTION 00619 M01S00610.xhc +++| SPACE 4,10 00620 M01S00611.xhc +++|** TCHS - CHANNEL TABLE. 00621 M01S00612.xhc +++| 00622 M01S00613.xhc +++| 00623 M01S00614.xhc +++| TCHS CHTB 00624 M01S00615.xhc +++| SPACE 4,10 00625 M01S00616.xhc +++| PRSE EQU * 00626 M01S00617.xhc +++| OVERFLOW 00627 M01S00618.xhc +++| 00628 M01S00619.xhc +++| 00629 M01S00620.xhc +++| END
cdc/nos2.source/opl.opl871/deck/xhc.txt · Last modified: by 127.0.0.1