Deck CPUMTR Part 036

308 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
46832  M02S28106.282l826 ---|          SB3    PMT5        SET RETURN ADDRESS FOR *RCC*
46833  M02S28107.282l826 ---|          SA1    B7+STSW     SET TAPE ACTIVITY
46834  M02S28108.282l826 ---|          IX7    X7+X1

Seq #  *Modification Id* Act 
----------------------------+
46835  M02S02089.282l826 ---|          IX7    X7+X1       INCREMENT TAPE ACTIVITY

Seq #  *Modification Id* Act 
----------------------------+
46836  M01S02090.271l750 +++|          LX2    59-46
46837  M00S28109.cpumtr  +++|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
46838  M01S28110.271l750 ---|          SX7    B7          SAVE (B7)
46839  M01S28111.271l750 ---|          SA7    MB3
46840  M01S28112.271l750 ---|          MX3    -3
46841  M01S28113.271l750 ---|          SA1    B6+STSW     CHECK CPU STATUS
46842  M01S28114.271l750 ---|          SB7    B6+
46843  M01S28115.271l750 ---|          LX1    3
46844  M01S28116.271l750 ---|          BX1    -X3*X1
46845  M01S28117.271l750 ---|          SX1    X1-XCPS
46846  M01S28118.271l750 ---|          ZR     X1,/MONITOR/RCC0  IF *X* STATUS
46847  M01S28119.271l750 ---| PMT5     SA1    MB3         RESTORE (B7)
46848  M01S28120.271l750 ---|          SB5    CPCX        SET EXIT ADDRESS
46849  M01S28121.271l750 ---|          SB7    X1
46850  M01S28122.271l750 ---|          JP     SRC         SET *RCLP*

Seq #  *Modification Id* Act 
----------------------------+
46851  M01S02091.271l750 +++|          PL     X2,/MONITOR/RCC  IF TO RECALL *MAGNET* CPU
46852  M01S02092.271l750 +++| PMT5     SB5    CPCX        SET EXIT ADDRESS
46853  M01S02093.271l750 +++|          JP     SRC         SET *RCLP* IF AUTO-RECALL SPECIFIED
46854  M00S28123.cpumtr  +++| RWF      SPACE  4,10
46855  M00S28124.cpumtr  +++|**        RWF - REWIND FILE.
46856  M00S28125.cpumtr  +++|*
46857  M00S28126.cpumtr  +++|*         EXIT   TO *CMF*.
46858  M00S28127.cpumtr  +++|
46859  M00S28128.cpumtr  +++|
46860  M00S28129.cpumtr  +++| RWF      SX4    5

Seq #  *Modification Id* Act 
----------------------------+
46861  M01S28130.ns2365  ---|          ZR     X0,RWF2     IF NO FST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
46862  M01S00008.ns2365  +++|
46863  M01S00009.ns2365  +++|*         ENTERED HERE FOR *REWIND* ON *TE* FILE.
46864  M01S00010.ns2365  +++|*         (X4) = DESIRED FST STATUS = 1.
46865  M01S00011.ns2365  +++|
46866  M01S00012.ns2365  +++| RWF0     ZR     X0,RWF2     IF NO FST ENTRY
46867  M00S28131.cpumtr  +++|          MX6    12
46868  M00S28132.cpumtr  +++|          ERX1   X0          GET FST ENTRY
46869  M00S28133.cpumtr  +++|          LX6    -24
46870  M00S28134.cpumtr  +++|          PL     X3,RWF1     IF NOT MASS STORAGE
46871  M00S28135.cpumtr  +++|          BX2    X6*X1       CURRENT TRACK
46872  M00S28136.cpumtr  +++|          R=     X3,FSMS     SET CURRENT SECTOR = FIRST SECTOR
46873  M00S28137.cpumtr  +++|          ZR     X2,RWF1     IF FILE NOT USED
46874  M00S28138.cpumtr  +++|          BX2    -X6*X1      SET CURRENT TRACK = FIRST TRACK
46875  M00S28139.cpumtr  +++|          LX1    -12
46876  M00S28140.cpumtr  +++|          BX1    X6*X1       FIRST TRACK
46877  M00S28141.cpumtr  +++|          BX1    X2+X1
46878  M00S28142.cpumtr  +++|          LX6    -12
46879  M00S28143.cpumtr  +++|          BX1    -X6*X1      SET CURRENT SECTOR = FIRST SECTOR
46880  M00S28144.cpumtr  +++|          LX3    12
46881  M00S28145.cpumtr  +++|          BX1    X1+X3
46882  M00S28146.cpumtr  +++| RWF1     MX7    54
46883  M00S28147.cpumtr  +++|          BX6    X7*X1       SET EOR STATUS IN FST
46884  M00S28148.cpumtr  +++|          BX6    X6+X4
46885  M00S28149.cpumtr  +++|          EWX6   X0          SET FILE NOT BUSY
46886  M00S28150.cpumtr  +++| RWF2     SA2    MB2         GET RANDOM FILE FLAG
46887  M00S28151.cpumtr  +++|          PL     X2,CMF      IF NOT RANDOM FILE, COMPLETE FET
46888  M00S28152.cpumtr  +++|          SX1    B1
46889  M00S28153.cpumtr  +++|          LX1    30
46890  M00S28154.cpumtr  +++|          IX3    X5+X4       FET+6
46891  M00S28155.cpumtr  +++|          ERX2   X3          GET FET+6
46892  M00S28156.cpumtr  +++|          MX7    -30
46893  M00S28157.cpumtr  +++|          BX7    -X7*X2
46894  M00S28158.cpumtr  +++|          BX7    X7+X1
46895  M00S28159.cpumtr  +++|          EWX7   X3
46896  M00S28160.cpumtr  +++|          EQ     CMF         COMPLETE FET
46897  M00S28161.cpumtr  +++| TIO      SPACE  4,10
46898  M00S28162.cpumtr  +++|**        TIO - TERMINAL I/O.
46899  M00S28163.cpumtr  +++|*
46900  M00S28164.cpumtr  +++|*         EXIT   TO *RPC* TO INITIATE TERMINAL I/O DRIVER *1MI*.
46901  M00S28165.cpumtr  +++|*                TO *RWF* IF WRITE WITH NO DATA.
46902  M00S28166.cpumtr  +++|*                TO *ROC1* TO ROLLOUT DETACHED INTERACTIVE USER JOB
46903  M00S28167.cpumtr  +++|*                REQUESTING I/O.  *RPPM* REQUEST COMPLETED IF PP
46904  M00S28168.cpumtr  +++|*                REQUESTED INTERACTIVE I/O.
46905  M00S28169.cpumtr  +++|*
46906  M00S28170.cpumtr  +++|*         ERROR EXIT TO *RPC* TO INITIATE *1MS*.
46907  M00S28171.cpumtr  +++|
46908  M00S28172.cpumtr  +++|
46909  M00S28173.cpumtr  +++| TIO      SA2    B7+TFSW     CHECK JOB CONNECTION STATUS
46910  M00S28174.cpumtr  +++|          MX1    12

Seq #  *Modification Id* Act 
----------------------------+
46911  M01S28175.261l700 ---|          BX2    X1*X2
46912  M01S28176.261l700 ---|          SX1    EJTE
46913  M01S28177.261l700 ---|          LX2    12
46914  M01S28178.261l700 ---|          IX2    X2*X1

Seq #  *Modification Id* Act 
----------------------------+
46915  M01S00151.261l700 +++|          BX1    X1*X2
46916  M01S00152.261l700 +++|          LX1    12
46917  M01S00153.261l700 +++|          CX2    X1,EJT      CONVERT EJT ORDINAL TO OFFSET
46918  M00S28179.cpumtr  +++|          TA2    X2+JSNE,EJT GET JOB EJT ENTRY
46919  M00S28180.cpumtr  +++|          LX2    -7

Seq #  *Modification Id* Act 
----------------------------+
46920  M01S28181.ns2306  ---|          BX2    -X6*X2

Seq #  *Modification Id* Act 
----------------------------+
46921  M01S00002.ns2306  +++|          BX3    -X6*X2
46922  M00S28182.cpumtr  +++|          SX7    /CIOERR/IRQ *ILLEGAL I/O REQUEST ON FILE*
46923  M00S28183.cpumtr  +++|          ERRNZ  NICS        CODE ASSUMES *NICS* = 0

Seq #  *Modification Id* Act 
----------------------------+
46924  M01S28184.ns2306  ---|          ZR     X2,RPC      IF JOB NOT INTERACTIVE
46925  M01S28185.ns2306  ---|          SX4    X2-DTCS

Seq #  *Modification Id* Act 
----------------------------+
46926  M01S00003.ns2306  +++|          SX4    X3-DTCS
46927  M00S28186.cpumtr  +++|          SA1    B7+TIOW     CHECK I/O IN PROGRESS
46928  M00S28187.cpumtr  +++|          SA2    B7+TINW
46929  M00S28188.cpumtr  +++|          BX6    X2
46930  M00S28189.cpumtr  +++|          AX6    18
46931  M00S28190.cpumtr  +++|          BX6    X1+X6
46932  M00S28191.cpumtr  +++|          SX6    X6
46933  M00S28192.cpumtr  +++|          ZR     B3,TIO2     IF TERMINAL READ REQUEST
46934  M00S28193.cpumtr  +++|
46935  M00S28194.cpumtr  +++|*         PROCESS TERMINAL WRITE REQUEST.
46936  M00S28195.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
46937  M01S00004.ns2306  +++|          ZR     X3,TIO1.1   IF JOB NOT INTERACTIVE
46938  M00S28196.cpumtr  +++|          SA2    A4+B1       READ MB1
46939  M00S28197.cpumtr  +++|          SX7    X2          *OUT*
46940  M00S28198.cpumtr  +++|          AX2    24          *IN*
46941  M00S28199.cpumtr  +++|          BX2    X2-X7
46942  M00S28200.cpumtr  +++|          ZR     X2,RWF      IF WRITE WITH NO DATA
46943  M00S28201.cpumtr  +++|          ZR     X4,TIO3     IF DETACHED JOB
46944  M00S28202.cpumtr  +++|          NZ     X6,TIO6     IF TIOW/TINW BUSY
46945  M00S28203.cpumtr  +++|          SA2    IR
46946  M00S28204.cpumtr  +++|          SX4    X2          FET ADDRESS
46947  M00S28205.cpumtr  +++|          BX6    X1+X4       SET OUTPUT FET POINTER

Seq #  *Modification Id* Act 
----------------------------+
46948  M01S28206.261l700 ---|          SA6    A1          REWRITE TIOW

Seq #  *Modification Id* Act 
----------------------------+
46949  M01S00154.261l700 +++|          SA6    A1+         REWRITE TIOW
46950  M00S28207.cpumtr  +++|
46951  M00S28208.cpumtr  +++|*         EXIT TO *RPC* TO INITIATE TERMINAL I/O DRIVER *1MI*.
46952  M00S28209.cpumtr  +++|
46953  M00S28210.cpumtr  +++| TIO1     ERX3   X0          SET FST NOT BUSY
46954  M00S28211.cpumtr  +++|          SX7    B1
46955  M00S28212.cpumtr  +++|          BX6    X3+X7
46956  M00S28213.cpumtr  +++|          EWX6   X0

Seq #  *Modification Id* Act 
----------------------------+
46957  M01S28214.271l716 ---|          LX7    42-0

Seq #  *Modification Id* Act 
----------------------------+
46958  M01S02081.271l716 +++|          LX7    42          SET *1MI* FAST LOAD TABLE INDEX
46959  M00S28215.cpumtr  +++|          EQ     RPC         REQUEST TERMINAL I/O DRIVER

Seq #  *Modification Id* Act 
----------------------------+
46960  M01S00005.ns2306  +++|
46961  M01S00006.ns2306  +++|*         PROCESS TERMINAL OUTPUT BY NON-INTERACTIVE JOB.
46962  M01S00007.ns2306  +++|
46963  M01S00008.ns2306  +++| TIO1.1   ERX3   X0          SET FST NOT BUSY
46964  M01S00009.ns2306  +++|          SX7    B1
46965  M01S00010.ns2306  +++|          BX6    X3+X7
46966  M01S00011.ns2306  +++|          EWX6   X0
46967  M01S00012.ns2306  +++|          IX6    X5+X7       SET OUT = IN
46968  M01S00013.ns2306  +++|          ERX3   X6          READ IN
46969  M01S00014.ns2306  +++|          IX7    X6+X7
46970  M01S00015.ns2306  +++|          BX6    X3
46971  M01S00016.ns2306  +++|          EWX6   X7          WRITE OUT
46972  M01S00017.ns2306  +++|          EQ     CMF         COMPLETE FET
46973  M00S28216.cpumtr  +++|
46974  M00S28217.cpumtr  +++|*         PROCESS TERMINAL READ REQUEST.
46975  M00S28218.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
46976  M01S28219.ns2306  ---| TIO2     ZR     X4,TIO3     IF DETACHED JOB

