Seq # *Modification Id* Act
----------------------------+
Line S01494 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24227 M01S01494.253l688 +++|** CSM - CHECK FOR STORAGE MOVE.
24228 M01S01495.253l688 +++|*
24229 M01S01496.253l688 +++|* ENTRY (X7) = WORD TO BE STORED IN OUTPUT REGISTER.
24230 M01S01497.253l688 +++|* (B5) = EXIT ADDRESS, IF ENTERED AT *CSM1*.
24231 M01S01498.253l688 +++|* (A5) = OUTPUT REGISTER ADDRESS.
24232 M01S01499.253l688 +++|*
Line S01500 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24233 M02S01500.273l780 ---|* EXIT (OR) = (X7) = STATUS RESPONSE.
Line S00687 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24234 M01S00687.273l780 +++|* EXIT OUTPUT REGISTER STORED.
24235 M01S00688.273l780 +++|* (X7) = VALUE STORED IN OUTPUT REGISTER.
24236 M01S00689.273l780 +++|*
24237 M01S00690.273l780 +++|* USES X - 2, 3, 6, 7.
24238 M01S00691.273l780 +++|* A - 2, 3, 7.
24239 M01S00692.273l780 +++|* B - 5.
Line S01501 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24240 M01S01501.253l688 +++|
24241 M01S01502.253l688 +++|
Line S01503 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24242 M02S01503.273l780 ---| CSM1 TX6 A5-1,-SP IGNORE THE PSEUDO PP
Line S00693 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24243 M01S00693.273l780 +++|* ENTRY WITH RETURN ADDRESS SPECIFIED BY CALLER.
24244 M01S00694.273l780 +++|
24245 M01S00695.273l780 +++| CSM1 TX6 A5-1,-SP IGNORE PSEUDO-PP
Line S01504 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24246 M01S01504.253l688 +++| MX2 12 IGNORE NONZERO OUTPUT REGISTERS
24247 M01S01505.253l688 +++| BX6 -X6+X7
Line S00696 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24248 M01S00696.273l780 +++| TX3 A5-1,-FP
Line S01506 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24249 M01S01506.253l688 +++| BX2 X2*X6
Line S01507 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24250 M02S01507.273l780 ---| NZ X2,CSM2 IF IGNORED
24251 M02S01508.273l780 ---| SA2 A5-B1 CHECK FOR CONTROL POINT MOVE
24252 M02S01509.273l780 ---| SA3 CMCL
Line S01510 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
M03 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24253 M03S01510.273l780 ---| LX2 12+7
24254 M03S01511.273l780 ---| BX2 X2-X3
24255 M03S01512.273l780 ---| SX3 PRLM
24256 M03S01513.273l780 ---| AX2 48+7
24257 M03S01514.273l780 ---| LX3 48
24258 M03S01515.273l780 ---| NZ X2,CSM2 IF CONTROL POINT IS NOT BEING MOVED
24259 M03S01516.273l780 ---| BX3 -X2*X3 IGNORE CONTROL POINT ZERO
Line S01433 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24260 M02S01433.273l780 ---| AX2 36
24261 M02S01434.273l780 ---| MX6 -5
24262 M02S01435.273l780 ---| NG X3,CSM2 IF NO MOVE REQUEST
24263 M02S01436.273l780 ---| BX6 -X6*X2
Line S00697 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24264 M01S00697.273l780 +++| LX3 PPXES-PPCES
24265 M01S00698.273l780 +++| NZ X2,CSM2 IF PSEUDO-PP OR FUNCTION PRESENT
24266 M01S00699.273l780 +++| TA3 X3+ACPP,FPX GET CP/PCP ASSIGNMENT
24267 M01S00700.273l780 +++| SA2 CMCL
24268 M01S00701.273l780 +++| BX3 X3-X2
Line S01437 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24269 M01S01437.271l716 +++| AX3 48
Line S01438 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24270 M02S01438.273l780 ---| BX2 X3-X6
24271 M02S01439.273l780 ---| NO
24272 M02S01440.273l780 ---| NZ X2,CSM2 IF MOVE NOT AT THIS CP
Line S00702 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24273 M01S00702.273l780 +++| NZ X3,CSM2 IF NO MOVE REQUEST FOR CP/PCP
Line S01441 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24274 M01S01441.271l716 +++| SX3 PRLM
24275 M01S01442.271l716 +++| LX3 48
Line S01517 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24276 M01S01517.253l688 +++| BX7 X3+X7 SET *PRLM* IN OUTPUT REGISTER
24277 M01S01518.253l688 +++| CSM2 SA7 A5 STORE OUTPUT REGISTER
24278 M00S14263.cpumtr +++| JP B5 EXIT
Line S01519 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24279 M01S01519.253l688 +++|
Line S01520 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24280 M02S01520.273l780 ---| CSM SB5 PPRX SET RETURN ADDRESS
Line S00703 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24281 M01S00703.273l780 +++| CSM BSS 0 ENTRY
24282 M01S00704.273l780 +++| SB5 PPRX SET RETURN ADDRESS
Line S01521 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24283 M01S01521.253l688 +++| EQ CSM1 CHECK FOR STORAGE MOVE
Line S14264 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
24284 M01S14264.261l700 ---| CTR SPACE 4
Line S00117 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
24285 M01S00117.261l700 +++| CTR SPACE 4,35
24286 M00S14265.cpumtr +++|** CTR - CHECK TRACK REQUEST.
24287 M00S14266.cpumtr +++|* MAY BE USED FROM PROGRAM OR MONITOR MODE.
24288 M00S14267.cpumtr +++|*
24289 M00S14268.cpumtr +++|* ENTRY (X1) = REQUEST WORD.
24290 M00S14269.cpumtr +++|*T, X1 12/ 0,12/ EQ,12/ TK,12/ ,12/
Figure
X1
0 11 12 23 24 29 TK 30 35 36 47 48 59 TK EQ 0
24291 M00S14270.cpumtr +++|* EQ = EST ORDINAL.
24292 M00S14271.cpumtr +++|* TK = TRACK NUMBER.
24293 M00S14272.cpumtr +++|* (B3) = EXIT ADDRESS.
24294 M00S14273.cpumtr +++|* (B5) = EXIT ADDRESS IF ILLEGAL REQUEST FOUND.
24295 M00S14274.cpumtr +++|* NEEDED IF ENTERED AT *CTR1*.
24296 M00S14275.cpumtr +++|* (B6) = 0 IF NOT TO INTERLOCK MST/TRT.
24297 M00S14276.cpumtr +++|* (B6) .NE. 0 IF TO INTERLOCK MST/TRT AND
24298 M00S14277.cpumtr +++|* READ TRT FROM ECS. (SHARED DEVICE)
24299 M00S14278.cpumtr +++|*
24300 M00S14279.cpumtr +++|* EXIT (X0) .LT. 0 IF NOT SHARED DEVICE
24301 M00S14280.cpumtr +++|* (X0) = 12/TRT LENGTH + 2000B, 48/ECS ADDRESS OF MRT.
24302 M00S14281.cpumtr +++|* (FOR ISD, ECS ADDRESS = 0.)
24303 M00S14282.cpumtr +++|* (X1) = BYTE 2 OF REQUEST WORD.
24304 M00S14283.cpumtr +++|* (X2) = BYTE 3 OF REQUEST WORD.
24305 M00S14284.cpumtr +++|* (X3) = TDGL WORD OF MST.
24306 M00S14285.cpumtr +++|* (X5) = -7777B.
24307 M00S14286.cpumtr +++|* (X7) = LOWER 18 BITS OF REQUEST WORD. (SIGN EXTENDED)
24308 M00S14287.cpumtr +++|* (B6) = ADDRESS OF FIRST WORD OF TRT.
24309 M00S14288.cpumtr +++|* (A3) = ADDRESS OF TDGL WORD OF MST.
24310 M00S14289.cpumtr +++|* (A4) = ADDRESS OF SDGL WORD OF MST.
24311 M00S14290.cpumtr +++|* HANG PPU IF NOT LEGAL MASS STORAGE DEVICE.
24312 M00S14291.cpumtr +++|*
24313 M00S14292.cpumtr +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
24314 M00S14293.cpumtr +++|* B - 5, 6.
24315 M00S14294.cpumtr +++|* A - 3, 4.
24316 M00S14295.cpumtr +++|*
24317 M00S14296.cpumtr +++|* CALLS REJ, SDI.
24318 M00S14297.cpumtr +++|
24319 M00S14298.cpumtr +++|
24320 M00S14299.cpumtr +++| CTR SB5 PRG SET EXIT ADDRESS
24321 M00S14300.cpumtr +++|
24322 M00S14301.cpumtr +++|* (B5) = EXIT ADDRESS IN CASE OF ERROR DETECTED.
24323 M00S14302.cpumtr +++|
24324 M00S14303.cpumtr +++| CTR1 LX1 24 POSITION EQUIPMENT FIELD
24325 M00S14304.cpumtr +++| MX3 -9
Line S14305 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
24326 M01S14305.251l664 ---| MX2 -MXMF
Line S00473 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
24327 M01S00473.251l664 +++| MX2 -6
Line S14306 Modification History
M01 (Removed by) cpum202
Seq # *Modification Id* Act
----------------------------+
24328 M01S14306.cpum202 ---| BX3 -X3*X1 EST ORDINAL
Line S00001 Modification History
M01 (Added by) cpum202
Seq # *Modification Id* Act
----------------------------+
24329 M01S00001.cpum202 +++| BX7 -X3*X1 EST ORDINAL
Line S14307 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
24330 M01S14307.242l642 ---| R= X5,ESTE
24331 M01S14308.242l642 ---| IX4 X3*X5
Line S00539 Modification History
M01 (Added by) 242l642
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24332 M02S00539.271l716 ---| ERRNZ ESTE-2 CODE ASSUMES VALUE
Line S00540 Modification History
M01 (Added by) 242l642
M02 (Removed by) cpum202
M03 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24333 M03S00540.271l716 ---| LX4 X3,B1
Line S00002 Modification History
M01 (Added by) cpum202
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24334 M02S00002.271l716 ---| LX4 X7,B1
Line S01443 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24335 M01S01443.271l716 +++| CX4 X7,EST CONVERT EST ORDINAL TO OFFSET
Line S00541 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
24336 M01S00541.242l642 +++| MX5 -12
24337 M00S14309.cpumtr +++| TA4 X4+EQDE,EST READ EST ENTRY
Line S14310 Modification History
M01 (Removed by) cpum202
Seq # *Modification Id* Act
----------------------------+
24338 M01S14310.cpum202 ---| TX6 X3,-ESTL
Line S00003 Modification History
M01 (Added by) cpum202
Seq # *Modification Id* Act
----------------------------+
24339 M01S00003.cpum202 +++| TX6 X7,-ESTL
Line S14311 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
24340 M01S14311.242l642 ---| MX5 -12
24341 M00S14312.cpumtr +++| BX3 -X5*X4 MST ADDRESS/10B
24342 M00S14313.cpumtr +++| BX0 X4*X6
Line S14314 Modification History
M01 (Removed by) cpum202
Seq # *Modification Id* Act
----------------------------+
24343 M01S14314.cpum202 ---| LX3 3
Line S00004 Modification History
M01 (Added by) cpum202
Seq # *Modification Id* Act
----------------------------+
24344 M01S00004.cpum202 +++| ZR X7,CTR1.0 IF REQUEST FOR *RD* DEVICE
24345 M00S14315.cpumtr +++| PL X0,/MONITOR/HNG1 IF NOT *MS* OR OUT OF EST
Line S00005 Modification History
M01 (Added by) cpum202
Seq # *Modification Id* Act
----------------------------+
24346 M01S00005.cpum202 +++| CTR1.0 LX3 3
Line S00542 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
24347 M01S00542.242l642 +++| LX1 24
24348 M00S14316.cpumtr +++| SA4 X3+SDGL CHECK SHARED STATUS
24349 M00S14317.cpumtr +++| BX6 -X2*X4 MACHINE INTERLOCK FIELD
24350 M00S14318.cpumtr +++| AX4 36
Line S14319 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
24351 M01S14319.242l642 ---| SA3 X3 READ TDGL WORD OF MST
24352 M01S14320.242l642 ---| ERRNZ TDGL
24353 M01S14321.242l642 ---| LX1 24
Line S00543 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
24354 M01S00543.242l642 +++| SA3 X3+TDGL
Line S14322 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
24355 M01S14322.251l664 ---| TNZ X4,(/ISDMMF/CTR3,/MONITOR/HNG1,ISDMMF) IF SHARED
Line S00474 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24356 M02S00474.252l678 ---| TNG X4,(/ISD/CTR3,/MONITOR/HNG1,ISD) IF ISHARED
24357 M02S00475.252l678 ---| TNZ X4,(/PROGRAM/SDI,/LSPMMF/SDI,MMF) IF MMF SHARED
Line S00707 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
24358 M01S00707.252l678 +++| TNG X4,(/ISD/CTR3,ISD,/MONITOR/HNG1) IF ISHARED
24359 M01S00708.252l678 +++| TNZ X4,(/PROGRAM/SDI,MMF,/LSPMMF/SDI) IF MMF SHARED
24360 M00S14323.cpumtr +++| ZR B6,CTR2 IF NOT TO INTERLOCK MST/TRT
24361 M00S14324.cpumtr +++|
24362 M00S14325.cpumtr +++|* INTERLOCK MST/TRT.
24363 M00S14326.cpumtr +++|
24364 M00S14327.cpumtr +++| CTR1.1 SA4 A4 **** PERFORM IN 1 WORD ****
24365 M00S14328.cpumtr +++| SX6 B1 **** PERFORM IN 1 WORD ****
24366 M00S14329.cpumtr +++| BX6 X4+X6 **** PERFORM IN 1 WORD ****
24367 M00S14330.cpumtr +++| SA6 A4 **** PERFORM IN 1 WORD ****
24368 M00S14331.cpumtr +++| BX2 X6-X4
24369 M00S14332.cpumtr +++| ZR X2,REJ IF PREVIOUSLY INTERLOCKED
24370 M00S14333.cpumtr +++| CTR2 BX2 -X5*X1
24371 M00S14334.cpumtr +++| LX1 12
24372 M00S14335.cpumtr +++| SA3 A3+TRLL-TDGL SET FWA OF TRT
24373 M00S14336.cpumtr +++| SB6 X3
24374 M00S14337.cpumtr +++| SX7 X1
24375 M00S14338.cpumtr +++| LX1 -24 POSITION BYTE 2
24376 M00S14339.cpumtr +++| BX1 -X5*X1
24377 M00S14340.cpumtr +++| SA3 A3+TDGL-TRLL RE-READ *TDGL*
24378 M00S14341.cpumtr +++| JP B3 RETURN
24379 M00S14342.cpumtr +++| HNG SPACE 4
24380 M00S14343.cpumtr +++|** HNG - HANG PPU.
24381 M00S14344.cpumtr +++|* LEAVE PPU OUTPUT REGISTER SET, SET PACKED TIME AND DATE IN
24382 M00S14345.cpumtr +++|* LAST WORD OF MESSAGE BUFFER, AND DISPLAY MESSAGE.
24383 M00S14346.cpumtr +++|*
24384 M00S14347.cpumtr +++|* ENTRY (A5) = PPU OUTPUT REGISTER ADDRESS.
24385 M00S14348.cpumtr +++|* (/MONITOR/T1) = (B2) TO BE RESTORED IF MONITOR MODE.
24386 M00S14349.cpumtr +++|*
24387 M00S14350.cpumtr +++|* EXIT EXITS TO *PRG*.
24388 M00S14351.cpumtr +++|
24389 M00S14352.cpumtr +++|
Line S14353 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
24390 M01S14353.253l688 ---| HNG SA2 A5 CHECK FOR MONITOR MODE CALL
24391 M01S14354.253l688 ---| LX2 59-58
24392 M01S14355.253l688 ---| SB5 PRGX
24393 M01S14356.253l688 ---| NG X2,/MONITOR/HNG1 IF IN PROGRAM MODE
Line S01522 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24394 M01S01522.253l688 +++| HNG RJ /MONITOR/SVR SAVE REGISTERS
24395 M01S01523.253l688 +++| SA2 A5
24396 M01S01524.253l688 +++| LX2 59-58 CHECK MONITOR MODE CALL
24397 M01S01525.253l688 +++| SB5 PRGX
24398 M01S01526.253l688 +++| NG X2,/MONITOR/HNG2 IF IN PROGRAM MODE
24399 M00S14357.cpumtr +++| SA2 /MONITOR/T1 RESTORE (B2)
24400 M00S14358.cpumtr +++| SB2 X2
Line S14359 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
24401 M01S14359.253l688 ---| JP /MONITOR/HNG HANG PP
Line S01527 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24402 M01S01527.253l688 +++| JP /MONITOR/HNG0 HANG PP
24403 M00S14360.cpumtr +++| DSB SPACE 4,30
24404 M00S14361.cpumtr +++|** DSB - DIVIDE 60 BIT INTEGER.
24405 M00S14362.cpumtr +++|*
24406 M00S14363.cpumtr +++|* ENTRY (X6) = DIVIDEND.
24407 M00S14364.cpumtr +++|* (X2) = DIVISOR.
24408 M00S14365.cpumtr +++|* (B4) = RETURN ADDRESS.
24409 M00S14366.cpumtr +++|*
24410 M00S14367.cpumtr +++|* EXIT (X6) = QUOTIENT.
24411 M00S14368.cpumtr +++|*
24412 M00S14369.cpumtr +++|* USES X - 1, 2.
24413 M00S14370.cpumtr +++|*
24414 M00S14371.cpumtr +++|* CALLS MSB.
24415 M00S14372.cpumtr +++|
24416 M00S14373.cpumtr +++|
24417 M00S14374.cpumtr +++| DSB SX1 B1 FORM RECIPROCAL
24418 M00S14375.cpumtr +++| PX1 X1
24419 M00S14376.cpumtr +++| NX1 X1
24420 M00S14377.cpumtr +++| RX2 X1/X2
24421 M00S14378.cpumtr +++| EQ MSB MULTIPLY 60 BIT INTEGER
24422 M00S14379.cpumtr +++| MPY SPACE 4,15
24423 M00S14380.cpumtr +++|** MPY - CALCULATE THE PRODUCT Z = (X*Y)MOD PRIME.
24424 M00S14381.cpumtr +++|*
24425 M00S14382.cpumtr +++|* ENTRY (X1) = INTEGER (X).
24426 M00S14383.cpumtr +++|* (X2) = INTEGER (Y).
24427 M00S14384.cpumtr +++|* (B3) = RETURN ADDRESS.
24428 M00S14385.cpumtr +++|*
24429 M00S14386.cpumtr +++|* EXIT (X6) = INTEGER RESULT.
24430 M00S14387.cpumtr +++|*
24431 M00S14388.cpumtr +++|* USES X - ALL.
24432 M00S14389.cpumtr +++|* A - 3.
24433 M00S14390.cpumtr +++|* B - 5.
24434 M00S14391.cpumtr +++|
24435 M00S14392.cpumtr +++|
24436 M00S14393.cpumtr +++| MPY PX1 X1 PACK AND NORMALIZE X AND Y
24437 M00S14394.cpumtr +++| PX2 X2
24438 M00S14395.cpumtr +++| NX1 X1 (X1) = D1
24439 M00S14396.cpumtr +++| NX2 X2 (X2) = D2
24440 M00S14397.cpumtr +++|
24441 M00S14398.cpumtr +++|* CALCULATE DX = D1*D2.
24442 M00S14399.cpumtr +++|
24443 M00S14400.cpumtr +++| SA3 MOD
24444 M00S14401.cpumtr +++| FX7 X1*X2
24445 M00S14402.cpumtr +++| DX6 X1*X2
24446 M00S14403.cpumtr +++|
24447 M00S14404.cpumtr +++|* CALCULATE IX = DX/MOD.
24448 M00S14405.cpumtr +++|
24449 M00S14406.cpumtr +++| BX0 X3
24450 M00S14407.cpumtr +++| SX1 B0+
24451 M00S14408.cpumtr +++| FX2 X7/X0
24452 M00S14409.cpumtr +++| FX5 X2*X0
24453 M00S14410.cpumtr +++| FX4 X7-X5
24454 M00S14411.cpumtr +++| DX5 X7-X5
24455 M00S14412.cpumtr +++| NX4 X4
24456 M00S14413.cpumtr +++| FX5 X5+X4
24457 M00S14414.cpumtr +++| DX4 X2*X0
24458 M00S14415.cpumtr +++| FX4 X6-X4
24459 M00S14416.cpumtr +++| FX5 X5+X4
24460 M00S14417.cpumtr +++| FX1 X2*X1
24461 M00S14418.cpumtr +++| FX4 X5-X1
24462 M00S14419.cpumtr +++| FX5 X4/X0
24463 M00S14420.cpumtr +++| FX1 X2+X5
24464 M00S14421.cpumtr +++| NX1 X1
24465 M00S14422.cpumtr +++| DX2 X2+X5
24466 M00S14423.cpumtr +++| FX4 X2+X1
24467 M00S14424.cpumtr +++| UX4,B5 X4
24468 M00S14425.cpumtr +++| LX3 X4,B5
24469 M00S14426.cpumtr +++| PX3 X3 (X3) = IX
24470 M00S14427.cpumtr +++|
24471 M00S14428.cpumtr +++|* CALCULATE DY = IX*MOD.
24472 M00S14429.cpumtr +++|
24473 M00S14430.cpumtr +++| DX1 X3*X0
24474 M00S14431.cpumtr +++| FX2 X3*X0
24475 M00S14432.cpumtr +++|
24476 M00S14433.cpumtr +++|* CALCULATE Z = DX-DY.
24477 M00S14434.cpumtr +++|
24478 M00S14435.cpumtr +++| FX3 X7-X2
24479 M00S14436.cpumtr +++| DX4 X7-X2
24480 M00S14437.cpumtr +++| FX5 X6-X1
24481 M00S14438.cpumtr +++| NX0 X3
24482 M00S14439.cpumtr +++| FX1 X4+X5
24483 M00S14440.cpumtr +++| FX3 X0+X1
24484 M00S14441.cpumtr +++| NX6 X3
24485 M00S14442.cpumtr +++| DX5 X0+X1
24486 M00S14443.cpumtr +++| NX5 X5
24487 M00S14444.cpumtr +++| FX6 X6+X5
24488 M00S14445.cpumtr +++| UX6,B5 X6
24489 M00S14446.cpumtr +++| LX6 X6,B5 (X6) = Z
24490 M00S14447.cpumtr +++| JP B3 RETURN
24491 M00S14448.cpumtr +++| MSB SPACE 4,10
24492 M00S14449.cpumtr +++|** MSB - MULTIPLY 60 BIT INTEGER.
24493 M00S14450.cpumtr +++|*
24494 M00S14451.cpumtr +++|* ENTRY (X6) = 60 BIT INTEGER MULTIPLICAND.
24495 M00S14452.cpumtr +++|* (X2) = FLOATING POINT MULTIPLIER.
24496 M00S14453.cpumtr +++|* (B4) = RETURN ADDRESS.
24497 M00S14454.cpumtr +++|*
24498 M00S14455.cpumtr +++|* EXIT (X6) = PRODUCT.
24499 M00S14456.cpumtr +++|*
24500 M00S14457.cpumtr +++|* USES X - 1, 6, 7.
24501 M00S14458.cpumtr +++|* B - 6.
24502 M00S14459.cpumtr +++|
24503 M00S14460.cpumtr +++|
24504 M00S14461.cpumtr +++| MSB UX7 X6
24505 M00S14462.cpumtr +++| MX1 12
24506 M00S14463.cpumtr +++| PX7 X7
24507 M00S14464.cpumtr +++| BX1 X1*X6 MULTIPLY TOP 12 BITS OF INTEGER
24508 M00S14465.cpumtr +++| NX7 X7
24509 M00S14466.cpumtr +++| AX1 12
24510 M00S14467.cpumtr +++| RX7 X7*X2
24511 M00S14468.cpumtr +++| PX1 X1
24512 M00S14469.cpumtr +++| RX1 X1*X2
24513 M00S14470.cpumtr +++| UX7,B6 X7
24514 M00S14471.cpumtr +++| LX7 B6
24515 M00S14472.cpumtr +++| UX1,B6 X1
24516 M00S14473.cpumtr +++| SB6 B6+12
24517 M00S14474.cpumtr +++| LX1 B6
24518 M00S14475.cpumtr +++| IX6 X1+X7 MERGE PARTIAL PRODUCTS
24519 M00S14476.cpumtr +++| JP B4 RETURN
24520 M00S14477.cpumtr +++| REJ SPACE 4
24521 M00S14478.cpumtr +++|** REJ - REJECT FUNCTION REQUEST.
24522 M00S14479.cpumtr +++|*
Line S14480 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24523 M01S14480.273l780 ---|* IF STORAGE MOVE IS REQUESTED FOR THIS CONTROL POINT, SET
24524 M01S14481.273l780 ---|* BIT 56 IN *OR* OF ASSIGNED PPU TO ALLOW STORAGE MOVE.
Line S14482 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24525 M02S14482.273l780 ---|* OTHERWISE, SET THE UPPER BIT OF *OR* TO SIGNAL PPR TO
Line S01528 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24526 M02S01528.273l780 ---|* ALSO SET THE UPPER BIT OF *OR* TO SIGNAL *PPR* TO
Line S14483 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24527 M01S14483.273l780 ---|* RETRY THE REQUEST. NOTE THAT ANY MONITOR FUNCTION WHOSE
24528 M01S14484.273l780 ---|* PROCESSOR MAY CALL THE ROUTINE IS NOW STORAGE MOVABLE
24529 M01S14485.273l780 ---|* WHILE THE REQUEST IS PENDING. FUTURE CODE IN PP ROUTINES
24530 M01S14486.273l780 ---|* SHOULD CONSIDER ANY MONITOR FUNCTION AS MOVABLE, ALLOWING
24531 M01S14487.273l780 ---|* FOR THE TIME THAT THIS IS ACTUALLY ACHIEVED.
Line S00705 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24532 M01S00705.273l780 +++|* IF STORAGE MOVE IS REQUESTED FOR THE CONTROL POINT OR
24533 M01S00706.273l780 +++|* PSEUDO-CONTROL POINT TO WHICH THE PP IS ASSIGNED, SET THE
24534 M01S00707.273l780 +++|* REISSUE FUNCTION AND ALLOW STORAGE MOVE FLAGS IN THE OUTPUT
24535 M01S00708.273l780 +++|* REGISTER. NOTE THAT ANY MONITOR FUNCTION WHOSE PROCESSOR MAY
24536 M01S00709.273l780 +++|* CALL THE ROUTINE IS NOW STORAGE MOVABLE WHILE THE REQUEST IS
24537 M01S00710.273l780 +++|* PENDING. FUTURE CODE IN PP ROUTINES SHOULD CONSIDER ANY
24538 M01S00711.273l780 +++|* MONITOR FUNCTION AS MOVABLE, ALLOWING FOR THE FOR THE TIME
24539 M01S00712.273l780 +++|* THAT THIS IS ACTUALLY ACHIEVED.
24540 M00S14488.cpumtr +++|*
24541 M00S14489.cpumtr +++|* ENTRY (B5) = EXIT ADDRESS.
24542 M00S14490.cpumtr +++|* (A5) = *OR* ADDRESS.
24543 M00S14491.cpumtr +++|*
Line S14492 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
24544 M01S14492.253l688 ---|* USES X - 3, 4, 5, 7.
Line S01529 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24545 M01S01529.253l688 +++|* USES X - 4, 5, 7.
24546 M00S14493.cpumtr +++|* A - 4, 5, 7.
24547 M00S14494.cpumtr +++|
24548 M00S14495.cpumtr +++|
Line S14496 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
24549 M01S14496.253l688 ---| REJ SA5 A5 READ *OR*
Line S01530 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24550 M02S01530.271l716 ---| REJ SA5 A5-1 GET INPUT REGISTER
24551 M02S01531.271l716 ---| SA4 CMCL GET *MTR*-S STORAGE MOVE CONTROL WORD
24552 M02S01532.271l716 ---| MX7 5
24553 M02S01533.271l716 ---| LX5 12+7 GET CONTROL POINT AREA ADDRESS
24554 M02S01534.271l716 ---| BX4 X5-X4
24555 M02S01535.271l716 ---| SA5 A5+B1
24556 M02S01536.271l716 ---| BX4 X7*X4
Line S01444 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24557 M02S01444.273l780 ---| REJ SA5 A5-B1 READ INPUT REGISTER
24558 M02S01445.273l780 ---| MX7 -5
24559 M02S01446.273l780 ---| SA4 CMCL GET *MTR*-S STORAGE MOVE CONTROL WORD
24560 M02S01447.273l780 ---| AX5 36
24561 M02S01448.273l780 ---| BX7 -X7*X5 CP NUMBER OF REQUESTING PP
Line S00713 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24562 M01S00713.273l780 +++| REJ TX4 A5-1,-FP
24563 M01S00714.273l780 +++| LX4 PPXES-PPCES
24564 M01S00715.273l780 +++| TA4 X4+ACPP,FPX GET CP/PCP ASSIGNMENT
24565 M01S00716.273l780 +++| MX7 1
24566 M01S00717.273l780 +++| BX5 X4
24567 M01S00718.273l780 +++| SA4 CMCL GET MOVE CONTROL
24568 M01S00719.273l780 +++| BX4 X4-X5
Line S01449 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24569 M01S01449.271l716 +++| AX4 48
Line S01450 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24570 M02S01450.273l780 ---| BX4 X7-X4 COMPARE WITH CP AT MOVE
24571 M02S01451.273l780 ---| SA5 A5+B1
Line S14497 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24572 M01S14497.273l780 ---| MX7 1
Line S14498 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24573 M02S14498.273l780 ---| TNG X5,(/PROGRAM/PDM3,/MONITOR/HNG1,MMF) IF *PDM* CALL
Line S14499 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24574 M02S14499.273l780 ---| SA4 CMCL GET *MTR*-S STORAGE MOVE CONTROL WORD
24575 M02S14500.273l780 ---| MX3 -12
24576 M02S14501.273l780 ---| LX4 12
24577 M02S14502.273l780 ---| BX4 -X3*X4 CONTROL POINT REQUESTED FOR STORAGE MOVE
Line S14503 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 253l688
M03 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24578 M03S14503.273l780 ---| SX3 B7+ PRESENT *CPA* ADDRESS
Line S00476 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
M03 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24579 M03S00476.273l780 ---| SX3 B7 PRESET *CPA* ADDRESS
Line S14504 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24580 M02S14504.273l780 ---| BX3 X4-X3
24581 M02S14505.273l780 ---| NZ X3,REJ1 IF CURRENT .NE. REQUESTED
24582 M02S14506.273l780 ---| LX7 56-59
Line S01537 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
24583 M02S01537.273l780 ---| NZ X4,REJ1 IF CURRENT .NE. REQUESTED
Line S00720 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24584 M01S00720.273l780 +++| SA5 A5+ GET OUTPUT REGISTER
24585 M01S00721.273l780 +++| NZ X4,REJ1 IF NO MOVE REQUEST FOR CP/PCP
Line S01538 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24586 M01S01538.253l688 +++| SX4 1 SET STORAGE MOVABLE FUNCTION FLAG
24587 M01S01539.253l688 +++| LX4 56-0
24588 M01S01540.253l688 +++| BX7 X4+X7
24589 M00S14507.cpumtr +++| REJ1 BX7 X7+X5 SET REJECTION BIT
24590 M00S14508.cpumtr +++| SA7 A5 STORE OR
24591 M00S14509.cpumtr +++| JP B5 RETURN
24592 M00S14510.cpumtr +++| TITLE MONITOR REQUEST PROCESSORS.
24593 M00S14511.cpumtr +++| MNR SPACE 4
24594 M00S14512.cpumtr +++|** MNR - MONITOR REQUEST PROCESSOR.
24595 M00S14513.cpumtr +++|*
24596 M00S14514.cpumtr +++|* ENTRY (X7) = 0.
24597 M00S14515.cpumtr +++|* (B4) = REQUEST NUMBER.
24598 M00S14516.cpumtr +++|*
24599 M00S14517.cpumtr +++|* EXIT (X7) = 0.
24600 M00S14518.cpumtr +++|* (B2) = 2.
24601 M00S14519.cpumtr +++|* (B4) = REQUEST NUMBER.
24602 M00S14520.cpumtr +++|
24603 M00S14521.cpumtr +++|
24604 M00S14522.cpumtr +++| MNR SA3 TMNR+B4 SET PROCESSOR
24605 M00S14523.cpumtr +++| SB2 B1+B1
24606 M00S14524.cpumtr +++| SB6 X3 PROCESS REQUEST
Line S14525 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24607 M01S14525.252l678 ---| TJP 0,(/PROBE/MNR,B6,PROBE) PROCESS REQUEST
Line S00709 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
24608 M02S00709.253l688 ---| TJP 0,(/PROBE/MNR,PROBE,B6) PROCESS REQUEST
Line S01541 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24609 M01S01541.253l688 +++| TJP (/PROBE/MNR,PROBE,B6) PROCESS REQUEST
24610 M00S14526.cpumtr +++| IDL SPACE 4
24611 M00S14527.cpumtr +++|** IDL - IDLE PROGRAM.
24612 M00S14528.cpumtr +++|
24613 M00S14529.cpumtr +++|
24614 M00S14530.cpumtr +++|
24615 M00S14531.cpumtr +++| IDL CON 0 (RA) FOR IDLE PROGRAM
24616 M00S14532.cpumtr +++| CON 0 (RA+1) FOR IDLE PROGRAM
Line S14533 Modification History
M01 (Removed by) ns2332
Seq # *Modification Id* Act
----------------------------+
24617 M01S14533.ns2332 ---| EQ 2 IDLE PROGRAM = STOP
Line S00006 Modification History
M01 (Added by) ns2332
Seq # *Modification Id* Act
----------------------------+
24618 M01S00006.ns2332 +++| CX2 X1 DELAY (6 BITS)
24619 M01S00007.ns2332 +++| CX2 X1 DELAY (6 BITS)
24620 M01S00008.ns2332 +++| EQ 2 LOOP
24621 M00S14534.cpumtr +++| MST SPACE 4
24622 M00S14535.cpumtr +++|** MST - MOVE STORAGE.
24623 M00S14536.cpumtr +++|* MOVE A CONTROL POINT UP OR DOWN.
24624 M00S14537.cpumtr +++|*
24625 M00S14538.cpumtr +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
24626 M00S14539.cpumtr +++|* B - 2, 3, 4, 5.
24627 M00S14540.cpumtr +++|* A - 1, 2, 3, 4, 5, 6, 7.
24628 M00S14541.cpumtr +++|*
24629 M00S14542.cpumtr +++|* CALLS SMP.
24630 M00S14543.cpumtr +++|
24631 M00S14544.cpumtr +++|
Line S14545 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24632 M01S14545.252l678 ---| MNR MSTF,(/PROGRAM/MSE,/PROGRAM/MST,ECM)
Line S00710 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
24633 M01S00710.252l678 +++| MNR MSTF,(/PROGRAM/MSE,ECM,/PROGRAM/MST)
24634 M00S14546.cpumtr +++|
Line S14547 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24635 M01S14547.271l716 ---| MST SA5 A5 READ *SMRL*
Line S01452 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24636 M01S01452.271l716 +++| MST SA5 A5 GET MOVE INCREMENT
Line S14548 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24637 M01S14548.271l716 ---| SA2 X5+FLSW GET FL STATUS WORD
24638 M01S14549.271l716 ---| MX1 -12
Line S01453 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24639 M01S01453.271l716 +++| MX1 -12
24640 M01S01454.271l716 +++| SA2 B7+FLSW
Line S14550 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24641 M01S14550.271l716 ---| AX5 48
24642 M00S14551.cpumtr +++| BX4 -X1*X2
24643 M00S14552.cpumtr +++| LX5 6
24644 M00S14553.cpumtr +++| LX2 -RSHF
24645 M00S14554.cpumtr +++| LX4 6 FL
Line S14555 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24646 M01S14555.271l716 ---| SB6 MST1 RETURN ADDRESS
Line S01455 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24647 M01S01455.271l716 +++| SB6 MST2 RETURN ADDRESS
24648 M00S14556.cpumtr +++| MX3 -RMSK
24649 M00S14557.cpumtr +++| BX3 -X3*X2 RA
24650 M00S14558.cpumtr +++| LX2 12+12
24651 M00S14559.cpumtr +++| LX3 6 RA
24652 M00S14560.cpumtr +++| BX2 -X1*X2
24653 M00S14561.cpumtr +++| BX1 -X5 MOVE INCREMENT
24654 M00S14562.cpumtr +++| LX2 6 NFL
24655 M00S14563.cpumtr +++| IX0 X3-X2 SUBTRACT NFL SIZE FROM RA
24656 M00S14564.cpumtr +++| IX4 X4+X2 ADD NFL SIZE TO FL
24657 M00S14565.cpumtr +++| SB4 X4
Line S14566 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
24658 M01S14566.253l688 ---| TJMP /CME/SMI,CME,/PROGRAM/SMC,CMU,/PROGRAM/SMR
Line S01542 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24659 M01S01542.253l688 +++| TJP (/CME/SMI,CME,/PROGRAM/SMC,CMU,/PROGRAM/SMR)
24660 M00S14567.cpumtr +++|
24661 M00S14568.cpumtr +++|* INDICATE MOVE COMPLETE.
24662 M00S14569.cpumtr +++|
Line S14570 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24663 M01S14570.271l716 ---| MST1 TNO /MCE/MST,MCE IF MEMORY CLEARING ENABLED
Line S14571 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24664 M02S14571.271l716 ---| SA1 SD1L COUNT STORAGE MOVE
Line S00304 Modification History
M01 (Added by) v23l617
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24665 M02S00304.271l716 ---| TA1 CMMS,SDA COUNT STORAGE MOVE
Line S14572 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24666 M01S14572.271l716 ---| MST2 SX2 B1
Line S01456 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24667 M01S01456.271l716 +++| MST2 TNO /MCE/MST,MCE IF MEMORY CLEARING ENABLED
24668 M01S01457.271l716 +++| TA1 CMMS,SDA COUNT STORAGE MOVE
24669 M01S01458.271l716 +++| MST3 SX2 B1
24670 M00S14573.cpumtr +++| IX6 X1+X2
24671 M00S14574.cpumtr +++| SA6 A1
Line S14575 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24672 M01S14575.271l716 ---| SA5 A5 GET *SMRL*
Line S01459 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24673 M01S01459.271l716 +++| SA5 A5 GET MOVE INCREMENT
Line S14576 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24674 M01S14576.271l716 ---| SA2 X5+FLSW READ FL STATUS
24675 M01S14577.271l716 ---| SA1 X5+B1 READ EXCHANGE PACKAGE
24676 M01S14578.271l716 ---| MX6 -RMSK
Line S01460 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24677 M01S01460.271l716 +++| SA2 B7+FLSW READ FL CONTROL WORD
24678 M01S01461.271l716 +++| MX6 -RMSK
24679 M01S01462.271l716 +++| SA1 B7+B1 READ EXCHANGE PACKAGE
Line S14579 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24680 M01S14579.271l716 ---| AX5 48 POSITION INCREMENT
24681 M00S14580.cpumtr +++| LX2 -RSHF POSITION TO RA
24682 M00S14581.cpumtr +++| IX7 X2+X5 UPDATE RA
24683 M00S14582.cpumtr +++| BX6 -X6*X7 NEW RA
24684 M00S14583.cpumtr +++| LX7 RSHF RE-POSITION
Line S14584 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24685 M01S14584.271l716 ---| SA7 A2 STORE FL STATUS WORD
Line S01463 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24686 M01S01463.271l716 +++| SA7 A2+0
24687 M00S14585.cpumtr +++| LX6 36+6 POSITION NEW RA
24688 M00S14586.cpumtr +++| MX7 24
24689 M00S14587.cpumtr +++| BX1 -X7*X1 CLEAR OLD RA
24690 M00S14588.cpumtr +++| BX6 X6+X1 INSERT NEW RA
24691 M00S14589.cpumtr +++| SA6 A1 UPDATE EXCHANGE PACKAGE
24692 M00S14590.cpumtr +++| SA1 A2+B1 CHANGE SECOND FLSW WORD
24693 M00S14591.cpumtr +++| LX5 24
24694 M00S14592.cpumtr +++| IX7 X1+X5
24695 M00S14593.cpumtr +++| SA7 A1+
24696 M00S14594.cpumtr +++|* EQ SMPX EXIT
24697 M00S14595.cpumtr +++| SMP SPACE 4,10
24698 M00S14596.cpumtr +++|** SMP - STORAGE MOVE PROGRAM MODE EXIT.
24699 M00S14597.cpumtr +++|*
24700 M00S14598.cpumtr +++|* ENTRY (A5) = ADDRESS OF *SMRL*.
24701 M00S14599.cpumtr +++|*
24702 M00S14600.cpumtr +++|* EXIT TO REQUEST PROCESSOR.
24703 M00S14601.cpumtr +++|
24704 M00S14602.cpumtr +++|
24705 M00S14603.cpumtr +++| SMPX SX7 B0+
24706 M00S14604.cpumtr +++| SA7 SMPR CLEAR REQUEST
24707 M00S14605.cpumtr +++| XJ
24708 M00S14606.cpumtr +++|
24709 M00S14607.cpumtr +++| SMP SA1 SMPR CHECK FOR REQUEST
24710 M00S14608.cpumtr +++| SB4 X1-1
24711 M00S14609.cpumtr +++| SA3 TMNR-1+X1 GET PROCESSOR ADDRESS
24712 M00S14610.cpumtr +++| SB6 X3+
Line S14611 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24713 M01S14611.252l678 ---| TJP 0,(/PROBE/MNR,B6,PROBE)
Line S00711 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
24714 M02S00711.253l688 ---| TJP 0,(/PROBE/MNR,PROBE,B6)
Line S01543 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24715 M01S01543.253l688 +++| TJP (/PROBE/MNR,PROBE,B6)
24716 M00S14612.cpumtr +++| SMPXP SPACE 4,10
24717 M00S14613.cpumtr +++|** SMPXP - STORAGE MOVE EXCHANGE PACKAGE.
24718 M00S14614.cpumtr +++|*
24719 M00S14615.cpumtr +++|* THIS EXCHANGE PACKAGE IS USED FOR CM AND UEM STORAGE
24720 M00S14616.cpumtr +++|* MOVES. IT RUNS SEPARATE FROM THE SYSTEM CONTROL POINT
24721 M00S14617.cpumtr +++|* AT AN EQUAL PRIORITY, BUT ITS CPU RESOURCES ARE ACCOUNTED
24722 M00S14618.cpumtr +++|* TO THE SYSTEM CP. UNLIKE THE SYSTEM CP, IT IS NOT FORCED
24723 M00S14619.cpumtr +++|* INTO CPU-0, UNLESS ECS IS USED FOR THE CM STORAGE MOVE.
24724 M00S14620.cpumtr +++|* THE PRIMARY PURPOSE OF THIS SEPARATE EXCHANGE PACKAGE IS
24725 M00S14621.cpumtr +++|* TO ALLOW IT TO TAKE ADVANTAGE OF THE ARCHITECHURE OF THE
24726 M00S14622.cpumtr +++|* MAINFRAMES EQUIPPED WITH *CME* (CENTRAL MEMORY EXTENSION).
24727 M00S14623.cpumtr +++|
24728 M00S14624.cpumtr +++|
Line S14625 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24729 M01S14625.252l678 ---| SMPXP EXP P=/PROGRAM/SMP,FL=(,MCM),FLX=(,MXM),B1=1,A5=SMRL,MA=SMP
24730 M01S14626.252l678 ---|,XP,EM=EEMC-1+400B+100B,EA=SMPXP
Line S00712 Modification History
M01 (Added by) 252l678
M02 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24731 M02S00712.271l716 ---| SMPXP EXP P=/PROGRAM/SMP,FL=(,MCM),FLX=(,MXM),B1=1,A5=SMRL,MA=SMP
Line S01464 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24732 M01S01464.271l716 +++| SMPXP EXP P=/PROGRAM/SMP,FL=(,MCM),FLX=(,MXM),B1=1,A5=SMIN,MA=SMP
Line S00713 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
24733 M01S00713.252l678 +++|,XP,EM=(,EXPFEC),EA=SMPXP
24734 M00S14627.cpumtr +++|
24735 M00S14628.cpumtr +++|* STSW.
24736 M00S14629.cpumtr +++|
24737 M00S14630.cpumtr +++| VFD 3/ZCPS CPU STATUS
24738 M00S14631.cpumtr +++| VFD 57/0
24739 M00S14632.cpumtr +++|
Line S14633 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
24740 M01S14633.271l750 ---|* JCIW.
Line S01326 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
24741 M01S01326.271l750 +++|* CWQW.
24742 M00S14634.cpumtr +++|
Line S01327 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
24743 M01S01327.271l750 +++| VFD 2/1
24744 M01S01328.271l750 +++| VFD 7/MPRS CPU PRIORITY
24745 M01S01329.271l750 +++| VFD 1/0
24746 M01S01330.271l750 +++| VFD 1/0 CPU SLICE ACTIVE
24747 M01S01331.271l750 +++| VFD 1/0 RECALL FLAG
24748 M01S01332.271l750 +++| VFD 1/1 EXTENDED CPU SLICE INCOMPLETE
Line S14635 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
24749 M01S14635.271l716 ---| VFD 11/100B CPU PRIORITY
24750 M01S14636.271l716 ---| VFD 1/0
Line S01465 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24751 M01S01465.271l716 +++| VFD 2/0
Line S01466 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
24752 M02S01466.271l750 ---| VFD 3/7
24753 M02S01467.271l750 ---| VFD 7/MPRS
Line S14637 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
24754 M01S14637.271l750 ---| VFD 12/0 CPU SELECTION - NONE
24755 M01S14638.271l750 ---| VFD 36/0
Line S01333 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
24756 M01S01333.271l750 +++| VFD 9/0 SERVICE CYCLE
24757 M01S01334.271l750 +++| VFD 9/SSSC*JCBE SERVICE PARAMETERS INDEX
24758 M01S01335.271l750 +++| VFD 1/0 *MTR* BYPASS FLAG
24759 M01S01336.271l750 +++| VFD 2/0 NO CPU SELECTION
24760 M01S01337.271l750 +++| VFD 3/0
24761 M01S01338.271l750 +++| VFD 3/SMXT STORAGE MOVE EXCHANGE PACKAGE TYPE
24762 M01S01339.271l750 +++| VFD 18/0 *WQ* LINKAGE
24763 M00S14639.cpumtr +++|
Line S14640 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
24764 M01S14640.271l750 ---|* CRCW.
Line S01340 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
24765 M01S01340.271l750 +++|* CSAW.
24766 M00S14641.cpumtr +++|
Line S14642 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
24767 M01S14642.271l750 ---| VFD 12/4
24768 M01S14643.271l750 ---| TVFD 24/0,SCA SYSTEM CONTROL POINT ADDRESS
24769 M01S14644.271l750 ---| VFD 24/SMPXP EXCHANGE PACKAGE ADDRESS
Line S01341 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
24770 M01S01341.271l750 +++| VFD 60/0
24771 M00S14645.cpumtr +++|
Line S01342 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
24772 M01S01342.271l750 +++|* *CTMW*.
24773 M01S01343.271l750 +++|
24774 M01S01344.271l750 +++| VFD 60/0
24775 M00S14646.cpumtr +++|
24776 M00S14647.cpumtr +++| QUAL
24777 M00S14648.cpumtr +++| SMPXP EQU /PROGRAM/SMPXP
24778 M00S14649.cpumtr +++| QUAL *
Line S14650 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
24779 M01S14650.251l664 ---| PDM SPACE 4
24780 M01S14651.251l664 ---|** PDM - PROCESS DOWN MACHINE.
24781 M01S14652.251l664 ---|*
24782 M01S14653.251l664 ---|* ENTRY
24783 M01S14654.251l664 ---|*T MMFL 12/,4/ DM,8/,12/,12/,12/
Figure
MMFL
0 11 12 23 24 29 30 35 36 43 44 47 48 59 DM
24784 M01S14655.251l664 ---|* DM DOWN MACHINES TO PROCESS.
24785 M01S14656.251l664 ---|*
24786 M01S14657.251l664 ---|* EXIT DM = 0.
24787 M01S14658.251l664 ---|
24788 M01S14659.251l664 ---|
24789 M01S14660.251l664 ---| MNR PDMF,(/PROGRAM/PDM,/PROGRAM/HNG,MMF)
24790 M00S14661.cpumtr +++| PMR SPACE 4
24791 M00S14662.cpumtr +++|** PMR - PROCESS INTER-MAINFRAME FUNCTION REQUEST.
24792 M00S14663.cpumtr +++|*
24793 M00S14664.cpumtr +++|* ENTRY NONE.
24794 M00S14665.cpumtr +++|*
24795 M00S14666.cpumtr +++|* EXIT NONE.
24796 M00S14667.cpumtr +++|
24797 M00S14668.cpumtr +++|
Line S14669 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24798 M01S14669.252l678 ---| MNR PMRF,(/PROGRAM/PMR,/PROGRAM/HNG,MMF)
Line S00714 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
24799 M01S00714.252l678 +++| MNR PMRF,(/PROGRAM/PMR,MMF,/PROGRAM/HNG)
24800 M00S14670.cpumtr +++| MEC SPACE 4,10
24801 M00S14671.cpumtr +++|** MEC - MOVE ECS STORAGE.
24802 M00S14672.cpumtr +++|*
24803 M00S14673.cpumtr +++|* ENTRY
24804 M00S14674.cpumtr +++|*T SM 12/ INC,30/,18/ CP
24805 M00S14675.cpumtr +++|* INC = INCREMENT.
24806 M00S14676.cpumtr +++|* CP = CONTROL POINT ADDRESS.
24807 M00S14677.cpumtr +++|*
24808 M00S14678.cpumtr +++|* EXIT
24809 M00S14679.cpumtr +++|*T SM 60/0
24810 M00S14680.cpumtr +++|
24811 M00S14681.cpumtr +++|
Line S14682 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24812 M01S14682.252l678 ---| MNR MECF,(/PROGRAM/MEC,/PROGRAM/HNG,UEC)
Line S00715 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
24813 M01S00715.252l678 +++| MNR MECF,(/PROGRAM/MEC,UEC,/PROGRAM/HNG)
24814 M00S14683.cpumtr +++| SPACE 4
24815 M00S14684.cpumtr +++|* MONITOR/PROGRAM MODE EQUIVALENCES.
24816 M00S14685.cpumtr +++|
24817 M00S14686.cpumtr +++|
24818 M00S14687.cpumtr +++| PX EQU /MONITOR/PX
24819 M00S14688.cpumtr +++| PR EQU /MONITOR/PR
24820 M00S14689.cpumtr +++| SMPR EQU /MONITOR/SMPR
Line S01468 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
24821 M01S01468.271l716 +++| SMIN EQU /MONITOR/SMIN
Line S01544 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
24822 M01S01544.253l688 +++| PPRX EQU /MONITOR/PPRX
24823 M01S01545.253l688 +++|
24824 M01S01546.253l688 +++| QUAL MONITOR
24825 M01S01547.253l688 +++| CSM EQU /PROGRAM/CSM
24826 M01S01548.253l688 +++| CSM1 EQU /PROGRAM/CSM1
Line S00722 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
24827 M01S00722.273l780 +++| REJ EQU /PROGRAM/REJ
24828 M00S14690.cpumtr +++| TTL CPUMTR - CPU MONITOR.
24829 M00S14691.cpumtr +++| TITLE CPUMTR BLOCK ORGANIZATION.
24830 M00S14692.cpumtr +++| BLOCKS SPACE 4,10
24831 M00S14693.cpumtr +++|** CPUMTR COMMON BLOCK ORGANIZATION.
24832 M00S14694.cpumtr +++|*
24833 M00S14695.cpumtr +++|* CPUMTR IS ORGANIZED TO PLACE OPTIONAL CODE INTO COMMON
24834 M00S14696.cpumtr +++|* BLOCKS WHICH CAN BE LOADED OR IGNORED AT DEAD START TIME,
24835 M00S14697.cpumtr +++|* DEPENDING UPON WHICH FEATURES ARE TO BE USED BY THE OPERATING
24836 M00S14698.cpumtr +++|* SYSTEM. WITH THE BLOCK ORGANIZTION A SITE OR MACHINE NOT
24837 M00S14699.cpumtr +++|* USING AN OPTIONAL FEATURE SUCH AS ECS OR MULTI-MAINFRAME
24838 M00S14700.cpumtr +++|* DOES NOT HAVE TO LOAD THIS CODE INTO CMR WITH CPUMTR.
24839 M00S14701.cpumtr +++|* A START OF BLOCK MACRO *BLOCK* AND AN END OF BLOCK MACRO
24840 M00S14702.cpumtr +++|* *ENDBLK* ARE USED TO DEFINE A CPUMTR COMMON BLOCK. THESE
24841 M00S14703.cpumtr +++|* MACROS PROVIDE THE LOADER AND QUAL BLOCK DEFINITIONS FOR
24842 M00S14704.cpumtr +++|* THE CPUMTR BLOCK. EACH BLOCK WILL NORMALLY BE QUALIFIED WITH
24843 M00S14705.cpumtr +++|* ITS NAME TO ASSURE PROGRAMMER AWARENESS OF WHICH ROUTINES
24844 M00S14706.cpumtr +++|* AND DATA CELLS RESIDE IN WHICH BLOCK.
24845 M00S14707.cpumtr +++|* A NULL BLOCK WILL USUALLY BE ASSOCIATED WITH EACH
24846 M00S14708.cpumtr +++|* OPTIONAL BLOCK AND WILL BE LOADED WHEN THE OPTIONAL BLOCK
24847 M00S14709.cpumtr +++|* IS NOT.
24848 M00S14710.cpumtr +++|* WHEN THERE ARE TWO ASSOCIATED BLOCKS, THE CPUMTR LOADER
24849 M00S14711.cpumtr +++|* WILL MAKE A DECISION AT DEADSTART TIME AS TO WHICH BLOCK TO
24850 M00S14712.cpumtr +++|* LOAD. FOR EXAMPLE IN THE CASE OF ECS TRANSEFER CODE, THE
24851 M00S14713.cpumtr +++|* LOADER WOULD CHECK THE ECS FIELD LENGTH TO DETERMINE THE
24852 M00S14714.cpumtr +++|* PRESENCE OF ECS. IF THERE IS NO ECS FIELD LENGTH THE NULL
24853 M00S14715.cpumtr +++|* ECS TRANSFER BLOCK WOULD BE LOADED.
24854 M00S14716.cpumtr +++| BLOCK CMU,(MOVE STORAGE WITH CMU.),PROGRAM
24855 M00S14717.cpumtr +++| SMP SPACE 4
24856 M00S14718.cpumtr +++|** NOTE -
24857 M00S14719.cpumtr +++|* THE *CMU* MUST NOT BE USED IN MONITOR MODE ON A DUAL-CPU
24858 M00S14720.cpumtr +++|* MAINFRAME WITH ONLY ONE *CMU*, BECAUSE IT MAY BE IN USE BY
24859 M00S14721.cpumtr +++|* THE OTHER CPU, CAUSING MONITOR MODE TO WAIT FOR IT TO FINISH.
24860 M00S14722.cpumtr +++| CSC SPACE 4,10
24861 M00S14723.cpumtr +++|** CSC - CLEAR STORAGE USING *CMU*.
24862 M00S14724.cpumtr +++|*
24863 M00S14725.cpumtr +++|* ENTRY (A5) = OUTPUT REGISTER ADDRESS.
24864 M00S14726.cpumtr +++|* (X5) = OUTPUT REGISTER.
24865 M00S14727.cpumtr +++|* (X1) = FUNCTION PARAMETERS FROM OUTPUT REGISTER.
24866 M00S14728.cpumtr +++|* (X7) = 0.
24867 M00S14729.cpumtr +++|*
24868 M00S14730.cpumtr +++|* EXIT ((A5)) = 0.
24869 M00S14731.cpumtr +++|*
24870 M00S14732.cpumtr +++|* CALLS CEC, CMP1, HNG, PRG.
24871 M00S14733.cpumtr +++|*
24872 M00S14734.cpumtr +++|* USES X - ALL.
24873 M00S14735.cpumtr +++|* A - 3, 4, 7.
24874 M00S14736.cpumtr +++|* B - 2, 3, 4, 5, 6.
24875 M00S14737.cpumtr +++|
24876 M00S14738.cpumtr +++|
24877 M00S14739.cpumtr +++| MVED EQU 5 MOVE DIFFERENTIAL FOR OVERLAPPING CLEAR
24878 M00S14740.cpumtr +++|
24879 M00S14741.cpumtr +++|* *CMP* RETURN PROCESSING.
24880 M00S14742.cpumtr +++|
24881 M00S14743.cpumtr +++| CSC3 SX7 B0+
Line S14744 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24882 M01S14744.252l678 ---| TNZ B3,(/MCE/CSTX,/PROGRAM/PRG1,MCE) IF NOT LIST
Line S00716 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
24883 M01S00716.252l678 +++| TNZ B3,(/MCE/CSTX,MCE,/PROGRAM/PRG1) IF NOT LIST
24884 M00S14745.cpumtr +++| CSC4 SA3 A3+B1 READ NEXT LIST ENTRY
24885 M00S14746.cpumtr +++| SB5 -MVED RESET (B5)
24886 M00S14747.cpumtr +++| SB2 B7-B5 SET SIZE OF INITIAL CLEAR
24887 M00S14748.cpumtr +++| NZ X3,CSC1 IF NOT END OF LIST
Line S14749 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24888 M01S14749.252l678 ---| TEQ (/MCE/CSTX,/PROGRAM/PRG1,MCE) EXIT
Line S00717 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
24889 M01S00717.252l678 +++| TEQ (/MCE/CSTX,MCE,/PROGRAM/PRG1) EXIT
24890 M00S14750.cpumtr +++|
24891 M00S14751.cpumtr +++|* ENTRY.
24892 M00S14752.cpumtr +++|
24893 M00S14753.cpumtr +++| CSC LX5 -24
24894 M00S14754.cpumtr +++| SB3 X5 (B3) = 0 IF LIST PRESENT
24895 M00S14755.cpumtr +++| SB5 -MVED SET MOVE DIFFERENTIAL
24896 M00S14756.cpumtr +++| BX3 X1
24897 M00S14757.cpumtr +++| LX5 59-43+24
24898 M00S14758.cpumtr +++| SB7 -B1
24899 M00S14759.cpumtr +++| MX2 -4
Line S14760 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
24900 M01S14760.252l678 ---| TNG X5,(/PROGRAM/CEC,/PROGRAM/HNG,UEC) IF CLEARING ECS
Line S00718 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
24901 M01S00718.252l678 +++| TNG X5,(/PROGRAM/CEC,UEC,/PROGRAM/HNG) IF CLEARING ECS
24902 M00S14761.cpumtr +++| SB6 CSC3 *CMP* RETURN ADDRESS
24903 M00S14762.cpumtr +++| SB2 B7-B5 SET SIZE OF INITIAL CLEAR
24904 M00S14763.cpumtr +++| NZ B3,CSC1 IF NOT LIST
24905 M00S14764.cpumtr +++| SA3 A5+B1 READ FIRST LIST WORD
24906 M00S14765.cpumtr +++| CSC1 BX6 X3
24907 M00S14766.cpumtr +++| AX3 24
24908 M00S14767.cpumtr +++| ZR X3,CSC4 IF NOTHING TO CLEAR
24909 M00S14768.cpumtr +++| BX4 X2*X3
24910 M00S14769.cpumtr +++| NZ X4,CSC2 IF MORE THAN 15 WORDS TO CLEAR
24911 M00S14770.cpumtr +++| SB2 X3+B7
24912 M00S14771.cpumtr +++| CSC2 SA7 X6+B2 CLEAR PRIMER AREA OR SHORT BLOCK
24913 M00S14772.cpumtr +++| SB2 B2-B1
24914 M00S14773.cpumtr +++| PL B2,CSC2 IF MORE TO CLEAR
24915 M00S14774.cpumtr +++| ZR X4,CSC4 IF SHORT BLOCK
24916 M00S14775.cpumtr +++| SB4 X3+B5 SET WORD COUNT
24917 M00S14776.cpumtr +++| MX0 -24
24918 M00S14777.cpumtr +++| SA4 CMPB ADDRESS INCREMENT
24919 M00S14778.cpumtr +++| SX1 -MVED MOVE DIFFERENTIAL
24920 M00S14779.cpumtr +++| SB5 CSCA MOVE DESCRIPTOR WORD
24921 M00S14780.cpumtr +++| BX6 -X0*X6 FWA
24922 M00S14781.cpumtr +++| SB2 X4 100B
24923 M00S14782.cpumtr +++| EQ CMP1 ENTER MOVE LOOP
24924 M00S14783.cpumtr +++|
24925 M00S14784.cpumtr +++|
24926 M00S14785.cpumtr +++| CSCA CON 0 MOVE DESCRIPTOR WORD
24927 M00S14786.cpumtr +++| CMP SPACE 4
24928 M00S14787.cpumtr +++|** CMP - CMU MOVE LOOP FOR USE IN PROGRAM MODE.
24929 M00S14788.cpumtr +++|* CMP PROCESSES BOTH UPWARD AND DOWNWARD MOVES WITH NO CHECK
24930 M00S14789.cpumtr +++|* FOR OVERLAP. IF AN OVERLAP MAY EXIST AND IS NOT DESIRED
24931 M00S14790.cpumtr +++|* *SMC* MUST BE CALLED TO PREVENT AN OVERLAPING MOVE.
24932 M00S14791.cpumtr +++|*
24933 M00S14792.cpumtr +++|* ENTRY (X0) = ADDRESS TO MOVE FROM.
24934 M00S14793.cpumtr +++|* (B4) = WORD COUNT OF MOVE.
24935 M00S14794.cpumtr +++|* (X1) = (X0) - ADDRESS TO MOVE TO.
24936 M00S14795.cpumtr +++|* (B6) = EXIT ADDRESS.
24937 M00S14796.cpumtr +++|*
24938 M00S14797.cpumtr +++|* IF ENTERED AT *CMP1* -
24939 M00S14798.cpumtr +++|* (X4) = ADDRESS INCREMENT (CMPB).
24940 M00S14799.cpumtr +++|* (X6) = ADDRESS TO MOVE FROM.
24941 M00S14800.cpumtr +++|* (X1) = (X6) - ADDRESS TO MOVE TO.
24942 M00S14801.cpumtr +++|* (A4) = CMPB.
24943 M00S14802.cpumtr +++|* (B2) = 100B.
24944 M00S14803.cpumtr +++|* (B6) = RETURN ADDRESS.
24945 M00S14804.cpumtr +++|*
24946 M00S14805.cpumtr +++|* USES X - 0, 1, 4, 6, 7.
24947 M00S14806.cpumtr +++|* B - 2, 4, 5.
24948 M00S14807.cpumtr +++|* A - 1, 4, 7.
24949 M00S14808.cpumtr +++|*
24950 M00S14809.cpumtr +++|* PRESERVES B3.
24951 M00S14810.cpumtr +++|
24952 M00S14811.cpumtr +++|
24953 M00S14812.cpumtr +++| CMP SA4 CMPB READ ADDRESS INCREMENT
24954 M00S14813.cpumtr +++| BX6 X0 SET ADDRESS FOR START OF MOVE
24955 M00S14814.cpumtr +++| SB2 X4+ 100B
24956 M00S14815.cpumtr +++| SB5 CMPA MOVE DESCRIPTOR WORD
24957 M00S14816.cpumtr +++|
24958 M00S14817.cpumtr +++|* ENTERED HERE FROM *SMC*.
24959 M00S14818.cpumtr +++|
24960 M00S14819.cpumtr +++| CMP1 MX7 -18 SET ADDRESSES
24961 M00S14820.cpumtr +++| BX0 -X1
24962 M00S14821.cpumtr +++| IX0 X6+X0
24963 M00S14822.cpumtr +++| BX6 -X7*X6
24964 M00S14823.cpumtr +++| LX6 30
24965 M00S14824.cpumtr +++| BX0 -X7*X0
24966 M00S14825.cpumtr +++| BX6 X6+X0
24967 M00S14826.cpumtr +++| SA1 A4+B1
24968 M00S14827.cpumtr +++|
24969 M00S14828.cpumtr +++|* CMU MOVE LOOP.
24970 M00S14829.cpumtr +++|
24971 M00S14830.cpumtr +++| CMP2 GE B4,B2,CMP3 IF .GE. 100B WORDS TO MOVE
24972 M00S14831.cpumtr +++| SX1 B4 SET CHARACTER COUNT FOR SHORT BLOCK
24973 M00S14832.cpumtr +++| SX0 B4+B4
24974 M00S14833.cpumtr +++| LX1 3
24975 M00S14834.cpumtr +++| MX7 -4
24976 M00S14835.cpumtr +++| IX1 X1+X0
24977 M00S14836.cpumtr +++| BX0 -X7*X1 LL
24978 M00S14837.cpumtr +++| BX1 X7*X1 LU
24979 M00S14838.cpumtr +++| LX0 30-4
24980 M00S14839.cpumtr +++| LX1 48-4
24981 M00S14840.cpumtr +++| BX1 X1+X0
24982 M00S14841.cpumtr +++| CMP3 BX7 X6+X1 MERGE ADDRESSES AND CHARACTER COUNT
24983 M00S14842.cpumtr +++| IX6 X6+X4 INCREMENT ADDRESSES
24984 M00S14843.cpumtr +++| SA7 B5 STORE DESCRIPTOR WORD
24985 M00S14844.cpumtr +++| SB4 B4-B2 DECREMENT WORD COUNT
24986 M00S14845.cpumtr +++| IM B5 MOVE STORAGE
24987 M00S14846.cpumtr +++| GT B4,B0,CMP2 IF MORE WORDS TO TRANSFER
24988 M00S14847.cpumtr +++| JP B6 RETURN
24989 M00S14848.cpumtr +++|
24990 M00S14849.cpumtr +++|* THE FOLLOWING WORDS MUST REMAIN IN ORDER.
24991 M00S14850.cpumtr +++|
24992 M00S14851.cpumtr +++| CMPA CON 0 INDIRECT MOVE DESCRIPTOR WORD
24993 M00S14852.cpumtr +++| CMPB VFD 30/100B,30/100B ADDRESS INCREMENT
24994 M00S14853.cpumtr +++| VFD 12/100B*10/20B,48/0 CHARACTER COUNT FOR 100B WORDS
24995 M00S14854.cpumtr +++| SMC SPACE 4
24996 M00S14855.cpumtr +++|** SMC - STORAGE MOVE WITH CMU.
24997 M00S14856.cpumtr +++|* SMC MOVES BLOCKS OF 100B WORDS UPWARD OR DOWNWARD
24998 M00S14857.cpumtr +++|* PREVENTING OVERLAP.
24999 M00S14858.cpumtr +++|*
25000 M00S14859.cpumtr +++|* ENTRY (X0) = ADDRESS TO MOVE FROM.
25001 M00S14860.cpumtr +++|* (B4) = WORD COUNT OF MOVE.
25002 M00S14861.cpumtr +++|* (X1) = (X0) - ADDRESS TO MOVE TO.
25003 M00S14862.cpumtr +++|* (B6) = EXIT ADDRESS.
25004 M00S14863.cpumtr +++|*
25005 M00S14864.cpumtr +++|* USES X - 0, 1, 4, 6, 7.
25006 M00S14865.cpumtr +++|* B - 2, 4, 5, 6.
25007 M00S14866.cpumtr +++|* A - 1, 4, 7.
25008 M00S14867.cpumtr +++|*
25009 M00S14868.cpumtr +++|* CALLS CMP1.
25010 M00S14869.cpumtr +++|
25011 M00S14870.cpumtr +++|
25012 M00S14871.cpumtr +++| SMC SA4 CMPB ADDRESS INCREMENT
25013 M00S14872.cpumtr +++| SB5 SMCA MOVE DESCRIPTOR WORD
25014 M00S14873.cpumtr +++| BX6 X0
25015 M00S14874.cpumtr +++| SB2 X4 100B
25016 M00S14875.cpumtr +++| PL X1,CMP1 IF DOWNWARD MOVE - NO OVERLAP
25017 M00S14876.cpumtr +++| SX6 X4
25018 M00S14877.cpumtr +++| BX4 -X4 COMPLEMENT INCREMENT
25019 M00S14878.cpumtr +++| IX6 X0-X6 START MOVE FROM END OF BLOCK
25020 M00S14879.cpumtr +++| SX0 B4 WORD COUNT
25021 M00S14880.cpumtr +++| IX6 X0+X6
25022 M00S14881.cpumtr +++| EQ CMP1 ENTER MOVE LOOP
25023 M00S14882.cpumtr +++|
25024 M00S14883.cpumtr +++|
25025 M00S14884.cpumtr +++| SMCA CON 0 MOVE DESCRIPTOR WORD
25026 M00S14885.cpumtr +++|
25027 M00S14886.cpumtr +++| ENDBLK
25028 M00S14887.cpumtr +++| BLOCK 0CMU,(MOVE STORAGE WITH REGISTERS.),PROGRAM
25029 M00S14888.cpumtr +++| SMR SPACE 4
25030 M00S14889.cpumtr +++|** SMR - STORAGE MOVE VIA REGISTERS.
25031 M00S14890.cpumtr +++|* SMR MOVES BLOCKS OF 10B WORDS THROUGH A REGISTER MOVE
25032 M00S14891.cpumtr +++|* LOOP. BLOCKS WHICH ARE NOT MULTIPLES OF 10B WORDS
25033 M00S14892.cpumtr +++|* SHOULD BE MOVED WITH *MSR*.
25034 M00S14893.cpumtr +++|*
25035 M00S14894.cpumtr +++|* ENTRY (X0) = ADDRESS TO MOVE FROM.
25036 M00S14895.cpumtr +++|* (B4) = WORD COUNT OF MOVE.
25037 M00S14896.cpumtr +++|* (X1) = (X0) - ADDRESS TO MOVE TO.
25038 M00S14897.cpumtr +++|* (B6) = EXIT ADDRESS.
25039 M00S14898.cpumtr +++|*
25040 M00S14899.cpumtr +++|* USES X - ALL.
25041 M00S14900.cpumtr +++|* B - 2, 4, 5, 6.
25042 M00S14901.cpumtr +++|* A - 1, 2, 3, 4, 6, 7.
25043 M00S14902.cpumtr +++|
25044 M00S14903.cpumtr +++|
25045 M00S14904.cpumtr +++| SMR SB5 X1+ B5 = MOVE DIFFERENCE
25046 M00S14905.cpumtr +++| SA1 X0+ A1 = FWA TO MOVE FROM
25047 M00S14906.cpumtr +++| SX0 B4-B1 (X0) = WORD COUNT - 1
25048 M00S14907.cpumtr +++| SB2 B1 SET DIRECTION OF MOVE
25049 M00S14908.cpumtr +++| PL B5,SMR1 IF DOWNWARD MOVE
25050 M00S14909.cpumtr +++| SB4 B4-B1
25051 M00S14910.cpumtr +++| SA1 A1+B4
25052 M00S14911.cpumtr +++| SB2 -1
25053 M00S14912.cpumtr +++| SMR1 SX5 -B1
25054 M00S14913.cpumtr +++| AX0 3 (X0) = WORD COUNT - 10B
25055 M00S14914.cpumtr +++| SA2 A1+B2
25056 M00S14915.cpumtr +++| SB2 B2+B2
25057 M00S14916.cpumtr +++|
25058 M00S14917.cpumtr +++|* REGISTER MOVE LOOP.
25059 M00S14918.cpumtr +++|
25060 M00S14919.cpumtr +++| SMR2 SA3 A1+B2 READ NEXT TWO WORDS
25061 M00S14920.cpumtr +++| BX6 X1
25062 M00S14921.cpumtr +++| SA4 A2+B2
25063 M00S14922.cpumtr +++| LX7 X2
25064 M00S14923.cpumtr +++| SA6 A1-B5 STORE TWO WORDS
25065 M00S14924.cpumtr +++| IX0 X0+X5 DECREMENT BLOCK COUNT
25066 M00S14925.cpumtr +++| SA7 A2-B5
25067 M00S14926.cpumtr +++| SA1 A3+B2 READ NEXT TWO WORDS
25068 M00S14927.cpumtr +++| SA2 A4+B2
25069 M00S14928.cpumtr +++| BX6 X3
25070 M00S14929.cpumtr +++| LX7 X4
25071 M00S14930.cpumtr +++| SA6 A3-B5 STORE TWO WORDS
25072 M00S14931.cpumtr +++| SA7 A4-B5
25073 M00S14932.cpumtr +++| SA3 A1+B2 READ NEXT TWO WORDS
25074 M00S14933.cpumtr +++| SA4 A2+B2
25075 M00S14934.cpumtr +++| BX6 X1
25076 M00S14935.cpumtr +++| LX7 X2
25077 M00S14936.cpumtr +++| SA6 A1-B5 STORE TWO WORDS
25078 M00S14937.cpumtr +++| SA7 A2-B5
25079 M00S14938.cpumtr +++| SA1 A3+B2 READ NEXT TWO WORDS
25080 M00S14939.cpumtr +++| SA2 A4+B2
25081 M00S14940.cpumtr +++| BX6 X3
25082 M00S14941.cpumtr +++| LX7 X4
25083 M00S14942.cpumtr +++| SA6 A3-B5 STORE LAST TWO WORDS
25084 M00S14943.cpumtr +++| SA7 A4-B5
25085 M00S14944.cpumtr +++| NZ X0,SMR2 IF NOT END OF MOVE
25086 M00S14945.cpumtr +++| SX0 B1+B1
25087 M00S14946.cpumtr +++| SMR3 BX6 X1 MOVE THE LAST 10B WORDS
25088 M00S14947.cpumtr +++| LX7 X2
25089 M00S14948.cpumtr +++| SA6 A1-B5
25090 M00S14949.cpumtr +++| SA7 A2-B5
25091 M00S14950.cpumtr +++| NG X0,SMR4 IF END OF MOVE
25092 M00S14951.cpumtr +++| SA1 A1+B2 READ THE NEXT TWO WORDS
25093 M00S14952.cpumtr +++| SA2 A2+B2
25094 M00S14953.cpumtr +++| IX0 X0+X5 DECREMENT THE LOOP COUNT
25095 M00S14954.cpumtr +++| EQ SMR3 LOOP TO STORE THE NEXT TWO WORDS
25096 M00S14955.cpumtr +++|
25097 M00S14956.cpumtr +++| SMR4 JP B6 RETURN
25098 M00S14957.cpumtr +++| CSP SPACE 4,10
25099 M00S14958.cpumtr +++|** CSP - CLEAR STORAGE THROUGH THE CPU.
25100 M00S14959.cpumtr +++|*
25101 M00S14960.cpumtr +++|* ENTRY (A5) = PPU OUTPUT REGISTER ADDRESS.
25102 M00S14961.cpumtr +++|*
25103 M00S14962.cpumtr +++|* USES X - 0, 1, 5, 6.
25104 M00S14963.cpumtr +++|* B - 3, 4, 5, 6.
25105 M00S14964.cpumtr +++|* A - 1, 6, 7.
25106 M00S14965.cpumtr +++|
25107 M00S14966.cpumtr +++|
25108 M00S14967.cpumtr +++| CSP LX5 -24
25109 M00S14968.cpumtr +++| SB3 X5 (B3) = 0 IF LIST PRESENT
25110 M00S14969.cpumtr +++| BX6 X6-X6
25111 M00S14970.cpumtr +++| LX5 59-43+24
Line S14971 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
25112 M01S14971.252l678 ---| TNG X5,(/PROGRAM/CEC,/PROGRAM/HNG,UEC) IF CLEARING ECS
Line S00719 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
25113 M01S00719.252l678 +++| TNG X5,(/PROGRAM/CEC,UEC,/PROGRAM/HNG) IF CLEARING ECS
25114 M00S14972.cpumtr +++| SB4 12B
25115 M00S14973.cpumtr +++| SB6 B1+B1
25116 M00S14974.cpumtr +++| NZ B3,CSP1 IF NOT LIST OPTION
25117 M00S14975.cpumtr +++| SA1 A5+B1 GET LIST ENTRY
25118 M00S14976.cpumtr +++| CSP1 BX5 X1
25119 M00S14977.cpumtr +++| AX1 24 EXTRACT WORD COUNT
25120 M00S14978.cpumtr +++| ZR X1,CSP4 IF NOTHING TO CLEAR
25121 M00S14979.cpumtr +++| SB5 X1-1 WORDS TO CLEAR
25122 M00S14980.cpumtr +++| LT B5,B4,CSP3 IF LESS THAN 13 WORDS
25123 M00S14981.cpumtr +++| SA7 X5+B5
25124 M00S14982.cpumtr +++| SB4 B4-B6
25125 M00S14983.cpumtr +++| SA6 A7-B1
25126 M00S14984.cpumtr +++| SB5 B5-B6 WORDS TO CLEAR
25127 M00S14985.cpumtr +++| CSP2 SA7 A7-B6 CLEAR 10 WORD BLOCKS
25128 M00S14986.cpumtr +++| SA6 A6-B6
25129 M00S14987.cpumtr +++| SA7 A7-B6
25130 M00S14988.cpumtr +++| SA6 A6-B6
25131 M00S14989.cpumtr +++| SA7 A7-B6
25132 M00S14990.cpumtr +++| SB5 B5-B4 DECREMENT WORD COUNT
25133 M00S14991.cpumtr +++| SA6 A6-B6
25134 M00S14992.cpumtr +++| SA7 A7-B6
25135 M00S14993.cpumtr +++| SA6 A6-B6
25136 M00S14994.cpumtr +++| GT B5,B4,CSP2 IF STILL 11 OR MORE WORDS TO CLEAR
25137 M00S14995.cpumtr +++| CSP3 SA6 X5+B5
25138 M00S14996.cpumtr +++| SB5 B5-B1
25139 M00S14997.cpumtr +++| PL B5,CSP3 IF STILL MORE TO CLEAR
Line S14998 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
25140 M01S14998.252l678 ---| TNZ B3,(/MCE/CSTX,/PROGRAM/PRG1,MCE) IF NOT LIST
Line S00720 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
25141 M01S00720.252l678 +++| TNZ B3,(/MCE/CSTX,MCE,/PROGRAM/PRG1) IF NOT LIST
25142 M00S14999.cpumtr +++| SB4 12B
25143 M00S15000.cpumtr +++| CSP4 SA1 A1+1
25144 M00S15001.cpumtr +++| NZ X1,CSP1 IF NOT END OF LIST
Line S15002 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
25145 M01S15002.252l678 ---| TEQ (/MCE/CSTX,/PROGRAM/PRG1,MCE) EXIT
Line S00721 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
25146 M01S00721.252l678 +++| TEQ (/MCE/CSTX,MCE,/PROGRAM/PRG1) EXIT
25147 M00S15003.cpumtr +++|
25148 M00S15004.cpumtr +++| ENDBLK
25149 M00S15005.cpumtr +++| BLOCK CME,(CENTRAL MEMORY EXTENSION.)
25150 M00S15006.cpumtr +++| SPACE 4,10
25151 M00S15007.cpumtr +++| HNG EQU /MONITOR/HNG
Line S01345 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
25152 M01S01345.271l750 +++| MT EQU /MONITOR/MT
25153 M00S15008.cpumtr +++| PPR1 EQU /MONITOR/PPR1
25154 M00S15009.cpumtr +++| T1 EQU /MONITOR/T1
25155 M00S15010.cpumtr +++| T2 EQU /MONITOR/T2
25156 M00S15011.cpumtr +++| T3 EQU /MONITOR/T3
25157 M00S15012.cpumtr +++| RA EQU /MONITOR/RA
25158 M00S15013.cpumtr +++| RA1 EQU /MONITOR/RA1
25159 M00S15014.cpumtr +++| RB6 EQU /MONITOR/RB6
25160 M00S15015.cpumtr +++| SPACE 4,10
25161 M00S15016.cpumtr +++|* DEFINE CME INSTRUCTION BLOCK.
25162 M00S15017.cpumtr +++|
25163 M00S15018.cpumtr +++|
25164 M00S15019.cpumtr +++| CME$ EQU 1
Line S01346 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
25165 M01S01346.271l750 +++| CCP SPACE 4,10
25166 M01S01347.271l750 +++|** CCP - *CCP* EXTENSION FOR *CME* MACHINE.
25167 M01S01348.271l750 +++|*
25168 M01S01349.271l750 +++|* ENTRY (B3) = RETURN ADDRESS.
25169 M01S01350.271l750 +++|* (X1) = *JCB* *CSJT* WORD.
25170 M01S01351.271l750 +++|* (A1) = ADDRESS OF *JCB* *CSJT* WORD.
25171 M01S01352.271l750 +++|*
25172 M01S01353.271l750 +++|* EXIT CONVERTED SCHEDULING PARAMETERS SET IN *JCB* ENTRY.
25173 M01S01354.271l750 +++|*
25174 M01S01355.271l750 +++|* USES X - 0, 1, 2, 3, 6, 7.
25175 M01S01356.271l750 +++|* A - 1, 3, 6.
25176 M01S01357.271l750 +++|* B - 4.
25177 M01S01358.271l750 +++|
25178 M01S01359.271l750 +++|
25179 M01S01360.271l750 +++| CCP BSS 0 ENTRY
25180 M01S01361.271l750 +++| SA3 CCPA =15.625
25181 M01S01362.271l750 +++| BX7 -X0*X1 UNEXTENDED CPU SLICE
25182 M01S01363.271l750 +++| LX1 -12
25183 M01S01364.271l750 +++| BX6 -X0*X1 RECALL CPU SLICE
25184 M01S01365.271l750 +++| IX7 X7-X6 UNEXTENDED SLICE - RECALL SLICE
25185 M01S01366.271l750 +++| PX6 X6
25186 M01S01367.271l750 +++| NX6 X6
25187 M01S01368.271l750 +++| FX6 X6*X3
25188 M01S01369.271l750 +++| UX6,B4 X6
25189 M01S01370.271l750 +++| LX6 B4 CONVERTED RECALL CPU SLICE
25190 M01S01371.271l750 +++| LX1 -12
25191 M01S01372.271l750 +++| BX2 -X0*X1 CPU SLICE EXTENSION
25192 M01S01373.271l750 +++| IX7 X7+X2 UNEXTENDED SLICE + EXTENSION - RECALL SLICE
25193 M01S01374.271l750 +++| PX2 X2
25194 M01S01375.271l750 +++| NX2 X2
25195 M01S01376.271l750 +++| FX2 X2*X3
25196 M01S01377.271l750 +++| UX2,B4 X2
25197 M01S01378.271l750 +++| LX2 B4 CONVERTED CPU SLICE EXTENSION
25198 M01S01379.271l750 +++| LX6 -18
25199 M01S01380.271l750 +++| BX6 X6+X2
25200 M01S01381.271l750 +++| PX7 X7
25201 M01S01382.271l750 +++| NX7 X7
25202 M01S01383.271l750 +++| FX7 X7*X3
25203 M01S01384.271l750 +++| UX7,B4 X7
25204 M01S01385.271l750 +++| LX7 B4 CONVERTED (*US* + *SE* - *RS*)
25205 M01S01386.271l750 +++| LX6 36
25206 M01S01387.271l750 +++| BX6 X6+X7
25207 M01S01388.271l750 +++| SA6 A1+B1
25208 M01S01389.271l750 +++| ERRNZ CSAT-CSJT-1 WORDS MUST BE CONTIGUOUS
25209 M01S01390.271l750 +++| LX1 -12
25210 M01S01391.271l750 +++| BX6 -X0*X1 SYSTEM I/O CPU THRESHOLD
25211 M01S01392.271l750 +++| PX6 X6
25212 M01S01393.271l750 +++| NX6 X6
25213 M01S01394.271l750 +++| FX6 X6*X3
25214 M01S01395.271l750 +++| UX6,B4 X6
25215 M01S01396.271l750 +++| LX6 B4 CONVERTED SYSTEM I/O CPU THRESHOLD
25216 M01S01397.271l750 +++| SA1 A6+B1
25217 M01S01398.271l750 +++| ERRNZ CSBT-CSAT-1 WORDS MUST BE CONTIGOUS
25218 M01S01399.271l750 +++| MX0 42
25219 M01S01400.271l750 +++| BX1 X0*X1
25220 M01S01401.271l750 +++| BX6 X1+X6
25221 M01S01402.271l750 +++| SA6 A1
25222 M01S01403.271l750 +++| JP B3 RETURN
25223 M01S01404.271l750 +++|
25224 M01S01405.271l750 +++|
25225 M01S01406.271l750 +++| CCPA CON 15.625
Line S15020 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25226 M01S15020.271l750 ---| CPT SPACE 4,10
Line S01407 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
25227 M01S01407.271l750 +++| CPT SPACE 4,15
Line S15021 Modification History
M01 (Removed by) ns2443
Seq # *Modification Id* Act
----------------------------+
25228 M01S15021.ns2443 ---|** CPT - EXTENSION FOR CYBER 170-8X5.
Line S00048 Modification History
M01 (Added by) ns2443
Seq # *Modification Id* Act
----------------------------+
25229 M01S00048.ns2443 +++|** CPT - EXTENSION FOR CYBER 180.
25230 M01S00049.ns2443 +++|*
Line S00050 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25231 M02S00050.271l750 ---|* ENTERED AT *CPT1* FROM *BNJ*.
25232 M02S00051.271l750 ---|* ENTERED AT *CPT* FOR OTHER ACCOUNTING.
Line S01408 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
25233 M01S01408.271l750 +++|* ENTRY (B3) = EXIT ADDRESS.
25234 M01S01409.271l750 +++|* (B6) = 200B IF ENTERED AT *CPT1* (*BNJ* CALL).
25235 M01S01410.271l750 +++|*
25236 M01S01411.271l750 +++|* EXIT TO /MONITOR/CPT1.
25237 M01S01412.271l750 +++|* (X0) = CPU TIME INCREMENT IN MACHINE UNITS.
25238 M01S01413.271l750 +++|* (MT+A0) = 0 IF RA+1 PROCESS AND NOT CPU SWITCH.
25239 M01S01414.271l750 +++|* (MT+A0) = -ACAD2 IF NOT RA+1 PROCESS OR IF CPU SWICH.
25240 M01S01415.271l750 +++|* (CL+CPBT+A0) RESET TO CURRENT CLOCK.
25241 M01S01416.271l750 +++|* (CL+CMST+A0) UPDATED.
25242 M01S01417.271l750 +++|*
25243 M01S01418.271l750 +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
25244 M01S01419.271l750 +++|* A - 1, 2, 3, 6, 7.
25245 M01S01420.271l750 +++|* B - 4, 6.
25246 M00S15022.cpumtr +++|
25247 M00S15023.cpumtr +++|
Line S00052 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25248 M02S00052.271l750 ---| CPT1 TNO /CME/CPT2,NPIT IF NOT USING PIT ACCOUNTING
25249 M02S00053.271l750 ---| RT X0,40B READ AND CLEAR PIT
25250 M02S00054.271l750 ---| CPT2 RC X6 READ CLOCK
25251 M02S00055.271l750 ---| SA1 /MONITOR/MS GET START TIME
25252 M02S00056.271l750 ---| SA6 A1 SET NEW MONITOR MODE START TIME
25253 M02S00057.271l750 ---| IX5 X6-X1 MONITOR MODE TIME ADJUSTMENT
25254 M02S00058.271l750 ---| SX3 B1
Line S01421 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
25255 M01S01421.271l750 +++| CPT BSS 0 ENTRY
25256 M01S01422.271l750 +++| SB6 B0+ DO NOT SET CPU SWITCH FLAG
25257 M01S01423.271l750 +++|
25258 M01S01424.271l750 +++|* ENTRY FROM /MONITOR/*BNJ*.
25259 M01S01425.271l750 +++|
25260 M01S01426.271l750 +++| CPT1 SA1 CL+CMST+A0 GET MONITOR MODE PARAMETERS
25261 M01S01427.271l750 +++| SA2 CL+CPBT+A0 GET PROGRAM MODE BASE TIME
25262 M01S01428.271l750 +++| SA3 MT+A0 GET MONITOR MODE ACCUMULATED TIME
25263 M01S01429.271l750 +++| RC X6 READ CLOCK
25264 M01S01430.271l750 +++| UX1,B4 X1
25265 M01S01431.271l750 +++| SB6 B4+B6 SET CPU SWITCH STATUS
25266 M01S01432.271l750 +++| PX7 B6,X6 SET FUNCTION WITH STATUS AND NEW BASE TIME
25267 M01S01433.271l750 +++| SA6 A2 UPDATE PROGRAM MODE BASE TIME
25268 M01S01434.271l750 +++| SA7 A1 UPDATE MONITOR MODE PARAMETERS
25269 M01S01435.271l750 +++| SX7 B0+ SET TO CLEAR MONITOR MODE ACCUMULATOR
25270 M01S01436.271l750 +++| ZR B6,CPT3 IF RA+1 PROCESS AND NOT CPU SWITCH
25271 M01S01437.271l750 +++| ERRNZ CCPF CODE DEPENDS ON VALUE
25272 M01S01438.271l750 +++| TX7 -ACAD2 - (EXCHANGE JUMP TIME)
25273 M01S01439.271l750 +++| ZR B4,CPT3 IF RA+1 PROCESS
25274 M01S01440.271l750 +++|
25275 M01S01441.271l750 +++|* COMPUTE MONITOR MODE TIME SINCE LAST BASE TIME.
25276 M01S01442.271l750 +++|*
25277 M01S01443.271l750 +++|* THE MICROSECOND CLOCK ON THE CYBER 170-865 AND 170-875 WILL
25278 M01S01444.271l750 +++|* WRAP APPROXIMATELY EVERY 1.2 HOURS, SINCE IT IS ONLY 32 BITS
25279 M01S01445.271l750 +++|* WIDE. ALL OTHER MODELS IN THE 170-800 SERIES HAVE 48 BIT
25280 M01S01446.271l750 +++|* COUNTERS, WHICH WILL WRAP ONLY ONCE EVERY 9 YEARS OR SO.
25281 M01S01447.271l750 +++|* SINCE THIS COUNTER IS RESET AT DEADSTART, IT IS SAFE TO
25282 M01S01448.271l750 +++|* ASSUME THAT IF A WRAP IS DETECTED, THE COUNTER IS ONLY 32
25283 M01S01449.271l750 +++|* BITS WIDE.
25284 M01S01450.271l750 +++|
25285 M01S01451.271l750 +++| IX5 X6-X1 TIME SINCE MONITOR MODE BASE TIME
25286 M01S01452.271l750 +++| PL X3,CPT2 IF *MT* NOT PREVIOUSLY ADJUSTED BY *CPT*
25287 M01S01453.271l750 +++| SX3 B0
25288 M01S01454.271l750 +++| CPT2 IX3 X3+X5 ADD CURRENT AND ACCUMULATED TIME
25289 M01S01455.271l750 +++| IX3 X3-X7 ADD EXCHANGE JUMP TIME
Line S00059 Modification History
M01 (Added by) ns2443
Seq # *Modification Id* Act
----------------------------+
25290 M01S00059.ns2443 +++| PL X5,CPT3 IF NO OVERFLOW OF COUNTER
Line S00060 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25291 M02S00060.271l750 ---| LX3 32
25292 M02S00061.271l750 ---| IX5 X5+X3
25293 M02S00062.271l750 ---| CPT3 TX3 ACAD2 ACCOUNTING ADJUSTMENT
25294 M02S00063.271l750 ---| ZR X1,CPT4 IF RA+1 PROCESS
25295 M02S00064.271l750 ---| SA1 /MONITOR/MT INCREMENT MONITOR TIME ADJUSTMENT
25296 M02S00065.271l750 ---| IX5 X3+X5 MONITOR + EXCHANGE TIME
25297 M02S00066.271l750 ---| IX7 X5+X1
25298 M02S00067.271l750 ---| SA7 A1+
25299 M02S00068.271l750 ---| CPT4 TX7 ACAD2 SET ACCOUNTING ADJUSTMENT
25300 M02S00069.271l750 ---| SA7 /MONITOR/BN
25301 M02S00070.271l750 ---| SA2 /MONITOR/ST+A0
Line S01456 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
25302 M01S01456.271l750 +++| SX0 1
25303 M01S01457.271l750 +++| LX0 32
25304 M01S01458.271l750 +++| IX3 X3+X0
Line S00071 Modification History
M01 (Added by) ns2443
Seq # *Modification Id* Act
----------------------------+
25305 M01S00071.ns2443 +++|
Line S00072 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25306 M02S00072.271l750 ---|* (X0) = PIT, (X2) = ST, (X6) = RC.
Line S01459 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
25307 M01S01459.271l750 +++|* COMPUTE PROGRAM MODE CPU TIME USED.
25308 M01S01460.271l750 +++|*
25309 M01S01461.271l750 +++|* IF MONITOR MODE WAS NOT ENTERED TO PROCESS AN RA+1 CALL OR IF
25310 M01S01462.271l750 +++|* A CPU SWITCH IS PENDING, THE MONITOR MODE ACCUMULATOR FOR THE
25311 M01S01463.271l750 +++|* CPU WILL BE RESET WITH A VALUE OF *-ACAD2*. SINCE EXIT FROM
25312 M01S01464.271l750 +++|* MONITOR MODE ADDS AN INCREMENT OF *ACAD* (TWICE THE VALUE OF
25313 M01S01465.271l750 +++|* *ACAD2*) TO THE ACCUMULATOR, THE RESULT IN THIS CASE WILL BE
25314 M01S01466.271l750 +++|* TO ACCOUNT ONLY FOR THE EXCHANGE JUMP BACK TO PROGRAM MODE.
25315 M01S01467.271l750 +++|* *CPT* WILL ALREADY HAVE ACCOUNTED FOR THE EXCHANGE JUMP INTO
25316 M01S01468.271l750 +++|* MONITOR MODE.
Line S00073 Modification History
M01 (Added by) ns2443
Seq # *Modification Id* Act
----------------------------+
25317 M01S00073.ns2443 +++|
Line S00074 Modification History
M01 (Added by) ns2443
M02 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
25318 M02S00074.252l678 ---| TEQ (/NVE/CPT,/MONITOR/CPT1.1,NVE)
Line S00722 Modification History
M01 (Added by) 252l678
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25319 M02S00722.271l750 ---| TEQ (/NVE/CPT,NVE,/MONITOR/CPT1.1)
Line S00075 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25320 M02S00075.271l750 ---|
Line S15024 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25321 M01S15024.271l750 ---| CPT SA2 /MONITOR/ST+A0 READ START TIME
25322 M01S15025.271l750 ---| RC X6 READ CLOCK
25323 M01S15026.271l750 ---| SX3 B1
Line S15027 Modification History
M01 (Removed by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25324 M02S15027.271l750 ---| IX7 X6-X2
Line S00076 Modification History
M01 (Added by) ns2443
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25325 M02S00076.271l750 ---| TNO /CME/CPT5,NPIT IF NOT USING PIT ACCOUNTING
25326 M02S00077.271l750 ---| RT X0,40B READ AND CLEAR PIT
25327 M02S00078.271l750 ---| CPT5 IX7 X6-X2
Line S15028 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25328 M01S15028.271l750 ---| LX3 32
Line S15029 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25329 M02S15029.271l750 ---| TPL X7,(/NVE/CPT,/MONITOR/CPT1.1,NVE) IF NO OVERFLOW
Line S00723 Modification History
M01 (Added by) 252l678
M02 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25330 M02S00723.271l750 ---| TPL X7,(/NVE/CPT,NVE,/MONITOR/CPT1.1) IF NO OVERFLOW
Line S15030 Modification History
M01 (Removed by) 271l750
Seq # *Modification Id* Act
----------------------------+
25331 M01S15030.271l750 ---| SA1 CPAL+A0 GET CONTROL POINT ADDRESS
25332 M01S15031.271l750 ---| SA6 A2 SET NEW START TIME
25333 M01S15032.271l750 ---|
25334 M01S15033.271l750 ---|* NOTE - THE MICROSECOND CLOCK ON THE CYBER 170-865 AND
25335 M01S15034.271l750 ---|* 170-875 WILL WRAP APPROXIMATELY EVERY 1.2 HOURS, SINCE IT
25336 M01S15035.271l750 ---|* IS ONLY 32 BITS WIDE. ALL OTHER MODELS IN THE 170-800
25337 M01S15036.271l750 ---|* SERIES HAVE 48 BIT COUNTERS, WHICH WILL WRAP ONLY ONCE
25338 M01S15037.271l750 ---|* EVERY 9 YEARS OR SO. SINCE THIS COUNTER IS RESET AT
25339 M01S15038.271l750 ---|* DEADSTART, IT IS SAFE TO ASSUME THAT IF A WRAP IS
25340 M01S15039.271l750 ---|* DETECTED, THE COUNTER IS ONLY 32 BITS WIDE.
25341 M01S15040.271l750 ---|
25342 M01S15041.271l750 ---| IX6 X6+X3 COMPENSATE FOR WRAP OF COUNTER
25343 M01S15042.271l750 ---| AX1 24
25344 M01S15043.271l750 ---| EQ /MONITOR/CPT1.2 UPDATE CP TIME
Line S01469 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
25345 M01S01469.271l750 +++| CPT3 IX6 X6-X2 COMPUTE TIME USED
25346 M01S01470.271l750 +++| SA7 MT+A0 RESET MONITOR MODE ACCUMULATOR
25347 M01S01471.271l750 +++| IX0 X6-X3 DEDUCT MONITOR MODE TIME
25348 M01S01472.271l750 +++| PL X0,/MONITOR/CPT1 IF NO UNDERFLOW
25349 M01S01473.271l750 +++| SX0 B0+
25350 M01S01474.271l750 +++| EQ /MONITOR/CPT1 ENTER MAIN *CPT* PROCESSOR
25351 M00S15044.cpumtr +++| CSM SPACE 4,15
25352 M00S15045.cpumtr +++|** CSM - CLEAR STORAGE THROUGH CPU (MONITOR MODE).
25353 M00S15046.cpumtr +++|*
25354 M00S15047.cpumtr +++|* ENTRY (X1) = WORD COUNT.
25355 M00S15048.cpumtr +++|* (X2) = FWA.
25356 M00S15049.cpumtr +++|* (B3) = RETURN ADDRESS.
25357 M00S15050.cpumtr +++|*
Line S00723 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
25358 M01S00723.273l780 +++|* EXIT (X7) = 0.
25359 M01S00724.273l780 +++|*
25360 M00S15051.cpumtr +++|* USES X - ALL.
25361 M00S15052.cpumtr +++|*
25362 M00S15053.cpumtr +++|* CALLS /MONITOR/RB3.
25363 M00S15054.cpumtr +++|
25364 M00S15055.cpumtr +++| CSM MX6 -3 INITIALIZE
25365 M00S15056.cpumtr +++| SX0 B1
25366 M00S15057.cpumtr +++| BX5 -X6*X1 REMAINDER
25367 M00S15058.cpumtr +++| BX7 X7-X7
25368 M00S15059.cpumtr +++| AX1 3 10B WORD BLOCK COUNT
25369 M00S15060.cpumtr +++| ZR X1,CSM2 IF .LT. 10B
25370 M00S15061.cpumtr +++| IX3 X2+X0 FWA+1
25371 M00S15062.cpumtr +++| SX6 B0+
25372 M00S15063.cpumtr +++| SX4 2
25373 M00S15064.cpumtr +++| CSM1 EWX6 X2
25374 M00S15065.cpumtr +++| IX1 X1-X0 DECREMENT BLOCK COUNT
25375 M00S15066.cpumtr +++| NO
25376 M00S15067.cpumtr +++| EWX7 X3
25377 M00S15068.cpumtr +++| IX2 X2+X4
25378 M00S15069.cpumtr +++| IX3 X3+X4
25379 M00S15070.cpumtr +++| EWX6 X2
25380 M00S15071.cpumtr +++| EWX7 X3
25381 M00S15072.cpumtr +++| IX2 X2+X4
25382 M00S15073.cpumtr +++| IX3 X3+X4
25383 M00S15074.cpumtr +++| EWX6 X2
25384 M00S15075.cpumtr +++| EWX7 X3
25385 M00S15076.cpumtr +++| IX2 X2+X4
25386 M00S15077.cpumtr +++| IX3 X3+X4
25387 M00S15078.cpumtr +++| EWX6 X2
25388 M00S15079.cpumtr +++| EWX7 X3
25389 M00S15080.cpumtr +++| IX2 X2+X4
25390 M00S15081.cpumtr +++| IX3 X3+X4
25391 M00S15082.cpumtr +++| NZ X1,CSM1 IF NOT COMPLETE
25392 M00S15083.cpumtr +++| CSM2 ZR X5,/MONITOR/RB3 IF COMPLETE
25393 M00S15084.cpumtr +++| IX5 X5-X0
25394 M00S15085.cpumtr +++| EWX7 X2
25395 M00S15086.cpumtr +++| IX2 X2+X0
25396 M00S15087.cpumtr +++| EQ CSM2 CLEAR REMAINDER
Line S00305 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
25397 M01S00305.v23l617 +++| MNR SPACE 4,10
25398 M01S00306.v23l617 +++|** MNR - *CME* EXTENSION TO PROGRAM MODE EXIT PROCESSING.
25399 M01S00307.v23l617 +++|
25400 M01S00308.v23l617 +++|
25401 M01S00309.v23l617 +++| MNR SA1 B2 EXCHANGE PACKAGE P-ADDRESS
25402 M01S00310.v23l617 +++| SA2 B0
25403 M01S00311.v23l617 +++| SA3 VFLR
25404 M01S00312.v23l617 +++| MX0 24
25405 M01S00313.v23l617 +++| BX4 X0*X1
25406 M01S00314.v23l617 +++| NZ X2,MNR2 IF WORD ZERO IS NON-ZERO
25407 M01S00315.v23l617 +++| BX6 X3
25408 M01S00316.v23l617 +++| ZR X4,MNR2 IF P-ADDRESS IS ZERO
25409 M01S00317.v23l617 +++| AX6 18
25410 M01S00318.v23l617 +++| SX7 B0+ CLEAR RESPONSE
25411 M01S00319.v23l617 +++| NZ X6,/MONITOR/MTRX IF REQUEST NOT COMPLETE
25412 M01S00320.v23l617 +++| MNR1 SA7 X3 SET RESPONSE
25413 M01S00321.v23l617 +++| SA6 A3 CLEAR REQUEST WORD
25414 M01S00322.v23l617 +++| SA1 VFLXP+STSW SET NULL STATUS
25415 M01S00323.v23l617 +++| MX0 -57
25416 M01S00324.v23l617 +++| BX7 -X0*X1
25417 M01S00325.v23l617 +++| SA7 A1+
25418 M01S00326.v23l617 +++| EQ /MONITOR/BNJ1 BEGIN NEW JOB
25419 M01S00327.v23l617 +++|
25420 M01S00328.v23l617 +++| MNR2 SX6 VFL RESET P-ADDRESS
25421 M01S00329.v23l617 +++| SX7 B1 SET RESPONSE
25422 M01S00330.v23l617 +++| BX1 -X0*X1 CLEAR P-ADDRESS
25423 M01S00331.v23l617 +++| LX6 36
25424 M01S00332.v23l617 +++| LX7 36
25425 M01S00333.v23l617 +++| BX6 X6+X1
25426 M01S00334.v23l617 +++| SA6 A1
25427 M01S00335.v23l617 +++| BX6 X6-X6 CLEAR REQUEST WORD
25428 M01S00336.v23l617 +++| EQ MNR1 EXIT
25429 M00S15088.cpumtr +++| MSR SPACE 4,15
25430 M00S15089.cpumtr +++|** MSR - MONITOR MODE STORAGE MOVE THROUGH REGISTERS
25431 M00S15090.cpumtr +++|* FOR *CME* MAINFRAMES.
25432 M00S15091.cpumtr +++|*
25433 M00S15092.cpumtr +++|* ENTRY (X0) = ADDRESS TO MOVE FROM.
25434 M00S15093.cpumtr +++|* (X1) = (X0) - ADDRESS TO MOVE TO.
25435 M00S15094.cpumtr +++|* (B4) = WORD COUNT.
25436 M00S15095.cpumtr +++|* (B6) = RETURN ADDRESS.
25437 M00S15096.cpumtr +++|*
25438 M00S15097.cpumtr +++|* CALLS PSM.
25439 M00S15098.cpumtr +++|*
25440 M00S15099.cpumtr +++|* USES X - 0, 1, 4, 6, 7.
25441 M00S15100.cpumtr +++|* B - 4, 5.
25442 M00S15101.cpumtr +++|
25443 M00S15102.cpumtr +++|
25444 M00S15103.cpumtr +++| MSR SB5 MSR1 *PSM* RETURN ADDRESS
25445 M00S15104.cpumtr +++| EQ PSM PRESET STORAGE MOVE
25446 M00S15105.cpumtr +++|
25447 M00S15106.cpumtr +++|* (X0) = ADDRESS TO MOVE FROM.
25448 M00S15107.cpumtr +++|* (X1) = ADDRESS TO MOVE TO.
25449 M00S15108.cpumtr +++|* (X4) = INCREMENT (1 OR -1).
25450 M00S15109.cpumtr +++|* (B4) = BLOCK COUNT (WORD COUNT / 10B).
25451 M00S15110.cpumtr +++|* (B6) = RETURN ADDRESS.
25452 M00S15111.cpumtr +++|
25453 M00S15112.cpumtr +++| MSR1 ERX6 X0 LOAD UP FIRST DATA
25454 M00S15113.cpumtr +++| IX0 X0+X4
25455 M00S15114.cpumtr +++| ERX7 X0
25456 M00S15115.cpumtr +++| IX0 X0+X4
25457 M00S15116.cpumtr +++| SB4 B4-1 DECREMENT BLOCK COUNT
25458 M00S15117.cpumtr +++| EWX6 X1
25459 M00S15118.cpumtr +++| IX1 X1+X4
25460 M00S15119.cpumtr +++| ERX6 X0
25461 M00S15120.cpumtr +++| IX0 X0+X4
25462 M00S15121.cpumtr +++| EWX7 X1
25463 M00S15122.cpumtr +++| IX1 X1+X4
25464 M00S15123.cpumtr +++| ERX7 X0
25465 M00S15124.cpumtr +++| IX0 X0+X4
25466 M00S15125.cpumtr +++| EWX6 X1
25467 M00S15126.cpumtr +++| IX1 X1+X4
25468 M00S15127.cpumtr +++| ERX6 X0
25469 M00S15128.cpumtr +++| IX0 X0+X4
25470 M00S15129.cpumtr +++| EWX7 X1
25471 M00S15130.cpumtr +++| IX1 X1+X4
25472 M00S15131.cpumtr +++| ERX7 X0
25473 M00S15132.cpumtr +++| IX0 X0+X4
25474 M00S15133.cpumtr +++| EWX6 X1
25475 M00S15134.cpumtr +++| IX1 X1+X4
25476 M00S15135.cpumtr +++| ERX6 X0
25477 M00S15136.cpumtr +++| IX0 X0+X4
25478 M00S15137.cpumtr +++| EWX7 X1
25479 M00S15138.cpumtr +++| IX1 X1+X4
25480 M00S15139.cpumtr +++| ERX7 X0
25481 M00S15140.cpumtr +++| IX0 X0+X4
25482 M00S15141.cpumtr +++| EWX6 X1
25483 M00S15142.cpumtr +++| IX1 X1+X4
25484 M00S15143.cpumtr +++| EWX7 X1
25485 M00S15144.cpumtr +++| IX1 X1+X4
25486 M00S15145.cpumtr +++| GT B4,B0,MSR1 IF MORE BLOCKS TO MOVE
25487 M00S15146.cpumtr +++| JP B6 RETURN
25488 M00S15147.cpumtr +++| PLF SPACE 4,10
25489 M00S15148.cpumtr +++|** PLF - PROCESS LOCAL FNT.
25490 M00S15149.cpumtr +++|
25491 M00S15150.cpumtr +++|
25492 M00S15151.cpumtr +++| PLF SA3 B7+FLSW GET RA AND NFL
25493 M00S15152.cpumtr +++| MX0 -12
25494 M00S15153.cpumtr +++| BX1 -X0*X5 EXTRACT NFL ADDRESS/PARAMETER
25495 M00S15154.cpumtr +++| LX5 24
25496 M00S15155.cpumtr +++| MX0 -3
25497 M00S15156.cpumtr +++| BX2 -X0*X5 EXTRACT SUBFUNCTION
25498 M00S15157.cpumtr +++| AX3 RSHF
25499 M00S15158.cpumtr +++| LX5 59-41-24
25500 M00S15159.cpumtr +++| MX0 -RMSK
25501 M00S15160.cpumtr +++| BX4 -X0*X3
25502 M00S15161.cpumtr +++| AX3 48-RSHF
25503 M00S15162.cpumtr +++| LX4 6 RA
25504 M00S15163.cpumtr +++| MX0 -18
25505 M00S15164.cpumtr +++| ZR X3,HNG IF NO NFL
25506 M00S15165.cpumtr +++| BX6 X4
25507 M00S15166.cpumtr +++| LX3 6 NFL
25508 M00S15167.cpumtr +++| SA6 RA
25509 M00S15168.cpumtr +++| SB6 X2-TPLFL-1
25510 M00S15169.cpumtr +++| PL B6,HNG IF ILLEGAL SUBFUNCTION
25511 M00S15170.cpumtr +++| JP TPLF+TPLFL+1+B6 JUMP TO PROCESSOR
25512 M00S15171.cpumtr +++|
25513 M00S15172.cpumtr +++|* EXIT TO PROCESSOR WITH -
25514 M00S15173.cpumtr +++|*
25515 M00S15174.cpumtr +++|* (X0) = 42/-0,18/0.
25516 M00S15175.cpumtr +++|* (X1) = NFL ADDRESS/PARAMETER.
25517 M00S15176.cpumtr +++|* (X3) = NFL SIZE.
25518 M00S15177.cpumtr +++|* (X4) = RA.
25519 M00S15178.cpumtr +++|* (X5) = *CREATE SPECIAL FILE* FLAG IN LEFT-MOST BIT.
25520 M00S15179.cpumtr +++|* (X7) = 0.
25521 M00S15180.cpumtr +++|* (RA) = RA.
25522 M00S15181.cpumtr +++|
25523 M00S15182.cpumtr +++| TPLF BSS 0
25524 M00S15183.cpumtr +++| LOC 0
25525 M00S15184.cpumtr +++|
25526 M00S15185.cpumtr +++|+ IX2 X3-X1
25527 M00S15186.cpumtr +++| EQ PLF14 (DLFS) - DELETE ENTRY
25528 M00S15187.cpumtr +++|
25529 M00S15188.cpumtr +++|+ IX2 X3-X1
25530 M00S15189.cpumtr +++| SX7 B1
Line S15190 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
25531 M01S15190.242l642 ---| EQ PLF14 (DLCS) - DELETE ENTRY, RETURN FILE COUNT
Line S00544 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
25532 M01S00544.242l642 +++| EQ PLF14 (DLCS) - RETURN FILE COUNT
25533 M00S15191.cpumtr +++|
25534 M00S15192.cpumtr +++|* EQ PLF1 (CRFS) - CREATE LOCAL FNT ENTRY
25535 M00S15193.cpumtr +++|
25536 M00S15194.cpumtr +++| TPLFL BSS 0
25537 M00S15195.cpumtr +++| LOC *O
25538 M00S15196.cpumtr +++|
25539 M00S15197.cpumtr +++|* SET UP FOR FNT SEARCH.
25540 M00S15198.cpumtr +++|
25541 M00S15199.cpumtr +++| PLF1 SA7 T2 CLEAR EMPTY ENTRY POINTER
25542 M00S15200.cpumtr +++| SX2 X3-FNTN COMPUTE ADDRESS OF LAST ENTRY
25543 M00S15201.cpumtr +++| SX6 LENF
25544 M00S15202.cpumtr +++| PX2 X2
25545 M00S15203.cpumtr +++| PX3 X6
25546 M00S15204.cpumtr +++| NX3 X3
25547 M00S15205.cpumtr +++| FX1 X2/X3
25548 M00S15206.cpumtr +++| UX1 B6,X1
25549 M00S15207.cpumtr +++| LX1 X1,B6
25550 M00S15208.cpumtr +++| IX3 X6*X1
25551 M00S15209.cpumtr +++| SA1 A5+B1
25552 M00S15210.cpumtr +++| SX2 FNTN ALLOW USE OF SPECIAL FILE RESERVED ENTRY
25553 M00S15211.cpumtr +++| NG X5,PLF2 IF SPECIAL FILE
25554 M00S15212.cpumtr +++| SX2 X2+SRFE*LENF PREVENT USE OF RESERVED ENTRIES
25555 M00S15213.cpumtr +++| PLF2 IX6 X4-X2
25556 M00S15214.cpumtr +++| SA6 A7+B1 SAVE FWA OF LAST RESERVED ENTRY
25557 M00S15215.cpumtr +++| SX3 X3+FNTN
25558 M00S15216.cpumtr +++| IX7 X4-X3 ADDRESS OF LAST ENTRY
25559 M00S15217.cpumtr +++| BX5 X0*X1 FILE NAME
25560 M00S15218.cpumtr +++| SA7 A7-B1
25561 M00S15219.cpumtr +++| EWX5 X7 SAVE FILE NAME MATCH
25562 M00S15220.cpumtr +++| SX1 FNTN-LENF*2
25563 M00S15221.cpumtr +++| SX2 FNTN-LENF
25564 M00S15222.cpumtr +++| IX6 X4-X1
25565 M00S15223.cpumtr +++| IX7 X4-X2
25566 M00S15224.cpumtr +++|
25567 M00S15225.cpumtr +++|* SEARCH FOR MATCHING ENTRY.
25568 M00S15226.cpumtr +++|
25569 M00S15227.cpumtr +++| PLF4 SX3 LENF*2 SEARCH INCREMENT
25570 M00S15228.cpumtr +++| IX6 X6-X3
25571 M00S15229.cpumtr +++| IX7 X7-X3
25572 M00S15230.cpumtr +++| ERX1 X6
25573 M00S15231.cpumtr +++| ERX2 X7
25574 M00S15232.cpumtr +++| BX3 X1-X5
25575 M00S15233.cpumtr +++| BX4 X2-X5
25576 M00S15234.cpumtr +++| BX3 X0*X3
25577 M00S15235.cpumtr +++| BX4 X0*X4
25578 M00S15236.cpumtr +++| ZR X3,PLF7 IF FOUND
25579 M00S15237.cpumtr +++| ZR X4,PLF6 IF FOUND
25580 M00S15238.cpumtr +++| ZR X1,PLF8 IF EMPTY
25581 M00S15239.cpumtr +++| PLF4.1 NZ X2,PLF4 IF NOT EMPTY
25582 M00S15240.cpumtr +++| SA1 A6
25583 M00S15241.cpumtr +++| IX1 X7-X1
25584 M00S15242.cpumtr +++| PL X1,PLF4 IF USE OF RESERVED ENTRY NOT ALLOWED
25585 M00S15243.cpumtr +++| SA7 T2 SAVE ADDRESS OF EMPTY ENTRY
25586 M00S15244.cpumtr +++| PLF4.9 SX3 LENF*2
25587 M00S15245.cpumtr +++|
25588 M00S15246.cpumtr +++|* SEARCH FOR MATCH (EMPTY ENTRY FOUND).
25589 M00S15247.cpumtr +++|
25590 M00S15248.cpumtr +++| PLF5 IX6 X6-X3
25591 M00S15249.cpumtr +++| IX7 X7-X3
25592 M00S15250.cpumtr +++| ERX1 X6
25593 M00S15251.cpumtr +++| ERX2 X7
25594 M00S15252.cpumtr +++| BX1 X1-X5
25595 M00S15253.cpumtr +++| BX2 X2-X5
25596 M00S15254.cpumtr +++| BX1 X0*X1
25597 M00S15255.cpumtr +++| BX2 X0*X2
25598 M00S15256.cpumtr +++| ZR X1,PLF7 IF FOUND
25599 M00S15257.cpumtr +++| NZ X2,PLF5 IF NOT FOUND
25600 M00S15258.cpumtr +++| PLF6 BX6 X7
25601 M00S15259.cpumtr +++| PLF7 SA4 T1
25602 M00S15260.cpumtr +++| SX7 B0+ CLEAR LAST ENTRY
25603 M00S15261.cpumtr +++| EWX7 X4
25604 M00S15262.cpumtr +++| BX2 X6-X4
25605 M00S15263.cpumtr +++| ZR X2,PLF10 IF LAST ENTRY
25606 M00S15264.cpumtr +++| SA3 RA
25607 M00S15265.cpumtr +++| IX3 X3-X6
25608 M00S15266.cpumtr +++| LX3 36 BYTE 1 OF RESPONSE
25609 M00S15267.cpumtr +++| SX7 B1 STATUS = FILE ALREADY EXISTS
25610 M00S15268.cpumtr +++| BX7 X3+X7
25611 M00S15269.cpumtr +++| EQ PPR1 EXIT
25612 M00S15270.cpumtr +++|
25613 M00S15271.cpumtr +++|* EMPTY ENTRY FOUND.
25614 M00S15272.cpumtr +++|
25615 M00S15273.cpumtr +++| PLF8 SA1 A6
25616 M00S15274.cpumtr +++| IX1 X6-X1
25617 M00S15275.cpumtr +++| PL X1,PLF4.1 IF USE OF RESERVED ENTRY NOT ALLOWED
25618 M00S15276.cpumtr +++| SA6 T2 SAVE ADDRESS OF EMPTY ENTRY
25619 M00S15277.cpumtr +++| EQ PLF4.9 CONTINUE SEARCH
25620 M00S15278.cpumtr +++|
25621 M00S15279.cpumtr +++|* NO MATCH FOUND, CREATE ENTRY.
25622 M00S15280.cpumtr +++|
25623 M00S15281.cpumtr +++| PLF10 SA4 T2 ADDRESS OF FIRST EMPTY ENTRY
25624 M00S15282.cpumtr +++| SA1 RA UPDATE LOCAL FILE COUNT
25625 M00S15283.cpumtr +++| SX2 LFCN
25626 M00S15284.cpumtr +++| IX2 X1-X2
25627 M00S15285.cpumtr +++| ERX6 X2
25628 M00S15286.cpumtr +++| SX3 X6-MXLF+SRFE+2 CHECK MAXIMUM FILE COUNT
25629 M00S15287.cpumtr +++| ZR X4,PLF11 IF NO FREE ENTRY
25630 M00S15288.cpumtr +++| SX7 FNTN+SRFE*LENF
25631 M00S15289.cpumtr +++| IX1 X1-X7
25632 M00S15290.cpumtr +++| IX1 X4-X1
25633 M00S15291.cpumtr +++| MX7 1
25634 M00S15292.cpumtr +++| BX7 X7*X1
25635 M00S15293.cpumtr +++| LX7 1
25636 M00S15294.cpumtr +++| IX6 X6+X7 INCREMENT FILE COUNT IF NOT SPECIAL FILE
25637 M00S15295.cpumtr +++| SX3 X6-MXLF+SRFE+1
25638 M00S15296.cpumtr +++| PL X3,PLF11 IF FILE LIMIT EXCEEDED (MAXIMUM NFL)
25639 M00S15297.cpumtr +++| EWX6 X2
25640 M00S15298.cpumtr +++| SX7 LOFT*100B SET LOCAL FILE TYPE
25641 M00S15299.cpumtr +++| BX7 X5+X7
25642 M00S15300.cpumtr +++| EWX7 X4
25643 M00S15301.cpumtr +++| R= X5,FSTL
25644 M00S15302.cpumtr +++| SX7 4 FST COMPLETE/NOT BUSY
25645 M00S15303.cpumtr +++| IX6 X5+X4 ADDRESS OF FST
25646 M00S15304.cpumtr +++| EWX7 X6
25647 M00S15305.cpumtr +++| SA1 RA
25648 M00S15306.cpumtr +++| IX7 X1-X4 NFL ADDRESS
25649 M00S15307.cpumtr +++| LX7 36
25650 M00S15308.cpumtr +++| EQ PPR1 EXIT WITH RESPONSE
25651 M00S15309.cpumtr +++|
25652 M00S15310.cpumtr +++| PLF11 SX7 B1+B1 STATUS = LOCAL FILE LIMIT
25653 M00S15311.cpumtr +++| PL X3,PPR1 IF FILE LIMIT EXCEEDED (MAXIMUM NFL)
25654 M00S15312.cpumtr +++| LX7 1 STATUS = NEED MORE NFL
25655 M00S15313.cpumtr +++| EQ PPR1 EXIT
25656 M00S15314.cpumtr +++|
25657 M00S15315.cpumtr +++|* DELETE FNT ENTRY.
25658 M00S15316.cpumtr +++|
25659 M00S15317.cpumtr +++| PLF14 NG X2,HNG IF NFL ADDRESS OUT OF RANGE
25660 M00S15318.cpumtr +++| IX2 X4-X1 ADDRESS OF FNT
25661 M00S15319.cpumtr +++| ERX3 X2 READ FNT
25662 M00S15320.cpumtr +++| SX6 X1-FNTN-SRFE*LENF-LENF
25663 M00S15321.cpumtr +++| R= X1,FSTL
25664 M00S15322.cpumtr +++| IX5 X2+X1 ADDRESS OF FST
25665 M00S15323.cpumtr +++| ZR X3,HNG IF EMPTY
25666 M00S15324.cpumtr +++| MX3 1
Line S00545 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
25667 M01S00545.242l642 +++| ERX0 X5 READ FST
25668 M01S00546.242l642 +++| NZ X7,PLF17 IF COUNTING FILES
25669 M00S15325.cpumtr +++| BX3 -X6*X3
25670 M00S15326.cpumtr +++| LX3 1
25671 M00S15327.cpumtr +++| BX6 X6-X6 CLEAR FNT/FST
Line S15328 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
25672 M01S15328.242l642 ---| ERX0 X5 READ FST
25673 M00S15329.cpumtr +++| EWX6 X2
25674 M00S15330.cpumtr +++| EWX6 X5
25675 M00S15331.cpumtr +++| IX5 X5+X1
25676 M00S15332.cpumtr +++| ERRNZ FSTL-1
25677 M00S15333.cpumtr +++| ERRNZ LENF-3
25678 M00S15334.cpumtr +++| EWX6 X5
25679 M00S15335.cpumtr +++| SX6 LFCN DECREMENT FILE COUNT IF NOT SPECIAL FILE
25680 M00S15336.cpumtr +++| IX6 X4-X6
25681 M00S15337.cpumtr +++| ERX2 X6
25682 M00S15338.cpumtr +++| IX1 X2-X3
25683 M00S15339.cpumtr +++| NG X1,HNG IF NEGATIVE FILE COUNT
25684 M00S15340.cpumtr +++| EWX1 X6 UPDATE *LFCN*
25685 M00S15341.cpumtr +++| SA2 B7+EOCW CHECK EXECUTE-ONLY FILE
Line S15342 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
25686 M01S15342.242l642 ---| SA5 A5+
Line S00547 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
25687 M01S00547.242l642 +++| SA5 A5
25688 M00S15343.cpumtr +++| MX1 12
25689 M00S15344.cpumtr +++| LX5 -12
25690 M00S15345.cpumtr +++| BX6 X5-X2
25691 M00S15346.cpumtr +++| BX6 X1*X6
Line S15347 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
25692 M01S15347.242l642 ---| NZ X6,PLF17 IF NO MATCH
Line S00548 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
25693 M01S00548.242l642 +++| NZ X6,PPR1 IF NO MATCH
25694 M00S15348.cpumtr +++| BX6 -X1*X2
25695 M00S15349.cpumtr +++| SA6 A2 CLEAR EXECUTE ONLY FILE POINTER