Seq # *Modification Id* Act
----------------------------+
05202 M01S00779.271l750 +++| SA7 A4 WRITE *CSWL*
05203 M00S02897.cpumtr +++| JP B3 RETURN
05204 M00S02898.cpumtr +++|
Line S02899 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05205 M01S02899.271l716 ---| RCC12 SA7 A0+CSWL SET SWITCH REQUEST
05206 M01S02900.271l716 ---| RCC13 BX4 X4-X4
05207 M01S02901.271l716 ---| EQ RCC11 CLEAR RECALL ACCUMULATOR
05208 M01S02902.271l716 ---|
Line S02903 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05209 M01S02903.271l750 ---|* CLEAR *JCIW* INTERLOCK.
Line S00780 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05210 M01S00780.271l750 +++|* CLEAR *MTR* BYPASS FLAG.
05211 M00S02904.cpumtr +++|
Line S02905 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05212 M01S02905.271l750 ---| RCC14 SA2 A2 GET *JCIW*
05213 M01S02906.271l750 ---| SX7 B1
05214 M01S02907.271l750 ---| LX7 38
05215 M01S02908.271l750 ---| BX7 -X7*X2 CLEAR INTERLOCK
05216 M01S02909.271l750 ---| SA7 A2
Line S00781 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05217 M01S00781.271l750 +++| RCC14 SX7 B1
05218 M01S00782.271l750 +++| LX7 26-0
05219 M01S00783.271l750 +++| BX6 -X7*X3 CLEAR BYPASS FLAG
05220 M01S00784.271l750 +++| SA6 A3 WRITE *CWQW*
05221 M00S02910.cpumtr +++| JP B3 RETURN
05222 M00S02911.cpumtr +++|
Line S02912 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05223 M01S02912.271l750 ---| RCC15 SX2 B1 SET CPU STATUS AT ROLLOUT
Line S00785 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05224 M01S00785.271l750 +++|* PROCESS RECALL REQUEST WITH ROLLOUT PENDING.
05225 M01S00786.271l750 +++|
05226 M01S00787.271l750 +++| RCC15 LX1 12+24-59
05227 M01S00788.271l750 +++| SX2 B1
05228 M01S00789.271l750 +++| AX1 48 EXTRACT ERROR FLAG
05229 M00S02913.cpumtr +++| LX2 25
Line S02914 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05230 M01S02914.271l750 ---| BX6 X2+X6
Line S00790 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05231 M01S00790.271l750 +++| NZ X1,RB3 IF ERROR FLAG SET
05232 M01S00791.271l750 +++| BX6 X2+X6 SET CPU STATUS AT ROLLOUT
05233 M00S02915.cpumtr +++| LX2 59-25
05234 M00S02916.cpumtr +++| BX6 -X2*X6 CLEAR *W* STATUS
05235 M00S02917.cpumtr +++| SA6 A1 SET NULL STATUS
05236 M00S02918.cpumtr +++| JP B3 RETURN
Line S02919 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05237 M01S02919.271l750 ---| RSC SPACE 4,25
Line S00792 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05238 M01S00792.271l750 +++| RSC SPACE 4,30
05239 M00S02920.cpumtr +++|** RSC - RETURN SUB-SYSTEM CONTROL POINT ADDRESS.
05240 M00S02921.cpumtr +++|*
05241 M00S02922.cpumtr +++|* ENTRY (X0) = -7777B
05242 M00S02923.cpumtr +++|* (X1) = SUBSYSTEM IDENTIFICATION.
05243 M00S02924.cpumtr +++|* (B3) = EXIT ADDRESS.
05244 M00S02925.cpumtr +++|* ((B3)-1) = EXIT ADDRESSES FOR ERROR CASES.
05245 M00S02926.cpumtr +++|* ((B3)-1) = 12/ A1-XA,18/ A2,12/ A3-XA,18/ A4
05246 M00S02927.cpumtr +++|* XA = EXIT ADDRESS = (B3)
05247 M00S02928.cpumtr +++|* A1 = EXIT ADDRESS IF SUB-SYSTEM NOT ACTIVE.
05248 M00S02929.cpumtr +++|* NOTE - IF THE SUB-SYSTEM FL IS ZERO IT
05249 M00S02930.cpumtr +++|* IS TREATED AS A NOT ACTIVE CONDITION.
05250 M00S02931.cpumtr +++|* A2 = EXIT ADDRESS IF ILLEGAL SUBSYSTEM ID.
05251 M00S02932.cpumtr +++|* A3 = EXIT ADDRESS IF JOB ADVANCE OR DMP= SET.
05252 M00S02933.cpumtr +++|* A4 = EXIT ADDRESS IF STORAGE MOVE SET.
05253 M00S02934.cpumtr +++|* (B7) = CALLER,S CONTROL POINT ADDRESS.
05254 M00S02935.cpumtr +++|*
05255 M00S02936.cpumtr +++|* EXIT (X0) = -7777B
05256 M00S02937.cpumtr +++|* (X3) = SUB-SYSTEM RA.
05257 M00S02938.cpumtr +++|* (X6) = SUB-SYSTEM FL.
05258 M00S02939.cpumtr +++|* (A2) = STSW ADDRESS IN SUB-SYSTEM CONTROL POINT AREA.
05259 M00S02940.cpumtr +++|*
05260 M00S02941.cpumtr +++|* USES X - 1, 2, 3, 6.
05261 M00S02942.cpumtr +++|* B - 6.
05262 M00S02943.cpumtr +++|* A - 1, 2.
05263 M00S02944.cpumtr +++|*
05264 M00S02945.cpumtr +++|* CALLS RSI.
05265 M00S02946.cpumtr +++|
05266 M00S02947.cpumtr +++|
05267 M00S02948.cpumtr +++| RSC SB6 RSC1 SET RETURN ADDRESS FOR *RSI*
05268 M00S02949.cpumtr +++| EQ RSI1 RETURN SUBSYSTEM INFORMATION
05269 M00S02950.cpumtr +++|
05270 M00S02951.cpumtr +++|* RETURN FROM *RSI* IF ILLEGAL SUBSYSTEM IDENTIFICATION.
05271 M00S02952.cpumtr +++|
05272 M00S02953.cpumtr +++| RSC1 SA1 B3-B1 GET RETURN ADDRESS
05273 M00S02954.cpumtr +++| AX1 30
05274 M00S02955.cpumtr +++| EQ RSC6 RETURN
05275 M00S02956.cpumtr +++|
05276 M00S02957.cpumtr +++|* RETURN FROM *RSI* WITH SUBSYSTEM INFORMATION.
05277 M00S02958.cpumtr +++|
05278 M00S02959.cpumtr +++|+ SB6 X3 SHIFT COUNT
05279 M00S02960.cpumtr +++| AX2 B6
05280 M00S02961.cpumtr +++| LX2 -12
05281 M00S02962.cpumtr +++| MX3 -5
05282 M00S02963.cpumtr +++| PL X2,RSC4 IF SUBSYSTEM NOT ACTIVE
05283 M00S02964.cpumtr +++| SA2 A2+SSCTL GET *SSAT* WORD FOR THIS SUBSYSTEM
05284 M00S02965.cpumtr +++| AX2 B6
05285 M00S02966.cpumtr +++| BX6 -X0*X2 GET EJT ORDINAL OF SUBSYSTEM
Line S02967 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
05286 M01S02967.261l700 ---| SX2 EJTE
05287 M01S02968.261l700 ---| IX2 X6*X2
Line S00008 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
05288 M01S00008.261l700 +++| CX2 X6,EJT CONVERT EJT ORDINAL TO OFFSET
05289 M00S02969.cpumtr +++| TA2 X2+JSNE,EJT GET EJT ENTRY
05290 M00S02970.cpumtr +++| LX2 -1
05291 M00S02971.cpumtr +++| BX6 -X3*X2 GET JOB STATUS
05292 M00S02972.cpumtr +++| SX6 X6-EXJS
05293 M00S02973.cpumtr +++| LX2 59-6+1
05294 M00S02974.cpumtr +++| NZ X6,RSC4 IF SUBSYSTEM NOT AT CONTROL POINT
05295 M00S02975.cpumtr +++| NG X2,RSC7 IF JOB ADVANCE SET ON SUBSYSTEM
05296 M00S02976.cpumtr +++| SA2 A2+SCHE-JSNE GET CONTROL POINT NUMBER
05297 M00S02977.cpumtr +++| AX2 12
05298 M00S02978.cpumtr +++| BX6 -X3*X2
05299 M00S02979.cpumtr +++| LX6 7 SUBSYSTEM CONTROL POINT ADDRESS
05300 M00S02980.cpumtr +++| SA2 X6+JCIW READ JOB CONTROL
05301 M00S02981.cpumtr +++| AX2 24
05302 M00S02982.cpumtr +++| BX3 X2-X1
05303 M00S02983.cpumtr +++| SA1 SMRL CHECK FOR STORAGE MOVE IN PROGRESS
05304 M00S02984.cpumtr +++| BX3 -X0*X3
05305 M00S02985.cpumtr +++| NZ X3,RSC4 IF SUB-SYSTEM NOT ACTIVE
Line S02986 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05306 M01S02986.271l716 ---| BX1 X1-X6
05307 M01S02987.271l716 ---| BX1 -X0*X1
05308 M01S02988.271l716 ---| SA2 X6+STSW
Line S00153 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05309 M01S00153.271l716 +++| BX1 -X0*X1
05310 M01S00154.271l716 +++| LX1 7
Line S00155 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05311 M02S00155.271l750 ---| ERRNZ STSW+1-JCIW CODE DEPENDS ON VALUE
05312 M02S00156.271l750 ---| SA2 A2-B1
Line S00793 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05313 M01S00793.271l750 +++| SA2 X6+STSW
Line S00157 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05314 M01S00157.271l716 +++| BX1 X1-X6
05315 M00S02989.cpumtr +++| ZR X1,RSC5 IF SUBSYSTEM MOVING
05316 M00S02990.cpumtr +++| RSC2 SA1 A2+FLSW-STSW GET RA AND FL
05317 M00S02991.cpumtr +++| BX6 -X0*X1 EXTRACT FL
05318 M00S02992.cpumtr +++| LX1 -RSHF
05319 M00S02993.cpumtr +++| ZR X6,RSC4 IF ZERO FL - TREAT AS NOT ACTIVE
05320 M00S02994.cpumtr +++| MX3 -RMSK
05321 M00S02995.cpumtr +++| BX3 -X3*X1
05322 M00S02996.cpumtr +++| LX6 6
05323 M00S02997.cpumtr +++| LX3 6
05324 M00S02998.cpumtr +++| SA1 A2+SPCW-STSW CHECK DMP= PROCESSING
05325 M00S02999.cpumtr +++| AX1 48
05326 M00S03000.cpumtr +++| NZ X1,RSC7 IF DMP= IN PROGRESS
05327 M00S03001.cpumtr +++| JP B3
05328 M00S03002.cpumtr +++|
05329 M00S03003.cpumtr +++|* EXIT IF SUB-SYSTEM NOT ACTIVE.
05330 M00S03004.cpumtr +++|
05331 M00S03005.cpumtr +++| RSC4 SA1 B3-B1
05332 M00S03006.cpumtr +++| AX1 48
05333 M00S03007.cpumtr +++| EQ RSC8 RETURN
05334 M00S03008.cpumtr +++|
05335 M00S03009.cpumtr +++|* EXIT IF MOVE FLAG SET.
05336 M00S03010.cpumtr +++|
05337 M00S03011.cpumtr +++| RSC5 SA1 B3-B1
05338 M00S03012.cpumtr +++| SB6 X6
05339 M00S03013.cpumtr +++| EQ B6,B7,RSC2 IF CALLER,S CP .EQ. SUB-SYSTEM,S CP
05340 M00S03014.cpumtr +++| RSC6 SB3 X1
05341 M00S03015.cpumtr +++| JP B3 RETURN
05342 M00S03016.cpumtr +++|
05343 M00S03017.cpumtr +++|* EXIT IF ADVANCE FLAG SET.
05344 M00S03018.cpumtr +++|
05345 M00S03019.cpumtr +++| RSC7 SA1 B3-1
05346 M00S03020.cpumtr +++| LX1 30
05347 M00S03021.cpumtr +++| AX1 48
05348 M00S03022.cpumtr +++| RSC8 SB3 B3+X1
05349 M00S03023.cpumtr +++| JP B3 RETURN
05350 M00S03024.cpumtr +++| RSI SPACE 4,15
05351 M00S03025.cpumtr +++|** RSI - RETURN SUBSYSTEM IDENTIFICATION.
05352 M00S03026.cpumtr +++|*
05353 M00S03027.cpumtr +++|* ENTRY (X0) = -7777B.
05354 M00S03028.cpumtr +++|* (X1) = SUBSYSTEM IDENTIFICATION IF ENTRY AT *RSI1*.
05355 M00S03029.cpumtr +++|* (B6) = RETURN ADDRESS IF NOT SUBSYSTEM.
05356 M00S03030.cpumtr +++|* RETURN TO (B6)+1 WITH SUBSYSTEM INFORMATION.
05357 M00S03031.cpumtr +++|* (B7) = CONTROL POINT ADDRESS OF SUBSYSTEM IF
05358 M00S03032.cpumtr +++|* ENTRY AT *RSI*.
05359 M00S03033.cpumtr +++|*
05360 M00S03034.cpumtr +++|* EXIT (A2) = ADDRESS OF *SSCT* WORD FOR THIS SUBSYSTEM.
05361 M00S03035.cpumtr +++|* (X1) = SUBSYSTEM IDENTIFICATION.
05362 M00S03036.cpumtr +++|* (X2) = *SSCT* ENTRY FOR THIS SUBSYSTEM.
05363 M00S03037.cpumtr +++|* (X3) = SHIFT COUNT TO POSITION TO BYTE IN *SSCT*
05364 M00S03038.cpumtr +++|* WORD FOR THIS SUBSYSTEM INFORMATION.
05365 M00S03039.cpumtr +++|*
05366 M00S03040.cpumtr +++|* USES A - 2.
05367 M00S03041.cpumtr +++|* X - 1, 2, 3, 6.
05368 M00S03042.cpumtr +++|
05369 M00S03043.cpumtr +++|
05370 M00S03044.cpumtr +++| RSI SA1 B7+JCIW GET SUBSYSTEM IDENTIFICATION
05371 M00S03045.cpumtr +++| LX1 36
05372 M00S03046.cpumtr +++| BX1 -X0*X1
05373 M00S03047.cpumtr +++| RSI1 SX6 X1-LSSI-1
05374 M00S03048.cpumtr +++| NG X6,RB6 IF NOT SUBSYSTEM
05375 M00S03049.cpumtr +++| SX6 X1-MXSI-1
05376 M00S03050.cpumtr +++| PL X6,RB6 IF NOT SUBSYSTEM
05377 M00S03051.cpumtr +++| TX3 -1,SSCT GET FWA - 1 OF *SSCT* TABLE
05378 M00S03052.cpumtr +++| SB6 B6+1 ADVANCE RETURN ADDRESS
05379 M00S03053.cpumtr +++| RSI2 SX6 X6+5
05380 M00S03054.cpumtr +++| SX3 X3+1
05381 M00S03055.cpumtr +++| NG X6,RSI2 IF *SSCT* WORD NOT REACHED
05382 M00S03056.cpumtr +++| LX6 2
05383 M00S03057.cpumtr +++| SA2 X3 GET *SSCT* WORD FOR THIS SUBSYSTEM
05384 M00S03058.cpumtr +++| LX3 X6,B1
05385 M00S03059.cpumtr +++| IX3 X3+X6 SHIFT COUNT FOR SUBSYSTEM BYTE
05386 M00S03060.cpumtr +++| JP B6 RETURN
05387 M00S03061.cpumtr +++| SCD SPACE 4,10
05388 M00S03062.cpumtr +++|** SCD - SEARCH CENTRAL LIBRARY DIRECTORY.
05389 M00S03063.cpumtr +++|*
05390 M00S03064.cpumtr +++|* ENTRY (X2) = 42/ ENTRY POINT NAME, 18/
05391 M00S03065.cpumtr +++|* (B6) = RETURN ADDRESS.
05392 M00S03066.cpumtr +++|*
05393 M00S03067.cpumtr +++|* EXIT (X7) = ADDRESS OF PST.
05394 M00S03068.cpumtr +++|* (X7) = 0 IF NOT FOUND.
05395 M00S03069.cpumtr +++|*
05396 M00S03070.cpumtr +++|* USES X - 1, 2, 3, 4, 5, 7.
05397 M00S03071.cpumtr +++|* A - 1, 2.
05398 M00S03072.cpumtr +++|* B - 4, 5.
05399 M00S03073.cpumtr +++|
05400 M00S03074.cpumtr +++|
05401 M00S03075.cpumtr +++| SCD SA1 EPDP READ DIRECTORY ADDRESS
05402 M00S03076.cpumtr +++| MX4 42
05403 M00S03077.cpumtr +++| SX3 B1
05404 M00S03078.cpumtr +++| BX7 X4*X2 ENTRY POINT NAME
05405 M00S03079.cpumtr +++| AX1 36
05406 M00S03080.cpumtr +++| SA2 LBDP FIND END OF DIRECTORY
05407 M00S03081.cpumtr +++| SB4 X1 FWA OF DIRECTORY
05408 M00S03082.cpumtr +++| AX2 12
05409 M00S03083.cpumtr +++| LX3 41-1
05410 M00S03084.cpumtr +++| IX2 X2-X3
05411 M00S03085.cpumtr +++| SB5 X2 LWA+1 OF DIRECTORY
05412 M00S03086.cpumtr +++| EQ SCD2 ENTER LOOP
05413 M00S03087.cpumtr +++|
05414 M00S03088.cpumtr +++| SCD1 BX1 -X4*X1
05415 M00S03089.cpumtr +++| ZR X5,SCD4 IF ENTRY POINT FOUND
05416 M00S03090.cpumtr +++| SB4 A1+B1 RESET FWA OF SEARCH
05417 M00S03091.cpumtr +++| SCD2 SX1 B5-B4 LENGTH OF SEARCH INTERVAL
05418 M00S03092.cpumtr +++| AX1 1
05419 M00S03093.cpumtr +++| EQ B4,B5,SCD3 IF END OF SEARCH
05420 M00S03094.cpumtr +++| SA1 B4+X1 GET DIRECTORY ENTRY
05421 M00S03095.cpumtr +++| NO
05422 M00S03096.cpumtr +++| BX5 X4*X1 ENTRY POINT NAME
05423 M00S03097.cpumtr +++| IX5 X7-X5
05424 M00S03098.cpumtr +++| PL X5,SCD1 IF PROGRAM .GE. SAMPLE ENTRY
05425 M00S03099.cpumtr +++| SB5 A1+
05426 M00S03100.cpumtr +++| SCD3 GT B5,B4,SCD2 IF MORE DIRECTORY TO SEARCH
05427 M00S03101.cpumtr +++| SX7 B0+ CLEAR REPLY (ENTRY POINT NOT FOUND)
05428 M00S03102.cpumtr +++| JP B6 RETURN
05429 M00S03103.cpumtr +++|
05430 M00S03104.cpumtr +++|* ENTRY POINT FOUND.
05431 M00S03105.cpumtr +++|
05432 M00S03106.cpumtr +++| SCD4 SA2 PSTP GET FWA OF PST
05433 M00S03107.cpumtr +++| AX2 12
05434 M00S03108.cpumtr +++| BX2 -X4*X2
05435 M00S03109.cpumtr +++| IX7 X1+X2 ADDRESS OF PST ENTRY
05436 M00S03110.cpumtr +++| JP B6 RETURN
05437 M00S03111.cpumtr +++| SEF SPACE 4,15
05438 M00S03112.cpumtr +++|** SEF - SET ERROR FLAG.
05439 M00S03113.cpumtr +++|*
05440 M00S03114.cpumtr +++|* ENTRY (B7) = CP ADDRESS.
05441 M00S03115.cpumtr +++|* (X7) = ERROR FLAG.
Line S00794 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05442 M01S00794.271l750 +++|* JOB ACTIVE IN THIS CPU.
05443 M00S03116.cpumtr +++|*
05444 M00S03117.cpumtr +++|* EXIT TO *SSE* IF SUBCONTROL POINT ACTIVE.
05445 M00S03118.cpumtr +++|* TO *MTRX* IF NEW .LT. CURRENT ERROR FLAG.
05446 M00S03119.cpumtr +++|* TO *SNS* IN NORMAL CASE.
05447 M00S03120.cpumtr +++|*
05448 M00S03121.cpumtr +++|* USES X - 1, 2, 4, 6, 7.
05449 M00S03122.cpumtr +++|* A - 1, 6.
05450 M00S03123.cpumtr +++|* B - 3, 5.
05451 M00S03124.cpumtr +++|*
05452 M00S03125.cpumtr +++|* CALLS MSC.
05453 M00S03126.cpumtr +++|
05454 M00S03127.cpumtr +++|
05455 M00S03128.cpumtr +++| SEF SA1 B7+STSW READ CP STATUS
05456 M00S03129.cpumtr +++| BX6 X1
05457 M00S03130.cpumtr +++| LX1 59-56
Line S03131 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
05458 M01S03131.252l678 ---| SEF1 TNG X1,(/MONITOR/SSE,/MONITOR/SEF1,SUBCP)
Line S00102 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
05459 M01S00102.252l678 +++| SEF1 TNG X1,(/MONITOR/SSE,SUBCP,/MONITOR/SEF1)
05460 M00S03132.cpumtr +++| MX2 -12
05461 M00S03133.cpumtr +++| LX7 36
05462 M00S03134.cpumtr +++| LX2 36
05463 M00S03135.cpumtr +++| BX4 -X2*X6 GET OLD ERROR FLAG
05464 M00S03136.cpumtr +++| IX4 X7-X4
05465 M00S03137.cpumtr +++| ZR X7,SEF2 IF NEW ERROR FLAG IS ZERO
05466 M00S03138.cpumtr +++| NG X4,MTRX IF OLD .GT. NEW ERROR FLAG
Line S03139 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05467 M01S03139.271l750 ---| SEF2 SX1 SABT * SYSTEM ABORT.*
Line S03140 Modification History
M01 (Removed by) cpum201
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05468 M02S03140.271l750 ---| ZR B7,SEF3 IF CONTROL POINT ZERO
Line S00001 Modification History
M01 (Added by) cpum201
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05469 M02S00001.271l750 ---| TZR B7,(/MONITOR/SEF4,NVE,/MONITOR/SEF3) IF CP ZERO
Line S03141 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05470 M01S03141.271l750 ---| TB3 SCA
05471 M01S03142.271l750 ---| EQ B7,B3,SEF3 IF SYSTEM CONTROL POINT
Line S00795 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05472 M01S00795.271l750 +++| SEF2 TB3 SCA
05473 M01S00796.271l750 +++| EQ B7,B3,SEF2.1 IF SYSTEM CONTROL POINT
05474 M00S03143.cpumtr +++| IX6 X6+X4
05475 M00S03144.cpumtr +++| SA6 A1
05476 M00S03145.cpumtr +++| EQ SNS SET NULL CPU STATUS
Line S00797 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05477 M01S00797.271l750 +++|
05478 M01S00798.271l750 +++| SEF2.1 SA1 CPAL+A0
05479 M01S00799.271l750 +++| AX1 42
05480 M01S00800.271l750 +++| SX2 X1-IDXT
05481 M01S00801.271l750 +++| SX1 SABT * SYSTEM ABORT.*
05482 M01S00802.271l750 +++| TPL X2,(/MONITOR/SEF4,NVE,/MONITOR/SEF3) IF IDLE PACKAGE
05483 M00S03146.cpumtr +++|
05484 M00S03147.cpumtr +++| SEF3 SB5 MTRX SET EXIT ADDRESS FOR *MSC*
05485 M00S03148.cpumtr +++| EQ MSC SET MESSAGE AT SYSTEM CONTROL POINT
Line S00002 Modification History
M01 (Added by) cpum201
Seq # *Modification Id* Act
----------------------------+
05486 M01S00002.cpum201 +++|
05487 M01S00003.cpum201 +++| SEF4 SB5 ZERL ABORT AFTER POSTING MESSAGE
05488 M01S00004.cpum201 +++| EQ MSC SET MESSAGE AT SYSTEM CONTROL POINT
05489 M00S03149.cpumtr +++| SFL SPACE 4,15
05490 M00S03150.cpumtr +++|** SFL - SET FIELD LENGTH.
05491 M00S03151.cpumtr +++|*
Line S03152 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05492 M01S03152.271l716 ---|* ENTRY (B6) = EXCHANGE PACKAGE ADDRESS.
Line S00158 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05493 M01S00158.271l716 +++|* ENTRY (B5) = 0 IF NOT *MTR* CALL.
05494 M01S00159.271l716 +++|* (B6) = EXCHANGE PACKAGE ADDRESS.
Line S03153 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
05495 M01S03153.273l780 ---|* (B7) = CONTROL POINT ADDRESS.
Line S00110 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
05496 M01S00110.273l780 +++|* (B7) = CONTROL POINT ADDRESS IF .NE. 0.
05497 M01S00111.273l780 +++|* (B7) = 0 IF CMR REQUEST FROM *MTR*.
05498 M00S03154.cpumtr +++|* (X0) = INCREMENT.
05499 M00S03155.cpumtr +++|*
05500 M00S03156.cpumtr +++|* EXIT TO *MTRX*.
05501 M00S03157.cpumtr +++|*
Line S03158 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
05502 M01S03158.273l780 ---|* USES X - 0, 2, 3, 4, 6, 7.
Line S00112 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
05503 M01S00112.273l780 +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
05504 M00S03159.cpumtr +++|* B - 3, 4.
05505 M00S03160.cpumtr +++|* A - 2, 3, 4, 6, 7.
05506 M00S03161.cpumtr +++|*
05507 M00S03162.cpumtr +++|* CALLS CJS, SJS, SRU.
05508 M00S03163.cpumtr +++|
Line S03164 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05509 M01S03164.271l716 ---|
Line S00160 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05510 M01S00160.271l716 +++| SFL BSS 0 ENTRY
05511 M01S00161.271l716 +++| SA2 A0+CPAL FETCH CPU ASSIGNMENT DATA
05512 M01S00162.271l716 +++| SA3 ACML
05513 M01S00163.271l716 +++| SX6 B7
05514 M01S00164.271l716 +++| BX7 -X0 COMPLEMENT INCREMENT
05515 M01S00165.271l716 +++| AX2 24 POSITION CP ADDRESS
05516 M01S00166.271l716 +++| LX7 36-6
05517 M01S00167.271l716 +++| AX6 7-1
05518 M01S00168.271l716 +++| IX7 X3+X7 ADJUST AVAILABLE MEMORY
05519 M01S00169.271l716 +++| SB3 X2+
05520 M01S00170.271l716 +++| SA6 UMTA SET MCT INDEX FOR CP
05521 M01S00171.271l716 +++| SA7 A3+
05522 M00S03165.cpumtr +++|
05523 M00S03166.cpumtr +++|* UPDATE EXCHANGE PACKAGE AND CP STATUS.
05524 M00S03167.cpumtr +++|
Line S03168 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05525 M01S03168.271l716 ---| SFL SA4 B6+2 READ EXCHANGE PACKAGE FL
05526 M01S03169.271l716 ---| SA3 B7+FLSW READ FL STATUS
05527 M01S03170.271l716 ---| MX1 -12
05528 M01S03171.271l716 ---| AX0 6 POSITION INCREMENT
05529 M01S03172.271l716 ---| SA2 CPAL+A0 CHECK CPU ACTIVE
05530 M01S03173.271l716 ---| IX7 X3+X0 UPDATE FL
05531 M01S03174.271l716 ---| SA3 A3+B1
05532 M01S03175.271l716 ---| IX6 X3+X0
05533 M01S03176.271l716 ---| AX2 24
05534 M01S03177.271l716 ---|+ SA6 A3 UPDATE FL WORDS IN 1 WORD OF CODE
05535 M01S03178.271l716 ---| BX6 -X1*X7 NEW FL
05536 M01S03179.271l716 ---| SB3 X2
05537 M01S03180.271l716 ---| SA7 A3-B1 STORE FL STATUS
05538 M01S03181.271l716 ---| LX6 36+6 POSITION NEW FL
05539 M01S03182.271l716 ---| MX7 24
05540 M01S03183.271l716 ---| BX4 -X7*X4 CLEAR OLD FL
05541 M01S03184.271l716 ---| BX6 X4+X6 INSERT NEW FL
05542 M01S03185.271l716 ---| SA6 A4 UPDATE EXCHANGE PACKAGE
05543 M01S03186.271l716 ---| NE B3,B7,SFL1 IF THIS CPU NOT ACTIVE ON THIS JOB
05544 M01S03187.271l716 ---| SB4 SFL1 CHECK JOB STATUS
05545 M01S03188.271l716 ---| JP CJS
Line S00172 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05546 M01S00172.271l716 +++| SFL1 SA3 B7+FLSW GET FL STATUS WORDS
05547 M01S00173.271l716 +++| AX0 6
05548 M01S00174.271l716 +++| SA4 A3+B1
05549 M01S00175.271l716 +++| TA2 X6,MCT FETCH MCT ENTRY
05550 M01S00176.271l716 +++| MX1 -12
05551 M01S00177.271l716 +++| IX6 X3+X0 UPDATE FIELD LENGTH
05552 M01S00178.271l716 +++| + SA6 A3
05553 M01S00179.271l716 +++| IX7 X4+X0 MODIFY *FLSW* + 1
05554 M01S00180.271l716 +++| BX6 -X1*X6
05555 M01S00181.271l716 +++| SA7 A4 CHANGE CPA WORDS IN 1 WORD OF CODE
05556 M01S00182.271l716 +++| SA3 B6+2
05557 M01S00183.271l716 +++| IX7 X2-X0 ADJUST UNASSIGNED CM ABOVE CP/PCP
05558 M01S00184.271l716 +++| SA7 A2
Line S00185 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
05559 M02S00185.273l780 ---| ZR B7,SFL2 IF CONTROL POINT ZERO
Line S00113 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
05560 M01S00113.273l780 +++| ZR B7,SFL2 IF CMR REQUEST
Line S00186 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05561 M01S00186.271l716 +++| MX7 -36
05562 M01S00187.271l716 +++| BX4 -X7*X3 CLEAR OLD FL
05563 M01S00188.271l716 +++| LX6 36+6
05564 M01S00189.271l716 +++| BX6 X6+X4 UPDATE EXCHANGE PACKAGE FL
05565 M01S00190.271l716 +++| SA6 B6+2
05566 M01S00191.271l716 +++| SFL2 ZR B5,SFL3 IF NOT *MTR* CALL
05567 M01S00192.271l716 +++| SX6 0
05568 M01S00193.271l716 +++| SA6 SMRL
Line S00194 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
05569 M02S00194.273l780 ---| ZR B7,MTRX IF CONTROL POINT ZERO
Line S00114 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
05570 M01S00114.273l780 +++| ZR B7,MTRX IF CMR REQUEST
Line S00195 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05571 M01S00195.271l716 +++| SFL3 NE B3,B7,SFL4 IF CURRENT CPU NOT ACTIVE ON THIS JOB
05572 M01S00196.271l716 +++| SB4 SFL4
05573 M01S00197.271l716 +++| JP CJS CHECK JOB STATUS
05574 M00S03189.cpumtr +++|
05575 M00S03190.cpumtr +++|* UPDATE CM USAGE.
05576 M00S03191.cpumtr +++|
Line S03192 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05577 M01S03192.271l716 ---| SFL1 SB4 SJS
Line S00198 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05578 M01S00198.271l716 +++| SFL4 SB4 SJS
05579 M00S03193.cpumtr +++| NG X0,SRU IF FL DECREASE
05580 M00S03194.cpumtr +++| SB4 MTRX
05581 M00S03195.cpumtr +++| NZ X0,SRU IF FL INCREASE
05582 M00S03196.cpumtr +++| JP MTRX EXIT MONITOR MODE
05583 M00S03197.cpumtr +++| SIS SPACE 4,10
05584 M00S03198.cpumtr +++|** SIS - SET *I* STATUS.
Line S03199 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05585 M01S03199.271l750 ---|* ASSUMES JOB IS ACTIVE IN THIS CPU.
05586 M00S03200.cpumtr +++|*
05587 M00S03201.cpumtr +++|* ENTRY (B7) = CONTROL POINT ADDRESS.
Line S00803 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05588 M01S00803.271l750 +++|* JOB ACTIVE IN THIS CPU.
05589 M00S03202.cpumtr +++|*
05590 M00S03203.cpumtr +++|* EXIT TO *BNJ* BEGIN NEW JOB.
Line S00015 Modification History
M01 (Added by) cpum99a
Seq # *Modification Id* Act
----------------------------+
05591 M01S00015.cpum99a +++|*
Line S00016 Modification History
M01 (Added by) cpum99a
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05592 M02S00016.271l716 ---|* USES X - 1, 2, 3, 4, 6, 7.
05593 M02S00017.271l716 ---|* A - 2, 3, 4, 6.
Line S00199 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05594 M01S00199.271l716 +++|* USES X - 7.
05595 M00S03204.cpumtr +++|
Line S03205 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05596 M01S03205.271l716 ---|
Line S03206 Modification History
M01 (Removed by) cpum99a
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05597 M02S03206.271l716 ---| SIS SX7 ICPS *I* STATUS IS *BNJ* ENTRY CONDITION
Line S00018 Modification History
M01 (Added by) cpum99a
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05598 M02S00018.271l716 ---| SIS SA2 A0+CSWL DETERMINE SLICE TIME REMAINING
05599 M02S00019.271l716 ---| SA3 RTCL
05600 M02S00020.271l716 ---| SA4 MSCL GET MINIMUM SLICE TIME
05601 M02S00021.271l716 ---| MX7 -36
05602 M02S00022.271l716 ---| SX1 B1
05603 M02S00023.271l716 ---| BX6 -X7*X2 TIME OF SLICE EXPIRATION
05604 M02S00024.271l716 ---| SA2 B7+JCIW GET RECALL FLAG
05605 M02S00025.271l716 ---| BX7 -X7*X3 EXTRACT REAL TIME
05606 M02S00026.271l716 ---| MX3 -12
05607 M02S00027.271l716 ---| IX6 X6-X7 TIME LEFT IN SLICE
05608 M02S00028.271l716 ---| BX7 -X3*X4 MINIMUM SLICE TIME
05609 M02S00029.271l716 ---| SA3 A2+B1 GET RECALL ACCUMULATOR
05610 M02S00030.271l716 ---| ERRNZ JCIW+1-CRCW CODE ASSUMES VALUE
05611 M02S00031.271l716 ---| IX7 X7-X6 POSITIVE IF TIME LEFT WILL BE .LT. MINIMUM
05612 M02S00032.271l716 ---| IX6 X6-X1 DECREMENT TIME REMAINING BY 1
05613 M02S00033.271l716 ---| AX7 59
05614 M02S00034.271l716 ---| LX1 48 RECALL FLAG
05615 M02S00035.271l716 ---| BX4 X7*X6 CLEAR THE TIME REMAINING, IF .LT. MINIMUM
05616 M02S00036.271l716 ---| BX6 X7*X1 SET OR CLEAR THE RECALL FLAG
05617 M02S00037.271l716 ---| MX7 -48
05618 M02S00038.271l716 ---| BX2 -X1*X2
05619 M02S00039.271l716 ---| LX4 -12
05620 M02S00040.271l716 ---| BX7 -X7*X3
05621 M02S00041.271l716 ---| BX6 X6+X2
05622 M02S00042.271l716 ---| BX7 X4+X7
05623 M02S00043.271l716 ---| SA6 A2 UPDATE THE RECALL FLAG
05624 M02S00044.271l716 ---| SA7 A3 UPDATE THE RECALL ACCUMULATOR
05625 M02S00045.271l716 ---| SX7 ICPS *I* STATUS IS *BNJ* ENTRY CONDITION
Line S00200 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05626 M01S00200.271l716 +++| SIS BSS 0 ENTRY
05627 M01S00201.271l716 +++| SX7 ICPS SET *I* STATUS FOR *BNJ* ENTRY
05628 M00S03207.cpumtr +++| EQ BNJ BEGIN NEW JOB
05629 M00S03208.cpumtr +++| SJS SPACE 4,15
05630 M00S03209.cpumtr +++|** SJS - START JOB SCHEDULER.
05631 M00S03210.cpumtr +++|*
05632 M00S03211.cpumtr +++|* EXIT TO MTRX.
05633 M00S03212.cpumtr +++|*
05634 M00S03213.cpumtr +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
05635 M00S03214.cpumtr +++|* B - 3, 4.
05636 M00S03215.cpumtr +++|* A - 1, 2, 3, 7.
05637 M00S03216.cpumtr +++|*
05638 M00S03217.cpumtr +++|* CALLS APQ.
05639 M00S03218.cpumtr +++|*
05640 M00S03219.cpumtr +++|* PRESERVES A5, B7, A0.
05641 M00S03220.cpumtr +++|
05642 M00S03221.cpumtr +++|
05643 M00S03222.cpumtr +++| SJS SX7 B7+ SAVE CONTROL POINT ADDRESS
05644 M00S03223.cpumtr +++| TB7 SCA SET SYSTEM CONTROL POINT ADDRESS
05645 M00S03224.cpumtr +++| SA7 T1
05646 M00S03225.cpumtr +++| SB6 SJS0 RETURN ADDRESS IF NO ACTIVITY LIMIT
05647 M00S03226.cpumtr +++| SB3 SJS3 RETURN ADDRESS IF ACTIVITY LIMIT
05648 M00S03227.cpumtr +++| EQ CAL CHECK ACTIVITY LIMIT
05649 M00S03228.cpumtr +++|
05650 M00S03229.cpumtr +++| SJS0 SA3 JSCL READ SCHEDULER CONTROL WORD
05651 M00S03230.cpumtr +++| SA1 RTCL
05652 M00S03231.cpumtr +++| NG X3,SJS3 IF SCHEDULER ACTIVE
05653 M00S03232.cpumtr +++| SA2 SJSA READ *1SJ* CALL
05654 M00S03233.cpumtr +++| MX7 24
05655 M00S03234.cpumtr +++| AX1 36 EXTRACT TIME IN SECONDS
05656 M00S03235.cpumtr +++| MX0 -24
05657 M00S03236.cpumtr +++| BX7 X7*X2 CLEAR *1SJ* CALL FLAGS
05658 M00S03237.cpumtr +++| MX5 1
Line S03238 Modification History
M01 (Removed by) ns2220a
Seq # *Modification Id* Act
----------------------------+
05659 M01S03238.ns2220a ---| BX4 -X0*X3 EXTRACT RECALL TIME
05660 M00S03239.cpumtr +++| SA7 A2
Line S03240 Modification History
M01 (Removed by) ns2220a
Seq # *Modification Id* Act
----------------------------+
05661 M01S03240.ns2220a ---| IX4 X1-X4 *RTCL* - TIME TO RECALL
Line S00001 Modification History
M01 (Added by) ns2220a
Seq # *Modification Id* Act
----------------------------+
05662 M01S00001.ns2220a +++| ERRNZ SJSB-SJSA-1 CODE ASSUMES *SJSB* = *SJSA* + 1
05663 M01S00002.ns2220a +++| SA4 A2+B1
05664 M01S00003.ns2220a +++| SA7 A4 RESET FORCED *JSCL* RESET FLAG
05665 M00S03241.cpumtr +++| BX7 X3+X5 SET SCHEDULER ACTIVE FLAG
05666 M00S03242.cpumtr +++| BX6 X2
Line S00004 Modification History
M01 (Added by) ns2220a
Seq # *Modification Id* Act
----------------------------+
05667 M01S00004.ns2220a +++| ZR X4,SJS0.1 IF FORCED *JSCL* RESET
05668 M01S00005.ns2220a +++| BX4 -X0*X3 EXTRACT RECALL TIME
05669 M01S00006.ns2220a +++| IX4 X1-X4 *RTCL* - TIME TO RECALL
05670 M00S03243.cpumtr +++| NG X4,SJS1 IF NOT TIME TO PERFORM PERIODIC RECALL
Line S03244 Modification History
M01 (Removed by) ns2220a
Seq # *Modification Id* Act
----------------------------+
05671 M01S03244.ns2220a ---| LX5 25-59
Line S00007 Modification History
M01 (Added by) ns2220a
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05672 M02S00007.271l716 ---| SJS0.1 LX5 25-59
Line S03245 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05673 M01S03245.271l716 ---| AX3 24 EXTRACT RECALL TIME PERIOD
Line S00202 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05674 M01S00202.271l716 +++| SJS0.1 AX3 24 EXTRACT RECALL TIME PERIOD
05675 M00S03246.cpumtr +++| MX0 -12
05676 M00S03247.cpumtr +++| BX4 -X0*X3
Line S03248 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05677 M01S03248.271l716 ---| BX6 X6+X5
05678 M00S03249.cpumtr +++| IX7 X7+X4 UPDATE TIME TO RECALL
05679 M00S03250.cpumtr +++| AX3 12 EXTRACT QFT/EJT SCHEDULING FREQUENCY
05680 M00S03251.cpumtr +++| BX4 -X0*X3
Line S03252 Modification History
M01 (Removed by) ns2220a
Seq # *Modification Id* Act
----------------------------+
05681 M01S03252.ns2220a ---| SX3 B1
05682 M01S03253.ns2220a ---| SB3 X4
Line S00008 Modification History
M01 (Added by) ns2220a
Seq # *Modification Id* Act
----------------------------+
05683 M01S00008.ns2220a +++| SX3 B1+
Line S00009 Modification History
M01 (Added by) ns2220a
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
05684 M02S00009.271l716 ---| SB3 X4+
Line S00203 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
05685 M01S00203.271l716 +++| SB3 X4
05686 M00S03254.cpumtr +++| LX4 X3,B3 GENERATE FREQUENCY MASK
05687 M00S03255.cpumtr +++| IX4 X4-X3
05688 M00S03256.cpumtr +++| BX1 X4*X1
05689 M00S03257.cpumtr +++| NZ X1,SJS1 IF NOT TIME FOR QFT SCHEDULING
05690 M00S03258.cpumtr +++| LX3 24
05691 M00S03259.cpumtr +++| BX6 X6+X3
05692 M00S03260.cpumtr +++| SJS1 SB3 SJS2 *APQ* RETURN ADDRESS
05693 M00S03261.cpumtr +++| SB4 LA1SJ SET LOAD PARAMETER INDEX
05694 M00S03262.cpumtr +++| SA7 A3 STORE SCHEDULER CONTROL WORD
05695 M00S03263.cpumtr +++| EQ APQ ASSIGN PP
05696 M00S03264.cpumtr +++|
05697 M00S03265.cpumtr +++|* NOTE -
05698 M00S03266.cpumtr +++|* IN ORDER TO AVOID *DEADLOCK* (SORT OF) PROBLEMS
05699 M00S03267.cpumtr +++|* WITH THE *CPUCIO* REQUEST QUEUE, THE QUEUE IS CHECKED
05700 M00S03268.cpumtr +++|* PENDING REQUESTS ON EVERY *1SJ* CALL
05701 M00S03269.cpumtr +++|
05702 M00S03270.cpumtr +++| SJS2 SB3 SJS3 *PCQ* RETURN ADDRESS
05703 M00S03271.cpumtr +++| SB4 SJS3
05704 M00S03272.cpumtr +++| TNO /BUFIO/PCQ1,BUFIO PROCESS PSEUDO-PP REQUEST QUEUE
05705 M00S03273.cpumtr +++|
05706 M00S03274.cpumtr +++| SJS3 SA1 T1 RESTORE (B7)
05707 M00S03275.cpumtr +++| SB7 X1+
05708 M00S03276.cpumtr +++|
05709 M00S03277.cpumtr +++|* IF A PRIORITY PP REQUEST IS PENDING, THE ENTRY IS
05710 M00S03278.cpumtr +++|* CLEARED AND A REJECT STATUS IS SET TO THE WAITING PP.
05711 M00S03279.cpumtr +++|
05712 M00S03280.cpumtr +++| SA3 PQRL CHECK FOR PENDING PRIORITY REQUEST
05713 M00S03281.cpumtr +++| ZR X3,MTRX IF NO PP REQUESTS IN QUEUE
05714 M00S03282.cpumtr +++| SA1 X3
05715 M00S03283.cpumtr +++| MX2 -18
05716 M00S03284.cpumtr +++| LX1 -18
05717 M00S03285.cpumtr +++| BX3 -X2*X1
05718 M00S03286.cpumtr +++| ZR X3,MTRX IF FIRST REQUEST NOT PRIORITY
05719 M00S03287.cpumtr +++| BX7 X7-X7 SEND REJECT RESPONSE TO WAITING PP
05720 M00S03288.cpumtr +++| SA7 X3
05721 M00S03289.cpumtr +++|
05722 M00S03290.cpumtr +++|* DELETE ENTRY FROM QUEUE.
05723 M00S03291.cpumtr +++|
05724 M00S03292.cpumtr +++| LX1 18
05725 M00S03293.cpumtr +++| MX4 -12
05726 M00S03294.cpumtr +++| BX6 -X4*X1 ADDRESS OF NEXT ENTRY
05727 M00S03295.cpumtr +++| SA6 A3
05728 M00S03296.cpumtr +++| SA7 A1+RECW-RCCW CLEAR ENTRY FROM CONTROL POINT
05729 M00S03297.cpumtr +++| SA7 A1+REPW-RCCW
05730 M00S03298.cpumtr +++| SX1 A1
05731 M00S03299.cpumtr +++| AX1 7
05732 M00S03300.cpumtr +++| MX4 -4
05733 M00S03301.cpumtr +++| LX1 7 CONTROL POINT ADDRESS
05734 M00S03302.cpumtr +++| SA2 X1+STSW ADD ENTRY TO FREE LIST
05735 M00S03303.cpumtr +++| SX3 -420B-RCCW+1
05736 M00S03304.cpumtr +++| SB4 X1
05737 M00S03305.cpumtr +++| BX7 -X4*X2 NEXT FREE ENTRY
05738 M00S03306.cpumtr +++| BX2 X4*X2
05739 M00S03307.cpumtr +++| SA7 A1
05740 M00S03308.cpumtr +++| SX4 A1-B4 COMPUTE RECALL INDEX
05741 M00S03309.cpumtr +++| IX4 X4+X3
05742 M00S03310.cpumtr +++| IX7 X4+X2
05743 M00S03311.cpumtr +++| SA7 A2 UPDATE STSW
05744 M00S03312.cpumtr +++| EQ MTRX EXIT
05745 M00S03313.cpumtr +++|
05746 M00S03314.cpumtr +++|
05747 M00S03315.cpumtr +++| SJSA VFD 18/3R1SJ,6/0,12/0,12/0,12/0
Line S00010 Modification History
M01 (Added by) ns2220a
Seq # *Modification Id* Act
----------------------------+
05748 M01S00010.ns2220a +++| SJSB CON 1 ZERO IF FORCED *JSCL* RESET
05749 M00S03316.cpumtr +++| SNS SPACE 4,10
05750 M00S03317.cpumtr +++|** SNS - SET NULL STATUS.
05751 M00S03318.cpumtr +++|*
05752 M00S03319.cpumtr +++|* ENTRY (B7) = CONTROL POINT ADDRESS.
05753 M00S03320.cpumtr +++|*
05754 M00S03321.cpumtr +++|* EXIT TO *JAV* ADVANCE JOB.
05755 M00S03322.cpumtr +++|*
05756 M00S03323.cpumtr +++|* CALLS JAV.
05757 M00S03324.cpumtr +++|
05758 M00S03325.cpumtr +++|
05759 M00S03326.cpumtr +++| SNS SA4 B7+STSW CLEAR CPU STATUS
05760 M00S03327.cpumtr +++| SB3 BNJ1 *JAV* RETURN ADDRESS
05761 M00S03328.cpumtr +++| MX7 -57
05762 M00S03329.cpumtr +++| BX7 -X7*X4
05763 M00S03330.cpumtr +++| SA7 A4+
05764 M00S03331.cpumtr +++| EQ JAV ADVANCE JOB
05765 M00S03332.cpumtr +++| SPL SPACE 4,20
05766 M00S03333.cpumtr +++|** SPL - SEARCH PERIPHERAL LIBRARY.
05767 M00S03334.cpumtr +++|*
05768 M00S03335.cpumtr +++|* ENTRY (X6) = PPU REQUEST.
05769 M00S03336.cpumtr +++|* (X5) = PP OUTPUT REGISTER IF *SPLM* CALL.
05770 M00S03337.cpumtr +++|* (B6) = EXIT ADDRESS.
Line S00035 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
05771 M01S00035.251l664 +++|* = EXIT ADDRESS + 400000B, IF REQUEST IS FOR CPP.
05772 M00S03338.cpumtr +++|*
05773 M00S03339.cpumtr +++|* EXIT LIBRARY UNLOCKED.
05774 M00S03340.cpumtr +++|* (X1) .GT. 0.
05775 M00S03341.cpumtr +++|* (X5) = 0 IF PROGRAM FOUND, ELSE *SFP* *PLD* ENTRY
05776 M00S03342.cpumtr +++|* RETURNED.
05777 M00S03343.cpumtr +++|* (X7) = PP LOAD PARAMETERS.
05778 M00S03344.cpumtr +++|* (A1) = ADDRESS OF PLD ENTRY.
05779 M00S03345.cpumtr +++|* (B6) = EXIT ADDRESS.
05780 M00S03346.cpumtr +++|*
05781 M00S03347.cpumtr +++|* LIBRARY LOCKED (SYSEDIT ACTIVE)
05782 M00S03348.cpumtr +++|* (X1) = -0.
05783 M00S03349.cpumtr +++|* (X7) = (X5) ON ENTRY WITH BITS 56 AND 57 SET.
05784 M00S03350.cpumtr +++|*
05785 M00S03351.cpumtr +++|* USES X - 1, 3, 4, 5, 7.
05786 M00S03352.cpumtr +++|* B - 5.
05787 M00S03353.cpumtr +++|* A - 1, 7.
05788 M00S03354.cpumtr +++|
05789 M00S03355.cpumtr +++|
05790 M00S03356.cpumtr +++| SPL SA1 PSTP FIND END OF DIRECTORY
05791 M00S03357.cpumtr +++| MX4 18
05792 M00S03358.cpumtr +++| AX1 12
05793 M00S03359.cpumtr +++| SX3 X1-2
05794 M00S03360.cpumtr +++| SA1 PLDP READ START OF DIRECTORY
05795 M00S03361.cpumtr +++| BX7 X4*X6 SET PROGRAM NAME
05796 M00S03362.cpumtr +++| AX1 36
05797 M00S03363.cpumtr +++| SB5 X1 FWA OF LIBRARY
05798 M00S03364.cpumtr +++| IX3 X3-X1 LIBRARY LENGTH
05799 M00S03365.cpumtr +++| NZ B5,SPL1 IF LIBRARY NOT LOCKED
Line S03366 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
05800 M01S03366.253l688 ---| MX3 2
Line S00605 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
05801 M01S00605.253l688 +++| SX3 44B REJECT FUNCTION (SET RETRY/MOVABLE FLAGS)
05802 M00S03367.cpumtr +++| BX1 -X1+X1
Line S03368 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
05803 M01S03368.253l688 ---| LX3 -2 SET MOVABLE FUNCTION
Line S00606 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
05804 M01S00606.253l688 +++| LX3 -6
05805 M00S03369.cpumtr +++| BX7 X5+X3
Line S03370 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
05806 M01S03370.251l664 ---| JP B6
Line S00036 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
05807 M02S00036.252l678 ---| TJP 0,(/CPP/SPL1,B6,CPP) RETURN
Line S00103 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
05808 M02S00103.253l688 ---| TJP 0,(/CPP/SPL1,CPP,B6) RETURN
Line S00607 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
05809 M01S00607.253l688 +++| TJP (/CPP/SPL1,CPP,B6) RETURN
05810 M00S03371.cpumtr +++|
05811 M00S03372.cpumtr +++| SPL1 SX2 B5+X3 RESET LWA OF LIBRARY
Line S03373 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
05812 M01S03373.251l664 ---| ZR X3,SPL3 IF END OF SEARCH
Line S00037 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
05813 M01S00037.251l664 +++| ZR X3,SPL4 IF END OF SEARCH
05814 M00S03374.cpumtr +++| AX3 1
05815 M00S03375.cpumtr +++| SA1 B5+X3 SAMPLE DIRECTORY ENTRY
05816 M00S03376.cpumtr +++| BX5 X4*X1
05817 M00S03377.cpumtr +++| IX5 X7-X5
05818 M00S03378.cpumtr +++| LX5 18 POSITION SIGN BIT
05819 M00S03379.cpumtr +++| NG X5,SPL1 IF PROGRAM .LT. SAMPLE
05820 M00S03380.cpumtr +++| SB5 A1+B1 RESET FWA OF SEARCH INTERVAL
05821 M00S03381.cpumtr +++| SX3 B5 RESET LENGTH
05822 M00S03382.cpumtr +++| IX3 X2-X3
05823 M00S03383.cpumtr +++| NZ X5,SPL1 IF PROGRAM NOT FOUND
Line S00038 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
05824 M01S00038.251l664 +++| LX7 -54
Line S03384 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
05825 M01S03384.253l688 ---| BX1 -X4*X1
Line S00608 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
05826 M01S00608.253l688 +++|
05827 M01S00609.253l688 +++|* ENTER HERE TO BUILD THE LOAD PARAMETERS FOR AN OVERLAY.
05828 M01S00610.253l688 +++|
05829 M01S00611.253l688 +++|* (X1) = PLD ENTRY.
05830 M01S00612.253l688 +++|* (X4) = 77777700 ... 00B.
05831 M01S00613.253l688 +++|* (X7) = FIRST CHARACTER OF OVERLAY NAME.
05832 M01S00614.253l688 +++|* (B6) = RETURN ADDRESS.
05833 M01S00615.253l688 +++|*
05834 M01S00616.253l688 +++|* NOTE. (X5) WILL NOT BE CHANGED.
05835 M01S00617.253l688 +++|
05836 M01S00618.253l688 +++|
05837 M01S00619.253l688 +++| SPL1.1 BX1 -X4*X1
Line S03385 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
05838 M01S03385.251l664 ---| SPL2 SX3 B1
Line S00039 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
05839 M01S00039.251l664 +++| SX3 B1
05840 M01S00040.251l664 +++| SX7 X7-1R7
05841 M00S03386.cpumtr +++| LX3 41
Line S03387 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
05842 M01S03387.251l664 ---| IX7 X1+X3
Line S00041 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
05843 M01S00041.251l664 +++| ZR X7,SPL5 IF *7XX* OVERLAY
05844 M01S00042.251l664 +++|
05845 M01S00043.251l664 +++|* SET *RT* PARAMETER.
05846 M01S00044.251l664 +++|
05847 M01S00045.251l664 +++| BX7 -X3*X1 CLEAR CM/MS BIT
05848 M01S00046.251l664 +++| SB5 -B6 SET (B5) POSITIVE IF CPP
05849 M01S00047.251l664 +++| SX2 214B SET *RT* PARAMETER POSSIBILITIES
05850 M01S00048.251l664 +++| BX3 X3*X1
05851 M01S00049.251l664 +++| ZR X3,SPL2 IF MS RESIDENT OVERLAY
05852 M01S00050.251l664 +++| LX1 -24 GET *RPL* ADDRESS
05853 M01S00051.251l664 +++| SB5 A1
05854 M01S00052.251l664 +++| SA1 X1-400000B
05855 M01S00053.251l664 +++| AX2 3 SET NEW *RT* PARAMETER
05856 M01S00054.251l664 +++| BX3 -X4*X1
05857 M01S00055.251l664 +++| SA1 B5 RESTORE THE *PLD* ADDRESS
05858 M01S00056.251l664 +++| AX3 40 ONE = 16-BIT PROGRAM
05859 M01S00057.251l664 +++| SB5 X3
05860 M01S00058.251l664 +++| AX2 B5 SET NEW *RT* PARAMETER
05861 M01S00059.251l664 +++| SPL2 MX3 -4
05862 M01S00060.251l664 +++| BX1 -X4*X1 ENSURE (X1) .GT. 0
05863 M01S00061.251l664 +++| BX2 -X3*X2 *RT* = 14/10/01/00
05864 M01S00062.251l664 +++| LX2 42
05865 M01S00063.251l664 +++| PL B5,SPL3 IF CONCURRENT PP OR CM RESIDENT
05866 M01S00064.251l664 +++| AX1 23-17
05867 M01S00065.251l664 +++| SX3 X1 SET LEADING ZEROS IF 12-BIT OVERLAY
05868 M01S00066.251l664 +++| SPL3 BX2 X3*X2
05869 M01S00067.251l664 +++| BX7 X7+X2
Line S00068 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
05870 M02S00068.253l688 ---| TJMP /CPP/SPL1,CPP,/PROBE/SPL,PROBE,B6 RETURN
Line S00620 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
05871 M01S00620.253l688 +++| TJP (/CPP/SPL1,CPP,/PROBE/SPL,PROBE,B6) RETURN
Line S00069 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
05872 M01S00069.251l664 +++|
05873 M01S00070.251l664 +++| SPL4 SA1 PSTP READ SFP ENTRY
05874 M01S00071.251l664 +++| SX3 1
05875 M01S00072.251l664 +++| AX1 12
05876 M01S00073.251l664 +++| SA1 X1-2
05877 M01S00074.251l664 +++| LX3 41
05878 M01S00075.251l664 +++| SPL5 IX7 X1+X3 SET *RT* PARAMETER
05879 M00S03388.cpumtr +++| BX7 -X3*X7
Line S03389 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
05880 M01S03389.251l664 ---| TJP 0,(/PROBE/SPL,B6,PROBE) RETURN
05881 M01S03390.251l664 ---|
05882 M01S03391.251l664 ---| SPL3 SA1 PSTP READ SFP ENTRY
05883 M01S03392.251l664 ---| AX1 12
Line S03393 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
05884 M02S03393.251l664 ---| LX7 6
Line S03394 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
05885 M01S03394.251l664 ---| SA1 X1-2
Line S03395 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
05886 M02S03395.251l664 ---| SB5 X7-1R6
05887 M02S03396.251l664 ---| NZ B5,SPL2 IF NOT *6XX* PROGRAM
05888 M02S03397.251l664 ---| EQ HNG HANG
Line S00017 Modification History
M01 (Added by) 242l642
M02 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
05889 M02S00017.251l664 ---| EQ SPL2 RETURN *SFP* LOAD PARAMETERS
Line S00076 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
05890 M02S00076.253l688 ---| TJMP /CPP/SPL1,CPP,/PROBE/SPL,PROBE,B6 RETURN
Line S00621 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
05891 M01S00621.253l688 +++| TJP (/CPP/SPL1,CPP,/PROBE/SPL,PROBE,B6) RETURN
Line S00804 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05892 M01S00804.271l750 +++| SPR SPACE 4,20
05893 M01S00805.271l750 +++|** SPR - SET CPU PRIORITY.
05894 M01S00806.271l750 +++|*
05895 M01S00807.271l750 +++|* ENTRY (B3) = RETURN ADDRESS.
05896 M01S00808.271l750 +++|* (B7) = CONTROL POINT ADDRESS.
05897 M01S00809.271l750 +++|* (X3) = *CWQW*.
05898 M01S00810.271l750 +++|* (X5) = NEW CPU PRIORITY.
05899 M01S00811.271l750 +++|* (A3) = ADDRESS OF *CWQW*.
05900 M01S00812.271l750 +++|*
05901 M01S00813.271l750 +++|* EXIT NEW CPU PRIORITY SET AND CPU SLICE RESTARTED.
05902 M01S00814.271l750 +++|* TO CALLER VIA *RCC* IF JOB IN *W* STATUS.
05903 M01S00815.271l750 +++|* TO CALLER VIA */NVE/SVS* IF JOB ACTIVE IN CPU AND
05904 M01S00816.271l750 +++|* *NVE* PRESENT.
05905 M01S00817.271l750 +++|*
05906 M01S00818.271l750 +++|* USES X - ALL.
05907 M01S00819.271l750 +++|* A - 1, 2, 3, 6, 7.
05908 M01S00820.271l750 +++|* B - 4, 6.
05909 M01S00821.271l750 +++|
05910 M01S00822.271l750 +++|
05911 M01S00823.271l750 +++| SPR BSS 0 ENTRY
05912 M01S00824.271l750 +++| SA4 TPRC+X5 GET SERVICE CYCLE FOR NEW PRIORITY
05913 M01S00825.271l750 +++| SA1 B7+STSW DETERMINE CPU STATUS
05914 M01S00826.271l750 +++| LX5 3
05915 M01S00827.271l750 +++| UX3,B4 X3 UNPACK CPU PRIORITY AND PARAMETERS
05916 M01S00828.271l750 +++| SB4 X5 SET PRIORITY WITHOUT PRIORITY FLAGS
05917 M01S00829.271l750 +++| SX6 B1
05918 M01S00830.271l750 +++| PX3 B4,X3 SET NEW CPU PRIORITY IN *CWQW*
05919 M01S00831.271l750 +++| LX6 47-0
05920 M01S00832.271l750 +++| MX7 6
05921 M01S00833.271l750 +++| BX6 X3+X6 SET EXTENDED CPU SLICE INCOMPLETE FLAG
05922 M01S00834.271l750 +++| BX7 X7*X4
05923 M01S00835.271l750 +++| SA6 A3 UPDATE *CWQW*
05924 M01S00836.271l750 +++| SA7 A3+B1 SET SERVICE CYCLE AND CLEAR ACCUMULATORS
05925 M01S00837.271l750 +++| ERRNZ CSAW-CWQW-1
05926 M01S00838.271l750 +++| MX4 3
05927 M01S00839.271l750 +++| BX1 X4*X1
05928 M01S00840.271l750 +++| LX1 3
05929 M01S00841.271l750 +++| SX4 X1-WCPS
05930 M01S00842.271l750 +++| ZR X1,RB3 IF NULL STATUS
05931 M01S00843.271l750 +++| PL X4,SPR1 IF *W* STATUS OR GREATER
05932 M01S00844.271l750 +++|
05933 M01S00845.271l750 +++|* SET PRIORITY OF ACTIVE JOB. A CPU SWITCH IS REQUESTED TO
05934 M01S00846.271l750 +++|* FORCE SELECTION OF THE HIGHEST PRIORITY JOB.
05935 M01S00847.271l750 +++|
05936 M01S00848.271l750 +++| SA2 X1+TSCL-1 GET CPU PRIORITY OF ACTIVE JOB
05937 M01S00849.271l750 +++| SA3 X1+CSWL-1
05938 M01S00850.271l750 +++| SB4 B4+3 SET ACTIVE SLICE AND RECALL FLAGS
05939 M01S00851.271l750 +++| UX6 X6
05940 M01S00852.271l750 +++| PX6 B4,X6
05941 M01S00853.271l750 +++| SA6 A6 REWRITE *CWQW* WITH FLAGS
05942 M01S00854.271l750 +++| UX2 X2
05943 M01S00855.271l750 +++| PX6 B4,X2 SET *TSCL* CPU PRIORITY AND FLAGS
05944 M01S00856.271l750 +++| MX7 1
05945 M01S00857.271l750 +++| BX7 X3+X7
05946 M01S00858.271l750 +++| SA7 A3 REQUEST CPU SWITCH
05947 M01S00859.271l750 +++| SA6 A2 UPDATE *TSCL*
05948 M01S00860.271l750 +++| SB6 B3 SET *SVS* RETURN ADDRESS
05949 M01S00861.271l750 +++| MX0 -12
05950 M01S00862.271l750 +++| TJP (/NVE/SVS1,NVE,/MONITOR/RB3)
05951 M01S00863.271l750 +++|
05952 M01S00864.271l750 +++| SPR1 NZ X4,RB3 IF NOT *W* STATUS
05953 M01S00865.271l750 +++| SB6 B7+ SET EXCHANGE PACKAGE ADDRESS
05954 M01S00866.271l750 +++| EQ RCC REORDER WAIT QUEUE
Line S03398 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
05955 M01S03398.271l750 ---| SRU SPACE 4,20
Line S00867 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
05956 M01S00867.271l750 +++| SRU SPACE 4,30
05957 M00S03399.cpumtr +++|** SRU - CALCULATE SRU MULTIPLIERS CPM AND IOM.
05958 M00S03400.cpumtr +++|*
05959 M00S03401.cpumtr +++|* SRU = M1(CP + M2*IO + M3(CP+IO)CM +
05960 M00S03402.cpumtr +++|* M4(CP+IO)EC + MM*MP + AUC) + A1
05961 M00S03403.cpumtr +++|*
05962 M00S03404.cpumtr +++|* = M1(1 + M3*CM + M4*EC)CP + M1(M2 + M3*CM + M4*EC)IO +
05963 M00S03405.cpumtr +++|* M1*MM*MP + M1*AUC + A1
05964 M00S03406.cpumtr +++|*
05965 M00S03407.cpumtr +++|* = (M1 + M1*M3*CM + M1*M4*EC)CP +
05966 M00S03408.cpumtr +++|* (M1*M2 + M1*M3*CM + M1*M4*EC)IO +
05967 M00S03409.cpumtr +++|* M1*MM*MP + M1*AUC + A1
05968 M00S03410.cpumtr +++|*
05969 M00S03411.cpumtr +++|* = CPM*CP + IOM*IO + M1M*MP + M1*AUC + A1.
05970 M00S03412.cpumtr +++|*
05971 M00S03413.cpumtr +++|* CP = (S0)*CP0 + (S1)*CP1
05972 M00S03414.cpumtr +++|* IO = S2*MS + S3*MT + S4*PF
05973 M00S03415.cpumtr +++|* CM = (CM FL + 777B) / 1000B (WORDS)
05974 M00S03416.cpumtr +++|* EC = (ECS FL) / 1000B
Line S03417 Modification History
M01 (Removed by) v22l602
Seq # *Modification Id* Act
----------------------------+
05975 M01S03417.v22l602 ---|* MP = MAP III ACCUMULATOR
Line S00003 Modification History
M01 (Added by) v22l602
Seq # *Modification Id* Act
----------------------------+
05976 M01S00003.v22l602 +++|* MP = MAP ACCUMULATOR
05977 M00S03418.cpumtr +++|* AUC = AUC ACCUMULATOR
05978 M00S03419.cpumtr +++|* A1 = ADDER ACCUMULATOR (MAINTAINED IN MICROUNITS * 10)
05979 M00S03420.cpumtr +++|*
05980 M00S03421.cpumtr +++|* ENTRY (B4) = EXIT ADDRESS.
05981 M00S03422.cpumtr +++|*
05982 M00S03423.cpumtr +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
05983 M00S03424.cpumtr +++|* B - 3.
05984 M00S03425.cpumtr +++|* A - 1, 3, 4, 6.
05985 M00S03426.cpumtr +++|*
05986 M00S03427.cpumtr +++|* CALLS CPT
05987 M00S03428.cpumtr +++|
05988 M00S03429.cpumtr +++|
05989 M00S03430.cpumtr +++| SRU SA3 B7+ECSW ECS FL
05990 M00S03431.cpumtr +++| SA4 B7+FLSW
05991 M00S03432.cpumtr +++| MX2 -12
05992 M00S03433.cpumtr +++| BX0 -X2*X4
05993 M00S03434.cpumtr +++| LX4 12
05994 M00S03435.cpumtr +++| BX4 -X2*X4 ADD NEGATIVE FIELD LENGTH
05995 M00S03436.cpumtr +++| IX4 X4+X0
05996 M00S03437.cpumtr +++| SA1 B7+MP1W M1*M3 AND M1*M4
Line S00001 Modification History
M01 (Added by) ns2184
M02 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
05997 M02S00001.252l678 ---| LX3 UESF ADJUST ECS FL
Line S00104 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
05998 M01S00104.252l678 +++| TLX3 0,UESC ADJUST EM FL
05999 M00S03438.cpumtr +++| MX7 -3
06000 M00S03439.cpumtr +++| BX3 -X2*X3
06001 M00S03440.cpumtr +++| LX1 18
06002 M00S03441.cpumtr +++| MX2 -18
06003 M00S03442.cpumtr +++| IX4 X4-X7 ROUND CM FL/100B WITH 7B
06004 M00S03443.cpumtr +++| BX6 -X2*X1
06005 M00S03444.cpumtr +++| AX4 3 CM = (CM FL/100B + 7B) / 10B
06006 M00S03445.cpumtr +++| LX1 18
06007 M00S03446.cpumtr +++| IX6 X6*X4 M1*M3*CM
06008 M00S03447.cpumtr +++| BX7 -X2*X1
06009 M00S03448.cpumtr +++| ERRNZ MP2W-MP1W-1 CODE DEPENDS ON CONTIGUOUS WORDS
06010 M00S03449.cpumtr +++| SA4 A1+B1 M1*1000 AND M1*M2
06011 M00S03450.cpumtr +++| IX7 X7*X3 M1*M4*EC
06012 M00S03451.cpumtr +++| LX4 18
06013 M00S03452.cpumtr +++| IX6 X6+X7 M1*M3*CM + M1*M4*EC
06014 M00S03453.cpumtr +++| BX3 -X2*X4
06015 M00S03454.cpumtr +++| LX4 18
06016 M00S03455.cpumtr +++| IX7 X3+X6 M1*1000 + M1*M3*CM + M1*M4*EC (CPM)
06017 M00S03456.cpumtr +++| BX4 -X2*X4
06018 M00S03457.cpumtr +++| IX4 X4+X6 M1*M2 + M1*M3*CM + M1*M4*EC (IOM)
06019 M00S03458.cpumtr +++| LX7 30
Line S03459 Modification History
M01 (Removed by) ns2443
Seq # *Modification Id* Act
----------------------------+
06020 M01S03459.ns2443 ---| SX0 B4 SAVE EXIT ADDRESS
Line S00032 Modification History
M01 (Added by) ns2443
Seq # *Modification Id* Act
----------------------------+
06021 M01S00032.ns2443 +++| SX6 B4 SAVE EXIT ADDRESS
06022 M01S00033.ns2443 +++| SA6 SRUA
06023 M00S03460.cpumtr +++| IX4 X7+X4 30/CPM AND 30/IOM
06024 M00S03461.cpumtr +++| SB3 SRU1
Line S03462 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
06025 M01S03462.253l688 ---| TJMP /CME/CPT,CME,/MONITOR/CP76,CP176,/MONITOR/CPT
Line S00622 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06026 M02S00622.271l750 ---| TJP (/CME/CPT,CME,/MONITOR/CP76,CP176,/MONITOR/CPT)
Line S00868 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06027 M01S00868.271l750 +++| TJP (/NVE/CPT,NVE,/CME/CPT,CME,/MONITOR/CP76,CP176,/MONITOR
06028 M01S00869.271l750 +++|,/CPT)
06029 M00S03463.cpumtr +++|
Line S03464 Modification History
M01 (Removed by) ns2443
Seq # *Modification Id* Act
----------------------------+
06030 M01S03464.ns2443 ---| SRU1 SA1 A4+B1 PRESERVE SRU CALCULATION ENABLE /DISABLE
Line S00034 Modification History
M01 (Added by) ns2443
Seq # *Modification Id* Act
----------------------------+
06031 M01S00034.ns2443 +++| SRU1 SA1 SRUA
06032 M01S00035.ns2443 +++| SB4 X1
06033 M01S00036.ns2443 +++| SA1 A4+B1
06034 M00S03465.cpumtr +++| MX2 1
Line S03466 Modification History
M01 (Removed by) ns2443
Seq # *Modification Id* Act
----------------------------+
06035 M01S03466.ns2443 ---| SB4 X0 RESTORE EXIT ADDRESS
06036 M00S03467.cpumtr +++| BX2 X2*X1
06037 M00S03468.cpumtr +++| BX6 X2+X4
06038 M00S03469.cpumtr +++| SA6 A1
06039 M00S03470.cpumtr +++| JP B4 EXIT
Line S00037 Modification History
M01 (Added by) ns2443
Seq # *Modification Id* Act
----------------------------+
06040 M01S00037.ns2443 +++|
06041 M01S00038.ns2443 +++| SRUA CON 0
06042 M00S03471.cpumtr +++| STL SPACE 4,15
06043 M00S03472.cpumtr +++|** STL - SET CPU TIME LIMIT.
06044 M00S03473.cpumtr +++|*
06045 M00S03474.cpumtr +++|* ENTRY (X3)= TIME LIMIT IN MILLISECONDS.
06046 M00S03475.cpumtr +++|* IF (X3) .LT. 0, TIME LIMIT IS UNLIMITED.
06047 M00S03476.cpumtr +++|* (B7)= CONTROL POINT ADDRESS.
06048 M00S03477.cpumtr +++|* (B3)= EXIT ADDRESS.
06049 M00S03478.cpumtr +++|*
06050 M00S03479.cpumtr +++|* EXIT (X7) = 0.
06051 M00S03480.cpumtr +++|*
06052 M00S03481.cpumtr +++|* USES X - 1, 2, 6, 7.
06053 M00S03482.cpumtr +++|* B - 4.
06054 M00S03483.cpumtr +++|* A - 2, 6.
06055 M00S03484.cpumtr +++|*
06056 M00S03485.cpumtr +++|* CALLS MSB.
06057 M00S03486.cpumtr +++|
06058 M00S03487.cpumtr +++|
06059 M00S03488.cpumtr +++| STL SA2 B7+SRUW ENTRY
06060 M00S03489.cpumtr +++| MX1 1
06061 M00S03490.cpumtr +++| BX6 -X1*X3
06062 M00S03491.cpumtr +++| LX1 58-59
06063 M00S03492.cpumtr +++| BX7 -X1*X2 CLEAR TIME LIMIT
06064 M00S03493.cpumtr +++| SA7 A2+
06065 M00S03494.cpumtr +++| NG X3,STL1 IF UNLIMITED REQUEST
06066 M00S03495.cpumtr +++| SB4 STL1 SET *MSB* RETURN ADDRESS
06067 M00S03496.cpumtr +++| SA2 CPTC MILLISECONDS TO QUARTER NANOUNITS
06068 M00S03497.cpumtr +++| EQ /PROGRAM/MSB MULTIPLY 60 BIT INTEGER
06069 M00S03498.cpumtr +++|
06070 M00S03499.cpumtr +++| STL1 SA6 B7+CPLW
06071 M00S03500.cpumtr +++| SX7 B0+ CLEAR OUTPUT REGISTER
06072 M00S03501.cpumtr +++| JP B3 RETURN
06073 M00S03502.cpumtr +++| SXR SPACE 4,10
06074 M00S03503.cpumtr +++|** SXR - SET *X* STATUS WITH RECALL CRITERION.
06075 M00S03504.cpumtr +++|*
06076 M00S03505.cpumtr +++|* ENTRY (X0) = RECALL CRITERION.
06077 M00S03506.cpumtr +++|* (B7) = CONTROL POINT ADDRESS.
06078 M00S03507.cpumtr +++|*
06079 M00S03508.cpumtr +++|* EXIT TO *MTRX* IF CONTROL POINT NOT ACTIVE.
06080 M00S03509.cpumtr +++|* TO *BNJ* BEGIN NEW JOB.
Line S00870 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06081 M01S00870.271l750 +++|*
06082 M01S00871.271l750 +++|* USES X - ALL.
06083 M01S00872.271l750 +++|* A - 1, 2, 3, 6, 7.
06084 M00S03510.cpumtr +++|
06085 M00S03511.cpumtr +++|
06086 M00S03512.cpumtr +++| SXR SA1 B7+STSW GET JOB STATUS
Line S00873 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06087 M01S00873.271l750 +++| SA2 RQRL
06088 M01S00874.271l750 +++| SA3 B7+CWQW
06089 M01S00875.271l750 +++| SX6 1
06090 M01S00876.271l750 +++| NG X1,MTRX IF *W* OR *I* STATUS
06091 M01S00877.271l750 +++| LX6 46-0
06092 M01S00878.271l750 +++| AX1 57
06093 M01S00879.271l750 +++| BX6 -X6*X3 CLEAR RECALL NOT REQUIRED FLAG
06094 M01S00880.271l750 +++| ZR X1,MTRX IF NULL STATUS
06095 M01S00881.271l750 +++| SA6 B7+CWQW UPDATE *CWQW*
06096 M00S03513.cpumtr +++| MX4 -12
Line S03514 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06097 M01S03514.271l750 ---| NG X1,MTRX IF *W* OR *I* STATUS
06098 M01S03515.271l750 ---| SA2 RQRL
06099 M01S03516.271l750 ---| AX1 57
06100 M01S03517.271l750 ---| ZR X1,MTRX IF NULL STATUS
06101 M00S03518.cpumtr +++| LX0 12
06102 M00S03519.cpumtr +++|
06103 M00S03520.cpumtr +++|* FIND POSITION IN *RQ*. CODE IS REPLICATED FOR PERFORMANCE
06104 M00S03521.cpumtr +++|* REASONS.
06105 M00S03522.cpumtr +++|
06106 M00S03523.cpumtr +++| SXR1 BX7 -X4*X2
06107 M00S03524.cpumtr +++| SA3 X7
06108 M00S03525.cpumtr +++| IX6 X3-X0
06109 M00S03526.cpumtr +++| BX5 -X4*X3
06110 M00S03527.cpumtr +++| PL X6,SXR2 IF POSITION REACHED
06111 M00S03528.cpumtr +++| SA2 X5
06112 M00S03529.cpumtr +++| IX6 X2-X0
06113 M00S03530.cpumtr +++| NG X6,SXR1 IF POSITION NOT REACHED
06114 M00S03531.cpumtr +++| BX7 X5
06115 M00S03532.cpumtr +++| SA2 A3
06116 M00S03533.cpumtr +++| SXR2 SX3 B7+CRCW ADDRESS OF NEW ENTRY
06117 M00S03534.cpumtr +++| BX7 X7+X0
06118 M00S03535.cpumtr +++| SA7 X3
06119 M00S03536.cpumtr +++| BX2 X4*X2
06120 M00S03537.cpumtr +++| BX6 X2+X3
06121 M00S03538.cpumtr +++| SX7 XCPS
06122 M00S03539.cpumtr +++| SA6 A2
06123 M00S03540.cpumtr +++| EQ BNJ BEGIN NEW JOB
06124 M00S03541.cpumtr +++| SXS SPACE 4
06125 M00S03542.cpumtr +++|** SXS - SET *X* STATUS.
06126 M00S03543.cpumtr +++|*
06127 M00S03544.cpumtr +++|* ENTRY (B7) = CONTROL POINT ADDRESS.
06128 M00S03545.cpumtr +++|*
06129 M00S03546.cpumtr +++|* EXIT TO SXR.
06130 M00S03547.cpumtr +++|
06131 M00S03548.cpumtr +++|
06132 M00S03549.cpumtr +++| SXS SA1 RTCL GET CURRENT TIME
06133 M00S03550.cpumtr +++| SA2 MSCL EXTRACT RECALL TIME DELAY
06134 M00S03551.cpumtr +++| MX0 -36
06135 M00S03552.cpumtr +++| BX1 -X0*X1
06136 M00S03553.cpumtr +++| MX0 -12
06137 M00S03554.cpumtr +++| LX2 -36
06138 M00S03555.cpumtr +++| BX2 -X0*X2
06139 M00S03556.cpumtr +++| SX0 PTMF SET RECALL CRITERION
06140 M00S03557.cpumtr +++| IX1 X1+X2
06141 M00S03558.cpumtr +++| LX0 36
06142 M00S03559.cpumtr +++| BX0 X0+X1
06143 M00S03560.cpumtr +++| EQ SXR SET *X* STATUS WITH RECALL CRITERION
Line S03561 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06144 M01S03561.271l750 ---| TSM SPACE 4,10
Line S00882 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06145 M01S00882.271l750 +++| TSM SPACE 4,15
06146 M00S03562.cpumtr +++|** TSM - TERMINATE STORAGE MOVE.
06147 M00S03563.cpumtr +++|*
06148 M00S03564.cpumtr +++|* EXIT (SMRL) = 0.
Line S00204 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
06149 M01S00204.271l716 +++|* TO *BNJ1* (VIA *UMT* AND *JAV*).
06150 M01S00205.271l716 +++|* TO *CRA5* IF FIELD LENGTH SWAP.
06151 M00S03565.cpumtr +++|*
Line S03566 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06152 M01S03566.271l716 ---|* USES X - 1, 2, 4, 5, 6.
06153 M01S03567.271l716 ---|* A - 1, 4, 6.
06154 M01S03568.271l716 ---|* B - 3, 6, 7.
06155 M01S03569.271l716 ---|*
06156 M01S03570.271l716 ---|* CALLS BNJ, JAV, RCC.
Line S00206 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
06157 M01S00206.271l716 +++|* USES X - 0, 1, 2, 4, 5, 6.
06158 M01S00207.271l716 +++|* A - 1, 4, 6.
06159 M01S00208.271l716 +++|* B - 3, 6.
06160 M01S00209.271l716 +++|*
06161 M01S00210.271l716 +++|* CALLS BNJ, JAV, RCC, SCA.
06162 M00S03571.cpumtr +++|
06163 M00S03572.cpumtr +++|
06164 M00S03573.cpumtr +++| TSM SA1 SMPXP+STSW CLEAR CPU STATUS ON PSEUDO-CP
Line S03574 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06165 M01S03574.271l716 ---| SA4 SMRL
06166 M01S03575.271l716 ---| MX2 -57
06167 M01S03576.271l716 ---| MX5 -12
06168 M01S03577.271l716 ---| BX6 -X2*X1 SET NULL STATUS
06169 M01S03578.271l716 ---| BX0 -X5*X4 CONTROL POINT STATUS
06170 M01S03579.271l716 ---| SA6 A1
06171 M01S03580.271l716 ---| LX4 59-37
Line S03581 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06172 M02S03581.271l716 ---| TNG X4,(/ECS/TSM4,/MONITOR/TSM1,EEC) IF ECS ERROR ON MOVE
Line S00105 Modification History
M01 (Added by) 252l678
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06173 M02S00105.271l716 ---| TNG X4,(/ECS/TSM4,EEC,/MONITOR/TSM1) IF ECS ERROR ON MOVE
Line S03582 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06174 M01S03582.271l716 ---| TSM1 LX4 59-36-59+37
Line S03583 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06175 M02S03583.271l716 ---| TNG X4,(/ECS/TSM8,/MONITOR/TSM2,EEC) IF USER ECS ERROR
Line S00106 Modification History
M01 (Added by) 252l678
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06176 M02S00106.271l716 ---| TNG X4,(/ECS/TSM8,EEC,/MONITOR/TSM2) IF USER ECS ERROR
Line S03584 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06177 M01S03584.271l716 ---| TSM2 LX4 59-47-59+36
06178 M01S03585.271l716 ---| SB7 X0 CONTROL POINT ADDRESS
06179 M01S03586.271l716 ---| AX4 57
06180 M01S03587.271l716 ---| MX5 2 *I* STATUS
06181 M01S03588.271l716 ---| ERRNZ ICPS-6 CODE DEPENDS ON VALUE
06182 M01S03589.271l716 ---| SB3 TSM3 *JAV*/*RCC* RETURN ADDRESS
06183 M01S03590.271l716 ---| ZR X4,JAV IF STATUS PREVIOUS NULL
Line S00211 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
06184 M01S00211.271l716 +++| MX2 -57
06185 M01S00212.271l716 +++| BX6 -X2*X1 SET NULL STATUS
06186 M01S00213.271l716 +++| SA6 A1+
06187 M01S00214.271l716 +++| SB3 TSM1
06188 M01S00215.271l716 +++| EQ SCA CONVERT CP/PCP ADDRESS
06189 M01S00216.271l716 +++|
06190 M01S00217.271l716 +++| TSM1 SA4 A2 READ *SMRL*
06191 M01S00218.271l716 +++| LX4 59-37
06192 M01S00219.271l716 +++| TNG X4,(/ECS/TSM4,EEC,/MONITOR/TSM2) IF ECS ERROR ON MOVE
06193 M01S00220.271l716 +++| TSM2 LX4 37-36
06194 M01S00221.271l716 +++| ERRNZ ICPS-6 CODE DEPENDS ON VALUE
06195 M01S00222.271l716 +++| MX5 2
06196 M01S00223.271l716 +++| TNG X4,(/ECS/TSM8,EEC,/MONITOR/TSM3) IF USER ECS ERROR
06197 M01S00224.271l716 +++| TSM3 LX4 59-47+36-59
06198 M01S00225.271l716 +++| SB3 TSM4 *RCC* RETURN ADDRESS
06199 M01S00226.271l716 +++| AX4 57
06200 M01S00227.271l716 +++| ZR X4,TSM4 IF STATUS PREVIOUS NULL
Line S03591 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06201 M01S03591.271l716 ---| SX4 X4+B1
Line S00228 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
06202 M01S00228.271l716 +++| SX4 X4+1
Line S00229 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06203 M02S00229.271l750 ---| MX2 -57
Line S03592 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06204 M01S03592.271l750 ---| SB6 B7 EXCHANGE PACKAGE ADDRESS
06205 M01S03593.271l750 ---| NZ X4,RCC0 IF PREVIOUSLY ACTIVE STATUS
Line S00883 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06206 M01S00883.271l750 +++| SB6 B7+ EXCHANGE PACKAGE ADDRESS
06207 M01S00884.271l750 +++| NZ X4,RCC IF PREVIOUSLY ACTIVE STATUS
Line S03594 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06208 M01S03594.271l716 ---| SA1 B7+STSW SET *I* STATUS
06209 M01S03595.271l716 ---| BX6 X1+X5
06210 M01S03596.271l716 ---| SA6 A1
Line S00230 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
06211 M01S00230.271l716 +++| SA1 B7+STSW
06212 M01S00231.271l716 +++| BX6 X1+X5 SET *I* STATUS
06213 M01S00232.271l716 +++| SA6 A1
06214 M00S03597.cpumtr +++|
06215 M00S03598.cpumtr +++|* CPU STATUS IS RESTORED BEFORE *SMRL* IS CLEARED SO THAT ANY
06216 M00S03599.cpumtr +++|* PP PROGRAMS SENSING CPU STATUS WILL NOT MISS IT.
06217 M00S03600.cpumtr +++|
Line S03601 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06218 M01S03601.271l716 ---| TSM3 SX6 B0+ INDICATE STORAGE MOVE COMPLETE
06219 M01S03602.271l716 ---| SA6 SMRL
06220 M01S03603.271l716 ---| EQ BNJ1 BEGIN NEW JOB
Line S00233 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
06221 M01S00233.271l716 +++| TSM4 SA2 TSMA CHECK BLOCK MOVE STATUS
06222 M01S00234.271l716 +++| SB4 BNJ1
06223 M01S00235.271l716 +++| NZ X2,TSM6 IF FIELD LENGTH SWAP
06224 M01S00236.271l716 +++| TB5 SCA
06225 M01S00237.271l716 +++| GT B7,B5,TSM5 IF PSEUDO-CONTROL POINT
06226 M01S00238.271l716 +++| SB4 JAV SET *UMT* EXIT ADDRESS
06227 M01S00239.271l716 +++| TSM5 SB3 BNJ1 SET *JAV* EXIT ADDRESS
06228 M01S00240.271l716 +++| EQ UMT UPDATE MEMORY CONTROL TABLE
06229 M01S00241.271l716 +++|
06230 M01S00242.271l716 +++| TSM6 SA1 SMRL GET MOVE PARAMETERS
06231 M01S00243.271l716 +++| BX0 X2
06232 M01S00244.271l716 +++| SX4 X1 EXTRACT MEMORY TYPE FLAG
06233 M01S00245.271l716 +++| AX4 12-1
06234 M01S00246.271l716 +++| MX5 -12
06235 M01S00247.271l716 +++| ERRNZ FLSW+2-ECSW CODE DEPENDS ON VALUE
06236 M01S00248.271l716 +++| SX6 X4+FLSW
06237 M01S00249.271l716 +++| SA1 X6+B7 READ FL CONTROL WORD
06238 M01S00250.271l716 +++| SX2 B7
06239 M01S00251.271l716 +++| BX5 -X5*X1 EXTRACT FIELD LENGTH
06240 M01S00252.271l716 +++| AX4 1
06241 M01S00253.271l716 +++| AX2 7-1
06242 M01S00254.271l716 +++| TB5 X4,MCT SET BASE MCT ADDRESS
06243 M01S00255.271l716 +++| AX1 48
06244 M01S00256.271l716 +++| SA4 X2+B5 READ REQUESTOR-S MCT ENTRY
06245 M01S00257.271l716 +++| IX1 X1+X5
06246 M01S00258.271l716 +++| LX0 1 CONVERT MCT ORDINAL TO INDEX
06247 M01S00259.271l716 +++| IX7 X4+X1 ADJUST REQUESTOR-S HOLE SIZE
06248 M01S00260.271l716 +++| SA4 TSMB GET PRE-MOVE HOLE POINT HOLE SIZE
06249 M01S00261.271l716 +++| SA3 X0+B5 READ HOLE POINT MCT ENTRY
06250 M01S00262.271l716 +++| MX5 12
06251 M01S00263.271l716 +++| IX6 X3-X4 ADJUST HOLE POINT HOLE SIZE
06252 M01S00264.271l716 +++| SA7 X2+B5
06253 M01S00265.271l716 +++| IX4 X4-X1
06254 M01S00266.271l716 +++| AX2 1
06255 M01S00267.271l716 +++| MX7 -24
06256 M01S00268.271l716 +++| BX3 X7*X3
06257 M01S00269.271l716 +++| LX5 -12
06258 M01S00270.271l716 +++| BX3 X3+X4
06259 M01S00271.271l716 +++| EQ CRA5 CHANGE MEMORY TABLE LINKAGE
06260 M01S00272.271l716 +++|
06261 M01S00273.271l716 +++|
06262 M01S00274.271l716 +++| TSMA CON 0 HOLE POINT NUMBER IF BLOCK MOVE
06263 M01S00275.271l716 +++| TSMB CON 0 PRE-MOVE HOLE POINT HOLE SIZE
06264 M00S03604.cpumtr +++| TITLE CPU REQUEST PROCESSOR.
06265 M00S03605.cpumtr +++| CPR SPACE 4
06266 M00S03606.cpumtr +++|*** CPU PROGRAM REQUESTS.
06267 M00S03607.cpumtr +++|*
06268 M00S03608.cpumtr +++|*
06269 M00S03609.cpumtr +++|* CPU PROGRAM REQUESTS ARE PASSED THROUGH RELATIVE
06270 M00S03610.cpumtr +++|* LOCATION 1. THE FORMAT IS AS FOLLOWS -
06271 M00S03611.cpumtr +++|*
06272 M00S03612.cpumtr +++|*T 18/ NAME,6/ A,36/ ARG
Figure
0 29 ARG 30 35 36 41 42 59 ARG A NAME
06273 M00S03613.cpumtr +++|*
06274 M00S03614.cpumtr +++|* NAME REQUEST NAME
06275 M00S03615.cpumtr +++|* A 20B IF AUTO RECALL DESIRED
06276 M00S03616.cpumtr +++|* ARG ARGUMENTS
06277 M00S03617.cpumtr +++|*
06278 M00S03618.cpumtr +++|*
06279 M00S03619.cpumtr +++|* IF THE REQUEST IS NOT ONE OF THE FOLLOWING, AND THE
06280 M00S03620.cpumtr +++|* NAME OF THE REQUEST BEGINS WITH AN ALPHA CHARACTER,
06281 M00S03621.cpumtr +++|* THE REQUEST IS ASSUMED TO BE THE NAME OF A PP PROGRAM, AND
06282 M00S03622.cpumtr +++|* THIS PROGRAM IS ASSIGNED TO AN AVAILABLE PP.
06283 M00S03623.cpumtr +++|*
06284 M00S03624.cpumtr +++|* IF THE REQUEST IS NOT OF THE ABOVE FORMAT, THE JOB IS
06285 M00S03625.cpumtr +++|* ABORTED WITH A *MONITOR CALL ERROR.*.
06286 M00S03626.cpumtr +++| CPR SPACE 4
06287 M00S03627.cpumtr +++|** CPR - PROCESS CPU REQUEST.
06288 M00S03628.cpumtr +++|*
06289 M00S03629.cpumtr +++|* ENTRY (X2) = RA.
06290 M00S03630.cpumtr +++|* (X5) = (RA+1).
06291 M00S03631.cpumtr +++|* (A2) = ADDRESS OF RA IN EXCHANGE PACKAGE.
06292 M00S03632.cpumtr +++|* (B3) = ADDRESS OF WORD IN CPUMTR CONTAINING RA.
06293 M00S03633.cpumtr +++|* (B7) = CONTROL POINT ADDRESS.
06294 M00S03634.cpumtr +++|
06295 M00S03635.cpumtr +++|
06296 M00S03636.cpumtr +++| CPR SA1 A2+B1 GET FL
06297 M00S03637.cpumtr +++| BX4 X5
06298 M00S03638.cpumtr +++| MX0 -12
06299 M00S03639.cpumtr +++| LX4 18
06300 M00S03640.cpumtr +++| AX1 36
Line S00039 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06301 M02S00039.271l750 ---| BX7 X7-X7 INDICATE RA+1 PROCESS
06302 M02S00040.271l750 ---| SA7 MS
06303 M00S03641.cpumtr +++| SX7 X4-3RRCL
06304 M00S03642.cpumtr +++| SB4 X1 SET FL
06305 M00S03643.cpumtr +++| NZ X7,CPR2 IF NOT *RCL*
06306 M00S03644.cpumtr +++|
06307 M00S03645.cpumtr +++|* PROCESS *RCL* IN LINE DUE TO FREQUENCY OF USE.
06308 M00S03646.cpumtr +++|
06309 M00S03647.cpumtr +++| LX4 59-40-18
06310 M00S03648.cpumtr +++| SX3 B1
06311 M00S03649.cpumtr +++| IX2 X2+X3 RA+1
06312 M00S03650.cpumtr +++| NG X4,CPR1 IF AUTO RECALL
06313 M00S03651.cpumtr +++| EWX7 X2 CLEAR RA+1
06314 M00S03652.cpumtr +++| EQ SXS SET *X* STATUS
06315 M00S03653.cpumtr +++|
06316 M00S03654.cpumtr +++| CPR1 SX3 X5-1 RECALL ADDRESS - 1
06317 M00S03655.cpumtr +++| SA1 B7+STSW CHECK ACTIVITY
06318 M00S03656.cpumtr +++| MX6 -4
06319 M00S03657.cpumtr +++| SB5 X5
06320 M00S03658.cpumtr +++| LX6 4
06321 M00S03659.cpumtr +++| IX4 X2+X3 ADDRESS OF WORD RECALLED ON
06322 M00S03660.cpumtr +++| BX7 -X6*X1
06323 M00S03661.cpumtr +++| LX6 48-4
06324 M00S03662.cpumtr +++| GE B5,B4,CPE IF ILLEGAL ADDRESS
06325 M00S03663.cpumtr +++| LE B5,B1,CPE IF ILLEGAL ADDRESS
06326 M00S03664.cpumtr +++| BX6 -X6*X1
06327 M00S03665.cpumtr +++| ERX1 X4 CHECK WORD RECALLED ON
06328 M00S03666.cpumtr +++| BX7 X7+X6
06329 M00S03667.cpumtr +++| MX6 -18
06330 M00S03668.cpumtr +++| R= X0,PCBF PROCESS COMPLETION BIT
06331 M00S03669.cpumtr +++| LX0 36
06332 M00S03670.cpumtr +++| LX1 59-0
06333 M00S03671.cpumtr +++| BX0 X0+X4
06334 M00S03672.cpumtr +++| SA4 B7+SSCW CHECK FOR SUBSYSTEM CONNECTIONS
06335 M00S03673.cpumtr +++| ZR X7,CPR1.2 IF NO ACTIVITY
06336 M00S03674.cpumtr +++| PL X1,SXR IF BUSY, SET *X* STATUS, RECALL CONDITION
06337 M00S03675.cpumtr +++| CPR1.1 BX7 X7-X7
06338 M00S03676.cpumtr +++| EWX7 X2 CLEAR RA+1
06339 M00S03677.cpumtr +++| EQ MTRX RETURN
06340 M00S03678.cpumtr +++|
06341 M00S03679.cpumtr +++| CPR1.2 NG X1,CPR1.1 IF COMPLETION BIT SET
06342 M00S03680.cpumtr +++| SA1 B7+DBAW GET K-DISPLAY BUFFER ADDRESSES
06343 M00S03681.cpumtr +++| SA2 B7+JCIW CHECK SUBSYSTEM ID
06344 M00S03682.cpumtr +++| MX3 -12
06345 M00S03683.cpumtr +++| BX7 -X6*X5
Line S03684 Modification History
M01 (Removed by) v22l602
Seq # *Modification Id* Act
----------------------------+
06346 M01S03684.v22l602 ---| MX5 -48
06347 M00S03685.cpumtr +++| LX3 24
06348 M00S03686.cpumtr +++| BX3 -X3*X2
Line S03687 Modification History
M01 (Removed by) v22l602
Seq # *Modification Id* Act
----------------------------+
06349 M01S03687.v22l602 ---| BX5 -X5*X4
06350 M00S03688.cpumtr +++| NZ X3,SXR IF SUBSYSTEM
Line S03689 Modification History
M01 (Removed by) v22l602
Seq # *Modification Id* Act
----------------------------+
06351 M01S03689.v22l602 ---| NZ X5,SXR IF WAIT RESPONSE INDICATORS SET
Line S00004 Modification History
M01 (Added by) v22l602
Seq # *Modification Id* Act
----------------------------+
06352 M01S00004.v22l602 +++| NZ X4,SXS IF SUBSYSTEM CONNECTIONS
06353 M00S03690.cpumtr +++| BX3 -X6*X1 CHECK K-DISPLAY BUFFERS
06354 M00S03691.cpumtr +++| LX6 18
06355 M00S03692.cpumtr +++| BX6 -X6*X1
06356 M00S03693.cpumtr +++| LX1 59-58
06357 M00S03694.cpumtr +++| BX3 X3-X7
06358 M00S03695.cpumtr +++| LX6 -18
06359 M00S03696.cpumtr +++| BX6 X6-X7
06360 M00S03697.cpumtr +++| SX7 RCET
06361 M00S03698.cpumtr +++| NG X1,SEF IF K-DISPLAY STATUS NOT TO BE RETURNED
06362 M00S03699.cpumtr +++| ZR X3,SXR IF K-DISPLAY ADDRESS MATCHES
06363 M00S03700.cpumtr +++| ZR X6,SXR IF K-DISPLAY ADDRESS MATCHES
06364 M00S03701.cpumtr +++| EQ SEF SET ERROR FLAG
06365 M00S03702.cpumtr +++|
06366 M00S03703.cpumtr +++| CPR2 SX6 X4-3RTIM
06367 M00S03704.cpumtr +++| SA3 CMCL CHECK STORAGE MOVE REQUEST
06368 M00S03705.cpumtr +++| ZR X6,TIM IF *TIM*
06369 M00S03706.cpumtr +++| SX7 B7
Line S03707 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
06370 M01S03707.271l716 ---| LX3 -48
06371 M01S03708.271l716 ---| BX3 -X0*X3
Line S00276 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
06372 M01S00276.271l716 +++| AX3 48
06373 M01S00277.271l716 +++| AX7 7
06374 M00S03709.cpumtr +++| BX7 X7-X3
06375 M00S03710.cpumtr +++| SA3 B7+STSW CHECK SUBCP ACTIVE
06376 M00S03711.cpumtr +++| ZR X7,SXS IF STORAGE MOVE REQUESTED
06377 M00S03712.cpumtr +++| LX3 59-56
06378 M00S03713.cpumtr +++| BX7 -X0*X4
Line S03714 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
06379 M01S03714.252l678 ---| CPR3 TNG X3,(/MONITOR/BCE,/MONITOR/CPR3,SUBCP)
Line S00107 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
06380 M01S00107.252l678 +++| CPR3 TNG X3,(/MONITOR/BCE,SUBCP,/MONITOR/CPR3)
06381 M00S03715.cpumtr +++| SB5 X4-3RMSG
06382 M00S03716.cpumtr +++| ZR X7,CPE IF LAST TWO CHARACTERS OF PP CALL ZERO
Line S00001 Modification History
M01 (Added by) cpum132
Seq # *Modification Id* Act
----------------------------+
06383 M01S00001.cpum132 +++| SX7 B1+
06384 M01S00002.cpum132 +++| LX7 41-0
06385 M01S00003.cpum132 +++| BX5 -X7*X5 CLEAR BIT 41 IN RA+1 CALL
06386 M00S03717.cpumtr +++|
06387 M00S03718.cpumtr +++|
06388 M00S03719.cpumtr +++|* IDENTIFY REQUEST BY TREE SEARCH.
06389 M00S03720.cpumtr +++|* EXIT TO PROCESSOR WITH
06390 M00S03721.cpumtr +++|* (X0) = -7777B
06391 M00S03722.cpumtr +++|* (X1) = FL
06392 M00S03723.cpumtr +++|* (X2) = RA
06393 M00S03724.cpumtr +++|* (X4) = REQUEST WORD SHIFTED 18
06394 M00S03725.cpumtr +++|* (X5) = REQUEST WORD
06395 M00S03726.cpumtr +++|* (B3) = ADDRESS OF MEMORY WORD CONTAINING RA.
06396 M00S03727.cpumtr +++|* (B4) = FL
06397 M00S03728.cpumtr +++|* (B7) = CONTROL POINT ADDRESS
06398 M00S03729.cpumtr +++|
06399 M00S03730.cpumtr +++| ZR B5,MSG IF *MSG*
06400 M00S03731.cpumtr +++| SX7 X4-3RCIO
06401 M00S03732.cpumtr +++| PL B5,CPR5 IF ABOVE *MSG*
06402 M00S03733.cpumtr +++| ZR X7,CIO IF *CIO*
06403 M00S03734.cpumtr +++| PL X7,CPR4 IF ABOVE *CIO*
06404 M00S03735.cpumtr +++| SB6 X4-3RABT
06405 M00S03736.cpumtr +++| ZR B6,ABT IF *ABT*
06406 M00S03737.cpumtr +++| SX6 X4-3RAAA
06407 M00S03738.cpumtr +++| PL X6,APJ IF LEGAL PROGRAM NAME
06408 M00S03739.cpumtr +++| EQ CPE *MONITOR CALL ERROR.*
06409 M00S03740.cpumtr +++|
06410 M00S03741.cpumtr +++|
06411 M00S03742.cpumtr +++| CPR4 SX6 X4-3RLDR
06412 M00S03743.cpumtr +++| ZR X6,LDR IF *LDR*
06413 M00S03744.cpumtr +++| SX7 X4-3RCPM
06414 M00S03745.cpumtr +++| PL X6,LDV IF ABOVE *LDR*
06415 M00S03746.cpumtr +++| SX6 X4-3REND
06416 M00S03747.cpumtr +++| ZR X7,CPM IF *CPM*
06417 M00S03748.cpumtr +++| SX7 X4-3REJT
06418 M00S03749.cpumtr +++| ZR X6,END IF *END*
06419 M00S03750.cpumtr +++| ZR X7,EJT IF *EJT*
06420 M00S03751.cpumtr +++| SX7 X4-3RCLO
06421 M00S03752.cpumtr +++| NZ X7,APJ IF NOT *CLO*
06422 M00S03753.cpumtr +++| EQ CLO CONVERT *CLO* TO *CIO*
06423 M00S03754.cpumtr +++|
06424 M00S03755.cpumtr +++|
06425 M00S03756.cpumtr +++| CPR5 SX7 X4-3RRFL
06426 M00S03757.cpumtr +++| PL X6,CPR6 IF ABOVE *TIM*
06427 M00S03758.cpumtr +++| NG X7,PFL IF BELOW *RFL*
06428 M00S03759.cpumtr +++| SX6 X4-3RRSB
06429 M00S03760.cpumtr +++| ZR X7,RFL IF *RFL*
06430 M00S03761.cpumtr +++| ZR X6,RSB IF *RSB*
06431 M00S03762.cpumtr +++| SX7 X4-3RSPC
06432 M00S03763.cpumtr +++| ZR X7,SPC IF *SPC*
06433 M00S03764.cpumtr +++| PL X6,SIC IF ABOVE *RSB*
06434 M00S03765.cpumtr +++| SX6 X4-3RRPV
06435 M00S03766.cpumtr +++| ZR X6,RPV IF *RPV*
06436 M00S03767.cpumtr +++| EQ APJ
06437 M00S03768.cpumtr +++|
06438 M00S03769.cpumtr +++|
06439 M00S03770.cpumtr +++| CPR6 SX7 X4-3RWCL
06440 M00S03771.cpumtr +++| SX6 X4-3RXJP
06441 M00S03772.cpumtr +++| ZR X7,WCL IF *WCL*
06442 M00S03773.cpumtr +++| SX7 X4-3RXJR
Line S03774 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
06443 M01S03774.252l678 ---| TZR X6,(/MONITOR/XJP,/MONITOR/APJ,SUBCP) IF *XJP*
Line S00108 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
06444 M01S00108.252l678 +++| TZR X6,(/MONITOR/XJP,SUBCP,/MONITOR/APJ) IF *XJP*
06445 M00S03775.cpumtr +++| ZR X7,XJR IF *XJR*
06446 M00S03776.cpumtr +++| SX6 X4-3R0AA
06447 M00S03777.cpumtr +++| PL X6,CPE IF ILLEGAL REQUEST
06448 M00S03778.cpumtr +++| EQ APJ ASSIGN PPU JOB
06449 M00S03779.cpumtr +++| AAR SPACE 4,10
06450 M00S03780.cpumtr +++|** AAR - ASSIGN AUTO RECALL PP REQUEST.
06451 M00S03781.cpumtr +++|*
06452 M00S03782.cpumtr +++|* ENTRY (X5) = PP REQUEST.
06453 M00S03783.cpumtr +++|* (B7) = CONTROL POINT.
06454 M00S03784.cpumtr +++|
06455 M00S03785.cpumtr +++|
06456 M00S03786.cpumtr +++| AAR SB4 B0+ SET LIBRARY SEARCH NEEDED
06457 M00S03787.cpumtr +++| AAR1 SB6 AAR2 *CAL* RETURN ADDRESS - NO LIMIT
06458 M00S03788.cpumtr +++| SB3 SXS *CAL* RETURN ADDRESS - ACTIVITY LIMIT
06459 M00S03789.cpumtr +++| EQ CAL CHECK ACTIVITY LIMIT
06460 M00S03790.cpumtr +++|
06461 M00S03791.cpumtr +++| AAR2 MX0 1 FORCE AUTO-RECALL
06462 M00S03792.cpumtr +++| SX7 B0+ CLEAR RA+1
06463 M00S03793.cpumtr +++| LX0 41-59
06464 M00S03794.cpumtr +++| SA2 RA1 ADDRESS OF RA+1
06465 M00S03795.cpumtr +++| EWX7 X2 CLEAR (RA+1)
06466 M00S03796.cpumtr +++| BX6 X0+X5
06467 M00S03797.cpumtr +++| SA7 APQA
06468 M00S03798.cpumtr +++| SB3 SIS *APQ* RETURN ADDRESS
06469 M00S03799.cpumtr +++| EQ APQ ASSIGN PP
06470 M00S03800.cpumtr +++| APJ SPACE 4,15
06471 M00S03801.cpumtr +++|** APJ - ASSIGN PPU JOB.
06472 M00S03802.cpumtr +++|*
06473 M00S03803.cpumtr +++|* ENTRY (X5) = PPU REQUEST WORD.
06474 M00S03804.cpumtr +++|* (B7) = CONTROL POINT ADDRESS.
06475 M00S03805.cpumtr +++|*
Line S03806 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06476 M01S03806.271l750 ---|* EXIT TO MTRX.
Line S00885 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06477 M01S00885.271l750 +++|* EXIT TO *APQ* TO ASSIGN PP.
06478 M01S00886.271l750 +++|* TO *SXS* TO SET X STATUS IF ACTIVITY LIMIT.
06479 M00S03807.cpumtr +++|*
Line S03808 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06480 M01S03808.271l750 ---|* USES X - 0, 1, 2, 3, 4, 5, 6, 7.
06481 M01S03809.271l750 ---|* B - 3.
06482 M01S03810.271l750 ---|* A - 1, 2, 4, 7.
Line S00887 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06483 M01S00887.271l750 +++|* USES X - ALL.
06484 M01S00888.271l750 +++|* B - 3, 4, 6.
06485 M01S00889.271l750 +++|* A - 1, 2, 7.
06486 M00S03811.cpumtr +++|*
Line S03812 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06487 M01S03812.271l750 ---|* CALLS APQ, SIS, SXS.
Line S00890 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06488 M01S00890.271l750 +++|* CALLS CAL.
06489 M00S03813.cpumtr +++|
06490 M00S03814.cpumtr +++|
Line S03815 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
06491 M01S03815.242l642 ---| APJ SB4 B0+ SET LIBRARY SEARCH NEEDED
Line S00018 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
06492 M01S00018.242l642 +++| APJ BX7 X7-X7 CLEAR PP PARAMETER WORD
06493 M01S00019.242l642 +++| SB4 B0 SET LIBRARY SEARCH NEEDED
06494 M01S00020.242l642 +++| SA7 APQA
06495 M00S03816.cpumtr +++| APJ0 SA1 B7+JCIW CHECK FOR SUBSYSTEM OR NON-ROLLABLE JOB
06496 M00S03817.cpumtr +++| SX3 B1
06497 M00S03818.cpumtr +++| LX1 0-21
06498 M00S03819.cpumtr +++| BX4 X3*X1 *DIS* FLAG
06499 M00S03820.cpumtr +++| LX3 40-0
06500 M00S03821.cpumtr +++| BX6 X3*X5 CHECK FOR AUTO RECALL
06501 M00S03822.cpumtr +++| LX1 -24-0+21
06502 M00S03823.cpumtr +++| MX2 -12
06503 M00S03824.cpumtr +++| BX2 -X2*X1 SUBSYSTEM IDENTIFICATION
06504 M00S03825.cpumtr +++| NZ X6,APJ0.1 IF PP CALL WITH AUTO RECALL
06505 M00S03826.cpumtr +++| BX6 X2+X4
06506 M00S03827.cpumtr +++| NZ X6,APJ2 IF SYSTEM JOB
06507 M00S03828.cpumtr +++| BX5 X5+X3 FORCE AUTO RECALL
Line S03829 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06508 M01S03829.271l750 ---| APJ0.1 SA1 A1-B1 GET *STSW* CPA WORD
06509 M01S03830.271l750 ---| ERRNZ JCIW-STSW-1 CODE DEPENDS ON VALUE
Line S00891 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06510 M01S00891.271l750 +++| APJ0.1 SA1 B7+STSW GET JOB ACTIVITY
06511 M00S03831.cpumtr +++| MX6 -8
06512 M00S03832.cpumtr +++| SX2 X2-LSSI-1
06513 M00S03833.cpumtr +++| LX1 -4
06514 M00S03834.cpumtr +++| BX6 -X6*X1 RECALL/TAPE ACTIVITY COUNT
06515 M00S03835.cpumtr +++| PL X2,APJ0.2 IF SUBSYSTEM
06516 M00S03836.cpumtr +++| LX1 12+4
06517 M00S03837.cpumtr +++| MX2 -5
06518 M00S03838.cpumtr +++| BX2 -X2*X1 PP COUNT
06519 M00S03839.cpumtr +++| IX6 X6+X2
06520 M00S03840.cpumtr +++| IX6 X6-X4 ALLOW FOR *DIS*
06521 M00S03841.cpumtr +++| APJ0.2 NZ X6,SXS IF PP OR TAPE ACTIVITY
06522 M00S03842.cpumtr +++|
06523 M00S03843.cpumtr +++|* ASSIGN PPU JOB.
06524 M00S03844.cpumtr +++|
06525 M00S03845.cpumtr +++| APJ1 MX0 1 EXTRACT AUTO RECALL FLAG
06526 M00S03846.cpumtr +++| LX0 40-59
06527 M00S03847.cpumtr +++| BX0 X0*X5
06528 M00S03848.cpumtr +++| LX0 41-40
06529 M00S03849.cpumtr +++| SA2 RA1 ADDRESS OF RA+1
Line S03850 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06530 M01S03850.271l750 ---| BX7 X7-X7 CLEAR RA+1
Line S00892 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06531 M01S00892.271l750 +++| SX7 B0+ CLEAR RA+1
06532 M00S03851.cpumtr +++| BX6 X0+X5 MAP AUTO RECALL TO BIT 41
06533 M00S03852.cpumtr +++| EWX7 X2 CLEAR (RA+1)
06534 M00S03853.cpumtr +++| SB3 SIS *APQ* RETURN ADDRESS
Line S03854 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06535 M01S03854.271l750 ---| NZ X0,APQ IF AUTO RECALL
Line S00893 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06536 M01S00893.271l750 +++| TNZ X0,(/DCP/APQ,DCPC,/MONITOR/APQ) IF AUTO-RECALL
06537 M00S03855.cpumtr +++| SB3 MTRX
Line S03856 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06538 M01S03856.271l750 ---| EQ APQ ASSIGN PP
Line S00894 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06539 M01S00894.271l750 +++| TJP (/DCP/APQ,DCPC,/MONITOR/APQ) ASSIGN PP
06540 M00S03857.cpumtr +++|
06541 M00S03858.cpumtr +++|* AVOID FORCED AUTO RECALL
06542 M00S03859.cpumtr +++|
06543 M00S03860.cpumtr +++| APJ2 SB6 APJ1 *CAL* RETURN ADDRESS - NO LIMIT
06544 M00S03861.cpumtr +++| SB3 SXS *CAL* RETURN ADDRESS - ACTIVITY LIMIT
06545 M00S03862.cpumtr +++| EQ CAL CHECK ACTIVITY LIMIT
06546 M00S03863.cpumtr +++| AFL SPACE 4,20
06547 M00S03864.cpumtr +++|** AFL - ASSIGN FIELD LENGTH.
06548 M00S03865.cpumtr +++|*
06549 M00S03866.cpumtr +++|* ENTRY (X1) = CURRENT FIELD LENGTH.
06550 M00S03867.cpumtr +++|* (X2) = REQUESTED FIELD LENGTH.
06551 M00S03868.cpumtr +++|* (X5) = *1MA* CALL TO BE ISSUED IF NEEDED.
06552 M00S03869.cpumtr +++|* (B3) = ADDRESS OF MEMORY WORD CONTAINING RA.
06553 M00S03870.cpumtr +++|* (B5) = STATUS RESPONSE ADDRESS.
06554 M00S03871.cpumtr +++|* (B7) = CONTROL POINT ADDRESS.
06555 M00S03872.cpumtr +++|* (A5) = RA+1.
06556 M00S03873.cpumtr +++|*
06557 M00S03874.cpumtr +++|* EXIT TO MTRX.
06558 M00S03875.cpumtr +++|*
06559 M00S03876.cpumtr +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
06560 M00S03877.cpumtr +++|* A - 2, 3, 4, 6, 7.
Line S00278 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
06561 M02S00278.271l750 ---|* B - 4, 5, 6.
Line S00895 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
06562 M01S00895.271l750 +++|* B - 4, 5, 6.
06563 M00S03878.cpumtr +++|*
06564 M00S03879.cpumtr +++|* CALLS APJ, SFL.
06565 M00S03880.cpumtr +++|
06566 M00S03881.cpumtr +++|
06567 M00S03882.cpumtr +++| AFL SA3 B7+ECSW GET ECS CONTROL WORD
06568 M00S03883.cpumtr +++| MX7 -17 SET FIELD LENGTH
06569 M00S03884.cpumtr +++| BX0 -X7*X2
06570 M00S03885.cpumtr +++| MX4 -12 GET ECS FIELD LENGTH
06571 M00S03886.cpumtr +++| SB6 B2 SET EXCHANGE PACKAGE ADDRESS
06572 M00S03887.cpumtr +++| BX4 -X4*X3
06573 M00S03888.cpumtr +++| BX6 X1 RETAIN CURRENT FL
06574 M00S03889.cpumtr +++| ZR X0,AFL3 IF EMPTY REQUEST
06575 M00S03890.cpumtr +++| SX3 X0-MCMX
06576 M00S03891.cpumtr +++| ZR X4,AFL1 IF NO ECS ASSIGNED
06577 M00S03892.cpumtr +++| PL X3,AFL1 IF FL .GE. MCMX
06578 M00S03893.cpumtr +++| SX0 MCMX SET FL TO MINIMUM ALLOWED WITH ECS
06579 M00S03894.cpumtr +++|
06580 M00S03895.cpumtr +++|* CHECK DIRECTION OF REQUEST.
06581 M00S03896.cpumtr +++|
06582 M00S03897.cpumtr +++| AFL1 SX1 X0+77B ROUND UP REQUEST
06583 M00S03898.cpumtr +++| NG X1,CPE IF REQUEST TOO LARGE
06584 M00S03899.cpumtr +++| AX1 6
06585 M00S03900.cpumtr +++| LX1 6
06586 M00S03901.cpumtr +++| IX0 X1-X6 CHECK REQUEST
06587 M00S03902.cpumtr +++| LX2 59-17
06588 M00S03903.cpumtr +++| ZR X0,AFL3 IF NO MEMORY CHANGE
06589 M00S03904.cpumtr +++| SB4 LA1MA SET *1MA* LOAD PARAMETER INDEX
06590 M00S03905.cpumtr +++| PL X0,APJ1 IF MEMORY INCREASE CALL *1MA*
06591 M00S03906.cpumtr +++|
06592 M00S03907.cpumtr +++|* CHECK NO-REDUCE STATUS.
06593 M00S03908.cpumtr +++|
06594 M00S03909.cpumtr +++| SA4 B7+STSW CHECK ACTIVITY
06595 M00S03910.cpumtr +++| SA3 AM
06596 M00S03911.cpumtr +++| BX4 X3*X4
06597 M00S03912.cpumtr +++| MX7 -12
06598 M00S03913.cpumtr +++| ZR X4,AFL2 IF NO PP ACTIVITY
06599 M00S03914.cpumtr +++| SA4 B7+JCIW CHECK FOR SUBSYSTEM OR NON-ROLLABLE JOB
06600 M00S03915.cpumtr +++| LX4 -24
06601 M00S03916.cpumtr +++| BX7 -X7*X4
06602 M00S03917.cpumtr +++| LX4 0-21+24 CHECK FOR *DIS* JOB
06603 M00S03918.cpumtr +++| SX3 B1
06604 M00S03919.cpumtr +++| BX4 X3*X4
06605 M00S03920.cpumtr +++| BX4 X4+X7
06606 M00S03921.cpumtr +++| ZR X4,SXS IF NOT SYSTEM JOB
06607 M00S03922.cpumtr +++| AFL2 SA3 B7+LB1W READ LOADER CONTROL
06608 M00S03923.cpumtr +++| LX3 59-53
06609 M00S03924.cpumtr +++| BX4 -X3+X2
06610 M00S03925.cpumtr +++| TX7 B7+200B,-SCA CHECK CONTROL POINT
06611 M00S03926.cpumtr +++| AX4 60
06612 M00S03927.cpumtr +++| BX0 X4*X0
06613 M00S03928.cpumtr +++| PL X4,AFL3 IF NO CHANGE IN MEMORY
06614 M00S03929.cpumtr +++| BX6 X1 SET NEW FIELD LENGTH
06615 M00S03930.cpumtr +++| ZR X7,APJ1 IF LAST CONTROL POINT CALL *1MA*
06616 M00S03931.cpumtr +++| SA3 SSTL
06617 M00S03932.cpumtr +++| LX3 59-58
06618 M00S03933.cpumtr +++| PL X3,APJ1 IF MEMORY CLEARING ENABLED
06619 M00S03934.cpumtr +++| AFL3 BX7 X7-X7 CLEAR (RA+1)
06620 M00S03935.cpumtr +++| SA3 B3+B1
06621 M00S03936.cpumtr +++| EWX7 X3
06622 M00S03937.cpumtr +++| ZR B5,SFL SET FIELD LENGTH IF NO STATUS RESPONSE
06623 M00S03938.cpumtr +++| SX4 B5
06624 M00S03939.cpumtr +++| SA3 B3
06625 M00S03940.cpumtr +++| IX4 X4+X3
06626 M00S03941.cpumtr +++| ERX3 X4 CHECK FOR CMM CLEAR JOB STEP STATUS
06627 M00S03942.cpumtr +++| LX6 30
06628 M00S03943.cpumtr +++| SX7 B1
06629 M00S03944.cpumtr +++| LX3 59-3
06630 M00S03945.cpumtr +++| BX6 X6+X7 STORE STATUS RESPONSE
Line S00279 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
06631 M01S00279.271l716 +++| SB5 B0
06632 M00S03946.cpumtr +++| EWX6 X4
06633 M00S03947.cpumtr +++| PL X3,SFL IF NOT CMM CLEAR
06634 M00S03948.cpumtr +++| SA3 B7+DBAW
06635 M00S03949.cpumtr +++| LX7 54
06636 M00S03950.cpumtr +++| BX6 -X7*X3
06637 M00S03951.cpumtr +++| SA6 A3
06638 M00S03952.cpumtr +++| EQ SFL SET FIELD LENGTH
06639 M00S03953.cpumtr +++| CIO SPACE 4
06640 M00S03954.cpumtr +++|** CIO - CALL CIO.
06641 M00S03955.cpumtr +++|*
06642 M00S03956.cpumtr +++|* ENTRY (X7) = 0.
06643 M00S03957.cpumtr +++|
06644 M00S03958.cpumtr +++|
06645 M00S03959.cpumtr +++| CIO SB6 CIO1 *CAL* RETURN ADDRESS - NO LIMIT
06646 M00S03960.cpumtr +++| SB3 SXS *CAL* RETURN ADDRESS - ACTIVITY LIMIT
06647 M00S03961.cpumtr +++| EQ CAL CHECK ACTIVITY LIMIT
06648 M00S03962.cpumtr +++|
06649 M00S03963.cpumtr +++| CIO1 SA7 /CPUCIO/MB
06650 M00S03964.cpumtr +++| SX0 B1 MOVE AUTO RECALL BIT FROM BIT 40 TO 41
06651 M00S03965.cpumtr +++| LX0 40
06652 M00S03966.cpumtr +++| SA2 RA1 ADDRESS OF (RA+1)
06653 M00S03967.cpumtr +++| BX0 X0*X5 EXTRACT AUTO RECALL BIT
06654 M00S03968.cpumtr +++| BX5 -X0*X5
06655 M00S03969.cpumtr +++| LX0 41-40
06656 M00S03970.cpumtr +++| SB3 A2-B1 RESET ADDRESS OF WORD CONTAINING RA
06657 M00S03971.cpumtr +++| BX6 X0+X5
06658 M00S03972.cpumtr +++| SA6 A7-B1 STORE REQUEST WORD
06659 M00S03973.cpumtr +++| ERRNZ /CPUCIO/IR-/CPUCIO/MB+1 CODE REQUIRES CONTIGUOUS
06660 M00S03974.cpumtr +++| EWX7 X2 CLEAR (RA+1)
Line S03975 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
06661 M01S03975.252l678 ---| TEQ (/PROBE/CIO,/CPUCIO/CPC,PROBE)
Line S00109 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
06662 M01S00109.252l678 +++| TEQ (/PROBE/CIO,PROBE,/CPUCIO/CPC)
06663 M00S03976.cpumtr +++| CLO SPACE 4,10
06664 M00S03977.cpumtr +++|** CLO - CLOSE. (CONVERT CALL TO *CIO*)
06665 M00S03978.cpumtr +++|*
06666 M00S03979.cpumtr +++|* ENTRY (X7) = 0.
06667 M00S03980.cpumtr +++|
06668 M00S03981.cpumtr +++|
06669 M00S03982.cpumtr +++| CLO MX2 42
06670 M00S03983.cpumtr +++| SX3 3RCIO
06671 M00S03984.cpumtr +++| BX4 X2*X4
06672 M00S03985.cpumtr +++| BX5 X4+X3
06673 M00S03986.cpumtr +++| LX5 42
06674 M00S03987.cpumtr +++| EQ CIO PROCESS AS *CIO* REQUEST
06675 M00S03988.cpumtr +++| CPE SPACE 4
06676 M00S03989.cpumtr +++|** CPE - PROCESS CPU CALL ERROR.
06677 M00S03990.cpumtr +++|
06678 M00S03991.cpumtr +++|
06679 M00S03992.cpumtr +++| CPE SX7 PCET SET ERROR FLAG = *MONITOR CALL ERROR.*
06680 M00S03993.cpumtr +++| EQ SEF
06681 M00S03994.cpumtr +++| ABT SPACE 4
06682 M00S03995.cpumtr +++|*** *ABT*.
06683 M00S03996.cpumtr +++|* ABORT JOB.
06684 M00S03997.cpumtr +++|*
06685 M00S03998.cpumtr +++|*T 18/ *ABT*,42/
06686 M00S03999.cpumtr +++|
06687 M00S04000.cpumtr +++|
06688 M00S04001.cpumtr +++| ABT SX7 CPET SET CPU ABORT FLAG
06689 M00S04002.cpumtr +++| JP SEF
06690 M00S04003.cpumtr +++| CPM SPACE 4
06691 M00S04004.cpumtr +++|*** *CPM*.
06692 M00S04005.cpumtr +++|* RESIDENT CPM FUNCTIONS.
06693 M00S04006.cpumtr +++|*
06694 M00S04007.cpumtr +++|* ENTRY (X7) = 0.
06695 M00S04008.cpumtr +++|*
06696 M00S04009.cpumtr +++|*T 18/ *CPM*,6/,12/ FN,6/,18/ PAR
Figure
0 17 18 23 24 29 PAR FN 30 35 36 41 42 59 FN *CPM*
06697 M00S04010.cpumtr +++|* FN FUNCTION NUMBER.
06698 M00S04011.cpumtr +++|* PAR PARAMETER.
06699 M00S04012.cpumtr +++|
06700 M00S04013.cpumtr +++|
06701 M00S04014.cpumtr +++| CPM SA2 CPMA READ VALID FUNCTION WORD
06702 M00S04015.cpumtr +++| LX4 -24-18 EXTRACT FUNCTION
06703 M00S04016.cpumtr +++| SX3 X5
06704 M00S04017.cpumtr +++| BX4 -X0*X4
06705 M00S04018.cpumtr +++| SB4 X4
06706 M00S04019.cpumtr +++| IX4 X3-X1 CHECK PARAMETER PAST FL
06707 M00S04020.cpumtr +++| AX2 X2,B4