Deck CPUMTR Part 003

308 Modifications

Seq #  *Modification Id* Act 
----------------------------+
04189  M00S02415.cpumtr  +++|          PX3    X3
04190  M00S02416.cpumtr  +++|          PX1    X1
04191  M00S02417.cpumtr  +++|          NX4    X3
04192  M00S02418.cpumtr  +++|          NX1    X1
04193  M00S02419.cpumtr  +++|          SA3    CPTB        CONVERT TO MILLIUNITS
04194  M00S02420.cpumtr  +++|          RX1    X1*X4       CPM * CP
04195  M00S02421.cpumtr  +++|          RX1    X1*X3       CPM * CP / 4000000
04196  M00S02422.cpumtr  +++|          UX1,B5 X1
04197  M00S02423.cpumtr  +++|          LX1    B5
04198  M00S02424.cpumtr  +++|          SX4    B1+B1       GET *AU* AND *MP*
04199  M00S02425.cpumtr  +++|          IX4    X2+X4
04200  M00S02426.cpumtr  +++|          ERX4   X4
04201  M00S02427.cpumtr  +++|          MX0    -20
04202  M00S02428.cpumtr  +++|          BX6    -X0*X4      *AU*

Seq #  *Modification Id* Act 
----------------------------+
04203  M01S02429.ns2753a ---|          AX4    20

Seq #  *Modification Id* Act 
----------------------------+
04204  M01S00012.ns2753a +++|          SX3    B4
04205  M01S00013.ns2753a +++|          IX6    X3*X6       M1*1000 * AU
04206  M01S00014.ns2753a +++|          IX1    X6+X1       CPM*CP + M1*1000*AU
04207  M01S00015.ns2753a +++|          LX4    20
04208  M01S00016.ns2753a +++|          BX6    -X0*X4      *OD* (SET FOR IO LOOP INITIAL PASS)
04209  M01S00017.ns2753a +++|          SA3    B7+MPMW     GET M1 * MAP MULTIPLIER
04210  M01S00018.ns2753a +++|          LX4    20
04211  M00S02430.cpumtr  +++|          BX4    -X0*X4      *MP*

Seq #  *Modification Id* Act 
----------------------------+
04212  M02S00030.ns2753a ---|          AX4    20
04213  M02S00031.ns2753a ---|          BX5    -X0*X4      *OD*

Seq #  *Modification Id* Act 
----------------------------+
04214  M01S02431.ns2753a ---|          SX3    B4
04215  M01S02432.ns2753a ---|          IX6    X3*X6       M1*1000 * AU
04216  M01S02433.ns2753a ---|          IX1    X6+X1       CPM*CP + M1*1000*AU

Seq #  *Modification Id* Act 
----------------------------+
04217  M02S02434.ns2753a ---|          SA3    B7+MPMW     GET M1 * MAP III MULTIPLIER

Seq #  *Modification Id* Act 
----------------------------+
04218  M02S00002.ns2753a ---|          SA3    B7+MPMW     GET M1 * MAP MULTIPLIER
04219  M00S02435.cpumtr  +++|          LX3    20
04220  M00S02436.cpumtr  +++|          BX3    -X0*X3
04221  M00S02437.cpumtr  +++|          IX3    X3*X4       MP * M1M
04222  M00S02438.cpumtr  +++|          IX1    X1+X3       CPM*CP + M1*1000*AU + MP*M1M

Seq #  *Modification Id* Act 
----------------------------+
04223  M01S02439.ns2753a ---|          SX3    B6          M12

Seq #  *Modification Id* Act 
----------------------------+
04224  M01S00019.ns2753a +++|          SX3    B6+         M12
04225  M00S02440.cpumtr  +++|          IX7    X7+X3       M12 + M13*CM + M14*EC

Seq #  *Modification Id* Act 
----------------------------+
04226  M01S02441.ns2753a ---|          SX4    B1          GET *IO* COMPONENTS

Seq #  *Modification Id* Act 
----------------------------+
04227  M01S00020.ns2753a +++|          PX7    X7
04228  M01S00021.ns2753a +++|          NX7    X7
04229  M01S00022.ns2753a +++|          SX4    B1+         GET *IO* COMPONENTS
04230  M00S02442.cpumtr  +++|          IX4    X4+X2
04231  M00S02443.cpumtr  +++|          ERX4   X4

Seq #  *Modification Id* Act 
----------------------------+
04232  M01S02444.ns2753a ---|          SB5    B0          INITIALIZE INDEX
04233  M01S02445.ns2753a ---|          PX7    X7
04234  M01S02446.ns2753a ---|          NX7    X7

Seq #  *Modification Id* Act 
----------------------------+
04235  M02S02447.ns2753a ---| IAA2     BX6    -X0*X4      GET INCREMENT
04236  M02S02448.ns2753a ---|          MX3    -10

Seq #  *Modification Id* Act 
----------------------------+
04237  M02S00032.ns2753a ---|          BX6    X5          PRESET FOR OD INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
04238  M01S00023.ns2753a +++|          SB5    B0+         INITIALIZE INDEX

Seq #  *Modification Id* Act 
----------------------------+
04239  M01S00033.ns2753  +++|          LX4    20
04240  M01S00034.ns2753  +++| IAA2     MX3    -10
04241  M00S02449.cpumtr  +++|          ZR     X6,IAA3     IF NO INCREMENT
04242  M00S02450.cpumtr  +++|          LX3    10
04243  M00S02451.cpumtr  +++|          BX3    -X3*X6
04244  M00S02452.cpumtr  +++|          NZ     X3,IAA7     IF INCREMENT TOO LARGE

Seq #  *Modification Id* Act 
----------------------------+
04245  M01S00035.ns2753  +++|          PX6    X6
04246  M00S02453.cpumtr  +++|          SA3    B5+AIOA     GET MULTIPLIER

Seq #  *Modification Id* Act 
----------------------------+
04247  M01S02454.ns2753  ---|          PX6    X6
04248  M00S02455.cpumtr  +++|          NX6    X6

Seq #  *Modification Id* Act 
----------------------------+
04249  M01S02456.ns2753  ---|          RX6    X3*X6       IO = (S2, S3 OR S4) * (MS, MT OR PF)

Seq #  *Modification Id* Act 
----------------------------+
04250  M01S00036.ns2753  +++|          RX6    X3*X6       IO = (S2, S3, S4, S5) * (MS, MT, PF, OD)
04251  M00S02457.cpumtr  +++|          RX3    X6*X7       IOM*IO
04252  M00S02458.cpumtr  +++|          UX3,B6 X3
04253  M00S02459.cpumtr  +++|          LX3    B6
04254  M00S02460.cpumtr  +++|          IX1    X1+X3

Seq #  *Modification Id* Act 
----------------------------+
04255  M01S02461.ns2753  ---| IAA3     AX4    20
04256  M01S02462.ns2753  ---|          SB5    B5+B1
04257  M01S02463.ns2753  ---|          SB6    3

Seq #  *Modification Id* Act 
----------------------------+
04258  M01S00037.ns2753  +++| IAA3     LX4    -20
04259  M01S00038.ns2753  +++|          BX6    -X0*X4      ISOLATE INCREMENT
04260  M01S00039.ns2753  +++|          SB5    B5+1
04261  M01S00040.ns2753  +++|          SB6    4
04262  M00S02464.cpumtr  +++|          NE     B5,B6,IAA2  IF MORE *IO* COMPONENTS
04263  M00S02465.cpumtr  +++|          BX4    X1          DIVIDE BY M1*1000 FOR AUC INCREMENT
04264  M00S02466.cpumtr  +++|          SX3    B4
04265  M00S02467.cpumtr  +++|          SB4    B7          SAVE CONTROL POINT ADDRESS
04266  M00S02468.cpumtr  +++|          IX6    X4/X3       AUC INCREMENT
04267  M00S02469.cpumtr  +++|          SB7    B4          RESTORE CONTROL POINT ADDRESS
04268  M00S02470.cpumtr  +++|          MX0    19          CHECK FOR INCREMENT TOO LARGE
04269  M00S02471.cpumtr  +++|          BX3    X0*X1
04270  M00S02472.cpumtr  +++|          NZ     X3,IAA7     IF SRU INCREMENT TOO LARGE
04271  M00S02473.cpumtr  +++|          MX0    31
04272  M00S02474.cpumtr  +++|          BX3    X0*X6
04273  M00S02475.cpumtr  +++|          NZ     X3,IAA7     IF AUC INCREMENT TOO LARGE
04274  M00S02476.cpumtr  +++|
04275  M00S02477.cpumtr  +++|*         ADD INCREMENT TO AUC ACCUMULATOR.
04276  M00S02478.cpumtr  +++|
04277  M00S02479.cpumtr  +++|          SB4    40B         PRESET OVERFLOW FLAG
04278  M00S02480.cpumtr  +++|          SA2    B7+AUCW     GET AUC ACCUMULATOR
04279  M00S02481.cpumtr  +++|          BX3    -X0*X2
04280  M00S02482.cpumtr  +++|          IX3    X3+X6       ADD INCREMENT
04281  M00S02483.cpumtr  +++|          BX7    X0-X3
04282  M00S02484.cpumtr  +++|          NZ     X7,IAA4     IF NOT MAXIMUM
04283  M00S02485.cpumtr  +++|          SX3    B0+         SET ACCUMULATOR = 0
04284  M00S02486.cpumtr  +++|          EQ     IAA6        SET NEW ACCUMULATOR VALUE
04285  M00S02487.cpumtr  +++|
04286  M00S02488.cpumtr  +++| IAA4     BX7    X0*X3       CHECK FOR OVERFLOW
04287  M00S02489.cpumtr  +++|          ZR     X7,IAA5     IF NO OVERFLOW
04288  M00S02490.cpumtr  +++|          BX3    -X0*X3      INCREMENT TO OVERFLOW VALUE - MAXIMUM
04289  M00S02491.cpumtr  +++|          EQ     IAA6        SET NEW ACCUMULATOR VALUE
04290  M00S02492.cpumtr  +++|
04291  M00S02493.cpumtr  +++| IAA5     SB4    B0+         CLEAR OVERFLOW FLAG
04292  M00S02494.cpumtr  +++| IAA6     BX6    X0*X2       SET NEW VALUE INTO AUCW
04293  M00S02495.cpumtr  +++|          BX6    X6+X3
04294  M00S02496.cpumtr  +++|          SA6    A2
04295  M00S02497.cpumtr  +++|          SB5    B0          SET NO ERROR FOR RETURN
04296  M00S02498.cpumtr  +++|          EQ     AIO1        INCREMENT SRU ACCUMULATOR
04297  M00S02499.cpumtr  +++|
04298  M00S02500.cpumtr  +++| IAA7     SB5    B1+         SET EXCESSIVE INCREMENT ERROR
04299  M00S02501.cpumtr  +++|          JP     B3          EXIT

Seq #  *Modification Id* Act 
----------------------------+
04300  M01S00434.253l688 +++| IBF      SPACE  4,20
04301  M01S00435.253l688 +++|**        IBF - ISSUE *BOTM* FUNCTION.
04302  M01S00436.253l688 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04303  M02S00437.273l780 ---|*         *IBF* FORMATS AND ISSUES A *BOTM* FUNCTION TO *PPR*.  IF AN
04304  M02S00438.273l780 ---|*         OVERLAY INDEX IS SPECIFIED IN THE CALL, *IBF* ALLOCATES A PP
04305  M02S00439.273l780 ---|*         SAVE AREA, MOVES THE PP-S OUTPUT REGISTER AND MESSAGE BUFFER
04306  M02S00440.273l780 ---|*         TO IT, PRESETS A THREE-WORD BOOTSTRAP, SETS IT IN THE PP SAVE
04307  M02S00441.273l780 ---|*         AREA, AND THEN ISSUES THE *BOTM* TO THE PP.

Seq #  *Modification Id* Act 
----------------------------+
04308  M01S00093.273l780 +++|*         *IBF* FORMATS AND ISSUES A *BOTM* FUNCTION TO *PPR* TO
04309  M01S00094.273l780 +++|*         EXECUTE AN OVERLAY PROGRAM VIA A BOOTSTRAP LOADER.  *IBF*
04310  M01S00095.273l780 +++|*         ALLOCATES A PP SAVE AREA, MOVES THE PP-S OUTPUT REGISTER AND
04311  M01S00096.273l780 +++|*         MESSAGE BUFFER TO IT, PRESETS A THREE-WORD BOOTSTRAP, SETS IT
04312  M01S00097.273l780 +++|*         IN THE PP SAVE AREA, AND THEN ISSUES THE *BOTM* TO THE PP.

