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