Seq # *Modification Id* Act
----------------------------+
44089 M02S01893.273l780 ---| LX2 36
44090 M02S01894.273l780 ---| BX7 -X1*X7 CLEAR INACCESSIBLE FLAG IF *UCTM* SET
44091 M02S01895.273l780 ---| BX3 X3+X2
44092 M02S01896.273l780 ---| LX7 6+24-59
44093 M02S01897.273l780 ---| BX0 X3+X7
44094 M02S01898.273l780 ---| SX6 1 PRESERVE PROGRAM/MONITOR MODE INTERLOCK
44095 M02S01899.273l780 ---| BX7 X5
44096 M02S01900.273l780 ---| SB5 CHR15 *CDI* RETURN ADDRESS
44097 M02S01901.273l780 ---| EQ /ISD/CDI CLEAR *MCLL* BITS
Line S00884 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
44098 M01S00884.273l780 +++| CHR14 SA3 /MONITOR/TFPL-1+/MONITOR/LA3RX GET *3RX* PLD POINTER
44099 M01S00885.273l780 +++| SX6 B1 PRESERVE PROGRAM/MONITOR MODE INTERLOCK
44100 M01S00886.273l780 +++| SB5 B0 SET DIRECT RETURN FROM *CDI*
44101 M01S00887.273l780 +++| SB4 X3+ *3RX* PLD ADDRESS
44102 M01S00888.273l780 +++| SB3 CHR15 SET *CDI* RETURN ADDRESS
44103 M01S00889.273l780 +++| NZ B4,/ISD/CDI IF PLD NOT BEING MODIFIED
44104 M01S00890.273l780 +++| EQ CHR12 REJECT REQUEST
Line S01902 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44105 M01S01902.253l688 +++|
Line S01903 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44106 M02S01903.273l780 ---| CHR15 BX3 X0 *BOTM* PARAMETERS
Line S01904 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum217
M03 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44107 M03S01904.273l780 ---| SB5 B0 NO PP SAVE AREA
44108 M03S01905.273l780 ---| EQ /MONITOR/IBF2 ISSUE *BOTM*
Line S00052 Modification History
M01 (Added by) cpum217
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44109 M02S00052.273l780 ---| SB5 PPR1 SET RETURN ADDRESS
44110 M02S00053.273l780 ---| EQ /MONITOR/IBF ISSUE *BOTM*
Line S00891 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
44111 M01S00891.273l780 +++| CHR15 SA5 A5+ GET ORIGINAL OUTPUT REGISTER
44112 M01S00892.273l780 +++| MX6 1
44113 M01S00893.273l780 +++| BX7 X6*X7
44114 M01S00894.273l780 +++| BX7 X6-X7 SET *MSD* SUBSYSTEM STATUS
44115 M01S00895.273l780 +++| SB3 PPRX SET *EFP* RETURN ADDRESS
44116 M01S00896.273l780 +++| UX5 X5 SET OUTPUT REGISTER PARAMETERS
44117 M01S00897.273l780 +++| EQ /MONITOR/EFP CALL *3RX* AND EXIT
Line S01906 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44118 M01S01906.253l688 +++| CHR SPACE 4,10
44119 M01S01907.253l688 +++|** IFT - ISHARED FUNCTION TABLE GENERATOR.
44120 M01S01908.253l688 +++|*
44121 M01S01909.253l688 +++|* *IFT* DEFINES THE FUNCTION PROCESSOR, PP HELPER, AND
44122 M01S01910.253l688 +++|* BOOTSTRAP PROGRAM FOR EACH ISHARED FUNCTION. IT ALSO BUILDS
44123 M01S01911.253l688 +++|* A MICRO WHICH WILL CREATE A BIT MAP OF THE ISHARED FUNCTIONS.
44124 M01S01912.253l688 +++|*
44125 M01S01913.253l688 +++|* FUNC IFT BOOT,HELPER,PROCR
44126 M01S01914.253l688 +++|*
44127 M01S01915.253l688 +++|* ENTRY *BOOT* = BOOTSTRAP PROGRAM NAME.
44128 M01S01916.253l688 +++|* *HELPER* = HELPER PP NAME.
44129 M01S01917.253l688 +++|* *PROCR* = *CPUMTR* PROCESSOR FOR FUNCTION.
44130 M01S01918.253l688 +++|
44131 M01S01919.253l688 +++|
44132 M01S01920.253l688 +++| PURGMAC IFT
44133 M01S01921.253l688 +++|
44134 M01S01922.253l688 +++| MACRO IFT,FUNC,BOOT,HELPER,PROCR
44135 M01S01923.253l688 +++| P ERRPL .1-FUNC FUNCTIONS MUST BE IN ASCENDING ORDER
44136 M01S01924.253l688 +++| P ERRNG LA1RU-LA_HELPER ASSUMED BY *PROHIBIT TRT UPDATE* TEST
44137 M01S01925.253l688 +++| LOC FUNC
44138 M01S01926.253l688 +++| .1 SET FUNC
44139 M01S01927.253l688 +++| .A IFC EQ,$HELPER$1RU$
44140 M01S01928.253l688 +++| .B IFC EQ,$FUNC$DTKM$
44141 M01S01929.253l688 +++| VFD 1/1,1/1,10/,6/0,6/LA_HELPER,6/LA_BOOT,1/1,11/,18/PROCR
44142 M01S01930.253l688 +++| .B ELSE
44143 M01S01931.253l688 +++| VFD 1/1,1/0,10/,6/0,6/LA_HELPER,6/LA_BOOT,1/1,11/,18/PROCR
44144 M01S01932.253l688 +++| .B ENDIF
44145 M01S01933.253l688 +++| .A ELSE
44146 M01S01934.253l688 +++| VFD 1/0,11/,6/0,6/LA_HELPER,6/LA_BOOT,1/0,11/,18/PROCR
44147 M01S01935.253l688 +++| .A ENDIF
44148 M01S01936.253l688 +++| LOC *O
44149 M01S01937.253l688 +++| .1 DECMIC FUNC-CPUM
44150 M01S01938.253l688 +++| .M MICRO 1,,$1S".1"+".M"$
44151 M01S01939.253l688 +++| IFT ENDM
44152 M01S01940.253l688 +++|
Line S00001 Modification History
M01 (Added by) cpum226
Seq # *Modification Id* Act
----------------------------+
44153 M01S00001.cpum226 +++| QUAL MONITOR
Line S01941 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44154 M01S01941.253l688 +++| .M MICRO 0,,
44155 M01S01942.253l688 +++| .1 SET 0
44156 M01S01943.253l688 +++|
44157 M01S01944.253l688 +++|
44158 M01S01945.253l688 +++|** TABLE OF ISHARED MONITOR FUNCTIONS.
44159 M01S01946.253l688 +++|*
44160 M01S01947.253l688 +++|*T 1/R, 1/D, 10/ ,18/ *IBF* PARAMETERS ,1/R, 11/ ,18/ PROCESSOR.
Figure
0 17 18 28 29 PROCESSOR. R 30 47 48 57 58 59 *IBF* PARAMETERS D R
44161 M01S01948.253l688 +++|*
44162 M01S01949.253l688 +++|* R 1 = HELPER PP IS *1RU*.
44163 M01S01950.253l688 +++|* D 1 = FUNCTION IS *DTKM*.
44164 M01S01951.253l688 +++|
44165 M01S01952.253l688 +++|
Line S01953 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum226
Seq # *Modification Id* Act
----------------------------+
44166 M02S01953.cpum226 ---| QUAL MONITOR
Line S01954 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44167 M01S01954.253l688 +++| AFAM IFT 1BP,1FA,.AFAM
44168 M01S01955.253l688 +++| DLKM IFT 1BP,1RU,PMR
44169 M01S01956.253l688 +++| DTKM IFT 1BP,1RU,.DTKM
44170 M01S01957.253l688 +++| RTCM IFT 1BP,1RU,PMR
44171 M01S01958.253l688 +++| STBM IFT 1BP,1RU,/PROGRAM/CTR1
44172 M01S01959.253l688 +++| VMSM IFT 1BP,1RU,PMR
44173 M01S01960.253l688 +++| QUAL *
44174 M01S01961.253l688 +++|
44175 M01S01962.253l688 +++| CHRA CON ".M" ISHARED FUNCTION BIT MAP
44176 M01S01963.253l688 +++|
44177 M01S01964.253l688 +++| CHRB CON ** CURRENT MST *MCLL* ADDRESS
44178 M01S01965.253l688 +++| AMM SPACE 4,10
44179 M01S01966.253l688 +++|** AMM - ACTIVATE MONITOR MODE (PROGRAM MODE).
44180 M01S01967.253l688 +++|*
44181 M01S01968.253l688 +++|* ENTRY (X0) = PP REQUEST.
44182 M01S01969.253l688 +++|* (B3) = EXIT ADDRESS.
44183 M01S01970.253l688 +++|*
44184 M01S01971.253l688 +++|* USES X - 6.
44185 M01S01972.253l688 +++|* A - 6.
44186 M01S01973.253l688 +++|
44187 M01S01974.253l688 +++|
44188 M01S01975.253l688 +++| QUAL PROGRAM
44189 M01S01976.253l688 +++| AMM SX6 -2 SET *MTR*-LIKE REQUEST TO MONITOR MODE
44190 M01S01977.253l688 +++| SA6 PX
44191 M01S01978.253l688 +++|
44192 M01S01979.253l688 +++| MJ EXCHANGE TO MONITOR MODE
44193 M01S01980.253l688 +++|
44194 M01S01981.253l688 +++| JP B3 RETURN
44195 M01S01982.253l688 +++| QUAL *
Line S01983 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44196 M02S01983.273l780 ---| CDI SPACE 4,25
Line S00898 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
44197 M01S00898.273l780 +++| CDI SPACE 4,35
Line S01984 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44198 M01S01984.253l688 +++|** CDI - CLEAR DEVICE INTERLOCK EXTENSION FOR ISHARED DEVICES.
44199 M01S01985.253l688 +++|*
44200 M01S01986.253l688 +++|* *CDI* CLEARS THE PP-S REQUEST-IN-PROGRESS AND SET-REISSUE-BIT
44201 M01S01987.253l688 +++|* BITS. IF THE REQUEST ORIGINATED FROM THE PP THAT IS RUNNING
44202 M01S01988.253l688 +++|* *1RU*, *CDI* ALSO CLEARS THE LATENCY ACTIVITY BIT. IF ALL
44203 M01S01989.253l688 +++|* THE ACTIVITY BITS IN *MCLL* ARE CLEARED, *CDI* CLEARS THE
44204 M01S01990.253l688 +++|* TABLES-CURRENT FLAG IN *SDGL*. SINCE CLEARING TABLES-CURRENT
44205 M01S01991.253l688 +++|* CAN BE DONE IN MONITOR MODE, WITH OR WITHOUT THE *CPUMTR*
44206 M01S01992.253l688 +++|* INTERLOCK SET, AND CAN ALSO BE DONE IN PROGRAM MODE, INSURING
44207 M01S01993.253l688 +++|* THE INTEGRITY OF *SDGL* REQUIRES RESTRICTIONS ON THE CHANGES
44208 M01S01994.253l688 +++|* THAT CAN BE MADE TO *SDGL* FROM THE TIME IT IS FETCHED BY
44209 M01S01995.253l688 +++|* *CDI* IN THE *PROGRAM* BLOCK AND STORED BY *CDI* IN THE *ISD*
44210 M01S01996.253l688 +++|* BLOCK.
44211 M01S01997.253l688 +++|* THE CODE AT *CDI2* ASSUMES THAT THE ONLY CHANGES THAT WILL BE
44212 M01S01998.253l688 +++|* MADE ARE THE CLEARING OF BITS, NAMELY THE *CPUMTR* INTERLOCK
44213 M01S01999.253l688 +++|* AND THE TABLES-CURRENT BITS.
44214 M01S02000.253l688 +++|*
44215 M01S02001.253l688 +++|* ENTRY (A4) = *SDGL* ADDRESS.
44216 M01S02002.253l688 +++|* (A5) = OUTPUT REGISTER ADDRESS.
44217 M01S02003.253l688 +++|* (X6) = BIT 0 OF *SDGL* MASK.
44218 M01S02004.253l688 +++|* 0, IF CLEARING PROGRAM/MONITOR MODE INTERLOCK.
44219 M01S02005.253l688 +++|* 1, IF PRESERVING INTERLOCK.
Line S02006 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44220 M02S02006.273l780 ---|* (X7) = OUTPUT REGISTER.
44221 M02S02007.273l780 ---|* (B5) = *CSM* RETURN ADDRESS.
Line S00899 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
44222 M01S00899.273l780 +++|* (X7) = OUTPUT REGISTER IF TO EXIT TO *CSM*.
44223 M01S00900.273l780 +++|* (B5) = *CSM* RETURN ADDRESS IF .NE. 0.
44224 M01S00901.273l780 +++|* (B3) = RETURN ADDRESS IF (B5) .EQ. 0.
44225 M01S00902.273l780 +++|*
44226 M01S00903.273l780 +++|* EXIT TO *CSM* IF (B5) .NE. 0 ON ENTRY.
44227 M01S00904.273l780 +++|* TO (B3) RETURN ADDRESS IF (B5) .EQ. 0 ON ENTRY.
44228 M01S00905.273l780 +++|*
44229 M01S00906.273l780 +++|* USES X - 1, 2, 3, 4, 5, 6.
44230 M01S00907.273l780 +++|* A - 3, 4, 6.
44231 M01S00908.273l780 +++|* B - 6.
Line S02008 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44232 M01S02008.253l688 +++|
44233 M01S02009.253l688 +++|
44234 M01S02010.253l688 +++| CDI BSS 0
44235 M01S02011.253l688 +++| SA3 A4+MCLL-SDGL CLEAR ACTIVITY BITS
44236 M01S02012.253l688 +++| TX2 A5-1+10B,-FP GET PP BIT
44237 M01S02013.253l688 +++| MX5 59 SAVE PROGRAM/MONITOR MODE INTERLOCK
44238 M01S02014.253l688 +++| AX2 3
44239 M01S02015.253l688 +++| BX4 X5+X6
44240 M01S02016.253l688 +++| MX1 12 CHECK FOR CALL FROM *1RU*
44241 M01S02017.253l688 +++| BX1 X1*X3
44242 M01S02018.253l688 +++| SB6 X2+
44243 M01S02019.253l688 +++| LX1 12
44244 M01S02020.253l688 +++| SX3 A5
44245 M01S02021.253l688 +++| LX2 X5,B6
44246 M01S02022.253l688 +++| BX3 X1-X3
44247 M01S02023.253l688 +++| LX6 X5,B6 CLEAR SET-REISSUE
44248 M01S02024.253l688 +++| LX2 21
44249 M01S02025.253l688 +++| NZ X3,CDI1 IF NOT FROM *1RU*
44250 M01S02026.253l688 +++| BX6 X6*X5 CLEAR LATENCY ACTIVITY BIT
44251 M01S02027.253l688 +++| CDI1 BX6 X6*X2 CLEAR REQUEST-IN-PROGRESS
44252 M01S02028.253l688 +++| MX2 -42
44253 M01S02029.253l688 +++| LX5 6
44254 M01S02030.253l688 +++|+ SA3 A3 **** PERFORM IN ONE WORD ****
44255 M01S02031.253l688 +++| BX6 X6*X3 **** PERFORM IN ONE WORD ****
44256 M01S02032.253l688 +++| SA6 A3 **** PERFORM IN ONE WORD ****
44257 M01S02033.253l688 +++| SA3 A4 **** PERFORM IN ONE WORD ****
44258 M01S02034.253l688 +++| BX2 -X2*X6 CHECK FOR NO OUTSTANDING FUNCTIONS
44259 M01S02035.253l688 +++| BX6 X4
44260 M01S02036.253l688 +++| LX4 X3,B1 CHECK TABLES CURRENT
44261 M01S02037.253l688 +++| SX3 B0 MST/TRT UPDATE COUNTER INCREMENT
44262 M01S02038.253l688 +++| PL X4,CDI2 IF TABLES ARE NOT CURRENT
44263 M01S02039.253l688 +++| ZR X1,CDI2 IF *1RU* IS NOT ACTIVE
44264 M01S02040.253l688 +++| NZ X2,CDI2 IF FUNCTIONS REMAIN
44265 M01S02041.253l688 +++| PX6 X6 CLEAR TABLES CURRENT BIT
44266 M01S02042.253l688 +++| BX3 -X5 INCREMENT MST/TRT UPDATE COUNTER
44267 M01S02043.253l688 +++| CDI2 SA4 A4 **** PERFORM IN ONE WORD ****
44268 M01S02044.253l688 +++| BX6 X6*X4 **** PERFORM IN ONE WORD ****
44269 M01S02045.253l688 +++| IX6 X6+X3 **** PERFORM IN ONE WORD ****
44270 M01S02046.253l688 +++| SA6 A4 **** PERFORM IN ONE WORD ****
Line S02047 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44271 M02S02047.273l780 ---| EQ /PROGRAM/CSM1 CHECK FOR STORAGE MOVE
Line S00909 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
44272 M01S00909.273l780 +++| NZ B5,/PROGRAM/CSM1 IF EXIT VIA *CSM*
44273 M01S00910.273l780 +++| JP B3 RETURN
Line S02048 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44274 M01S02048.253l688 +++| CTR SPACE 4,10
44275 M01S02049.253l688 +++|** CTR - *CTR* ISHARED PROCESSING.
44276 M01S02050.253l688 +++|
44277 M01S02051.253l688 +++|
44278 M01S02052.253l688 +++| CTR3 BX0 X3 SET TRT LENGTH
44279 M01S02053.253l688 +++| AX0 24
44280 M01S02054.253l688 +++| BX0 -X5*X0
44281 M01S02055.253l688 +++| SB4 X0
44282 M01S02056.253l688 +++| BX0 X0-X0
44283 M01S02057.253l688 +++| PX0 X0,B4
44284 M01S02058.253l688 +++| ZR B6,/PROGRAM/CTR2 IF NO INTERLOCK
44285 M01S02059.253l688 +++| EQ /PROGRAM/CTR1.1 INTERLOCK MST
44286 M01S02060.253l688 +++| MNR SPACE 4,10
44287 M01S02061.253l688 +++|** *MNR* EXTENSION FOR ISHARED PROCESSING.
44288 M01S02062.253l688 +++|*
44289 M01S02063.253l688 +++|* PROCESS *MTR*-LIKE FUNCTION.
Line S02077 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
44290 M01S02077.271l750 +++|*
44291 M01S02078.271l750 +++|* ENTRY (X3) = MONITOR MODE START TIME.
Line S02064 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44292 M01S02064.253l688 +++|
44293 M01S02065.253l688 +++|
44294 M01S02066.253l688 +++| MNR5 NE B3,B1,/MONITOR/MNR5 IF NOT *MTR*-LIKE REQUEST
44295 M01S02067.253l688 +++| SA1 B2+10B GET CALLER-S *X0* REGISTER
Line S02079 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
44296 M01S02079.271l750 +++| BX5 X3 SET MONITOR MODE START TIME FOR *PMN*
Line S02068 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44297 M01S02068.253l688 +++| BX0 X1
Line S02069 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
44298 M02S02069.271l750 ---| SA1 X1
Line S02080 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
44299 M01S02080.271l750 +++| SA1 X1+
Line S02070 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44300 M01S02070.253l688 +++| SB3 X0-MXPF
Line S02071 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
44301 M02S02071.271l716 ---| NG B3,/MONITOR/PMN0 IF NOT PP REQUEST
Line S02075 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
44302 M01S02075.271l716 +++| NG B3,/MONITOR/PMN1 IF NOT PP REQUEST
Line S02072 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44303 M01S02072.253l688 +++| MX7 -7-48 CLEAR PROGRAM MODE BIT
44304 M01S02073.253l688 +++| BX7 -X7*X1
Line S02074 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
44305 M02S02074.271l750 ---| SA7 A1
Line S02075 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
M03 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
44306 M03S02075.271l750 ---| EQ /MONITOR/PMN0 PROCESS FUNCTION
Line S02076 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
44307 M02S02076.271l750 ---| EQ /MONITOR/PMN1 PROCESS FUNCTION
Line S02081 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
44308 M01S02081.271l750 +++| SA7 A1+
44309 M01S02082.271l750 +++| EQ /MONITOR/PMN4 PROCESS PP FUNCTION
Line S02076 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq # *Modification Id* Act
----------------------------+
44310 M02S02076.cpum212 ---| QDT SPACE 4,10
Line S00033 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44311 M01S00033.cpum212 +++| QDT SPACE 4,25
Line S02077 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44312 M01S02077.253l688 +++|** QDT - QUEUE DROPPABLE TRACKS.
44313 M01S02078.253l688 +++|*
44314 M01S02079.253l688 +++|* *QDT* COMPLETES *DTKM* REQUESTS BY PLACING THEM IN A QUEUE
44315 M01S02080.253l688 +++|* WHEN THE FOLLOWING CONDITIONS ARE MET.
44316 M01S02081.253l688 +++|* - THE PP ISSUING THE FUNCTION IS ASSIGNED TO A JOB.
Line S00034 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44317 M01S00034.cpum212 +++|* - THE JOB IS NOT BEING STORAGE MOVED.
Line S02082 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44318 M01S02082.253l688 +++|* - THE *DTKM* IS NOT SETTING *EOI*.
44319 M01S02083.253l688 +++|* - THE QUEUE IN THE JOB-S NFL IS NOT FULL.
44320 M01S02084.253l688 +++|*
44321 M01S02085.253l688 +++|* ENTRY (A2) = ADDRESS OF *DALL* WORD IN THE MST.
44322 M01S02086.253l688 +++|* (A3) = ADDRESS OF FUNCTION PARAMETERS.
44323 M01S02087.253l688 +++|* (X1) = LOWER 48 BITS OF *OR* WITH BIT 45 MOVED TO 59.
44324 M01S02088.253l688 +++|* (X3) = FUNCTION PARAMETERS.
44325 M01S02089.253l688 +++|* (X5) = OUTPUT REGISTER.
44326 M01S02090.253l688 +++|* (B7) = CONTROL POINT AREA ADDRESS.
44327 M01S02091.253l688 +++|*
44328 M01S02092.253l688 +++|* EXIT TO *CHR10* WITH *DTKM* BIT CLEARED, IF REQUEST CANNOT
Line S02093 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq # *Modification Id* Act
----------------------------+
44329 M02S02093.cpum212 ---|* BE QUEUED.
Line S00035 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44330 M01S00035.cpum212 +++|* BE QUEUED.
44331 M01S00036.cpum212 +++|* TO *CHR12* TO REJECT REQUEST IF CONTROL POINT BEING
44332 M01S00037.cpum212 +++|* MOVED.
44333 M01S00038.cpum212 +++|*
44334 M01S00039.cpum212 +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
44335 M01S00040.cpum212 +++|* A - 1, 2, 3, 4, 6.
44336 M01S00041.cpum212 +++|* B - 3, 4, 6, 7.
Line S02094 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44337 M01S02094.253l688 +++|
44338 M01S02095.253l688 +++|
Line S02096 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq # *Modification Id* Act
----------------------------+
44339 M02S02096.cpum212 ---| QDT TX6 B7,-SCA
Line S00042 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44340 M01S00042.cpum212 +++| QDT BSS 0 ENTRY
Line S00043 Modification History
M01 (Added by) cpum212
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44341 M02S00043.273l780 ---| SA4 CMCL
Line S00911 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
44342 M01S00911.273l780 +++| SA4 SMRL
Line S00044 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44343 M01S00044.cpum212 +++| SX6 B7+
Line S00045 Modification History
M01 (Added by) cpum212
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
44344 M02S00045.271l716 ---| LX6 48
Line S02077 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44345 M02S02077.273l780 ---| LX6 48-7
Line S00046 Modification History
M01 (Added by) cpum212
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44346 M02S00046.273l780 ---| MX7 12
Line S00912 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
44347 M01S00912.273l780 +++| LX6 -7 CP NUMBER
44348 M01S00913.273l780 +++| MX7 -12
Line S00047 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44349 M01S00047.cpum212 +++| BX6 X4-X6
Line S00048 Modification History
M01 (Added by) cpum212
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
44350 M02S00048.273l780 ---| BX6 X7*X6
Line S00914 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
44351 M01S00914.273l780 +++| BX6 -X7*X6
Line S00049 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44352 M01S00049.cpum212 +++| ZR X6,CHR12 IF CONTROL POINT MOVING
Line S02097 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44353 M01S02097.253l688 +++| SA4 B7+FLSW GET RA AND NFL
Line S00050 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44354 M01S00050.cpum212 +++| TX6 B7,-SCA
44355 M01S00051.cpum212 +++| ZR X6,QDT3 IF SYSTEM CONTROL POINT
Line S02098 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44356 M01S02098.253l688 +++| BX7 X5 CHECK REQUEST
Line S02099 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq # *Modification Id* Act
----------------------------+
44357 M02S02099.cpum212 ---| ZR X6,QDT3 IF SYSTEM CONTROL POINT
Line S02100 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44358 M01S02100.253l688 +++| MX6 -36
44359 M01S02101.253l688 +++| ZR B7,QDT3 IF SYSTEM CONTROL POINT
44360 M01S02102.253l688 +++| LX7 59-35
44361 M01S02103.253l688 +++| BX6 -X6*X4 GET RA/100
44362 M01S02104.253l688 +++| PL X7,QDT3 IF SET *EOI* REQUEST
44363 M01S02105.253l688 +++| SX7 QFBN
44364 M01S02106.253l688 +++| AX4 48 GET NFL
44365 M01S02107.253l688 +++| AX6 12
44366 M01S02108.253l688 +++| ZR X4,QDT3 IF INSUFFICIENT NFL
44367 M01S02109.253l688 +++| LX6 6 RA
44368 M01S02110.253l688 +++| IX7 X6-X7 ABSOLUTE ADDRESS OF *QFBN* QUEUE
44369 M01S02111.253l688 +++| SX6 -QFBL
44370 M01S02112.253l688 +++| QDT1 SX6 X6+B1 SEARCH FOR EMPTY ENTRY
44371 M01S02113.253l688 +++| IX4 X7-X6
44372 M01S02114.253l688 +++| ERX4 X4
44373 M01S02115.253l688 +++| BX3 X4-X5
44374 M01S02116.253l688 +++| NZ X4,QDT2 IF ENTRY NOT AVAILABLE
44375 M01S02117.253l688 +++| SB7 X6-1 SAVE ORDINAL OF AVAILABLE ENTRY
44376 M01S02118.253l688 +++| QDT2 LX3 0-45 IGNORE THE REQUEST FLAGS
44377 M01S02119.253l688 +++| AX3 3
44378 M01S02120.253l688 +++| ZR X3,QDT3 IF REQUEST IS ALREADY IN THE TABLE
44379 M01S02121.253l688 +++| NG X6,QDT1 IF MORE ENTRIES TO CHECK
44380 M01S02122.253l688 +++| NG B7,QDT4 IF ENTRY IS AVAILABLE
44381 M01S02123.253l688 +++| QDT3 SA3 A3 RESTORE FUNCTION PARAMETERS
44382 M01S02124.253l688 +++| MX6 -59 CLEAR *DTKM* BIT
44383 M01S02125.253l688 +++| LX6 58-59
44384 M01S02126.253l688 +++| BX3 -X6*X3
44385 M01S02127.253l688 +++| EQ CHR10 REQUEST CANNOT BE QUEUED
44386 M01S02128.253l688 +++|
44387 M01S02129.253l688 +++| QDT4 SX4 B7+B1 SET REQUEST IN *QFBN* QUEUE
44388 M01S02130.253l688 +++| BX6 X5
44389 M01S02131.253l688 +++| IX4 X7-X4
44390 M01S02132.253l688 +++| EWX6 X4
44391 M01S02133.253l688 +++|
44392 M01S02134.253l688 +++|* COMPUTE NUMBER OF SECTORS DROPPED.
44393 M01S02135.253l688 +++|
44394 M01S02136.253l688 +++| SA2 A2+TRLL-DALL SET TRT BASE ADDRESS
44395 M01S02137.253l688 +++| MX6 12
44396 M01S02138.253l688 +++| LX1 24-59+45 POSITION FIRST TRACK
44397 M01S02139.253l688 +++| MX7 -2
44398 M01S02140.253l688 +++| SB6 B0 PRESET TRACK COUNT
44399 M01S02141.253l688 +++| SB3 X2-4000B/4 PRESET TRT FWA
44400 M01S02142.253l688 +++| QDT5 BX0 X6*X1 EXTRACT LINK
44401 M01S02143.253l688 +++| LX0 10
44402 M01S02144.253l688 +++| SB6 B6+B1
44403 M01S02145.253l688 +++| SA1 B3+X0 READ TRT WORD
44404 M01S02146.253l688 +++| LX0 2
44405 M01S02147.253l688 +++| BX2 -X7*X0 EXTRACT BYTE
44406 M01S02148.253l688 +++| LX2 2 BYTE * 4
44407 M01S02149.253l688 +++| LX3 X2,B1 BYTE * 8
44408 M01S02150.253l688 +++| IX2 X3+X2 BYTE * 12
44409 M01S02151.253l688 +++| SB4 X2+
44410 M01S02152.253l688 +++| LX1 X1,B4 POSITION TRACK BYTE
44411 M01S02153.253l688 +++| NG X1,QDT5 IF NOT END OF TRACK CHAIN
44412 M01S02154.253l688 +++| SA2 A2+MDGL-TRLL GET SECTORS PER TRACK
44413 M01S02155.253l688 +++| SX3 B6-B1 NUMBER OF FULL TRACKS
Line S00052 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44414 M01S00052.cpum212 +++| SA4 A2+SDGL-MDGL SET *SDGL* ADDRESS
Line S02156 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44415 M01S02156.253l688 +++| MX7 -12
44416 M01S02157.253l688 +++| AX1 48 SECTORS IN LAST TRACK
44417 M01S02158.253l688 +++| BX2 -X7*X2
Line S00053 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44418 M01S00053.cpum212 +++| SX6 1 SET TO PRESERVE INTERLOCK
Line S02159 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44419 M01S02159.253l688 +++| IX3 X3*X2
Line S00054 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44420 M01S00054.cpum212 +++| SB5 PPR1 SET EXIT ADDRESS
Line S02160 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44421 M01S02160.253l688 +++| IX7 X3+X1
Line S02161 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq # *Modification Id* Act
----------------------------+
44422 M02S02161.cpum212 ---| EQ PPR1 RETURN NUMBER OF SECTORS DROPPED
Line S00055 Modification History
M01 (Added by) cpum212
Seq # *Modification Id* Act
----------------------------+
44423 M01S00055.cpum212 +++| EQ CDI CLEAR PP ACTIVITY BITS
Line S02739 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44424 M02S02739.253l688 ---| CTR SPACE 4,10
44425 M02S02740.253l688 ---|** CTR - CTR ISD PROCESSING.
Line S02162 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44426 M01S02162.253l688 +++| RTC SPACE 4,10
44427 M01S02163.253l688 +++|** RTC - RTCM ISD PROCESSING.
Line S02741 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
44428 M01S02741.251l664 +++|
44429 M01S02742.251l664 +++|
Line S02743 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44430 M02S02743.253l688 ---| CTR3 BX0 X3 SET TRT LENGTH
44431 M02S02744.253l688 ---| AX0 24
44432 M02S02745.253l688 ---| BX0 -X5*X0
44433 M02S02746.253l688 ---| SB4 X0
44434 M02S02747.253l688 ---| BX0 X0-X0
44435 M02S02748.253l688 ---| PX0 X0,B4
44436 M02S02749.253l688 ---| ZR B6,/PROGRAM/CTR2 IF NO INTERLOCK
44437 M02S02750.253l688 ---| EQ /PROGRAM/CTR1.1 INTERLOCK MST
Line S02164 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44438 M01S02164.253l688 +++|* SET INTERMEDIATE RESPONSE FOR ISHARED DEVICE.
44439 M01S02165.253l688 +++|
44440 M01S02166.253l688 +++| RTC SX3 B4
44441 M01S02167.253l688 +++| CX4 X3,EST CONVERT EST ORDINAL TO OFFSET
44442 M01S02168.253l688 +++| TA4 X4+EQDE,EST READ EST ENTRY
44443 M01S02169.253l688 +++| LX4 59-52
44444 M01S02170.253l688 +++| PL X4,/PROGRAM/CTR IF NOT ISHARED DEVICE
44445 M01S02171.253l688 +++| SX0 A5 REISSUE FUNCTION
44446 M01S02172.253l688 +++| SB3 /PROGRAM/PRG RETURN ADDRESS
44447 M01S02173.253l688 +++| EQ /PROGRAM/AMM ACTIVATE MONITOR MODE
44448 M01S02174.253l688 +++| SMD SPACE 4,10
44449 M01S02175.253l688 +++|** SMD - SMDM ISHARED PROCESSING.
44450 M01S02176.253l688 +++|
44451 M01S02177.253l688 +++|* CTCS - CLEAR TABLES-CURRENT FLAG
44452 M01S02178.253l688 +++|
Line S02179 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
44453 M02S02179.ns2579 ---| SUBFUN SMDM,(CTCS)
44454 M02S02180.ns2579 ---| SA4 A4 GET *SDGL*
Line S00013 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
44455 M01S00013.ns2579 +++| SUBFUN SMDM,(CTCS,C1AS)
Line S02181 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44456 M01S02181.253l688 +++| SX7 X2-CTCS
Line S00014 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
44457 M01S00014.ns2579 +++| SA2 A3+MCLL-TDGL
44458 M01S00015.ns2579 +++| ZR X7,SMD1 IF *CTCS*
44459 M01S00016.ns2579 +++| MX6 -48 CLEAR *1RU* OUTPUT REGISTER ADDRESS
44460 M01S00017.ns2579 +++| BX6 -X6*X2
44461 M01S00018.ns2579 +++| SA6 A2+
44462 M01S00019.ns2579 +++| SMD1 SA4 A4 GET *SDGL*
Line S02182 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44463 M01S02182.253l688 +++| SX6 B1 PRESERVE PROGRAM/MONITOR MODE INTERLOCK
Line S02183 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
44464 M02S02183.ns2579 ---| NZ X7,HNG1 IF NOT *CTCS*
Line S02184 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44465 M01S02184.253l688 +++| EQ /ISD/CDI CLEAR WAITING FOR LATENCY
44466 M01S02185.253l688 +++| SMU SPACE 4,25
44467 M01S02186.253l688 +++|** SMU - SET MRT-UPDATED FLAG.
44468 M01S02187.253l688 +++|*
44469 M01S02188.253l688 +++|* *SMU* SETS THE TRT- AND MRT-UPDATED FLAGS IN *SDGL*. THIS
44470 M01S02189.253l688 +++|* CAUSES *1RU* TO WRITE THE TRT AND MRT TO THE DEVICE. *SMU*
44471 M01S02190.253l688 +++|* ALSO COPIES THE (MST/RT UPDATE COUNTER + 1) FROM *SDGL* TO
44472 M01S02191.253l688 +++|* THIS MAINFRAME-S *DIT* ENTRY.
44473 M01S02192.253l688 +++|*
44474 M01S02193.253l688 +++|* ENTRY (X0) = 12/ TRT LENGTH +2000B, 48/ 0.
44475 M01S02194.253l688 +++|* (X4) = CALLER FLAG.
44476 M01S02195.253l688 +++|* .LT. 0, IF CALLED BY *DTC*.
44477 M01S02196.253l688 +++|* .EQ. 0, IF CALLED BY *STBM*.
44478 M01S02197.253l688 +++|* .GT. 0, IF CALLED BY *RTC*.
44479 M01S02198.253l688 +++|* (A3) = MST ADDRESS (*TDGL*).
Line S02199 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2547
Seq # *Modification Id* Act
----------------------------+
44480 M02S02199.ns2547 ---|* (A6) = MRT WORD.
Line S02200 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44481 M01S02200.253l688 +++|* (B3) = MRT FWA.
44482 M01S02201.253l688 +++|*
44483 M01S02202.253l688 +++|* EXIT (X6) = 0.
44484 M01S02203.253l688 +++|*
44485 M01S02204.253l688 +++|* USES X - 0, 1, 6.
44486 M01S02205.253l688 +++|* A - 1, 6.
44487 M01S02206.253l688 +++|* B - 3.
44488 M01S02207.253l688 +++|
44489 M01S02208.253l688 +++|
44490 M01S02209.253l688 +++| SMU MX6 2 SET TRT- AND MRT-UPDATE FLAGS
44491 M01S02210.253l688 +++| LX0 12 POSITION TRT LENGTH
44492 M01S02211.253l688 +++| LX6 -2
44493 M01S02212.253l688 +++|+ SA1 A3+SDGL-TDGL **** PERFORM IN ONE WORD ****
44494 M01S02213.253l688 +++| BX6 X1+X6 **** PERFORM IN ONE WORD ****
44495 M01S02214.253l688 +++| SA6 A1 **** PERFORM IN ONE WORD ****
44496 M01S02215.253l688 +++|
44497 M01S02216.253l688 +++|* SET THE UPDATE COUNTER IN THE *DIT*.
44498 M01S02217.253l688 +++|
44499 M01S02218.253l688 +++| SA1 A3+DULL-TDGL GET MAINFRAME INDEX
44500 M01S02219.253l688 +++| SX0 X0-2000B+7 GET MRT LENGTH
44501 M01S02220.253l688 +++| AX6 6 POSITION THE MST/TRT UPDATE COUNTER
44502 M01S02221.253l688 +++| AX0 3
44503 M01S02222.253l688 +++| SB3 B3+X0 FWA OF DIT
44504 M01S02223.253l688 +++| SX0 B1
44505 M01S02224.253l688 +++| IX6 X6+X0
44506 M01S02225.253l688 +++| MX0 -4
44507 M01S02226.253l688 +++| LX1 -24
44508 M01S02227.253l688 +++| BX1 -X0*X1 MAINFRAME INDEX - 1
44509 M01S02228.253l688 +++| SA1 X1+B3 DIT ENTRY FOR THIS MAINFRAME
44510 M01S02229.253l688 +++| MX0 -30
44511 M01S02230.253l688 +++| BX6 -X0*X6
44512 M01S02231.253l688 +++| LX1 -18
44513 M01S02232.253l688 +++| BX1 X0*X1 CLEAR THE OLD COUNTER VALUE
44514 M01S02233.253l688 +++| BX6 X1+X6
44515 M01S02234.253l688 +++| LX6 18
44516 M01S02235.253l688 +++| SA6 A1
44517 M01S02236.253l688 +++| SX6 B0+
44518 M01S02237.253l688 +++| NG X4,/PROGRAM/DTC5 IF CALLED BY *DTC*
44519 M01S02238.253l688 +++| NZ X4,/PROGRAM/RTC13 IF CALLED BY *RTC*
44520 M01S02239.253l688 +++| EQ /PROGRAM/CCP1 CHECK FOR CHECKPOINT REQUESTED
44521 M01S02240.253l688 +++| STB SPACE 4,15
44522 M01S02241.253l688 +++|** STB - STBM ISHARED PROCESSING.
44523 M01S02242.253l688 +++|
44524 M01S02243.253l688 +++|
44525 M01S02244.253l688 +++|
Line S26822 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44526 M01S26822.253l688 ---| RTC SPACE 4,10
44527 M01S26823.253l688 ---|** RTC - RTCM ISD PROCESSING.
Line S02245 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44528 M01S02245.253l688 +++|* SET THE LONG-TERM DEVICE INTERLOCK IN *MCLL*.
44529 M01S02246.253l688 +++|*
44530 M01S02247.253l688 +++|* ENTRY (A3) = MST ADDRESS (*TDGL*).
44531 M01S02248.253l688 +++|*
44532 M01S02249.253l688 +++|* EXIT (X6) = 1.
44533 M01S02250.253l688 +++|* TO */ISD/CDI*.
44534 M01S02251.253l688 +++|*
Line S02252 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
44535 M02S02252.ns2579 ---|* USES X - 2, 6.
Line S00020 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
44536 M01S00020.ns2579 +++|* USES X - 2, 6, 7.
Line S02253 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44537 M01S02253.253l688 +++|* A - 2, 6.
44538 M00S26824.cpumtr +++|
Line S02254 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44539 M01S02254.253l688 +++| STB2 SA2 A3+MCLL-TDGL SET LONG-TERM INTERLOCK
Line S02255 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
44540 M02S02255.ns2579 ---| SX6 B1+
Line S00021 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
44541 M01S00021.ns2579 +++| SX6 B1
Line S02256 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44542 M01S02256.253l688 +++| MX7 -42 GET ACTIVITY BITS
44543 M01S02257.253l688 +++| LX6 47-0
44544 M01S02258.253l688 +++| BX7 -X7*X2
44545 M01S02259.253l688 +++| BX6 X6+X2
44546 M01S02260.253l688 +++| CX7 X7
44547 M01S02261.253l688 +++| AX7 1
Line S02262 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
44548 M02S02262.ns2579 ---| NZ X7,STB3 IF OTHER REQUESTS REMAIN
44549 M02S02263.ns2579 ---| SA6 A2
Line S00022 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
44550 M01S00022.ns2579 +++| ZR X7,STB3.1 IF NO OTHER REQUESTS ARE PENDING
44551 M01S00023.ns2579 +++| SA4 A4 CLEAR THE MST/TRT INTERLOCK
44552 M01S00024.ns2579 +++| MX6 59
44553 M01S00025.ns2579 +++| BX6 X6*X4
44554 M01S00026.ns2579 +++| SA6 A4+
44555 M01S00027.ns2579 +++| EQ /PROGRAM/REJ REJECT REQUEST
44556 M01S00028.ns2579 +++|
44557 M01S00029.ns2579 +++| STB3 SA2 A3+MCLL-TDGL SET LONG-TERM INTERLOCK
44558 M01S00030.ns2579 +++| SA1 B2+17B GET ORIGINAL RESPONSE FROM PROGRAM MODE XP
Line S02264 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44559 M01S02264.253l688 +++| SX6 B1
Line S00031 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
44560 M01S00031.ns2579 +++| LX6 47-0
44561 M01S00032.ns2579 +++| BX6 X6+X2
44562 M01S00033.ns2579 +++| BX7 X1
44563 M01S00034.ns2579 +++| STB3.1 SA6 A2
44564 M01S00035.ns2579 +++| SX6 B1 PRESERVE MST/TRT INTERLOCK
Line S02265 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44565 M01S02265.253l688 +++| EQ /ISD/CDI EXIT
Line S26825 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
44566 M01S26825.ns2579 ---|
Line S26826 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
44567 M02S26826.ns2579 ---|* SET INTERMEDIATE RESPONSE FOR INDEPENDENT SHARED DEVICE.
Line S02266 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
44568 M02S02266.ns2579 ---| STB3 SA4 A4 CLEAR THE INTERLOCK
44569 M02S02267.ns2579 ---| MX6 59
44570 M02S02268.ns2579 ---| BX6 X6*X4
44571 M02S02269.ns2579 ---| SA6 A4
44572 M02S02270.ns2579 ---| EQ /PROGRAM/REJ REJECT REQUEST
44573 M00S26827.cpumtr +++|
Line S26828 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
44574 M01S26828.242l642 ---| RTC SX4 B5
Line S00625 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44575 M02S00625.253l688 ---| RTC SX4 B4
Line S26829 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44576 M01S26829.253l688 ---| SX3 ESTE
44577 M01S26830.253l688 ---| IX4 X4*X3
44578 M01S26831.253l688 ---| TA4 X4+EQDE,EST READ EST ENTRY
44579 M01S26832.253l688 ---| LX4 59-52
44580 M01S26833.253l688 ---| PL X4,/PROGRAM/CTR IF NOT INDEPENDENT SHARE DEVICE
44581 M01S26834.253l688 ---| MX4 3 SET INTERMEDIATE RESPONSE
44582 M01S26835.253l688 ---| BX7 X4+X7
44583 M01S26836.253l688 ---| SA7 A5+ STORE OR
44584 M01S26837.253l688 ---| EQ /PROGRAM/PRG EXIT
44585 M01S26838.253l688 ---| STB SPACE 4,10
44586 M01S26839.253l688 ---|** STB - STBM ISD PROCESSING.
Line S02271 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44587 M01S02271.253l688 +++|* CLEAR THE LONG-TERM DEVICE INTERLOCK IN *MCLL*.
44588 M01S02272.253l688 +++|*
44589 M01S02273.253l688 +++|* ENTRY (A3) = MST ADDRESS (*TDGL*).
44590 M01S02274.253l688 +++|*
44591 M01S02275.253l688 +++|* EXIT TO *CHR*.
44592 M01S02276.253l688 +++|*
44593 M01S02277.253l688 +++|* USES X - 2, 5, 6.
44594 M01S02278.253l688 +++|* A - 2, 5, 6.
44595 M01S02279.253l688 +++|* B - 3.
44596 M00S26840.cpumtr +++|
Line S26841 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44597 M01S26841.253l688 ---|
44598 M01S26842.253l688 ---|* IURS/DURS PROCESSING.
44599 M01S26843.253l688 ---|
44600 M01S26844.253l688 ---| STB24 SX1 B1
44601 M01S26845.253l688 ---| MX0 -6
44602 M01S26846.253l688 ---| SA4 A3+DULL READ DEVICE REQUEST COUNTS
44603 M01S26847.253l688 ---| LX4 12
44604 M01S26848.253l688 ---| BX6 -X0*X4 CONSECUTIVE REQUEST COUNT
44605 M01S26849.253l688 ---| LX4 -6
44606 M01S26850.253l688 ---| BX7 -X0*X4 UNIT RESERVE COUNT
44607 M01S26851.253l688 ---| LX2 -1
44608 M01S26852.253l688 ---| NG X2,STB26 IF DURS FUNCTION
44609 M01S26853.253l688 ---| IX4 X4+X1
44610 M01S26854.253l688 ---| SB4 X6-MCUR+1
44611 M01S26855.253l688 ---| LX4 6
44612 M01S26856.253l688 ---| IX6 X4+X1
44613 M01S26857.253l688 ---| PL B4,/PROGRAM/REJ IF TOO MANY CONSECUTIVE REQUESTS
44614 M01S26858.253l688 ---| NZ X7,STB25 IF OTHER PPS ALREADY ACTIVE ON THIS DEVICE
44615 M01S26859.253l688 ---| SA1 A3+SDGL CHECK MST INTERLOCK
44616 M01S26860.253l688 ---| MX2 -5
44617 M01S26861.253l688 ---| LX2 1
44618 M01S26862.253l688 ---| BX1 -X2*X1
44619 M01S26863.253l688 ---| NZ X1,/PROGRAM/REJ IF LAST MST/TRT UPDATE NOT COMPLETE
44620 M01S26864.253l688 ---| STB25 LX6 -12 STORE INTERLOCK WORD
44621 M01S26865.253l688 ---| SA6 A4 STORE INTERLOCK WORD
44622 M01S26866.253l688 ---| LX7 36
44623 M01S26867.253l688 ---| SA7 A5 STORE OR
44624 M01S26868.253l688 ---| EQ PPRX EXIT
44625 M01S26869.253l688 ---|
44626 M01S26870.253l688 ---|* DURS PROCESSING.
44627 M01S26871.253l688 ---|
44628 M01S26872.253l688 ---| STB26 IX7 X7-X1 DECREMENT RESERVE COUNT
44629 M01S26873.253l688 ---| IX6 X4-X1
44630 M01S26874.253l688 ---| NG X7,HNG IF UNDERFLOW
44631 M01S26875.253l688 ---| LX6 6
44632 M01S26876.253l688 ---| NZ X7,STB25 IF NOT LAST RESERVE
44633 M01S26877.253l688 ---| BX6 X5*X6
44634 M01S26878.253l688 ---| EQ STB25 EXIT TO STORE COUNTS
Line S02280 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44635 M01S02280.253l688 +++| STB4 SA2 A3+MCLL-TDGL CLEAR LONG-TERM INTERLOCK
44636 M01S02281.253l688 +++| SX6 B1
44637 M01S02282.253l688 +++| SA5 A5 RESTORE INPUT REGISTER
44638 M01S02283.253l688 +++| LX6 47-0
44639 M01S02284.253l688 +++| SB6 B0 DO NOT GET INTERLOCK
44640 M01S02285.253l688 +++| BX6 -X6*X2
44641 M01S02286.253l688 +++| SA6 A2
Line S02287 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2552
Seq # *Modification Id* Act
----------------------------+
44642 M02S02287.ns2552 ---| SB3 /PROGRAM/CCP1 SET *CTR* EXIT ADDRESS
Line S00001 Modification History
M01 (Added by) ns2552
Seq # *Modification Id* Act
----------------------------+
44643 M01S00001.ns2552 +++| SB3 STB5 SET *CTR* EXIT ADDRESS
Line S02288 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44644 M01S02288.253l688 +++| EQ CHR INITIATE *1RU*
Line S00002 Modification History
M01 (Added by) ns2552
Seq # *Modification Id* Act
----------------------------+
44645 M01S00002.ns2552 +++|
44646 M01S00003.ns2552 +++| STB5 UX4,B3 X0 SET *SMU* EXIT FLAG
44647 M01S00004.ns2552 +++| SB3 B6+B3 *MRT* FWA
44648 M01S00005.ns2552 +++| EQ SMU SET MRT UPDATE FLAG
Line S00036 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
44649 M01S00036.ns2579 +++| VMS SPACE 4,10
44650 M01S00037.ns2579 +++|** VMS - *VMSM* EXTENSION FOR *ISHARED* DEVICES.
44651 M01S00038.ns2579 +++|*
44652 M01S00039.ns2579 +++|* *VMS* DECIDES WHETHER *1RU* NEEDS TO BE CALLED FOR THIS
44653 M01S00040.ns2579 +++|* SUBFUNCTION.
44654 M01S00041.ns2579 +++|
44655 M01S00042.ns2579 +++|
44656 M01S00043.ns2579 +++| VMS SX3 X5 GET SUBFUNTION
44657 M01S00044.ns2579 +++| AX3 12
44658 M01S00045.ns2579 +++| NZ X3,/MONITOR/PMR IF *1RU* IS NOT REQUIRED
44659 M01S00046.ns2579 +++| ERRNZ VEIS CODE ASSUMES VALUE
44660 M01S00047.ns2579 +++| EQ CHR CHECK FOR HELPER REQUIRED
44661 M01S00048.ns2579 +++|
44662 M01S00049.ns2579 +++|
44663 M01S00050.ns2579 +++|* SET/CLEAR LONG-TERM INTERLOCK IN *MCLL*.
44664 M01S00051.ns2579 +++|
44665 M01S00052.ns2579 +++|* ENTRY (X3) = 1, IF (X7) = 0.
44666 M01S00053.ns2579 +++|* (X7) = RESPONSE.
44667 M01S00054.ns2579 +++|* (A3) = ADDRESS OF MST WORD *TDGL*.
44668 M01S00055.ns2579 +++|* (A5) = OUTPUT REGISTER ADDRESS.
44669 M01S00056.ns2579 +++|* (B5) = RETURN ADDRESS.
44670 M01S00057.ns2579 +++|
44671 M01S00058.ns2579 +++| VMS1 SA4 A3+SDGL-TDGL
44672 M01S00059.ns2579 +++| PL X4,VMS3 IF NOT AN ISHARED DEVICE
44673 M01S00060.ns2579 +++| SA2 A5 GET THE ORGINAL FUNCTION
44674 M01S00061.ns2579 +++| SX4 X2 GET THE SUBFUNCTION
44675 M01S00062.ns2579 +++| AX2 36 GET THE EST ORDINAL
44676 M01S00063.ns2579 +++| AX4 12
44677 M01S00064.ns2579 +++| SX2 X2+STBM*1S12-VMSM*1S12 CHANGE FUNCTION CODE TO *STBM*
44678 M01S00065.ns2579 +++| SX6 SLTS SET LONG-TERM INTERLOCK
44679 M01S00066.ns2579 +++| LX2 24
44680 M01S00067.ns2579 +++| BX6 X2+X6
44681 M01S00068.ns2579 +++| NZ X7,VMS2 IF VALIDATION ERRORS
44682 M01S00069.ns2579 +++| BX4 X4-X3
44683 M01S00070.ns2579 +++| ERRNZ VEQS-1 CODE ASSUMES VALUE
44684 M01S00071.ns2579 +++| NZ X4,/PROGRAM/CDI IF NOT *VEQS* SUBFUNCTION
44685 M01S00072.ns2579 +++| IX6 X6+X3 CLEAR DEVICE INTERLOCK
44686 M01S00073.ns2579 +++| ERRNZ SLTS+1-CDIS CODE ASSUMES VALUE
44687 M01S00074.ns2579 +++| VMS2 LX6 12
44688 M01S00075.ns2579 +++| SA6 A5
44689 M01S00076.ns2579 +++| SX0 A5 ISSUE *STBM*
44690 M01S00077.ns2579 +++| SB3 B5 RETURN ADDRESS
44691 M01S00078.ns2579 +++| EQ /PROGRAM/AMM ACTIVATE MONITOR MODE
44692 M01S00079.ns2579 +++|
44693 M01S00080.ns2579 +++| VMS3 NZ X7,/PROGRAM/CSM1 IF VALIDATION ERRORS
44694 M01S00081.ns2579 +++| EQ /PROGRAM/CDI CLEAR DEVICE INTERLOCK
44695 M00S26879.cpumtr +++| SPACE 4,10
44696 M00S26880.cpumtr +++|** DEFINE TAGS FROM MAIN BLOCK.
44697 M00S26881.cpumtr +++|
44698 M00S26882.cpumtr +++| HNG EQU /MONITOR/HNG
Line S02289 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44699 M01S02289.253l688 +++| HNG1 EQU /MONITOR/HNG1
44700 M00S26883.cpumtr +++| PPRX EQU /MONITOR/PPRX
44701 M00S26884.cpumtr +++| PPR1 EQU /MONITOR/PPR1
44702 M00S26885.cpumtr +++|
44703 M00S26886.cpumtr +++| ENDBLK
Line S26887 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
44704 M01S26887.251l664 ---| BLOCK ISDMMF,(SHARED DEVICE PROCESSING - MMF OR ISD.)
Line S02751 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
44705 M01S02751.251l664 +++| BLOCK ISDMMF,(SHARED DEVICE PROCESSING - MMF, LSPMMF OR ISD.)
Line S26888 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44706 M01S26888.253l688 ---| CMB SPACE 4,10
Line S02290 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44707 M01S02290.253l688 +++| CMB SPACE 4,15
44708 M00S26889.cpumtr +++|** CLEAR MRT BIT. (DROP TRACKS)
44709 M00S26890.cpumtr +++|* CALLED IN PROGRAM MODE.
Line S02291 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44710 M01S02291.253l688 +++|*
44711 M01S02292.253l688 +++|* ENTRY (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44712 M01S02293.253l688 +++|* (X4) = -3777B.
44713 M01S02294.253l688 +++|* (X7) = 2/ TRT BYTE, 40/, 18/ TRT WORD.
44714 M01S02295.253l688 +++|* (A3) = ADDRESS OF *TDGL* MST WORD.
44715 M01S02296.253l688 +++|* (B6) = TRT FWA.
44716 M01S02297.253l688 +++|*
44717 M01S02298.253l688 +++|* EXIT (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44718 M01S02299.253l688 +++|* (X4) = -3777B.
44719 M01S02300.253l688 +++|* (A6) = MRT WORD.
44720 M01S02301.253l688 +++|* (B3) = MRT FWA.
44721 M00S26891.cpumtr +++|
44722 M00S26892.cpumtr +++|
Line S26893 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44723 M01S26893.253l688 ---| CMB LX6 -3 SET MRT ADDRESS AND BIT NUMBER
44724 M01S26894.253l688 ---| BX5 X4*X6 MRT BIT NUMBER
44725 M01S26895.253l688 ---| SX7 B1
Line S02302 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44726 M01S02302.253l688 +++| CMB LX7 -3 SET MRT ADDRESS AND BIT NUMBER
44727 M01S02303.253l688 +++| BX5 X4*X7 MRT BIT NUMBER
44728 M01S02304.253l688 +++| SX6 B1
44729 M00S26896.cpumtr +++| LX5 5
Line S26897 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44730 M01S26897.253l688 ---| SB4 X5
44731 M01S26898.253l688 ---| LX7 X7,B4 POSITION MRT BIT
44732 M01S26899.253l688 ---| UX0,B4 X0 UNPACK LENGTH OF TRT
44733 M01S26900.253l688 ---| SB4 B4+X6
44734 M01S26901.253l688 ---| SA1 B4+B6 READ MRT WORD
44735 M01S26902.253l688 ---| BX7 -X7*X1 CLEAR BIT
44736 M01S26903.253l688 ---| BX5 X7-X1
44737 M01S26904.253l688 ---| SA7 A1
44738 M01S26905.253l688 ---| LX6 3
44739 M01S26906.253l688 ---| BX7 X7-X7
Line S02305 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44740 M01S02305.253l688 +++| SB3 X5
44741 M01S02306.253l688 +++| LX6 X6,B3 POSITION MRT BIT
44742 M01S02307.253l688 +++| UX1,B3 X0 UNPACK LENGTH OF TRT
44743 M01S02308.253l688 +++| SB3 B3+B6
44744 M01S02309.253l688 +++| SA1 B3+X7 READ MRT WORD
44745 M01S02310.253l688 +++| BX6 -X6*X1 CLEAR BIT
44746 M01S02311.253l688 +++| BX5 X6-X1
44747 M01S02312.253l688 +++| SA6 A1
44748 M01S02313.253l688 +++| LX7 3
44749 M01S02314.253l688 +++| BX6 X6-X6
Line S26907 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44750 M01S26907.253l688 ---| ZR X5,CMB2 IF MRT BIT NOT SET FOR THIS MACHINE
Line S26908 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44751 M02S26908.253l688 ---| CMB1 TNZ X0,(/PROGRAM/CMB,/PROGRAM/HNG,MMF) IF MMF SHARED
Line S02752 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
M03 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44752 M03S02752.253l688 ---| CMB1 TNZ X0,(/PROGRAM/CMB,/LSPMMF/CMB,MMF) IF MMF SHARED
Line S00858 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44753 M02S00858.253l688 ---| CMB1 TNZ X0,(/PROGRAM/CMB,MMF,/LSPMMF/CMB) IF MMF SHARED
Line S26909 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44754 M01S26909.253l688 ---| EQ /PROGRAM/DTC5 DROP TRACK CHAIN
44755 M01S26910.253l688 ---|
44756 M01S26911.253l688 ---| CMB2 SA1 A5 TEST ALLOWING DROP TRACKS FOR OTHER MF
Line S02315 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44757 M01S02315.253l688 +++| NZ X5,CMB1 IF MRT BIT SET FOR THIS MACHINE
44758 M01S02316.253l688 +++| SA1 A5 TEST ALLOWING DROP TRACKS FOR OTHER MF
44759 M00S26912.cpumtr +++| LX1 59-46
44760 M00S26913.cpumtr +++| PL X1,/PROGRAM/HNG IF NOT ALLOWED TO DROP THIS FILE
Line S26914 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44761 M01S26914.253l688 ---| EQ CMB1 COMPLETE REQUEST
Line S26915 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44762 M02S26915.253l688 ---| CTR SPACE 4,10
44763 M02S26916.253l688 ---|** CTR - CTR ISD/MMF PROCESSING.
44764 M02S26917.253l688 ---|
44765 M02S26918.253l688 ---|
44766 M02S26919.253l688 ---| CTR3 TPL X4,(/PROGRAM/SDI,/MONITOR/HNG1,MMF) IF MMF SHARED
44767 M02S26920.253l688 ---| BX0 X3 SET TRT LENGTH
44768 M02S26921.253l688 ---| AX0 24
44769 M02S26922.253l688 ---| BX0 -X5*X0
44770 M02S26923.253l688 ---| SB4 X0
44771 M02S26924.253l688 ---| BX4 X4-X4
44772 M02S26925.253l688 ---| PX0 X4,B4
44773 M02S26926.253l688 ---| ZR B6,/PROGRAM/CTR2 IF NO INTERLOCK
44774 M02S26927.253l688 ---| EQ /PROGRAM/CTR1.1 INTERLOCK MST
Line S26928 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44775 M01S26928.253l688 ---| SMB SPACE 4,10
Line S02317 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44776 M01S02317.253l688 +++| CMB1 TEQ (/ISD/SMU,ISD,/PROGRAM/SMU,MMF,/LSPMMF/SMU) COMPLETE
44777 M01S02318.253l688 +++| SMB SPACE 4,15
44778 M00S26929.cpumtr +++|** SET MRT BIT. (REQUEST TRACKS)
44779 M00S26930.cpumtr +++|* CALLED IN PROGRAM MODE.
Line S02753 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
44780 M01S02753.251l664 +++|*
Line S02754 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44781 M02S02754.253l688 ---|* ENTRY (X4) = TRACK TO SET MRT BIT FOR.
Line S02319 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44782 M01S02319.253l688 +++|* ENTRY (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44783 M01S02320.253l688 +++|* (X4) = TRACK NUMBER.
Line S02755 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
44784 M01S02755.251l664 +++|* (A3) = ADDRESS OF *TDGL* MST WORD.
Line S02321 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44785 M01S02321.253l688 +++|*
44786 M01S02322.253l688 +++|* EXIT (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44787 M01S02323.253l688 +++|* (X4) = TRACK NUMBER.
44788 M01S02324.253l688 +++|* (A6) = MRT WORD.
44789 M01S02325.253l688 +++|* (B3) = MRT FWA.
44790 M00S26931.cpumtr +++|
44791 M00S26932.cpumtr +++|
Line S26933 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
44792 M01S26933.251l664 ---| SMB MX6 -11
44793 M01S26934.251l664 ---| BX1 -X6*X4
44794 M01S26935.251l664 ---| MX6 -5
Line S02756 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
44795 M01S02756.251l664 +++| SMB MX6 -5
Line S26936 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
44796 M01S26936.251l664 ---| BX6 -X6*X1 MRT BIT NUMBER
44797 M01S26937.251l664 ---| AX1 5
44798 M01S26938.251l664 ---| UX0,B3 X0 UNPACK TRT LENGTH
44799 M01S26939.251l664 ---| SB3 B3+X1
44800 M01S26940.251l664 ---| SB1 X1 SAVE (X1)
44801 M01S26941.251l664 ---| SA1 A3+TRLL-TDGL SET FWA OF TRT
44802 M01S26942.251l664 ---| SA0 X1
44803 M01S26943.251l664 ---| SX1 B1 RESTORE (X1)
44804 M01S26944.251l664 ---| SB1 1 RESTORE (B1)
44805 M01S26945.251l664 ---| SA0 A0+B3
Line S02757 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
44806 M01S02757.251l664 +++| BX6 -X6*X4
44807 M00S26946.cpumtr +++| SB3 X6 MRT BIT NUMBER
44808 M00S26947.cpumtr +++| SX6 B1
44809 M00S26948.cpumtr +++| LX6 X6,B3 POSITION MRT BIT
Line S02758 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44810 M02S02758.253l688 ---| UX0,B3 X0 UNPACK TRT LENGTH
Line S02326 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44811 M01S02326.253l688 +++| UX1,B3 X0 UNPACK TRT LENGTH
Line S02759 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
44812 M01S02759.251l664 +++| SA1 A3+TRLL-TDGL SET FWA OF TRT
44813 M01S02760.251l664 +++| SB3 X1+B3 (B3) = START OF MRT
44814 M01S02761.251l664 +++| SX1 X4-4000B
44815 M01S02762.251l664 +++| LX1 -5
44816 M01S02763.251l664 +++| SA1 B3+X1 (A1) = MRT WORD ADDRESS
44817 M01S02764.251l664 +++| BX6 X1+X6
Line S26949 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
44818 M01S26949.251l664 ---| TNZ X0,(/PROGRAM/SMB,/PROGRAM/HNG,MMF) IF MMF SHARED
44819 M01S26950.251l664 ---| SA1 A0+ MRT WORD ADDRESS
44820 M01S26951.251l664 ---| BX6 X1+X6
44821 M01S26952.251l664 ---| SA6 A1
Line S02765 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
44822 M01S02765.251l664 +++| SA6 A1+
44823 M00S26953.cpumtr +++| SA0 /PROGRAM/TMSK-1 SCRATCH WORD
Line S02766 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
44824 M02S02766.252l678 ---| TNZ X0,(/PROGRAM/SMB,/LSPMMF/SMB,MMF) IF MMF SHARED
Line S00859 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44825 M02S00859.253l688 ---| TNZ X0,(/PROGRAM/SMB,MMF,/LSPMMF/SMB) IF MMF SHARED
Line S26954 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44826 M01S26954.253l688 ---| JP /PROGRAM/RTC13 RETURN
Line S02327 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44827 M01S02327.253l688 +++| TEQ (/ISD/SMU,ISD,/PROGRAM/SMU,MMF,/LSPMMF/SMU) COMPLETE
44828 M00S26955.cpumtr +++| STB SPACE 4,10
44829 M00S26956.cpumtr +++|* STBM SET/CLEAR MRT BIT.
44830 M00S26957.cpumtr +++|* CALLED IN PROGRAM MODE.
Line S02328 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44831 M01S02328.253l688 +++|*
44832 M01S02329.253l688 +++|* ENTRY (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44833 M01S02330.253l688 +++|* (X1) = 2/ TRT BYTE, 40/, 18/ TRT WORD.
44834 M01S02331.253l688 +++|* (X4) = 0.
44835 M01S02332.253l688 +++|* (A3) = ADDRESS OF *TDGL* MST WORD.
44836 M01S02333.253l688 +++|* (B3) = RESERVATION BIT SHIFT COUNT (0=*STFS*/*CTFS*).
44837 M01S02334.253l688 +++|* (B6) = TRT FWA.
44838 M01S02335.253l688 +++|*
44839 M01S02336.253l688 +++|* EXIT (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44840 M01S02337.253l688 +++|* (X4) = 0.
44841 M01S02338.253l688 +++|* (A6) = MRT WORD.
44842 M01S02339.253l688 +++|* (B3) = MRT FWA.
44843 M01S02340.253l688 +++|* (B4) .LT. TRT FWA.
44844 M01S02341.253l688 +++|* (X1) = FWA OF TRT TO UPDATE, IF NO MRT UPDATE.
44845 M01S02342.253l688 +++|* (X5) = LWA + 1 OF TRT TO UPDATE, IF NO MRT UPDATE.
44846 M00S26958.cpumtr +++|
Line S26959 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44847 M01S26959.253l688 ---| STB10 UX0,B4 X0
Line S02343 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44848 M01S02343.253l688 +++|
44849 M01S02344.253l688 +++| STB10 UX6,B4 X0
44850 M00S26960.cpumtr +++| ZR B3,STB12 IF FLAW REQUEST (NO MRT PROCESSING)
44851 M00S26961.cpumtr +++| LX1 2
44852 M00S26962.cpumtr +++| SX6 B3-6
44853 M00S26963.cpumtr +++| AX6 59
44854 M00S26964.cpumtr +++| MX3 -5
44855 M00S26965.cpumtr +++| BX3 -X3*X1 MRT BIT POSITION
44856 M00S26966.cpumtr +++| AX1 5 MRT WORD
44857 M00S26967.cpumtr +++| SB3 X3
44858 M00S26968.cpumtr +++| SX3 B1
44859 M00S26969.cpumtr +++| LX3 X3,B3 POSITION MRT BIT
44860 M00S26970.cpumtr +++| NZ X5,STB11 IF STIS/SPFS OPTION
44861 M00S26971.cpumtr +++| BX6 -X6
Line S26972 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44862 M01S26972.253l688 ---| STB11 SB4 B4+X1
Line S02345 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44863 M01S02345.253l688 +++| STB11 SB3 B4+B6
44864 M00S26973.cpumtr +++| BX6 X6*X3 NON ZERO IF SETTING MRT BIT
Line S26974 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44865 M01S26974.253l688 ---| SA2 B6+B4
44866 M01S26975.253l688 ---| BX2 -X3*X2 CLEAR OLD BIT
44867 M01S26976.253l688 ---| BX6 X2+X6 MERGE NEW BIT
44868 M01S26977.253l688 ---| SA6 A2
Line S26978 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44869 M02S26978.253l688 ---| TNZ X0,(/PROGRAM/STB10,/PROGRAM/HNG,MMF) IF MSD
44870 M02S26979.253l688 ---| STB12 TNZ X0,(/PROGRAM/STB11,/PROGRAM/HNG,MMF) IF MSD
Line S02767 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
M03 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44871 M03S02767.253l688 ---| TNZ X0,(/PROGRAM/STB10,/LSPMMF/STB,MMF) IF MSD
Line S00860 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
44872 M02S00860.253l688 ---| TNZ X0,(/PROGRAM/STB10,MMF,/LSPMMF/STB) IF MSD
Line S02346 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
44873 M01S02346.253l688 +++| SA1 B3+X1
44874 M01S02347.253l688 +++| BX1 -X3*X1 CLEAR OLD BIT
44875 M01S02348.253l688 +++| BX6 X1+X6 MERGE NEW BIT
44876 M01S02349.253l688 +++| SA6 A1
44877 M01S02350.253l688 +++| TEQ (/ISD/SMU,ISD,/PROGRAM/SMU,MMF,/LSPMMF/SMU) COMPLETE
44878 M01S02351.253l688 +++|
Line S02768 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
44879 M01S02768.251l664 +++| STB12 SX1 A4-B6 SET ONE WORD UPDATE FOR *CDI*
44880 M01S02769.251l664 +++| SX5 X1+B1
44881 M00S26980.cpumtr +++| EQ /PROGRAM/CCP1 RELEASE INTERLOCK
44882 M00S26981.cpumtr +++|
44883 M00S26982.cpumtr +++| ENDBLK
Line S00520 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
44884 M01S00520.283l840 +++| BLOCK BIOMMF,(SHARED BUFFERED DEVICE PROCESSING.)
44885 M01S00521.283l840 +++|
44886 M01S00522.283l840 +++| QUAL BUFIO
44887 M01S00523.283l840 +++| MTE SPACE 4,10
44888 M01S00524.283l840 +++|** MTE - PROCESS *MTEM* FUNCTION.
44889 M01S00525.283l840 +++|*
44890 M01S00526.283l840 +++|* PARAMETERS ARE VALIDATED AND THE FUNCTION PASSED
44891 M01S00527.283l840 +++|* TO *MTE*.
44892 M01S00528.283l840 +++|
44893 M01S00529.283l840 +++|
44894 M01S00530.283l840 +++| MTE BSS 0 ENTRY
44895 M01S00531.283l840 +++| MX3 -12
44896 M01S00532.283l840 +++| AX1 36
44897 M01S00533.283l840 +++| SB4 X1-MXMTEM
44898 M01S00534.283l840 +++| PL B4,/MONITOR/HNG IF INVALID SUBFUNCTION
44899 M01S00535.283l840 +++| BX2 -X3*X5 ISOLATE PARAMETER
44900 M01S00536.283l840 +++| LX5 -12 POSITION FOR NEXT PARAMETER
44901 M01S00537.283l840 +++| JP TMTE+TMTEL+B4 JUMP TO PROCESS FUNCTION
44902 M01S00538.283l840 +++|
44903 M01S00539.283l840 +++|* SUBFUNCTION TABLE.
44904 M01S00540.283l840 +++|
44905 M01S00541.283l840 +++| TMTE BSS 0
44906 M01S00542.283l840 +++| LOC 0
44907 M01S00543.283l840 +++|
44908 M01S00544.283l840 +++|+ LX5 -12 (CBRS) - CLEAR BAT READ ACCESS
44909 M01S00545.283l840 +++| BX4 -X3*X5 ISOLATE MACHINE INDEX
44910 M01S00546.283l840 +++| EQ MTE1 VALIDATE MACHINE INDEX/EST ORDINAL
44911 M01S00547.283l840 +++|
44912 M01S00548.283l840 +++|+ LX5 -12 (CBWS) - CLEAR BAT READ/WRITE ACCESS
44913 M01S00549.283l840 +++| BX4 -X3*X5
44914 M01S00550.283l840 +++| EQ MTE1 VALIDATE MACHINE INDEX/EST ORDINAL
44915 M01S00551.283l840 +++|
44916 M01S00552.283l840 +++|+ BX4 -X3*X5 (CEMS) - CLEAR EXTENDED MEMORY TRACK
44917 M01S00553.283l840 +++| LX5 -12
44918 M01S00554.283l840 +++| EQ MTE3 VALIDATE TRACK/SECTORS
44919 M01S00555.283l840 +++|
44920 M01S00556.283l840 +++|+ BX4 -X3*X5 (EBRS) - ENABLE BRT PROCESSING
44921 M01S00557.283l840 +++| EQ /LSPMMF/QPR QUEUE *MTE* REQUEST
44922 M01S00558.283l840 +++|
Line S00559 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq # *Modification Id* Act
----------------------------+
44923 M02S00559.ns2783 ---|+ EQ MTE2 (SBDS) - SET BUFFERED DEVICE INTERLOCK
Line S00128 Modification History
M01 (Added by) ns2783
Seq # *Modification Id* Act
----------------------------+
44924 M01S00128.ns2783 +++|+ EQ MTE2 (SEPS) - SET ERROR PROCESSING INTERLOCK
Line S00560 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
44925 M01S00560.283l840 +++|
Line S00561 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq # *Modification Id* Act
----------------------------+
44926 M02S00561.ns2783 ---|+ EQ MTE2 (CBDS) - CLEAR BUFFERED DEVICE INTERLOCK
Line S00129 Modification History
M01 (Added by) ns2783
Seq # *Modification Id* Act
----------------------------+
44927 M01S00129.ns2783 +++|+ EQ MTE2 (CEPS) - CLEAR ERROR PROCESSING INTERLOCK
Line S00562 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
44928 M01S00562.283l840 +++|
Line S00563 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq # *Modification Id* Act
----------------------------+
44929 M02S00563.ns2783 ---|+ EQ /LSPMMF/QPR (SRIS) - SET RECOVERY INTERLOCK
Line S00130 Modification History
M01 (Added by) ns2783
Seq # *Modification Id* Act
----------------------------+
44930 M01S00130.ns2783 +++|+ EQ /LSPMMF/QPR (SRIS) - SET RECOVERY ERROR INTERLOCK
Line S00564 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
44931 M01S00564.283l840 +++|
Line S00565 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq # *Modification Id* Act
----------------------------+
44932 M02S00565.ns2783 ---|+ EQ /LSPMMF/QPR (CRIS) - CLEAR RECOVERY INTERLOCK
Line S00131 Modification History
M01 (Added by) ns2783
Seq # *Modification Id* Act
----------------------------+
44933 M01S00131.ns2783 +++|+ EQ /LSPMMF/QPR (CRIS) - CLEAR RECOVERY ERROR INTERLOCK
Line S00566 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
44934 M01S00566.283l840 +++|
Line S00017 Modification History
M01 (Added by) ns2780
Seq # *Modification Id* Act
----------------------------+
44935 M01S00017.ns2780 +++|+ EQ MTE2 (RBPS) - RELEASE BAT/BST PERMISSIONS
Line S00132 Modification History
M01 (Added by) ns2783
Seq # *Modification Id* Act
----------------------------+
44936 M01S00132.ns2783 +++|
44937 M01S00133.ns2783 +++|+ EQ /LSPMMF/QPR (GRIS) - GET RECOVERY INTERLOCK STATUS
44938 M01S00134.ns2783 +++|
44939 M01S00135.ns2783 +++|+ EQ MTE2 (SRPS) - SET RESTORE PARITY INTERLOCK
44940 M01S00136.ns2783 +++|
44941 M01S00137.ns2783 +++|+ EQ MTE2 (CRPS) - CLEAR RESTORE PARITY INTERLOCK
44942 M01S00138.ns2783 +++|
44943 M01S00139.ns2783 +++|+ EQ MTE2 (GBDS) - GET *BDT* ENTRY
Line S00018 Modification History
M01 (Added by) ns2780
Seq # *Modification Id* Act
----------------------------+
44944 M01S00018.ns2780 +++|
Line S00567 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
44945 M01S00567.283l840 +++|
44946 M01S00568.283l840 +++| TMTEL BSS 0
44947 M01S00569.283l840 +++| LOC *O
44948 M01S00570.283l840 +++|
44949 M01S00571.283l840 +++| MTE1 SX4 X4-MXMF
44950 M01S00572.283l840 +++| PL X4,/MONITOR/HNG IF INVALID MACHINE INDEX
44951 M01S00573.283l840 +++| MTE2 CX4 X2,EST
44952 M01S00574.283l840 +++| TA4 X4+EQDE,EST READ EST ENTRY
44953 M01S00575.283l840 +++| BX1 X4
44954 M01S00576.283l840 +++| LX4 59-57
44955 M01S00577.283l840 +++| PL X4,/MONITOR/HNG IF NOT SHARED
Line S00578 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq # *Modification Id* Act
----------------------------+
44956 M02S00578.ns2783 ---| LX4 57-53
Line S00140 Modification History
M01 (Added by) ns2783
Seq # *Modification Id* Act
----------------------------+
44957 M01S00140.ns2783 +++| LX4 59-53-59+57
Line S00579 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
44958 M01S00579.283l840 +++| PL X4,/MONITOR/HNG IF NOT BUFFERED
44959 M01S00580.283l840 +++| TX0 X2,-ESTL
44960 M01S00581.283l840 +++| BX0 X1*X0
44961 M01S00582.283l840 +++| PL X0,/MONITOR/HNG IF NOT MASS STORAGE OR OUT OF EST
Line S00141 Modification History
M01 (Added by) ns2783
Seq # *Modification Id* Act
----------------------------+
44962 M01S00141.ns2783 +++| MX0 -12 GET MST ADDRESS
44963 M01S00142.ns2783 +++| BX0 -X0*X1
44964 M01S00143.ns2783 +++| LX0 3
44965 M01S00144.ns2783 +++| SA1 X0+MDGL GET *DAT* POINTER
44966 M01S00145.ns2783 +++| MX0 -8
44967 M01S00146.ns2783 +++| LX1 -48
44968 M01S00147.ns2783 +++| BX1 -X0*X1
44969 M01S00148.ns2783 +++| ZR X1,/MONITOR/HNG IF DEVICE IS NOT IN *DAT*
Line S00583 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
44970 M01S00583.283l840 +++| EQ /LSPMMF/QPR QUEUE FUNCTION FOR *MTE*
44971 M01S00584.283l840 +++|
44972 M01S00585.283l840 +++| MTE3 SX2 X2-4000B
44973 M01S00586.283l840 +++| NG X2,/MONITOR/HNG IF INVALID TRACK TO CLEAR
44974 M01S00587.283l840 +++| BX3 -X3*X5 FIRST SECTOR TO CLEAR
44975 M01S00588.283l840 +++| IX3 X3+X4 COMPUTE LAST SECTOR TO CLEAR
44976 M01S00589.283l840 +++| SA2 MMFL GET LINK DEVICE EST ORDINAL
44977 M01S00590.283l840 +++| MX0 -9
44978 M01S00591.283l840 +++| LX2 -36
44979 M01S00592.283l840 +++| BX2 -X0*X2
44980 M01S00593.283l840 +++| CX4 X2,EST
44981 M01S00594.283l840 +++| TA4 X4+EQAE,EST READ EST ENTRY
44982 M01S00595.283l840 +++| LX4 -24
44983 M01S00596.283l840 +++| MX0 -2
44984 M01S00597.283l840 +++| BX4 -X0*X4 EXTENDED MEMORY SHIFT COUNT
44985 M01S00598.283l840 +++| SB3 X4
44986 M01S00599.283l840 +++| SX1 20B
44987 M01S00600.283l840 +++| LX1 B3,X1 SECTOR LIMIT
44988 M01S00601.283l840 +++| IX1 X3-X1
44989 M01S00602.283l840 +++| PL X1,/MONITOR/HNG IF LAST SECTOR PAST TRACK END
44990 M01S00603.283l840 +++| EQ /LSPMMF/QPR QUEUE FUNCTION FOR *MTE*
44991 M01S00604.283l840 +++| LBS SPACE 4,10
44992 M01S00605.283l840 +++|** LBS - *LBM* EXTENSION FOR SHARED DEVICES.
44993 M01S00606.283l840 +++|*
44994 M01S00607.283l840 +++|* ENTRY (B6) = BUFFER MANAGER OPERATION CODE.
44995 M01S00608.283l840 +++|*
44996 M01S00609.283l840 +++|* EXIT TO BUFFER MANAGER FUNCTION PROCESSOR.
44997 M01S00610.283l840 +++|*
44998 M01S00611.283l840 +++|* USES X - 0, 1, 2, 6.
44999 M01S00612.283l840 +++|* A - 1, 2, 6.
45000 M01S00613.283l840 +++|
45001 M01S00614.283l840 +++|
45002 M01S00615.283l840 +++| LBS BSS 0 ENTRY
Line S00616 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq # *Modification Id* Act
----------------------------+
45003 M02S00616.cpum244 ---| SA1 SDUR
45004 M02S00617.cpum244 ---| ZR X1,LBS1 IF NO UNABLE TO RELEASE ACCESS STATUS
Line S00618 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45005 M01S00618.283l840 +++| SA2 RTCL
Line S00006 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45006 M01S00006.cpum244 +++| SA1 SDWR
Line S00619 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45007 M01S00619.283l840 +++| MX0 -36
Line S00007 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45008 M01S00007.cpum244 +++| BX2 -X0*X2
45009 M01S00008.cpum244 +++| ZR X1,LBS1 IF NO WRITE ACCESS REQUEST
Line S00620 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45010 M01S00620.283l840 +++| BX1 -X0*X1
Line S00621 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq # *Modification Id* Act
----------------------------+
45011 M02S00621.cpum244 ---| BX2 -X0*X2
Line S00622 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45012 M01S00622.283l840 +++| IX1 X2-X1
45013 M01S00623.283l840 +++| NG X1,LBS1 IF TIMEOUT NOT ELAPSED
45014 M01S00624.283l840 +++| SX6 B0+ CLEAR STATUS
45015 M01S00625.283l840 +++| SA6 A1+
Line S00626 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq # *Modification Id* Act
----------------------------+
45016 M02S00626.cpum244 ---| LBS1 JP B6+LBMA PROCESS FUNCTION
Line S00009 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45017 M01S00009.cpum244 +++| LBS1 SA1 SDUR
45018 M01S00010.cpum244 +++| ZR X1,LBS2 IF NO UNABLE TO RELEASE ACCESS STATUS
45019 M01S00011.cpum244 +++| BX1 -X0*X1
45020 M01S00012.cpum244 +++| IX1 X2-X1
45021 M01S00013.cpum244 +++| NG X1,LBS2 IF TIMEOUT NOT ELAPSED
45022 M01S00014.cpum244 +++| SX6 B0+ CLEAR STATUS
45023 M01S00015.cpum244 +++| SA6 A1+
45024 M01S00016.cpum244 +++| LBS2 JP B6+LBMA PROCESS FUNCTION
Line S00627 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45025 M01S00627.283l840 +++| CRR SPACE 4,10
45026 M01S00628.283l840 +++|** CRR - COMPLETE *MTE* REQUEST FOR READ ACCESS.
45027 M01S00629.283l840 +++|*
45028 M01S00630.283l840 +++|* EXIT TO *LBMX*.
45029 M01S00631.283l840 +++|*
45030 M01S00632.283l840 +++|* USES X - 0, 1, 2, 4, 5, 6, 7.
45031 M01S00633.283l840 +++|* A - 1, 2, 6.
45032 M01S00634.283l840 +++|* B - 4, 5.
45033 M01S00635.283l840 +++|*
45034 M01S00636.283l840 +++|* CALLS SBP.
45035 M01S00637.283l840 +++|
45036 M01S00638.283l840 +++|
45037 M01S00639.283l840 +++| CRR BSS 0 ENTRY
45038 M01S00640.283l840 +++| SX5 2 SET NEW STATUS
45039 M01S00641.283l840 +++| SX7 7 SET STATUS TO CHECK
45040 M01S00642.283l840 +++|
45041 M01S00643.283l840 +++|* ENTRY FROM *CWR*.
45042 M01S00644.283l840 +++|
45043 M01S00645.283l840 +++| CRR1 SA1 SDEO
45044 M01S00646.283l840 +++| SB5 CRR2 SET *SBP* RETURN ADDRESS
45045 M01S00647.283l840 +++| ZR X1,/PROGRAM/HNG IF NOT SHARED DEVICE
45046 M01S00648.283l840 +++| EQ SBP SET BST PARAMETERS
45047 M01S00649.283l840 +++|
45048 M01S00650.283l840 +++| CRR2 NG X2,/PROGRAM/HNG IF BST PROCESSING DISABLED
45049 M01S00651.283l840 +++| SA2 OPAR GET COMPLETION STATUS
45050 M01S00652.283l840 +++| BX7 X7*X4
45051 M01S00653.283l840 +++| SX7 X7-1
45052 M01S00654.283l840 +++| MX0 -1
45053 M01S00655.283l840 +++| NZ X7,/PROGRAM/HNG IF INCORRECT STATUS FOR RESPONSE
45054 M01S00656.283l840 +++| SB5 X2-1
45055 M01S00657.283l840 +++| BX4 X0*X4 CLEAR REQUEST IN PROGRESS FLAG
45056 M01S00658.283l840 +++| NG B5,CRR3 IF NORMAL COMPLETION
45057 M01S00659.283l840 +++| SX5 B0
45058 M01S00660.283l840 +++| ZR B5,CRR3 IF *BRT* ENTRY EVICTED BY *MTE*
45059 M01S00661.283l840 +++| GT B5,B1,/PROGRAM/HNG IF INCORRECT RESPONSE STATUS
45060 M01S00662.283l840 +++| LX1 48
45061 M01S00663.283l840 +++| LX3 36
45062 M01S00664.283l840 +++| SX7 B1+B1
45063 M01S00665.283l840 +++| BX6 X1+X3 SET EST ORDINAL AND TRACK
45064 M01S00666.283l840 +++| SA1 SDUR
45065 M01S00667.283l840 +++| SA2 RTCL
45066 M01S00668.283l840 +++| MX0 -36
45067 M01S00669.283l840 +++| BX7 X7*X4
45068 M01S00670.283l840 +++| NZ X7,/PROGRAM/HNG IF READ ACCESS CURRENTLY PRESENT
Line S00671 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq # *Modification Id* Act
----------------------------+
45069 M02S00671.cpum244 ---| SX7 100
Line S00017 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45070 M01S00017.cpum244 +++| SX7 SDUD
Line S00672 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45071 M01S00672.283l840 +++| NZ X1,CRR3 IF STATUS WORD IN USE
45072 M01S00673.283l840 +++| BX2 -X0*X2 SET TIMEOUT
45073 M01S00674.283l840 +++| IX2 X2+X7
45074 M01S00675.283l840 +++| BX6 X6+X2 SET UNABLE TO RELEASE ACCESS STATUS
45075 M01S00676.283l840 +++| SA6 A1
45076 M01S00677.283l840 +++| CRR3 SX1 60
45077 M01S00678.283l840 +++| SB4 -B4
45078 M01S00679.283l840 +++| BX4 X4+X5 SET NEW STATUS
45079 M01S00680.283l840 +++| SB4 X1+B4 SHIFT COUNT TO RESTORE ENTRY
45080 M01S00681.283l840 +++| LX6 B4,X4 UPDATE BST ENTRY
45081 M01S00682.283l840 +++| SA6 A4+
45082 M01S00683.283l840 +++| EQ LBMX EXIT BUFFER MANAGER
45083 M01S00684.283l840 +++| CWR SPACE 4,10
45084 M01S00685.283l840 +++|** CWR - COMPLETE *MTE* REQUEST FOR WRITE ACCESS.
45085 M01S00686.283l840 +++|*
45086 M01S00687.283l840 +++|* EXIT TO *CRR1*.
45087 M01S00688.283l840 +++|*
45088 M01S00689.283l840 +++|* USES X - 5, 6.
45089 M01S00690.283l840 +++|
45090 M01S00691.283l840 +++|
45091 M01S00692.283l840 +++| CWR BSS 0 ENTRY
45092 M01S00693.283l840 +++| SX5 6 SET NEW STATUS
45093 M01S00694.283l840 +++| SX7 5 SET STATUS TO CHECK
45094 M01S00695.283l840 +++| EQ CRR1 EXIT TO READ ACCESS PROCESSOR
45095 M01S00696.283l840 +++| RRA SPACE 4,15
45096 M01S00697.283l840 +++|** RRA - RELEASE READ ACCESS.
45097 M01S00698.283l840 +++|*
45098 M01S00699.283l840 +++|* EXIT TO *LBMX* IF ALL BUFFERS FLUSHED OR RELEASED.
45099 M01S00700.283l840 +++|* TO *SIS* IF WRITE ERROR ON BUFFER FLUSH.
45100 M01S00701.283l840 +++|* TO *SBB* IF ALL BUFFERS NOT FLUSHED OR RELEASED.
45101 M01S00702.283l840 +++|*
45102 M01S00703.283l840 +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
45103 M01S00704.283l840 +++|* A - 1, 3, 4, 6.
45104 M01S00705.283l840 +++|* B - 4, 5, 6.
45105 M01S00706.283l840 +++|*
45106 M01S00707.283l840 +++|* CALLS CHA, DCC, DCH, LCC, SBP.
45107 M01S00708.283l840 +++|
45108 M01S00709.283l840 +++|
45109 M01S00710.283l840 +++| RRA BSS 0 ENTRY
45110 M01S00711.283l840 +++| SX7 6 SET TO CLEAR READ AND WRITE ACCESS
45111 M01S00712.283l840 +++|
45112 M01S00713.283l840 +++|* SET BST INTERLOCK AND FIND HASH TABLE ENTRY.
45113 M01S00714.283l840 +++|* ENTRY FROM *RWA*.
45114 M01S00715.283l840 +++|
45115 M01S00716.283l840 +++| RRA1 SA1 SDEO
45116 M01S00717.283l840 +++| SB5 RRA2 SET RETURN ADDRESS
45117 M01S00718.283l840 +++| ZR X1,/PROGRAM/HNG IF NOT SHARED DEVICE
45118 M01S00719.283l840 +++| EQ SBP SET BST PARAMETERS
45119 M01S00720.283l840 +++|
45120 M01S00721.283l840 +++|* IN SOME CASES, *MTE* WILL REISSUE A *BMTR* OR *BMTW* REQUEST
45121 M01S00722.283l840 +++|* THAT HAD BEEN PREVIOUSLY COMPLETED SUCCESSFULLY BY *CPUMTR*.
45122 M01S00723.283l840 +++|* THIS IS NOT CONSIDERED AN ERROR CONDITION.
45123 M01S00724.283l840 +++|
45124 M01S00725.283l840 +++| RRA2 SX6 A4+
45125 M01S00726.283l840 +++| BX2 X7*X4
45126 M01S00727.283l840 +++| PX6 B4,X6
45127 M01S00728.283l840 +++| ZR X2,LBMX IF REQUEST PREVIOUSLY PROCESSED
45128 M01S00729.283l840 +++| SA6 RRAA SAVE BST POINTERS
45129 M01S00730.283l840 +++|
45130 M01S00731.283l840 +++|* FIND HASH TABLE ENTRY.
45131 M01S00732.283l840 +++|
45132 M01S00733.283l840 +++| RRA3 SA7 RRAB SAVE ACCESS INFORMATION
45133 M01S00734.283l840 +++| SB6 RRA4 SET *CHA* RETURN ADDRESS
45134 M01S00735.283l840 +++| SX7 -1 SET LOCATE HASH TABLE ENTRY
45135 M01S00736.283l840 +++| EQ CHA CALCULATE HASH ADDRESS
45136 M01S00737.283l840 +++|
45137 M01S00738.283l840 +++| RRA4 SA3 RRAB
Line S00739 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum240
Seq # *Modification Id* Act
----------------------------+
45138 M02S00739.cpum240 ---| SX7 X3+ RESET ACCESS INFORMATION
Line S00001 Modification History
M01 (Added by) cpum240
Seq # *Modification Id* Act
----------------------------+
45139 M01S00001.cpum240 +++| BX7 X3 RESET ACCESS INFORMATION
Line S00740 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45140 M01S00740.283l840 +++| ZR X1,RRA13 IF HASH TABLE ENTRY NOT FOUND
45141 M01S00741.283l840 +++| SA3 X1 GET HASH TABLE ENTRY
45142 M01S00742.283l840 +++| LX3 24
45143 M01S00743.283l840 +++|
45144 M01S00744.283l840 +++|* GET BUFFER STATUS.
45145 M01S00745.283l840 +++|
45146 M01S00746.283l840 +++| RRA5 LX3 -24
45147 M01S00747.283l840 +++| MX0 -12
45148 M01S00748.283l840 +++| BX6 -X0*X3 NEXT BUFFER ORDINAL
45149 M01S00749.283l840 +++| BX0 -X0*X3
45150 M01S00750.283l840 +++| SA6 INLB SET/CLEAR BUFFER INTERLOCK
45151 M01S00751.283l840 +++| LX6 CBTLS SET BUFFER ADDRESS
45152 M01S00752.283l840 +++| ZR X6,RRA13 IF END OF BUFFERS
45153 M01S00753.283l840 +++| TA2 X6+IOLK,CBT GET I/O INTERLOCK AND WRITE STATUS
45154 M01S00754.283l840 +++| SA3 A2+B1 GET HASH LINK
45155 M01S00755.283l840 +++| ERRNZ HSLK-IOLK-1
45156 M01S00756.283l840 +++| SA4 A3+B1 GET ACTIVITY COUNT
45157 M01S00757.283l840 +++| ERRNZ LSLK-HSLK-1
45158 M01S00758.283l840 +++| MX1 1
45159 M01S00759.283l840 +++| BX1 X1*X2 I/O INTERLOCK FLAG
45160 M01S00760.283l840 +++| BX6 X3
45161 M01S00761.283l840 +++| SA6 RRAC SAVE HASH LINKAGE
45162 M01S00762.283l840 +++| MX6 12
45163 M01S00763.283l840 +++| BX4 X6*X4 ACTIVITY COUNT
45164 M01S00764.283l840 +++| LX2 59-57
45165 M01S00765.283l840 +++| BX4 X1+X4
45166 M01S00766.283l840 +++| SX6 X0
45167 M01S00767.283l840 +++| PL X2,RRA8 IF NO WRITE DATA IN BUFFER
45168 M01S00768.283l840 +++|
45169 M01S00769.283l840 +++|* FLUSH AND RELINK WRITE BUFFER.
45170 M01S00770.283l840 +++|
45171 M01S00771.283l840 +++| MX1 1
45172 M01S00772.283l840 +++| BX7 X7+X1 INDICATE WRITE BUFFER FOUND
45173 M01S00773.283l840 +++| NZ X4,RRA7 IF I/O INTERLOCK OR ACTIVITY PRESENT
45174 M01S00774.283l840 +++| TA6 IORQ SET I/O REQUEST
45175 M01S00775.283l840 +++|+ XJ FLUSH BUFFER
45176 M01S00776.283l840 +++|
45177 M01S00777.283l840 +++| SB6 RRA6 SET *DCC* RETURN ADDRESS
45178 M01S00778.283l840 +++| EQ DCC DELINK BUFFER FROM CURRENT LIST
45179 M01S00779.283l840 +++|
45180 M01S00780.283l840 +++| RRA6 SB6 RRA11 SET *LCC* RETURN ADDRESS
45181 M01S00781.283l840 +++| TX1 DWTB
45182 M01S00782.283l840 +++| EQ LCC LINK BUFFER TO DATA WRITTEN LIST
45183 M01S00783.283l840 +++|
45184 M01S00784.283l840 +++| RRA7 PL X3,RRA11 IF NO WRITE ERROR
45185 M01S00785.283l840 +++| SX1 B1
45186 M01S00786.283l840 +++| LX1 57-0
45187 M01S00787.283l840 +++| BX7 X7+X1 SET WRITE ERROR
45188 M01S00788.283l840 +++| EQ RRA11 SET BUFFER NOT RELEASED
45189 M01S00789.283l840 +++|
45190 M01S00790.283l840 +++|* DELINK READ BUFFER FROM HASH TABLE.
45191 M01S00791.283l840 +++|
45192 M01S00792.283l840 +++| RRA8 SX1 X7-4
45193 M01S00793.283l840 +++| ZR X1,RRA11 IF RELEASING WRITE ACCESS
45194 M01S00794.283l840 +++| NZ X4,RRA11 IF I/O INTERLOCK OR ACTIVITY PRESENT
45195 M01S00795.283l840 +++| SB6 RRA9 SET *DCH* RETURN ADDRESS
45196 M01S00796.283l840 +++| EQ DCH DELINK BUFFER FROM HASH TABLE
45197 M01S00797.283l840 +++|
45198 M01S00798.283l840 +++| RRA9 SB6 RRA10 SET *DCC* RETURN ADDRESS
45199 M01S00799.283l840 +++| EQ DCC DELINK BUFFER FROM CURRENT LIST
45200 M01S00800.283l840 +++|
45201 M01S00801.283l840 +++| RRA10 SB6 RRA12 SET *LCC* RETURN ADDRESS
45202 M01S00802.283l840 +++| TX1 EMTB
45203 M01S00803.283l840 +++| EQ LCC LINK BUFFER TO EMPTY LIST
45204 M01S00804.283l840 +++|
45205 M01S00805.283l840 +++|* SET BUFFER NOT RELEASED.
45206 M01S00806.283l840 +++|
45207 M01S00807.283l840 +++| RRA11 SX1 1
45208 M01S00808.283l840 +++| LX1 58-0
45209 M01S00809.283l840 +++| BX7 X7+X1 INDICATE BUFFER NOT RELEASED
45210 M01S00810.283l840 +++|
45211 M01S00811.283l840 +++|* ADVANCE TO NEXT BUFFER.
45212 M01S00812.283l840 +++|
45213 M01S00813.283l840 +++| RRA12 SA3 RRAC RESTORE *HSLK* INFORMATION
45214 M01S00814.283l840 +++| EQ RRA5 PROCESS NEXT BUFFER
45215 M01S00815.283l840 +++|
45216 M01S00816.283l840 +++|* CHECK FOR MULTI-UNIT EQUIPMENT.
45217 M01S00817.283l840 +++|
45218 M01S00818.283l840 +++| RRA13 SA1 PUTO
45219 M01S00819.283l840 +++| MX0 -12
45220 M01S00820.283l840 +++| BX2 -X0*X1 CURRENT PUT ORDINAL
45221 M01S00821.283l840 +++| LX2 PUTLS
45222 M01S00822.283l840 +++| TA2 X2+HSCT,PUT
45223 M01S00823.283l840 +++| BX2 -X0*X2 NEXT PUT ORDINAL
45224 M01S00824.283l840 +++| ZR X2,RRA14 IF END OF UNITS
45225 M01S00825.283l840 +++| SA2 LSEC
45226 M01S00826.283l840 +++| AX1 36 SINGLE UNIT SECTOR LIMIT
45227 M01S00827.283l840 +++| IX6 X2+X1 ADVANCE SECTOR TO NEXT UNIT
45228 M01S00828.283l840 +++| SA6 A2+
45229 M01S00829.283l840 +++| EQ RRA3 PROCESS NEXT UNIT
45230 M01S00830.283l840 +++|
45231 M01S00831.283l840 +++|* CLEAR ACCESS FLAGS IN BST IF ALL BUFFERS RELEASED OR FLUSHED.
Line S00018 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45232 M01S00018.cpum244 +++|* IF ANOTHER MACHINE IS WAITING FOR WRITE ACCESS TO THE TRACK
45233 M01S00019.cpum244 +++|* AND NO ACTIVITY REMAINS ON THIS MACHINE, THE TIMEOUT DELAY IN
45234 M01S00020.cpum244 +++|* *SDWR* IS SET TO *SDMD* MILLISECONDS FROM THE CURRENT TIME.
45235 M01S00021.cpum244 +++|* THIS IS TO ALLOW *MTE* ON THE MACHINE REQUESTING WRITE ACCESS
45236 M01S00022.cpum244 +++|* TIME TO PROCESS THE REQUEST.
Line S00832 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45237 M01S00832.283l840 +++|
45238 M01S00833.283l840 +++| RRA14 SA4 RRAA
45239 M01S00834.283l840 +++| BX1 X7
45240 M01S00835.283l840 +++| LX1 3
45241 M01S00836.283l840 +++| SX7 X7 STATUS FLAGS TO CLEAR
45242 M01S00837.283l840 +++| SX1 X1 CURRENT BUFFER ACCESS STATUS
45243 M01S00838.283l840 +++| BX2 X1*X7
45244 M01S00839.283l840 +++| UX4,B4 X4 RESET BST PARAMETERS
45245 M01S00840.283l840 +++| NZ X2,RRA15 IF NOT ALL BUFFERS RELEASED/FLUSHED
45246 M01S00841.283l840 +++| SA4 X4 GET BST ENTRY
45247 M01S00842.283l840 +++| LX4 B4
45248 M01S00843.283l840 +++| SB5 60
45249 M01S00844.283l840 +++| BX4 -X7*X4 CLEAR READ/WRITE ACCESS
45250 M01S00845.283l840 +++| SB4 B5-B4
45251 M01S00846.283l840 +++| LX6 X4,B4
45252 M01S00847.283l840 +++| SA6 A4 UPDATE BST ENTRY
Line S00023 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45253 M01S00023.cpum244 +++| SX1 X7-6
45254 M01S00024.cpum244 +++| NZ X1,LBMX IF NOT RELEASING READ ACCESS
45255 M01S00025.cpum244 +++| SA1 SDWR
45256 M01S00026.cpum244 +++| SA3 LTRK
45257 M01S00027.cpum244 +++| SA4 SDEO
45258 M01S00028.cpum244 +++| AX1 36
45259 M01S00029.cpum244 +++| LX4 12
45260 M01S00030.cpum244 +++| BX4 X4+X3
45261 M01S00031.cpum244 +++| BX6 X4-X1
45262 M01S00032.cpum244 +++| NZ X6,LBMX IF NO WAIT REQUEST FOR TRACK
45263 M01S00033.cpum244 +++| SA2 RTCL
45264 M01S00034.cpum244 +++| MX0 -36
45265 M01S00035.cpum244 +++| LX1 36
45266 M01S00036.cpum244 +++| SX7 SDMD
45267 M01S00037.cpum244 +++| BX6 X1+X7
45268 M01S00038.cpum244 +++| BX2 -X0*X2
45269 M01S00039.cpum244 +++| IX6 X6+X2 SET TIME DELAY
45270 M01S00040.cpum244 +++| SA6 A1 UPDATE REQUEST
Line S00848 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45271 M01S00848.283l840 +++| EQ LBMX EXIT WITH NORMAL STATUS
45272 M01S00849.283l840 +++|
45273 M01S00850.283l840 +++|* PROCESS ERROR RETURN.
45274 M01S00851.283l840 +++|
45275 M01S00852.283l840 +++| RRA15 LX1 59-0
Line S00041 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45276 M01S00041.cpum244 +++| MX0 -36
Line S00853 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45277 M01S00853.283l840 +++| NG X1,SIS IF WRITE ERROR ON FLUSH
Line S00042 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45278 M01S00042.cpum244 +++| SX1 X7-6
45279 M01S00043.cpum244 +++| NZ X1,SBB IF NOT RELEASING READ ACCESS
45280 M01S00044.cpum244 +++| SA1 SDWR
45281 M01S00045.cpum244 +++| SA2 RTCL
45282 M01S00046.cpum244 +++| SA3 LTRK
45283 M01S00047.cpum244 +++| SA4 SDEO
45284 M01S00048.cpum244 +++| NZ X1,SBB IF STATUS WORD IN USE
45285 M01S00049.cpum244 +++| SX7 SDWD SET TIME DELAY
45286 M01S00050.cpum244 +++| BX2 -X0*X2
45287 M01S00051.cpum244 +++| LX3 36
45288 M01S00052.cpum244 +++| LX4 48
45289 M01S00053.cpum244 +++| IX7 X2+X7 SET TIMEOUT
45290 M01S00054.cpum244 +++| BX6 X4+X3 MERGE EST ORDINAL AND TRACK
45291 M01S00055.cpum244 +++| BX6 X6+X7 MERGE TIMEOUT
45292 M01S00056.cpum244 +++| SA6 A1+ SET WRITE ACCESS REQUESTED
Line S00854 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45293 M01S00854.283l840 +++| EQ SBB RETURN BUFFER BUSY STATUS
45294 M01S00855.283l840 +++|
45295 M01S00856.283l840 +++|
45296 M01S00857.283l840 +++| RRAA BSS 1 BST PARAMETERS
45297 M01S00858.283l840 +++| RRAB BSS 1 ACCESS MASK
45298 M01S00859.283l840 +++| RRAC BSS 1 CURRENT *HSLK* WORD
45299 M01S00860.283l840 +++| RWA SPACE 4,10
45300 M01S00861.283l840 +++|** RWA - RELEASE WRITE ACCESS.
45301 M01S00862.283l840 +++|*
45302 M01S00863.283l840 +++|* EXIT TO *RRA1* TO PROCESS FUNCTION.
45303 M01S00864.283l840 +++|*
45304 M01S00865.283l840 +++|* USES X - 7.
45305 M01S00866.283l840 +++|
45306 M01S00867.283l840 +++|
45307 M01S00868.283l840 +++| RWA BSS 0 ENTRY
45308 M01S00869.283l840 +++| SX7 4 SET TO CLEAR WRITE ACCESS
45309 M01S00870.283l840 +++| EQ RRA1 EXIT TO PROCESS FUNCTION
45310 M01S00871.283l840 +++| CSD SPACE 4,25
45311 M01S00872.283l840 +++|** CSD - CHECK SHARED DEVICE ACCESS.
45312 M01S00873.283l840 +++|*
45313 M01S00874.283l840 +++|* ENTRY (B6) = *CHA* RETURN ADDRESS.
45314 M01S00875.283l840 +++|* (X7) = BUFFERS ALLOCATED FLAG.
45315 M01S00876.283l840 +++|*
45316 M01S00877.283l840 +++|* EXIT TO *CHA* IF NOT SHARED DEVICE OR IF SHARED DEVICE AND
45317 M01S00878.283l840 +++|* BUFFER CAN BE ACCESSED.
45318 M01S00879.283l840 +++|* TO *CHA* RETURN ADDRESS IF SHARED DEVICE AND BUFFER
45319 M01S00880.283l840 +++|* CANNOT BE ACCESSED IN REQUESTED MODE.
45320 M01S00881.283l840 +++|* TO *SIS* IF BUFFER ON MACHINE HOLDING WRITE ACCESS
45321 M01S00882.283l840 +++|* CANNOT BE FLUSHED (DEVICE INACCESSIBLE).
45322 M01S00883.283l840 +++|* (X2) = -2 (REQUIRED FOR EXIT TO *CHA* CALLER WHEN
45323 M01S00884.283l840 +++|* BUFFER CANNOT BE ACCESSED IN REQUESTED
45324 M01S00885.283l840 +++|* MODE).
45325 M01S00886.283l840 +++|* (X7) = BUFFERS ALLOCATED FLAG.
45326 M01S00887.283l840 +++|*
45327 M01S00888.283l840 +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
45328 M01S00889.283l840 +++|* A - 1, 2, 6.
45329 M01S00890.283l840 +++|* B - 4, 5.
45330 M01S00891.283l840 +++|*
45331 M01S00892.283l840 +++|* CALLS SBP.
45332 M01S00893.283l840 +++|
45333 M01S00894.283l840 +++|
45334 M01S00895.283l840 +++| CSD BSS 0 ENTRY
45335 M01S00896.283l840 +++|
45336 M01S00897.283l840 +++|* ENTRY FOR READ ACCESS.
45337 M01S00898.283l840 +++|
45338 M01S00899.283l840 +++| SX5 2 SET TO CHECK READ ACCESS
45339 M01S00900.283l840 +++| EQ CSD2
45340 M01S00901.283l840 +++|
45341 M01S00902.283l840 +++|* ENTRY FOR WRITE ACCESS.
45342 M01S00903.283l840 +++|
45343 M01S00904.283l840 +++| CSD1 SX5 4 SET TO CHECK WRITE ACCESS
45344 M01S00905.283l840 +++|
45345 M01S00906.283l840 +++|* CHECK ACCESS TO SHARED DEVICE.
45346 M01S00907.283l840 +++|
45347 M01S00908.283l840 +++| CSD2 SA1 SDEO GET EST ORDINAL IF SHARED DEVICE
45348 M01S00909.283l840 +++| ZR X1,CHA IF NOT SHARED DEVICE
45349 M01S00910.283l840 +++| SB5 CSD3 SET *SBP* RETURN ADDRESS
45350 M01S00911.283l840 +++| EQ SBP SET BST PARAMETERS
45351 M01S00912.283l840 +++|
45352 M01S00913.283l840 +++| CSD3 NG X2,CHA IF BST PROCESSING DISABLED
Line S00914 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq # *Modification Id* Act
----------------------------+
45353 M02S00914.cpum244 ---| BX0 X5*X4
45354 M02S00915.cpum244 ---| AX5 2
45355 M02S00916.cpum244 ---| NZ X0,CHA IF ACCESS PRESENT
45356 M02S00917.cpum244 ---| SA2 SDUR
Line S00057 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45357 M01S00057.cpum244 +++| SA2 SDWR
Line S00918 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45358 M01S00918.283l840 +++| LX1 48
45359 M01S00919.283l840 +++| LX3 36
45360 M01S00920.283l840 +++| MX0 24
45361 M01S00921.283l840 +++| BX6 X1+X3 FORMAT EST ORDINAL AND TRACK FOR REQUEST
Line S00058 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45362 M01S00058.cpum244 +++| BX1 X5*X4
Line S00922 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45363 M01S00922.283l840 +++| BX2 X0*X2
Line S00059 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45364 M01S00059.cpum244 +++| AX5 2
Line S00923 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45365 M01S00923.283l840 +++| BX2 X2-X6
Line S00924 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq # *Modification Id* Act
----------------------------+
45366 M02S00924.cpum244 ---| ZR X2,SIS IF UNABLE TO RELEASE ACCESS CONDITION
Line S00060 Modification History
M01 (Added by) cpum244
Seq # *Modification Id* Act
----------------------------+
45367 M01S00060.cpum244 +++| ZR X2,CSD4 IF WRITE ACCESS REQUESTED ON OTHER MACHINE
45368 M01S00061.cpum244 +++| NZ X1,CHA IF REQUESTED ACCESS PRESENT
45369 M01S00062.cpum244 +++| SA2 SDUR
45370 M01S00063.cpum244 +++| BX2 X0*X2
45371 M01S00064.cpum244 +++| BX2 X2-X6
45372 M01S00065.cpum244 +++| ZR X2,SIS IF UNABLE TO RELEASE WRITE ACCESS
Line S00925 Modification History
M01 (Added by) 283l840
Seq # *Modification Id* Act
----------------------------+
45373 M01S00925.283l840 +++|
45374 M01S00926.283l840 +++|* MAKE *MTE* REQUEST.
45375 M01S00927.283l840 +++|
45376 M01S00928.283l840 +++| SX0 B1
45377 M01S00929.283l840 +++| BX1 X0*X4
45378 M01S00930.283l840 +++| NZ X1,CSD4 IF *MTE* REQUEST ALREADY IN PROGRESS
45379 M01S00931.283l840 +++| SA1 /LSPMMF/MTIN READ *IN*
45380 M01S00932.283l840 +++| SA2 A1+B1 READ *OUT*
45381 M01S00933.283l840 +++| ERRNZ /LSPMMF/MTOT-/LSPMMF/MTIN-1
45382 M01S00934.283l840 +++| LX5 35-0
45383 M01S00935.283l840 +++| BX6 X6+X5 SET READ/WRITE FLAG IN REQUEST
45384 M01S00936.283l840 +++| BX4 X4+X0 SET *MTE* REQUEST FLAG
45385 M01S00937.283l840 +++| MX0 -6
45386 M01S00938.283l840 +++| SX3 X1+B1
45387 M01S00939.283l840 +++| BX3 -X0*X3 NEW *IN*
45388 M01S00940.283l840 +++| BX2 X2-X3
45389 M01S00941.283l840 +++| ZR X2,CSD4 IF REQUEST QUEUE FULL
45390 M01S00942.283l840 +++| SA6 X1+/LSPMMF/MTBT ENTER REQUEST
Line S00943 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq # *Modification Id* Act
----------------------------+
45391 M02S00943.cpum244 ---| SX6 X3+