Seq #  *Modification Id* Act 
----------------------------+
04313  M01S00442.253l688 +++|*
04314  M01S00443.253l688 +++|*         THE PRESETTING USES INFORMATION LOCATED IN THE FOURTH WORD OF
04315  M01S00444.253l688 +++|*         THE BOOTSTRAP, DESCRIBED BELOW AS *BS+3*.
04316  M01S00445.253l688 +++|*
04317  M01S00446.253l688 +++|*         ENTRY  (X3) = 12/ 0, 24/ BP, 12/0, 6/OX, 6/BX.
04318  M01S00447.253l688 +++|*                       BP = *BOTM* PARAMETERS FOR BYTES 3 AND 4.
04319  M01S00448.253l688 +++|*                       OX = *TFPL* INDEX OF OVERLAY.
04320  M01S00449.253l688 +++|*                       BX = *TFPL* INDEX OF BOOTSTRAP.

Seq #  *Modification Id* Act 
----------------------------+
04321  M02S00450.cpum217 ---|*                (B5) = RETURN ADDRESS IF NO PP SAVE AREA AVAILABLE.

Seq #  *Modification Id* Act 
----------------------------+
04322  M01S00001.cpum217 +++|*                (A5) = *OR* ADDRESS.
04323  M01S00002.cpum217 +++|*                (B5) = RETURN ADDRESS IF *SYSEDIT* ACTIVE OR NO PP
04324  M01S00003.cpum217 +++|*                         SAVE AREA AVAILABLE.

Seq #  *Modification Id* Act 
----------------------------+
04325  M01S00451.253l688 +++|*                (BS+3) = 12/2000B+PA, 48/ PP.
04326  M01S00452.253l688 +++|*                       PA = PRESET ALGORITHM.
04327  M01S00453.253l688 +++|*                       PP = PRESET PARAMETERS.
04328  M01S00454.253l688 +++|*                            WHEN A PP SAVE AREA IS USED, THIS FIELD
04329  M01S00455.253l688 +++|*                            MUST BE FORMATTED AS FOLLOWS.
04330  M01S00456.253l688 +++|*                            12/ L1, 12/ L2, 12/ F1, 12/ F2.
04331  M01S00457.253l688 +++|*                            L1 = LENGTH OF THE FIRST BLOCK SAVED.
04332  M01S00458.253l688 +++|*                            L2 = LENGTH OF THE SECOND BLOCK SAVED.
04333  M01S00459.253l688 +++|*                            F1 = FIRST BYTE ADDRESS OF FIRST BLOCK.
04334  M01S00460.253l688 +++|*                            F2 = FIRST BYTE ADDRESS OF SECOND BLOCK.
04335  M01S00461.253l688 +++|*                            *DSDI* USES THIS INFORMATION.
04336  M01S00462.253l688 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04337  M01S00004.cpum217 +++|*         EXIT   TO *SPL* IF BOOTSTRAP CAN BE EXECUTED.
04338  M01S00005.cpum217 +++|*                TO *B5* RETURN ADDRESS VIA *REJ* IF BOOTSTRAP CANNOT
04339  M01S00006.cpum217 +++|*                  BE EXECUTED.
04340  M01S00007.cpum217 +++|*

Seq #  *Modification Id* Act 
----------------------------+
04341  M01S00463.253l688 +++|*         USES   X - 0, 1, 3, 4, 5, 6, 7.
04342  M01S00464.253l688 +++|*                A - 1, 3, 4, 6, 7.
04343  M01S00465.253l688 +++|*                B - 4, 6.
04344  M01S00466.253l688 +++|*
04345  M01S00467.253l688 +++|*         CALLS  MSM, MSR, SPL.
04346  M01S00468.253l688 +++|
04347  M01S00469.253l688 +++|
04348  M01S00470.253l688 +++| IBF      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04349  M01S00008.cpum217 +++|          MX4    -6
04350  M01S00009.cpum217 +++|          BX4    -X4*X3
04351  M01S00010.cpum217 +++|          AX3    6
04352  M01S00011.cpum217 +++|          SX1    X3
04353  M01S00012.cpum217 +++|          SA4    X4+TFPL-1   GET BOOTSTRAP *TFPL* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04354  M02S00013.273l780 ---|          NZ     X1,IBF0.1   IF OVERLAY SPECIFIED
04355  M02S00014.273l780 ---|          SX4    X4+
04356  M02S00015.273l780 ---|          NZ     X4,IBF2.1   IF BOOTSTRAP ENTRY INITIALIZED
04357  M02S00016.273l780 ---|          EQ     /PROGRAM/REJ  REJECT FUNCTION
04358  M02S00017.273l780 ---|
04359  M02S00018.273l780 ---| IBF0.1   SA1    X3+TFPL-1   GET OVERLAY *TFPL* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04360  M01S00098.273l780 +++|          SA1    X3+TFPL-1   GET OVERLAY *TFPL* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04361  M01S00019.cpum217 +++|          SX6    X4
04362  M01S00020.cpum217 +++|          SX7    X1

Seq #  *Modification Id* Act 
----------------------------+
04363  M02S00021.273l780 ---|          ZR     X6,/PROGRAM/REJ  IF BOOTSTRAP ENTRY NOT INITIALIZED
04364  M02S00022.273l780 ---|          ZR     X7,/PROGRAM/REJ  IF OVERLAY ENTRY NOT INITIALIZED

Seq #  *Modification Id* Act 
----------------------------+
04365  M01S00099.273l780 +++|          ZR     X6,REJ      IF BOOTSTRAP ENTRY NOT INITIALIZED
04366  M01S00100.273l780 +++|          ZR     X7,REJ      IF OVERLAY ENTRY NOT INITIALIZED

Seq #  *Modification Id* Act 
----------------------------+
04367  M01S00023.cpum217 +++|          LX7    18
04368  M01S00024.cpum217 +++|          BX6    X6+X7

Seq #  *Modification Id* Act 
----------------------------+
04369  M02S00025.273l780 ---|          SA6    IBFB        SAVE PLD POINTERS

Seq #  *Modification Id* Act 
----------------------------+
04370  M01S00101.273l780 +++|          SA6    T1          SAVE PLD POINTERS

Seq #  *Modification Id* Act 
----------------------------+
04371  M01S00026.cpum217 +++|
04372  M01S00027.cpum217 +++|*         ALLOCATE PP SAVE AREA FOR OVERLAY CALL.
04373  M01S00028.cpum217 +++|

Seq #  *Modification Id* Act 
----------------------------+
04374  M01S00471.253l688 +++|          SA1    PPSP        GET PP SAVE AREA POINTER

Seq #  *Modification Id* Act 
----------------------------+
04375  M02S00472.cpum217 ---|          SA4    PLDP        CHECK FOR LIBRARY LOCKED

Seq #  *Modification Id* Act 
----------------------------+
04376  M01S00473.253l688 +++|          MX7    -12
04377  M01S00474.253l688 +++|          BX7    -X7*X1      GET NUMBER OF SAVE AREAS
04378  M01S00475.253l688 +++|          AX1    12

Seq #  *Modification Id* Act 
----------------------------+
04379  M02S00476.cpum217 ---|          AX4    36

Seq #  *Modification Id* Act 
----------------------------+
04380  M01S00477.253l688 +++|          SA1    X1-PPSA

Seq #  *Modification Id* Act 
----------------------------+
04381  M02S00478.cpum217 ---|          SX0    A5+         SET *MOVE FROM* ADDRESS
04382  M02S00479.cpum217 ---|          ZR     X4,/PROGRAM/REJ  IF LIBRARY LOCKED
04383  M02S00480.cpum217 ---|          TSB4   (7,CME,7,CMUMTR,10B)  SET NUMBER OF WORDS

Seq #  *Modification Id* Act 
----------------------------+
04384  M02S00029.273l780 ---|          SX0    A5          SET MOVE SOURCE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04385  M01S00102.273l780 +++|          SX0    A5+         SET MOVE SOURCE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04386  M01S00481.253l688 +++| IBF1     SA1    A1+PPSA     GET SAVE AREA INTERLOCK WORD
04387  M01S00482.253l688 +++|          SX7    X7-1

Seq #  *Modification Id* Act 
----------------------------+
04388  M02S00483.273l780 ---|          NG     X7,/PROGRAM/REJ  IF NONE AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
04389  M01S00103.273l780 +++|          NG     X7,REJ      IF NONE AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
04390  M01S00484.253l688 +++|          NZ     X1,IBF1     IF THIS SAVE AREA IS INTERLOCKED

Seq #  *Modification Id* Act 
----------------------------+
04391  M02S00485.cpum217 ---|          SX5    A1+B1       SAVE OUTPUT REGISTER AND MESSAGE BUFFER
04392  M02S00486.cpum217 ---|          SB6    IBF2        RETURN ADDRESS
04393  M02S00487.cpum217 ---|          IX1    X0-X5       GET MOVE DIFFERENCE

Seq #  *Modification Id* Act 
----------------------------+
04394  M01S00030.cpum217 +++|          SX5    A1+B1       SET MOVE DESTINATION ADDRESS
04395  M01S00031.cpum217 +++|          TSB4   (7,CME,7,CMUMTR,10B)  SET MOVE WORD COUNT
04396  M01S00032.cpum217 +++|          IX1    X0-X5       SET MOVE DIFFERENCE
04397  M01S00033.cpum217 +++|          SB6    IBF2        SET RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04398  M01S00488.253l688 +++|          TJP    (/CME/MSR,CME,/MONITOR/MSM,CMUMTR,/MONITOR/MSR)
04399  M01S00489.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
04400  M02S00490.cpum217 ---|*         ENTER HERE WHEN A PP SAVE AREA IS NOT NEEDED.
04401  M02S00491.cpum217 ---|*
04402  M02S00492.cpum217 ---|*         ENTRY  (B5) = 0.

Seq #  *Modification Id* Act 
----------------------------+
04403  M02S00034.273l780 ---| IBF2     SA1    IBFB

Seq #  *Modification Id* Act 
----------------------------+
04404  M01S00104.273l780 +++| IBF2     SA1    T1

Seq #  *Modification Id* Act 
----------------------------+
04405  M01S00035.cpum217 +++|          SX4    X1          RESTORE BOOTSTRAP PLD POINTER
04406  M01S00036.cpum217 +++|          AX1    18          RESTORE OVERLAY PLD POINTER

Seq #  *Modification Id* Act 
----------------------------+
04407  M01S00493.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
04408  M02S00494.cpum217 ---| IBF2     MX4    -6
04409  M02S00495.cpum217 ---|          R=     X0,BOTM     BUILD *BOTM* FUNCTION
04410  M02S00496.cpum217 ---|          BX4    -X4*X3      GET BOOTSTRAP INDEX
04411  M02S00497.cpum217 ---|          AX3    6
04412  M02S00498.cpum217 ---|          SA4    X4+TFPL-1
04413  M02S00499.cpum217 ---|          SA1    X3+TFPL-1

Seq #  *Modification Id* Act 
----------------------------+
04414  M01S00037.cpum217 +++|*         BUILD BOOTSTRAP CALL.
04415  M01S00038.cpum217 +++|

Seq #  *Modification Id* Act 
----------------------------+
04416  M02S00039.273l780 ---| IBF2.1   R=     X0,BOTM     BUILD *BOTM* FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
04417  M01S00105.273l780 +++|          R=     X0,BOTM     BUILD *BOTM* FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
04418  M01S00500.253l688 +++|          AX3    6           POSITION *BOTM* PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
04419  M02S00501.273l780 ---|          TX6    A5-21B,-FP

Seq #  *Modification Id* Act 
----------------------------+
04420  M01S00502.253l688 +++|          BX0    X0+X3

Seq #  *Modification Id* Act 
----------------------------+
04421  M02S00503.273l780 ---|          SA3    A5          SAVE ORIGINAL FUNCTION
04422  M02S00504.273l780 ---|          AX6    3           PP NUMBER - 2

Seq #  *Modification Id* Act 
----------------------------+
04423  M01S00505.253l688 +++|          SA4    X4          GET BOOTSTRAP PLD ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04424  M02S00506.cpum217 ---|          SA1    X1          GET OVERLAY PLD ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04425  M02S00507.273l780 ---|          BX7    X3

Seq #  *Modification Id* Act 
----------------------------+
04426  M01S00508.253l688 +++|          LX0    24          POSITION THE *BOTM* PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
04427  M02S00509.273l780 ---|          SA7    IBFA+X6

