cdc:nos2.source:opl.opl871:deck:0rt
Deck 0RT
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.0rt +++| IDENT 0RT,RTRX 00002 M01S00002.0rt +++| PERIPH J 00003 M01S00003.0rt +++| BASE MIXED 00004 M01S00004.0rt +++| SST 00005 M01S00005.0rt +++| REL$ SET 0 00006 M01S00006.0rt +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00007 M01S00007.0rt +++|*COMMENT 0RT - RETURN TAPE RESOURCE.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1983. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00009.0rt +++| TITLE 0RT - RETURN TAPE RESOURCE. 00011 M01S00010.0rt +++| SPACE 4,10 00012 M01S00011.0rt +++|*** 0RT - RETURN TAPE RESOURCE. 00013 M01S00012.0rt +++|* 00014 M01S00013.0rt +++|* J. L. LARSON. 81/12/14. 00015 M01S00014.0rt +++| SPACE 4,10 00016 M01S00015.0rt +++|*** *0RT* IS A LOCATION FREE ROUTINE USED TO CLEAR 00017 M01S00016.0rt +++|* THE ASSOCIATED VSN (RSXVID) FILE ENTRY AND UPDATE THE 00018 M01S00017.0rt +++|* JOB DEMAND (RSXDID) FILE ENTRY FOR RETURN OF A TAPE RESOURCE. 00019 M01S00018.0rt +++|* 00020 M01S00019.0rt +++|* *0RT* IS CALLED BY *0DF* (RETURN/UNLOAD TAPE). 00021 M01S00020.0rt +++| SPACE 4,10 00022 M01S00021.0rt +++|*** ENTRY CONDITIONS. 00023 M01S00022.0rt +++|* 00024 M01S00023.0rt +++|* (FA) = RELATIVE FNT ADDRESS IN NFL 00025 M01S00024.0rt +++|* ((LA)-1) = Y 00026 M01S00025.0rt +++|* WHERE LA = LOAD ADDRESS 00027 M01S00026.0rt +++|* Y = RESOURCE UPDATE CONTROL 00028 M01S00027.0rt +++|* BIT 0 = 0, IF UPDATING ASSIGNED AND DEMAND 00029 M01S00028.0rt +++|* 1, IF NOT UPDATING DEMAND COUNT 00030 M01S00029.0rt +++|* (FS - FS+4) = FST INFORMATION 00031 M01S00030.0rt +++|* 00032 M01S00031.0rt +++|* USES DIRECT CELLS 0 - 17. 00033 M01S00032.0rt +++|* *BFMS* MS SECTOR BUFFER. 00034 M01S00033.0rt +++| SPACE 4,10 00035 M01S00034.0rt +++|*** EXIT CONDITIONS. 00036 M01S00035.0rt +++|* 00037 M01S00036.0rt +++|* (A) .LT. 0 IF RESOURCE DEMAND FILE DEVICE INACCESSIBLE. 00038 M01S00001.ns2553 +++|* (T5) = EST ORDINAL OF DEVICE, IF INACCESSIBLE. 00039 M01S00002.ns2553 +++|* (FSTL OF FNT) UPDATED IN CM. 00040 M01S00037.0rt +++| SPACE 4,10 00041 M01S00038.0rt +++|** COMMON DECKS. 00042 M01S00039.0rt +++| 00043 M01S00040.0rt +++| 00044 M01S00041.0rt +++|*CALL COMPMAC 00045 M01S00042.0rt +++|*CALL COMSCPS 00046 M01S00043.0rt +++| QUAL COMSMTX 00047 M01S00044.0rt +++|*CALL COMSMTX 00048 M01S00045.0rt +++| QUAL * 00049 M01S00046.0rt +++|*CALL COMSPIM 00050 M01S00047.0rt +++|*CALL COMSMSP 00051 M01S00048.0rt +++|*CALL COMPREL 00052 M01S00049.0rt +++| QUAL COMSRSX 00053 M01S00050.0rt +++|*CALL COMSRSX 00054 M01S00051.0rt +++| QUAL * 00055 M01S00052.0rt +++|*CALL COMSSSD 00056 M01S00053.0rt +++|*CALL COMSZOL 00057 M01S00054.0rt +++| SPACE 4,10 00058 M01S00055.0rt +++|**** DIRECT LOCATION ASSIGNMENTS. 00059 M01S00056.0rt +++| 00060 M01S00057.0rt +++| 00061 M01S00058.0rt +++| FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS) 00062 M01S00059.0rt +++| RI EQU FS+2 RANDOM INDEX (2 LOCATIONS) 00063 M01S00060.0rt +++| FA EQU 57 RELATIVE FNT ADDRESS IN NFL 00064 M01S00061.0rt +++| SPACE 4,10 00065 M01S00062.0rt +++|* ASSEMBLY CONSTANTS. 00066 M01S00063.0rt +++| 00067 M01S00064.0rt +++| 00068 M01S00065.0rt +++| DFRA EQU BFMS+2+/COMSRSX/VDFI*5+3 DEMAND FILE RANDOM ADDRESS 00069 M01S00066.0rt +++| TACT EQU BFMS+2+/COMSRSX/RVAL*5+3 TOTAL ASSIGNED COUNT 00070 M01S00067.0rt +++| TDCT EQU BFMS+2+/COMSRSX/RVAL*5+4 TOTAL DEMAND COUNT 00071 M01S00068.0rt +++| TRIX EQU BFMS+2+/COMSRSX/VDFI*5+2 TAPE RESOURCE INDEX 00072 M01S00069.0rt +++| 00073 M01S00070.0rt +++|**** 00074 M01S00071.0rt +++| TITLE MAIN PROGRAM. 00075 M01S00072.0rt +++| RTR SPACE 4,10 00076 M01S00073.0rt +++|** RTR - MAIN ROUTINE. 00077 M01S00074.0rt +++| 00078 M01S00075.0rt +++| 00079 M01S00076.0rt +++| ORG 5 00080 M01S00077.0rt +++| RTR SUBR ENTRY/EXIT 00081 M01S00078.0rt +++| RJM IFP INITIALIZE GLOBAL FNT PROCESSOR 00082 M01S00079.0rt +++| LDD FS+4 00083 M01S00080.0rt +++| SHN 21-2 00084 M01S00081.0rt +++| MJN RTR1 IF PREVIOUS DEMAND FILE ERROR 00085 M01S00082.0rt +++| LDN RVFO SET RESOURCE VSN FILE ORDINAL 00086 M01S00083.0rt +++| RJM RRF READ VSN FILE ENTRY 00087 M01S00084.0rt +++| 00088 M01S00085.0rt +++|* CLEAR VSN ENTRY. 00089 M01S00086.0rt +++| 00090 M01S00087.0rt +++| LDM. DFRA SET DEMAND FILE RANDOM ADDRESS 00091 M01S00088.0rt +++| STD RI 00092 M01S00089.0rt +++| LDM. DFRA+1 00093 M01S00090.0rt +++| STD RI+1 00094 M01S00091.0rt +++| LDM. TRIX GET TAPE RESOURCE INDEX AND BYTE POINTER 00095 M01S00092.0rt +++| SBD HN CONVERT BYTE POINTER TO ACCESS LEVEL 00096 M01S00093.0rt +++| SHN 3 00097 M01S00094.0rt +++| LMN 4 00098 M01S00095.0rt +++| RAD FS+4 00099 M01S00096.0rt +++| LDN 0 00100 M01S00097.0rt +++| RJM CLE CLEAR VSN ENTRY 00101 M01S00098.0rt +++| LDD FS+1 00102 M01S00099.0rt +++| ZJN RTRX IF NO UDT ADDRESS 00103 M01S00100.0rt +++| RTR1 LDN RDFO RESOURCE DEMAND FILE ORDINAL 00104 M01S00101.0rt +++| RJM RRF READ DEMAND FILE ENTRY 00105 M01S00102.0rt +++|* UJN URC UPDATE RESOURCE COUNTS 00106 M01S00103.0rt +++| URC SPACE 4,10 00107 M01S00104.0rt +++|* URC - UPDATE RESOURCE ASSIGNED AND DEMAND COUNTS. 00108 M01S00105.0rt +++|* 00109 M01S00106.0rt +++|* ENTRY (FS+4) = RESOURCE BYTE POINTER. 00110 M01S00107.0rt +++|* 00111 M01S00108.0rt +++|* EXIT TO *RTU* TO RELEASE TAPE UNIT. 00112 M01S00109.0rt +++|* 00113 M01S00110.0rt +++|* ERROR TO *HNG* IF RESOURCE COUNTS INVALID. 00114 M01S00111.0rt +++|* 00115 M01S00112.0rt +++|* USES T2. 00116 M01S00113.0rt +++| 00117 M01S00114.0rt +++| 00118 M01S00115.0rt +++| URC BSS 0 ENTRY 00119 M01S00116.0rt +++| LDD FS+4 00120 M01S00117.0rt +++| SHN -3 CALCULATE RESOURCE BYTE NUMBER 00121 M01S00118.0rt +++| LPN 77 00122 M01S00119.0rt +++| STD T2 00123 M01S00120.0rt +++| SHN 2 00124 M01S00121.0rt +++| ADC BFMS+2+5 00125 M01S00122.0rt +++| RAD T2 00126 M01S00123.0rt +++| LDD FS+4 00127 M01S00124.0rt +++| ADD TH CONVERT ACCESS LEVEL TO BYTE POINTER 00128 M01S00125.0rt +++| SHN -11 00129 M01S00126.0rt +++| SBN 5 00130 M01S00127.0rt +++| MJN URC1 IF NOT IN SECOND WORD OF ENTRY 00131 M01S00128.0rt +++| ADN 1 ADJUST TO SECOND WORD 00132 M01S00129.0rt +++| URC1 RAD T2 00133 M01S00130.0rt +++| 00134 M01S00131.0rt +++|* DECREMENT RESOURCE ASSIGNED COUNT AND TOTAL ASSIGNED COUNT. 00135 M01S00132.0rt +++| 00136 M01S00133.0rt +++| LDC -100 DECREMENT RESOURCE ASSIGNED COUNT 00137 M01S00134.0rt +++| RAI T2 00138 M01S00135.0rt +++| MJN HNG IF RESOURCE ASSIGNED COUNT OUT OF RANGE 00139 M01S00136.0rt +++| LDM. TDCT CHECK TOTAL DEMAND COUNT = 1 00140 M01S00137.0rt +++| SBN 1 00141 M01S00138.0rt +++| ZJN URC2 IF ONLY ONE CONCURRENT RESOURCE SCHEDULED 00142 M01S00139.0rt +++| LDM -1 00143 M01S00140.0rt +++| NJN URC3 IF UNLOAD (DECREMENT ASSIGNED COUNT) 00144 M01S00141.0rt +++| 00145 M01S00142.0rt +++|* IF ALL DEMANDS SATISFIED, DECREMENT RESOURCE DEMAND COUNT 00146 M01S00143.0rt +++|* AND TOTAL DEMAND COUNT. 00147 M01S00144.0rt +++| 00148 M01S00145.0rt +++| URC2 LDM. TACT CHECK ALL DEMANDS SATISFIED 00149 M01S00146.0rt +++| SBM. TDCT 00150 M01S00147.0rt +++| MJN URC3 IF NOT ALL DEMANDS SATISFIED 00151 M01S00148.0rt +++| SOI T2 DECREMENT RESOURCE DEMAND COUNT 00152 M01S00149.0rt +++| SHN 21-5 00153 M01S00150.0rt +++| MJN HNG IF RESOURCE DEMAND COUNT OUT OF RANGE 00154 M01S00151.0rt +++| SOM. TDCT DECREMENT TOTAL DEMAND COUNT 00155 M01S00152.0rt +++| MJN HNG IF TOTAL DEMAND COUNT NOT IN RANGE 00156 M01S00153.0rt +++| URC3 SOM. TACT 00157 M01S00154.0rt +++| PJN RTU IF TOTAL ASSIGNED COUNT NOT OUT OF RANGE 00158 M01S00155.0rt +++|* UJN HNG HANG PP 00159 M01S00156.0rt +++| HNG SPACE 4,10 00160 M01S00157.0rt +++|** HNG - HANG PP. 00161 M01S00158.0rt +++|* 00162 M01S00159.0rt +++|* EXIT TO *RRF4* IF PP HANG CLEARED. 00163 M01S00160.0rt +++|* 00164 M01S00161.0rt +++|* MACROS MONITOR. 00165 M01S00162.0rt +++| 00166 M01S00163.0rt +++| 00167 M01S00164.0rt +++| HNG BSS 0 ENTRY 00168 M01S00165.0rt +++| MONITOR HNGM HANG PP 00169 M01S00166.0rt +++| LJM RRF4 RELEASE CHANNEL AND EXIT 00170 M01S00167.0rt +++| RTU SPACE 4,10 00171 M01S00168.0rt +++|** RTU - RELEASE TAPE UNIT. 00172 M01S00169.0rt +++|* 00173 M01S00170.0rt +++|* ENTRY (FS - FS+4) = FST INFORMATION. 00174 M01S00171.0rt +++|* 00175 M01S00172.0rt +++|* EXIT TO *RTRX*. 00176 M01S00173.0rt +++|* 00177 M01S00174.0rt +++|* USES CM - CM+4. 00178 M01S00175.0rt +++|* 00179 M01S00176.0rt +++|* CALLS CLE, PAU. 00180 M01S00177.0rt +++|* 00181 M01S00178.0rt +++|* MACROS MONITOR. 00182 M01S00179.0rt +++| 00183 M01S00180.0rt +++| 00184 M01S00181.0rt +++| RTU BSS 0 ENTRY 00185 M01S00182.0rt +++| LDN 1 00186 M01S00183.0rt +++| RJM CLE UPDATE DEMAND FILE ENTRY
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00187 M02S00184.282l826 ---| LDD FS+1
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00188 M02S00185.282l826 ---| STD CM+1
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00186.282l826 ---| LDN /COMSMTX/XRU SET RETURN CODE 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 M01S00187.0rt +++| STD CM 00209 M01S00188.0rt +++| LDD MA 00210 M01S00189.0rt +++| CWD CM 00211 M01S00190.0rt +++| RTU1 RJM PAU PAUSE
| Line S00191 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00212 M02S00191.282l826 ---| LDN /COMSMTX/XREQ SET *MAGNET* RETURN CALL 00213 M01S00019.282l826 +++| LDD FS+1 SET *UFRQ* ADDRESS 00214 M01S00020.282l826 +++| ADK /COMSMTX/UFRQ 00215 M01S00192.0rt +++| STD CM+4
| Line S00193 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00216 M02S00193.282l826 ---| LDN 1 SET WRITE FLAG 00217 M01S00021.282l826 +++| LDN 5 SET WRITE AND INCREMENT TAPE ACTIVITY 00218 M01S00194.0rt +++| STD CM+1
| Line S00195 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00219 M02S00195.282l826 ---| SHN 6 SET NUMBER OF WORDS TO WRITE 00220 M01S00022.282l826 +++| LDD HN SET NUMBER OF WORDS TO WRITE 00221 M01S00196.0rt +++| STD CM+3 00222 M01S00197.0rt +++| LCN 7777-MTSI 00223 M01S00198.0rt +++| STD CM+2
| Line S00199 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00224 M02S00199.282l826 ---| MONITOR TDAM
| Line S00200 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00225 M02S00200.282l826 ---| LDD CM+1
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00226 M02S00201.282l826 ---| ZJN RTU3 IF COMPLETE
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00227 M02S00202.282l826 ---| LMN 4
| Line S00203 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00228 M02S00203.282l826 ---| NJN RTU1 IF *MAGNET* ACTIVE 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 M01S00204.0rt +++| RTU2 LJM RTRX RETURN
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00239 M02S00205.282l826 ---|
| Line S00206 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00240 M02S00206.282l826 ---| RTU3 LDN CIOS INCREMENT TAPE ACTIVITY COUNT
| Line S00207 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00241 M02S00207.282l826 ---| STD CM
| Line S00208 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00242 M02S00208.282l826 ---| LDN STSW
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00243 M02S00209.282l826 ---| STD CM+1
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00244 M02S00210.282l826 ---| LDC 404
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00245 M02S00211.282l826 ---| STD CM+2
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00246 M02S00212.282l826 ---| LDD MA
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00247 M02S00213.282l826 ---| CWD CM
| Line S00214 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00248 M02S00214.282l826 ---| LDN 1 SET REQUEST COUNT AND NO DROP
| Line S00215 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00249 M02S00215.282l826 ---| STD CM+1
| Line S00216 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00250 M02S00216.282l826 ---| STD CM+2
| Line S00217 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00251 M02S00217.282l826 ---| MONITOR UADM
| Line S00218 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00252 M02S00218.282l826 ---| LDD CM+1
| Line S00219 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00253 M02S00219.282l826 ---| ZJN RTU2 IF UPDATE COMPLETE
| Line S00220 Modification History | |
|---|---|
M01 (Added by) | 0rt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00254 M02S00220.282l826 ---| LJM HNG HANG PP 00255 M01S00221.0rt +++| TITLE SUBROUTINES. 00256 M01S00222.0rt +++| RRF SPACE 4,15 00257 M01S00223.0rt +++|** RRF - READ RESOURCE FILE ENTRY. 00258 M01S00224.0rt +++|* 00259 M01S00225.0rt +++|* ENTRY (A) = FNT ORDINAL OF RESOURCE FILE. 00260 M01S00226.0rt +++|* (RI - RI+1) = RANDOM INDEX OF RESOURCE FILE ENTRY. 00261 M01S00227.0rt +++|* 00262 M01S00228.0rt +++|* EXIT (T5 - T7) = RESOURCE FILE MS PARAMETERS. 00263 M01S00229.0rt +++|* (BFMS) = RESOURCE FILE ENTRY (MS SECTOR). 00264 M01S00230.0rt +++|* 00265 M01S00231.0rt +++|* ERROR TO *RTRX* IF FILE EMPTY, RANDOM INDEX ERROR, 00266 M01S00232.0rt +++|* OR SECTOR READ ERROR. 00267 M01S00233.0rt +++|* 00268 M01S00234.0rt +++|* USES T1, T3, CM - CM+4, T5 - T5+4. 00269 M01S00235.0rt +++|* 00270 M01S00236.0rt +++|* CALLS CLE, CRA, PAU, RDS, SFI. 00271 M01S00237.0rt +++|* 00272 M01S00238.0rt +++|* MACROS SETMS, SFA. 00273 M01S00239.0rt +++| 00274 M01S00240.0rt +++| 00275 M01S00241.0rt +++| RRF SUBR ENTRY/EXIT 00276 M01S00242.0rt +++| STD T3 00277 M01S00243.0rt +++| SFA FNT GET RESOURCE FILE FST ENTRY 00278 M01S00244.0rt +++| ADN FSTG 00279 M01S00245.0rt +++| CRD T5 00280 M01S00246.0rt +++| LDD T6 00281 M01S00247.0rt +++| ZJN RRF1 IF FILE UNUSED 00282 M01S00248.0rt +++| SETMS IO,RW 00283 M01S00249.0rt +++| LDD CM+4 FETCH FWA OF TRT 00284 M01S00250.0rt +++| SHN 3 00285 M01S00251.0rt +++| ADN TRLL 00286 M01S00252.0rt +++| CRD CM 00287 M01S00253.0rt +++| LDD CM+3 00288 M01S00254.0rt +++| LPN 77 00289 M01S00255.0rt +++| SHN 14 00290 M01S00256.0rt +++| LMD CM+4 00291 M01S00257.0rt +++| SBD TH 4000/4 00292 M01S00258.0rt +++| STM CRAA+1 00293 M01S00259.0rt +++| SHN -14 00294 M01S00260.0rt +++| LMC ADCI 00295 M01S00261.0rt +++| STM CRAA 00296 M01S00262.0rt +++| LDD RI 00297 M01S00263.0rt +++| ADD RI+1 00298 M01S00264.0rt +++| RRF1 ZJN RRF5 IF NO RANDOM INDEX 00299 M01S00265.0rt +++| RRF2 RJM PAU PAUSE 00300 M01S00266.0rt +++|* LDN SFIN 00301 M01S00267.0rt +++| ERRNZ SFIN CODE DEPENDS ON VALUE 00302 M01S00268.0rt +++|* STD T1 00303 M01S00269.0rt +++| SFA FNT,T3 INTERLOCK RESOURCE FILE 00304 M01S00270.0rt +++| RJM SFI 00305 M01S00271.0rt +++| NJN RRF2 IF INTERLOCK UNAVAILABLE 00306 M01S00272.0rt +++| RJM CRA 00307 M01S00273.0rt +++| MJN RRF4 IF RANDOM ADDRESS ERROR 00308 M01S00274.0rt +++| LDC BFMS 00309 M01S00275.0rt +++| RJM. RDS READ SECTOR 00310 M01S00276.0rt +++| MJN RRF3 IF READ ERROR 00311 M01S00277.0rt +++| LJM RRFX RETURN 00312 M01S00278.0rt +++| 00313 M01S00279.0rt +++| RRF3 SHN 21-12 00314 M01S00280.0rt +++| MJN RRF4 IF NON-RECOVERABLE ERROR 00315 M01S00281.0rt +++| SOM RRFA 00316 M01S00282.0rt +++| RRF4 LCN 0 RELEASE FILE WITH NO UPDATE 00317 M01S00283.0rt +++| RJM CLE 00318 M01S00284.0rt +++|* LDN 0 SET EXIT CONDITION 00319 M01S00285.0rt +++| RRFA ADN 0 00320 M01S00286.0rt +++|* LCN 77 (RECOVERABLE MS ERROR ENCOUNTERED) 00321 M01S00287.0rt +++| RRF5 LJM RTRX RETURN 00322 M01S00288.0rt +++| CLE SPACE 4,25 00323 M01S00289.0rt +++|** CLE - CLEAR/UPDATE FILE ENTRY. 00324 M01S00290.0rt +++|* 00325 M01S00291.0rt +++|* ENTRY (A) = 0, IF CLEAR FILE ENTRY. 00326 M01S00292.0rt +++|* (A) .GT. 0, IF UPDATE FILE ENTRY. 00327 M01S00293.0rt +++|* (A) .LT. 0, IF RELEASE CHANNEL WITH NO UPDATE. 00328 M01S00294.0rt +++|* (T3) = FNT ORDINAL OF RESOURCE FILE. 00329 M01S00295.0rt +++|* (FA) = RELATIVE FNT ADDRESS IN NFL. 00330 M01S00296.0rt +++|* (T5 - T7) = RESOURCE FILE MS PARAMETERS. 00331 M01S00297.0rt +++|* (FS - FS+4) = FST INFORMATION. 00332 M01S00298.0rt +++|* (BFMS) = RESOURCE FILE ENTRY (MS SECTOR). 00333 M01S00299.0rt +++|* 00334 M01S00300.0rt +++|* EXIT RESOURCE FILE SECTOR REWRITTEN FROM BFMS BUFFER 00335 M01S00301.0rt +++|* FOR ENTRY CONDITION (A) .GE. 0. 00336 M01S00302.0rt +++|* 00337 M01S00303.0rt +++|* ERROR TO *RRF3* IF MASS STORAGE ERROR. 00338 M01S00304.0rt +++|* 00339 M01S00305.0rt +++|* USES T1, CM - CM+4. 00340 M01S00306.0rt +++|* 00341 M01S00307.0rt +++|* CALLS SFI, WDS. 00342 M01S00308.0rt +++|* 00343 M01S00309.0rt +++|* MACROS ENDMS, SFA. 00344 M01S00310.0rt +++| 00345 M01S00311.0rt +++| 00346 M01S00312.0rt +++| CLE SUBR EXTRY/EXIT 00347 M01S00313.0rt +++| NJN CLE2 IF UPDATE ONLY 00348 M01S00314.0rt +++| LDC 500 00349 M01S00315.0rt +++| STD T1 00350 M01S00316.0rt +++| CLE1 LDN 0 CLEAR SECTOR BUFFER 00351 M01S00317.0rt +++| STM. BFMS+1,T1 00352 M01S00318.0rt +++| SOD T1 00353 M01S00319.0rt +++| NJN CLE1 IF MORE TO CLEAR 00354 M01S00320.0rt +++| CLE2 MJN CLE3 IF NO SECTOR TO WRITE 00355 M01S00321.0rt +++| LDC BFMS+WLSF WRITE SECTOR 00356 M01S00322.0rt +++| RJM. WDS 00357 M01S00323.0rt +++| MJP RRF3 IF WRITE ERROR 00358 M01S00324.0rt +++| NFA FA,R 00359 M01S00325.0rt +++| ADN FSTL UPDATE FST INFORMATION 00360 M01S00326.0rt +++| CWD FS 00361 M01S00327.0rt +++| CLE3 ENDMS END MASS STORAGE OPERATION 00362 M01S00328.0rt +++| LDN CFIN CLEAR FILE INTERLOCK OPTION 00363 M01S00329.0rt +++| STD T1 00364 M01S00330.0rt +++| SFA FNT,T3 ABSOLUTE ADDRESS OF RESOURCE FILE FNT 00365 M01S00331.0rt +++| RJM SFI CLEAR RESOURCE FILE INTERLOCK 00366 M01S00332.0rt +++| UJP CLEX RETURN 00367 M01S00333.0rt +++| PAU SPACE 4,10 00368 M01S00334.0rt +++|** PAU - PAUSE AND CHECK FOR OPERATOR OVERRIDE. 00369 M01S00335.0rt +++|* 00370 M01S00336.0rt +++|* EXIT (A) = (T1) = 0. 00371 M01S00337.0rt +++|* 00372 M01S00338.0rt +++|* ERROR TO *RTRX* IF OPERATOR OVERRIDE ERROR FLAG. 00373 M01S00339.0rt +++|* 00374 M01S00340.0rt +++|* USES T1. 00375 M01S00341.0rt +++|* 00376 M01S00342.0rt +++|* MACROS DELAY, PAUSE. 00377 M01S00343.0rt +++| 00378 M01S00344.0rt +++| 00379 M01S00345.0rt +++| PAU SUBR ENTRY/EXIT 00380 M01S00346.0rt +++| LDN 20 DELAY TWO MILLISECONDS 00381 M01S00347.0rt +++| STD T1 00382 M01S00348.0rt +++| PAU1 SOD T1 00383 M01S00349.0rt +++| ZJN PAUX IF END OF DELAY 00384 M01S00350.0rt +++| DELAY 00385 M01S00351.0rt +++| PAUSE 00386 M01S00352.0rt +++| LDD CM+1 00387 M01S00353.0rt +++| LMN ORET 00388 M01S00354.0rt +++| NJN PAU1 IF NOT OPERATOR OVERRIDE 00389 M01S00355.0rt +++| LJM RTRX EXIT 00390 M01S00356.0rt +++| SPACE 4,10 00391 M01S00357.0rt +++|** COMMON DECKS. 00392 M01S00358.0rt +++| 00393 M01S00359.0rt +++| 00394 M01S00360.0rt +++| IRA$ SET 1 DEFINE INITIALIZATION 00395 M01S00361.0rt +++| REL$ SET 1 00396 M01S00362.0rt +++|*CALL COMPCRA 00397 M01S00363.0rt +++| FNT$ EQU 1 ASSEMBLE SYSTEM FNT PROCESSOR 00398 M01S00364.0rt +++| IFP$ EQU 1 ASSEMBLE REMOTE INITIALIZATION CODE 00399 M01S00365.0rt +++|*CALL COMPGFP 00400 M01S00366.0rt +++| SFI$ EQU 1 SELECT IMMEDIATE RETURN FROM *SFI* 00401 M01S00367.0rt +++|*CALL COMPSFI 00402 M01S00368.0rt +++| 00403 M01S00369.0rt +++| 00404 M01S00370.0rt +++| IFP HERE CODE TO INITIALIZE SYSTEM FNT PROCESSOR 00405 M01S00371.0rt +++| SPACE 4,10 00406 M01S00372.0rt +++| RSTR 00407 M01S00373.0rt +++| SPACE 4,10 00408 M01S00374.0rt +++| OVERFLOW 5,ZRTL 00409 M01S00375.0rt +++| 00410 M01S00376.0rt +++| END
cdc/nos2.source/opl.opl871/deck/0rt.txt · Last modified: by 127.0.0.1