cdc:nos2.source:opl.opl871:deck:0rt
Deck 0RT
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.0rt +++| IDENT 0RT,RTRX 00002 M00S00002.0rt +++| PERIPH J 00003 M00S00003.0rt +++| BASE MIXED 00004 M00S00004.0rt +++| SST 00005 M00S00005.0rt +++| REL$ SET 0 00006 M00S00006.0rt +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00007 M00S00007.0rt +++|*COMMENT 0RT - RETURN TAPE RESOURCE.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1983.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.0rt +++| TITLE 0RT - RETURN TAPE RESOURCE. 00011 M00S00010.0rt +++| SPACE 4,10 00012 M00S00011.0rt +++|*** 0RT - RETURN TAPE RESOURCE. 00013 M00S00012.0rt +++|* 00014 M00S00013.0rt +++|* J. L. LARSON. 81/12/14. 00015 M00S00014.0rt +++| SPACE 4,10 00016 M00S00015.0rt +++|*** *0RT* IS A LOCATION FREE ROUTINE USED TO CLEAR 00017 M00S00016.0rt +++|* THE ASSOCIATED VSN (RSXVID) FILE ENTRY AND UPDATE THE 00018 M00S00017.0rt +++|* JOB DEMAND (RSXDID) FILE ENTRY FOR RETURN OF A TAPE RESOURCE. 00019 M00S00018.0rt +++|* 00020 M00S00019.0rt +++|* *0RT* IS CALLED BY *0DF* (RETURN/UNLOAD TAPE). 00021 M00S00020.0rt +++| SPACE 4,10 00022 M00S00021.0rt +++|*** ENTRY CONDITIONS. 00023 M00S00022.0rt +++|* 00024 M00S00023.0rt +++|* (FA) = RELATIVE FNT ADDRESS IN NFL 00025 M00S00024.0rt +++|* ((LA)-1) = Y 00026 M00S00025.0rt +++|* WHERE LA = LOAD ADDRESS 00027 M00S00026.0rt +++|* Y = RESOURCE UPDATE CONTROL 00028 M00S00027.0rt +++|* BIT 0 = 0, IF UPDATING ASSIGNED AND DEMAND 00029 M00S00028.0rt +++|* 1, IF NOT UPDATING DEMAND COUNT 00030 M00S00029.0rt +++|* (FS - FS+4) = FST INFORMATION 00031 M00S00030.0rt +++|* 00032 M00S00031.0rt +++|* USES DIRECT CELLS 0 - 17. 00033 M00S00032.0rt +++|* *BFMS* MS SECTOR BUFFER. 00034 M00S00033.0rt +++| SPACE 4,10 00035 M00S00034.0rt +++|*** EXIT CONDITIONS. 00036 M00S00035.0rt +++|* 00037 M00S00036.0rt +++|* (A) .LT. 0 IF RESOURCE DEMAND FILE DEVICE INACCESSIBLE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00038 M01S00001.ns2553 +++|* (T5) = EST ORDINAL OF DEVICE, IF INACCESSIBLE. 00039 M01S00002.ns2553 +++|* (FSTL OF FNT) UPDATED IN CM. 00040 M00S00037.0rt +++| SPACE 4,10 00041 M00S00038.0rt +++|** COMMON DECKS. 00042 M00S00039.0rt +++| 00043 M00S00040.0rt +++| 00044 M00S00041.0rt +++|*CALL COMPMAC 00045 M00S00042.0rt +++|*CALL COMSCPS 00046 M00S00043.0rt +++| QUAL COMSMTX 00047 M00S00044.0rt +++|*CALL COMSMTX 00048 M00S00045.0rt +++| QUAL * 00049 M00S00046.0rt +++|*CALL COMSPIM 00050 M00S00047.0rt +++|*CALL COMSMSP 00051 M00S00048.0rt +++|*CALL COMPREL 00052 M00S00049.0rt +++| QUAL COMSRSX 00053 M00S00050.0rt +++|*CALL COMSRSX 00054 M00S00051.0rt +++| QUAL * 00055 M00S00052.0rt +++|*CALL COMSSSD 00056 M00S00053.0rt +++|*CALL COMSZOL 00057 M00S00054.0rt +++| SPACE 4,10 00058 M00S00055.0rt +++|**** DIRECT LOCATION ASSIGNMENTS. 00059 M00S00056.0rt +++| 00060 M00S00057.0rt +++| 00061 M00S00058.0rt +++| FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS) 00062 M00S00059.0rt +++| RI EQU FS+2 RANDOM INDEX (2 LOCATIONS) 00063 M00S00060.0rt +++| FA EQU 57 RELATIVE FNT ADDRESS IN NFL 00064 M00S00061.0rt +++| SPACE 4,10 00065 M00S00062.0rt +++|* ASSEMBLY CONSTANTS. 00066 M00S00063.0rt +++| 00067 M00S00064.0rt +++| 00068 M00S00065.0rt +++| DFRA EQU BFMS+2+/COMSRSX/VDFI*5+3 DEMAND FILE RANDOM ADDRESS 00069 M00S00066.0rt +++| TACT EQU BFMS+2+/COMSRSX/RVAL*5+3 TOTAL ASSIGNED COUNT 00070 M00S00067.0rt +++| TDCT EQU BFMS+2+/COMSRSX/RVAL*5+4 TOTAL DEMAND COUNT 00071 M00S00068.0rt +++| TRIX EQU BFMS+2+/COMSRSX/VDFI*5+2 TAPE RESOURCE INDEX 00072 M00S00069.0rt +++| 00073 M00S00070.0rt +++|**** 00074 M00S00071.0rt +++| TITLE MAIN PROGRAM. 00075 M00S00072.0rt +++| RTR SPACE 4,10 00076 M00S00073.0rt +++|** RTR - MAIN ROUTINE. 00077 M00S00074.0rt +++| 00078 M00S00075.0rt +++| 00079 M00S00076.0rt +++| ORG 5 00080 M00S00077.0rt +++| RTR SUBR ENTRY/EXIT 00081 M00S00078.0rt +++| RJM IFP INITIALIZE GLOBAL FNT PROCESSOR 00082 M00S00079.0rt +++| LDD FS+4 00083 M00S00080.0rt +++| SHN 21-2 00084 M00S00081.0rt +++| MJN RTR1 IF PREVIOUS DEMAND FILE ERROR 00085 M00S00082.0rt +++| LDN RVFO SET RESOURCE VSN FILE ORDINAL 00086 M00S00083.0rt +++| RJM RRF READ VSN FILE ENTRY 00087 M00S00084.0rt +++| 00088 M00S00085.0rt +++|* CLEAR VSN ENTRY. 00089 M00S00086.0rt +++| 00090 M00S00087.0rt +++| LDM. DFRA SET DEMAND FILE RANDOM ADDRESS 00091 M00S00088.0rt +++| STD RI 00092 M00S00089.0rt +++| LDM. DFRA+1 00093 M00S00090.0rt +++| STD RI+1 00094 M00S00091.0rt +++| LDM. TRIX GET TAPE RESOURCE INDEX AND BYTE POINTER 00095 M00S00092.0rt +++| SBD HN CONVERT BYTE POINTER TO ACCESS LEVEL 00096 M00S00093.0rt +++| SHN 3 00097 M00S00094.0rt +++| LMN 4 00098 M00S00095.0rt +++| RAD FS+4 00099 M00S00096.0rt +++| LDN 0 00100 M00S00097.0rt +++| RJM CLE CLEAR VSN ENTRY 00101 M00S00098.0rt +++| LDD FS+1 00102 M00S00099.0rt +++| ZJN RTRX IF NO UDT ADDRESS 00103 M00S00100.0rt +++| RTR1 LDN RDFO RESOURCE DEMAND FILE ORDINAL 00104 M00S00101.0rt +++| RJM RRF READ DEMAND FILE ENTRY 00105 M00S00102.0rt +++|* UJN URC UPDATE RESOURCE COUNTS 00106 M00S00103.0rt +++| URC SPACE 4,10 00107 M00S00104.0rt +++|* URC - UPDATE RESOURCE ASSIGNED AND DEMAND COUNTS. 00108 M00S00105.0rt +++|* 00109 M00S00106.0rt +++|* ENTRY (FS+4) = RESOURCE BYTE POINTER. 00110 M00S00107.0rt +++|* 00111 M00S00108.0rt +++|* EXIT TO *RTU* TO RELEASE TAPE UNIT. 00112 M00S00109.0rt +++|* 00113 M00S00110.0rt +++|* ERROR TO *HNG* IF RESOURCE COUNTS INVALID. 00114 M00S00111.0rt +++|* 00115 M00S00112.0rt +++|* USES T2. 00116 M00S00113.0rt +++| 00117 M00S00114.0rt +++| 00118 M00S00115.0rt +++| URC BSS 0 ENTRY 00119 M00S00116.0rt +++| LDD FS+4 00120 M00S00117.0rt +++| SHN -3 CALCULATE RESOURCE BYTE NUMBER 00121 M00S00118.0rt +++| LPN 77 00122 M00S00119.0rt +++| STD T2 00123 M00S00120.0rt +++| SHN 2 00124 M00S00121.0rt +++| ADC BFMS+2+5 00125 M00S00122.0rt +++| RAD T2 00126 M00S00123.0rt +++| LDD FS+4 00127 M00S00124.0rt +++| ADD TH CONVERT ACCESS LEVEL TO BYTE POINTER 00128 M00S00125.0rt +++| SHN -11 00129 M00S00126.0rt +++| SBN 5 00130 M00S00127.0rt +++| MJN URC1 IF NOT IN SECOND WORD OF ENTRY 00131 M00S00128.0rt +++| ADN 1 ADJUST TO SECOND WORD 00132 M00S00129.0rt +++| URC1 RAD T2 00133 M00S00130.0rt +++| 00134 M00S00131.0rt +++|* DECREMENT RESOURCE ASSIGNED COUNT AND TOTAL ASSIGNED COUNT. 00135 M00S00132.0rt +++| 00136 M00S00133.0rt +++| LDC -100 DECREMENT RESOURCE ASSIGNED COUNT 00137 M00S00134.0rt +++| RAI T2 00138 M00S00135.0rt +++| MJN HNG IF RESOURCE ASSIGNED COUNT OUT OF RANGE 00139 M00S00136.0rt +++| LDM. TDCT CHECK TOTAL DEMAND COUNT = 1 00140 M00S00137.0rt +++| SBN 1 00141 M00S00138.0rt +++| ZJN URC2 IF ONLY ONE CONCURRENT RESOURCE SCHEDULED 00142 M00S00139.0rt +++| LDM -1 00143 M00S00140.0rt +++| NJN URC3 IF UNLOAD (DECREMENT ASSIGNED COUNT) 00144 M00S00141.0rt +++| 00145 M00S00142.0rt +++|* IF ALL DEMANDS SATISFIED, DECREMENT RESOURCE DEMAND COUNT 00146 M00S00143.0rt +++|* AND TOTAL DEMAND COUNT. 00147 M00S00144.0rt +++| 00148 M00S00145.0rt +++| URC2 LDM. TACT CHECK ALL DEMANDS SATISFIED 00149 M00S00146.0rt +++| SBM. TDCT 00150 M00S00147.0rt +++| MJN URC3 IF NOT ALL DEMANDS SATISFIED 00151 M00S00148.0rt +++| SOI T2 DECREMENT RESOURCE DEMAND COUNT 00152 M00S00149.0rt +++| SHN 21-5 00153 M00S00150.0rt +++| MJN HNG IF RESOURCE DEMAND COUNT OUT OF RANGE 00154 M00S00151.0rt +++| SOM. TDCT DECREMENT TOTAL DEMAND COUNT 00155 M00S00152.0rt +++| MJN HNG IF TOTAL DEMAND COUNT NOT IN RANGE 00156 M00S00153.0rt +++| URC3 SOM. TACT 00157 M00S00154.0rt +++| PJN RTU IF TOTAL ASSIGNED COUNT NOT OUT OF RANGE 00158 M00S00155.0rt +++|* UJN HNG HANG PP 00159 M00S00156.0rt +++| HNG SPACE 4,10 00160 M00S00157.0rt +++|** HNG - HANG PP. 00161 M00S00158.0rt +++|* 00162 M00S00159.0rt +++|* EXIT TO *RRF4* IF PP HANG CLEARED. 00163 M00S00160.0rt +++|* 00164 M00S00161.0rt +++|* MACROS MONITOR. 00165 M00S00162.0rt +++| 00166 M00S00163.0rt +++| 00167 M00S00164.0rt +++| HNG BSS 0 ENTRY 00168 M00S00165.0rt +++| MONITOR HNGM HANG PP 00169 M00S00166.0rt +++| LJM RRF4 RELEASE CHANNEL AND EXIT 00170 M00S00167.0rt +++| RTU SPACE 4,10 00171 M00S00168.0rt +++|** RTU - RELEASE TAPE UNIT. 00172 M00S00169.0rt +++|* 00173 M00S00170.0rt +++|* ENTRY (FS - FS+4) = FST INFORMATION. 00174 M00S00171.0rt +++|* 00175 M00S00172.0rt +++|* EXIT TO *RTRX*. 00176 M00S00173.0rt +++|* 00177 M00S00174.0rt +++|* USES CM - CM+4. 00178 M00S00175.0rt +++|* 00179 M00S00176.0rt +++|* CALLS CLE, PAU. 00180 M00S00177.0rt +++|* 00181 M00S00178.0rt +++|* MACROS MONITOR. 00182 M00S00179.0rt +++| 00183 M00S00180.0rt +++| 00184 M00S00181.0rt +++| RTU BSS 0 ENTRY 00185 M00S00182.0rt +++| LDN 1 00186 M00S00183.0rt +++| RJM CLE UPDATE DEMAND FILE ENTRY
| Line S00184 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00187 M01S00184.282l826 ---| LDD FS+1 00188 M01S00185.282l826 ---| STD CM+1 00189 M01S00186.282l826 ---| LDN /COMSMTX/XRU SET RETURN CODE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00190 M01S00001.282l826 +++| 00191 M01S00002.282l826 +++|* IF CALLED BY MAGNET, A *CLOSE/UNLOAD* OR *CLOSE/RETURN* 00192 M01S00003.282l826 +++|* REQUEST IS IN PROGRESS. IN THIS CASE, *1MT* WILL INITIATE 00193 M01S00004.282l826 +++|* THE UNIT RETURN PROCESSING. 00194 M01S00005.282l826 +++| 00195 M01S00006.282l826 +++| LDD IA SET CALLING CONTROL POINT ADDRESS 00196 M01S00007.282l826 +++| CRD CM 00197 M01S00008.282l826 +++| LDD CM+1 00198 M01S00009.282l826 +++| LPN 37 00199 M01S00010.282l826 +++| SHN 7 00200 M01S00011.282l826 +++| ADK JCIW GET SUBSYSTEM ID 00201 M01S00012.282l826 +++| CRD CM 00202 M01S00013.282l826 +++| LDD CM+2 00203 M01S00014.282l826 +++| LMK MTSI 00204 M01S00015.282l826 +++| ZJN RTU2 IF CALLED BY MAGNET 00205 M01S00016.282l826 +++| LDN ZERL 00206 M01S00017.282l826 +++| CRD CM 00207 M01S00018.282l826 +++| LDN /COMSMTX/RTF SET RETURN REQUEST 00208 M00S00187.0rt +++| STD CM 00209 M00S00188.0rt +++| LDD MA 00210 M00S00189.0rt +++| CWD CM 00211 M00S00190.0rt +++| RTU1 RJM PAU PAUSE
| Line S00191 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00191.282l826 ---| LDN /COMSMTX/XREQ SET *MAGNET* RETURN CALL
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00019.282l826 +++| LDD FS+1 SET *UFRQ* ADDRESS 00214 M01S00020.282l826 +++| ADK /COMSMTX/UFRQ 00215 M00S00192.0rt +++| STD CM+4
| Line S00193 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00193.282l826 ---| LDN 1 SET WRITE FLAG
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00217 M01S00021.282l826 +++| LDN 5 SET WRITE AND INCREMENT TAPE ACTIVITY 00218 M00S00194.0rt +++| STD CM+1
| Line S00195 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00219 M01S00195.282l826 ---| SHN 6 SET NUMBER OF WORDS TO WRITE
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00220 M01S00022.282l826 +++| LDD HN SET NUMBER OF WORDS TO WRITE 00221 M00S00196.0rt +++| STD CM+3 00222 M00S00197.0rt +++| LCN 7777-MTSI 00223 M00S00198.0rt +++| STD CM+2
| Line S00199 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00224 M01S00199.282l826 ---| MONITOR TDAM 00225 M01S00200.282l826 ---| LDD CM+1 00226 M01S00201.282l826 ---| ZJN RTU3 IF COMPLETE 00227 M01S00202.282l826 ---| LMN 4 00228 M01S00203.282l826 ---| NJN RTU1 IF *MAGNET* ACTIVE
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00229 M01S00023.282l826 +++| MONITOR TDAM MAKE TAPE RETURN REQUEST 00230 M01S00024.282l826 +++| LDD CM+1 00231 M01S00025.282l826 +++| ZJN RTU2 IF COMPLETE 00232 M01S00026.282l826 +++| SBN 1 00233 M01S00027.282l826 +++| ZJN RTU1 IF MAGNET MOVING 00234 M01S00028.282l826 +++| LDD FS SET EST ORDINAL 00235 M01S00029.282l826 +++| STD CM+1 00236 M01S00030.282l826 +++| MONITOR DEQM DROP EQUIPMENT 00237 M01S00031.282l826 +++|* LDN 0 SET RETURN COMPLETE 00238 M00S00204.0rt +++| RTU2 LJM RTRX RETURN
| Line S00205 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00239 M01S00205.282l826 ---| 00240 M01S00206.282l826 ---| RTU3 LDN CIOS INCREMENT TAPE ACTIVITY COUNT 00241 M01S00207.282l826 ---| STD CM 00242 M01S00208.282l826 ---| LDN STSW 00243 M01S00209.282l826 ---| STD CM+1 00244 M01S00210.282l826 ---| LDC 404 00245 M01S00211.282l826 ---| STD CM+2 00246 M01S00212.282l826 ---| LDD MA 00247 M01S00213.282l826 ---| CWD CM 00248 M01S00214.282l826 ---| LDN 1 SET REQUEST COUNT AND NO DROP 00249 M01S00215.282l826 ---| STD CM+1 00250 M01S00216.282l826 ---| STD CM+2 00251 M01S00217.282l826 ---| MONITOR UADM 00252 M01S00218.282l826 ---| LDD CM+1 00253 M01S00219.282l826 ---| ZJN RTU2 IF UPDATE COMPLETE 00254 M01S00220.282l826 ---| LJM HNG HANG PP 00255 M00S00221.0rt ---| TITLE SUBROUTINES. 00256 M00S00222.0rt ---| RRF SPACE 4,15 00257 M00S00223.0rt ---|** RRF - READ RESOURCE FILE ENTRY. 00258 M00S00224.0rt ---|* 00259 M00S00225.0rt ---|* ENTRY (A) = FNT ORDINAL OF RESOURCE FILE. 00260 M00S00226.0rt ---|* (RI - RI+1) = RANDOM INDEX OF RESOURCE FILE ENTRY. 00261 M00S00227.0rt ---|* 00262 M00S00228.0rt ---|* EXIT (T5 - T7) = RESOURCE FILE MS PARAMETERS. 00263 M00S00229.0rt ---|* (BFMS) = RESOURCE FILE ENTRY (MS SECTOR). 00264 M00S00230.0rt ---|* 00265 M00S00231.0rt ---|* ERROR TO *RTRX* IF FILE EMPTY, RANDOM INDEX ERROR, 00266 M00S00232.0rt ---|* OR SECTOR READ ERROR. 00267 M00S00233.0rt ---|* 00268 M00S00234.0rt ---|* USES T1, T3, CM - CM+4, T5 - T5+4. 00269 M00S00235.0rt ---|* 00270 M00S00236.0rt ---|* CALLS CLE, CRA, PAU, RDS, SFI. 00271 M00S00237.0rt ---|* 00272 M00S00238.0rt ---|* MACROS SETMS, SFA. 00273 M00S00239.0rt ---| 00274 M00S00240.0rt ---| 00275 M00S00241.0rt ---| RRF SUBR ENTRY/EXIT 00276 M00S00242.0rt ---| STD T3 00277 M00S00243.0rt ---| SFA FNT GET RESOURCE FILE FST ENTRY 00278 M00S00244.0rt ---| ADN FSTG 00279 M00S00245.0rt ---| CRD T5 00280 M00S00246.0rt ---| LDD T6 00281 M00S00247.0rt ---| ZJN RRF1 IF FILE UNUSED 00282 M00S00248.0rt ---| SETMS IO,RW 00283 M00S00249.0rt ---| LDD CM+4 FETCH FWA OF TRT 00284 M00S00250.0rt ---| SHN 3 00285 M00S00251.0rt ---| ADN TRLL 00286 M00S00252.0rt ---| CRD CM 00287 M00S00253.0rt ---| LDD CM+3 00288 M00S00254.0rt ---| LPN 77 00289 M00S00255.0rt ---| SHN 14 00290 M00S00256.0rt ---| LMD CM+4 00291 M00S00257.0rt ---| SBD TH 4000/4 00292 M00S00258.0rt ---| STM CRAA+1 00293 M00S00259.0rt ---| SHN -14 00294 M00S00260.0rt ---| LMC ADCI 00295 M00S00261.0rt ---| STM CRAA 00296 M00S00262.0rt ---| LDD RI 00297 M00S00263.0rt ---| ADD RI+1 00298 M00S00264.0rt ---| RRF1 ZJN RRF5 IF NO RANDOM INDEX 00299 M00S00265.0rt ---| RRF2 RJM PAU PAUSE 00300 M00S00266.0rt ---|* LDN SFIN 00301 M00S00267.0rt ---| ERRNZ SFIN CODE DEPENDS ON VALUE 00302 M00S00268.0rt ---|* STD T1 00303 M00S00269.0rt ---| SFA FNT,T3 INTERLOCK RESOURCE FILE 00304 M00S00270.0rt ---| RJM SFI 00305 M00S00271.0rt ---| NJN RRF2 IF INTERLOCK UNAVAILABLE 00306 M00S00272.0rt ---| RJM CRA 00307 M00S00273.0rt ---| MJN RRF4 IF RANDOM ADDRESS ERROR 00308 M00S00274.0rt ---| LDC BFMS 00309 M00S00275.0rt ---| RJM. RDS READ SECTOR 00310 M00S00276.0rt ---| MJN RRF3 IF READ ERROR 00311 M00S00277.0rt ---| LJM RRFX RETURN 00312 M00S00278.0rt ---| 00313 M00S00279.0rt ---| RRF3 SHN 21-12 00314 M00S00280.0rt ---| MJN RRF4 IF NON-RECOVERABLE ERROR 00315 M00S00281.0rt ---| SOM RRFA 00316 M00S00282.0rt ---| RRF4 LCN 0 RELEASE FILE WITH NO UPDATE 00317 M00S00283.0rt ---| RJM CLE 00318 M00S00284.0rt ---|* LDN 0 SET EXIT CONDITION 00319 M00S00285.0rt ---| RRFA ADN 0 00320 M00S00286.0rt ---|* LCN 77 (RECOVERABLE MS ERROR ENCOUNTERED) 00321 M00S00287.0rt ---| RRF5 LJM RTRX RETURN 00322 M00S00288.0rt ---| CLE SPACE 4,25 00323 M00S00289.0rt ---|** CLE - CLEAR/UPDATE FILE ENTRY. 00324 M00S00290.0rt ---|* 00325 M00S00291.0rt ---|* ENTRY (A) = 0, IF CLEAR FILE ENTRY. 00326 M00S00292.0rt ---|* (A) .GT. 0, IF UPDATE FILE ENTRY. 00327 M00S00293.0rt ---|* (A) .LT. 0, IF RELEASE CHANNEL WITH NO UPDATE. 00328 M00S00294.0rt ---|* (T3) = FNT ORDINAL OF RESOURCE FILE. 00329 M00S00295.0rt ---|* (FA) = RELATIVE FNT ADDRESS IN NFL. 00330 M00S00296.0rt ---|* (T5 - T7) = RESOURCE FILE MS PARAMETERS. 00331 M00S00297.0rt ---|* (FS - FS+4) = FST INFORMATION. 00332 M00S00298.0rt ---|* (BFMS) = RESOURCE FILE ENTRY (MS SECTOR). 00333 M00S00299.0rt ---|* 00334 M00S00300.0rt ---|* EXIT RESOURCE FILE SECTOR REWRITTEN FROM BFMS BUFFER 00335 M00S00301.0rt ---|* FOR ENTRY CONDITION (A) .GE. 0. 00336 M00S00302.0rt ---|* 00337 M00S00303.0rt ---|* ERROR TO *RRF3* IF MASS STORAGE ERROR. 00338 M00S00304.0rt ---|* 00339 M00S00305.0rt ---|* USES T1, CM - CM+4. 00340 M00S00306.0rt ---|* 00341 M00S00307.0rt ---|* CALLS SFI, WDS. 00342 M00S00308.0rt ---|* 00343 M00S00309.0rt ---|* MACROS ENDMS, SFA. 00344 M00S00310.0rt ---| 00345 M00S00311.0rt ---| 00346 M00S00312.0rt ---| CLE SUBR EXTRY/EXIT 00347 M00S00313.0rt ---| NJN CLE2 IF UPDATE ONLY 00348 M00S00314.0rt ---| LDC 500 00349 M00S00315.0rt ---| STD T1 00350 M00S00316.0rt ---| CLE1 LDN 0 CLEAR SECTOR BUFFER 00351 M00S00317.0rt ---| STM. BFMS+1,T1 00352 M00S00318.0rt ---| SOD T1 00353 M00S00319.0rt ---| NJN CLE1 IF MORE TO CLEAR 00354 M00S00320.0rt ---| CLE2 MJN CLE3 IF NO SECTOR TO WRITE 00355 M00S00321.0rt ---| LDC BFMS+WLSF WRITE SECTOR 00356 M00S00322.0rt ---| RJM. WDS 00357 M00S00323.0rt ---| MJP RRF3 IF WRITE ERROR 00358 M00S00324.0rt ---| NFA FA,R 00359 M00S00325.0rt ---| ADN FSTL UPDATE FST INFORMATION 00360 M00S00326.0rt ---| CWD FS 00361 M00S00327.0rt ---| CLE3 ENDMS END MASS STORAGE OPERATION 00362 M00S00328.0rt ---| LDN CFIN CLEAR FILE INTERLOCK OPTION 00363 M00S00329.0rt ---| STD T1 00364 M00S00330.0rt ---| SFA FNT,T3 ABSOLUTE ADDRESS OF RESOURCE FILE FNT 00365 M00S00331.0rt ---| RJM SFI CLEAR RESOURCE FILE INTERLOCK 00366 M00S00332.0rt ---| UJP CLEX RETURN 00367 M00S00333.0rt ---| PAU SPACE 4,10 00368 M00S00334.0rt ---|** PAU - PAUSE AND CHECK FOR OPERATOR OVERRIDE. 00369 M00S00335.0rt ---|* 00370 M00S00336.0rt ---|* EXIT (A) = (T1) = 0. 00371 M00S00337.0rt ---|* 00372 M00S00338.0rt ---|* ERROR TO *RTRX* IF OPERATOR OVERRIDE ERROR FLAG. 00373 M00S00339.0rt ---|* 00374 M00S00340.0rt ---|* USES T1. 00375 M00S00341.0rt ---|* 00376 M00S00342.0rt ---|* MACROS DELAY, PAUSE. 00377 M00S00343.0rt ---| 00378 M00S00344.0rt ---| 00379 M00S00345.0rt ---| PAU SUBR ENTRY/EXIT 00380 M00S00346.0rt ---| LDN 20 DELAY TWO MILLISECONDS 00381 M00S00347.0rt ---| STD T1 00382 M00S00348.0rt ---| PAU1 SOD T1 00383 M00S00349.0rt ---| ZJN PAUX IF END OF DELAY 00384 M00S00350.0rt ---| DELAY 00385 M00S00351.0rt ---| PAUSE 00386 M00S00352.0rt ---| LDD CM+1 00387 M00S00353.0rt ---| LMN ORET 00388 M00S00354.0rt ---| NJN PAU1 IF NOT OPERATOR OVERRIDE 00389 M00S00355.0rt ---| LJM RTRX EXIT 00390 M00S00356.0rt ---| SPACE 4,10 00391 M00S00357.0rt ---|** COMMON DECKS. 00392 M00S00358.0rt ---| 00393 M00S00359.0rt ---| 00394 M00S00360.0rt ---| IRA$ SET 1 DEFINE INITIALIZATION 00395 M00S00361.0rt ---| REL$ SET 1 00396 M00S00362.0rt ---|*CALL COMPCRA 00397 M00S00363.0rt ---| FNT$ EQU 1 ASSEMBLE SYSTEM FNT PROCESSOR 00398 M00S00364.0rt ---| IFP$ EQU 1 ASSEMBLE REMOTE INITIALIZATION CODE 00399 M00S00365.0rt ---|*CALL COMPGFP 00400 M00S00366.0rt ---| SFI$ EQU 1 SELECT IMMEDIATE RETURN FROM *SFI* 00401 M00S00367.0rt ---|*CALL COMPSFI 00402 M00S00368.0rt ---| 00403 M00S00369.0rt ---| 00404 M00S00370.0rt ---| IFP HERE CODE TO INITIALIZE SYSTEM FNT PROCESSOR 00405 M00S00371.0rt ---| SPACE 4,10 00406 M00S00372.0rt ---| RSTR 00407 M00S00373.0rt ---| SPACE 4,10 00408 M00S00374.0rt ---| OVERFLOW 5,ZRTL 00409 M00S00375.0rt ---| 00410 M00S00376.0rt ---| END
cdc/nos2.source/opl.opl871/deck/0rt.txt · Last modified: (external edit)