Seq #  *Modification Id* Act 
----------------------------+
04428  M01S00510.253l688 +++|          AX4    24          GET BOOTSTRAP FWA
04429  M01S00511.253l688 +++|          SB6    X4
04430  M01S00512.253l688 +++|          PL     B6,HNG      IF BOOTSTRAP IS NOT CM RESIDENT
04431  M01S00513.253l688 +++|          SA3    X4+4-400000B  GET BOOTSTRAP PRESET CONTROL WORD
04432  M01S00514.253l688 +++|          SX7    A5          BUILD THE PP SAVE AREA INTERLOCK
04433  M01S00515.253l688 +++|          SA4    A3-B1       GET LAST WORD OF BOOTSTRAP
04434  M01S00516.253l688 +++|          LX7    48          POSITION OUTPUT REGISTER ADDRESS
04435  M01S00517.253l688 +++|          UX6,B6 X3          GET PRESET ALGORITHM AND *BOTM* PARAMETERS
04436  M01S00518.253l688 +++|          SA3    A4-B1
04437  M01S00519.253l688 +++|          BX7    X7+X6

Seq #  *Modification Id* Act 
----------------------------+
04438  M02S00520.cpum217 ---|          ZR     B5,IBO      IF NO PP SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
04439  M02S00040.273l780 ---|          ZR     X1,IBO      IF NO OVERLAY/PP SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
04440  M01S00041.cpum217 +++|          SA1    X1+         GET OVERLAY PLD ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04441  M01S00521.253l688 +++|          SA7    X5-1        SET THE PP SAVE AREA INTERLOCK
04442  M01S00522.253l688 +++|          SX5    X5+7        FWA OF BOOTSTRAP IN PP SAVE AREA
04443  M01S00523.253l688 +++|          AX6    24          POSITION *BOTM* DATA
04444  M01S00524.253l688 +++|          BX7    X0+X5
04445  M01S00525.253l688 +++|          LX7    24
04446  M01S00526.253l688 +++|          IX7    X7+X6
04447  M01S00527.253l688 +++|          NZ     B6,HNG      IF UNUSED PRESET ALGORITHM INDEX
04448  M01S00528.253l688 +++|
04449  M01S00529.253l688 +++|*         EXIT TO THE BOOTSTRAP PRESET CODE WITH THESE VALUES -
04450  M01S00530.253l688 +++|*
04451  M01S00531.253l688 +++|*         (A1) = ADDRESS OF OVERLAY-S PLD ENTRY.
04452  M01S00532.253l688 +++|*         (A3) = ADDRESS OF SECOND WORD OF BOOTSTRAP.
04453  M01S00533.253l688 +++|*         (A4) = ADDRESS OF LAST WORD OF BOOTSTRAP.
04454  M01S00534.253l688 +++|*         (B6) = PRESET INDEX.
04455  M01S00535.253l688 +++|*         (X1) = OVERLAY-S PLD ENTRY.
04456  M01S00536.253l688 +++|*         (X3) = SECOND WORD OF BOOTSTRAP.
04457  M01S00537.253l688 +++|*         (X4) = LAST WORD OF BOOTSTRAP.
04458  M01S00538.253l688 +++|*         (X5) = FWA OF BOOTSTRAP IN PP SAVE AREA.
04459  M01S00539.253l688 +++|*         (X7) = *BOTM* CALL WORD.
04460  M01S00540.253l688 +++|
04461  M01S00541.253l688 +++|
04462  M01S00542.253l688 +++|*         PRESET ALGORITHM 0.
04463  M01S00543.253l688 +++|*
04464  M01S00544.253l688 +++|*         (MB) = OVERLAY LOAD PARAMETERS FROM *SPL*.
04465  M01S00545.253l688 +++|*         (MB+1) = *BOTM* CALL WORD.
04466  M01S00546.253l688 +++|
04467  M01S00547.253l688 +++|
04468  M01S00548.253l688 +++|          BX6    X3
04469  M01S00549.253l688 +++|          SA3    A3-B1
04470  M01S00550.253l688 +++|          SB6    IBF3        *SPL* RETURN ADDRESS
04471  M01S00551.253l688 +++|          SA6    X5+B1
04472  M01S00552.253l688 +++|          BX5    X7
04473  M01S00553.253l688 +++|          SA7    A5+2        SAVE *BOTM* CALL IN *MB*+1
04474  M01S00554.253l688 +++|          BX7    X4
04475  M01S00555.253l688 +++|          MX4    18
04476  M01S00556.253l688 +++|          SA7    A6+B1
04477  M01S00557.253l688 +++|          MX7    6
04478  M01S00558.253l688 +++|          BX6    X3
04479  M01S00559.253l688 +++|          BX7    X7*X1
04480  M01S00560.253l688 +++|          SA6    A6-B1
04481  M01S00561.253l688 +++|          LX7    -54
04482  M01S00562.253l688 +++|          EQ     SPL1.1      BUILD LOAD PARAMETERS
04483  M01S00563.253l688 +++|
04484  M01S00564.253l688 +++| IBF3     SA7    A5+B1       SAVE LOAD PARAMETERS IN *MB*
04485  M01S00565.253l688 +++|          BX7    X5          RESTORE *BOTM*
04486  M01S00566.253l688 +++|          EQ     PPR1        ISSUE *BOTM*

Seq #  *Modification Id* Act 
----------------------------+
04487  M02S00567.273l780 ---|
04488  M02S00568.273l780 ---|
04489  M02S00569.273l780 ---| IBFA     BSS    20D-2       PP OUTPUT REGISTER SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
04490  M02S00042.273l780 ---|
04491  M02S00043.273l780 ---| IBFB     CON    0           *TFPL* PLD POINTERS

Seq #  *Modification Id* Act 
----------------------------+
04492  M02S00570.273l780 ---| IBO      SPACE  4,15
04493  M02S00571.273l780 ---|**        IBO - ISSUE *BOTM* ONLY.
04494  M02S00572.273l780 ---|*

Seq #  *Modification Id* Act 
----------------------------+
04495  M03S00573.273l780 ---|*         *IBO* IS CALLED BY *IBF* WHEN NO PPSAVE AREA IS NEEDED BY
04496  M03S00574.273l780 ---|*         THE REQUESTED BOOTSTRAP.

Seq #  *Modification Id* Act 
----------------------------+
04497  M02S00044.273l780 ---|*         *IBO* IS CALLED WHEN NO PP SAVE AREA IS NEEDED BY THE
04498  M02S00045.273l780 ---|*           REQUESTED BOOTSTRAP (NO OVERLAY TO EXECUTE).

Seq #  *Modification Id* Act 
----------------------------+
04499  M02S00575.273l780 ---|*

Seq #  *Modification Id* Act 
----------------------------+
04500  M03S00576.273l780 ---|*         ENTRY  (A1) = ADDRESS OF OVERLAY-S PLD ENTRY.
04501  M03S00577.273l780 ---|*                (A3) = ADDRESS OF SECOND WORD OF BOOTSTRAP.

Seq #  *Modification Id* Act 
----------------------------+
04502  M02S00046.273l780 ---|*         ENTRY  (A3) = ADDRESS OF SECOND WORD OF BOOTSTRAP.

Seq #  *Modification Id* Act 
----------------------------+
04503  M02S00578.273l780 ---|*                (A4) = ADDRESS OF LAST WORD OF BOOTSTRAP.

Seq #  *Modification Id* Act 
----------------------------+
04504  M03S00579.273l780 ---|*                (B5) = 0.

Seq #  *Modification Id* Act 
----------------------------+
04505  M02S00580.273l780 ---|*                (B6) = PRESET INDEX.
04506  M02S00581.273l780 ---|*                (X0) = *BOTM* CALL WORD, SHIFTED 36 BITS.

Seq #  *Modification Id* Act 
----------------------------+
04507  M03S00582.273l780 ---|*                (X1) = OVERLAY-S PLD ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
04508  M02S00583.273l780 ---|*                (X3) = SECOND WORD OF BOOTSTRAP.
04509  M02S00584.273l780 ---|*                (X4) = LAST WORD OF BOOTSTRAP.
04510  M02S00585.273l780 ---|*
04511  M02S00586.273l780 ---|*         USES   X - 1, 2, 7.
04512  M02S00587.273l780 ---|*                A - 7.
04513  M02S00588.273l780 ---|
04514  M02S00589.273l780 ---|
04515  M02S00590.273l780 ---| IBO      NZ     B6,HNG      IF UNUSED PRESET ALGORITHM INDEX
04516  M02S00591.273l780 ---|
04517  M02S00592.273l780 ---|*         PRESET ALGORITHM 0.
04518  M02S00593.273l780 ---|*
04519  M02S00594.273l780 ---|*         SET OUTPUT REGISTER SAVE BUFFER IN SECOND WORD, SET
04520  M02S00595.273l780 ---|*         BOOTSTRAP ADDRESS IN *BOTM* AND ISSUE.
04521  M02S00596.273l780 ---|
04522  M02S00597.273l780 ---|          TX2    IBFA-2,-FP8
04523  M02S00598.273l780 ---|          SX1    A3-B1       BOOTSTRAP FWA
04524  M02S00599.273l780 ---|          LX2    24
04525  M02S00600.273l780 ---|          BX7    X3+X2       MERGE *OR* SAVE BUFFER ADDRESS
04526  M02S00601.273l780 ---|          SA7    A3
04527  M02S00602.273l780 ---|          BX7    X0+X1
04528  M02S00603.273l780 ---|          LX7    24
04529  M02S00604.273l780 ---|          EQ     PPR1        STORE OUTPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
04530  M01S02502.273l780 ---|JAV       SPACE  4,40

Seq #  *Modification Id* Act 
----------------------------+
04531  M01S00106.273l780 +++| JAV      SPACE  4,40
04532  M00S02503.cpumtr  +++|**        JAV - JOB ADVANCE.
04533  M00S02504.cpumtr  +++|*
04534  M00S02505.cpumtr  +++|*         CONDITIONS REQUIRED FOR ADVANCE-
04535  M00S02506.cpumtr  +++|*
04536  M00S02507.cpumtr  +++|*         ROLLOUT FLAG SET-
04537  M00S02508.cpumtr  +++|*         1)     NO PP,S ASSIGNED.
04538  M00S02509.cpumtr  +++|*         2)     EJT ENTRY INTERLOCK NOT SET.
04539  M00S02510.cpumtr  +++|*         3)     NO ROLLOUT INHIBITING RECALL REQUESTS.
04540  M00S02511.cpumtr  +++|*                IE. ENTRIES IN BQ OR CQ.
04541  M00S02512.cpumtr  +++|*         4)     EJT ORDINAL IN *TFSW* OF CONTROL POINT.
04542  M00S02513.cpumtr  +++|*         5)     STORAGE MOVE NOT PENDING FOR THIS CP.

Seq #  *Modification Id* Act 
----------------------------+
04543  M01S00001.cpumt94 +++|*         6)     LEVEL 3 DEADSTART NOT IN PROGRESS.
04544  M00S02514.cpumtr  +++|*
04545  M00S02515.cpumtr  +++|*         IF ROLLOUT FLAG NOT SET-
04546  M00S02516.cpumtr  +++|*         1)     NO PP,S ASSIGNED.
04547  M00S02517.cpumtr  +++|*         2)     EJT ENTRY INTERLOCK NOT SET.
04548  M00S02518.cpumtr  +++|*         3)     NO CPU ACTIVITY.
04549  M00S02519.cpumtr  +++|*         4)     NO PP IN RECALL.
04550  M00S02520.cpumtr  +++|*         5)     NO TAPE ACTIVITY.
04551  M00S02521.cpumtr  +++|*         6)     NO WAIT RESPONSE/LONG TERM CONNECTION SET. (IF ERROR
04552  M00S02522.cpumtr  +++|*                FLAG IS SET, OR *END* IS IN (RA+1) THIS CONDITION
04553  M00S02523.cpumtr  +++|*                DOES NOT INHIBIT ADVANCE.)
04554  M00S02524.cpumtr  +++|*         7)     EJT ORDINAL IN *TFSW* OF CONTROL POINT.
04555  M00S02525.cpumtr  +++|*         8)     STORAGE MOVE NOT PENDING FOR THIS CP.

Seq #  *Modification Id* Act 
----------------------------+
04556  M01S00002.cpumt94 +++|*         9)     LEVEL 3 DEADSTART NOT IN PROGRESS.
04557  M00S02526.cpumtr  +++|*
04558  M00S02527.cpumtr  +++|*         ENTRY  (B3) = EXIT ADDRESS.
04559  M00S02528.cpumtr  +++|*                (B7) = CP ADDRESS.
04560  M00S02529.cpumtr  +++|*
04561  M00S02530.cpumtr  +++|*         EXIT   NONE
04562  M00S02531.cpumtr  +++|*
04563  M00S02532.cpumtr  +++|*         USES   X - 1, 2, 3, 4, 6, 7.
04564  M00S02533.cpumtr  +++|*                B - 4.

