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