Seq #  *Modification Id* Act 
----------------------------+
46977  M01S00018.ns2306  +++| TIO2     ZR     X3,RPC      IF JOB NOT INTERACTIVE
46978  M01S00019.ns2306  +++|          ZR     X4,TIO3     IF DETACHED JOB
46979  M00S28220.cpumtr  +++|          NZ     X6,TIO6     IF TIOW/TINW BUSY
46980  M00S28221.cpumtr  +++|          SA1    IR          SET INPUT FET ADDRESS
46981  M00S28222.cpumtr  +++|          SX6    X1
46982  M00S28223.cpumtr  +++|          LX6    18
46983  M00S28224.cpumtr  +++|          BX6    X2+X6
46984  M00S28225.cpumtr  +++|          SA6    A2          REWRITE TINW
46985  M00S28226.cpumtr  +++|          EQ     TIO1        INITIATE TERMINAL I/O
46986  M00S28227.cpumtr  +++|
46987  M00S28228.cpumtr  +++|*         PROCESS DETACHED JOB TERMINATION.
46988  M00S28229.cpumtr  +++|
46989  M00S28230.cpumtr  +++| TIO3     SA1    B7+EOJW     JOB TERMINATION OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
46990  M01S28231.241l630 ---|          MX6    -2

Seq #  *Modification Id* Act 
----------------------------+
46991  M01S00443.241l630 +++|          MX6    -3
46992  M00S28232.cpumtr  +++|          LX1    0-57
46993  M00S28233.cpumtr  +++|          BX1    -X6*X1
46994  M00S28234.cpumtr  +++|          SB4    X1

Seq #  *Modification Id* Act 
----------------------------+
46995  M01S00001.cpumt62 +++|          SX7    /CIOERR/IRQ *ILLEGAL I/O REQUEST ON FILE*
46996  M00S28235.cpumtr  +++|          NE     B4,B1,RPC   IF DETTACHED JOB TO BE TERMINATED

Seq #  *Modification Id* Act 
----------------------------+
46997  M01S00444.241l630 +++|          ERRNZ  SUJT-1      CODE DEPENDS ON VALUE
46998  M00S28236.cpumtr  +++|          ERX3   X0          SET FST NOT BUSY
46999  M00S28237.cpumtr  +++|          SX7    B1
47000  M00S28238.cpumtr  +++|          BX7    X3+X7
47001  M00S28239.cpumtr  +++|          EWX7   X0
47002  M00S28240.cpumtr  +++|          SB3    TIO4        RETURN ADDRESS FOR *AQR*
47003  M00S28241.cpumtr  +++|          SA1    IR          GET *CIO* CALL TO BE QUEUED
47004  M00S28242.cpumtr  +++|          SX7    DTSR        JOB SUSPENSION REASON CODE
47005  M00S28243.cpumtr  +++|          BX6    X1
47006  M00S28244.cpumtr  +++|          LX7    -12
47007  M00S28245.cpumtr  +++|          SA7    /MONITOR/AQRA  SET PARAMETER WORD FOR *AQR*
47008  M00S28246.cpumtr  +++|          EQ     /MONITOR/REC2  QUEUE *CIO* REQUEST
47009  M00S28247.cpumtr  +++|
47010  M00S28248.cpumtr  +++|*         ASSURE DROP OPTION ON *RPPM* FUNCTION REQUEST.
47011  M00S28249.cpumtr  +++|
47012  M00S28250.cpumtr  +++| TIO4     TX1    10B,SP
47013  M00S28251.cpumtr  +++|          MX0    -18
47014  M00S28252.cpumtr  +++|          SX2    A5
47015  M00S28253.cpumtr  +++|          BX2    -X0*X2
47016  M00S28254.cpumtr  +++|          IX1    X2-X1

Seq #  *Modification Id* Act 
----------------------------+
47017  M01S28255.271l716 ---|          SX5    B1

Seq #  *Modification Id* Act 
----------------------------+
47018  M01S02082.271l716 +++|          SX5    B1+
47019  M00S28256.cpumtr  +++|          ERRNZ  ROSU-10B    CHECK *ROCM* SUSPENSION POSITION

Seq #  *Modification Id* Act 
----------------------------+
47020  M01S28257.271l716 ---|          LX5    39-0

Seq #  *Modification Id* Act 
----------------------------+
47021  M01S02083.271l716 +++|          LX5    39-0+12

Seq #  *Modification Id* Act 
----------------------------+
47022  M01S28258.271l716 ---|          SB6    -B1         *CPUCIO* CALL TO *ROCM* AND *DCPM*
47023  M01S28259.271l716 ---|          PL     X1,/MONITOR/ROC1  IF NOT *RPPM* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
47024  M01S02084.271l716 +++|          SB6    -1          INDICATE *CPUCIO* CALL TO *ROCM*, *DCPM*
47025  M01S02085.271l716 +++|          BX2    X2-X2       REQUIRED BY *ROCM*
47026  M01S02086.271l716 +++|          PL     X1,/MONITOR/ROC4  IF NOT *RPPM* REQUEST
47027  M00S28260.cpumtr  +++|          SX7    B1

Seq #  *Modification Id* Act 
----------------------------+
47028  M01S28261.271l716 ---|          SA1    A5+         DROP OPTION ON *RPPM* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
47029  M01S02087.271l716 +++|          SA1    A5          SELECT DROP OPTION ON *RPPM* REQUEST
47030  M00S28262.cpumtr  +++|          LX7    36          *RPPM* COMPLETION STATUS
47031  M00S28263.cpumtr  +++|          LX1    59-37
47032  M00S28264.cpumtr  +++|          PL     X1,TIO5     IF NO DROP OPTION SELECTED
47033  M00S28265.cpumtr  +++|          SX7    4000B+DPPM  FORCE *DPPM* FUNCTION REQUEST
47034  M00S28266.cpumtr  +++|          LX7    48
47035  M00S28267.cpumtr  +++| TIO5     SA7    A5          REWRITE OUTPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
47036  M01S28268.271l716 ---|          EQ     /MONITOR/ROC1  ROLLOUT CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
47037  M01S02088.271l716 +++|          EQ     /MONITOR/ROC4  ROLLOUT JOB
47038  M00S28269.cpumtr  +++|
47039  M00S28270.cpumtr  +++| TIO6     SA1    IR          SET TIOW/TINW BUSY IN REQUEST
47040  M00S28271.cpumtr  +++|          SX7    B1
47041  M00S28272.cpumtr  +++|          LX7    35-0
47042  M00S28273.cpumtr  +++|          BX7    X1+X7
47043  M00S28274.cpumtr  +++|          SA7    A1          REWRITE INPUT REGISTER
47044  M00S28275.cpumtr  +++|          EQ     TIO1        START UP *1MI*
47045  M00S28276.cpumtr  +++|
47046  M00S28277.cpumtr  +++|          ENDBLK
47047  M00S28278.cpumtr  +++|          BLOCK  MCE,(MEMORY CLEARING ROUTINES.)
47048  M00S28279.cpumtr  +++| MCE      SPACE  4,10
47049  M00S28280.cpumtr  +++|**        THIS BLOCK IS LOADED IF THE MEMORY CLEARING OPTION
47050  M00S28281.cpumtr  +++|*         IS ENABLED IN THE IPRDECK.  THE BASIC PURPOSE IS TO
47051  M00S28282.cpumtr  +++|*         CLEAR STORAGE UPON RELEASE IN ADDITION TO UPON ASSIGMENT.
47052  M00S28283.cpumtr  +++| CST      SPACE  4,20
47053  M00S28284.cpumtr  +++|**        CST - EXCEPTION PROCESSOR FOR SPECIAL MEMORY CLEAR REQUEST.
47054  M00S28285.cpumtr  +++|*
47055  M00S28286.cpumtr  +++|*         THIS ROUTINE IS CALLED TO BUILD THE *CSTM* REQUEST FROM THE
47056  M00S28287.cpumtr  +++|*         *RSTM* REQUEST THAT IS STORED IN MB+5.
47057  M00S28288.cpumtr  +++|*
47058  M00S28289.cpumtr  +++|*         ENTRY  (MB+5) = 12/ RSTM, 12/ NEW FL, 3/,1/NFL REQUEST
47059  M00S28290.cpumtr  +++|*                         7/,1/ ECS REQUEST, 24/
47060  M00S28291.cpumtr  +++|*
47061  M00S28292.cpumtr  +++|*         EXIT   TO /MONITOR/CST0 WITH REBUILT REQUEST -
47062  M00S28293.cpumtr  +++|*                (X5) = 12/ CSTM, 4/1, 1/ECS REQUEST, 1/1,
47063  M00S28294.cpumtr  +++|*                       18/ WORD COUNT, 24/ FWA
47064  M00S28295.cpumtr  +++|*
47065  M00S28296.cpumtr  +++|*         USES   X - ALL.
47066  M00S28297.cpumtr  +++|*                A - 1, 2, 3.
47067  M00S28298.cpumtr  +++|*                B - 3.
47068  M00S28299.cpumtr  +++|*
47069  M00S28300.cpumtr  +++|*         CALLS  /CME/CSM, /0CME/CSM.
47070  M00S28301.cpumtr  +++|
47071  M00S28302.cpumtr  +++|
47072  M00S28303.cpumtr  +++| CST      SA2    A5+6        GET *MB+5*
47073  M00S28304.cpumtr  +++|          SA3    B7+ECSW     GET ECS FL CONTROL
47074  M00S28305.cpumtr  +++|          MX0    -12
47075  M00S28306.cpumtr  +++|          MX5    1
47076  M00S28307.cpumtr  +++|          LX2    59-24
47077  M00S28308.cpumtr  +++|          BX1    X5*X2       EXTRACT ECS REQUEST FLAG
47078  M00S28309.cpumtr  +++|          NG     X2,CST1     IF CLEARING ECS FL
47079  M00S28310.cpumtr  +++|          SA3    B7+FLSW     GET CM FL CONTROL
47080  M00S28311.cpumtr  +++|          LX2    59-32-59+24
47081  M00S28312.cpumtr  +++|          NG     X2,CST4     IF CLEARING NFL
47082  M00S28313.cpumtr  +++|          LX2    59-24-59+32
47083  M00S28314.cpumtr  +++| CST1     LX2    24-59+24
47084  M00S28315.cpumtr  +++|          BX6    -X0*X2      NEW FL
47085  M00S28316.cpumtr  +++|          BX4    -X0*X3      OLD FL
47086  M00S28317.cpumtr  +++|          IX4    X4-X6       WORD COUNT
47087  M00S28318.cpumtr  +++| CST2     LX4    24
47088  M00S28319.cpumtr  +++|          LX1    43-59
47089  M00S28320.cpumtr  +++|          LX5    42-59
47090  M00S28321.cpumtr  +++|          BX6    X4+X6       START BUILDING REQUEST
47091  M00S28322.cpumtr  +++|          BX5    X1+X5
47092  M00S28323.cpumtr  +++|          NZ     X1,CST3     IF ECS FL
47093  M00S28324.cpumtr  +++|          LX6    6           MULTIPLY REQUEST BY 100B
47094  M00S28325.cpumtr  +++| CST3     BX1    X5+X6       SET RELATIVE/ECS REQUEST FLAG(S)
47095  M00S28326.cpumtr  +++|          SX6    CSTM*100B+4B  SET UP FOR RE-ENTRY
47096  M00S28327.cpumtr  +++|          LX6    -18
47097  M00S28328.cpumtr  +++|          BX5    X6+X1

Seq #  *Modification Id* Act 
----------------------------+
47098  M01S00001.cpumt67 +++|          BX1    X5
47099  M00S28329.cpumtr  +++|          EQ     /MONITOR/CST0  RESTART *CSTM* PROCESSOR
47100  M00S28330.cpumtr  +++|
47101  M00S28331.cpumtr  +++| CST4     LX2    32-59+24
47102  M00S28332.cpumtr  +++|          LX3    12
47103  M00S28333.cpumtr  +++|          BX4    -X0*X2      NEW NFL
47104  M00S28334.cpumtr  +++|          BX6    -X0*X3      OLD NFL
47105  M00S28335.cpumtr  +++|          IX4    X6-X4       WORD COUNT
47106  M00S28336.cpumtr  +++|          BX6    -X6         COMPLEMENT FWA
47107  M00S28337.cpumtr  +++|          LX6    6
47108  M00S28338.cpumtr  +++|          MX3    -24
47109  M00S28339.cpumtr  +++|          BX6    -X3*X6
47110  M00S28340.cpumtr  +++|          LX6    -6
47111  M00S28341.cpumtr  +++|          EQ     CST2        COMPLETE BUILDING OF REQUEST
47112  M00S28342.cpumtr  +++|
47113  M00S28343.cpumtr  +++| CST5     LX4    59-44-59+42
47114  M00S28344.cpumtr  +++|          NO

Seq #  *Modification Id* Act 
----------------------------+
47115  M01S28345.252l678 ---|          TPL    X4,(/CME/CSM,/0CME/CSM,CME)  IF NOT SPECIAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
47116  M01S00863.252l678 +++|          TPL    X4,(/CME/CSM,CME,/0CME/CSM)  IF NOT SPECIAL REQUEST
47117  M00S28346.cpumtr  +++|          SB3    /MCE/CST6   *CSM* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47118  M01S28347.252l678 ---|          TEQ    (/CME/CSM,/0CME/CSM,CME)  CLEAR STORAGE

Seq #  *Modification Id* Act 
----------------------------+
47119  M01S00864.252l678 +++|          TEQ    (/CME/CSM,CME,/0CME/CSM)  CLEAR STORAGE
47120  M00S28348.cpumtr  +++|
47121  M00S28349.cpumtr  +++| CST6     SA1    A5+6        GET *RSTM* REQUEST
47122  M00S28350.cpumtr  +++|          SX7    B1