Seq #  *Modification Id* Act 
----------------------------+
04565  M01S02534.273l780 ---|*                A - 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04566  M01S00107.273l780 +++|*                A - 1, 2, 4, 7.
04567  M00S02535.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
04568  M01S02536.271l716 ---|*         CALLS  APQ, RB3.

Seq #  *Modification Id* Act 
----------------------------+
04569  M01S00079.271l716 +++|*         CALLS  APQ, /PCP/APC, RB3.
04570  M00S02537.cpumtr  +++|
04571  M00S02538.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04572  M01S02539.273l780 ---| JAV      ZR     B7,RB3      IF CONTROL POINT ZERO

Seq #  *Modification Id* Act 
----------------------------+
04573  M01S00108.273l780 +++| JAV      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04574  M01S00003.cpumt94 +++|          SA2    DSSL        CHECK FOR DEADSTART IN PROGRESS
04575  M00S02540.cpumtr  +++|          SA1    B7+STSW

Seq #  *Modification Id* Act 
----------------------------+
04576  M01S00004.cpumt94 +++|          MX6    -3
04577  M01S00005.cpumt94 +++|          BX6    -X6*X2
04578  M01S00006.cpumt94 +++|          SX6    X6-7
04579  M01S00007.cpumt94 +++|          ZR     X6,RB3      IF A LEVEL 3 DEADSTART IN PROGRESS
04580  M00S02541.cpumtr  +++|          SX6    7377B
04581  M00S02542.cpumtr  +++|          LX6    -12
04582  M00S02543.cpumtr  +++|          BX3    X6*X1
04583  M00S02544.cpumtr  +++|          MX6    12
04584  M00S02545.cpumtr  +++|          NZ     X3,RB3      IF ACTIVITY REMAINS
04585  M00S02546.cpumtr  +++|          SA2    SMRL

Seq #  *Modification Id* Act 
----------------------------+
04586  M01S02547.271l716 ---|          SX3    B7
04587  M01S02548.271l716 ---|          MX4    -12
04588  M01S02549.271l716 ---|          BX3    X2-X3
04589  M01S02550.271l716 ---|          BX4    -X4*X3
04590  M01S02551.271l716 ---|          ZR     X4,RB3      IF STORAGE MOVE PENDING FOR THIS CP

Seq #  *Modification Id* Act 
----------------------------+
04591  M01S00080.271l716 +++|          MX4    -12
04592  M01S00081.271l716 +++|          BX2    -X4*X2
04593  M01S00082.271l716 +++|          LX2    7           CONVERT CP NUMBER TO CPA ADDRESS
04594  M01S00083.271l716 +++|          SB4    X2
04595  M01S00084.271l716 +++|          EQ     B4,B7,RB3   IF MOVE PENDING FOR THIS CP
04596  M00S02552.cpumtr  +++|          SX2    7400B
04597  M00S02553.cpumtr  +++|          LX6    12+11
04598  M00S02554.cpumtr  +++|          BX3    X2*X1
04599  M00S02555.cpumtr  +++|          LX1    59-24
04600  M00S02556.cpumtr  +++|          LX2    -4+35       POSITION TO RECALL COUNT
04601  M00S02557.cpumtr  +++|          NG     X1,JAV1     IF ROLLOUT SET
04602  M00S02558.cpumtr  +++|          BX4    X6*X1
04603  M00S02559.cpumtr  +++|          BX3    X1*X2       EXTRACT RECALL COUNT
04604  M00S02560.cpumtr  +++|          NZ     X4,JAV1     IF ERROR FLAG
04605  M00S02561.cpumtr  +++|          SA4    B7+SSCW

Seq #  *Modification Id* Act 
----------------------------+
04606  M01S02562.v22l602 ---|          MX6    12
04607  M01S02563.v22l602 ---|          BX4    -X6*X4
04608  M00S02564.cpumtr  +++|          ZR     X4,JAV1     IF NO SUBSYSTEM CONNECTIONS
04609  M00S02565.cpumtr  +++|          SA2    B7+FLSW     READ RA/FL
04610  M00S02566.cpumtr  +++|          MX6    -12
04611  M00S02567.cpumtr  +++|          BX4    -X6*X2
04612  M00S02568.cpumtr  +++|          ZR     X4,RB3      IF NO FIELD LENGTH
04613  M00S02569.cpumtr  +++|          LX2    -12
04614  M00S02570.cpumtr  +++|          MX6    -RMSK
04615  M00S02571.cpumtr  +++|          BX2    -X6*X2      EXTRACT RA

Seq #  *Modification Id* Act 
----------------------------+
04616  M01S02572.271l716 ---|          SX6    B1

Seq #  *Modification Id* Act 
----------------------------+
04617  M02S00085.273l780 ---|          SX6    B1+

Seq #  *Modification Id* Act 
----------------------------+
04618  M01S00109.273l780 +++|          SX6    B1
04619  M00S02573.cpumtr  +++|          LX2    6
04620  M00S02574.cpumtr  +++|          IX2    X2+X6
04621  M00S02575.cpumtr  +++|          ERX2   X2          READ (RA+1)

Seq #  *Modification Id* Act 
----------------------------+
04622  M02S00086.273l780 ---|          NO
04623  M00S02576.cpumtr  +++|          LX2    18
04624  M00S02577.cpumtr  +++|          SX2    X2-3REND
04625  M00S02578.cpumtr  +++|          NZ     X2,RB3      IF NOT END IN RA+1
04626  M00S02579.cpumtr  +++| JAV1     NZ     X3,RB3      IF ACTIVITY REMAINS

Seq #  *Modification Id* Act 
----------------------------+
04627  M01S02580.271l716 ---|          SA1    B7+TFSW     GET EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
04628  M01S00087.271l716 +++|          SA4    B7+TFSW     GET EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
04629  M01S02581.273l780 ---|          SA2    B7+JCIW     CHECK SSID
04630  M00S02582.cpumtr  +++|          MX6    -12

Seq #  *Modification Id* Act 
----------------------------+
04631  M01S02583.273l780 ---|          LX2    0-24
04632  M01S02584.273l780 ---|          BX2    -X6*X2
04633  M01S02585.273l780 ---|          R=     X3,QCSI
04634  M01S02586.273l780 ---|          BX2    X2-X3

Seq #  *Modification Id* Act 
----------------------------+
04635  M01S02587.271l716 ---|          LX1    12
04636  M01S02588.271l716 ---|          ZR     X2,RB3      IF ADVANCE INHIBITED

Seq #  *Modification Id* Act 
----------------------------+
04637  M02S02589.271l716 ---|          SX2    EJTE

Seq #  *Modification Id* Act 
----------------------------+
04638  M01S02590.271l716 ---|          BX1    -X6*X1

Seq #  *Modification Id* Act 
----------------------------+
04639  M02S00006.271l716 ---|          CX2    X1,EJT      CONVERT EJT ORDINAL TO OFFSET

Seq #  *Modification Id* Act 
----------------------------+
04640  M01S02591.271l716 ---|          ZR     X1,RB3      IF NO JOB AT CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
04641  M02S02592.271l716 ---|          IX1    X1*X2
04642  M02S02593.271l716 ---|          TA1    X1+JSNE,EJT GET EJT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04643  M02S00007.271l716 ---|          TA1    X2+JSNE,EJT GET EJT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04644  M01S02594.271l716 ---|          SX7    101B        JOB ADVANCE AND INTERLOCK MASK
04645  M01S02595.271l716 ---|          BX6    X7*X1
04646  M01S02596.271l716 ---|          NZ     X6,RB3      IF JOB ADVANCE OR INTERLOCK SET
04647  M01S02597.271l716 ---|          BX7    X1+X7       SET JOB INTERLOCK AND JOB ADVANCE
04648  M01S02598.271l716 ---|          R=     B4,LA1AJ    SET *1AJ* CALL
04649  M01S02599.271l716 ---|          SX6    3R1AJ
04650  M01S02600.271l716 ---|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
04651  M01S00088.271l716 +++|          LX4    -48

Seq #  *Modification Id* Act 
----------------------------+
04652  M02S00089.273l780 ---|          ZR     X2,RB3      IF ADVANCE IS INHIBITED

Seq #  *Modification Id* Act 
----------------------------+
04653  M01S00090.271l716 +++|          BX2    -X6*X4      EJT ORDINAL
04654  M01S00091.271l716 +++|          CX4    X2,EJT      CONVERT EJT ORDINAL TO OFFSET
04655  M01S00092.271l716 +++|          ZR     X2,RB3      IF NO JOB AT CP
04656  M01S00093.271l716 +++|          TA4    X4+JSNE,EJT
04657  M01S00094.271l716 +++|          SX7    101B        JOB ADVANCE AND INTERLOCK MASK
04658  M01S00095.271l716 +++|          BX6    X7*X4
04659  M01S00096.271l716 +++|          BX7    X4+X7       SET JOB ADVANCE AND INTERLOCK
04660  M01S00097.271l716 +++|          NZ     X6,RB3      IF JOB ADVANCE OR INTERLOCK ALREADY SET
04661  M01S00098.271l716 +++|          SA7    A4
04662  M01S00099.271l716 +++|          LX1    59-31-59+24
04663  M01S00100.271l716 +++| JAVA     TNG    X1,(/PCP/APC,PCP,/MONITOR/JAV2)  IF PSEUDO-ROLL OK
04664  M01S00101.271l716 +++|*         EQ     /TRACE/TRP13  (DURING DEAD JOB TRAP EXECUTION)
04665  M01S00102.271l716 +++| JAV2     SX6    3R1AJ
04666  M01S00103.271l716 +++|          R=     B4,LA1AJ    SET *1AJ* INDEX
04667  M00S02601.cpumtr  +++|          LX6    42
04668  M00S02602.cpumtr  +++|          EQ     APQ         ASSIGN *1AJ*
04669  M00S02603.cpumtr  +++| PCQ      SPACE  4,10
04670  M00S02604.cpumtr  +++|**        PPQ - PROCESS PP REQUEST QUEUE.
04671  M00S02605.cpumtr  +++|*
04672  M00S02606.cpumtr  +++|*         ENTRY  NONE.
04673  M00S02607.cpumtr  +++|*
04674  M00S02608.cpumtr  +++|*         EXIT   TO MTRX.
04675  M00S02609.cpumtr  +++|*
04676  M00S02610.cpumtr  +++|*         CALLS  APQ.
04677  M00S02611.cpumtr  +++|
04678  M00S02612.cpumtr  +++|
04679  M00S02613.cpumtr  +++| PPQ      SA1    PQ+TAQR     SET START OF QUEUE

Seq #  *Modification Id* Act 
----------------------------+
04680  M01S00004.cpum108 +++|          SA2    SCRL        CHECK EMERGENCY STEP
04681  M00S02614.cpumtr  +++|          AX1    18
04682  M00S02615.cpumtr  +++|          SX0    X1

Seq #  *Modification Id* Act 
----------------------------+
04683  M01S00005.cpum108 +++|          LX2    59-56
04684  M00S02616.cpumtr  +++|          SB3    PPQ2        *APQ* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04685  M01S00006.cpum108 +++|          NG     X2,MTRX     IF EMERGENCY STEP SET
04686  M00S02617.cpumtr  +++| PPQ1     SA1    X0+         FIND NEXT ENTRY IN QUEUE

Seq #  *Modification Id* Act 
----------------------------+
04687  M01S02618.ns2210  ---|          SA2    NP

Seq #  *Modification Id* Act 
----------------------------+
04688  M01S00005.cpumt61 +++|          SX1    X1

Seq #  *Modification Id* Act 
----------------------------+
04689  M01S00029.ns2210  +++|          SA2    PPAL
04690  M00S02619.cpumtr  +++|          ZR     X1,MTRX     IF NO PP REQUEST
04691  M00S02620.cpumtr  +++|          SX0    X0
04692  M00S02621.cpumtr  +++|          LX0    36
04693  M00S02622.cpumtr  +++|          BX0    X0+X1

