cdc:nos2.source:opl.opl871:deck:1mr.001
Deck 1MR Part 001
7 Modifications
Listing Sections
- Deck 1MR Start
- Deck 1MR Part 1 (Line 2038)
Source
Seq # *Modification Id* Act ----------------------------+ 02038 M00S01947.1mr +++| CWD CM 02039 M00S01948.1mr +++| 02040 M00S01949.1mr +++|* WRITE LOCAL MST BACK TO EXTENDED MEMORY. 02041 M00S01950.1mr +++| 02042 M00S01951.1mr +++| LDD MA WRITE LOCAL AREA 02043 M00S01952.1mr +++| STD CM+2 02044 M00S01953.1mr +++| CWM MBUF,SX 02045 M00S01954.1mr +++| LDD SC SET EXTENDED MEMORY ADDRESS FOR *ECSM* 02046 M00S01955.1mr +++| ADD T6+1 02047 M00S01956.1mr +++| STD CM+4 02048 M00S01957.1mr +++| SHN -14 02049 M00S01958.1mr +++| ADD T6 02050 M00S01959.1mr +++| ADD WE 02051 M00S01960.1mr +++| STD CM+3 02052 M00S01961.1mr +++| LDC LLLL*100-100 02053 M00S01962.1mr +++| STD CM+1 02054 M00S01963.1mr +++| MONITOR ECSM 02055 M00S01964.1mr +++| 02056 M00S01965.1mr +++|* CLEAR DEVICE INTERLOCK. NOTE THAT THE TRT AND GLOBAL MST 02057 M00S01966.1mr +++|* ARE WRITTEN TO EXTENDED MEMORY BY THIS FUNCTION. 02058 M00S01967.1mr +++| 02059 M00S01968.1mr +++| CDV7 LDD EQ 02060 M00S01969.1mr +++| ADC 4000 SET CHECKPOINT BIT 02061 M00S01970.1mr +++| STD CM+1 02062 M00S01971.1mr +++| LDN CDIS 02063 M00S01972.1mr +++| STD CM+3 02064 M00S01973.1mr +++| MONITOR STBM 02065 M00S01974.1mr +++| LJM CDV1 PROCESS NEXT EQUIPMENT 02066 M00S01975.1mr +++| 02067 M00S01976.1mr +++| 02068 M00S01977.1mr +++| TCDV CON CM+4,CM+4,CM+4,CM+3,CM+3,CM+3,CM+2,CM+2 02069 M00S01978.1mr +++| TCDVA CON SHNI+4,SHNI,SHNI+73,SHNI+4,SHNI,SHNI+73,SHNI+4,SHNI 02070 M00S01979.1mr +++| TCDVB CON 00,200,100,300,40,240,140,340 02071 M00S01980.1mr +++| CON 20,220,120,320,60,260,160,360
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02072 M01S00085.283l840 +++| TITLE *CDV* SUBROUTINES. 02073 M01S00086.283l840 +++| ABE SPACE 4,10 02074 M01S00087.283l840 +++|** ABE - ACCESS *BDT* ENTRY. 02075 M01S00088.283l840 +++|* 02076 M01S00089.283l840 +++|* ENTRY (A) = READ/WRITE FUNCTION CODE (*RE* OR *WE*). 02077 M01S00090.283l840 +++|* (SC) = *DAT* INDEX. 02078 M01S00091.283l840 +++|* (ABEA) = *BDT* TRACK. 02079 M01S00092.283l840 +++|* 02080 M01S00093.283l840 +++|* USES CM+3, CM+4, T6, T7. 02081 M01S00094.283l840 +++|* 02082 M01S00095.283l840 +++|* CALLS CEA, ECS. 02083 M00S01981.1mr +++|
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02084 M01S00096.283l840 +++| 02085 M01S00097.283l840 +++| ABE SUBR ENTRY/EXIT 02086 M01S00098.283l840 +++| ADC ADDI 02087 M01S00099.283l840 +++| STM ABEB 02088 M01S00100.283l840 +++| LDC ** (*BDT* TRACK) 02089 M01S00101.283l840 +++| ABEA EQU *-1 02090 M01S00102.283l840 +++| STD T6 02091 M01S00103.283l840 +++| LDN 0 02092 M01S00104.283l840 +++| STD T7 02093 M01S00105.283l840 +++| RJM CEA CONVERT EXTENDED MEMORY ADDRESS 02094 M01S00106.283l840 +++| LDD SC ADD *DAT* INDEX 02095 M01S00107.283l840 +++| RAD CM+4 02096 M01S00108.283l840 +++| SHN -14 02097 M01S00109.283l840 +++| ABEB ADD RE READ FUNCTION 02098 M01S00110.283l840 +++|* ADD WE (WRITE FUNCTION) 02099 M01S00111.283l840 +++| RAD CM+3 02100 M01S00112.283l840 +++| LDN 1-1 READ OR WRITE ONE WORD 02101 M01S00113.283l840 +++| RJM ECS READ OR WRITE *BDT* ENTRY 02102 M01S00114.283l840 +++| UJN ABEX RETURN 02103 M01S00115.283l840 +++| CBI SPACE 4,10 02104 M01S00116.283l840 +++|** CBI - CLEAR SHARED BUFFERED DEVICE INTERLOCKS. 02105 M01S00117.283l840 +++|* 02106 M01S00118.283l840 +++|* ENTRY (MD) = MACHINE INDEX OF DOWNED MACHINE. 02107 M01S00119.283l840 +++|* (EQ) = EST ORDINAL. 02108 M01S00120.283l840 +++|* (CN - CN+4) = EST ENTRY. 02109 M01S00121.283l840 +++|*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02110 M01S00001.ns2783 +++|* USES SC, CM - CM+4, T1 - T5. 02111 M01S00002.ns2783 +++|*
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02112 M01S00122.283l840 +++|* CALLS ABE, CFR, SFR. 02113 M01S00123.283l840 +++|*
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
M02 (Removed by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02114 M02S00124.ns2783 ---|* MACROS MONITOR.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02115 M01S00003.ns2783 +++|* MACROS CMSTF, MONITOR.
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02116 M01S00125.283l840 +++| 02117 M01S00126.283l840 +++| 02118 M01S00127.283l840 +++| CBI SUBR ENTRY/EXIT 02119 M01S00128.283l840 +++| LDD CN 02120 M01S00129.283l840 +++| SHN 21-5 02121 M01S00130.283l840 +++| PJN CBIX IF NOT SHARED BUFFERED DEVICE 02122 M01S00131.283l840 +++| LDN ZERL 02123 M01S00132.283l840 +++| CRD CM 02124 M01S00133.283l840 +++| LDD MD SET MACHINE INDEX OF DOWNED MACHINE 02125 M01S00134.283l840 +++| STD CM+2 02126 M01S00135.283l840 +++| LDD EQ SET EST ORDINAL 02127 M01S00136.283l840 +++| STD CM+4 02128 M01S00137.283l840 +++| LDN CBRS CLEAR *BAT* READ ACCESS PERMISSIONS 02129 M01S00138.283l840 +++| STD CM+1 02130 M01S00139.283l840 +++| MONITOR MTEM 02131 M01S00140.283l840 +++| LDD CN+4 02132 M01S00141.283l840 +++| SHN 3 02133 M01S00142.283l840 +++| ADN MDGL 02134 M01S00143.283l840 +++| CRD CM 02135 M01S00144.283l840 +++| LDD CM GET *DAT* INDEX 02136 M01S00145.283l840 +++| LPC 377 02137 M01S00146.283l840 +++| STD SC 02138 M01S00147.283l840 +++| LDN /MMF/BDTI SET *BDT* INTERLOCK 02139 M01S00148.283l840 +++| RJM SFR 02140 M01S00149.283l840 +++| LDN RE READ *BDT* ENTRY 02141 M01S00150.283l840 +++| RJM ABE 02142 M01S00151.283l840 +++| LDD MA 02143 M01S00152.283l840 +++| CRD T1
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
M02 (Removed by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02144 M02S00153.ns2783 ---| LDD T1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02145 M01S00004.ns2783 +++| LDD T1 CHECK ERROR PROCESSING INTERLOCK
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02146 M01S00154.283l840 +++| ZJN CBI1 IF INTERLOCK NOT SET 02147 M01S00155.283l840 +++| LPN 7 02148 M01S00156.283l840 +++| LMD MD 02149 M01S00157.283l840 +++| NJN CBI1 IF INTERLOCK NOT HELD BY DOWNED MACHINE 02150 M01S00158.283l840 +++| STD T1 CLEAR INTERLOCK
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
M02 (Removed by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02151 M02S00159.ns2783 ---| LDD MA
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02152 M01S00005.ns2783 +++| CMSTF GDER CLEAR ERROR PROCESSING BIT IN *ACGL* 02153 M01S00006.ns2783 +++| CBI1 LDD T2 CHECK RESTORE PARITY INTERLOCK 02154 M01S00007.ns2783 +++| ZJN CBI2 IF INTERLOCK NOT SET 02155 M01S00008.ns2783 +++| LPN 7 02156 M01S00009.ns2783 +++| LMD MD 02157 M01S00010.ns2783 +++| NJN CBI2 IF INTERLOCK NOT HELD BY DOWNED MACHINE 02158 M01S00011.ns2783 +++| STD T1+1 CLEAR INTERLOCK 02159 M01S00012.ns2783 +++| STD T1+2 CLEAR CONTROLLER SERIAL NUMBER 02160 M01S00013.ns2783 +++| STD T1+3 02161 M01S00014.ns2783 +++| STD T1+4 02162 M01S00015.ns2783 +++| CMSTF GDUR CLEAR RESTORE IN PROGRESS BIT IN *ACGL* 02163 M01S00016.ns2783 +++| CMSTF GDRI CLEAR RESTORE INITIATION BIT IN *ACGL* 02164 M01S00017.ns2783 +++| CBI2 LDD MA
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02165 M01S00160.283l840 +++| CWD T1 02166 M01S00161.283l840 +++| LDN WE REWRITE *BDT* ENTRY 02167 M01S00162.283l840 +++| RJM ABE
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
M02 (Removed by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02168 M02S00163.ns2783 ---| CBI1 LDN /MMF/BDTI CLEAR *BDT* INTERLOCK
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02169 M01S00018.ns2783 +++| LDN /MMF/BDTI CLEAR *BDT* INTERLOCK
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02170 M01S00164.283l840 +++| RJM CFR
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02171 M01S00019.ns2783 +++| CMSTF GPDA CLEAR MMF PARITY DEVICE ACCESS FLAG 02172 M01S00020.ns2783 +++| CBIA EQU *-3 (BIT NUMBER FOR DOWNED MAINFRAME)
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02173 M01S00165.283l840 +++| UJP CBIX RETURN
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02174 M01S00021.ns2783 +++| SPACE 4,10 02175 M01S00022.ns2783 +++|* COMMON DECKS. 02176 M01S00023.ns2783 +++| 02177 M01S00024.ns2783 +++| 02178 M01S00025.ns2783 +++| QUAL COMPTGB 02179 M01S00026.ns2783 +++| QUAL$ EQU 0 PREVENT FURTHER QUALIFICATION 02180 M01S00027.ns2783 +++| T5 EQU EQ USE *EQ* AS EST ORDINAL IN *COMPTGB* 02181 M01S00028.ns2783 +++|*CALL COMPTGB 02182 M01S00029.ns2783 +++| QUAL * 02183 M01S00030.ns2783 +++| TGB EQU /COMPTGB/TGB
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02184 M01S00166.283l840 +++| SPACE 4,10 02185 M00S01982.1mr +++| MBUF BSS 0 02186 M00S01983.1mr +++| TITLE PRESET. 02187 M00S01984.1mr +++| PRS SPACE 4,10 02188 M00S01985.1mr +++|** PRS - PRESET PROGRAM. 02189 M00S01986.1mr +++|* 02190 M00S01987.1mr +++|* EXIT (ID) = MID OF THIS MACHINE. 02191 M00S01988.1mr +++|* (LK) = EST ORDINAL OF LINK DEVICE. 02192 M00S01989.1mr +++|* (MD) = MACHINE INDEX OF DOWNED MACHINE. 02193 M00S01990.1mr +++|* (MK) = MACHINE MASK OF DOWNED MACHINE. 02194 M00S01991.1mr +++|* (MI) = MID OF DOWNED MACHINE. 02195 M00S01992.1mr +++|* (AD) = FUNCTION CODE. 02196 M00S01993.1mr +++|* (QF) = 0. 02197 M00S01994.1mr +++|* (TW) = CONSTANT TWO. 02198 M00S01995.1mr +++|* (SX) = CONSTANT SIX. 02199 M00S01996.1mr +++|* (DT) = DAT / FAT TRACK. 02200 M00S01997.1mr +++|* (RE) = *ECSM* READ FUNCTION. 02201 M00S01998.1mr +++|* (WE) = *ECSM* WRITE FUNCTION. 02202 M00S01999.1mr +++|* (DA - DA+1) = DEVICE ACCESS TABLE ADDRESS. 02203 M00S02000.1mr +++|* (ET - ET+1) = ENVIRONMENT TABLE ADDRESS. 02204 M00S02001.1mr +++|* 02205 M00S02002.1mr +++|* CALLS AST, CEA, DAP, SCI. 02206 M00S02003.1mr +++|* 02207 M00S02004.1mr +++|* MACROS SFA. 02208 M00S02005.1mr +++| 02209 M00S02006.1mr +++| 02210 M00S02007.1mr +++| PRS SUBR ENTRY/EXIT 02211 M00S02008.1mr +++| LDN 2 02212 M00S02009.1mr +++| STD TW 02213 M00S02010.1mr +++| LDD IR+3 02214 M00S02011.1mr +++| SHN -6 02215 M00S02012.1mr +++| STD AD
| Line S02013 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02216 M01S02013.283l840 ---| LMN /MRT/CDV 02217 M01S02014.283l840 ---| ZJP PRS3 IF CLEARING DEVICE INTERLOCKS 02218 M01S02015.283l840 ---| LDC FEAF*10000+MSSI
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02219 M01S00167.283l840 +++| SBN /MRT/MFUN 02220 M01S00168.283l840 +++| MJN PRS0 IF LEGAL FUNCTION 02221 M01S00169.283l840 +++| LDC PRSA * INCORRECT 1MR FUNCTION.* 02222 M01S00170.283l840 +++| LJM ABT ABORT 02223 M01S00171.283l840 +++| 02224 M01S00172.283l840 +++| PRS0 LDD AD CHECK FUNCTION CODE 02225 M01S00173.283l840 +++| LMN /MRT/PMT 02226 M01S00174.283l840 +++| ZJN PRS0.1 IF *PMT* FUNCTION 02227 M01S00175.283l840 +++| LMN /MRT/UMT&/MRT/PMT 02228 M01S00176.283l840 +++| ZJN PRS0.1 IF *UMT* FUNCTION 02229 M01S00177.283l840 +++| ISTORE SCIA,(UJN SCIX) DISABLE *CMS* INTERLOCK CODE 02230 M01S00178.283l840 +++| LJM PRS3 READ MULTIMAINFRAME INFORMATION 02231 M01S00179.283l840 +++| 02232 M01S00180.283l840 +++|* WAIT FOR *CMS* TO COMPLETE. 02233 M01S00181.283l840 +++| 02234 M01S00182.283l840 +++| PRS0.1 LDC FEAF*10000+MSSI 02235 M00S02016.1mr +++| RJM AST CHECK FOR *CMS* ACTIVE 02236 M00S02017.1mr +++| ZJN PRS2 IF *CMS* NOT ACTIVE 02237 M00S02018.1mr +++| RJM DAP DELAY AND PAUSE 02238 M00S02019.1mr +++| NJN PRS1 IF NO ERROR FLAG SET 02239 M00S02020.1mr +++| STD CM CLEAR MESSAGE 02240 M00S02021.1mr +++| LDD CP 02241 M00S02022.1mr +++| ADK MS2W 02242 M00S02023.1mr +++| CWD CM 02243 M00S02024.1mr +++| LJM MRP2 DROP PP 02244 M00S02025.1mr +++| 02245 M00S02026.1mr +++| PRS1 LDD CP * WAITING FOR *CMS* TO FINISH.* 02246 M00S02027.1mr +++| ADK MS2W 02247 M00S02028.1mr +++| CWM PRSC,TR 02248 M00S02029.1mr +++| LDN ZERL 02249 M00S02030.1mr +++| CRD CM 02250 M00S02031.1mr +++| LDD MA 02251 M00S02032.1mr +++| CWD IR 02252 M00S02033.1mr +++| MONITOR RECM RECALL *1MR* 02253 M00S02034.1mr +++| LJM PPR RETURN TO RESIDENT 02254 M00S02035.1mr +++| 02255 M00S02036.1mr +++| PRS2 STD CM CLEAR MESSAGE 02256 M00S02037.1mr +++| LDD CP 02257 M00S02038.1mr +++| ADK MS2W 02258 M00S02039.1mr +++| CWD CM 02259 M00S02040.1mr +++| RJM SCI SET *CMS* INTERLOCK 02260 M00S02041.1mr +++|* LDN 0 02261 M00S02042.1mr +++| STD QF 02262 M00S02043.1mr +++| LDN LDOS SET TO DECREMENT ACTIVITY COUNT
| Line S02044 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02263 M01S02044.283l840 ---| STM SCIA
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02264 M01S00183.283l840 +++| STM SCIB
| Line S02045 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02265 M01S02045.283l840 ---| LDD AD CHECK FUNCTION CODE 02266 M01S02046.283l840 ---| SBN /MRT/MFUN 02267 M01S02047.283l840 ---| MJN PRS3 IF LEGAL FUNCTION 02268 M01S02048.283l840 ---| LDC PRSA * INCORRECT 1MR FUNCTION.* 02269 M01S02049.283l840 ---| LJM ABT ABORT
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02270 M01S00184.283l840 +++| 02271 M01S00185.283l840 +++|* READ MULTIMAINFRAME INFORMATION. 02272 M00S02050.1mr +++| 02273 M00S02051.1mr +++| PRS3 LDK MMFL READ LINK DEVICE EST ORDINAL 02274 M00S02052.1mr +++| CRD CM 02275 M00S02053.1mr +++| LDD CM STORE MID OF THIS MACHINE 02276 M00S02054.1mr +++| STD ID 02277 M00S02055.1mr +++| LDD CM+3 SET MACHINE MASK 02278 M00S02056.1mr +++| STM RDIA
| Line S02057 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02279 M01S02057.283l840 ---| LDD CM+1 STORE EST ORDINAL OF LINK DEVICE
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
M02 (Removed by) | 1mr9 |
Seq # *Modification Id* Act ----------------------------+ 02280 M02S00186.1mr9 ---| LDD CM+1 STORE EST ORDINAL OF LINK DEVICE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mr9 |
Seq # *Modification Id* Act ----------------------------+ 02281 M01S00001.1mr9 +++| LDD CM+1 CHECK FOR SHARED BUFFERED DEVICES 02282 M01S00002.1mr9 +++| SHN 21-11 02283 M01S00003.1mr9 +++| MJN PRS3.1 IF SHARED BUFFERED DEVICES DEFINED 02284 M01S00004.1mr9 +++| AOM PRSE DISABLE SHARED BUFFERED DEVICE PROCESSING 02285 M01S00005.1mr9 +++| PRS3.1 LDD CM+1 STORE EST ORDINAL OF LINK DEVICE 02286 M00S02058.1mr +++| LPC 777 02287 M00S02059.1mr +++| STD LK SET LINK EST ORDINAL 02288 M00S02060.1mr +++| STM CFIA 02289 M00S02061.1mr +++| ZJN PRS4 IF NO LINK DEVICE 02290 M00S02062.1mr +++| SFA EST READ EST ENTRY 02291 M00S02063.1mr +++| ADK EQDE 02292 M00S02064.1mr +++| CRD CN 02293 M00S02065.1mr +++| LDD CN+4 READ MST TO OBTAIN LABEL TRACK 02294 M00S02066.1mr +++| SHN 3 02295 M00S02067.1mr +++| ADN ALGL 02296 M00S02068.1mr +++| CRD CN 02297 M00S02069.1mr +++| LDD CN+4 SET DAT/FAT TRACK 02298 M00S02070.1mr +++| STD DT 02299 M00S02071.1mr +++| LDD CN+1 SET LABEL TRACK 02300 M00S02072.1mr +++| STD T6 02301 M00S02073.1mr +++| LDN /MMF/ETLT SET ENVIRONMENT TABLE SECTOR 02302 M00S02074.1mr +++| STD T7 02303 M00S02075.1mr +++| RJM CEA CONVERT TO EXTENDED MEMORY ADDRESS 02304 M00S02076.1mr +++| LDD CM+3 02305 M00S02077.1mr +++| STD ET 02306 M00S02078.1mr +++| LDD CM+4 02307 M00S02079.1mr +++| STD ET+1 02308 M00S02080.1mr +++| LDD DT SET DAT/FAT TRACK ADDRESS 02309 M00S02081.1mr +++| STD T6 02310 M00S02082.1mr +++| LDN 0 02311 M00S02083.1mr +++| STD T7 02312 M00S02084.1mr +++| RJM CEA CONVERT EXTENDED MEMORY ADDRESS 02313 M00S02085.1mr +++| LDD CM+4 02314 M00S02086.1mr +++| STD DA+1 02315 M00S02087.1mr +++| LDD CM+3 02316 M00S02088.1mr +++| STD DA 02317 M00S02089.1mr +++| PRS4 LDD AD 02318 M00S02090.1mr +++| LMN /MRT/CDV 02319 M00S02091.1mr +++| NJN PRS5 IF NOT CLEAR DEVICE INTERLOCK FUNCTION
| Line S02092 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02320 M01S02092.283l840 ---| ISTORE SCI+1,(UJN SCIX) 02321 M00S02093.1mr +++| LDD IR+4 02322 M00S02094.1mr +++| UJN PRS6 SET MACHINE INDEX OF DOWNED MACHINE 02323 M00S02095.1mr +++| 02324 M00S02096.1mr +++| PRS5 LDD RA SET MACHINE INDEX OF DOWNED MACHINE 02325 M00S02097.1mr +++| SHN 6 02326 M00S02098.1mr +++| ADC /MRT/MASK 02327 M00S02099.1mr +++| CRD CM 02328 M00S02100.1mr +++| LDD CM+4 02329 M00S02101.1mr +++| PRS6 STD MD
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02330 M01S00031.ns2783 +++| ADN GPDA-1 SET BIT NUMBER FOR *CMSTF* REQUEST 02331 M01S00032.ns2783 +++| LMC LCNI 02332 M01S00033.ns2783 +++| STM CBIA 02333 M00S02102.1mr +++| LDM PRSB-1,MD SET MASK OF DOWNED MACHINE 02334 M00S02103.1mr +++| STD MK 02335 M00S02104.1mr +++| LDD CM SET MID OF DOWNED MACHINE 02336 M00S02105.1mr +++| STD MI 02337 M00S02106.1mr +++| LDN 6 02338 M00S02107.1mr +++| STD SX 02339 M00S02108.1mr +++| LDC RECS*1000 02340 M00S02109.1mr +++| STD RE 02341 M00S02110.1mr +++| LDC WECS*1000 02342 M00S02111.1mr +++| STD WE
| Line S02112 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02343 M01S02112.283l840 ---| LDM PRSD,AD SET ADDRESS OF FUNCTION PROCESSOR 02344 M01S02113.283l840 ---| STM MRPA
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02345 M01S00187.283l840 +++| PRSE LDN 0 02346 M01S00188.283l840 +++|* LDN 1 (SHARED BUFFERED DEVICES NOT DEFINED) 02347 M01S00189.283l840 +++| NJN PRS7 IF SHARED BUFFERED DEVICES NOT DEFINED 02348 M01S00190.283l840 +++| LDD ET+1 02349 M01S00191.283l840 +++| ADN /MMF/BAET SET ADDRESS OF ENVIRONMENT TABLE WORD 02350 M01S00192.283l840 +++| STD CM+4 02351 M01S00193.283l840 +++| SHN -14 02352 M01S00194.283l840 +++| ADD ET 02353 M01S00195.283l840 +++| ADD RE 02354 M01S00196.283l840 +++| STD CM+3 02355 M01S00197.283l840 +++| LDN 1-1 READ ONE WORD FROM EXTENDED MEMORY 02356 M01S00198.283l840 +++| RJM ECS 02357 M01S00199.283l840 +++| LDD MA 02358 M01S00200.283l840 +++| CRD CM 02359 M01S00201.283l840 +++| LDD CM+1 SET *BDT* FIRST TRACK 02360 M01S00202.283l840 +++| STM ABEA 02361 M00S02114.1mr +++| 02362 M00S02115.1mr +++|* CHECK FOR ISD ENVIRONMENT. 02363 M00S02116.1mr +++|
| Line S00203 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02364 M01S00203.283l840 +++| PRS7 LDM PRSD,AD SET ADDRESS OF FUNCTION PROCESSOR 02365 M01S00204.283l840 +++| STM MRPA 02366 M00S02117.1mr +++| LDD LK 02367 M00S02118.1mr +++| NJP MRP IF EXTENDED MEMORY MMF 02368 M00S02119.1mr +++| LDC MRP 02369 M00S02120.1mr +++| STM EXR SET RETURN ADDRESS 02370 M00S02121.1mr +++| EXECUTE 2MR,* 02371 M00S02122.1mr +++| LJM EXR+1 LOAD ISD MMF SUBROUTINES 02372 M00S02123.1mr +++| 02373 M00S02124.1mr +++| 02374 M00S02125.1mr +++| PRSA DATA C* INCORRECT 1MR FUNCTION.* 02375 M00S02126.1mr +++|
| Line S02127 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02376 M01S02127.283l840 ---|** CONVERT FROM MACHINE INDEX TO MACHINE MASK. 02377 M01S02128.283l840 ---|* 02378 M01S02129.283l840 ---|* INDEXED BY MACHINE INDEX. 02379 M00S02130.1mr +++|
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02380 M01S00205.283l840 +++|* TABLE OF MACHINE MASKS (INDEXED BY MACHINE INDEX). 02381 M00S02131.1mr +++| 02382 M00S02132.1mr +++| PRSB BSS 0 02383 M00S02133.1mr +++| .1 SET 1 02384 M00S02134.1mr +++| DUP MXMF,2 02385 M00S02135.1mr +++| CON .1 02386 M00S02136.1mr +++| .1 SET .1+.1 02387 M00S02137.1mr +++|
| Line S00206 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02388 M01S00206.283l840 +++| 02389 M00S02138.1mr +++| PRSC DATA 30L WAITING FOR *CMS* TO FINISH.
| Line S00207 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02390 M01S00207.283l840 +++| 02391 M00S02139.1mr +++| 02392 M00S02140.1mr +++|* TABLE OF FUNCTION PROCESSOR ADDRESSES. 02393 M00S02141.1mr +++| 02394 M00S02142.1mr +++| PRSD INDEX 02395 M00S02143.1mr +++| INDEX /MRT/RDI,RDI RETRIEVE DISPLAY INFORMATION 02396 M00S02144.1mr +++| INDEX /MRT/PMT,PMT PROCESS DAT, FAT, MRT-S 02397 M00S02145.1mr +++| INDEX /MRT/UMT,UMT UPDATE MST ENTRIES IN CM 02398 M00S02146.1mr +++| INDEX /MRT/CDV,CDV CLEAR DEVICE INTERLOCKS
| Line S00208 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02399 M01S00208.283l840 +++| INDEX /MRT/PRB,PRB PROCESS RESERVES AND BAT-S 02400 M00S02147.1mr +++| INDEX /MRT/MFUN 02401 M00S02148.1mr +++| SPACE 4,10
| Line S02149 Modification History | |
|---|---|
M01 (Removed by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02402 M01S02149.ns2783 ---|* COMMON DECKS.
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2783 |
Seq # *Modification Id* Act ----------------------------+ 02403 M01S00034.ns2783 +++|* PRESET COMMON DECKS. 02404 M00S02150.1mr +++| 02405 M00S02151.1mr +++| 02406 M00S02152.1mr +++|*CALL COMPAST 02407 M00S02153.1mr +++| SPACE 4,10 02408 M00S02154.1mr +++| OVERFLOW 02409 M00S02155.1mr +++| TTL 1MR/2MR - PROCESS ISD RECOVERY. 02410 M00S02156.1mr +++| TITLE ISD MMF SUBROUTINES. 02411 M00S02157.1mr +++| IDENT 2MR,OVLA 02412 M00S02158.1mr +++|*COMMENT 1MR - PROCESS ISD RECOVERY.
| Line S02159 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02413 M01S02159.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02414 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02415 M00S02160.1mr +++| SPACE 4,10 02416 M00S02161.1mr +++|*** 2MR - PROCESS ISD RECOVERY. 02417 M00S02162.1mr +++|* D. K. ELDRED. 82/12/01. 02418 M00S02163.1mr +++| SPACE 4,10 02419 M00S02164.1mr +++|*** ISD MMF SUBROUTINES. 02420 M00S02165.1mr +++|* 02421 M00S02166.1mr +++|* THE FOLLOWING CODE IS USED ONLY FOR ISD MMF ENVIRONMENTS. 02422 M00S02167.1mr +++|* IT OVERLAYS THE EXTENDED MEMORY MMF SUBROUTINES IN *1MR*. 02423 M00S02168.1mr +++| 02424 M00S02169.1mr +++| 02425 M00S02170.1mr +++| ORG OVLA 02426 M00S02171.1mr +++| 02427 M00S02172.1mr +++| TMR SUBR ENTRY/EXIT 02428 M00S02173.1mr +++| UJN TMRX RETURN 02429 M00S02174.1mr +++| CTC SPACE 4,15 02430 M00S02175.1mr +++|** CTC - COPY DISK TABLES TO CENTRAL MEMORY. 02431 M00S02176.1mr +++|* 02432 M00S02177.1mr +++|* ENTRY (T3) = MST POINTER. 02433 M00S02178.1mr +++|* (T5) = EST ORDINAL. 02434 M00S02179.1mr +++|* (T6) = LABEL TRACK. 02435 M00S02180.1mr +++|* (CT) = LAST TRT SECTOR + 1. 02436 M00S02181.1mr +++|* (WB+2) = TRT LENGTH. 02437 M00S02182.1mr +++|* (WB+3) = LABEL SECTOR NUMBER. 02438 M00S02183.1mr +++|* 02439 M00S02184.1mr +++|* USES CT, T7, WB, WB+1. 02440 M00S02185.1mr +++|* 02441 M00S02186.1mr +++|* CALLS CAT, RDS. 02442 M00S02187.1mr +++| 02443 M00S02188.1mr +++| 02444 M00S02189.1mr +++| CTC1 LDD WB+2 ADJUST WORD COUNT 02445 M00S02190.1mr +++| LPN 77 02446 M00S02191.1mr +++| ZJN CTCX IF END OF TRT ON SECTOR BOUNDARY 02447 M00S02192.1mr +++| STD WB 02448 M00S02193.1mr +++| CTC2 LDC BUFS READ SECTOR OF TRT DATA 02449 M00S02194.1mr +++| RJM RDS 02450 M00S02195.1mr +++| LDD T3 SET MST POINTER TO TRT 02451 M00S02196.1mr +++| SHN 3 02452 M00S02197.1mr +++| ADN TRLL CALCULATE TRT ADDRESS 02453 M00S02198.1mr +++| RJM CAT 02454 M00S02199.1mr +++| ADD WB+1 WRITE TRT DATA TO CENTRAL MEMORY 02455 M00S02200.1mr +++| CWM BUFS+2,WB 02456 M00S02201.1mr +++| LDD HN ADVANCE TRT OFFSET 02457 M00S02202.1mr +++| RAD WB+1 02458 M00S02203.1mr +++| CTC3 AOD T7 ADVANCE SECTOR NUMBER 02459 M00S02204.1mr +++| SBD CT 02460 M00S02205.1mr +++| MJN CTC2 IF ANOTHER FULL SECTOR 02461 M00S02206.1mr +++| ZJN CTC1 IF PARTIAL SECTOR 02462 M00S02207.1mr +++| 02463 M00S02208.1mr +++| CTC SUBR ENTRY/EXIT 02464 M00S02209.1mr +++| LDN 0 02465 M00S02210.1mr +++| STD WB+1 INITIALIZE TRT OFFSET 02466 M00S02211.1mr +++| LDD HN 02467 M00S02212.1mr +++| STD WB SET FULL SECTOR WORD COUNT 02468 M00S02213.1mr +++| LDD WB+3 02469 M00S02214.1mr +++| STD T7 SET LABEL SECTOR 02470 M00S02215.1mr +++| SOD CT 02471 M00S02216.1mr +++| UJN CTC3 COPY TRT 02472 M00S02217.1mr +++| CUC SPACE 4,10 02473 M00S02218.1mr +++|** CUC - COMPARE UPDATE COUNTS. 02474 M00S02219.1mr +++|* 02475 M00S02220.1mr +++|* ENTRY (A) = ADDRESS OF COUNTER IN *BFMS* BUFFER. 02476 M00S02221.1mr +++|* (BUFS) = TRT / MRT SECTOR. 02477 M00S02222.1mr +++|* 02478 M00S02223.1mr +++|* EXIT (A) = 0 IF COUNTS MATCH. 02479 M00S02224.1mr +++|* 02480 M00S02225.1mr +++|* USES T1. 02481 M00S02226.1mr +++| 02482 M00S02227.1mr +++| 02483 M00S02228.1mr +++| CUC SUBR ENTRY/EXIT 02484 M00S02229.1mr +++| STD T1 02485 M00S02230.1mr +++| LDI T1 COMPARE UPDATE COUNTS 02486 M00S02231.1mr +++| LMM BUFS+2+5*77+2 02487 M00S02232.1mr +++| NJN CUCX IF NO MATCH 02488 M00S02233.1mr +++| LDM 1,T1 02489 M00S02234.1mr +++| LMM BUFS+2+5*77+3 02490 M00S02235.1mr +++| NJN CUCX IF NON-MATCHING COUNTS 02491 M00S02236.1mr +++| LDM 2,T1 02492 M00S02237.1mr +++| LMM BUFS+2+5*77+4 02493 M00S02238.1mr +++| SCN 77 02494 M00S02239.1mr +++| UJN CUCX RETURN 02495 M00S02240.1mr +++| PFA SPACE 4,15 02496 M00S02241.1mr +++|** PFA - PROCESS FAST ATTACH FOR ISD. 02497 M00S02242.1mr +++|* 02498 M00S02243.1mr +++|* ENTRY (TC) = MACHINE INDEX*5. 02499 M00S02244.1mr +++|* SYSTEM SECTOR IN BFMS. 02500 M00S02245.1mr +++|* 02501 M00S02246.1mr +++|* EXIT (A) = 0 IF REWRITE SYSTEM SECTOR. 02502 M00S02247.1mr +++|* 02503 M00S02248.1mr +++|* CALLS USC. 02504 M00S02249.1mr +++|* 02505 M00S02250.1mr +++|* USES T2. 02506 M00S02251.1mr +++| 02507 M00S02252.1mr +++| 02508 M00S02253.1mr +++| PFA3 LDN 1 SET NO SYSTEM SECTOR REWRITE 02509 M00S02254.1mr +++| 02510 M00S02255.1mr +++| PFA SUBR ENTRY/EXIT 02511 M00S02256.1mr +++| LDM UCSS,TC 02512 M00S02257.1mr +++| SHN 21-2 02513 M00S02258.1mr +++| PJN PFA3 IF NO ENTRY FOR DOWNED MACHINE 02514 M00S02259.1mr +++| SHN -21+2+22 02515 M00S02260.1mr +++| LPN 1 02516 M00S02261.1mr +++| STD T2 02517 M00S02262.1mr +++| RJM USC UPDATE SYSTEM SECTOR COUNTS 02518 M00S02263.1mr +++| LDN 0 PRESET COUNTER 02519 M00S02264.1mr +++| STD T2 02520 M00S02265.1mr +++| PFA1 LDM UCSS+5,T2 02521 M00S02266.1mr +++| NJN PFA2 IF FILE STILL BEING ACCESSED 02522 M00S02267.1mr +++| LDN 5 ADVANCE COUNTER 02523 M00S02268.1mr +++| RAD T2 02524 M00S02269.1mr +++| LMC /MMF/MMPF*5 02525 M00S02270.1mr +++| NJN PFA1 IF NOT ALL MAINFRAMES CHECKED 02526 M00S02271.1mr +++| STM FISS CLEAR FAST ATTACH STATUS 02527 M00S02272.1mr +++| LDC PMFT*100 RESET FILE TYPE 02528 M00S02273.1mr +++| STM FNSS+4 02529 M00S02274.1mr +++| PFA2 LDN 0 SET TO REWRITE SYSTEM SECTOR 02530 M00S02275.1mr +++| UJN PFAX RETURN 02531 M00S02276.1mr +++| RMI SPACE 4,10 02532 M00S02277.1mr +++|** RMI - RELEASE MST INTERLOCKS. 02533 M00S02278.1mr +++|* 02534 M00S02279.1mr +++|* ENTRY (T5) = EST ORDINAL. 02535 M00S02280.1mr +++|* (MD) = DOWNED MACHINE INDEX. 02536 M00S02281.1mr +++|* 02537 M00S02282.1mr +++|* EXIT TO *MSR* IF LABEL SECTOR ERROR. 02538 M00S02283.1mr +++|* 02539 M00S02284.1mr +++|* USES T6, T7, CM - CM+4. 02540 M00S02285.1mr +++|
| Line S02286 Modification History | |
|---|---|
M01 (Removed by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 02541 M01S02286.ns2547 ---|* CALLS CTC, C2D, DAP, RSC, UDT, VDT, WDS.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 02542 M01S00003.ns2547 +++|* CALLS CDC, CLC, CTC, C2D, DAP, RSC, UDT, VDT, WDS. 02543 M00S02287.1mr +++|* 02544 M00S02288.1mr +++|* MACROS ENDMS, SETMS. 02545 M00S02289.1mr +++| 02546 M00S02290.1mr +++| 02547 M00S02291.1mr +++| RMI SUBR ENTRY/EXIT 02548 M00S02292.1mr +++| LDD T5 CONVERT UPPER DIGIT OF EST ORDINAL 02549 M00S02293.1mr +++| SHN -6 02550 M00S02294.1mr +++| ADC 2RQ0 02551 M00S02295.1mr +++| STM RMIB+1 02552 M00S02296.1mr +++| LDD T5 CONVERT LOWER TWO DIGITS OF EST ORDINAL 02553 M00S02297.1mr +++| RJM C2D 02554 M00S02298.1mr +++| STM RMIB+2
| Line S02299 Modification History | |
|---|---|
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 02555 M01S02299.ns2579 ---| SETMS IO,(DE,RW)
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 02556 M01S00004.ns2579 +++| SETMS IO,(NS,DE,RW) 02557 M00S02300.1mr +++| LDD CM+4 SET MST ADDRESS 02558 M00S02301.1mr +++| STD T3 02559 M00S02302.1mr +++| SHN 3 02560 M00S02303.1mr +++| ADN ALGL READ DEVICE ALLOCATION WORD 02561 M00S02304.1mr +++| CRD CM 02562 M00S02305.1mr +++| LDD CM+1 SET LABEL TRACK 02563 M00S02306.1mr +++| STD T6 02564 M00S02307.1mr +++| LDN /MMF/LSLT 02565 M00S02308.1mr +++| STD T7 02566 M00S02309.1mr +++| LDD CP WRITE MESSAGE TO B-DISPLAY 02567 M00S02310.1mr +++| ADN MS2W 02568 M00S02311.1mr +++| CWM RMIB,TR 02569 M00S02312.1mr +++| RMI1 LDC BFMS READ LABEL SECTOR 02570 M00S02313.1mr +++| RJM RSC 02571 M00S02314.1mr +++| RJM VDT VERIFY DISK TABLES 02572 M00S02315.1mr +++| ZJN RMI2 IF RESERVE HELD BY DOWN MACHINE 02573 M00S02316.1mr +++| MJN RMI4 IF DEVICE NOT INTERLOCKED 02574 M00S02317.1mr +++| ENDMS 02575 M00S02318.1mr +++| RJM DAP DELAY 02576 M00S02319.1mr +++| NJP RMI1 IF NO OPERATOR DROP 02577 M00S02320.1mr +++| LJM ERR PROCESS OPERATOR DROP 02578 M00S02321.1mr +++| 02579 M00S02322.1mr +++| RMI2 LDD WB+3 02580 M00S02323.1mr +++| ZJN RMI3 IF PRIMARY MRT CURRENT 02581 M00S02324.1mr +++| LDN 0 02582 M00S02325.1mr +++| SBD WB+3 SET PRIMARY MRT SECTOR 02583 M00S02326.1mr +++| RAD T7 02584 M00S02327.1mr +++| LDC BUFS COPY MRT TO PRIMARY LOCATION 02585 M00S02328.1mr +++| RJM WDS 02586 M00S02329.1mr +++| RMI3 LDM N4SS+5*SDGL+4 02587 M00S02330.1mr +++| SCN 77 CLEAR DOWN MACHINE INTERLOCK 02588 M00S02331.1mr +++| SHN -1 02589 M00S02332.1mr +++| LMD WB+4 SET THIS MACHINE-S INTERLOCK 02590 M00S02333.1mr +++| SHN 1 02591 M00S02334.1mr +++| STM N4SS+5*SDGL+4 02592 M00S02335.1mr +++| LDN /MMF/LSLT SET PRIMARY LABEL SECTOR 02593 M00S02336.1mr +++| STD T7 02594 M00S02337.1mr +++| RJM CLC COMPUTE LABEL CHECKSUM 02595 M00S02338.1mr +++| STM CKSS 02596 M00S02339.1mr +++| RMI4 LDD MD 02597 M00S02340.1mr +++| SHN 2 DOWN MACHINE INDEX * 5 02598 M00S02341.1mr +++| ADD MD 02599 M00S02342.1mr +++| ADC DISS-5 SET DIT ENTRY ADDRESS 02600 M00S02343.1mr +++| STD T0 02601 M00S02344.1mr +++| STM RMIA 02602 M00S02345.1mr +++| LDI T0 EXTRACT ACTIVITY COUNT 02603 M00S02346.1mr +++| LPN 77 02604 M00S02347.1mr +++| LMC -0 DECREMENT PFM ACTIVITY COUNT 02605 M00S02348.1mr +++| RAM N4SS+TDGL*5+1 02606 M00S02349.1mr +++| 02607 M00S02350.1mr +++|* CLEAR PF INTERLOCK AND INSTALL INTERLOCK IF HELD 02608 M00S02351.1mr +++|* BY DOWN MACHINE. 02609 M00S02352.1mr +++| 02610 M00S02353.1mr +++| LDI T0 02611 M00S02354.1mr +++| LPC 300 02612 M00S02355.1mr +++| LMM N4SS+5*TDGL+1 CLEAR PF AND INSTALL INTERLOCKS 02613 M00S02356.1mr +++| STM N4SS+5*TDGL+1 02614 M00S02357.1mr +++| LDN ZERL CLEAR DIT ENTRY 02615 M00S02358.1mr +++| CRM **,ON 02616 M00S02359.1mr +++| RMIA EQU *-1 02617 M00S02360.1mr +++| LDN /MMF/LSLT SET PRIMARY LABEL SECTOR 02618 M00S02361.1mr +++| STD T7
| Line S02362 Modification History | |
|---|---|
M01 (Removed by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 02619 M01S02362.ns2547 ---| RJM CLC COMPUTE LABEL CHECKSUM
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2547 |
Seq # *Modification Id* Act ----------------------------+ 02620 M01S00004.ns2547 +++| RJM CDC COMPUTE LABEL CHECKSUM 02621 M00S02363.1mr +++| STM CKSS 02622 M00S02364.1mr +++| LDC BFMS+WLSF WRITE LABEL SECTOR 02623 M00S02365.1mr +++| RJM WDS 02624 M00S02366.1mr +++| PJN RMI6 IF NO WRITE ERROR 02625 M00S02367.1mr +++| LDN /MRT/WER SET WRITE ERROR 02626 M00S02368.1mr +++| LJM MSR RETURN ERROR TO *MREC* 02627 M00S02369.1mr +++| 02628 M00S02370.1mr +++| RMI6 LDD WB 02629 M00S02371.1mr +++| NJN RMI8 IF NOT UPDATING TABLES IN CM 02630 M00S02372.1mr +++| AOM N4SS+5*SDGL+4 02631 M00S02373.1mr +++| LDD T3 CALCULATE FWA OF TRT 02632 M00S02374.1mr +++| SHN 3 02633 M00S02375.1mr +++| ADK TDGL SET DEVICE INTERLOCK IN CM 02634 M00S02376.1mr +++| CWM N4SS,TR 02635 M00S02377.1mr +++| RJM CTC COPY TRT TO CENTRAL MEMORY 02636 M00S02378.1mr +++| ENDMS 02637 M00S02379.1mr +++| RJM UDT UPDATE DEVICE INFORMATION TABLE 02638 M00S02380.1mr +++| LDN CDIS 02639 M00S02381.1mr +++| STD CM+3 SET *STBM* SUBFUNCTION 02640 M00S02382.1mr +++| LDD T5 02641 M00S02383.1mr +++| STD CM+1 REBUILD TABLES ON DISK 02642 M00S02384.1mr +++| MONITOR STBM 02643 M00S02385.1mr +++| RMI8 ENDMS RELEASE MASS STORAGE RESOURCES 02644 M00S02386.1mr +++|* LDN 0 02645 M00S02387.1mr +++| STD CM 02646 M00S02388.1mr +++| LDD CP 02647 M00S02389.1mr +++| ADN MS2W CLEAR MESSAGE 02648 M00S02390.1mr +++| CWD CM 02649 M00S02391.1mr +++| LJM RMIX RETURN 02650 M00S02392.1mr +++| 02651 M00S02393.1mr +++| 02652 M00S02394.1mr +++| RMIB DATA C* EQXXX, CLEARING MST INTERLOCKS.* 02653 M00S02395.1mr +++| SDM SPACE 4,15 02654 M00S02396.1mr +++|** SDM - CHECK DEVICE SHARED TO DOWN MF. 02655 M00S02397.1mr +++|* 02656 M00S02398.1mr +++|* ENTRY (T5) = EST ORDINAL. 02657 M00S02399.1mr +++|* (MI) = MID OF DOWN MAINFRAME. 02658 M00S02400.1mr +++|* 02659 M00S02401.1mr +++|* EXIT (A) = 0, DEVICE SHARED TO DOWN MF. 02660 M00S02402.1mr +++|* = 1, DEVICE NOT SHARED TO DOWN MF. 02661 M00S02403.1mr +++|* (MD) = MACHINE INDEX. 02662 M00S02404.1mr +++|* 02663 M00S02405.1mr +++|* USES RE, T6, CM - CM+4. 02664 M00S02406.1mr +++|* 02665 M00S02407.1mr +++|* MACROS SFA. 02666 M00S02408.1mr +++|* 02667 M00S02409.1mr +++|* CALLS CAT. 02668 M00S02410.1mr +++| 02669 M00S02411.1mr +++| 02670 M00S02412.1mr +++| SDM SUBR ENTRY/EXIT 02671 M00S02413.1mr +++| SFA EST,T5 02672 M00S02414.1mr +++| ADK EQDE READ EST ENTRY 02673 M00S02415.1mr +++| CRD CM 02674 M00S02416.1mr +++| LDD CM CHECK DEVICE ATTRIBUTES 02675 M00S02417.1mr +++| LPC 4120 02676 M00S02418.1mr +++| LMC 4020 02677 M00S02419.1mr +++| NJN SDM2 IF NOT MASS STORAGE / AVAILABLE / ISD 02678 M00S02420.1mr +++| LDD CM+4 02679 M00S02421.1mr +++| STD RE SAVE MST ADDRESS / 10 02680 M00S02422.1mr +++| SHN 3 02681 M00S02423.1mr +++| ADK TDGL FETCH TRT LENGTH 02682 M00S02424.1mr +++| CRD CM 02683 M00S02425.1mr +++| LDD CM+2 DETERMINE LENGTH OF MRT 02684 M00S02426.1mr +++| ADN 7 02685 M00S02427.1mr +++| SHN -3 02686 M00S02428.1mr +++| ADD CM+2 ADD LENGTH OF THE TRT 02687 M00S02429.1mr +++| SBN 1 02688 M00S02430.1mr +++| STD T6 SET DIT OFFSET 02689 M00S02431.1mr +++| LDN /MMF/MMPF 02690 M00S02432.1mr +++| STD MD MAXIMUM MACHINE CONFIGURATION 02691 M00S02433.1mr +++| SDM1 LDD RE 02692 M00S02434.1mr +++| SHN 3 02693 M00S02435.1mr +++| ADN TRLL 02694 M00S02436.1mr +++| RJM CAT CALCULATE FWA OF TRT 02695 M00S02437.1mr +++| ADD T6 02696 M00S02438.1mr +++| ADD MD 02697 M00S02439.1mr +++| CRD CM READ DIT ENTRY 02698 M00S02440.1mr +++| LDD CM+4 02699 M00S02441.1mr +++| LMD MI 02700 M00S02442.1mr +++| ZJN SDM3 IF MATCHING MACHINE ID-S 02701 M00S02443.1mr +++| SOD MD 02702 M00S02444.1mr +++| NJN SDM1 IF MORE TO CHECK 02703 M00S02445.1mr +++| SDM2 LDN 1 02704 M00S02446.1mr +++| SDM3 LJM SDMX RETURN 02705 M00S02447.1mr +++| UDT SPACE 4,10 02706 M00S02448.1mr +++|** UDT - UPDATE DEVICE INFORMATION TABLE IN CM. 02707 M00S02449.1mr +++|* 02708 M00S02450.1mr +++|* ENTRY (T3) = MST POINTER. 02709 M00S02451.1mr +++|* (WB+2) = TRT LENGTH. 02710 M00S02452.1mr +++|* (BFMS) = LABEL SECTOR. 02711 M00S02453.1mr +++|* 02712 M00S02454.1mr +++|* USES T1, WB+2. 02713 M00S02455.1mr +++|* 02714 M00S02456.1mr +++|* CALLS CAT. 02715 M00S02457.1mr +++| 02716 M00S02458.1mr +++| 02717 M00S02459.1mr +++| UDT SUBR ENTRY/EXIT 02718 M00S02460.1mr +++| LDN /MMF/MISD 02719 M00S02461.1mr +++| STD T1 DIT LENGTH 02720 M00S02462.1mr +++| LDD WB+2 02721 M00S02463.1mr +++| ADN 7 CALCULATE DIT OFFSET 02722 M00S02464.1mr +++| SHN -3 02723 M00S02465.1mr +++| RAD WB+2 APPEND MRT LENGTH TO TRT LENGTH 02724 M00S02466.1mr +++| LDD T3 02725 M00S02467.1mr +++| SHN 3 02726 M00S02468.1mr +++| ADN TRLL CALCULATE FWA OF TRT 02727 M00S02469.1mr +++| RJM CAT 02728 M00S02470.1mr +++| ADD WB+2 COPY DIT TO CENTRAL MEMORY 02729 M00S02471.1mr +++| CWM DISS,T1 02730 M00S02472.1mr +++| UJN UDTX RETURN 02731 M00S02473.1mr +++| VDT SPACE 4,25 02732 M00S02474.1mr +++|** VDT - VERIFY DISK TABLES. 02733 M00S02475.1mr +++|* 02734 M00S02476.1mr +++|* ENTRY (MD) = DOWN MACHINE INDEX FOR SPECIFIED DEVICE. 02735 M00S02477.1mr +++|* (T3) = MST POINTER. 02736 M00S02478.1mr +++|* (T5) = EST ORDINAL. 02737 M00S02479.1mr +++|* (T6) = LABEL TRACK. 02738 M00S02480.1mr +++|* (T7) = 0. 02739 M00S02481.1mr +++|* (BFMS) = FIRST LABEL SECTOR. 02740 M00S02482.1mr +++|* 02741 M00S02483.1mr +++|* EXIT (A) .LT. 0 IF DEVICE NOT INTERLOCKED. 02742 M00S02484.1mr +++|* .GT. 0 IF INTERLOCK HELD BY ACTIVE MACHINE. 02743 M00S02485.1mr +++|* .EQ. 0 IF INTERLOCK HELD BY DOWN MACHINE. 02744 M00S02486.1mr +++|* (T7) = MRT SECTOR NUMBER IF TABLES VERIFIED. 02745 M00S02487.1mr +++|* (WB) = 0 IF DEVICE INTERLOCK HELD BY DOWN MACHINE. 02746 M00S02488.1mr +++|* (WB+2) = TRT LENGTH. 02747 M00S02489.1mr +++|* (WB+3) = LABEL SECTOR NUMBER IF TABLES VERIFIED. 02748 M00S02490.1mr +++|* (WB+4) = THIS MACHINE INDEX FOR SPECIFIED DEVICE. 02749 M00S02491.1mr +++|* (BFMS) = LABEL SECTOR. 02750 M00S02492.1mr +++|* (BUFS) = MRT SECTOR IF DOWN MACHINE HAS INTERLOCK. 02751 M00S02493.1mr +++|* 02752 M00S02494.1mr +++|* USES CT, CM - CM+4, WB - WB+4. 02753 M00S02495.1mr +++|* 02754 M00S02496.1mr +++|* CALLS CLC, CTC, CUC, RSC. 02755 M00S02497.1mr +++|* 02756 M00S02498.1mr +++|* MACROS ENDMS. 02757 M00S02499.1mr +++| 02758 M00S02500.1mr +++| 02759 M00S02501.1mr +++| VDT8 LCN 1 INDICATE DEVICE NOT INTERLOCKED 02760 M00S02502.1mr +++| 02761 M00S02503.1mr +++| VDT SUBR ENTRY/EXIT 02762 M00S02504.1mr +++| LDD T3 02763 M00S02505.1mr +++| SHN 3 02764 M00S02506.1mr +++| ADK TDGL FETCH TRT LENGTH 02765 M00S02507.1mr +++| CRD WB 02766 M00S02508.1mr +++| ADN DULL-TDGL GET DEVICE USAGE WORD 02767 M00S02509.1mr +++| CRD CM 02768 M00S02510.1mr +++| LDD CM+2 EXTRACT DIT ORDINAL 02769 M00S02511.1mr +++| LPN 17 02770 M00S02512.1mr +++| ADN 1 SET MACHINE INDEX 02771 M00S02513.1mr +++| STD WB+4 02772 M00S02514.1mr +++| LDM N4SS+5*SDGL+4 CHECK SOFTWARE RESERVE 02773 M00S02515.1mr +++| LPN 77 02774 M00S02516.1mr +++| ZJN VDT8 IF DEVICE NOT INTERLOCKED 02775 M00S02517.1mr +++| SHN -1 02776 M00S02518.1mr +++| LMD MD CHECK DEVICE HOLDING INTERLOCK 02777 M00S02519.1mr +++| STD WB 02778 M00S02520.1mr +++| NJN VDTX IF NOT HELD BY DOWN MACHINE 02779 M00S02521.1mr +++| VDT1 STD WB+3 02780 M00S02522.1mr +++| RJM CLC COMPUTE LABEL CHECKSUM 02781 M00S02523.1mr +++| LMM CKSS 02782 M00S02524.1mr +++| NJN VDT3 IF CHECKSUM ERROR 02783 M00S02525.1mr +++| 02784 M00S02526.1mr +++|* READ ENTIRE TRT TO ENSURE NO DISK ERRORS FOR *CTC*. 02785 M00S02527.1mr +++| 02786 M00S02528.1mr +++| AOD T7 SET FIRST SECTOR OF TRT 02787 M00S02529.1mr +++| LDD WB+2 02788 M00S02530.1mr +++| SHN -6 CALCULATE LAST SECTOR OF TRT 02789 M00S02531.1mr +++| ADN 2 02790 M00S02532.1mr +++| ADD WB+3 INCLUDE ALTERNATE TABLES BIAS 02791 M00S02533.1mr +++| STD CT 02792 M00S02534.1mr +++| VDT2 LDC BUFS READ TRT SECTOR 02793 M00S02535.1mr +++| RJM RSC 02794 M00S02536.1mr +++| AOD T7 ADVANCE SECTOR NUMBER 02795 M00S02537.1mr +++| LMD CT 02796 M00S02538.1mr +++| NJN VDT2 IF NOT END OF TRT SECTOR 02797 M00S02539.1mr +++| 02798 M00S02540.1mr +++|* VERIFY UPDATE COUNTS BETWEEN MST AND TRT. 02799 M00S02541.1mr +++| 02800 M00S02542.1mr +++| LDC N4SS+5*SDGL+2 COMPARE UPDATE COUNTS 02801 M00S02543.1mr +++| RJM CUC 02802 M00S02544.1mr +++| VDT3 NJN VDT4 IF NON-MATCHING COUNTS 02803 M00S02545.1mr +++| LDN /MMF/MRTL-1 02804 M00S02546.1mr +++| ADD MD 02805 M00S02547.1mr +++| ADD WB+3 SET MRT SECTOR OF DOWN MACHINE 02806 M00S02548.1mr +++| STD T7 02807 M00S02549.1mr +++| LDC BUFS READ MRT SECTOR 02808 M00S02550.1mr +++| RJM RSC 02809 M00S02551.1mr +++| 02810 M00S02552.1mr +++|* VERIFY UPDATE COUNTS BETWEEN DIT AND MRT. 02811 M00S02553.1mr +++| 02812 M00S02554.1mr +++| LDD MD CALCULATE ADDRESS OF DIT ENTRY 02813 M00S02555.1mr +++| SHN 2 02814 M00S02556.1mr +++| ADD MD 02815 M00S02557.1mr +++| ADC /LSD/DISS-5+1 COMPARE UPDATE COUNTS 02816 M00S02558.1mr +++| RJM CUC 02817 M00S02559.1mr +++| ZJP VDTX IF MATCHING COUNTS 02818 M00S02560.1mr +++| VDT4 LDD WB+3 02819 M00S02561.1mr +++| ZJN VDT5 IF ALTERNATE LABEL NOT CHECKED 02820 M00S02562.1mr +++| ENDMS 02821 M00S02563.1mr +++| LJM RSC1 PROCESS READ ERROR 02822 M00S02564.1mr +++| 02823 M00S02565.1mr +++| VDT5 LDD T3 READ MST 02824 M00S02566.1mr +++| SHN 3 02825 M00S02567.1mr +++| ADN DULL SET ALTERNATE LABEL SECTOR 02826 M00S02568.1mr +++| CRD T7 02827 M00S02569.1mr +++| LDC BFMS READ LABEL SECTOR 02828 M00S02570.1mr +++| RJM RSC 02829 M00S02571.1mr +++| LDD T7 02830 M00S02572.1mr +++| LJM VDT1 VERIFY ALTERNATE LABEL TABLES 02831 M00S02573.1mr +++| SPACE 4,10 02832 M00S02574.1mr +++|** COMMON DECKS. 02833 M00S02575.1mr +++| 02834 M00S02576.1mr +++| 02835 M00S02577.1mr +++|*CALL COMPCLC 02836 M00S02578.1mr +++| SPACE 4,5 02837 M00S02579.1mr +++| ERRNG QBUF-* CODE OVERFLOW INTO BUFFERS 02838 M00S02580.1mr +++| SCP SPACE 4,10 02839 M00S02581.1mr +++|** SCP - SET / CLEAR PP PAUSE FLAG. 02840 M00S02582.1mr +++|* 02841 M00S02583.1mr +++|* ENTRY (A) = 0 IF CLEARING PP PAUSE FLAG. 02842 M00S02584.1mr +++|* = 1 IF SETTING PP PAUSE FLAG. 02843 M00S02585.1mr +++|* 02844 M00S02586.1mr +++|* USES CM - CM+4. 02845 M00S02587.1mr +++| 02846 M00S02588.1mr +++| 02847 M00S02589.1mr +++| SCP SUBR ENTRY/EXIT 02848 M00S02590.1mr +++| STD T0 02849 M00S02591.1mr +++| LDD CP FETCH SENSE SWITCH WORD 02850 M00S02592.1mr +++| ADN SNSW 02851 M00S02593.1mr +++| CRD CM 02852 M00S02594.1mr +++| LDD CM+3 SET / CLEAR PAUSE FLAG 02853 M00S02595.1mr +++| SCN 1 02854 M00S02596.1mr +++| LMD T0 02855 M00S02597.1mr +++| STD CM+3 02856 M00S02598.1mr +++| LDD CP STORE SENSE SWITCH WORD 02857 M00S02599.1mr +++| ADN SNSW 02858 M00S02600.1mr +++| CWD CM 02859 M00S02601.1mr +++| UJN SCPX RETURN 02860 M00S02602.1mr +++| TITLE FUNCTION 2 - UPDATE MST ENTRIES IN CM. 02861 M00S02603.1mr +++| UMT SPACE 4,10 02862 M00S02604.1mr +++|** UMT - UPDATE MST ENTRIES IN CM. (FUNCTION 2) 02863 M00S02605.1mr +++|* 02864 M00S02606.1mr +++|* EXIT MST-S FOR INDEPENDENT SHARED DEVICES UPDATED IN CM. 02865 M00S02607.1mr +++|* 02866 M00S02608.1mr +++|* USES T1, T5, T6, WB+2, CM - CM+4, CN - CN+4. 02867 M00S02609.1mr +++|* 02868 M00S02610.1mr +++|* CALLS C2D, RLS, SCP, SDM, UDT, VDT. 02869 M00S02611.1mr +++|* 02870 M00S02612.1mr +++|* MACROS DELAY, EXECUTE, SFA. 02871 M00S02613.1mr +++| 02872 M00S02614.1mr +++| 02873 M00S02615.1mr +++| UMT8 LDN 0 CLEAR PP PAUSE FLAG 02874 M00S02616.1mr +++| RJM SCP 02875 M00S02617.1mr +++| 02876 M00S02618.1mr +++| UMT SUBR ENTRY/EXIT 02877 M00S02619.1mr +++| EXECUTE 2MS 02878 M00S02620.1mr +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 02879 M00S02621.1mr +++| STD T5 02880 M00S02622.1mr +++| LDN 0 CLEAR TRACK POINTER (FOR *STB*) 02881 M00S02623.1mr +++| STD T6 02882 M00S02624.1mr +++| LDN ESTP GET EST POINTERS 02883 M00S02625.1mr +++| CRD CN 02884 M00S02626.1mr +++| UMT1 AOD T5 ADVANCE EST ORDINAL 02885 M00S02627.1mr +++| LMD CN+3 02886 M00S02628.1mr +++| ZJN UMT8 IF END OF MASS STORAGE DEVICES 02887 M00S02629.1mr +++| RJM SDM 02888 M00S02630.1mr +++| NJN UMT1 IF NOT AVAILABLE ISD SHARED WITH DOWN MF 02889 M00S02631.1mr +++| LDD T5 02890 M00S02632.1mr +++| SHN -6 02891 M00S02633.1mr +++| ADC 2RQ0 CONVERT UPPER DIGIT OF EST ORDINAL 02892 M00S02634.1mr +++| STM UMTA+1 02893 M00S02635.1mr +++| STM UMTB+1 02894 M00S02636.1mr +++| LDD T5 CONVERT LOWER TWO DIGITS OF EST ORDINAL 02895 M00S02637.1mr +++| RJM C2D 02896 M00S02638.1mr +++| STM UMTA+2 02897 M00S02639.1mr +++| STM UMTB+2 02898 M00S02640.1mr +++| LDN 1 SET PP PAUSE FLAG 02899 M00S02641.1mr +++| RJM SCP 02900 M00S02642.1mr +++| UMT2 RJM RLS READ LABEL SECTOR 02901 M00S02643.1mr +++| NJN UMT4 IF READ ERRORS 02902 M00S02644.1mr +++| RJM VDT VERIFY DISK TABLES 02903 M00S02645.1mr +++| ENDMS 02904 M00S02646.1mr +++| RJM UDT UPDATE DIT IN CENTRAL MEMORY 02905 M00S02647.1mr +++| UMT3 LJM UMT1 PROCESS NEXT EST ENTRY 02906 M00S02648.1mr +++| 02907 M00S02649.1mr +++| UMT4 LPN 77 EXTRACT ERROR CODE 02908 M00S02650.1mr +++| LMN CRSE 02909 M00S02651.1mr +++| NJN UMT5 IF CONTROLLER NOT RESERVED 02910 M00S02652.1mr +++| LDD T4 02911 M00S02653.1mr +++| RJM C2D CONVERT CHANNEL FOR MESSAGE 02912 M00S02654.1mr +++| STM UMTA+5 02913 M00S02655.1mr +++| LDD CP WRITE MESSAGE TO B-DISPLAY 02914 M00S02656.1mr +++| ADN MS2W 02915 M00S02657.1mr +++| CWM UMTA,TR 02916 M00S02658.1mr +++| UJN UMT6 CHECK FOR CLEARED PP PAUSE FLAG 02917 M00S02659.1mr +++| 02918 M00S02660.1mr +++| UMT5 LMN RESE&CRSE 02919 M00S02661.1mr +++| NJP RSC1 IF UNIT NOT RESERVED 02920 M00S02662.1mr +++| LDM RLSA+5 02921 M00S02663.1mr +++| STM UMTB+5 SET UNIT NUMBER IN MESSAGE 02922 M00S02664.1mr +++| LDD CP 02923 M00S02665.1mr +++| ADN MS2W COPY MESSAGE TO B-DISPLAY 02924 M00S02666.1mr +++| CWM UMTB,TR 02925 M00S02667.1mr +++| UMT6 DELAY 02926 M00S02668.1mr +++| LDD CP READ SENSE SWITCH WORD 02927 M00S02669.1mr +++| ADN SNSW 02928 M00S02670.1mr +++| CRD CM 02929 M00S02671.1mr +++| LDD CM+3 CHECK FOR PAUSE FLAG CLEARED 02930 M00S02672.1mr +++| SHN 21-0 02931 M00S02673.1mr +++| MJP UMT2 IF *GO* COMMAND NOT ISSUED 02932 M00S02674.1mr +++| UMT7 LJM UMT1 PROCESS NEXT EST ENTRY 02933 M00S02675.1mr +++| 02934 M00S02676.1mr +++| 02935 M00S02677.1mr +++| UMTA DATA C* EQXXX, CHYY, CONTROLLER RESERVED.* 02936 M00S02678.1mr +++| UMTB DATA C* EQXXX, UNYY, UNIT RESERVED.* 02937 M00S02679.1mr +++| SPACE 4,10 02938 M00S02680.1mr +++| E2MR BSS 0 END OF ISD RECOVERY CODE 02939 M00S02681.1mr +++| OVERFLOW OVLA 02940 M00S02682.1mr +++| 02941 M00S02683.1mr +++| OVLB MAX E1MR+5,E2MR+5 *2MS* LOAD ADDRESS
| Line S02684 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02942 M01S02684.283l840 ---| TTL 1MR/2MS - PROCESS CONTROLLER / UNIT RESERVES.
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02943 M01S00209.283l840 +++| TTL 1MR/2MS - HARDWARE RESERVE ROUTINES. 02944 M00S02685.1mr +++| TITLE COMMON SUBROUTINES. 02945 M00S02686.1mr +++| IDENT 2MS,OVLB
| Line S02687 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02946 M01S02687.283l840 ---|*COMMENT 1MR - PROCESS RESERVES.
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02947 M01S00210.283l840 +++|*COMMENT 1MR - HARDWARE RESERVE ROUTINES.
| Line S02688 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02948 M01S02688.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1987.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02949 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02950 M00S02689.1mr +++| SPACE 4,10
| Line S02690 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02951 M01S02690.283l840 ---|*** 2MS - PROCESS CONTROLLER / UNIT RESERVES.
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02952 M01S00211.283l840 +++|*** 2MS - HARDWARE RESERVE ROUTINES. 02953 M01S00212.283l840 +++| 02954 M01S00213.283l840 +++| ORG OVLB 02955 M01S00214.283l840 +++| 02956 M01S00215.283l840 +++| 02957 M01S00216.283l840 +++| TMS SUBR ENTRY/EXIT 02958 M01S00217.283l840 +++| UJN TMSX RETURN AFTER LOAD 02959 M00S02691.1mr +++| RES SPACE 4,15 02960 M00S02692.1mr +++|** RES - PROCESS UNIT AND CONTROLLER RESERVES. 02961 M00S02693.1mr +++|* 02962 M00S02694.1mr +++|* ENTRY (IR+3 - IR+4) = FWA OF TABLE OF DEVICES TO RECOVER. 02963 M00S02695.1mr +++|* 02964 M00S02696.1mr +++|* EXIT RETURN TO *MREC* FOR OPERATOR ACTION IF THERE IS 02965 M00S02697.1mr +++|* A UNIT OR CONTROLLER RESERVE WHICH CANNOT BE CLEARED. 02966 M00S02698.1mr +++|* 02967 M00S02699.1mr +++|* USES SC, T5, T6, CM - CM+4, CN -CN+4. 02968 M00S02700.1mr +++|*
| Line S02701 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02969 M01S02701.283l840 ---|* CALLS CAA, RLS, SDM, *0RI*.
| Line S00218 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02970 M01S00218.283l840 +++|* CALLS CAA, CBW, RLS, SDM, *0RI*. 02971 M00S02702.1mr +++|* 02972 M00S02703.1mr +++|* MACROS EXECUTE. 02973 M00S02704.1mr +++| 02974 M00S02705.1mr +++|
| Line S02706 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02975 M01S02706.283l840 ---| ORG OVLB 02976 M01S02707.283l840 ---| 02977 M00S02708.1mr +++| RES SUBR ENTRY/EXIT
| Line S02709 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 02978 M01S02709.283l840 ---| LDD AD 02979 M01S02710.283l840 ---| LMN /MRT/PMT 02980 M01S02711.283l840 ---| NJN RESX IF NOT RESERVE PROCESSING 02981 M00S02712.1mr +++| EXECUTE 0RI,BUFS+1 02982 M00S02713.1mr +++| STM RESA SET PROCESSOR ADDRESS 02983 M00S02714.1mr +++| LCN 0 02984 M00S02715.1mr +++| STD SC 02985 M00S02716.1mr +++| RES1 AOD SC ADVANCE TABLE INDEX 02986 M00S02717.1mr +++| RJM CAA 02987 M00S02718.1mr +++| ADD SC READ TABLE ENTRY FOR NEXT SHARED DEVICE 02988 M00S02719.1mr +++| CRD CN 02989 M00S02720.1mr +++| LDD CN+4 SET EST ORDINAL 02990 M00S02721.1mr +++| STD T5 02991 M00S02722.1mr +++| ZJN RESX IF END OF DEVICES TO RECOVER 02992 M00S02723.1mr +++| LDD CN+3 02993 M00S02724.1mr +++| ZJN RES2 IF NOT ISD 02994 M00S02725.1mr +++| RJM SDM 02995 M00S02726.1mr +++| NJN RES1 IF NOT SHARED WITH DOWN MF 02996 M00S02727.1mr +++| RES2 LDD CN 02997 M00S02728.1mr +++| ZJN RES3 IF DEVICE HAS NOT YET BEEN PROCESSED 02998 M00S02729.1mr +++| SBN /MRT/REL 02999 M00S02730.1mr +++| MJN RES1 IF IGNORE OR DEVICE ALREADY PROCESSED
| Line S02731 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 03000 M01S02731.283l840 ---| RES3 RJM RLS READ LABEL SECTOR
| Line S00219 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 03001 M01S00219.283l840 +++| RES3 RJM CBW CLEAR BAT WRITE PERMISSIONS 03002 M01S00220.283l840 +++| RJM RLS READ LABEL SECTOR 03003 M00S02732.1mr +++| ZJN RES4 IF NO ERRORS
| Line S02733 Modification History | |
|---|---|
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 03004 M01S02733.ns2579 ---| LPN 17
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 03005 M01S00005.ns2579 +++| LPN 77 03006 M00S02734.1mr +++| LMN CRSE 03007 M00S02735.1mr +++| ZJN RES7 IF CONTROLLER RESERVED 03008 M00S02736.1mr +++| LMN RESE&CRSE 03009 M00S02737.1mr +++| ZJN RES5 IF UNIT RESERVED 03010 M00S02738.1mr +++| RES4 LDN /MRT/PRO SET DEVICE PROCESSED 03011 M00S02739.1mr +++| STD CN 03012 M00S02740.1mr +++| RJM CAA WRITE ENTRY BACK TO TABLE 03013 M00S02741.1mr +++| ADD SC 03014 M00S02742.1mr +++| CWD CN 03015 M00S02743.1mr +++| LJM RES1 CHECK NEXT EQUIPMENT 03016 M00S02744.1mr +++| 03017 M00S02745.1mr +++| RES5 LDD BI CHECK EQUIPMENT TYPE 03018 M00S02746.1mr +++| SHN 21-7 03019 M00S02747.1mr +++| PJN RES8 IF NOT *LDAM* EQUIPMENT 03020 M00S02748.1mr +++| LDD CN CHECK FOR RELEASE REQUESTED 03021 M00S02749.1mr +++| SBN /MRT/REL 03022 M00S02750.1mr +++| NJN RES8 IF OPERATOR DID NOT SELECT RELEASE 03023 M00S02751.1mr +++| STD CN 03024 M00S02752.1mr +++| RJM * EXECUTE *0RI* TO RELEASE RESERVE 03025 M00S02753.1mr +++| RESA EQU *-1 03026 M00S02754.1mr +++| UJN RES3 RECHECK RESERVE 03027 M00S02755.1mr +++| 03028 M00S02756.1mr +++| RES7 LDD T4 RETURN CHANNEL NUMBER 03029 M00S02757.1mr +++| STD CN+1 03030 M00S02758.1mr +++| LDN /MRT/CRS SET CONTROLLER RESERVED 03031 M00S02759.1mr +++| UJN RES9 CONTINUE 03032 M00S02760.1mr +++| 03033 M00S02761.1mr +++| RES8 LDN /MRT/URS SET UNIT RESERVED 03034 M00S02762.1mr +++| RES9 STD CN+4 03035 M00S02763.1mr +++| LDD T5 SET EQUIPMENT 03036 M00S02764.1mr +++| STD CN+3 03037 M00S02765.1mr +++| LDD SC SET INDEX INTO DEVICE TABLE 03038 M00S02766.1mr +++| STD CN+2 03039 M00S02767.1mr +++| LDN 0 03040 M00S02768.1mr +++| STD CN 03041 M00S02769.1mr +++| LDD RA RETURN ERROR WORD TO *MREC* 03042 M00S02770.1mr +++| SHN 6 03043 M00S02771.1mr +++| ADC /MRT/ERRW 03044 M00S02772.1mr +++| CWD CN 03045 M00S02773.1mr +++| LJM DROP DROP PP
| Line S00221 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 03046 M01S00221.283l840 +++| CBW SPACE 4,10 03047 M01S00222.283l840 +++|** CBW - CLEAR BAT WRITE ACCESS PERMISSIONS. 03048 M01S00223.283l840 +++|* 03049 M01S00224.283l840 +++|* ENTRY (T5) = EST ORDINAL FOR DEVICE. 03050 M01S00225.283l840 +++|* (MD) = MACHINE INDEX OF DOWNED MACHINE. 03051 M01S00226.283l840 +++|* 03052 M01S00227.283l840 +++|* USES CM - CM+4, WB - WB+4. 03053 M01S00228.283l840 +++|* 03054 M01S00229.283l840 +++|* MACROS MONITOR, SFA. 03055 M01S00230.283l840 +++| 03056 M01S00231.283l840 +++| 03057 M01S00232.283l840 +++| CBW SUBR ENTRY/EXIT 03058 M01S00233.283l840 +++| SFA EST,T5 SET DEVICE PARAMETERS 03059 M01S00234.283l840 +++| ADK EQDE 03060 M01S00235.283l840 +++| CRD WB 03061 M01S00236.283l840 +++| LDD WB 03062 M01S00237.283l840 +++| SHN 21-11 03063 M01S00238.283l840 +++| PJN CBWX IF NOT ECS MMF SHARED DEVICE 03064 M01S00239.283l840 +++| SHN 21-5-21+11 03065 M01S00240.283l840 +++| PJN CBWX IF NOT SHARED BUFFERED DEVICE 03066 M01S00241.283l840 +++| LDN ZERL 03067 M01S00242.283l840 +++| CRD CM 03068 M01S00243.283l840 +++| LDD MD SET MACHINE INDEX OF DOWNED MACHINE 03069 M01S00244.283l840 +++| STD CM+2 03070 M01S00245.283l840 +++| LDD T5 SET EST ORDINAL 03071 M01S00246.283l840 +++| STD CM+4 03072 M01S00247.283l840 +++| LDN CBWS CLEAR BAT WRITE ACCESS PERMISSIONS 03073 M01S00248.283l840 +++| STD CM+1 03074 M01S00249.283l840 +++| MONITOR MTEM 03075 M01S00250.283l840 +++| UJN CBWX RETURN 03076 M00S02774.1mr +++| CLU SPACE 4,10 03077 M00S02775.1mr +++|** CLU - CLEAR UTILITY / DEVICE INTERLOCKS. 03078 M00S02776.1mr +++|* 03079 M00S02777.1mr +++|* USES SC, CM - CM+4, CN - CN+4, T2 - T7. 03080 M00S02778.1mr +++|* 03081 M00S02779.1mr +++|* CALLS CEA, ECS, RSC, WSC. 03082 M00S02780.1mr +++|* 03083 M00S02781.1mr +++|* MACROS ENDMS, SETMS. 03084 M00S02782.1mr +++| 03085 M00S02783.1mr +++| 03086 M00S02784.1mr +++| CLU SUBR ENTRY/EXIT 03087 M00S02785.1mr +++| LDD ET+1 03088 M00S02786.1mr +++| ADN /MMF/DAET SET ADDRESS OF ENVIRONMENT TABLE WORD 03089 M00S02787.1mr +++| STD CM+4 03090 M00S02788.1mr +++| SHN -14 03091 M00S02789.1mr +++| ADD ET 03092 M00S02790.1mr +++| ADD RE 03093 M00S02791.1mr +++| STD CM+3 03094 M00S02792.1mr +++| LDN 1-1 READ ONE WORD FROM EXTENDED MEMORY 03095 M00S02793.1mr +++| RJM ECS 03096 M00S02794.1mr +++|* LDN 0 SET FIRST SECTOR 03097 M00S02795.1mr +++| STD T7 03098 M00S02796.1mr +++| LDD MA GET WORD FROM CM BUFFER 03099 M00S02797.1mr +++| CRD CM 03100 M00S02798.1mr +++| LDD CM+4 NUMBER OF WORDS IN DAT 03101 M00S02799.1mr +++| SHN -1 03102 M00S02800.1mr +++| STD SC NUMBER OF DAT ENTRIES 03103 M00S02801.1mr +++| LDD DT SET DAT TRACK 03104 M00S02802.1mr +++| STD T6 03105 M00S02803.1mr +++| LDD LK READ FIRST SECTOR OF DAT 03106 M00S02804.1mr +++| STD T5 03107 M00S02805.1mr +++| SETMS IO,RW 03108 M00S02806.1mr +++| CLU1 LDC BFMS READ EXTENDED MEMORY SECTOR 03109 M00S02807.1mr +++| RJM RSC 03110 M00S02808.1mr +++| LDN 100/2 SET NUMBER OF DAT ENTRIES 03111 M00S02809.1mr +++| STD T2 03112 M00S02810.1mr +++| LDN 1 SKIP HEADER BYTES 03113 M00S02811.1mr +++| STD T3 03114 M00S02812.1mr +++| CLU2 LDN 12 INCREMENT POSITION IN BUFFER 03115 M00S02813.1mr +++| RAD T3 03116 M00S02814.1mr +++| LDM BFMS-11,T3 03117 M00S02815.1mr +++| ZJN CLU4 IF HOLE 03118 M00S02816.1mr +++| LDM BFMS,T3 03119 M00S02817.1mr +++| LMD MK 03120 M00S02818.1mr +++| NJN CLU4 IF NOT ONLY DOWNED MACHINE USING DEVICE 03121 M00S02819.1mr +++|* LDN 0 03122 M00S02820.1mr +++| STM BFMS,T3 CLEAR STATUS BYTE 03123 M00S02821.1mr +++| LDM BFMS-5,T3 03124 M00S02822.1mr +++| NJN CLU6 IF SHARED DEVICE 03125 M00S02823.1mr +++|* LDN 0 03126 M00S02824.1mr +++| STM BFMS-11,T3 CLEAR *DAT* ENTRY 03127 M00S02825.1mr +++| CLU4 SOD SC 03128 M00S02826.1mr +++| NJN CLU5 IF MORE DAT ENTRIES 03129 M00S02827.1mr +++|* LDN 0 03130 M00S02828.1mr +++| RJM WSC REWRITE SECTOR 03131 M00S02829.1mr +++| ENDMS 03132 M00S02830.1mr +++| LJM CLUX RETURN 03133 M00S02831.1mr +++| 03134 M00S02832.1mr +++| CLU5 SOD T2 03135 M00S02833.1mr +++| NJN CLU2 IF NOT END OF SECTOR 03136 M00S02834.1mr +++|* LDN 0 03137 M00S02835.1mr +++| RJM WSC REWRITE SECTOR 03138 M00S02836.1mr +++| AOD T7 03139 M00S02837.1mr +++| LJM CLU1 READ NEXT SECTOR 03140 M00S02838.1mr +++| 03141 M00S02839.1mr +++|* CLEAR INTERLOCKS IN *ACGL* AND *SDGL*. 03142 M00S02840.1mr +++| 03143 M00S02841.1mr +++| CLU6 LDD T7 SAVE DAT SECTOR 03144 M00S02842.1mr +++| STD CN+1 03145 M00S02843.1mr +++| LDD T2 SAVE POSITION IN DAT 03146 M00S02844.1mr +++| STD CN 03147 M00S02845.1mr +++| LDM BFMS-5,T3 SET MST TRACK 03148 M00S02846.1mr +++| STD T6 03149 M00S02847.1mr +++| LDN /MMF/MSST SET MST SECTOR 03150 M00S02848.1mr +++| STD T7 03151 M00S02849.1mr +++| LDC BUFS READ MST SECTOR 03152 M00S02850.1mr +++| RJM RSC 03153 M00S02851.1mr +++| LDN 0 SET LOCAL AREA OFFSET 03154 M00S02852.1mr +++| STD T1 03155 M00S02853.1mr +++| LDD MD SET LOCAL AREA COUNT 03156 M00S02854.1mr +++| STD T2 03157 M00S02855.1mr +++| CLU7 LDN 0 CLEAR LOCAL INTERLOCKS 03158 M00S02856.1mr +++| STM BUFS+2+5*DULL+1,T1 03159 M00S02857.1mr +++| LDK LLLL*5 ADVANCE OFFSET 03160 M00S02858.1mr +++| RAD T1 03161 M00S02859.1mr +++| SOD T2 03162 M00S02860.1mr +++| NJN CLU7 IF NOT END OF MACHINES 03163 M00S02861.1mr +++|* LDN 0 03164 M00S02862.1mr +++| STM BUFS+2+5*TDGL+1 CLEAR GLOBAL INTERLOCKS 03165 M00S02863.1mr +++| LDM BUFS+2+5*SDGL+4 03166 M00S02864.1mr +++| SCN 77 CLEAR SOFTWARE RESERVE 03167 M00S02865.1mr +++| STM BUFS+2+5*SDGL+4 03168 M00S02866.1mr +++| LDN ZERL CLEAR DEVICE DESCRIPTION 03169 M00S02867.1mr +++| CRM BUFS+2+5*PFGL,ON 03170 M00S02868.1mr +++| LDM BUFS+2+5*ACGL+4 03171 M00S02869.1mr +++| LPK MGLAP 03172 M00S02870.1mr +++| LMK MGUNL SET GLOBAL UNLOAD 03173 M00S02871.1mr +++| STM BUFS+2+5*ACGL+4 03174 M00S02872.1mr +++| LDC BUFS REWRITE MST SECTOR 03175 M00S02873.1mr +++| RJM WSC 03176 M00S02874.1mr +++| LDD DT RESTORE DAT TRACK 03177 M00S02875.1mr +++| STD T6 03178 M00S02876.1mr +++| LDD CN+1 RESTORE DAT SECTOR 03179 M00S02877.1mr +++| STD T7 03180 M00S02878.1mr +++| LDD CN RESTORE DAT POSITION 03181 M00S02879.1mr +++| STD T2 03182 M00S02880.1mr +++| UJP CLU4 PROCESS NEXT DAT ENTRY 03183 M00S02881.1mr +++| RLS SPACE 4,20 03184 M00S02882.1mr +++|** RLS - READ LABEL SECTOR. 03185 M00S02883.1mr +++|* 03186 M00S02884.1mr +++|* ENTRY (T5) = EST ORDINAL. 03187 M00S02885.1mr +++|* 03188 M00S02886.1mr +++|* EXIT (A) = 0 IF NO ERROR. 03189 M00S02887.1mr +++|* = (RDCT) IF ERROR. 03190 M00S02888.1mr +++|* (T3) = MST POINTER. 03191 M00S02889.1mr +++|* (T6) = LABEL TRACK. 03192 M00S02890.1mr +++|* (BI) = BYTE 0 OF EST ENTRY FOR DEVICE. 03193 M00S02891.1mr +++|* (CN+1) = PHYSICAL UNIT NUMBER IF UNIT RESERVED. 03194 M00S02892.1mr +++|* (BFMS) = FIRST LABEL SECTOR. 03195 M00S02893.1mr +++|* 03196 M00S02894.1mr +++|* CALLS C2D, RDS. 03197 M00S02895.1mr +++|* 03198 M00S02896.1mr +++|* USES QS, T1, T7, CM - CM+4, WB - WB+4. 03199 M00S02897.1mr +++|* 03200 M00S02898.1mr +++|* MACROS ENDMS, SETMS. 03201 M00S02899.1mr +++| 03202 M00S02900.1mr +++| 03203 M00S02901.1mr +++| RLS SUBR ENTRY/EXIT
| Line S02902 Modification History | |
|---|---|
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 03204 M01S02902.ns2579 ---| SETMS IO,RR
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 03205 M01S00006.ns2579 +++| SETMS IO,(NS,RR) 03206 M00S02903.1mr +++| LDD CM SAVE BYTE 0 OF *EQDE* WORD 03207 M00S02904.1mr +++| STD BI 03208 M00S02905.1mr +++| LDD CM+4 SAVE MST POINTER 03209 M00S02906.1mr +++| STD T3 03210 M00S02907.1mr +++| SHN 3 03211 M00S02908.1mr +++| ADN ALGL FETCH LABEL TRACK 03212 M00S02909.1mr +++| CRD T6 03213 M00S02910.1mr +++| ADN MDGL-ALGL GET SECTOR LIMITS 03214 M00S02911.1mr +++| CRD CM 03215 M00S02912.1mr +++| ADN DDLL-MDGL READ UNIT LIST 03216 M00S02913.1mr +++| CRD WB 03217 M00S02914.1mr +++| LDD T7 SET LABEL TRACK 03218 M00S02915.1mr +++| STD T6 03219 M00S02916.1mr +++| LDD CM+1 EXTRACT SINGLE UNIT SECTOR LIMIT 03220 M00S02917.1mr +++| LPC 3777 03221 M00S02918.1mr +++| STD QS 03222 M00S02919.1mr +++| LDD CM+4 SET LAST LABEL SECTOR 03223 M00S02920.1mr +++| SBD QS 03224 M00S02921.1mr +++| STD T7 03225 M00S02922.1mr +++| LDD T5 CONVERT UPPER DIGIT OF EST ORDINAL 03226 M00S02923.1mr +++| SHN -6 03227 M00S02924.1mr +++| ADC 2RQ0 03228 M00S02925.1mr +++| STM RLSA+1 03229 M00S02926.1mr +++| LDD T5 CONVERT LOWER TWO DIGITS OF EST ORDINAL 03230 M00S02927.1mr +++| RJM C2D 03231 M00S02928.1mr +++| STM RLSA+2 03232 M00S02929.1mr +++| LDD WB EXTRACT UNIT COUNT 03233 M00S02930.1mr +++| LPN 7 03234 M00S02931.1mr +++| LMN 7 INVERT COUNT 03235 M00S02932.1mr +++| STD WB 03236 M00S02933.1mr +++| 03237 M00S02934.1mr +++|* READ LABEL SECTOR. 03238 M00S02935.1mr +++| 03239 M00S02936.1mr +++| RLS1 SHN 21-0 SET UNIT LIST INDEX 03240 M00S02937.1mr +++| STD T1 03241 M00S02938.1mr +++| SCN 3 MERGE BYTE FROM UNIT LIST 03242 M00S02939.1mr +++| LMM WB+1,T1 03243 M00S02940.1mr +++| MJN RLS2 IF UNIT PACKED LOW 03244 M00S02941.1mr +++| SHN -6 03245 M00S02942.1mr +++| RLS2 LPN 77 EXTRACT UNIT NUMBER 03246 M00S02943.1mr +++| STD CN+1 03247 M00S02944.1mr +++| RJM C2D 03248 M00S02945.1mr +++| STM RLSA+5 03249 M00S02946.1mr +++| LDD CP WRITE MESSAGE TO B-DISPLAY 03250 M00S02947.1mr +++| ADN MS2W 03251 M00S02948.1mr +++| CWM RLSA,TR 03252 M00S02949.1mr +++| LDC BFMS READ SECTOR 03253 M00S02950.1mr +++| RJM RDS 03254 M00S02951.1mr +++| PJN RLS4 IF NO ERROR
| Line S02952 Modification History | |
|---|---|
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 03255 M01S02952.ns2579 ---| LPN 17
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 03256 M01S00007.ns2579 +++| LPN 77 03257 M00S02953.1mr +++| LMN CRSE 03258 M00S02954.1mr +++| ZJN RLS3 IF CONTROLLER RESERVED 03259 M00S02955.1mr +++| LMN RESE&CRSE 03260 M00S02956.1mr +++| NJN RLS4 IF NOT UNIT RESERVED 03261 M00S02957.1mr +++| RLS3 ENDMS 03262 M00S02958.1mr +++|* LDN 0 03263 M00S02959.1mr +++| STD CM 03264 M00S02960.1mr +++| LDD CP CLEAR MESSAGE 03265 M00S02961.1mr +++| ADN MS2W 03266 M00S02962.1mr +++| CWD CM 03267 M00S02963.1mr +++| LDM RDCT SET ERROR STATUS 03268 M00S02964.1mr +++| LJM RLSX RETURN 03269 M00S02965.1mr +++| 03270 M00S02966.1mr +++|* ADVANCE TO NEXT UNIT OF MULTI-UNIT DEVICE. 03271 M00S02967.1mr +++| 03272 M00S02968.1mr +++| RLS4 LDD T7 DECREMENT SECTOR ADDRESS 03273 M00S02969.1mr +++| SBD QS 03274 M00S02970.1mr +++| MJN RLS3 IF END OF UNITS 03275 M00S02971.1mr +++| STD T7 03276 M00S02972.1mr +++| AOD WB 03277 M00S02973.1mr +++| LJM RLS1 LOOP FOR NEXT UNIT 03278 M00S02974.1mr +++| 03279 M00S02975.1mr +++| 03280 M00S02976.1mr +++| RLSA DATA C* EQXXX, UNYY, CHECKING RESERVE.* 03281 M00S02977.1mr +++| WSC SPACE 4,10 03282 M00S02978.1mr +++|** WSC - WRITE EXTENDED MEMORY SECTOR. 03283 M00S02979.1mr +++|* 03284 M00S02980.1mr +++|* ENTRY (A) = 0 IF DATA IN *BFMS*. 03285 M00S02981.1mr +++|* (T4 - T7) = DRIVER PARAMETERS. 03286 M00S02982.1mr +++|* 03287 M00S02983.1mr +++|* EXIT TO *MSR* IF UNRECOVERED WRITE ERROR. 03288 M00S02984.1mr +++|* 03289 M00S02985.1mr +++|* CALLS WDS, MSR. 03290 M00S02986.1mr +++| 03291 M00S02987.1mr +++| 03292 M00S02988.1mr +++| WSC SUBR ENTRY/EXIT 03293 M00S02989.1mr +++| NJN WSC1 IF ALTERNATE BUFFER 03294 M00S02990.1mr +++| LDC BFMS SET BUFFER ADDRESS 03295 M00S02991.1mr +++| WSC1 RJM WDS WRITE SECTOR 03296 M00S02992.1mr +++| PJN WSCX IF NO ERROR 03297 M00S02993.1mr +++| LDN /MRT/WER SET LINK DEVICE WRITE ERROR 03298 M00S02994.1mr +++| LJM MSR PROCESS ERROR 03299 M00S02995.1mr +++| 03300 M00S02996.1mr +++| 03301 M00S02997.1mr +++| ERRNG BUFS-* CODE OVERFLOWS BUFFER 03302 M00S02998.1mr +++| TTL 1MR - MACHINE RECOVERY PROCESSOR. 03303 M00S02999.1mr +++| SPACE 4,10 03304 M00S03000.1mr +++| END
cdc/nos2.source/opl.opl871/deck/1mr.001.txt · Last modified: by 127.0.0.1