Seq #  *Modification Id* Act 
----------------------------+
47123  M01S28351.271l716 ---|          LX7    33

Seq #  *Modification Id* Act 
----------------------------+
47124  M01S02089.271l716 +++|          LX7    29
47125  M00S28352.cpumtr  +++|          BX7    X7+X1       SET COMPLETION BIT
47126  M00S28353.cpumtr  +++|          EQ     /MONITOR/PPR1  EXIT
47127  M00S28354.cpumtr  +++| CST      SPACE  4,15
47128  M00S28355.cpumtr  +++|**        CSTX - EXIT PROCESSOR FOR PROGRAM MODE *CSTM*.
47129  M00S28356.cpumtr  +++|*
47130  M00S28357.cpumtr  +++|*         THIS PROCESSOR IS CALLED TO CHECK SPECIFICATION OF THE
47131  M00S28358.cpumtr  +++|*         SPECIAL REQUEST OPTION TO DETERMINE IF THE *RSTM* REQUEST
47132  M00S28359.cpumtr  +++|*         THAT MIGHT BE IN *MB+5* MUST BE RESTORED.
47133  M00S28360.cpumtr  +++|*
47134  M00S28361.cpumtr  +++|*         ENTRY  (X7) = 0.
47135  M00S28362.cpumtr  +++|*
47136  M00S28363.cpumtr  +++|*         EXIT   TO /PROGRAM/PRG1
47137  M00S28364.cpumtr  +++|*
47138  M00S28365.cpumtr  +++|*         USES   X - 3, 7.
47139  M00S28366.cpumtr  +++|*                A - 3.
47140  M00S28367.cpumtr  +++|
47141  M00S28368.cpumtr  +++|
47142  M00S28369.cpumtr  +++| CSTX     SA3    A5          CHECK REQUEST OPTION(S)
47143  M00S28370.cpumtr  +++|          LX3    59-44
47144  M00S28371.cpumtr  +++|          PL     X3,/PROGRAM/PRG1  IF NOT SPECIAL REQUEST
47145  M00S28372.cpumtr  +++|          SA3    A5+6        GET MB+5
47146  M00S28373.cpumtr  +++|          SX7    B1

Seq #  *Modification Id* Act 
----------------------------+
47147  M01S28374.ns2677  ---|          LX7    33

Seq #  *Modification Id* Act 
----------------------------+
47148  M01S00002.ns2677  +++|          LX7    29
47149  M00S28375.cpumtr  +++|          BX7    X7+X3       SET REQUEST COMPLETED
47150  M00S28376.cpumtr  +++|          EQ     /PROGRAM/PRG1  EXIT
47151  M00S28377.cpumtr  +++| CUE      SPACE  4,15
47152  M00S28378.cpumtr  +++|**        CUE - CLEAR USER ECS.
47153  M00S28379.cpumtr  +++|*
47154  M00S28380.cpumtr  +++|*         THIS ROUTINE IS CALLED TO CLEAR USER ECS IN ORDER
47155  M00S28381.cpumtr  +++|*         TO MAINTAIN SECURED MEMORY (MEMORY CLEARING ENABLED).
47156  M00S28382.cpumtr  +++|*
47157  M00S28383.cpumtr  +++|*         ENTRY  (X1) = WORD COUNT.
47158  M00S28384.cpumtr  +++|*                (X2) = ABSOLUTE FWA.
47159  M00S28385.cpumtr  +++|*                (B3) = RETURN ADDRESS.
47160  M00S28386.cpumtr  +++|*
47161  M00S28387.cpumtr  +++|*         USES   X - 0, 1, 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
47162  M01S28388.ns2677  ---|*                A - 0.

Seq #  *Modification Id* Act 
----------------------------+
47163  M01S00003.ns2677  +++|*                A - 0, 4.
47164  M00S28389.cpumtr  +++|*                B - 4.
47165  M00S28390.cpumtr  +++|
47166  M00S28391.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
47167  M01S28392.252l678 ---| CUE      TSX0   (LCCB,1,CP176)
47168  M01S28393.252l678 ---|          SA0    /PROGRAM/UBUF  SET FWA OF CM BUFFER

Seq #  *Modification Id* Act 
----------------------------+
47169  M02S00865.ns2499  ---| CUE      TSX0   (LCCB,CP176,0)
47170  M02S00866.ns2499  ---|          NZ     X0,CUE1     IF 176 TYPE MAINFRAME
47171  M02S00867.ns2499  ---|          TSX0   0,THCCB
47172  M02S00868.ns2499  ---|          SX4    B1
47173  M02S00869.ns2499  ---|          IX4    X0-X4
47174  M02S00870.ns2499  ---|          ZR     X4,CUE1     IF NOT CYBER 990
47175  M02S00871.ns2499  ---|          LX0    6-21        MULTIPLY BY 100B AND NULLIFY 21 BIT SHIFT

Seq #  *Modification Id* Act 
----------------------------+
47176  M01S00001.ns2499  +++| CUE      TSX0   (LCCB-1,CP176,1-1)
47177  M01S00002.ns2499  +++|          SAC    18,CCMB     ADD CLEAR CENTRAL MEMORY BUFFER
47178  M01S00003.ns2499  +++|          NZ     X0,CUE1     IF NOT CYBER 990 TYPE MAINFRAME

Seq #  *Modification Id* Act 
----------------------------+
47179  M02S00004.273l780 ---|          SA4    ECRL        GET RAE FOR CP 0

Seq #  *Modification Id* Act 
----------------------------+
47180  M01S00915.273l780 +++|          SA4    ECRL        GET RAE FOR ZERO UEM BLOCK

Seq #  *Modification Id* Act 
----------------------------+
47181  M01S00005.ns2499  +++|          LX4    0-12
47182  M01S00006.ns2499  +++|          MX0    -24
47183  M01S00007.ns2499  +++|          BX0    -X0*X4
47184  M01S00008.ns2499  +++|          TLX0   9-21+60,UESC

Seq #  *Modification Id* Act 
----------------------------+
47185  M01S00872.252l678 +++| CUE1     SA0    /PROGRAM/UBUF  SET FWA OF CM BUFFER

Seq #  *Modification Id* Act 
----------------------------+
47186  M01S28394.252l678 ---|          TLX0   (0,21,CP176)

Seq #  *Modification Id* Act 
----------------------------+
47187  M01S00873.252l678 +++|          TLX0   (0,CP176,21)
47188  M00S28395.cpumtr  +++|          SB4    /PROGRAM/MECB  SET WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
47189  M01S28396.252l678 ---|          TLX0   (3,0,ESM)
47190  M01S28397.252l678 ---|          SX6    A0+

Seq #  *Modification Id* Act 
----------------------------+
47191  M01S00874.252l678 +++|          TLX0   (3,ESM170,0)
47192  M01S00875.252l678 +++|          SX6    A0
47193  M01S00876.252l678 +++|          TLX0   (4,UEM180,0)
47194  M00S28398.cpumtr  +++|          LX6    30
47195  M00S28399.cpumtr  +++|          BX0    X0+X6

Seq #  *Modification Id* Act 
----------------------------+
47196  M01S28400.ns2677  ---|          RE     B4          CLEAR CM BUFFER
47197  M01S28401.ns2677  ---|*         SB0    0           (HALF-EXIT EXPECTED)
47198  M01S28402.ns2677  ---|+         BX0    X6+X2       ECS ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47199  M01S00004.ns2677  +++|+         RE     B4          CLEAR CM BUFFER
47200  M01S00005.ns2677  +++|
47201  M01S00006.ns2677  +++|*         NOTE - HALF EXIT WILL BE TAKEN ON EXTENDED MEMORY READ
47202  M01S00007.ns2677  +++|*                BECAUSE OF OUT-OF-RANGE ADDRESS SPECIFIED TO CAUSE
47203  M01S00008.ns2677  +++|*                ZEROES TRANSFER TO CM.
47204  M01S00009.ns2677  +++|
47205  M01S00010.ns2677  +++|          SB0    0           (HALF-EXIT EXPECTED)
47206  M01S00011.ns2677  +++|          BX0    X6+X2       ECS ADDRESS
47207  M00S28403.cpumtr  +++|          SX4    B4+         ADDRESS INCREMENT/DECREMENT

Seq #  *Modification Id* Act 
----------------------------+
47208  M01S28404.252l678 ---| CUE1     WUE    PROGRAM     CLEAR USER ECS

Seq #  *Modification Id* Act 
----------------------------+
47209  M01S00877.252l678 +++| CUE2     WUE    PROGRAM     CLEAR USER EM
47210  M00S28405.cpumtr  +++|*         SB0    0           (IGNORE HALF-EXIT)
47211  M00S28406.cpumtr  +++|+         IX1    X1-X4       DECREMENT WORD COUNT
47212  M00S28407.cpumtr  +++|          IX0    X0+X4       INCREMENT ECS ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47213  M01S28408.252l678 ---|          NZ     X1,CUE1     IF NOT COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
47214  M01S00878.252l678 +++|          NZ     X1,CUE2     IF NOT COMPLETE
47215  M00S28409.cpumtr  +++|          JP     B3          RETURN
47216  M00S28410.cpumtr  +++| MEC      SPACE  4,15
47217  M00S28411.cpumtr  +++|**        MEC - EXTENSION FOR USER ECS STORAGE MOVE.
47218  M00S28412.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47219  M01S28413.ns2677  ---|*         THIS PROCESSOR IS CALLED TO CHECK FOR CERTAIN CIRCUMSTANCES
47220  M01S28414.ns2677  ---|*         WHICH REQUIRE CLEARING OF THE RECENTLY VACATED USER ECS.

Seq #  *Modification Id* Act 
----------------------------+
47221  M01S00012.ns2677  +++|*         THIS PROCESSOR DETERMINES IF VACATED EXTENDED MEMORY FIELD
47222  M01S00013.ns2677  +++|*         LENGTH MUST BE CLEARED FOLLOWING A STORAGE MOVE.

Seq #  *Modification Id* Act 
----------------------------+
47223  M01S02090.271l716 +++|*

Seq #  *Modification Id* Act 
----------------------------+
47224  M02S02091.ns2677  ---|*         ENTRY  (A5) = *SMRL*.
47225  M02S02092.ns2677  ---|*                (B7) = CP/PCP ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
47226  M01S00014.ns2677  +++|*         ENTRY  (B7) = CP/PCP ADDRESS.
47227  M00S28415.cpumtr  +++|*
47228  M00S28416.cpumtr  +++|*         EXIT   TO /PROGRAM/MEC2.1
47229  M00S28417.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47230  M01S28418.ns2677  ---|*         USES   X - 0, 1, 2, 3, 5.
47231  M01S28419.ns2677  ---|*                A - 2, 5.

Seq #  *Modification Id* Act 
----------------------------+
47232  M01S00015.ns2677  +++|*         USES   X - 0, 1, 2, 3, 4.
47233  M01S00016.ns2677  +++|*                A - 1, 2, 3.
47234  M00S28420.cpumtr  +++|*                B - 3.
47235  M00S28421.cpumtr  +++|*
47236  M00S28422.cpumtr  +++|*         CALLS  CUE.
47237  M00S28423.cpumtr  +++|
47238  M00S28424.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
47239  M01S28425.ns2677  ---| MEC      SA5    A5+

Seq #  *Modification Id* Act 
----------------------------+
47240  M01S00017.ns2677  +++| MEC      TSA3   (UEML,UEM,ZERL)
47241  M01S00018.ns2677  +++|          SA1    SMRL
47242  M01S00019.ns2677  +++|          SA2    B7+ECSW
47243  M00S28426.cpumtr  +++|          SB3    /PROGRAM/MEC2.1  *CUE* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47244  M01S28427.271l716 ---|
47245  M01S28428.271l716 ---|*         THE 10000B CONSTANT IN THE NEXT INSTRUCTIONS COMPENSATES
47246  M01S28429.271l716 ---|*         FOR BIT 0 IN BYTE 3 (BIT 12 IN THE WORD) THAT WILL BE SET
47247  M01S28430.271l716 ---|*         BECAUSE THIS IS AN ECS STORAGE MOVE REQUEST.
47248  M01S28431.271l716 ---|
47249  M01S28432.271l716 ---|          TX3    X5-10000B+200B,-SCA
47250  M01S28433.271l716 ---|          SA2    X5-10000B+ECSW  GET ECS FIELD LENGTH CONTROL

Seq #  *Modification Id* Act 
----------------------------+
47251  M02S02093.ns2677  ---|          TX3    B7+CPAS,-SCA
47252  M02S02094.ns2677  ---|          SA2    B7+ECSW

Seq #  *Modification Id* Act 
----------------------------+
47253  M01S28434.ns2677  ---|          NZ     X3,/PROGRAM/MEC2.1  IF NOT LAST CONTROL POINT
47254  M01S28435.ns2677  ---|          NG     X5,/PROGRAM/MEC2.1  IF NOT UPWARD MOVE
47255  M01S28436.ns2677  ---|          AX5    48