Seq #  *Modification Id* Act 
----------------------------+
04694  M01S02623.251l664 ---|          ZR     X2,MTRX     IF NO PP AVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
04695  M01S00031.251l664 +++|          MX4    20
04696  M01S00032.251l664 +++|          LX4    -12
04697  M01S00033.251l664 +++|          BX2    X4*X2
04698  M01S00034.251l664 +++|          ZR     X2,MTRX     IF NO PP AVAILABLE
04699  M00S02624.cpumtr  +++|          SA4    X1+REPW-RCCW  GET PARAMETER WORD
04700  M00S02625.cpumtr  +++|          MX7    -12+7       CONTROL POINT AREA ADDRESS MASK
04701  M00S02626.cpumtr  +++|          BX6    X4
04702  M00S02627.cpumtr  +++|          SA6    APQA
04703  M00S02628.cpumtr  +++|          SA4    X1+RECW-RCCW  READ PP REQUEST
04704  M00S02629.cpumtr  +++|          LX7    7
04705  M00S02630.cpumtr  +++|          BX6    X4

Seq #  *Modification Id* Act 
----------------------------+
04706  M01S02631.ns2332b ---|          MX4    5
04707  M00S02632.cpumtr  +++|          BX7    -X7*X1
04708  M00S02633.cpumtr  +++|          SB4    -B3         SELECT RETURN IF PP UNASSIGNABLE
04709  M00S02634.cpumtr  +++|          SB7    X7+
04710  M00S02635.cpumtr  +++|          BX1    X1-X1
04711  M00S02636.cpumtr  +++|          EQ     APQ1        ASSIGN PP
04712  M00S02637.cpumtr  +++|
04713  M00S02638.cpumtr  +++| PPQ2     SA2    X0          CHECK FOR PRIORITY PP REQUEST

Seq #  *Modification Id* Act 
----------------------------+
04714  M01S00006.cpumt61 +++|          BX6    X1
04715  M00S02639.cpumtr  +++|          BX3    X2
04716  M00S02640.cpumtr  +++|          MX7    -18
04717  M00S02641.cpumtr  +++|          AX3    18
04718  M00S02642.cpumtr  +++|          BX3    -X7*X3

Seq #  *Modification Id* Act 
----------------------------+
04719  M01S00007.cpumt61 +++|          NG     X2,PPQ2.1   IF A NO ROLL REQUEST
04720  M00S02643.cpumtr  +++|          ZR     X3,PPQ3     IF NOT PRIORITY PP REQUEST
04721  M00S02644.cpumtr  +++|          ZR     X1,PPQ4     IF PP NOT ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
04722  M01S02645.cpumt61 ---|          BX6    X1
04723  M00S02646.cpumtr  +++|          LX6    36          RETURN ASSIGNMENT ADDRESS
04724  M00S02647.cpumtr  +++|          SA6    X3+

Seq #  *Modification Id* Act 
----------------------------+
04725  M01S02648.cpumt61 ---|          SX3    -400B       SET DECREMENT FOR INHIBIT ROLLOUT COUNT

Seq #  *Modification Id* Act 
----------------------------+
04726  M01S00008.cpumt61 +++| PPQ2.1   SX3    -400B       SET DECREMENT FOR INHIBIT ROLLOUT COUNT
04727  M00S02649.cpumtr  +++| PPQ3     ZR     X1,PPQ1     IF NO PP AVAILABLE
04728  M00S02650.cpumtr  +++|          AX0    36
04729  M00S02651.cpumtr  +++|          SA1    X0          DELETE ENTRY FROM QUEUE
04730  M00S02652.cpumtr  +++|          BX6    -X7*X2
04731  M00S02653.cpumtr  +++|          BX1    X7*X1
04732  M00S02654.cpumtr  +++|          BX6    X1+X6
04733  M00S02655.cpumtr  +++|          SA6    A1
04734  M00S02656.cpumtr  +++|          MX4    -4
04735  M00S02657.cpumtr  +++|          BX6    X6-X6
04736  M00S02658.cpumtr  +++|          SA1    B7+STSW     ADD RECALL SLOT TO FREE LIST
04737  M00S02659.cpumtr  +++|          SX3    X3-20B-RCCW+1
04738  M00S02660.cpumtr  +++|          SA6    A2+RECW-RCCW
04739  M00S02661.cpumtr  +++|          SA6    A2+REPW-RCCW
04740  M00S02662.cpumtr  +++|          BX7    -X4*X1
04741  M00S02663.cpumtr  +++|          BX1    X4*X1
04742  M00S02664.cpumtr  +++|          SX4    A2-B7       COMPUTE RECALL INDEX
04743  M00S02665.cpumtr  +++|          SA7    A2
04744  M00S02666.cpumtr  +++|          IX4    X4+X3
04745  M00S02667.cpumtr  +++|          IX7    X4+X1       SET NEW FREE ENTRY AND RECALL COUNT
04746  M00S02668.cpumtr  +++|          SA7    A1+
04747  M00S02669.cpumtr  +++|          EQ     PPQ1        PROCESS NEXT QUEUE ENTRY
04748  M00S02670.cpumtr  +++|
04749  M00S02671.cpumtr  +++| PPQ4     BX6    X6-X6
04750  M00S02672.cpumtr  +++|          SA6    X3          RETURN RESPONSE TO WAITING PP
04751  M00S02673.cpumtr  +++|          SX1    B1+
04752  M00S02674.cpumtr  +++|          SX3    -400B       SET DECREMENT FOR INHIBIT ROLLOUT COUNT
04753  M00S02675.cpumtr  +++|          EQ     PPQ3        DELETE FROM QUEUE
04754  M00S02676.cpumtr  +++| RB3      SPACE  4,10
04755  M00S02677.cpumtr  +++|**        RB3 - RETURN TO ADDRESS IN (B3).
04756  M00S02678.cpumtr  +++|*
04757  M00S02679.cpumtr  +++|*         ENTRY  (B3) = EXIT ADDRESS.
04758  M00S02680.cpumtr  +++|
04759  M00S02681.cpumtr  +++|
04760  M00S02682.cpumtr  +++| RB3      JP     B3          RETURN
04761  M00S02683.cpumtr  +++| RB4      SPACE  4,10
04762  M00S02684.cpumtr  +++|**        RB4 - RETURN TO ADDRESS IN (B4).
04763  M00S02685.cpumtr  +++|*
04764  M00S02686.cpumtr  +++|*         ENTRY  (B4) = EXIT ADDRESS.
04765  M00S02687.cpumtr  +++|
04766  M00S02688.cpumtr  +++|
04767  M00S02689.cpumtr  +++| RB4      JP     B4          RETURN

Seq #  *Modification Id* Act 
----------------------------+
04768  M01S00001.283l840 +++| RB5      SPACE  4,10
04769  M01S00002.283l840 +++|**        RB5 - RETURN TO ADDRESS IN (B5).
04770  M01S00003.283l840 +++|*
04771  M01S00004.283l840 +++|*         ENTRY  (B5) = EXIT ADDRESS.
04772  M01S00005.283l840 +++|
04773  M01S00006.283l840 +++|
04774  M01S00007.283l840 +++| RB5      JP     B5          RETURN
04775  M00S02690.cpumtr  +++| RB6      SPACE  4,10
04776  M00S02691.cpumtr  +++|**        RB6 - RETURN TO ADDRESS IN (B6).
04777  M00S02692.cpumtr  +++|*
04778  M00S02693.cpumtr  +++|*         ENTRY  (B6) = EXIT ADDRESS.
04779  M00S02694.cpumtr  +++|
04780  M00S02695.cpumtr  +++|
04781  M00S02696.cpumtr  +++| RB6      JP     B6          RETURN

Seq #  *Modification Id* Act 
----------------------------+
04782  M01S02697.271l750 ---| RCC      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04783  M01S00652.271l750 +++| RCC      SPACE  4,20
04784  M00S02698.cpumtr  +++|**        RCC - RECALL CPU.

Seq #  *Modification Id* Act 
----------------------------+
04785  M01S02699.271l750 ---|*         THIS ROUTINE MAKES THE REQUESTED CONTROL POINT THE NEXT
04786  M01S02700.271l750 ---|*         CANDIDATE FOR THE CPU WITHIN PRIORITY CONSTRAINTS.
04787  M01S02701.271l750 ---|*         IF THE REQUESTED CONTROL POINT SATISFIES THE REQUIREMENTS
04788  M01S02702.271l750 ---|*         TO GAIN A CPU IMMEDIATELY THEN A CPU SWITCH FLAG WILL
04789  M01S02703.271l750 ---|*         BE SET IN *CSWL*.  THE SWITCH IS THEN NOTED DURING AN
04790  M01S02704.271l750 ---|*         EXIT FROM MONITOR MODE OR BY *MTR*.
04791  M00S02705.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
04792  M01S02706.271l750 ---|*         ENTRY  (B3) = EXIT ADDRESS IF ENTERED AT *RCC0*.
04793  M01S02707.271l750 ---|*                (B6) = EXCHANGE PACKAGE ADDRESS IF ENTERED AT *RCC0*.
04794  M01S02708.271l750 ---|*                (X2) = 700...0 IF ENTERED AT *RCC0*
04795  M01S02709.271l750 ---|*                (B7) = CONTROL POINT.

Seq #  *Modification Id* Act 
----------------------------+
04796  M01S00653.271l750 +++|*         THIS ROUTINE MAKES THE REQUESTED JOB OR EXCHANGE PACKAGE A
04797  M01S00654.271l750 +++|*         CANDIDATE FOR THE CPU.  A CPU SWITCH REQUEST WILL BE ENTERED
04798  M01S00655.271l750 +++|*         IN *CSWL* FOR THE CURRENTLY EXECUTING OR THE ALTERNATE CPU IF
04799  M01S00656.271l750 +++|*         THE JOB IN THAT CPU CAN BE IMMEDIATELY PREEMPTED.  A SWITCH
04800  M01S00657.271l750 +++|*         REQUEST FOR THE CURRENT CPU WILL BE PROCESSED DIRECTLY BY
04801  M01S00658.271l750 +++|*         *CPUMTR* ON EXIT FROM MONITOR MODE.  A SWITCH REQUEST FOR THE
04802  M01S00659.271l750 +++|*         ALTERNATE CPU WILL BE DETECTED AND PROCESSED THE NEXT TIME
04803  M01S00660.271l750 +++|*         THE ALTERNATE CPU EXITS FROM MONITOR MODE OR WILL BE
04804  M01S00661.271l750 +++|*         INITIATED BY *MTR*.
04805  M00S02710.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
04806  M01S00662.271l750 +++|*         ENTRY  (B3) = EXIT ADDRESS.
04807  M01S00663.271l750 +++|*                (B6) = EXCHANGE PACKAGE ADDRESS.
04808  M01S00664.271l750 +++|*
04809  M00S02711.cpumtr  +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
04810  M01S02712.271l750 ---|*                B - 4, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
04811  M01S00665.271l750 +++|*                B - 4, 5.
04812  M00S02713.cpumtr  +++|*                A - 1, 2, 3, 4, 6, 7.
04813  M00S02714.cpumtr  +++|
04814  M00S02715.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04815  M01S02716.271l750 ---| RCC      SB3    MTRX        SET EXIT ADDRESS
04816  M01S02717.271l750 ---|          SB6    B7          SET EXCHANGE PACKAGE ADDRESS TO CP

Seq #  *Modification Id* Act 
----------------------------+
04817  M01S00666.271l750 +++| RCC      BSS    0           ENTRY
04818  M01S00667.271l750 +++|          SA1    B6+STSW     GET CPU STATUS
04819  M01S00668.271l750 +++|          MX4    1           BUILD *W* STATUS
04820  M00S02718.cpumtr  +++|          MX2    -57

Seq #  *Modification Id* Act 
----------------------------+
04821  M01S02719.271l750 ---|

Seq #  *Modification Id* Act 
----------------------------+
04822  M02S02720.271l750 ---|*         ENTER HERE WITH B3, B6, AND X7 SET.

Seq #  *Modification Id* Act 
----------------------------+
04823  M02S00001.271l750 ---|*         ENTER HERE WITH B3, B6, AND X2 SET.

Seq #  *Modification Id* Act 
----------------------------+
04824  M01S02721.271l750 ---|
04825  M01S02722.271l750 ---| RCC0     SA1    B6+STSW     CHECK PRESENT STATE OF CP

Seq #  *Modification Id* Act 
----------------------------+
04826  M02S00002.271l750 ---|          MX4    1           BUILD *W* STATUS
04827  M00S02723.cpumtr  +++|          BX6    -X2*X1      CLEAR OLD STATUS
04828  M00S02724.cpumtr  +++|          BX2    X2*X1       STATUS CODE
04829  M00S02725.cpumtr  +++|          LX1    59-24
04830  M00S02726.cpumtr  +++|          LX2    3

Seq #  *Modification Id* Act 
----------------------------+
04831  M01S02727.cpum183 ---|          MX4    1           BUILD *W* STATUS
04832  M00S02728.cpumtr  +++|          BX6    X6+X4

Seq #  *Modification Id* Act 
----------------------------+
04833  M01S02729.271l750 ---|          SB4    X2

Seq #  *Modification Id* Act 
----------------------------+
04834  M03S00005.271l750 ---|          SB5    10000B      FORCE RECALL PRIORITY INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
04835  M02S00104.271l750 ---|          SB5    200B        SET RECALL FLAG

Seq #  *Modification Id* Act 
----------------------------+
04836  M01S00669.271l750 +++|          SB4    X2+
04837  M00S02730.cpumtr  +++|          SB4    -B4         NEGATIVE STATUS CODE
04838  M00S02731.cpumtr  +++|
04839  M00S02732.cpumtr  +++|*         THE FOLLOWING IS A JUMP TABLE INDEXED BY CPU STATUS
04840  M00S02733.cpumtr  +++|*         IN REVERSE ORDER.
04841  M00S02734.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04842  M01S02735.271l750 ---| TRCC     NG     X1,RCC15    IF ROLLOUT SET
04843  M01S02736.271l750 ---|          JP     TRCC+7+B4   JUMP TO PROCESSOR, LOOP FOR STATUS = 7

Seq #  *Modification Id* Act 
----------------------------+
04844  M01S00670.271l750 +++| RCCA     NG     X1,RCC15    IF ROLLOUT SET
04845  M01S00671.271l750 +++|          JP     RCCA+7+B4   JUMP TO PROCESSOR, LOOP FOR STATUS = 7
04846  M00S02737.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04847  M01S02738.271l750 ---|+         SA6    A1          6 = *I* STATUS, AUTO RECALL

Seq #  *Modification Id* Act 
----------------------------+
04848  M03S00003.271l750 ---|          BX4    X4-X4       NO RECALL PRIORITY INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
04849  M03S00006.271l750 ---|          SB5    B0          USE CURRENT RECALL PRIORITY INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
04850  M01S02739.271l750 ---|          EQ     RCC4        ADD ENTRY TO WQ

Seq #  *Modification Id* Act 
----------------------------+
04851  M01S00672.271l750 +++|+         SA6    A1+         6 = *I* STATUS, AUTO RECALL
04852  M01S00673.271l750 +++|          EQ     RCC7        ADD ENTRY TO WQ
04853  M00S02740.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04854  M01S02741.271l750 ---|+         SX1    RQRL        5 = *X* STATUS, CPU RECALL
04855  M01S02742.271l750 ---|          EQ     RCC2        DELETE ENTRY FROM *RQ* AND ADD TO *WQ*

Seq #  *Modification Id* Act 
----------------------------+
04856  M01S00674.271l750 +++|+         SA3    B6+CRCW     5 = *X* STATUS, CPU RECALL
04857  M01S00675.271l750 +++|          EQ     RCC4        DELETE ENTRY FROM *RQ* AND ADD TO *WQ*
04858  M00S02743.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04859  M01S02744.271l750 ---|+         SX1    WQRL        4 = *W* STATUS, WAITING FOR CPU
04860  M01S02745.271l750 ---|          EQ     RCC1        DELETE FROM *WQ* AND REINSERT

Seq #  *Modification Id* Act 
----------------------------+
04861  M01S00676.271l750 +++|+         SA3    B6+CWQW     4 = *W* STATUS, WAITING FOR CPU
04862  M01S00677.271l750 +++|          EQ     RCC3        DELETE FROM *WQ* AND REINSERT
04863  M00S02746.cpumtr  +++|
04864  M00S02747.cpumtr  +++|+         EQ     *           3 = ILLEGAL
04865  M00S02748.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04866  M01S02749.271l750 ---|+         JP     B3          2 = *B* STATUS, CPU 1 ACTIVE ON JOB

Seq #  *Modification Id* Act 
----------------------------+
04867  M01S00678.271l750 +++|+         SX1    B1          2 = *B* STATUS, CPU 1 ACTIVE ON JOB
04868  M01S00679.271l750 +++|          SX7    B1
04869  M01S00680.271l750 +++|          EQ     RCC2        SET RECALL FLAG
04870  M00S02750.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04871  M01S02751.271l750 ---|+         JP     B3          1 = *A* STATUS, CPU 0 ACTIVE ON JOB

Seq #  *Modification Id* Act 
----------------------------+
04872  M01S00681.271l750 +++|+         SX1    B0          1 = *A* STATUS, CPU 0 ACTIVE ON JOB
04873  M01S00682.271l750 +++|          SX7    B1
04874  M01S00683.271l750 +++|          EQ     RCC2        SET RECALL FLAG
04875  M00S02752.cpumtr  +++|
04876  M00S02753.cpumtr  +++|+         LX1    12+24-59    0 = NULL STATUS, NO ACTIVITY
04877  M00S02754.cpumtr  +++|          AX1    48          EXTRACT ERROR FLAG
04878  M00S02755.cpumtr  +++|          NZ     X1,RB3      IF ERROR FLAG
04879  M00S02756.cpumtr  +++|          SA6    A1+         SET *W* STATUS

Seq #  *Modification Id* Act 
----------------------------+
04880  M01S02757.cpumt99 ---|          EQ     RCC4        ENTER CPU REQUEST QUEUE

Seq #  *Modification Id* Act 
----------------------------+
04881  M02S00004.cpum99a ---|          EQ     RCC3.2      ENTER IN CPU REQUEST QUEUE

Seq #  *Modification Id* Act 
----------------------------+
04882  M02S00007.271l750 ---|          EQ     RCC4        ENTER IN CPU REQUEST QUEUE

Seq #  *Modification Id* Act 
----------------------------+
04883  M01S00684.271l750 +++|          EQ     RCC7        ENTER IN CPU REQUEST QUEUE
04884  M00S02758.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04885  M01S00685.271l750 +++|*         SET RECALL FLAG ON ACTIVE JOB TO ENFORCE RECALL CPU SLICE.
04886  M01S00686.271l750 +++|
04887  M01S00687.271l750 +++| RCC2     SA3    B6+CWQW
04888  M01S00688.271l750 +++|          SA1    TSCL+X1
04889  M01S00689.271l750 +++|          SX6    12B
04890  M01S00690.271l750 +++|          LX6    45
04891  M01S00691.271l750 +++|          LX7    48-0
04892  M01S00692.271l750 +++|          BX6    X3+X6       SET RECALL AND DRIVER FLAGS IN *CWQW*
04893  M01S00693.271l750 +++|          BX7    X1+X7       SET RECALL FLAG IN *TSCL*
04894  M01S00694.271l750 +++|          SA6    A3          UPDATE *CWQW*
04895  M01S00695.271l750 +++|          SA7    A1          UPDATE *TSCL*
04896  M01S00696.271l750 +++|          JP     B3          RETURN
04897  M01S00697.271l750 +++|
04898  M00S02759.cpumtr  +++|*         DELETE ENTRY FROM *WQ*.
04899  M00S02760.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04900  M01S02761.271l750 ---| RCC1     SA3    B6+JCIW     READ LINK IN QUEUE

Seq #  *Modification Id* Act 
----------------------------+
04901  M01S00698.271l750 +++| RCC3     SX1    WQRL
04902  M00S02762.cpumtr  +++|          MX6    -18

Seq #  *Modification Id* Act 
----------------------------+
04903  M01S02763.271l750 ---|          SX7    A3

Seq #  *Modification Id* Act 
----------------------------+
04904  M02S00105.271l750 ---|          SB5    B0          CLEAR RECALL FLAG

Seq #  *Modification Id* Act 
----------------------------+
04905  M01S02764.271l750 ---|          EQ     RCC3        DELETE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04906  M01S00699.271l750 +++|          SX7    A3          SET *WQ* ENTRY ADDRESS
04907  M01S00700.271l750 +++|          EQ     RCC5        DELETE QUEUE ENTRY
04908  M00S02765.cpumtr  +++|
04909  M00S02766.cpumtr  +++|*         DELETE ENTRY FROM *RQ*.
04910  M00S02767.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04911  M01S02768.271l750 ---| RCC2     SA6    A1          SET NEW CPU STATUS

Seq #  *Modification Id* Act 
----------------------------+
04912  M01S00701.271l750 +++| RCC4     SX1    RQRL        5 = *X* STATUS, CPU RECALL
04913  M01S00702.271l750 +++|          SA6    A1          SET NEW CPU STATUS
04914  M00S02769.cpumtr  +++|          BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
04915  M01S02770.271l750 ---|          SA3    B6+CRCW     READ LINK IN QUEUE
04916  M00S02771.cpumtr  +++|          MX6    -12

Seq #  *Modification Id* Act 
----------------------------+
04917  M01S02772.cpum99a ---|          SA7    A3          CLEAR RECALL ACCUMALATOR

Seq #  *Modification Id* Act 
----------------------------+
04918  M02S00008.271l750 ---|          SA7    A3          CLEAR RECALL ACCUMULATOR

Seq #  *Modification Id* Act 
----------------------------+
04919  M01S02773.271l750 ---|          SX7    A3+

Seq #  *Modification Id* Act 
----------------------------+
04920  M01S00703.271l750 +++|          SA7    A3          CLEAR *RQ* PARAMETERS
04921  M01S00704.271l750 +++|          SX7    A3+         SET *RQ* ENTRY ADDRESS
04922  M00S02774.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04923  M01S02775.271l750 ---|*         DELETE ENTRY FROM PRESENT QUEUE.
04924  M01S02776.271l750 ---|*         LOOP REPLICATED FOR PERFORMANCE.

Seq #  *Modification Id* Act 
----------------------------+
04925  M01S00705.271l750 +++|*         DELETE ENTRY FROM *RQ* OR *WQ*.
04926  M01S00706.271l750 +++|*         SEARCH LOOP REPLICATED FOR PERFORMANCE.
04927  M00S02777.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04928  M01S02778.271l750 ---| RCC3     SA2    X1

Seq #  *Modification Id* Act 
----------------------------+
04929  M01S00707.271l750 +++| RCC5     SA2    X1
04930  M00S02779.cpumtr  +++|          BX1    -X6*X2
04931  M00S02780.cpumtr  +++|          BX0    X7-X1
04932  M00S02781.cpumtr  +++|          SA4    X1

Seq #  *Modification Id* Act 
----------------------------+
04933  M01S02782.271l750 ---|          ZR     X0,RCC3.1   IF ENTRY FOUND

Seq #  *Modification Id* Act 
----------------------------+
04934  M01S00708.271l750 +++|          ZR     X0,RCC6     IF ENTRY FOUND
04935  M00S02783.cpumtr  +++|          BX1    -X6*X4
04936  M00S02784.cpumtr  +++|          BX0    X7-X1

Seq #  *Modification Id* Act 
----------------------------+
04937  M01S02785.271l750 ---|          NZ     X0,RCC3     IF ENTRY NOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
04938  M01S00709.271l750 +++|          NZ     X0,RCC5     IF ENTRY NOT FOUND
04939  M00S02786.cpumtr  +++|          SA2    A4+

Seq #  *Modification Id* Act 
----------------------------+
04940  M01S02787.271l750 ---| RCC3.1   BX2    X6*X2       DELETE LINK TO ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04941  M01S00710.271l750 +++| RCC6     BX2    X6*X2       DELETE LINK TO ENTRY
04942  M00S02788.cpumtr  +++|          BX3    -X6*X3      EXTRACT LINK FROM ENTRY
04943  M00S02789.cpumtr  +++|          BX7    X2+X3       SET LINK TO BYPASS ENTRY
04944  M00S02790.cpumtr  +++|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
04945  M02S00005.cpum99a ---| RCC3.2   SX4    10000B      SET RECALL PRIORITY INCREMENT
04946  M00S02791.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04947  M01S02792.271l750 ---|*         INSERT ENTRY INTO CPU REQUEST QUEUE.

Seq #  *Modification Id* Act 
----------------------------+
04948  M01S00711.271l750 +++|*         SET RECALL FLAG AND CHECK CPU SLICE RESTART REQUIRED.
04949  M00S02793.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
04950  M01S02794.271l750 ---| RCC4     SA3    A1+B1       BUILD QUEUE ENTRY
04951  M01S02795.271l750 ---|          ERRNZ  JCIW-STSW-1