Seq #  *Modification Id* Act 
----------------------------+
47256  M01S00020.ns2677  +++|          TX0    B7+CPAS,-SCA
47257  M01S00021.ns2677  +++|          MX4    -12
47258  M01S00022.ns2677  +++|          LX3    12
47259  M01S00023.ns2677  +++|          BX3    -X4*X3      UEM BASE ADDRESS IF UEM PRESENT
47260  M01S00024.ns2677  +++|          LX4    24
47261  M01S00025.ns2677  +++|          BX4    -X4*X1      DIRECT MOVE HOLE POINTER
47262  M01S00026.ns2677  +++|          NZ     X0,MEC1     IF NOT LAST CONTROL POINT
47263  M01S00027.ns2677  +++|          PL     X1,MEC2     IF UPWARD MOVE
47264  M01S00028.ns2677  +++| MEC1     ZR     X4,/PROGRAM/MEC2.1  IF NOT DIRECT MOVE
47265  M01S00029.ns2677  +++|          BX1    X2
47266  M01S00030.ns2677  +++|          LX1    48          WORD COUNT = FLE
47267  M01S00031.ns2677  +++| MEC2     AX2    RSHF
47268  M00S28437.cpumtr  +++|          MX0    -RMSK

Seq #  *Modification Id* Act 
----------------------------+
47269  M01S28438.ns2184  ---|          LX5    9

Seq #  *Modification Id* Act 
----------------------------+
47270  M02S00007.252l678 ---|          LX5    9+UESF

Seq #  *Modification Id* Act 
----------------------------+
47271  M02S00879.ns2677  ---|          TLX5   9,UESC

Seq #  *Modification Id* Act 
----------------------------+
47272  M01S28439.ns2677  ---|          AX2    RSHF
47273  M01S28440.ns2677  ---|          BX1    X5          WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
47274  M01S00032.ns2677  +++|          AX1    48
47275  M00S28441.cpumtr  +++|          BX2    -X0*X2

Seq #  *Modification Id* Act 
----------------------------+
47276  M01S28442.ns2677  ---|          NO

Seq #  *Modification Id* Act 
----------------------------+
47277  M02S28443.ns2677  ---|          LX2    9           OLD RA = FWA

Seq #  *Modification Id* Act 
----------------------------+
47278  M03S00008.ns2677  ---|          LX2    9+UESF      OLD RA = FWA

Seq #  *Modification Id* Act 
----------------------------+
47279  M02S00880.ns2677  ---|          TLX2   9,UESC      OLD RA = FWA

Seq #  *Modification Id* Act 
----------------------------+
47280  M01S00033.ns2677  +++|          LX3    9
47281  M01S00034.ns2677  +++|          TLX2   9,UESC
47282  M01S00035.ns2677  +++|          TLX1   9,UESC      WORD COUNT
47283  M01S00036.ns2677  +++|          IX2    X2+X3       OLD RA = FWA
47284  M00S28444.cpumtr  +++|          EQ     CUE         CLEAR USER ECS
47285  M00S28445.cpumtr  +++| MST      SPACE  4,15
47286  M00S28446.cpumtr  +++|**        MST - EXTENSION FOR MEMORY CLEARING AFTER STORAGE MOVE.
47287  M00S28447.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47288  M01S28448.ns2677  ---|*         THIS PROCESSOR IS CALLED TO DETERMINE IF THE STORAGE MOVE
47289  M01S28449.ns2677  ---|*         CURRENTLY IN PROGRESS REQUIRES CLEARING OF THE MEMORY JUST
47290  M01S28450.ns2677  ---|*         VACATED.  THIS OCCURS WHEN THE FIRST OR LAST CONTROL POINT
47291  M01S28451.ns2677  ---|*         IS MOVED IN A CERTAIN DIRECTION.

Seq #  *Modification Id* Act 
----------------------------+
47292  M01S00037.ns2677  +++|*         THIS PROCESSOR DETERMINES IF VACATED FIELD LENGTH MUST BE
47293  M01S00038.ns2677  +++|*         CLEARED FOLLOWING A STORAGE MOVE.

Seq #  *Modification Id* Act 
----------------------------+
47294  M01S02095.271l716 +++|*

Seq #  *Modification Id* Act 
----------------------------+
47295  M02S02096.ns2677  ---|*         ENTRY  (A5) = *SMRL*.
47296  M02S02097.ns2677  ---|*                (B7) = CP/PCP ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
47297  M01S00039.ns2677  +++|*         ENTRY  (B7) = CP/PCP ADDRESS.
47298  M00S28452.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47299  M01S28453.ns2677  ---|*         EXIT   TO /PROGRAM/MST2

Seq #  *Modification Id* Act 
----------------------------+
47300  M01S00040.ns2677  +++|*         EXIT   TO /PROGRAM/MST3.
47301  M00S28454.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47302  M01S28455.ns2677  ---|*         USES   X - 0, 1, 2, 3, 5.
47303  M01S28456.ns2677  ---|*                A - 1, 2, 5.

Seq #  *Modification Id* Act 
----------------------------+
47304  M01S00041.ns2677  +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
47305  M01S00042.ns2677  +++|*                A - 1, 2.
47306  M00S28457.cpumtr  +++|*                B - 3.
47307  M00S28458.cpumtr  +++|*
47308  M00S28459.cpumtr  +++|*         CALLS  /CME/CSM, /0CME/CSM.
47309  M00S28460.cpumtr  +++|
47310  M00S28461.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
47311  M01S28462.ns2677  ---| MST      SA5    A5+

Seq #  *Modification Id* Act 
----------------------------+
47312  M01S00043.ns2677  +++| MST      SA2    B7+FLSW
47313  M01S00044.ns2677  +++|          SA1    SMRL
47314  M00S28463.cpumtr  +++|          SB3    MST2        *CSM* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47315  M01S28464.v23l617 ---|          SA1    SD1L        PRESET FOR RE-ENTRY

Seq #  *Modification Id* Act 
----------------------------+
47316  M02S00489.ns2677  ---|          TA1    CMMS,SDA    PRESET MOVE COUNT FOR REENTRY

Seq #  *Modification Id* Act 
----------------------------+
47317  M02S28465.ns2677  ---|          SX3    X5-200B
47318  M02S28466.ns2677  ---|          SA2    X5+FLSW     GET FIELD LENGTH CONTROL
47319  M02S28467.ns2677  ---|          ZR     X3,MST1     IF CP 1 MOVING
47320  M02S28468.ns2677  ---|          TX3    X5+200B,-SCA
47321  M02S28469.ns2677  ---|          NZ     X3,/PROGRAM/MST2  IF NOT LAST CP MOVING
47322  M02S28470.ns2677  ---|          NG     X5,/PROGRAM/MST2  IF NOT UPWARD MOVE

Seq #  *Modification Id* Act 
----------------------------+
47323  M02S02098.ns2677  ---|          SX3    B7-CPAS
47324  M02S02099.ns2677  ---|          SA2    B7+FLSW
47325  M02S02100.ns2677  ---|          ZR     X3,MST1     IF CP 1 MOVING
47326  M02S02101.ns2677  ---|          TX3    B7+CPAS,-SCA
47327  M02S02102.ns2677  ---|          NZ     X3,/PROGRAM/MST3  IF NOT LAST CP MOVING
47328  M02S02103.ns2677  ---|          NG     X5,/PROGRAM/MST3  IF NOT UPWARD MOVE

Seq #  *Modification Id* Act 
----------------------------+
47329  M01S28471.ns2677  ---|          AX5    48

Seq #  *Modification Id* Act 
----------------------------+
47330  M01S00045.ns2677  +++|          SX6    B7-CPAS
47331  M01S00046.ns2677  +++|          TX7    B7+CPAS,-SCA
47332  M01S00047.ns2677  +++|          MX4    -12
47333  M01S00048.ns2677  +++|          BX3    -X4*X2      FL
47334  M01S00049.ns2677  +++|          LX4    24
47335  M01S00050.ns2677  +++|          ZR     X6,MST1     IF CP 1 MOVING
47336  M01S00051.ns2677  +++|          BX4    -X4*X1      DIRECT MOVE HOLE POINTER
47337  M01S00052.ns2677  +++|          NZ     X7,MST0.1   IF NOT LAST CP MOVING
47338  M01S00053.ns2677  +++|          PL     X1,MST0.2   IF UPWARD MOVE
47339  M01S00054.ns2677  +++| MST0.1   ZR     X4,MST2     IF NOT DIRECT MOVE
47340  M01S00055.ns2677  +++|          LX3    48
47341  M01S00056.ns2677  +++|          IX1    X2+X3       WORD COUNT = (FL + NFL)
47342  M01S00057.ns2677  +++| MST0.2   AX1    48
47343  M01S00058.ns2677  +++|          AX2    RSHF
47344  M00S28472.cpumtr  +++|          MX0    -RMSK

Seq #  *Modification Id* Act 
----------------------------+
47345  M01S28473.ns2677  ---|          LX5    6
47346  M01S28474.ns2677  ---|          AX2    RSHF
47347  M01S28475.ns2677  ---|          BX1    X5          WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
47348  M01S00059.ns2677  +++|          LX1    6
47349  M00S28476.cpumtr  +++|          BX3    -X0*X2      RA/100B
47350  M00S28477.cpumtr  +++|          AX2    48-RSHF     NFL/100B

Seq #  *Modification Id* Act 
----------------------------+
47351  M01S28478.ns2677  ---|          NO
47352  M00S28479.cpumtr  +++|          IX2    X3-X2
47353  M00S28480.cpumtr  +++|          LX2    6           FWA TO CLEAR (RA - NFL)

Seq #  *Modification Id* Act 
----------------------------+
47354  M01S28481.252l678 ---|          TEQ    (/CME/CSM,/0CME/CSM,CME)  CLEAR STORAGE

Seq #  *Modification Id* Act 
----------------------------+
47355  M01S00881.252l678 +++|          TEQ    (/CME/CSM,CME,/0CME/CSM)  CLEAR STORAGE
47356  M00S28482.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
47357  M01S28483.271l716 ---| MST1     PL     X5,/PROGRAM/MST2  IF NOT DOWNWARD MOVE

Seq #  *Modification Id* Act 
----------------------------+
47358  M02S02104.ns2677  ---| MST1     PL     X5,/PROGRAM/MST3  IF NOT DOWNWARD MOVE

Seq #  *Modification Id* Act 
----------------------------+
47359  M01S28484.ns2677  ---|          AX5    48
47360  M01S28485.ns2677  ---|          MX0    -12
47361  M01S28486.ns2677  ---|          LX5    6
47362  M01S28487.ns2677  ---|          BX3    -X0*X2      FL/100B
47363  M01S28488.ns2677  ---|          BX1    -X5         WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
47364  M01S00060.ns2677  +++| MST1     PL     X1,MST2     IF NOT DOWNWARD MOVE
47365  M01S00061.ns2677  +++|          AX1    48
47366  M00S28489.cpumtr  +++|          AX2    RSHF

Seq #  *Modification Id* Act 
----------------------------+
47367  M01S00062.ns2677  +++|          LX1    6
47368  M00S28490.cpumtr  +++|          MX0    -RMSK

Seq #  *Modification Id* Act 
----------------------------+
47369  M01S00063.ns2677  +++|          BX1    -X1         WORD COUNT
47370  M00S28491.cpumtr  +++|          BX2    -X0*X2      RA/100B
47371  M00S28492.cpumtr  +++|          IX2    X2+X3       (LWA+1)/100B
47372  M00S28493.cpumtr  +++|          LX2    6
47373  M00S28494.cpumtr  +++|          IX2    X2-X1       (LWA+1) - WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
47374  M01S28495.252l678 ---|          TEQ    (/CME/CSM,/0CME/CSM,CME)  CLEAR STORAGE

Seq #  *Modification Id* Act 
----------------------------+
47375  M01S00882.252l678 +++|          TEQ    (/CME/CSM,CME,/0CME/CSM)  CLEAR STORAGE
47376  M00S28496.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
47377  M01S28497.v23l617 ---| MST2     SA1    SD1L        PRESET FOR RE-ENTRY

Seq #  *Modification Id* Act 
----------------------------+
47378  M01S00490.v23l617 +++| MST2     TA1    CMMS,SDA    PRESET MOVE COUNT FOR REENTRY

Seq #  *Modification Id* Act 
----------------------------+
47379  M01S28498.271l716 ---|          EQ     /PROGRAM/MST2  COMPLETE STORAGE MOVE

Seq #  *Modification Id* Act 
----------------------------+
47380  M01S02105.271l716 +++|          EQ     /PROGRAM/MST3  COMPLETE STORAGE MOVE