Seq #  *Modification Id* Act 
----------------------------+
04952  M02S02796.271l750 ---|          SX4    10004B      SET RECALL AND INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
04953  M03S00006.271l750 ---|          SX4    X4+4        SET *JCIW* INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
04954  M03S00009.271l750 ---|          SX4    B5+4        SET *JCIW* INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
04955  M02S02797.271l750 ---|          SX7    B6          BUILD *CRCW*
04956  M02S02798.271l750 ---|          LX4    36
04957  M02S02799.271l750 ---|          SA2    WQRL        READ START OF QUEUE

Seq #  *Modification Id* Act 
----------------------------+
04958  M02S00106.271l750 ---|          SX6    B5          GET RECALL FLAG

Seq #  *Modification Id* Act 
----------------------------+
04959  M02S02800.271l750 ---|          BX3    X3+X4
04960  M02S02801.271l750 ---|          UX0,B4 X3          EXTRACT CPU PRIORITY
04961  M02S02802.271l750 ---|          SX4    B7
04962  M02S02803.271l750 ---|          LX4    24
04963  M02S02804.271l750 ---|          BX7    X4+X7
04964  M02S02805.271l750 ---|          SA1    A3+B1
04965  M02S02806.271l750 ---|          ERRNZ  CRCW-JCIW-1
04966  M02S02807.271l750 ---|          MX4    12
04967  M02S02808.271l750 ---|          BX1    X4*X1
04968  M02S02809.271l750 ---|          MX6    42
04969  M02S02810.271l750 ---|          BX7    X1+X7
04970  M02S02811.271l750 ---|          SA7    A1          SET *CRCW* FOR *W* STATUS
04971  M02S02812.271l750 ---|          SX7    A3

Seq #  *Modification Id* Act 
----------------------------+
04972  M02S00107.271l750 ---|          SX4    4           INTERLOCK
04973  M02S00108.271l750 ---|          LX6    12
04974  M02S00109.271l750 ---|          UX3,B4 X3          EXTRACT CPU PRIORITY
04975  M02S00110.271l750 ---|          BX4    X4+X6       MERGE RECALL AND INTERLOCK
04976  M02S00111.271l750 ---|          SX7    B6          EXCHANGE PACKAGE ADDRESS
04977  M02S00112.271l750 ---|          LX4    36
04978  M02S00113.271l750 ---|          SX1    B4+1777B
04979  M02S00114.271l750 ---|          BX3    X3+X4
04980  M02S00115.271l750 ---|          MX0    -7
04981  M02S00116.271l750 ---|          SX4    B7+         CPA ADDRESS
04982  M02S00117.271l750 ---|          BX1    -X0*X1      CPU PRIORITY
04983  M02S00118.271l750 ---|          LX4    24
04984  M02S00119.271l750 ---|          BX6    X1          PLACE CPU PRIORITY IN *JCIW*
04985  M02S00120.271l750 ---|          SX0    B1+
04986  M02S00121.271l750 ---|          LX6    48
04987  M02S00122.271l750 ---|          BX7    X4+X7       MERGE XP AND CPA ADDRESSES
04988  M02S00123.271l750 ---|          BX3    X3+X6
04989  M02S00124.271l750 ---|          LX0    56-0
04990  M02S00125.271l750 ---|          SX4    X1-LFCS
04991  M02S00126.271l750 ---|          SX6    X1-LSCS-1

Seq #  *Modification Id* Act 
----------------------------+
04992  M01S00712.271l750 +++| RCC7     SA3    B6+CWQW     GET CPU SCHEDULING PARAMETERS
04993  M01S00713.271l750 +++|          SA4    B6+CSAW     GET SERVICE CYCLE AND ACCUMULATORS
04994  M01S00714.271l750 +++|          SX6    12B
04995  M01S00715.271l750 +++|          SX0    B1
04996  M01S00716.271l750 +++|          LX6    45
04997  M01S00717.271l750 +++|          LX0    26-0
04998  M01S00718.271l750 +++|          UX7,B4 X3          UNPACK CPU PRIORITY AND FLAGS
04999  M01S00719.271l750 +++|          SX1    B4
05000  M01S00720.271l750 +++|          BX3    X3+X0       SET *MTR* BYPASS FLAG
05001  M01S00721.271l750 +++|          AX1    3           CPU PRIORITY
05002  M01S00722.271l750 +++|          BX3    X3+X6       SET RECALL AND DRIVER FLAGS
05003  M01S00723.271l750 +++|          SA1    TPRC+X1     GET SERVICE CYCLE FOR PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
05004  M01S00127.271l716 +++|          SA2    WQRL

Seq #  *Modification Id* Act 
----------------------------+
05005  M02S00128.271l750 ---|          SX1    X1-MPRS
05006  M02S00129.271l750 ---|          SA7    A3+B1       STORE *CRCW*
05007  M02S00130.271l750 ---|          ERRNZ  CRCW-JCIW-1 CODE DEPENDS ON VALUE
05008  M02S00131.271l750 ---|          NG     X4,RCC4.1   IF PRIORITY .LT. *LFCS*
05009  M02S00132.271l750 ---|          BX3    X3+X0
05010  M02S00133.271l750 ---|          LX0    57-56
05011  M02S00134.271l750 ---|          NG     X6,RCC4.1   IF PRIORITY .LE. *LSCS*
05012  M02S00135.271l750 ---|          BX3    X3+X0
05013  M02S00136.271l750 ---|          LX0    55-57
05014  M02S00137.271l750 ---|          NG     X1,RCC4.1   IF PRIORITY .LT. *MPRS*
05015  M02S00138.271l750 ---|          BX3    X3+X0       SET RECALL FLAG
05016  M02S00139.271l750 ---| RCC4.1   MX6    42
05017  M02S00140.271l750 ---|          SX7    A3+
05018  M02S00141.271l750 ---|          UX0,B4 X3          RESET CPU PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
05019  M01S00724.271l750 +++|          LX0    47-26
05020  M01S00725.271l750 +++|          BX0    X0*X3       EXTENDED CPU SLICE INCOMPLETE FLAG
05021  M01S00726.271l750 +++|          MX7    6
05022  M01S00727.271l750 +++|          LX0    49-47
05023  M01S00728.271l750 +++|          BX4    X7*X4       CPU SERVICE CYCLE
05024  M01S00729.271l750 +++|          BX3    X3+X0       SET SLICE ACTIVE STATUS
05025  M01S00730.271l750 +++|          BX7    X7*X1       CURRENT SERVICE CYCLE
05026  M01S00731.271l750 +++|          BX1    X4-X7
05027  M01S00732.271l750 +++|          ZR     X1,RCC8     IF CPU SLICE IN CURRENT SERVICE CYCLE
05028  M00S02813.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
05029  M01S02814.271l750 ---|*         SEARCH FOR POSITION IN QUEUE.
05030  M01S02815.271l750 ---|*         CODE REPLICATED FOR PERFORMANCE.

Seq #  *Modification Id* Act 
----------------------------+
05031  M01S00733.271l750 +++|*         RESTART CPU SLICE IN CURRENT SERVICE CYCLE.
05032  M00S02816.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
05033  M01S02817.271l750 ---| RCC5     SA4    X2

Seq #  *Modification Id* Act 
----------------------------+
05034  M02S00001.271l750 ---|          SX1    X2+

Seq #  *Modification Id* Act 
----------------------------+
05035  M01S00734.271l750 +++|          LX6    1
05036  M01S00735.271l750 +++|          SA7    B6+CSAW     SET SERVICE CYCLE AND CLEAR ACCUMULATORS
05037  M01S00736.271l750 +++|          BX3    X3+X6       SET ACTIVE/INCOMPLETE SLICE FLAGS
05038  M01S00737.271l750 +++|
05039  M01S00738.271l750 +++|*         INSERT JOB IN *WQ* WITH RECALL FLAG.
05040  M01S00739.271l750 +++|*         SEARCH LOOP REPLICATED FOR PERFORMANCE.
05041  M01S00740.271l750 +++|
05042  M01S00741.271l750 +++| RCC8     MX6    42
05043  M01S00742.271l750 +++|          SX7    A3+         SET CURRENT JOB WAIT QUEUE ADDRESS
05044  M01S00743.271l750 +++|          UX0,B4 X3          GET CPU PRIORITY AND FLAGS
05045  M01S00744.271l750 +++| RCC9     SA4    X2
05046  M00S02818.cpumtr  +++|          UX0,B5 X4

Seq #  *Modification Id* Act 
----------------------------+
05047  M01S02819.cpum185 ---|          GT     B4,B5,RCC5.0  IF POSITION FOUND

Seq #  *Modification Id* Act 
----------------------------+
05048  M02S00002.271l750 ---|          ZR     X1,RCC5.1   IF END OF QUEUE
05049  M02S00003.271l750 ---|          GT     B4,B5,RCC5.1  IF POSITION FOUND

Seq #  *Modification Id* Act 
----------------------------+
05050  M01S00745.271l750 +++|          GT     B4,B5,RCC10 IF POSITION FOUND
05051  M00S02820.cpumtr  +++|          SA2    X4

Seq #  *Modification Id* Act 
----------------------------+
05052  M02S00004.271l750 ---|          SX1    X4+
05053  M00S02821.cpumtr  +++|          UX0,B5 X2

Seq #  *Modification Id* Act 
----------------------------+
05054  M01S02822.cpum185 ---|          LE     B4,B5,RCC5  IF POSITION NOT FOUND
05055  M01S02823.cpum185 ---|          BX1    X6*X4       CLEAR LINK

Seq #  *Modification Id* Act 
----------------------------+
05056  M02S00005.271l750 ---|          ZR     X1,RCC5.0   IF END OF QUEUE
05057  M02S00006.271l750 ---|          LE     B4,B5,RCC5  IF POSITION NOT FOUND
05058  M02S00007.271l750 ---| RCC5.0   BX1    X6*X4       CLEAR LINK

Seq #  *Modification Id* Act 
----------------------------+
05059  M01S00746.271l750 +++|          LE     B4,B5,RCC9  IF POSITION NOT FOUND
05060  M01S00747.271l750 +++|          BX1    X6*X4       CLEAR LINK
05061  M00S02824.cpumtr  +++|          BX7    X1+X7       MERGE NEW LINK

Seq #  *Modification Id* Act 
----------------------------+
05062  M01S02825.271l750 ---|          SX1    A2          SET LINK TO NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
05063  M01S00748.271l750 +++|          SX0    A2          SET LINK TO NEXT ENTRY
05064  M00S02826.cpumtr  +++|          SA7    A4

Seq #  *Modification Id* Act 
----------------------------+
05065  M01S02827.271l750 ---|          EQ     RCC5.2      UPDATE LINK

Seq #  *Modification Id* Act 
----------------------------+
05066  M01S00749.271l750 +++|          EQ     RCC11       UPDATE LINK
05067  M00S02828.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
05068  M01S02829.cpum185 ---| RCC5.0   BX1    X6*X2       CLEAR LINK

Seq #  *Modification Id* Act 
----------------------------+
05069  M02S00008.271l750 ---| RCC5.1   BX1    X6*X2       CLEAR LINK

Seq #  *Modification Id* Act 
----------------------------+
05070  M01S00750.271l750 +++| RCC10    BX1    X6*X2       CLEAR LINK
05071  M00S02830.cpumtr  +++|          BX7    X1+X7       MERGE NEW LINK

Seq #  *Modification Id* Act 
----------------------------+
05072  M01S02831.271l750 ---|          SX1    A4          SET LINK TO NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
05073  M01S00751.271l750 +++|          SX0    A4          SET LINK TO NEXT ENTRY
05074  M00S02832.cpumtr  +++|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
05075  M01S02833.271l750 ---| RCC5.2   BX3    X6*X3
05076  M01S02834.271l750 ---|          BX6    X3+X1
05077  M01S02835.271l750 ---|          SA6    A3+
05078  M00S02836.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
05079  M01S02837.271l716 ---|*         CHECK IF THE RECALLED JOB MEETS THE CPU SWITCH REQUIREMENTS.
05080  M01S02838.271l716 ---|*         IN ORDER TO SWITCH THE CPU TO THE NEW JOB IT MUST MEET
05081  M01S02839.271l716 ---|*         EITHER OF THE FOLLOWING REQUIREMENTS.
05082  M01S02840.271l716 ---|*         1)     THE NEW JOB HAS A GREATER PRIORITY THAN A CURRENT JOB.
05083  M01S02841.271l716 ---|*         2)     IF THE NEW JOB IS OF EQUAL PRIORITY TO A CURRENT JOB
05084  M01S02842.271l716 ---|*         IT CAN BE STARTED IF THE MINIMUM SLICE HAS EXPIRED FOR
05085  M01S02843.271l716 ---|*         THE CURRENT JOB.  IF THE MINIMUM SLICE HAS NOT EXPIRED THE
05086  M01S02844.271l716 ---|*         MAXIMUM SLICE WILL BE SET TO THE MINIMUM.
05087  M01S02845.271l716 ---|
05088  M01S02846.271l716 ---|          SA1    TSCL+A0     READ SLICE CONTROL FOR THIS CPU

Seq #  *Modification Id* Act 
----------------------------+
05089  M02S00142.271l750 ---|*         DETERMINE IF THE NEW JOB SHOULD RECEIVE THE CPU IMMEDIATELY.

Seq #  *Modification Id* Act 
----------------------------+
05090  M01S00752.271l750 +++|*         SET RECALLED JOB *WQ* LINK AND CHECK CPU SWITCH CRITERIA.
05091  M01S00753.271l750 +++|*         IF THERE IS A SWITCH REQUEST FOR THE CURRENT CPU ON A DUAL
05092  M01S00754.271l750 +++|*         CPU SYSTEM, THE OTHER CPU WILL NOT BE CHECKED BY *RCC* SINCE
05093  M01S00755.271l750 +++|*         *BNJ* WILL PERFORM THIS CHECK ON EXIT FROM MONITOR MODE.

Seq #  *Modification Id* Act 
----------------------------+
05094  M01S00143.271l716 +++|

Seq #  *Modification Id* Act 
----------------------------+
05095  M02S00144.271l750 ---|          SA1    TSCL+A0     GET ACTIVE JOB CPU PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
05096  M01S02847.271l750 ---|          SA4    ACPL+A0
05097  M01S02848.271l750 ---|          SA2    A3
05098  M01S02849.271l750 ---|          SA3    CPAL+A0     GET ACTIVE CP IN THIS CPU

Seq #  *Modification Id* Act 
----------------------------+
05099  M01S00756.271l750 +++| RCC11    SA4    CSWL+A0
05100  M01S00757.271l750 +++|          SA1    TSCL+A0
05101  M01S00758.271l750 +++|          SA2    RTCL
05102  M01S00759.271l750 +++|          BX3    X6*X3       CLEAR POSSIBLE OLD LINK
05103  M01S00760.271l750 +++|          BX3    X3+X0       MERGE NEW LINK
05104  M01S00761.271l750 +++|          NO
05105  M01S00762.271l750 +++|          NO
05106  M01S00763.271l750 +++|          NG     X4,RCC14    IF PENDING SWITCH REQUEST FOR THIS CPU
05107  M00S02850.cpumtr  +++|          MX7    -36

Seq #  *Modification Id* Act 
----------------------------+
05108  M01S02851.271l750 ---|          BX4    -X7*X4

Seq #  *Modification Id* Act 
----------------------------+
05109  M02S02852.271l750 ---|          ZR     X4,RCC5.1   IF SUBCP NOT ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
05110  M02S00009.271l750 ---|          ZR     X4,RCC5.3   IF SUBCP NOT ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
05111  M01S02853.271l750 ---|          AX3    24

Seq #  *Modification Id* Act 
----------------------------+
05112  M02S02854.271l750 ---| RCC5.1   SX0    X3

Seq #  *Modification Id* Act 
----------------------------+
05113  M03S00010.271l750 ---| RCC5.3   SX0    X3

Seq #  *Modification Id* Act 
----------------------------+
05114  M02S02855.271l750 ---|          UX4,B5 X1
05115  M02S02856.271l750 ---|          SA3    RTCL        CHECK FOR MINIMUM SLICE EXPIRED

Seq #  *Modification Id* Act 
----------------------------+
05116  M03S00010.271l750 ---|          SX1    B4          CLEAR THE RECALL PRIORITY BIT
05117  M03S00011.271l750 ---|          MX7    59
05118  M03S00012.271l750 ---|          BX1    X7*X1

Seq #  *Modification Id* Act 
----------------------------+
05119  M02S02857.271l750 ---|          MX7    -36

Seq #  *Modification Id* Act 
----------------------------+
05120  M03S02858.271l750 ---|          SB4    B4-B1       SUBTRACT RECALL PRIORITY BIT

Seq #  *Modification Id* Act 
----------------------------+
05121  M03S00013.271l750 ---|          SB4    X1+

Seq #  *Modification Id* Act 
----------------------------+
05122  M02S02859.271l750 ---|          BX3    -X7*X3
05123  M02S02860.271l750 ---|          IX3    X3-X4

Seq #  *Modification Id* Act 
----------------------------+
05124  M02S00145.271l750 ---| RCC5.3   SX0    X3+
05125  M02S00146.271l750 ---|          SX6    B4+1777B    NEW JOB CPU PRIORITY
05126  M02S00147.271l750 ---|          UX4,B5 X1          GET CURRENT JOB CPU PRIORITY
05127  M02S00148.271l750 ---|          AX6    8
05128  M02S00149.271l750 ---|          SX1    B5+1777B-IDCS
05129  M02S00150.271l750 ---|          ZR     X1,RCC8     IF CURRENT JOB IS IDLE PACKAGE
05130  M02S00151.271l750 ---|          ZR     X6,RCC14    IF NOT PREEMPTIVE PRIORITY LEVEL

Seq #  *Modification Id* Act 
----------------------------+
05131  M01S02861.271l750 ---| RCCA     GT     B4,B5,RCC8  IF NEW .GT. CURRENT JOB

Seq #  *Modification Id* Act 
----------------------------+
05132  M01S00764.271l750 +++|          UX0,B5 X1          GET THIS CPU ACTIVE JOB PRIORITY
05133  M01S00765.271l750 +++|          BX1    -X7*X1
05134  M01S00766.271l750 +++|          BX2    -X7*X2
05135  M01S00767.271l750 +++| RCCB     GT     B4,B5,RCC13 IF NEW JOB .GT. ACTIVE JOB
05136  M00S02862.cpumtr  +++|*         EQ     /DCP/RCC    (DUAL CPU MACHINE)

Seq #  *Modification Id* Act 
----------------------------+
05137  M01S02863.271l716 ---|          LT     B4,B5,RCC14  IF NEW .LT. CURRENT JOB
05138  M01S02864.271l716 ---| RCC6     PL     X3,RCC12    IF MINIMUM SLICE EXPIRED
05139  M01S02865.271l716 ---| RCC7     SA1    TSCL+A0     GET SLICE CONTROL FOR THIS CPU
05140  M01S02866.271l716 ---|          BX7    X1          SET MAXIMUM SLICE TO MINIMUM
05141  M01S02867.271l716 ---|          SA7    CSWL+A0     SET SWITCH REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05142  M01S02868.271l750 ---|          EQ     RCC14       RETURN

Seq #  *Modification Id* Act 
----------------------------+
05143  M01S00768.271l750 +++|          LT     B4,B5,RCC14 IF NEW JOB .LT. ACTIVE JOB
05144  M01S00769.271l750 +++| RCC12    IX6    X2-X1
05145  M01S00770.271l750 +++|          NG     X6,RCC14    IF RECALL SLICE NOT EXPIRED
05146  M00S02869.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
05147  M01S02870.271l750 ---|*         NEW JOB IS HIGHER PRIORITY, SWITCH CPU.

Seq #  *Modification Id* Act 
----------------------------+
05148  M01S00771.271l750 +++|*         WRITE *CWQW* AND REQUEST CPU SWITCH.
05149  M00S02871.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
05150  M01S02872.cpumt99 ---| RCC8     SA7    A0+CSWL     SET SWITCH REQUEST
05151  M01S02873.cpumt99 ---|          SA2    A7
05152  M01S02874.cpumt99 ---|          SX4    B0          CLEAR RECALL ACCUMULATOR
05153  M01S02875.cpumt99 ---|          NG     X3,RCC10    IF MINIMUM SLICE NOT EXCEEDED
05154  M01S02876.cpumt99 ---|          SA3    RTCL
05155  M01S02877.cpumt99 ---| RCC9     BX3    -X7*X3      REAL TIME CLOCK IN MILLISECONDS
05156  M01S02878.cpumt99 ---|          BX2    -X7*X2      MAXIMUM SLICE TIME
05157  M01S02879.cpumt99 ---|          IX4    X2-X3       TIME LEFT IN MAXIMUM SLICE
05158  M01S02880.cpumt99 ---|          MX7    -12
05159  M01S02881.cpumt99 ---|          NG     X4,RCC13    IF MAXIMUM SLICE EXCEEDED
05160  M01S02882.cpumt99 ---|          SA3    MSCL
05161  M01S02883.cpumt99 ---|          BX3    -X7*X3      MINIMUM SLICE TIME
05162  M01S02884.cpumt99 ---|          IX3    X4-X3
05163  M01S02885.cpumt99 ---|          NG     X3,RCC13    IF .LT. MINIMUM SLICE REMAINING
05164  M01S02886.cpumt99 ---| RCC10    SA1    X0+JCIW     SET RECALL FLAG
05165  M01S02887.cpumt99 ---|          SX6    B1+

Seq #  *Modification Id* Act 
----------------------------+
05166  M02S00007.271l716 ---| RCC8     SA2    A0+CSWL     DETERMINE SLICE TIME REMAINING
05167  M02S00008.271l716 ---|          SA3    RTCL
05168  M02S00009.271l716 ---| RCC9     SA7    A2          SET SWITCH REQUEST
05169  M02S00010.271l716 ---|          BX3    -X7*X3      EXTRACT REAL TIME
05170  M02S00011.271l716 ---|          BX2    -X7*X2      TIME OF SLICE EXPIRATION
05171  M02S00012.271l716 ---|          IX6    X2-X3       TIME LEFT IN SLICE

Seq #  *Modification Id* Act 
----------------------------+
05172  M02S00014.271l716 ---|          SA3    MSCL        GET MINIMUM SLICE TIME

Seq #  *Modification Id* Act 
----------------------------+
05173  M02S00013.271l716 ---|          BX4    X4-X4

Seq #  *Modification Id* Act 
----------------------------+
05174  M03S00014.271l716 ---|          NG     X6,RCC11    IF SLICE EXCEEDED

Seq #  *Modification Id* Act 
----------------------------+
05175  M02S00015.271l716 ---|          MX7    -12

Seq #  *Modification Id* Act 
----------------------------+
05176  M03S00016.271l716 ---|          SA3    MSCL        GET MINIMUM SLICE TIME

Seq #  *Modification Id* Act 
----------------------------+
05177  M02S00017.271l716 ---|          BX3    -X7*X3
05178  M02S00018.271l716 ---|          IX3    X6-X3
05179  M02S00019.271l716 ---|          NG     X3,RCC11    IF .LT. MINIMUM SLICE REMAINING
05180  M02S00020.271l716 ---|          SA1    X0+JCIW     SET RECALL FLAG
05181  M02S00021.271l716 ---|          BX4    X6          SLICE TIME FOR RESTART
05182  M02S00022.271l716 ---|          SX6    B1

Seq #  *Modification Id* Act 
----------------------------+
05183  M01S02888.271l716 ---|          LX6    48
05184  M01S02889.271l716 ---|          BX6    X6+X1
05185  M01S02890.271l716 ---|          SA6    A1+
05186  M01S02891.271l716 ---| RCC11    SA1    X0+CRCW     SET RECALL ACCUMULATOR
05187  M01S02892.271l716 ---|          MX7    -48
05188  M01S02893.271l716 ---|          LX4    -12
05189  M01S02894.271l716 ---|          BX6    -X7*X1

Seq #  *Modification Id* Act 
----------------------------+
05190  M02S00003.271l716 ---|          BX4    X7*X4

Seq #  *Modification Id* Act 
----------------------------+
05191  M01S02895.271l716 ---|          BX6    X4+X6

Seq #  *Modification Id* Act 
----------------------------+
05192  M02S02896.271l716 ---|          SA6    A1+

Seq #  *Modification Id* Act 
----------------------------+
05193  M02S00004.271l716 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
05194  M02S00152.271l750 ---| RCC8     SA7    CSWL+A0     SET SWITCH REQUEST

Seq #  *Modification Id* Act 
----------------------------+
05195  M01S00772.271l750 +++| RCC13    SX1    A3
05196  M01S00773.271l750 +++|          MX7    1
05197  M01S00774.271l750 +++|          LX1    36
05198  M01S00775.271l750 +++|          BX7    X4+X7       SET SWITCH REQUEST FLAG
05199  M01S00776.271l750 +++|          BX6    X3
05200  M01S00777.271l750 +++|          BX7    X7+X1       SET POINTER TO *WQ* ENTRY WITH BYPASS FLAG
05201  M01S00778.271l750 +++|          SA6    A3          WRITE *CWQW*

Proceed to Part 4