Seq #  *Modification Id* Act 
----------------------------+
47381  M01S28499.ns2677  ---| PRS      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
47382  M01S00064.ns2677  +++| PRS      SPACE  4,20
47383  M00S28500.cpumtr  +++|**        PRS - PRESET EXTENSION TO CLEAR MEMORY AT DEADSTART.
47384  M00S28501.cpumtr  +++|*
47385  M00S28502.cpumtr  +++|*         THIS ROUTINE IS CALLED TO CLEAR ALL UNASSIGNED FIELD LENGTH
47386  M00S28503.cpumtr  +++|*         DURING DEADSTART IF MEMORY CLEARING IS ENABLED.
47387  M00S28504.cpumtr  +++|*
47388  M00S28505.cpumtr  +++|*         ENTRY  (PRSA) = RECOVERY LEVEL.
47389  M00S28506.cpumtr  +++|*                (A0) = LWA+1 OF *CPUMTR*.
47390  M00S28507.cpumtr  +++|*
47391  M00S28508.cpumtr  +++|*         EXIT   (0) = LWA+1 OF *CPUMTR* (TO BE PICKED UP BY *STL*).
47392  M00S28509.cpumtr  +++|*                TO *CPSL* (IN LOW CORE).
47393  M00S28510.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47394  M01S28511.ns2677  ---|*         USES   X - 1, 2, 3, 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
47395  M01S00065.ns2677  +++|*         USES   X - 0, 1, 2, 3, 4, 6.
47396  M00S28512.cpumtr  +++|*                A - 0, 1, 2, 3, 4, 6.
47397  M00S28513.cpumtr  +++|*                B - 3, 7.
47398  M00S28514.cpumtr  +++|*
47399  M00S28515.cpumtr  +++|*         CALLS  /CME/CSM, /0CME/CSM, /MCE/CUE.
47400  M00S28516.cpumtr  +++|
47401  M00S28517.cpumtr  +++|
47402  M00S28518.cpumtr  +++| PRS      SA2    PRSA        GET RECOVERY LEVEL
47403  M00S28519.cpumtr  +++|          SX6    A0+77B      LWA+1 OF *CPUMTR* (FWA TO CLEAR)
47404  M00S28520.cpumtr  +++|          SA1    1*200B+FLSW
47405  M00S28521.cpumtr  +++|          AX6    6
47406  M00S28522.cpumtr  +++|          SX2    X2-3
47407  M00S28523.cpumtr  +++|          NZ     X2,PRS1     IF NOT LEVEL 3 RECOVERY
47408  M00S28524.cpumtr  +++|          MX0    -12
47409  M00S28525.cpumtr  +++|          BX6    -X0*X1      FL/100B
47410  M00S28526.cpumtr  +++|          AX1    RSHF
47411  M00S28527.cpumtr  +++|          MX0    -RMSK
47412  M00S28528.cpumtr  +++|          BX1    -X0*X1
47413  M00S28529.cpumtr  +++|          IX6    X1+X6       RA + FL
47414  M00S28530.cpumtr  +++| PRS1     SA6    PRSB        START ADDRESS
47415  M00S28531.cpumtr  +++|          SB3    PRS3        *CSM* RETURN ADDRESS
47416  M00S28532.cpumtr  +++| PRS2     SA1    A1+200B     NEXT CONTROL POINT
47417  M00S28533.cpumtr  +++|          SA2    PRSB        CURRENT ADDRESS
47418  M00S28534.cpumtr  +++|          MX0    -RMSK
47419  M00S28535.cpumtr  +++|          AX1    RSHF
47420  M00S28536.cpumtr  +++|          BX4    -X0*X1      RA/100B
47421  M00S28537.cpumtr  +++|          AX1    48-RSHF     NFL/100B
47422  M00S28538.cpumtr  +++|          IX4    X4-X1       FWA OF USER FL (RA - NFL)
47423  M00S28539.cpumtr  +++|          IX1    X4-X2       WORD COUNT
47424  M00S28540.cpumtr  +++|          LX2    6
47425  M00S28541.cpumtr  +++|          LX1    6
47426  M00S28542.cpumtr  +++|          ZR     X1,PRS3     IF NO MEMORY TO CLEAR

Seq #  *Modification Id* Act 
----------------------------+
47427  M01S28543.252l678 ---|          TPL    X1,(/CME/CSM,/0CME/CSM,CME)  IF NO OVERLAP

Seq #  *Modification Id* Act 
----------------------------+
47428  M01S00883.252l678 +++|          TPL    X1,(/CME/CSM,CME,/0CME/CSM)  IF NO OVERLAP
47429  M00S28544.cpumtr  +++|          EQ     PRS4        BYPASS UPDATE OF CURRENT ADDRESS
47430  M00S28545.cpumtr  +++|
47431  M00S28546.cpumtr  +++| PRS3     SA1    A1          FIELD LENGTH CONTROL
47432  M00S28547.cpumtr  +++|          MX0    -12
47433  M00S28548.cpumtr  +++|          BX3    -X0*X1      FL/100B
47434  M00S28549.cpumtr  +++|          AX1    RSHF
47435  M00S28550.cpumtr  +++|          MX0    -RMSK
47436  M00S28551.cpumtr  +++|          BX1    -X0*X1      RA/100B
47437  M00S28552.cpumtr  +++|          IX6    X1+X3
47438  M00S28553.cpumtr  +++|          SA6    A2          UPDATE CURRENT ADDRESS
47439  M00S28554.cpumtr  +++| PRS4     SX1    A1+
47440  M00S28555.cpumtr  +++|          TX1    X1-FLSW,-SCA
47441  M00S28556.cpumtr  +++|          NZ     X1,PRS2     IF NOT LAST USER CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
47442  M01S28557.252l678 ---|          TEQ    (/MCE/PRS5,/MCE/PRS9,UEC)  PROCESS USER ECS

Seq #  *Modification Id* Act 
----------------------------+
47443  M01S00884.252l678 +++|          TEQ    (/MCE/PRS5,UEC,/MCE/PRS9)  PROCESS USER ECS
47444  M00S28558.cpumtr  +++|
47445  M00S28559.cpumtr  +++| PRS5     SA2    PRSA
47446  M00S28560.cpumtr  +++|          SA1    1*200B+ECSW
47447  M00S28561.cpumtr  +++|          SB7    A0          SAVE (A0)
47448  M00S28562.cpumtr  +++|          MX0    -12
47449  M00S28563.cpumtr  +++|          SX3    X2-3
47450  M00S28564.cpumtr  +++|          NZ     X3,PRS9     IF NOT LEVEL 3 RECOVERY

Seq #  *Modification Id* Act 
----------------------------+
47451  M01S28565.ns2184  ---|          BX2    -X0*X1      FL/1000B

Seq #  *Modification Id* Act 
----------------------------+
47452  M01S00009.ns2184  +++|          BX2    -X0*X1      FL/*UEBS*
47453  M00S28566.cpumtr  +++|          AX1    RSHF

Seq #  *Modification Id* Act 
----------------------------+
47454  M01S28567.252l678 ---|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
47455  M01S00885.252l678 +++|          MX0    -RMSK

Seq #  *Modification Id* Act 
----------------------------+
47456  M01S28568.ns2184  ---|          BX1    -X0*X1      RA/1000B

Seq #  *Modification Id* Act 
----------------------------+
47457  M01S00010.ns2184  +++|          BX1    -X0*X1      RA/*UEBS*
47458  M00S28569.cpumtr  +++|          IX6    X2+X1
47459  M00S28570.cpumtr  +++|          SA6    PRSB        START ADDRESS
47460  M00S28571.cpumtr  +++|          SB3    PRS7        *CUE* RETURN ADDRESS
47461  M00S28572.cpumtr  +++| PRS6     SA1    A1+200B     NEXT CONTROL POINT
47462  M00S28573.cpumtr  +++|          SA2    PRSB        CURRENT ADDRESS
47463  M00S28574.cpumtr  +++|          MX0    -RMSK
47464  M00S28575.cpumtr  +++|          AX1    RSHF

Seq #  *Modification Id* Act 
----------------------------+
47465  M01S28576.ns2184  ---|          BX4    -X0*X1      RA/1000B

Seq #  *Modification Id* Act 
----------------------------+
47466  M01S00011.ns2184  +++|          BX4    -X0*X1      RA/*UEBS*
47467  M00S28577.cpumtr  +++|          IX1    X4-X2       WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
47468  M01S28578.ns2677  ---|          SA3    UEML        GET UEM BASE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47469  M01S00066.ns2677  +++|          TSA3   (UEML,UEM,ZERL)
47470  M00S28579.cpumtr  +++|          MX0    -12
47471  M00S28580.cpumtr  +++|          AX3    48

Seq #  *Modification Id* Act 
----------------------------+
47472  M01S28581.ns2677  ---|          BX3    -X0*X3

Seq #  *Modification Id* Act 
----------------------------+
47473  M01S00067.ns2677  +++|          BX3    -X0*X3      UEM BASE ADDRESS IF UEM PRESENT

Seq #  *Modification Id* Act 
----------------------------+
47474  M01S28582.252l678 ---|          IX2    X2+X3       ABSOLUTE FWA

Seq #  *Modification Id* Act 
----------------------------+
47475  M01S00886.252l678 +++|          LX3    9
47476  M01S00887.252l678 +++|          TLX2   9,UESC
47477  M01S00888.252l678 +++|          IX2    X2+X3

Seq #  *Modification Id* Act 
----------------------------+
47478  M01S28583.ns2184  ---|          LX1    9
47479  M01S28584.ns2184  ---|          LX2    9

Seq #  *Modification Id* Act 
----------------------------+
47480  M02S00012.252l678 ---|          LX1    9+UESF
47481  M02S00013.252l678 ---|          LX2    9+UESF

Seq #  *Modification Id* Act 
----------------------------+
47482  M01S00889.252l678 +++|          TLX1   9,UESC
47483  M00S28585.cpumtr  +++|          ZR     X1,PRS7     IF NO MEMORY TO CLEAR
47484  M00S28586.cpumtr  +++|          PL     X1,CUE      IF NO OVERLAP
47485  M00S28587.cpumtr  +++|          EQ     PRS8        BYPASS UPDATE OF CURRENT ADDRESS
47486  M00S28588.cpumtr  +++|
47487  M00S28589.cpumtr  +++| PRS7     SA1    A1          FIELD LENGTH CONTROL
47488  M00S28590.cpumtr  +++|          MX0    -12
47489  M00S28591.cpumtr  +++|          BX3    -X0*X1      FL/1000B
47490  M00S28592.cpumtr  +++|          AX1    RSHF
47491  M00S28593.cpumtr  +++|          MX0    -RMSK
47492  M00S28594.cpumtr  +++|          BX1    -X0*X1      RA/1000B
47493  M00S28595.cpumtr  +++|          IX6    X1+X3
47494  M00S28596.cpumtr  +++|          SA6    A2          UPDATE CURRENT ADDRESS
47495  M00S28597.cpumtr  +++| PRS8     SX1    A1+
47496  M00S28598.cpumtr  +++|          TX1    X1-ECSW,-SCA
47497  M00S28599.cpumtr  +++|          NZ     X1,PRS6     IF NOT LAST CONTROL POINT
47498  M00S28600.cpumtr  +++|          SA0    B7+         RESTORE (A0)
47499  M00S28601.cpumtr  +++| PRS9     SX6    A0          SET LWA+1 OF *CPUMTR*
47500  M00S28602.cpumtr  +++|          SA6    B0
47501  M00S28603.cpumtr  +++|          EQ     CPSL        BRANCH TO STOP
47502  M00S28604.cpumtr  +++|
47503  M00S28605.cpumtr  +++|
47504  M00S28606.cpumtr  +++| PRSA     BSS    1           RECOVERY LEVEL
47505  M00S28607.cpumtr  +++| PRSB     BSS    1           CURRENT ADDRESS
47506  M00S28608.cpumtr  +++|
47507  M00S28609.cpumtr  +++|          ENDBLK
47508  M00S28610.cpumtr  +++|          BLOCK  NVE,(NVE ROUTINES.)

Seq #  *Modification Id* Act 
----------------------------+
47509  M01S02094.271l750 +++|          SPACE  4,10
47510  M01S02095.271l750 +++| MT       EQU    /MONITOR/MT
47511  M00S28611.cpumtr  +++| XJ1      SPACE  4,15
47512  M00S28612.cpumtr  +++|**        XJ1 - EXCHANGE PROCESSOR.
47513  M00S28613.cpumtr  +++|*
47514  M00S28614.cpumtr  +++|*         ENTRY  (B2) = EXCHANGE PACKAGE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
47515  M01S28615.ns2779  ---|*                (B3) = FWA OF *DSCB*.
47516  M00S28616.cpumtr  +++|*
47517  M00S28617.cpumtr  +++|*         EXIT   (X0) .LT. 0 IF EXCHANGE NEEDED.

Seq #  *Modification Id* Act 
----------------------------+
47518  M01S28618.ns2443  ---|*                TO *XJ1.1* TO EXCHANGE TO PROGRAM.

Seq #  *Modification Id* Act 
----------------------------+
47519  M01S00100.ns2443  +++|*                TO */CME/XJ3* TO EXCHANGE TO PROGRAM.
47520  M00S28619.cpumtr  +++|*
47521  M00S28620.cpumtr  +++|*         USES   X - 1, 2, 6, 7.
47522  M00S28621.cpumtr  +++|*                A - 1, 2, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
47523  M01S00001.ns2779  +++|*                B - 3.
47524  M00S28622.cpumtr  +++|
47525  M00S28623.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
47526  M01S28624.v23l617 ---| XJ1      TB3    DSCB

Seq #  *Modification Id* Act 
----------------------------+
47527  M02S00491.ns2779  ---| XJ1      TB3    A0,DSCB

Seq #  *Modification Id* Act 
----------------------------+
47528  M01S00002.ns2779  +++| XJ1      BSS    0           ENTRY
47529  M01S00003.ns2779  +++|          SB3    A0+
47530  M01S00004.ns2779  +++|          NZ     B3,/CME/XJ3 IF SECOND CPU
47531  M01S00005.ns2779  +++|          TB3    A0,DSCB
47532  M00S28625.cpumtr  +++|          SA1    B3+/DST/D7JP  JOB PRIORITY
47533  M00S28626.cpumtr  +++|          SA2    B3+/DST/D8JP  TASK PRIORITY
47534  M00S28627.cpumtr  +++|          MX7    -16
47535  M00S28628.cpumtr  +++|          BX6    X6-X6

Seq #  *Modification Id* Act 
----------------------------+
47536  M01S28629.ns2443  ---|          ZR     X2,/MONITOR/XJ1.1  IF NO TASK PRESENT

Seq #  *Modification Id* Act 
----------------------------+
47537  M01S00101.ns2443  +++|          ZR     X2,/CME/XJ3 IF NO TASK PRESENT
47538  M00S28630.cpumtr  +++|          BX1    -X7*X1
47539  M00S28631.cpumtr  +++|          SA6    /MONITOR/IP CLEAR PRIORITY INCREASE
47540  M00S28632.cpumtr  +++|          RC     X6          READ MICROSECOND COUNTER
47541  M00S28633.cpumtr  +++|          AX6    14
47542  M00S28634.cpumtr  +++|          BX2    -X7*X2
47543  M00S28635.cpumtr  +++|          MX7    -4
47544  M00S28636.cpumtr  +++|          BX6    -X7*X6      EXTRACT SUB-PRIORITY
47545  M00S28637.cpumtr  +++|          BX1    X1+X6
47546  M00S28638.cpumtr  +++|          IX7    X1-X2       COMPARE PRIORITIES

Seq #  *Modification Id* Act 
----------------------------+
47547  M01S28639.ns2443  ---|          PL     X7,/MONITOR/XJ1.1  IF NO EXCHANGE NEEDED

Seq #  *Modification Id* Act 
----------------------------+
47548  M01S00102.ns2443  +++|          PL     X7,/CME/XJ3 IF NO EXCHANGE NEEDED
47549  M00S28640.cpumtr  +++|          AX2    8

Seq #  *Modification Id* Act 
----------------------------+
47550  M01S28641.ns2443  ---|          ZR     X2,/MONITOR/XJ1.1  IF NO EXCHANGE NEEDED

Seq #  *Modification Id* Act 
----------------------------+
47551  M01S00103.ns2443  +++|          ZR     X2,/CME/XJ3 IF NO EXCHANGE NEEDED

Seq #  *Modification Id* Act 
----------------------------+
47552  M01S28642.242l642 ---|          MX0    1

Seq #  *Modification Id* Act 
----------------------------+
47553  M01S00670.242l642 +++|          SA1    PPXL
47554  M01S00671.242l642 +++|          ZR     X1,XJ11     IF NO PP EXCHANGE REQUESTED/PENDING
47555  M01S00672.242l642 +++|          SA1    XJ1A        RESIDUAL COUNTDOWN
47556  M01S00673.242l642 +++|          NZ     X1,XJ12     IF NOS/VE BYPASS LIMIT NOT REACHED
47557  M01S00674.242l642 +++|          SA2    VEBL        NOS/VE BYPASS LIMIT
47558  M01S00675.242l642 +++|          MX6    -12
47559  M01S00676.242l642 +++|          BX6    -X6*X2
47560  M01S00677.242l642 +++|          SA6    A1          INITIALIZE COUNTDOWN
47561  M01S00678.242l642 +++| XJ11     MX0    1

Seq #  *Modification Id* Act 
----------------------------+
47562  M01S28643.ns2443  ---|          JP     /MONITOR/XJ1.1  EXCHANGE

Seq #  *Modification Id* Act 
----------------------------+
47563  M01S00104.ns2443  +++|          JP     /CME/XJ3    EXCHANGE

Seq #  *Modification Id* Act 
----------------------------+
47564  M01S00679.242l642 +++|
47565  M01S00680.242l642 +++| XJ12     SX6    X1-1        DECREMENT COUNTDOWN
47566  M01S00681.242l642 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
47567  M02S00682.ns2443  ---|          JP     /MONITOR/XJ1.1  NO EXCHANGE TO NOS/VE FOR NOW

Seq #  *Modification Id* Act 
----------------------------+
47568  M01S00105.ns2443  +++|          JP     /CME/XJ3    NO EXCHANGE TO NOS/VE FOR NOW

Seq #  *Modification Id* Act 
----------------------------+
47569  M01S00683.242l642 +++|
47570  M01S00684.242l642 +++| XJ1A     CON    0           NOS/VE BYPASS COUNTDOWN

Seq #  *Modification Id* Act 
----------------------------+
47571  M01S28644.271l750 ---| SVS      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
47572  M01S02096.271l750 +++| SVS      SPACE  4,15
47573  M00S28645.cpumtr  +++|**        SVS - SET SCHEDULING DATA.

Seq #  *Modification Id* Act 
----------------------------+
47574  M01S02097.271l750 +++|*
47575  M01S02098.271l750 +++|*         ENTERED AT *SVS1* FROM */MONITOR/SPR*.
47576  M00S28646.cpumtr  +++|*
47577  M00S28647.cpumtr  +++|*         EXIT   WORD *D7JP* IN *DSCB* SET UP.
47578  M00S28648.cpumtr  +++|*                24/ JSN,12/ EJT ORDINAL,8/ TRAP VALIDATION,16/PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
47579  M01S00685.242l642 +++|*                (*MLST*) MOVED TO *NVE* BUFFER IF DATA TO BE MOVED.
47580  M00S28649.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47581  M01S28650.242l642 ---|*         USES   X - 0, 2, 4, 6, 7.
47582  M01S28651.242l642 ---|*                A - 2, 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
47583  M01S00686.242l642 +++|*         USES   X - 0, 2, 4, 5, 6, 7.
47584  M01S00687.242l642 +++|*                A - 2, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
47585  M02S00688.271l750 ---|*                B - 3, 4.

Seq #  *Modification Id* Act 
----------------------------+
47586  M01S02099.271l750 +++|*                B - 3, 4, 5, 6.
47587  M00S28652.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
47588  M01S00689.242l642 +++|          SYSCOM
47589  M00S28653.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
47590  M01S28654.v22l602 ---| VESO     SET    NVSI-MNSI   POSITION OF *NVE* DATA IN *SSCW*
47591  M01S28655.v22l602 ---|

Seq #  *Modification Id* Act 
----------------------------+
47592  M01S28656.cpum109 ---| SVS      TB3    DSCB

Seq #  *Modification Id* Act 
----------------------------+
47593  M02S00001.271l716 ---| SVS      TB3    A0,DSCB

Seq #  *Modification Id* Act 
----------------------------+
47594  M01S02106.271l716 +++| SVS      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
47595  M02S02107.271l750 ---|          TB3    A0,DSCB

Seq #  *Modification Id* Act 
----------------------------+
47596  M01S02100.271l750 +++|          SA4    B2+CWQW     GET CPU PRIORITY
47597  M01S02101.271l750 +++|          SB6    /MONITOR/BNJ20  SET *BNJ* RETURN ADDRESS
47598  M01S02102.271l750 +++|          UX4,B5 X4          UNPACK CPU PRIORITY AND FLAGS
47599  M01S02103.271l750 +++|          SX5    B5+         SET CPU PRIORITY
47600  M01S02104.271l750 +++|          MX0    -12
47601  M01S02105.271l750 +++|
47602  M01S02106.271l750 +++|*         ENTRY FROM */MONITOR/SPR*.
47603  M01S02107.271l750 +++|*         (B6) = RETURN ADDRESS.
47604  M01S02108.271l750 +++|*         (X5 BITS 3 - 9) = CPU PRIORITY.
47605  M01S02109.271l750 +++|*         (X0) = 77...770000B.
47606  M01S02110.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
47607  M02S02111.ns2779  ---| SVS1     TB3    A0,DSCB

Seq #  *Modification Id* Act 
----------------------------+
47608  M01S00006.ns2779  +++| SVS1     BSS    0           ENTRY
47609  M01S00007.ns2779  +++|          SB3    A0+
47610  M01S00008.ns2779  +++|          NZ     B3,/MONITOR/RB6  IF SECOND CPU
47611  M01S00009.ns2779  +++|          TB3    A0,DSCB
47612  M00S28657.cpumtr  +++|          SA2    /MONITOR/IP SUB-PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
47613  M01S28658.271l716 ---|          SA4    B7+JCIW     SUBSYSTEM ID

Seq #  *Modification Id* Act 
----------------------------+
47614  M02S02108.271l750 ---|          SA4    B7+JCIW     GET SUBSYSTEM ID AND CPU PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
47615  M01S28659.271l750 ---|          BX6    X2
47616  M01S28660.271l750 ---|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
47617  M01S02112.271l750 +++|          SA4    B7+JCIW     GET SUBSYSTEM ID
47618  M01S02113.271l750 +++|          SX6    X2+

Seq #  *Modification Id* Act 
----------------------------+
47619  M01S28661.v22l602 ---|          SA2    B7+SSCW     SUBSYSTEM CONNECT INFORMATION
47620  M00S28662.cpumtr  +++|          AX4    24-0

Seq #  *Modification Id* Act 
----------------------------+
47621  M01S02114.271l750 +++|          SA2    SSTL
47622  M00S28663.cpumtr  +++|          BX7    -X0*X4
47623  M00S28664.cpumtr  +++|          SX7    X7-NVSI     NVE SUBSYSTEM ID

Seq #  *Modification Id* Act 
----------------------------+
47624  M01S28665.271l716 ---|          AX4    49-0-24

Seq #  *Modification Id* Act 
----------------------------+
47625  M02S00690.271l716 ---|          BX5    X4

Seq #  *Modification Id* Act 
----------------------------+
47626  M02S02109.271l750 ---|          MX0    -7
47627  M02S02110.271l750 ---|          AX4    48-0-24
47628  M02S02111.271l750 ---|          BX5    -X0*X4      CPU PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
47629  M01S28666.v22l602 ---|          SX0    B1

Seq #  *Modification Id* Act 
----------------------------+
47630  M01S28667.ns2627  ---|          NZ     X7,SVS1     IF NOT NVE SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
47631  M01S00001.ns2627  +++|          MX0    3

Seq #  *Modification Id* Act 
----------------------------+
47632  M02S00002.271l750 ---|          ZR     X7,SVS0.1   IF NVE SUBSYSTEM
47633  M02S00003.271l750 ---|          SA2    SSTL

Seq #  *Modification Id* Act 
----------------------------+
47634  M01S00004.ns2627  +++|          LX2    59-44

Seq #  *Modification Id* Act 
----------------------------+
47635  M02S00005.271l750 ---|          NG     X2,SVS1     IF HARDWARE FAULT INJECTION IS DISABLED
47636  M02S00006.271l750 ---| SVS0.1   LX0    16-57       SET *V1*, *V2*, AND *V3* BITS

Seq #  *Modification Id* Act 
----------------------------+
47637  M01S02115.271l750 +++|          ZR     X7,SVS2     IF NVE SUBSYSTEM
47638  M01S02116.271l750 +++|          NG     X2,SVS4     IF HARDWARE FAULT INJECTION IS DISABLED
47639  M01S02117.271l750 +++| SVS2     LX0    16-57       SET *V1*, *V2*, AND *V3* BITS

Seq #  *Modification Id* Act 
----------------------------+
47640  M01S00007.ns2627  +++|          BX6    X0+X6

Seq #  *Modification Id* Act 
----------------------------+
47641  M02S00008.271l750 ---|          NZ     X7,SVS1     IF NOT NVE SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
47642  M01S02118.271l750 +++|          NZ     X7,SVS4     IF NOT NVE SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
47643  M01S00691.242l642 +++|          TA2    NVESS       *SSCT* WORD CONTAINING *NVE* BYTE

Seq #  *Modification Id* Act 
----------------------------+
47644  M01S28668.ns2627  ---|          MX7    3           SET *V1*, *V2*, AND *V3* BITS
47645  M01S28669.ns2627  ---|          LX7    16-57
47646  M01S28670.ns2627  ---|          BX6    X7+X6

Seq #  *Modification Id* Act 
----------------------------+
47647  M01S28671.242l642 ---| SVS1     ZR     X4,SVS3     IF IDLE JOB
47648  M01S28672.242l642 ---|          AX4    3           FORM NORMALIZED PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
47649  M01S00692.242l642 +++|          TLX2   0,NVEOS

Seq #  *Modification Id* Act 
----------------------------+
47650  M02S00693.271l750 ---|          PL     X2,SVS1     IF *NVE* NOT YET ACTIVATED

Seq #  *Modification Id* Act 
----------------------------+
47651  M01S02119.271l750 +++|          PL     X2,SVS4     IF *NVE* NOT YET ACTIVATED

Seq #  *Modification Id* Act 
----------------------------+
47652  M01S00694.242l642 +++|          SA2    B3+/DST/D7ST  GET POINTER TO *MLST*
47653  M01S00695.242l642 +++|          MX0    -18
47654  M01S00696.242l642 +++|          LX2    -18
47655  M01S00697.242l642 +++|          BX7    -X0*X2      *MLST* ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47656  M02S00698.271l750 ---|          ZR     X7,SVS1     IF NO *MLST*

Seq #  *Modification Id* Act 
----------------------------+
47657  M01S02120.271l750 +++|          ZR     X7,SVS4     IF NO *MLST*

Seq #  *Modification Id* Act 
----------------------------+
47658  M01S00699.242l642 +++|          SA4    X7          PICK UP THE FLAG/COUNT WORD

Seq #  *Modification Id* Act 
----------------------------+
47659  M02S00700.271l750 ---|          ZR     X4,SVS1     IF NO ACTIVE ENTRIES IN *MLST*

Seq #  *Modification Id* Act 
----------------------------+
47660  M01S02121.271l750 +++|          ZR     X4,SVS4     IF NO ACTIVE ENTRIES IN *MLST*

Seq #  *Modification Id* Act 
----------------------------+
47661  M01S00701.242l642 +++|          SX0    MLBR        *NVE* BUFFER POINTER
47662  M01S00702.242l642 +++|          SA2    B2+B1       GET RA FROM EXCHANGE PACKAGE
47663  M01S00703.242l642 +++|          AX2    36-0
47664  M01S00704.242l642 +++|          IX0    X0+X2
47665  M01S00705.242l642 +++|          ERX2   X0          PICK UP MESSAGE LINK BUFFER POINTER
47666  M01S00706.242l642 +++|          MX0    -18
47667  M01S00707.242l642 +++|          BX0    -X0*X2

Seq #  *Modification Id* Act 
----------------------------+
47668  M02S00708.271l750 ---|          ZR     X0,SVS1     IF NO BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47669  M01S02122.271l750 +++|          ZR     X0,SVS4     IF NO BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47670  M01S00709.242l642 +++|          SX7    X4+B1       TOTAL WORDS TO TRANSFER
47671  M01S00710.242l642 +++|          SA2    B2+2        GET FLC FROM EXCHANGE PACKAGE
47672  M01S00711.242l642 +++|          AX2    36-0
47673  M01S00712.242l642 +++|          IX2    X2-X7       SUBTRACT OUT TRANSFER WORD COUNT
47674  M01S00713.242l642 +++|          IX2    X2-X0       SUBTRACT OUT BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47675  M02S00714.271l750 ---|          NG     X2,SVS1     IF BUFFER EXTENDS BEYOND FL

Seq #  *Modification Id* Act 
----------------------------+
47676  M01S02123.271l750 +++|          NG     X2,SVS4     IF BUFFER EXTENDS BEYOND FL

Seq #  *Modification Id* Act 
----------------------------+
47677  M01S00715.242l642 +++|          SA2    B2+B1       GET RA AGAIN
47678  M01S00716.242l642 +++|          SB4    X7          WORDS TO TRANSFER
47679  M01S00717.242l642 +++|          AX2    36-0
47680  M01S00718.242l642 +++|          BX7    X4
47681  M01S00719.242l642 +++|          IX0    X0+X2       ABSOLUTE BUFFER ADDRESS
47682  M01S00720.242l642 +++|          EWX7   X0          ACTIVE WORD COUNT TO FIRST WORD OF BUFFER
47683  M01S00721.242l642 +++|          BX7    X7-X7
47684  M01S00722.242l642 +++|          SA7    A4          CLEAR ACTIVE WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
47685  M02S00723.271l750 ---| SVS0     SB4    B4-B1       DECREMENT LOOP COUNTER

Seq #  *Modification Id* Act 
----------------------------+
47686  M01S02124.271l750 +++| SVS3     SB4    B4-B1       DECREMENT LOOP COUNTER

Seq #  *Modification Id* Act 
----------------------------+
47687  M01S00724.242l642 +++|          SA2    B4+A4       GET WORD FROM *MLST*
47688  M01S00725.242l642 +++|          BX7    X2
47689  M01S00726.242l642 +++|          SX2    B4
47690  M01S00727.242l642 +++|          IX2    X2+X0
47691  M01S00728.242l642 +++|          EWX7   X2          STORE WORD IN *NVE* BUFFER

Seq #  *Modification Id* Act 
----------------------------+
47692  M02S00729.271l750 ---|          GT     B4,B1,SVS0  IF MORE ACTIVE WORDS TO MOVE
47693  M02S00730.271l750 ---| SVS1     ZR     X5,SVS3     IF IDLE JOB
47694  M02S00731.271l750 ---|          AX5    3           FORM NORMALIZED PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
47695  M02S28673.271l750 ---|          SX7    X4-10B
47696  M02S28674.271l750 ---|          LX0    18-0        SET *V3* BIT IF CONNECTION TO *NVE*
47697  M02S28675.271l750 ---|          LX2    18-4*VESO-3
47698  M02S28676.271l750 ---|          BX2    X0*X2

Seq #  *Modification Id* Act 
----------------------------+
47699  M02S00020.271l750 ---|          SA2    B7+SSCW     CHECK FOR *NVE* CONNECTION

Seq #  *Modification Id* Act 
----------------------------+
47700  M01S02125.271l750 +++|          GT     B4,B1,SVS3  IF MORE ACTIVE WORDS TO MOVE
47701  M01S02126.271l750 +++| SVS4     SA2    B7+SSCW     CHECK FOR *NVE* CONNECTION
47702  M01S02127.271l750 +++|          SB5    X5-IDCS*10B-10B
47703  M01S02128.271l750 +++|          NG     B5,SVS8     IF IDLE PACKAGE
47704  M01S02129.271l750 +++|          AX5    6           FORM NORMALIZED PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
47705  M01S00021.v22l602 +++|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
47706  M02S00022.271l750 ---| SVS1.1   ZR     X2,SVS1.2   IF NO CONNECTIONS

Seq #  *Modification Id* Act 
----------------------------+
47707  M01S02130.271l750 +++| SVS5     ZR     X2,SVS6     IF NO CONNECTIONS

Seq #  *Modification Id* Act 
----------------------------+
47708  M01S00023.v22l602 +++|          BX7    -X0*X2      CHECK NEXT BYTE
47709  M01S00024.v22l602 +++|          BX2    X0*X2
47710  M01S00025.v22l602 +++|          LX7    -6
47711  M01S00026.v22l602 +++|          SX7    X7+LSSI-NVSI
47712  M01S00027.v22l602 +++|          LX2    12

Seq #  *Modification Id* Act 
----------------------------+
47713  M02S00028.271l716 ---|          NZ     X7,SVS1.1   IF NOT *NVE*
47714  M02S00029.271l716 ---|          SX2    B1          SET VALIDATION BIT

Seq #  *Modification Id* Act 
----------------------------+
47715  M02S02112.271l750 ---|          NZ     X7,SVS1.1   IF JOB NOT CONNECTED TO *NVE*

Seq #  *Modification Id* Act 
----------------------------+
47716  M01S02131.271l750 +++|          NZ     X7,SVS5     IF JOB NOT CONNECTED TO *NVE*

Seq #  *Modification Id* Act 
----------------------------+
47717  M01S02113.271l716 +++|          SX2    B1          SET *V3* VALIDATION BIT

Seq #  *Modification Id* Act 
----------------------------+
47718  M01S00030.v22l602 +++|          LX2    18-0

Seq #  *Modification Id* Act 
----------------------------+
47719  M02S00031.242l642 ---| SVS1.2   SX7    X4-10B

Seq #  *Modification Id* Act 
----------------------------+
47720  M01S28677.242l642 ---|          LX4    8

Seq #  *Modification Id* Act 
----------------------------+
47721  M02S00732.271l750 ---| SVS1.2   SX7    X5-10B

Seq #  *Modification Id* Act 
----------------------------+
47722  M01S02132.271l750 +++| SVS6     SX7    X5-MPRS/10B

Seq #  *Modification Id* Act 
----------------------------+
47723  M01S00733.242l642 +++|          LX5    8

Seq #  *Modification Id* Act 
----------------------------+
47724  M01S28678.ns2627  ---|          IX6    X6+X2       ADD VALIDATION BIT

Seq #  *Modification Id* Act 
----------------------------+
47725  M01S00009.ns2627  +++|          BX6    X6+X2       ADD VALIDATION BIT

Seq #  *Modification Id* Act 
----------------------------+
47726  M01S28679.242l642 ---|          BX6    X6+X4       ADD PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
47727  M01S00734.242l642 +++|          BX6    X6+X5       ADD PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
47728  M01S28680.271l750 ---|          ZR     X7,SVS3     IF PROGRAM MODE

Seq #  *Modification Id* Act 
----------------------------+
47729  M02S28681.271l750 ---|          NZ     X4,SVS2     IF NOT MAINTENANCE JOB

Seq #  *Modification Id* Act 
----------------------------+
47730  M02S00735.271l750 ---|          NZ     X5,SVS2     IF NOT MAINTENANCE JOB

Seq #  *Modification Id* Act 
----------------------------+
47731  M01S02133.271l750 +++|          ZR     X7,SVS8     IF SYSTEM CP OR STORAGE MOVE PACKAGE
47732  M01S02134.271l750 +++|          NZ     X5,SVS7     IF NOT MAINTENANCE JOB
47733  M00S28682.cpumtr  +++|          SX4    1S8         SET PRIORITY OF 1
47734  M00S28683.cpumtr  +++|          BX6    X6+X4

Seq #  *Modification Id* Act 
----------------------------+
47735  M01S28684.271l750 ---| SVS2     SA2    B7+TFSW     FORM UNIQUE ID FROM JSN AND EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
47736  M01S02135.271l750 +++| SVS7     SA2    B7+TFSW     FORM UNIQUE ID FROM JSN AND EJT ORDINAL
47737  M00S28685.cpumtr  +++|          AX2    48
47738  M00S28686.cpumtr  +++|          MX7    -12
47739  M00S28687.cpumtr  +++|          BX7    -X7*X2
47740  M00S28688.cpumtr  +++|          BX2    X7
47741  M00S28689.cpumtr  +++|          LX7    -36
47742  M00S28690.cpumtr  +++|          BX6    X7+X6       ADD EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
47743  M01S28691.261l700 ---|          SX0    EJTE
47744  M01S28692.261l700 ---|          IX2    X0*X2
47745  M01S28693.261l700 ---|          TA4    X2+JSNE,EJT READ EJT

Seq #  *Modification Id* Act 
----------------------------+
47746  M01S00155.261l700 +++|          CX4    X2,EJT      CONVERT EJT ORDINAL TO OFFSET
47747  M01S00156.261l700 +++|          TA4    X4+JSNE,EJT READ EJT
47748  M00S28694.cpumtr  +++|          MX0    6*4
47749  M00S28695.cpumtr  +++|          BX4    X0*X4
47750  M00S28696.cpumtr  +++|          BX6    X4+X6       ADD JSN

Seq #  *Modification Id* Act 
----------------------------+
47751  M01S28697.271l750 ---| SVS3     SA6    B3+/DST/D7JP  WRITE *D7JP* WORD
47752  M01S28698.271l750 ---|          JP     /MONITOR/BNJ8  RETURN
47753  M01S28699.271l750 ---| CPT      SPACE  4,10
47754  M01S28700.271l750 ---|**        CPT - CALCULATE CP TIME.

Seq #  *Modification Id* Act 
----------------------------+
47755  M01S02136.271l750 +++| SVS8     SA6    B3+/DST/D7JP  WRITE *D7JP* WORD
47756  M01S02137.271l750 +++|          JP     B6          RETURN
47757  M01S02138.271l750 +++| CPT      SPACE  4,15
47758  M01S02139.271l750 +++|**        CPT - EXTENSION FOR *NVE*.
47759  M00S28701.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47760  M01S28702.271l750 ---|*         ENTRY  (X6) = MICROSECOND COUNTER.
47761  M01S28703.271l750 ---|*                (X2) = START TIME.

Seq #  *Modification Id* Act 
----------------------------+
47762  M01S02140.271l750 +++|*         ENTRY  (B3) = EXIT ADDRESS.
47763  M01S02141.271l750 +++|*                (B6) = 200B IF ENTERED AT *CPT1* (*BNJ* CALL).
47764  M00S28704.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47765  M01S28705.271l750 ---|*         EXIT   (X2) = ADJUSTED START TIME.

Seq #  *Modification Id* Act 
----------------------------+
47766  M02S02142.ns2779  ---|*         EXIT   TO  /MONITOR/CPT1.

Seq #  *Modification Id* Act 
----------------------------+
47767  M01S00010.ns2779  +++|*         EXIT   TO /MONITOR/CPT1.
47768  M01S00011.ns2779  +++|*                TO /CME/CPT1 IF SECOND CPU.

Seq #  *Modification Id* Act 
----------------------------+
47769  M01S02143.271l750 +++|*                (X0) = CPU TIME INCREMENT IN MACHINE UNITS.
47770  M01S02144.271l750 +++|*                (MT+A0) = 0 IF RA+1 PROCESS AND NOT CPU SWITCH.
47771  M01S02145.271l750 +++|*                (MT+A0) = -ACAD2 IF NOT RA+1 PROCESS OR IF CPU SWICH.
47772  M01S02146.271l750 +++|*                (CL+CPBT+A0) RESET TO CURRENT CLOCK.
47773  M01S02147.271l750 +++|*                (CL+CMST+A0) UPDATED.
47774  M00S28706.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47775  M01S28707.271l750 ---|*         USES   X - 1, 2, 3, 7.
47776  M01S28708.271l750 ---|*                A - 1, 3, 7.

Seq #  *Modification Id* Act 
----------------------------+
47777  M01S02148.271l750 +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
47778  M01S02149.271l750 +++|*                A - 1, 3, 6, 7.
47779  M01S02150.271l750 +++|*                B - 4, 6.
47780  M00S28709.cpumtr  +++|
47781  M00S28710.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
47782  M01S28711.v23l617 ---| CPT      TB4    DSCB

Seq #  *Modification Id* Act 
----------------------------+
47783  M02S00492.271l750 ---| CPT      TB4    A0,DSCB

Seq #  *Modification Id* Act 
----------------------------+
47784  M01S28712.271l750 ---|          SA1    B4+/DST/D8TM
47785  M01S28713.271l750 ---|          SA3    B4+/DST/D7SV  TIME ACCOUNTED FOR
47786  M01S28714.271l750 ---|          IX7    X1-X3       TIME INCREMENT
47787  M01S28715.271l750 ---|          IX2    X2+X7       ADJUST START TIME
47788  M01S28716.271l750 ---|          BX7    X1          UPDATE ACCOUNTED FOR TIME
47789  M01S28717.271l750 ---|          SA7    A3
47790  M01S28718.271l750 ---|          JP     /MONITOR/CPT1.1  RETURN

Seq #  *Modification Id* Act 
----------------------------+
47791  M01S02151.271l750 +++| CPT      BSS    0           ENTRY
47792  M01S02152.271l750 +++|          SB6    B0+         DO NOT SET CPU SWITCH FLAG
47793  M01S02153.271l750 +++|
47794  M01S02154.271l750 +++|*         ENTRY FROM /MONITOR/*BNJ*.
47795  M01S02155.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
47796  M02S02156.ns2779  ---| CPT1     SA1    CL+CMST+A0  GET MONITOR MODE PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
47797  M01S00012.ns2779  +++| CPT1     BSS    0           ENTRY
47798  M01S00013.ns2779  +++|          SX1    A0+
47799  M01S00014.ns2779  +++|          NZ     X1,/CME/CPT1  IF SECOND CPU
47800  M01S00015.ns2779  +++|          SA1    CL+CMST+A0  GET MONITOR MODE PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
47801  M01S02157.271l750 +++|          SA3    MT+A0       GET MONITOR MODE ACCUMULATED TIME
47802  M01S02158.271l750 +++|          RT     X0,40B      READ AND CLEAR PIT
47803  M01S02159.271l750 +++|          RC     X6          READ CLOCK
47804  M01S02160.271l750 +++|          UX1,B4 X1
47805  M01S02161.271l750 +++|          SB6    B4+B6       SET CPU SWITCH STATUS
47806  M01S02162.271l750 +++|          PX7    B6,X6       SET FUNCTION WITH STATUS AND NEW BASE TIME
47807  M01S02163.271l750 +++|          SA7    A1          UPDATE MONITOR MODE STATUS
47808  M01S02164.271l750 +++|          SX7    B0          SET TO CLEAR MONITOR MODE ACCUMULATOR
47809  M01S02165.271l750 +++|          ZR     B6,CPT3     IF RA+1 PROCESS AND NOT CPU SWITCH
47810  M01S02166.271l750 +++|          ERRNZ  CCPF        CODE DEPENDS ON VALUE
47811  M01S02167.271l750 +++|          TX7    -ACAD2      - (EXCHANGE JUMP TIME)
47812  M01S02168.271l750 +++|          ZR     B4,CPT3     IF RA+1 PROCESS
47813  M01S02169.271l750 +++|
47814  M01S02170.271l750 +++|*         COMPUTE MONITOR MODE TIME SINCE LAST BASE TIME.
47815  M01S02171.271l750 +++|
47816  M01S02172.271l750 +++|          PL     X3,CPT2     IF *MT* NOT PREVIOUSLY ADJUSTED BY *CPT*
47817  M01S02173.271l750 +++|          SX3    B0+
47818  M01S02174.271l750 +++| CPT2     IX5    X6-X1       MONITOR MODE TIME INCREMENT
47819  M01S02175.271l750 +++|          IX3    X3+X5       ADD INCREMENT TO ACCUMULATED TIME
47820  M01S02176.271l750 +++|          IX3    X3-X7       ADD EXCHANGE JUMP TIME
47821  M01S02177.271l750 +++|
47822  M01S02178.271l750 +++|*         COMPUTE PROGRAM MODE CPU TIME USED.
47823  M01S02179.271l750 +++|*
47824  M01S02180.271l750 +++|*         IF MONITOR MODE WAS NOT ENTERED TO PROCESS AN RA+1 CALL OR IF
47825  M01S02181.271l750 +++|*         A CPU SWITCH IS PENDING, THE MONITOR MODE ACCUMULATOR FOR THE
47826  M01S02182.271l750 +++|*         CPU WILL BE RESET WITH A VALUE OF *-ACAD2*.  SINCE EXIT FROM
47827  M01S02183.271l750 +++|*         MONITOR MODE ADDS AN INCREMENT OF *ACAD* (TWICE THE VALUE OF
47828  M01S02184.271l750 +++|*         *ACAD2*) TO THE ACCUMULATOR, THE RESULT IN THIS CASE WILL BE
47829  M01S02185.271l750 +++|*         TO ACCOUNT ONLY FOR THE EXCHANGE JUMP BACK TO PROGRAM MODE.
47830  M01S02186.271l750 +++|*         *CPT* WILL ALREADY HAVE ACCOUNTED FOR THE EXCHANGE JUMP INTO
47831  M01S02187.271l750 +++|*         MONITOR MODE.
47832  M01S02188.271l750 +++|
47833  M01S02189.271l750 +++| CPT3     MX2    28
47834  M01S02190.271l750 +++|          SA7    A3          RESET MONITOR MODE ACCUMULATOR
47835  M01S02191.271l750 +++|          BX0    -X2-X0      170 MODE TIME USED
47836  M01S02192.271l750 +++|          IX0    X0-X3       DEDUCT MONITOR MODE TIME
47837  M01S02193.271l750 +++|          SA6    CL+CPBT+A0  RESET PROGRAM MODE BASE TIME
47838  M01S02194.271l750 +++|          PL     X0,/MONITOR/CPT1  IF NO UNDERFLOW ON ADJUSTMENT
47839  M01S02195.271l750 +++|          SX0    B0
47840  M01S02196.271l750 +++|          EQ     /MONITOR/CPT1  ENTER MAIN *CPT* PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
47841  M01S00022.cpumt85 +++| AVP      SPACE  4,15
47842  M01S00023.cpumt85 +++|**        AVP - ASSIGN VIRTUAL PP.
47843  M01S00024.cpumt85 +++|*
47844  M01S00025.cpumt85 +++|*         ENTRY  (X6) = PP CALL.
47845  M01S00026.cpumt85 +++|*                (B4) = -1 (PRIORITY PP REQUEST).
47846  M01S00027.cpumt85 +++|*
47847  M01S00028.cpumt85 +++|*         EXIT   TWO COPIES OF *1VP* ARE ASSIGNED.  THESE MUST BE IN
47848  M01S00029.cpumt85 +++|*                PARTNER PP-S.  IF NO SUCH PAIR IS AVAILABLE, THEN NO
47849  M01S00030.cpumt85 +++|*                ASSIGNMENT IS MADE.
47850  M01S00031.cpumt85 +++|*
47851  M01S00032.cpumt85 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
47852  M01S00033.cpumt85 +++|*                A - 1, 2, 6, 7.
47853  M01S00034.cpumt85 +++|*                B - 3, 5.
47854  M01S00035.cpumt85 +++|*
47855  M01S00036.cpumt85 +++|*         CALLS  APQ.
47856  M01S00037.cpumt85 +++|
47857  M01S00038.cpumt85 +++|
47858  M01S00039.cpumt85 +++| AVP      SA2    PPAL        DETERMINE IF A PARTNER PAIR IS FREE
47859  M01S00040.cpumt85 +++|          SB5    7
47860  M01S00041.cpumt85 +++|          SX4    B1          INITIALIZE MASK
47861  M01S00042.cpumt85 +++|          BX7    X4
47862  M01S00043.cpumt85 +++|          LX4    45-0        FIRST BANK = PP 2
47863  M01S00044.cpumt85 +++|          LX7    30-0        SECOND BANK = PP 22
47864  M01S00045.cpumt85 +++| AVP1     BX3    X4+X7
47865  M01S00046.cpumt85 +++|          BX1    X3*X2
47866  M01S00047.cpumt85 +++|          BX1    X1-X3
47867  M01S00048.cpumt85 +++|          SB5    B5-B1
47868  M01S00049.cpumt85 +++|          ZR     X1,AVP3     IF PAIR IS AVAILABLE
47869  M01S00050.cpumt85 +++|          LX4    -1          ADVANCE FIRST BANK PP
47870  M01S00051.cpumt85 +++|          LX7    1           ADVANCE SECOND BANK PP
47871  M01S00052.cpumt85 +++|          PL     B5,AVP1     IF MORE PP-S TO CHECK
47872  M01S00053.cpumt85 +++|          SX7    B0+

Seq #  *Modification Id* Act 
----------------------------+
47873  M02S00054.ns2332b ---| AVP2     MX6    20          RESTORE *PPAL* MASK FOR *APQ*
47874  M02S00055.ns2332b ---|          LX6    -12
47875  M02S00056.ns2332b ---|          SA6    /MONITOR/APQC

Seq #  *Modification Id* Act 
----------------------------+
47876  M01S00057.cpumt85 +++|          EQ     /MONITOR/PPR1  SET REPLY
47877  M01S00058.cpumt85 +++|
47878  M01S00059.cpumt85 +++| AVP3     SB3    AVP4        *APQ* RETURN ADDRESS
47879  M01S00060.cpumt85 +++|          SA7    /MONITOR/APQC   SET PP TO SELECT
47880  M01S00061.cpumt85 +++|          BX7    X4          SAVE PARTNER PP MASK
47881  M01S00062.cpumt85 +++|          SA7    AVPA
47882  M01S00063.cpumt85 +++|          MX4    5           ADD CONTROL POINT TO PP CALL
47883  M01S00064.cpumt85 +++|          LX4    40-59
47884  M01S00065.cpumt85 +++|          SX7    B7
47885  M01S00066.cpumt85 +++|          LX7    36-7
47886  M01S00067.cpumt85 +++|          BX6    -X4*X6
47887  M01S00068.cpumt85 +++|          BX6    X7+X6
47888  M01S00069.cpumt85 +++|          SA6    AVPB        SAVE PP CALL FOR SECOND ASSIGNMENT
47889  M01S00070.cpumt85 +++|          EQ     /MONITOR/APQ1.1  ASSIGN FIRST PP
47890  M01S00071.cpumt85 +++|
47891  M01S00072.cpumt85 +++| AVP4     BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
47892  M02S00073.ns2332b ---|          NG     X1,AVP2     IF REJECT FOR LOCKED LIBRARY

Seq #  *Modification Id* Act 
----------------------------+
47893  M01S00022.ns2332b +++|          NG     X1,/MONITOR/PPR1  IF LIBRARY LOCKED

Seq #  *Modification Id* Act 
----------------------------+
47894  M01S00074.cpumt85 +++|          BX7    X1
47895  M01S00075.cpumt85 +++|          SA7    AVPC        SAVE INPUT REGISTER ADDRESS
47896  M01S00076.cpumt85 +++|          SA1    AVPB        GET PP CALL
47897  M01S00077.cpumt85 +++|          BX6    X1
47898  M01S00078.cpumt85 +++|          SA2    AVPA        GET SECOND PP SELECTION MASK
47899  M01S00079.cpumt85 +++|          BX7    X2
47900  M01S00080.cpumt85 +++|          SA7    /MONITOR/APQC
47901  M01S00081.cpumt85 +++|          SB3    AVP5        *APQ* RETURN ADDRESS
47902  M01S00082.cpumt85 +++|          SB4    -1
47903  M01S00083.cpumt85 +++|          EQ     /MONITOR/APQ1.1  ASSIGN SECOND PP
47904  M01S00084.cpumt85 +++|
47905  M01S00085.cpumt85 +++| AVP5     LX1    24          POSITION SECOND *IR* ADDRESS
47906  M01S00086.cpumt85 +++|          SA2    AVPC        ADD FIRST *IR* ADDRESS
47907  M01S00087.cpumt85 +++|          LX2    36
47908  M01S00088.cpumt85 +++|          BX7    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
47909  M02S00089.ns2332b ---|          EQ     AVP2        STORE OUTPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
47910  M01S00023.ns2332b +++|          EQ     /MONITOR/PPR1  STORE OUTPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
47911  M01S00090.cpumt85 +++|
47912  M01S00091.cpumt85 +++|
47913  M01S00092.cpumt85 +++| AVPA     CON    0           SECOND PP SELECTION MASK
47914  M01S00093.cpumt85 +++| AVPB     CON    0           PP CALL
47915  M01S00094.cpumt85 +++| AVPC     CON    0           FIRST PP INPUT REGISTER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
47916  M02S00736.ns2418  ---| RTC      SPACE  4,10
47917  M02S00737.ns2418  ---|**        RTC - READ THE CLOCK.
47918  M02S00738.ns2418  ---|*
47919  M02S00739.ns2418  ---|*         READS THE FREE RUNNING COUNTER AND UPDATES THE REAL TIME
47920  M02S00740.ns2418  ---|*         CLOCK (*RTCL*) WHEN PROCESSING *MTR* REQUEST IN DUAL STATE.
47921  M02S00741.ns2418  ---|*
47922  M02S00742.ns2418  ---|*         EXIT   (*RTCL*) - UPDATED TO NEAREST SECOND AND MILLISECOND.

Proceed to Part 37