Deck CPUMTR Part 040

308 Modifications

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

Seq #  *Modification Id* Act 
----------------------------+
52390  M01S00908.252l678 +++|          SB5    X1

Seq #  *Modification Id* Act 
----------------------------+
52391  M01S31479.252l678 ---|          TLX0   (0,21,CP176)
52392  M01S31480.252l678 ---|          TLX0   (3,0,ESM)

Seq #  *Modification Id* Act 
----------------------------+
52393  M01S00909.252l678 +++|          TLX0   (0,CP176,21)
52394  M01S00910.252l678 +++|          TLX0   (3,ESM170,0)
52395  M01S00911.252l678 +++|          TLX0   (4,UEM180,0)
52396  M00S31481.cpumtr  +++|          LX5    30

Seq #  *Modification Id* Act 
----------------------------+
52397  M02S00912.ns2499  ---|          BX0    X0+X5

Seq #  *Modification Id* Act 
----------------------------+
52398  M01S31482.ns2499  ---|          SB4    MECB        SET BLOCK WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
52399  M01S00020.ns2499  +++|          BX0    X0+X5       COMBINE CM AND EM ADDRESSES
52400  M01S00021.ns2499  +++|          SB4    MECB        SET WORD CLEAR COUNT

Seq #  *Modification Id* Act 
----------------------------+
52401  M01S00003.ns2520  +++|          SX5    B4
52402  M01S00004.ns2520  +++|          LX5    30

Seq #  *Modification Id* Act 
----------------------------+
52403  M01S00022.ns2499  +++| CSE4     GE     B5,B4,CSE5  IF MORE THAN 400B WORDS LEFT
52404  M01S00023.ns2499  +++|          SB4    B5+         PICK UP REMAINDER

Seq #  *Modification Id* Act 
----------------------------+
52405  M02S00024.ns2520  ---| CSE5     MX1    -30
52406  M02S00025.ns2520  ---|          BX1    -X1*X0      GET EM ADDRESS ONLY
52407  M02S00026.ns2520  ---|          NZ     X1,CSE7     IF EM ADDRESS AVAILABLE
52408  M02S00027.ns2520  ---|          LX0    30          POSITION CM ADDRESS
52409  M02S00028.ns2520  ---|          BX6    X6-X6       CLEAR MEMORY WITH REGISTER

Seq #  *Modification Id* Act 
----------------------------+
52410  M02S31483.ns2520  ---|          BX0    X0+X5
52411  M02S31484.ns2520  ---|          SX5    B4+

Seq #  *Modification Id* Act 
----------------------------+
52412  M02S00913.ns2520  ---|          SX5    B4

Seq #  *Modification Id* Act 
----------------------------+
52413  M02S00029.ns2520  ---| CSE6     SA6    X0+B4
52414  M02S00030.ns2520  ---|          SB4    B4-B1
52415  M02S00031.ns2520  ---|          NZ     B4,CSE6     IF MORE WORDS TO CLEAR
52416  M02S00032.ns2520  ---|          SB4    X5          RESTORE WORD COUNT
52417  M02S00033.ns2520  ---|          LX0    30
52418  M02S00034.ns2520  ---|          EQ     CSE8        CHECK FOR MORE WORDS TO CLEAR
52419  M02S00035.ns2520  ---|
52420  M02S00036.ns2520  ---| CSE7     RE     B4          CLEAR MEMORY FROM EM

Seq #  *Modification Id* Act 
----------------------------+
52421  M01S00005.ns2520  +++| CSE5     RE     B4          CLEAR MEMORY FROM EM

Seq #  *Modification Id* Act 
----------------------------+
52422  M01S00037.ns2499  +++|          SB0    B0+         HALF EXIT FOR FAKE READ

Seq #  *Modification Id* Act 
----------------------------+
52423  M02S00038.ns2520  ---| CSE8     SX5    MECB

Seq #  *Modification Id* Act 
----------------------------+
52424  M01S31485.ns2520  ---|          LX5    30

Seq #  *Modification Id* Act 
----------------------------+
52425  M01S31486.ns2499  ---| CSE3     GE     B5,B4,CSE4  IF MORE BLOCKS TO CLEAR
52426  M01S31487.ns2499  ---|          SB4    B5+
52427  M01S31488.ns2499  ---| CSE4     RE     B4
52428  M01S31489.ns2499  ---|          SB0    B0+         HALF EXIT FOR FAKE READ
52429  M00S31490.cpumtr  +++|          SB5    B5-B4       DECREMENT WORD COUNT
52430  M00S31491.cpumtr  +++|          SA0    A0+B4       INCREMENT ADDRESS
52431  M00S31492.cpumtr  +++|          IX0    X0+X5

Seq #  *Modification Id* Act 
----------------------------+
52432  M01S31493.ns2499  ---|          GT     B5,CSE3     IF MORE WORDS TO CLEAR

Seq #  *Modification Id* Act 
----------------------------+
52433  M01S00039.ns2499  +++|          GT     B5,CSE4     IF MORE WORDS TO CLEAR

Seq #  *Modification Id* Act 
----------------------------+
52434  M01S31494.252l678 ---|          TNZ    B3,(/MCE/CSTX,/PROGRAM/PRG1,MCE)  IF NOT LIST

Seq #  *Modification Id* Act 
----------------------------+
52435  M01S00914.252l678 +++|          TNZ    B3,(/MCE/CSTX,MCE,/PROGRAM/PRG1)  IF NOT LIST
52436  M00S31495.cpumtr  +++|          SA1    A1+1        GET NEXT LIST ENTRY
52437  M00S31496.cpumtr  +++|          NZ     X1,CSE2     IF NOT END OF LIST

Seq #  *Modification Id* Act 
----------------------------+
52438  M01S31497.252l678 ---|          TEQ    (/MCE/CSTX,/PROGRAM/PRG1,MCE)  EXIT

Seq #  *Modification Id* Act 
----------------------------+
52439  M01S00915.252l678 +++|          TEQ    (/MCE/CSTX,MCE,/PROGRAM/PRG1)  EXIT
52440  M00S31498.cpumtr  +++|
52441  M00S31499.cpumtr  +++|          ENDBLK
52442  M00S31500.cpumtr  +++|          BLOCK  UEC,(USER ECS PROCESSING ROUTINES.)
52443  M00S31501.cpumtr  +++|          SPACE  4
52444  M00S31502.cpumtr  +++|**        ASSEMBLE CONSTANTS.
52445  M00S31503.cpumtr  +++|
52446  M00S31504.cpumtr  +++| MECB     EQU    400B
52447  M00S31505.cpumtr  +++|          SPACE  4
52448  M00S31506.cpumtr  +++|**        MONITOR/UEC BLOCK EQUIVALENCES.
52449  M00S31507.cpumtr  +++|
52450  M00S31508.cpumtr  +++| CPE      EQU    /MONITOR/CPE
52451  M00S31509.cpumtr  +++| MTRX     EQU    /MONITOR/MTRX

Seq #  *Modification Id* Act 
----------------------------+
52452  M01S31510.271l716 ---| SFL1     EQU    /MONITOR/SFL1
52453  M01S31511.271l716 ---| MFE      SPACE  4,10
52454  M01S31512.271l716 ---|**        MFE - MODIFY USER ECS FL.
52455  M01S31513.271l716 ---|*
52456  M01S31514.271l716 ---|*         ENTRY
52457  M01S31515.271l716 ---|*T X0     12/INCREMENT,12/,12/CP ADDRESS,6/,18/MEFF

Figure X0

52458  M01S31516.271l716 ---|*
52459  M01S31517.271l716 ---|*         USES   X - 0, 1.
52460  M01S31518.271l716 ---|*                B - 4, 5, 6.
52461  M01S31519.271l716 ---|*                A - 1.
52462  M01S31520.271l716 ---|*
52463  M01S31521.271l716 ---|*         CALLS  SFE.
52464  M01S31522.271l716 ---|
52465  M01S31523.271l716 ---|
52466  M01S31524.271l716 ---| MFE      SA1    CPAL+A0
52467  M01S31525.271l716 ---|          SB6    B2
52468  M01S31526.271l716 ---|          AX1    24          SET EXCHANGE PACKAGE ADDRESS
52469  M01S31527.271l716 ---|          SB5    X1
52470  M01S31528.271l716 ---|          AX0    48
52471  M01S31529.271l716 ---|          SB4    A0-CPAL-1
52472  M01S31530.271l716 ---|          EQ     B5,B7,SFE   IF JOB EXECUTING IN THIS CPU
52473  M01S31531.271l716 ---|          SB6    B7
52474  M01S31532.271l716 ---|          SA1    -B4
52475  M01S31533.271l716 ---|          AX1    24
52476  M01S31534.271l716 ---|          SB5    X1
52477  M01S31535.271l716 ---|          NE     B5,B7,SFE   IF JOB NOT RUNNING IN OTHER CPU
52478  M01S31536.271l716 ---|          EQ     MTRX        EXIT
52479  M01S31537.271l716 ---| SFE      SPACE  4,10
52480  M01S31538.271l716 ---|**        SFE - SET FIELD LENGTH OF USER ECS.
52481  M01S31539.271l716 ---|*
52482  M01S31540.271l716 ---|*         ENTRY
52483  M01S31541.271l716 ---|*T X0     39/, 21/ INCREMENT

Figure X0

52484  M01S31542.271l716 ---|*         (B6) = EXCHANGE PACKAGE ADDRESS.
52485  M01S31543.271l716 ---|*
52486  M01S31544.271l716 ---|*         EXIT
52487  M01S31545.271l716 ---|*         (B4) = RETURN ADDRESS FOR CJS.

Seq #  *Modification Id* Act 
----------------------------+
52488  M01S02833.271l716 +++| SFL2     EQU    /MONITOR/SFL2
52489  M01S02834.271l716 +++| UMT1     EQU    /MONITOR/UMT1
52490  M01S02835.271l716 +++| UMTA     EQU    /MONITOR/UMTA
52491  M01S02836.271l716 +++| MFX      SPACE  4,10
52492  M01S02837.271l716 +++|**        MFX - CHANGE FL FOR USER EXTENDED MEMORY.
52493  M01S02838.271l716 +++|*
52494  M01S02839.271l716 +++|*         ENTRY  (X0) = INCREMENT.
52495  M01S02840.271l716 +++|*                (B3) = ADDRESS OF CP USING CURRENT CPU.
52496  M01S02841.271l716 +++|*                (B6) = EXCHANGE PACKAGE ADDRESS.
52497  M01S02842.271l716 +++|*                (B7) = CP/PCP ADDRESS.
52498  M00S31546.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
52499  M01S31547.273l780 ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
52500  M01S31548.273l780 ---|*                B - 3, 4.

Seq #  *Modification Id* Act 
----------------------------+
52501  M01S00926.273l780 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
52502  M00S31549.cpumtr  +++|*                A - 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
52503  M01S31550.271l716 ---|*
52504  M01S31551.271l716 ---|*         CALLS  CJS.
52505  M00S31552.cpumtr  +++|
52506  M00S31553.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
52507  M01S31554.271l716 ---| SFE      SA3    B7+ECSW     READ CONTROL POINT FLE AND INCREMENT
52508  M01S31555.271l716 ---|          SA2    CPAL+A0

Seq #  *Modification Id* Act 
----------------------------+
52509  M02S00001.271l716 ---|          SA4    B7+3        SET THE UEM ENABLED FLAG
52510  M02S00002.271l716 ---|          TX6    UEM

Seq #  *Modification Id* Act 
----------------------------+
52511  M01S02843.271l716 +++| MFX      BSS    0           ENTRY
52512  M01S02844.271l716 +++|          SA3    B7+ECSW     READ FL CONTROL WORD
52513  M01S02845.271l716 +++|          TX6    UEM
52514  M01S02846.271l716 +++|          SA4    B7+3        SET UEM ENABLED FLAG

Seq #  *Modification Id* Act 
----------------------------+
52515  M01S00003.ns2213  +++|          LX6    56-0
52516  M01S00004.ns2213  +++|          BX6    X4+X6

Seq #  *Modification Id* Act 
----------------------------+
52517  M02S00005.271l716 ---|          SA6    A4+

Seq #  *Modification Id* Act 
----------------------------+
52518  M01S31556.271l716 ---|          AX2    24
52519  M01S31557.271l716 ---|          IX7    X3+X0

Seq #  *Modification Id* Act 
----------------------------+
52520  M02S31558.271l716 ---|          SA7    A3+         WRITE UPDATED FLE TO CP
52521  M02S31559.271l716 ---|          SA1    B6+4

Seq #  *Modification Id* Act 
----------------------------+
52522  M02S00916.271l716 ---|          SA1    B6+4
52523  M02S00917.271l716 ---|          SA7    A3          WRITE UPDATED FLE TO CP

Seq #  *Modification Id* Act 
----------------------------+
52524  M01S31560.271l716 ---|          SA4    A1+B1
52525  M01S31561.271l716 ---|          SB3    X2
52526  M01S31562.271l716 ---|          MX2    -36

Seq #  *Modification Id* Act 
----------------------------+
52527  M01S02847.271l716 +++|          SA6    A4
52528  M01S02848.271l716 +++|          IX7    X3+X0
52529  M01S02849.271l716 +++|          SA7    A3+         UPDATE FLX IN FL CONTROL WORD
52530  M01S02850.271l716 +++|          SA1    B6+4
52531  M01S02851.271l716 +++|          MX2    -36
52532  M01S02852.271l716 +++|          SA4    A1+B1
52533  M00S31563.cpumtr  +++|          BX4    -X2*X4
52534  M00S31564.cpumtr  +++|          MX2    -12
52535  M00S31565.cpumtr  +++|          BX6    -X2*X7      PICK UP INCREMENTED CP FLE

Seq #  *Modification Id* Act 
----------------------------+
52536  M01S31566.ns2184  ---|          LX6    9+36

Seq #  *Modification Id* Act 
----------------------------+
52537  M02S00018.ns2219  ---|          LX6    36+9+UESF

Seq #  *Modification Id* Act 
----------------------------+
52538  M02S00005.252l678 ---|          TLX6   (36+3+UESF,36+9+UESF,ESM170)

Seq #  *Modification Id* Act 
----------------------------+
52539  M01S00918.252l678 +++|          TLX6   0,UESC
52540  M01S00919.252l678 +++|          TLX6   (36+3,ESM170,36+9)
52541  M01S00920.252l678 +++|          MX2    -24         MASK FOR RAE FROM *ECSW*
52542  M00S31567.cpumtr  +++|          BX7    X6+X4
52543  M00S31568.cpumtr  +++|          SA7    A4          WRITE UPDATED FLE TO EXCHANGE PACKAGE
52544  M00S31569.cpumtr  +++|          AX3    RSHF

Seq #  *Modification Id* Act 
----------------------------+
52545  M01S31570.271l716 ---|          ZR     X6,SFE1     IF FLE = 0
52546  M01S31571.271l716 ---|          BX6    -X2*X3      RAE
52547  M01S31572.271l716 ---| SFE1     MX2    24

Seq #  *Modification Id* Act 
----------------------------+
52548  M02S31573.271l716 ---|          LX6    36+9        RAE*1000

Seq #  *Modification Id* Act 
----------------------------+
52549  M03S00019.271l716 ---|          LX6    36+9+UESF   RAE*(UEBS)

Seq #  *Modification Id* Act 
----------------------------+
52550  M03S00006.271l716 ---|          TLX6   (36+3+UESF,36+9+UESF,ESM170)

Seq #  *Modification Id* Act 
----------------------------+
52551  M01S31574.271l716 ---|          SA3    UEML        EXP RAE = ECSW RAE + UEM BASE ADDRESS
52552  M01S31575.271l716 ---|          BX7    -X2*X1
52553  M01S31576.271l716 ---|          BX4    X3
52554  M01S31577.271l716 ---|          LX4    59-1
52555  M01S31578.271l716 ---|          MX2    12
52556  M01S31579.271l716 ---|          NG     X4,SFE2     IF UEM PRESENT
52557  M01S31580.271l716 ---|          SX3    B0+
52558  M01S31581.271l716 ---| SFE2     BX3    X2*X3

Seq #  *Modification Id* Act 
----------------------------+
52559  M01S02853.271l716 +++|          ZR     X6,MFX1     IF FLX = 0
52560  M01S02854.271l716 +++|          BX6    -X2*X3
52561  M01S02855.271l716 +++| MFX1     SA4    UMTA
52562  M01S02856.271l716 +++|          SA3    UEML        FETCH UEM PRESENT STATUS
52563  M01S02857.271l716 +++|          TA2    X4+1,MCT
52564  M01S02858.271l716 +++|          IX7    X2-X0       ADJUST UNASSIGNED XM ABOVE CP/PCP
52565  M01S02859.271l716 +++|          BX4    X3
52566  M01S02860.271l716 +++|          SA7    A2          UPDATE MCT ENTRY
52567  M01S02861.271l716 +++|          MX2    -36
52568  M01S02862.271l716 +++|          LX4    59-1
52569  M01S02863.271l716 +++|          BX7    -X2*X1      XP RAX = *ECSW* RAX + UEM BASE ADDRESS
52570  M01S02864.271l716 +++|          MX2    12
52571  M01S02865.271l716 +++|          NG     X4,MFX2     IF UEM PRESENT
52572  M01S02866.271l716 +++|          SX3    B0
52573  M01S02867.271l716 +++| MFX2     BX3    X2*X3       EXTRACT UEM BASE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
52574  M01S31582.ns2184  ---|          LX3    -3

Seq #  *Modification Id* Act 
----------------------------+
52575  M02S00020.252l678 ---|          LX3    -3+UESF

Seq #  *Modification Id* Act 
----------------------------+
52576  M01S00921.252l678 +++|          LX3    -3
52577  M01S00922.252l678 +++|          TLX6   36+9,UESC
52578  M00S31583.cpumtr  +++|          IX6    X3+X6

Seq #  *Modification Id* Act 
----------------------------+
52579  M01S00923.252l678 +++|          TLX6   (60-6,ESM170,0)
52580  M00S31584.cpumtr  +++|          IX6    X7+X6

Seq #  *Modification Id* Act 
----------------------------+
52581  M01S31585.271l716 ---|          SA6    A1+         WRITE UPDATED RAE TO EXP
52582  M01S31586.271l716 ---|          NE     B3,B7,SFL1  IF THIS CPU NOT ACTIVE ON THIS JOB
52583  M01S31587.271l716 ---|          SB4    SFL1        SET RETURN ADDRESS FROM CJS
52584  M01S31588.271l716 ---|          EQ     /MONITOR/CJS  GO CHECK JOB STATUS

Seq #  *Modification Id* Act 
----------------------------+
52585  M02S02868.273l780 ---|          ZR     B7,SFL2     IF CONTROL POINT ZERO

Seq #  *Modification Id* Act 
----------------------------+
52586  M01S00927.273l780 +++|          ZR     B7,SFL2     IF SYSTEM EXTENDED MEMORY REQUEST

Seq #  *Modification Id* Act 
----------------------------+
52587  M01S02869.271l716 +++|          SA6    A1+
52588  M01S02870.271l716 +++|          EQ     SFL2        CHECK CPU ACTIVITY
52589  M01S02871.271l716 +++| MRX      SPACE  4,10
52590  M01S02872.271l716 +++|**        MRX - CHANGE RA FOR USER EXTENDED MEMORY.
52591  M01S02873.271l716 +++|*
52592  M01S02874.271l716 +++|*         ENTRY  (X0) = INCREMENT.
52593  M01S02875.271l716 +++|*                (B4) = EXIT ADDRESS FOR *UMT*.
52594  M01S02876.271l716 +++|*                (B7) = CP/PCP ADDRESS.
52595  M01S02877.271l716 +++|*
52596  M01S02878.271l716 +++|*         USES   X - 2, 7.
52597  M01S02879.271l716 +++|*                B - 5.
52598  M01S02880.271l716 +++|*                A - 2, 7.
52599  M01S02881.271l716 +++|
52600  M01S02882.271l716 +++|
52601  M01S02883.271l716 +++| MRX      BSS    0           ENTRY
52602  M01S02884.271l716 +++|          SA2    B7+ECSW     READ FL CONTROL WORD
52603  M01S02885.271l716 +++|          LX0    12
52604  M01S02886.271l716 +++|          IX7    X2+X0       INCREMENT RAX
52605  M01S02887.271l716 +++|          SB5    1
52606  M01S02888.271l716 +++|          LX0    -12         RESTORE INCREMENT
52607  M01S02889.271l716 +++|          SA7    A2
52608  M01S02890.271l716 +++|          EQ     UMT1        UPDATE MEMORY CONTROL TABLE
52609  M00S31589.cpumtr  +++|          EJECT
52610  M00S31590.cpumtr  +++|          TITLE  USER ECS PROGRAM MODE ROUTINES.
52611  M00S31591.cpumtr  +++|          QUAL   PROGRAM
52612  M00S31592.cpumtr  +++| MECB     SPACE  4,10
52613  M00S31593.cpumtr  +++|**        DEFINE BLOCK SIZE FOR USER ECS OPERATIONS.
52614  M00S31594.cpumtr  +++|
52615  M00S31595.cpumtr  +++|
52616  M00S31596.cpumtr  +++| MECB     EQU    400B
52617  M00S31597.cpumtr  +++| CEC      SPACE  4,10
52618  M00S31598.cpumtr  +++|**        CEC - CLEAR USER ECS STORAGE.
52619  M00S31599.cpumtr  +++|*         SET THE SPECIFIED AREA OF USER ECS TO ZERO.  THIS ROUTINE IS
52620  M00S31600.cpumtr  +++|*         EXECUTED IN PROGRAM MODE AND UTILIZES THE PROGRAM MODE
52621  M00S31601.cpumtr  +++|*         BUFFER FOR CLEARING ECS.
52622  M00S31602.cpumtr  +++|*
52623  M00S31603.cpumtr  +++|*         ENTRY  (A5) = PPU OUTPUT REGISTER ADDRESS.
52624  M00S31604.cpumtr  +++|*
52625  M00S31605.cpumtr  +++|*         EXIT   CLEAR OUTPUT REGISTER.
52626  M00S31606.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
52627  M01S31607.273l780 ---|*         USES   X - ALL.
52628  M01S31608.273l780 ---|*                B - 4, 5, 6.
52629  M01S31609.273l780 ---|*                A - 0, 1, 2, 5, 7.

Seq #  *Modification Id* Act 
----------------------------+
52630  M01S00928.273l780 +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
52631  M01S00929.273l780 +++|*                A - 0, 1, 2, 3, 7.
52632  M01S00930.273l780 +++|*                B - 4, 6.
52633  M00S31610.cpumtr  +++|*
52634  M00S31611.cpumtr  +++|*         MACROS PER, WUE.
52635  M00S31612.cpumtr  +++|
52636  M00S31613.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
52637  M01S31614.252l678 ---| CEC      TSX0   (LCCB,1,CP176)
52638  M01S31615.252l678 ---|          SA0    PBUF        SET FWA OF CM BUFFER

Seq #  *Modification Id* Act 
----------------------------+
52639  M02S00924.ns2499  ---| CEC      TSX0   (LCCB,CP176,0)
52640  M02S00925.ns2499  ---|          NZ     X0,CEC1     IF 176 TYPE MAINFRAME
52641  M02S00926.ns2499  ---|          TSX0   0,THCCB
52642  M02S00927.ns2499  ---|          SX2    B1
52643  M02S00928.ns2499  ---|          IX2    X0-X2
52644  M02S00929.ns2499  ---|          ZR     X2,CEC1     IF NOT CYBER 990
52645  M02S00930.ns2499  ---|          LX0    6-21        MULTIPLY BY 100B AND NULLIFY 21 BIT SHIFT

Seq #  *Modification Id* Act 
----------------------------+
52646  M01S00040.ns2499  +++| CEC      TSX0   (LCCB-1,CP176,1-1)
52647  M01S00041.ns2499  +++|          SAC    18,CCMB     ADD CLEAR CENTRAL MEMORY BUFFER
52648  M01S00042.ns2499  +++|          NZ     X0,CEC1     IF NOT CYBER 990 TYPE MAINFRAME

Seq #  *Modification Id* Act 
----------------------------+
52649  M02S00043.273l780 ---|          SA2    ECRL        GET RAE FOR CP 0

Seq #  *Modification Id* Act 
----------------------------+
52650  M01S00931.273l780 +++|          SA2    ECRL        GET RAE FOR ZERO UEM BLOCK

Seq #  *Modification Id* Act 
----------------------------+
52651  M01S00044.ns2499  +++|          LX2    0-12
52652  M01S00045.ns2499  +++|          MX0    -24
52653  M01S00046.ns2499  +++|          BX0    -X0*X2
52654  M01S00047.ns2499  +++|          TLX0   9-21+60,UESC

Seq #  *Modification Id* Act 
----------------------------+
52655  M01S00931.252l678 +++| CEC1     SA0    PBUF        SET FWA OF CM BUFFER

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

Seq #  *Modification Id* Act 
----------------------------+
52657  M01S00932.252l678 +++|          TLX0   (0,CP176,21)
52658  M00S31617.cpumtr  +++|          SB4    MECB        SET WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
52659  M01S31618.252l678 ---|          TLX0   (3,0,ESM)

Seq #  *Modification Id* Act 
----------------------------+
52660  M01S00933.252l678 +++|          TLX0   (3,ESM170,0)
52661  M01S00934.252l678 +++|          TLX0   (4,UEM180,0)
52662  M00S31619.cpumtr  +++|          SA2    A5
52663  M00S31620.cpumtr  +++|          SX1    A0
52664  M00S31621.cpumtr  +++|          LX1    30
52665  M00S31622.cpumtr  +++|          BX0    X0+X1
52666  M00S31623.cpumtr  +++|+         RE     B4          CLEAR CM BUFFER
52667  M00S31624.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
52668  M01S31625.v23l617 ---|*         NOTE - HALF EXIT WILL BE TAKEN ON ECS READ

Seq #  *Modification Id* Act 
----------------------------+
52669  M01S00506.v23l617 +++|*         NOTE - HALF EXIT WILL BE TAKEN ON EXTENDED MEMORY READ
52670  M00S31626.cpumtr  +++|*                BECAUSE OF OUT-OF-RANGE ADDRESS SPECIFIED
52671  M00S31627.cpumtr  +++|*                TO CAUSE ZEROES TRANSFER TO CM.
52672  M00S31628.cpumtr  +++|
52673  M00S31629.cpumtr  +++|          SB0    B0+
52674  M00S31630.cpumtr  +++|          SX0    X2          ECS ADDRESS/1000B
52675  M00S31631.cpumtr  +++|          LX2    59-42

Seq #  *Modification Id* Act 
----------------------------+
52676  M01S31632.ns2184  ---|          LX0    9

Seq #  *Modification Id* Act 
----------------------------+
52677  M02S00021.252l678 ---|          LX0    9+UESF

Seq #  *Modification Id* Act 
----------------------------+
52678  M01S00935.252l678 +++|          TLX0   9,UESC
52679  M00S31633.cpumtr  +++|          MX6    -RMSK

Seq #  *Modification Id* Act 
----------------------------+
52680  M01S31634.252l678 ---|          PL     X2,CEC1     IF ABSOLUTE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
52681  M01S00936.252l678 +++|          PL     X2,CEC2     IF ABSOLUTE ADDRESS
52682  M00S31635.cpumtr  +++|          SA3    B7+ECSW     GET RAE
52683  M00S31636.cpumtr  +++|          LX3    -RSHF
52684  M00S31637.cpumtr  +++|          BX4    -X6*X3

Seq #  *Modification Id* Act 
----------------------------+
52685  M01S31638.ns2184  ---|          LX4    9           RAE*1000B

Seq #  *Modification Id* Act 
----------------------------+
52686  M02S00022.252l678 ---|          LX4    9+UESF      RAE*(UEBS)

Seq #  *Modification Id* Act 
----------------------------+
52687  M01S00937.252l678 +++|          TLX4   9,UESC      RAE*(UEBS)
52688  M00S31639.cpumtr  +++|          IX0    X4+X0

Seq #  *Modification Id* Act 
----------------------------+
52689  M01S31640.252l678 ---| CEC1     LX2    -24-59+42

Seq #  *Modification Id* Act 
----------------------------+
52690  M01S00938.252l678 +++| CEC2     LX2    -24-59+42
52691  M00S31641.cpumtr  +++|          SX3    X2          BLOCK COUNT
52692  M00S31642.cpumtr  +++|          ZR     X3,HNG      IF ZERO BLOCK COUNT

Seq #  *Modification Id* Act 
----------------------------+
52693  M01S31643.ns2184  ---|          LX3    9           WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
52694  M02S00023.252l678 ---|          LX3    9+UESF      WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
52695  M01S00939.252l678 +++|          TLX3   9,UESC      WORD COUNT
52696  M00S31644.cpumtr  +++|          BX0    X1+X0
52697  M00S31645.cpumtr  +++|          SX6    B4+

Seq #  *Modification Id* Act 
----------------------------+
52698  M01S31646.252l678 ---|          SB6    CEC3        SET RETURN ADDRESS
52699  M01S31647.252l678 ---| CEC2     WUE    PROGRAM     WRITE (B4) WORDS TO USER ECS

Seq #  *Modification Id* Act 
----------------------------+
52700  M01S00940.252l678 +++|          SB6    CEC4        SET RETURN ADDRESS
52701  M01S00941.252l678 +++| CEC3     WUE    PROGRAM     WRITE (B4) WORDS TO USER EM

Seq #  *Modification Id* Act 
----------------------------+
52702  M01S31648.v23l617 ---|          PER    /PROGRAM/CEC4  IF ECS ERROR

Seq #  *Modification Id* Act 
----------------------------+
52703  M02S00507.252l678 ---|          PER    /PROGRAM/CEC4  IF EXTENDED MEMORY ERROR

Seq #  *Modification Id* Act 
----------------------------+
52704  M01S31649.252l678 ---| CEC3     IX3    X3-X6       DECREMENT WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
52705  M01S00942.252l678 +++|          PER    /PROGRAM/CEC5
52706  M01S00943.252l678 +++| CEC4     IX3    X3-X6       DECREMENT WORD COUNT
52707  M00S31650.cpumtr  +++|          IX0    X0+X6       INCREMENT ECS ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
52708  M01S31651.252l678 ---|          NZ     X3,CEC2     IF MORE TO CLEAR

Seq #  *Modification Id* Act 
----------------------------+
52709  M01S00944.252l678 +++|          NZ     X3,CEC3     IF MORE TO CLEAR
52710  M00S31652.cpumtr  +++|
52711  M00S31653.cpumtr  +++|*         STORAGE CLEARED, CLEAR PPU OR AD EXIT.
52712  M00S31654.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
52713  M01S31655.252l678 ---| CEC4     BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
52714  M01S00945.252l678 +++| CEC5     BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
52715  M01S31656.252l678 ---|          TEQ    (/MCE/CSTX,/PROGRAM/PRG1,MCE)  EXIT

Seq #  *Modification Id* Act 
----------------------------+
52716  M01S00946.252l678 +++|          TEQ    (/MCE/CSTX,MCE,/PROGRAM/PRG1)  EXIT
52717  M00S31657.cpumtr  +++| MEC      SPACE  4,8
52718  M00S31658.cpumtr  +++|**        MEC - MOVE ECS STORAGE.
52719  M00S31659.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
52720  M01S31660.271l716 ---|*         USES   X - ALL.

Seq #  *Modification Id* Act 
----------------------------+
52721  M02S31661.271l716 ---|*                B - 4.

Seq #  *Modification Id* Act 
----------------------------+
52722  M02S00007.271l716 ---|*         USES   B - 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
52723  M01S02891.271l716 +++|*         ENTRY  (B7) = CP/PCP ADDRESS.
52724  M01S02892.271l716 +++|*
52725  M01S02893.271l716 +++|*         USES   X - ALL.

Seq #  *Modification Id* Act 
----------------------------+
52726  M02S02894.273l780 ---|*                B - 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
52727  M01S31662.273l780 ---|*                A - 0, 2, 4, 5, 7.

Seq #  *Modification Id* Act 
----------------------------+
52728  M01S00932.273l780 +++|*                B - 5.
52729  M01S00933.273l780 +++|*                A - ALL.
52730  M00S31663.cpumtr  +++|*
52731  M00S31664.cpumtr  +++|*         CALLS  PER.
52732  M00S31665.cpumtr  +++|
52733  M00S31666.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
52734  M01S31667.271l716 ---| MEC      SA5    SMRL
52735  M01S31668.271l716 ---|          MX0    -12
52736  M01S31669.271l716 ---|          BX0    -X0*X5
52737  M01S31670.271l716 ---|          SA2    X0+4        FETCH CP RAE
52738  M01S31671.271l716 ---|          AX5    48          POSITION REQUEST TO INCREMENT
52739  M01S31672.271l716 ---|          SA4    A2+B1       FETCH CP FLE

Seq #  *Modification Id* Act 
----------------------------+
52740  M01S02895.271l716 +++| MEC      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
52741  M02S02896.273l780 ---|          SA2    B7+4        FETCH CP RAX

Seq #  *Modification Id* Act 
----------------------------+
52742  M01S00934.273l780 +++|
52743  M01S00935.273l780 +++|*         INITIALIZE MOVE PARAMETERS.
52744  M01S00936.273l780 +++|
52745  M01S00937.273l780 +++|          SA2    B7+ECSW     GET RAE AND FLE
52746  M01S00938.273l780 +++|          TSA1   (UEML,UEM,ZERL)  GET UEM BASE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
52747  M01S02897.271l716 +++|          SA5    SMIN

Seq #  *Modification Id* Act 
----------------------------+
52748  M02S02898.273l780 ---|          SA4    A2+B1       GET CP FLX

Seq #  *Modification Id* Act 
----------------------------+
52749  M01S31673.273l780 ---|          AX2    36
52750  M01S31674.273l780 ---|          AX4    36

Seq #  *Modification Id* Act 
----------------------------+
52751  M03S00008.273l780 ---|          TSB6   (6,0,ESM170)  SET 170 ESM MODE ADJUSTMENT
52752  M03S00009.273l780 ---|          LX2    B6,X2       ADJUST RAE
52753  M03S00010.273l780 ---|          LX4    B6,X4       ADJUST FLE

Seq #  *Modification Id* Act 
----------------------------+
52754  M02S00947.273l780 ---|          TLX2   (6,ESM170,0)
52755  M02S00948.273l780 ---|          TLX4   (6,ESM170,0)

Seq #  *Modification Id* Act 
----------------------------+
52756  M02S02899.273l780 ---|          NO

Seq #  *Modification Id* Act 
----------------------------+
52757  M02S31675.273l780 ---|          LX5    9           INCREMENT * 1000

Seq #  *Modification Id* Act 
----------------------------+
52758  M03S00024.273l780 ---|          LX5    9+UESF      INCREMENT *(UEBS)

Seq #  *Modification Id* Act 
----------------------------+
52759  M02S00949.273l780 ---|          TLX5   9,UESC      INCREMENT *(UEBS)

Seq #  *Modification Id* Act 
----------------------------+
52760  M01S00939.273l780 +++|          MX0    -12
52761  M01S00940.273l780 +++|          MX6    -RMSK
52762  M01S00941.273l780 +++|          BX4    -X0*X2
52763  M01S00942.273l780 +++|          LX1    12
52764  M01S00943.273l780 +++|          AX2    RSHF
52765  M01S00944.273l780 +++|          BX1    -X0*X1
52766  M01S00945.273l780 +++|          BX2    -X6*X2
52767  M01S00946.273l780 +++|          LX1    9           UEM BASE ADDRESS IF UEM PRESENT
52768  M01S00947.273l780 +++|          TLX2   9,UESC
52769  M01S00948.273l780 +++|          TLX4   9,UESC      FLE IN WORDS
52770  M01S00949.273l780 +++|          IX2    X1+X2       RAE WORD ADDRESS
52771  M01S00950.273l780 +++|          TLX5   9,UESC      INCREMENT IN WORDS
52772  M00S31676.cpumtr  +++|          BX3    X5

Seq #  *Modification Id* Act 
----------------------------+
52773  M01S31677.252l678 ---|          IX0    X2+X4       RAE + FLE
52774  M00S31678.cpumtr  +++|          SX6    -MECB       WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
52775  M01S00950.252l678 +++|          IX0    X2+X4
52776  M00S31679.cpumtr  +++|          IX0    X0+X6       SET FWA ECS TO READ FROM (RA+FL-BLOCK SIZE)
52777  M00S31680.cpumtr  +++|          SA0    UBUF        CM BUFFER ADDRESS
52778  M00S31681.cpumtr  +++|          PL     X5,MEC1     IF MOVING CP UP ( TOWARDS HIGH CORE )
52779  M00S31682.cpumtr  +++|          LX1    X0
52780  M00S31683.cpumtr  +++|          BX6    -X6
52781  M00S31684.cpumtr  +++|          LX0    X2          SET FWA ECS TO RAE FOR LOWER MOVE
52782  M00S31685.cpumtr  +++|          BX2    X1
52783  M00S31686.cpumtr  +++| MEC1     IX6    X6-X3
52784  M00S31687.cpumtr  +++|          SX5    A0+
52785  M00S31688.cpumtr  +++|          LX5    30
52786  M00S31689.cpumtr  +++|          BX0    X5+X0
52787  M00S31690.cpumtr  +++|          MX5    -24
52788  M00S31691.cpumtr  +++|
52789  M00S31692.cpumtr  +++|*         MAIN MOVE LOOP.
52790  M00S31693.cpumtr  +++|
52791  M00S31694.cpumtr  +++| MEC2     RE     MECB        READ ECS

Seq #  *Modification Id* Act 
----------------------------+
52792  M01S31695.v23l617 ---|          RJ     MEC3        IF ECS ERROR

Seq #  *Modification Id* Act 
----------------------------+
52793  M01S00508.v23l617 +++|          RJ     MEC3        IF EXTENDED MEMORY ERROR
52794  M00S31696.cpumtr  +++|          IX4    X0-X2
52795  M00S31697.cpumtr  +++|          IX0    X0+X3       SET FWA ECS TO WRITE TO
52796  M00S31698.cpumtr  +++|          WE     MECB        WRITE ECS

Seq #  *Modification Id* Act 
----------------------------+
52797  M01S31699.v23l617 ---|          RJ     MEC3        IF ECS ERROR

Seq #  *Modification Id* Act 
----------------------------+
52798  M01S00509.v23l617 +++|          RJ     MEC3        IF EXTENDED MEMORY ERROR
52799  M00S31700.cpumtr  +++|          IX0    X0+X6       SET NEXT ADDRESS TO READ FROM
52800  M00S31701.cpumtr  +++|          BX1    -X5*X4
52801  M00S31702.cpumtr  +++|          NZ     X1,MEC2     IF MORE BLOCKS TO MOVE
52802  M00S31703.cpumtr  +++|
52803  M00S31704.cpumtr  +++|*         MOVE COMPLETED.
52804  M00S31705.cpumtr  +++|
52805  M00S31706.cpumtr  +++|          TNO    /MCE/MEC,MCE  IF MEMORY CLEARING ENABLED

Seq #  *Modification Id* Act 
----------------------------+
52806  M01S31707.v23l617 ---| MEC2.1   SA2    SD1L        UPDATE STATISTICAL DATA
52807  M01S31708.v23l617 ---|          SX6    B1
52808  M01S31709.v23l617 ---|          LX6    30

Seq #  *Modification Id* Act 
----------------------------+
52809  M02S00510.273l780 ---| MEC2.1   TA2    EMMS,SDA    COUNT EM MOVE

Seq #  *Modification Id* Act 
----------------------------+
52810  M03S00511.273l780 ---|          SX6    B1+

Seq #  *Modification Id* Act 
----------------------------+
52811  M02S31710.273l780 ---|          IX6    X6+X2
52812  M02S31711.273l780 ---|          SA6    A2
52813  M02S31712.273l780 ---|          SA5    A5          GET *SM*
52814  M02S31713.273l780 ---|          MX0    -12
52815  M02S31714.273l780 ---|          BX0    -X0*X5
52816  M02S31715.273l780 ---|          SA2    X0+ECSW     FETCH CP RAE

Seq #  *Modification Id* Act 
----------------------------+
52817  M03S31716.273l780 ---|          AX5    48          INCREMENT/1000B

Seq #  *Modification Id* Act 
----------------------------+
52818  M03S00025.273l780 ---|          AX5    48          INCREMENT/*UEBS*

Seq #  *Modification Id* Act 
----------------------------+
52819  M02S31717.273l780 ---|          SA1    A2+4-ECSW   FETCH EXP RAE

Seq #  *Modification Id* Act 
----------------------------+
52820  M02S02900.273l780 ---|          SX6    B1
52821  M02S02901.273l780 ---|          SA5    A5          GET *SMIN*
52822  M02S02902.273l780 ---|          IX6    X6+X2
52823  M02S02903.273l780 ---|          SA1    B7+4        FETCH RAX FROM XP
52824  M02S02904.273l780 ---|          SA6    A2
52825  M02S02905.273l780 ---|          SA2    B7+ECSW     GET RAX FROM CP/PCP AREA

Seq #  *Modification Id* Act 
----------------------------+
52826  M01S31718.273l780 ---|          LX5    12
52827  M01S31719.273l780 ---|          IX7    X5+X2       CP RAE + INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
52828  M02S31720.273l780 ---|          LX5    24+9

Seq #  *Modification Id* Act 
----------------------------+
52829  M03S00026.273l780 ---|          LX5    24+9+UESF

Seq #  *Modification Id* Act 
----------------------------+
52830  M03S00011.273l780 ---|          TLX5   (24+3+UESF,24+9+UESF,ESM170)

Seq #  *Modification Id* Act 
----------------------------+
52831  M02S00951.273l780 ---|          TLX5   0,UESC
52832  M02S00952.273l780 ---|          TLX5   (24+3,ESM170,24+9)

Seq #  *Modification Id* Act 
----------------------------+
52833  M01S31721.273l780 ---|          SA7    A2          UPDATE CP RAE
52834  M01S31722.273l780 ---|          IX6    X5+X1       EXP RAE + INCREMENT

Seq #  *Modification Id* Act 
----------------------------+
52835  M01S00951.273l780 +++| MEC2.1   TA2    EMMS,SDA    GET EM MOVE COUNT
52836  M01S00952.273l780 +++|          SA5    SMIN        GET MOVE INCREMENT
52837  M01S00953.273l780 +++|          SA1    B7+ECSW     GET *ECSW*
52838  M01S00954.273l780 +++|          TSA3   (UEML,UEM,ZERL)  GET UEM BASE ADDRESS
52839  M01S00955.273l780 +++|          SA4    B7+4        GET EXCHANGE PACKAGE RAE
52840  M01S00956.273l780 +++|          SX7    B1
52841  M01S00957.273l780 +++|          MX0    -RMSK
52842  M01S00958.273l780 +++|          MX6    12
52843  M01S00959.273l780 +++|          LX0    12
52844  M01S00960.273l780 +++|          IX7    X7+X2       COUNT MOVE
52845  M01S00961.273l780 +++|          LX5    RSHF
52846  M01S00962.273l780 +++|          SA7    A2          UPDATE EM MOVE COUNT
52847  M01S00963.273l780 +++|          IX7    X1+X5       SET NEW RA IN *ECSW*
52848  M01S00964.273l780 +++|          BX3    X6*X3
52849  M01S00965.273l780 +++|          SA7    A1          UPDATE *ECSW*
52850  M01S00966.273l780 +++|          BX7    -X0*X7
52851  M01S00967.273l780 +++|          LX3    24          UEM BASE ADDRESS IF UEM PRESENT
52852  M01S00968.273l780 +++|          TLX7   0,UESC
52853  M01S00969.273l780 +++|          MX0    -36
52854  M01S00970.273l780 +++|          IX7    X7+X3
52855  M01S00971.273l780 +++|          BX4    -X0*X4
52856  M01S00972.273l780 +++|          TLX7   (24+3,ESM170,24+9)
52857  M01S00973.273l780 +++|          BX6    X4+X7
52858  M00S31723.cpumtr  +++|          BX7    X7-X7       CLEAR REPLY

Seq #  *Modification Id* Act 
----------------------------+
52859  M01S31724.273l780 ---|          SA6    A1          UPDATE EXP RAE

Seq #  *Modification Id* Act 
----------------------------+
52860  M01S00974.273l780 +++|          SA6    A4          UPDATE EXCHANGE PACKAGE RAE
52861  M00S31725.cpumtr  +++|          EQ     SMPX        RETURN
52862  M00S31726.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
52863  M01S31727.v23l617 ---|*         PROCESS ECS ERROR.

Seq #  *Modification Id* Act 
----------------------------+
52864  M01S00512.v23l617 +++|*         PROCESS EXTENDED MEMORY ERROR.
52865  M00S31728.cpumtr  +++|
52866  M00S31729.cpumtr  +++| MEC3     PS                 ENTRY/EXIT
52867  M00S31730.cpumtr  +++|          SX1    400B        WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
52868  M01S31731.v23l617 ---|          RJ     /ECS/RSE    REPORT STORAGE MOVE ECS ERROR
52869  M01S31732.v23l617 ---|          SA1    SMRL        SET ECS ERROR STATUS

Seq #  *Modification Id* Act 
----------------------------+
52870  M01S00513.v23l617 +++|          RJ     /ECS/RSE    REPORT STORAGE MOVE EXTENDED MEMORY ERROR
52871  M01S00514.v23l617 +++|          SA1    SMRL        SET EXTENDED MEMORY ERROR STATUS
52872  M00S31733.cpumtr  +++|          SX7    B1
52873  M00S31734.cpumtr  +++|          LX7    36
52874  M00S31735.cpumtr  +++|          SB5    MEC3        *MSC* RETURN ADDRESS
52875  M00S31736.cpumtr  +++|          BX7    X1+X7
52876  M00S31737.cpumtr  +++|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
52877  M01S31738.v23l617 ---|          SX1    MSEA        * ECS ERROR - STORAGE MOVE.*

Seq #  *Modification Id* Act 
----------------------------+
52878  M01S00515.v23l617 +++|          SX1    MSEA        * EXTENDED MEMORY ERROR - STORAGE MOVE.*
52879  M00S31739.cpumtr  +++|          EQ     /MONITOR/MSC  ISSUE ERROR MESSAGE
52880  M00S31740.cpumtr  +++| TEC      SPACE  4,10
52881  M00S31741.cpumtr  +++|**        TEC - PERFORM USER ECS TRANSFER FOR *ECXM* FUNCTION.
52882  M00S31742.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
52883  M01S31743.271l716 ---|*         ENTRY  THE OUTPUT REGISTER FORMAT FOR THIS FUNCTION IN
52884  M01S31744.271l716 ---|*                PROGRAM MODE IS THE SAME AS FOR AN *ECXM* REQUEST.
52885  M01S31745.271l716 ---|*                THE *ECXM* IS DETECTED BY *MTR* AND CHANGED TO AN
52886  M01S31746.271l716 ---|*                *ECSM*.  IT IS THEN ENTERED INTO THE PROGRAM MODE
52887  M01S31747.271l716 ---|*                REQUEST STACK DIRECTLY BY *MTR*.
52888  M01S31748.271l716 ---|*
52889  M00S31749.cpumtr  +++|*         USES   X - ALL.
52890  M00S31750.cpumtr  +++|*                B - 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
52891  M01S31751.273l780 ---|*                A - ALL.

Seq #  *Modification Id* Act 
----------------------------+
52892  M01S00975.273l780 +++|*                A - 0, 1, 2, 4, 6, 7.
52893  M00S31752.cpumtr  +++|*
52894  M00S31753.cpumtr  +++|*         MACROS PER, RUE, WUE.
52895  M00S31754.cpumtr  +++|
52896  M00S31755.cpumtr  +++|
52897  M00S31756.cpumtr  +++| TEC      SA4    A5+B1       READ PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
52898  M01S00976.273l780 +++|          AX2    24
52899  M00S31757.cpumtr  +++|          MX6    48

Seq #  *Modification Id* Act 
----------------------------+
52900  M01S00977.273l780 +++|          SB7    X2          SET CP/PCP ADDRESS
52901  M00S31758.cpumtr  +++|          SX0    X4          ECS ADDRESS/1000B
52902  M00S31759.cpumtr  +++|          LX4    12          GET WORD COUNT
52903  M00S31760.cpumtr  +++|          BX3    -X6*X4
52904  M00S31761.cpumtr  +++|          LX0    9           ECA*1000B
52905  M00S31762.cpumtr  +++|          LX4    24          GET CM ADDRESS
52906  M00S31763.cpumtr  +++|          SB3    X3          SET WC FOR ECS TRANSFER
52907  M00S31764.cpumtr  +++|          BX4    -X6*X4

Seq #  *Modification Id* Act 
----------------------------+
52908  M01S00001.ns2384  +++|          MX7    1

Seq #  *Modification Id* Act 
----------------------------+
52909  M01S31765.273l780 ---|          SA2    B7+ECSW     FETCH CP,S RAE,FLE

Seq #  *Modification Id* Act 
----------------------------+
52910  M01S00978.273l780 +++|          SA2    B7+ECSW     GET CP/PCP RAE,FLE

Seq #  *Modification Id* Act 
----------------------------+
52911  M01S00002.ns2384  +++|          LX7    -12
52912  M01S00003.ns2384  +++|          BX7    X7+X2       SET *ECXM* STORAGE MOVE INTERLOCK
52913  M01S00004.ns2384  +++|          SA7    A2
52914  M00S31766.cpumtr  +++|          BX7    -X6*X2      FLE
52915  M00S31767.cpumtr  +++|          LX2    -RSHF
52916  M00S31768.cpumtr  +++|          BX2    -X6*X2      RAE

Seq #  *Modification Id* Act 
----------------------------+
52917  M01S31769.ns2184  ---|          LX7    9           FLE*1000B

Seq #  *Modification Id* Act 
----------------------------+
52918  M02S00027.252l678 ---|          LX7    9+UESF      FLE*(UEBS)

Seq #  *Modification Id* Act 
----------------------------+
52919  M01S00953.252l678 +++|          TLX7   9,UESC      FLE*(UEBS)
52920  M00S31770.cpumtr  +++|          IX3    X0+X3       ECA+WC

Seq #  *Modification Id* Act 
----------------------------+
52921  M01S31771.ns2184  ---|          LX2    9

Seq #  *Modification Id* Act 
----------------------------+
52922  M02S00028.252l678 ---|          LX2    9+UESF      RAE

Seq #  *Modification Id* Act 
----------------------------+
52923  M01S00954.252l678 +++|          TLX2   9,UESC      RAE
52924  M00S31772.cpumtr  +++|          IX0    X2+X0       RAE+ECA=ABSOLUTE ECS ADDRESS
52925  M00S31773.cpumtr  +++|          SA2    B7+FLSW
52926  M00S31774.cpumtr  +++|          IX1    X7-X3       FLE - (ECA + WC)
52927  M00S31775.cpumtr  +++|          BX7    -X6*X2      CM FL
52928  M00S31776.cpumtr  +++|          MX6    -RMSK
52929  M00S31777.cpumtr  +++|          AX2    RSHF
52930  M00S31778.cpumtr  +++|          BX2    -X6*X2      CM RA
52931  M00S31779.cpumtr  +++|          LX7    6           FL*100B
52932  M00S31780.cpumtr  +++|          LX4    6           CMA*100B
52933  M00S31781.cpumtr  +++|          SX3    X4+B3       CMA + WC
52934  M00S31782.cpumtr  +++|          IX7    X7-X3       FL-(CMA+WC)
52935  M00S31783.cpumtr  +++|          BX7    X1+X7
52936  M00S31784.cpumtr  +++|          NG     X7,HNG      IF CMA OR ECA OUT OF RANGE
52937  M00S31785.cpumtr  +++|          LX2    6           RA*100B
52938  M00S31786.cpumtr  +++|          IX4    X2+X4       RA+CMA
52939  M00S31787.cpumtr  +++|          BX7    X7-X7
52940  M00S31788.cpumtr  +++|          SA0    X4          SET ABSOLUTE FWA OF CM BUFFER
52941  M00S31789.cpumtr  +++|          LX4    30
52942  M00S31790.cpumtr  +++|          BX0    X4+X0

Seq #  *Modification Id* Act 
----------------------------+
52943  M01S31791.271l716 ---|          LX5    -24
52944  M01S31792.271l716 ---|          SB5    X5          SAVE RESPONSE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
52945  M01S02906.271l716 +++|          SB5    X5+         SAVE RESPONSE ADDRESS
52946  M00S31793.cpumtr  +++|          SB4    MECB
52947  M00S31794.cpumtr  +++|          SB6    TEC3        SET RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
52948  M01S31795.271l716 ---|          LX5    2           POSITION READ/WRITE FLAG
52949  M01S31796.271l716 ---|          ZR     B5,TEC1     IF NO ALTERNATE RESPONSE ADDRESS
52950  M01S31797.271l716 ---|          SA7    A5          CLEAR PP OUTPUT REGISTER NOW

Seq #  *Modification Id* Act 
----------------------------+
52951  M01S02907.271l716 +++|          LX5    59-18

Seq #  *Modification Id* Act 
----------------------------+
52952  M02S02908.273l780 ---|          SA7    A5+         CLEAR PP OUTPUT REGISTER NOW

Seq #  *Modification Id* Act 
----------------------------+
52953  M01S00979.273l780 +++|          SA7    A5          CLEAR PP OUTPUT REGISTER NOW
52954  M00S31798.cpumtr  +++| TEC1     GE     B3,B4,TEC2  IF NOT LAST SHORT BLOCK
52955  M00S31799.cpumtr  +++|          SB4    B3+
52956  M00S31800.cpumtr  +++| TEC2     NG     X5,TEC4     IF WRITE
52957  M00S31801.cpumtr  +++|          RUE    PROGRAM     READ (B4) WORDS FROM USER ECS
52958  M00S31802.cpumtr  +++|          PER    /PROGRAM/TEC6  PARITY ERROR PROCESSOR
52959  M00S31803.cpumtr  +++| TEC3     EQ     B3,B4,TEC5  IF END OF BLOCK
52960  M00S31804.cpumtr  +++|          SB3    B3-B4       DECREMENT WORD COUNT
52961  M00S31805.cpumtr  +++|          SX2    B4          INCREMENT ADDRESSES
52962  M00S31806.cpumtr  +++|          SA0    A0+B4
52963  M00S31807.cpumtr  +++|          IX0    X0+X2
52964  M00S31808.cpumtr  +++|          LX2    30
52965  M00S31809.cpumtr  +++|          IX0    X0+X2
52966  M00S31810.cpumtr  +++|          EQ     TEC1        LOOP FOR NEXT TRANSFER
52967  M00S31811.cpumtr  +++|
52968  M00S31812.cpumtr  +++| TEC4     WUE    PROGRAM     WRITE (B4) WORDS TO USER ECS
52969  M00S31813.cpumtr  +++|          PER    /PROGRAM/TEC6  PARITY ERROR PROCESSOR
52970  M00S31814.cpumtr  +++| TEC5     NE     B3,B4,TEC3  IF NOT END OF BLOCK

Seq #  *Modification Id* Act 
----------------------------+
52971  M01S00005.ns2384  +++|          SA1    B7+ECSW     CLEAR *ECXM* STORAGE MOVE INTERLOCK
52972  M01S00006.ns2384  +++|          MX6    59
52973  M01S00007.ns2384  +++|          LX6    47-0
52974  M01S00008.ns2384  +++|          BX6    X6*X1
52975  M01S00009.ns2384  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
52976  M01S31815.271l716 ---|          ZR     B5,PRG1     IF NO ALTERNATE RESPONSE
52977  M00S31816.cpumtr  +++|          SA7    B5          SET RESPONSE
52978  M00S31817.cpumtr  +++|          EQ     PRG         EXIT
52979  M00S31818.cpumtr  +++|
52980  M00S31819.cpumtr  +++| TEC6     MX7    12          RETURN ERROR STATUS
52981  M00S31820.cpumtr  +++|          LX7    -12
52982  M00S31821.cpumtr  +++|          EQ     TEC5        RETURN
52983  M00S31822.cpumtr  +++| UBUF     SPACE  4,10
52984  M00S31823.cpumtr  +++|*         USER ECS STORAGE MOVE BUFFER.
52985  M00S31824.cpumtr  +++|
52986  M00S31825.cpumtr  +++| UBUF     BSS    MECB
52987  M00S31826.cpumtr  +++|          SPACE  4
52988  M00S31827.cpumtr  +++|          QUAL   UEC
52989  M00S31828.cpumtr  +++|
52990  M00S31829.cpumtr  +++|          ENDBLK
52991  M00S31830.cpumtr  +++|          BLOCK  VMS,(VALIDATE MASS STORAGE.)
52992  M00S31831.cpumtr  +++| VMSM     SPACE  4,10
52993  M00S31832.cpumtr  +++|**        VMSM - VALIDATE MASS STORAGE.
52994  M00S31833.cpumtr  +++|*
52995  M00S31834.cpumtr  +++|*         ENTRY  (A5) = PPU OUTPUT REGISTER ADDRESS.
52996  M00S31835.cpumtr  +++|
52997  M00S31836.cpumtr  +++|
52998  M00S31837.cpumtr  +++| VMS      SX4    X1
52999  M00S31838.cpumtr  +++|          AX4    12
53000  M00S31839.cpumtr  +++|          SB3    VMS1        *CTR* RETURN ADDRESS
53001  M00S31840.cpumtr  +++|          ZR     X4,/PROGRAM/CTR  IF INTERLOCKING MST/TRT
53002  M00S31841.cpumtr  +++|          AX4    1
53003  M00S31842.cpumtr  +++|          SB6    B0
53004  M00S31843.cpumtr  +++|          ZR     X4,/PROGRAM/CTR  IF VALIDATE WITH NO INTERLOCK
53005  M00S31844.cpumtr  +++|          SB3    VMS8        *CTR* RETURN ADDRESS
53006  M00S31845.cpumtr  +++|          EQ     /PROGRAM/CTR
53007  M00S31846.cpumtr  +++|
53008  M00S31847.cpumtr  +++|*         VALIDATE EQUIPMENT.
53009  M00S31848.cpumtr  +++|
53010  M00S31849.cpumtr  +++| VMS1     BX2    -X5*X3      AVAILABLE TRACKS
53011  M00S31850.cpumtr  +++|          MX0    -4          (X0) = PRESERVED BIT MASK
53012  M00S31851.cpumtr  +++|          SA4    A3+B1       READ PRESERVED FILE COUNT
53013  M00S31852.cpumtr  +++|          SA1    B6          READ FIRST WORD OF TRT
53014  M00S31853.cpumtr  +++|          AX3    24
53015  M00S31854.cpumtr  +++|          AX4    24
53016  M00S31855.cpumtr  +++|          BX3    -X5*X3      TRT LENGTH
53017  M00S31856.cpumtr  +++|          BX4    -X4+X5      - PRESERVED FILE COUNT
53018  M00S31857.cpumtr  +++|          SB4    X3          (B4) = LENGTH OF TRT
53019  M00S31858.cpumtr  +++|          LX0    8
53020  M00S31859.cpumtr  +++|          SB2    B6+X3       (B2) = LWA+1 OF TRT, *VTC* ENTRY CONDITION
53021  M00S31860.cpumtr  +++|          LX3    2
53022  M00S31861.cpumtr  +++|          SB5    X4          (B5) = - PRESERVED FILE COUNT
53023  M00S31862.cpumtr  +++|          IX7    X2-X3
53024  M00S31863.cpumtr  +++|          MX4    -4          (X4) = RESERVATION BIT MASK
53025  M00S31864.cpumtr  +++|          SB3    X7          (B3) = - TRACKS RESERVED
53026  M00S31865.cpumtr  +++|
53027  M00S31866.cpumtr  +++|*         COUNT RESERVATION AND PRESERVED FILE BITS.
53028  M00S31867.cpumtr  +++|
53029  M00S31868.cpumtr  +++| VMS2     SB7    X4          (B7) = -15 = LOOP COUNTER
53030  M00S31869.cpumtr  +++|          BX7    X7-X7
53031  M00S31870.cpumtr  +++|          SB4    B7+B4
53032  M00S31871.cpumtr  +++|          BX6    X6-X6
53033  M00S31872.cpumtr  +++|          PL     B4,VMS3     IF NOT LAST SHORT LOOP
53034  M00S31873.cpumtr  +++|          SB7    B7-B4       SET TO SHORT LOOP WORD COUNT
53035  M00S31874.cpumtr  +++| VMS3     LX7    4
53036  M00S31875.cpumtr  +++|          BX5    -X0*X1      EXTRACT PRESERVED FILE BITS
53037  M00S31876.cpumtr  +++|          SB7    B7+B1
53038  M00S31877.cpumtr  +++|          BX6    X6+X5
53039  M00S31878.cpumtr  +++|          BX5    -X4*X1      EXTRACT RESERVATION BITS
53040  M00S31879.cpumtr  +++|          LX6    4
53041  M00S31880.cpumtr  +++|          SA1    A1+B1
53042  M00S31881.cpumtr  +++|          BX7    X7+X5
53043  M00S31882.cpumtr  +++|          NZ     B7,VMS3     IF NOT END OF LOOP
53044  M00S31883.cpumtr  +++|
53045  M00S31884.cpumtr  +++|          CX6    X6          COUNT PRESERVED FILE BITS
53046  M00S31885.cpumtr  +++|          CX7    X7          COUNT RESERVATION BITS
53047  M00S31886.cpumtr  +++|          SB5    B5+X6
53048  M00S31887.cpumtr  +++|          SB3    B3+X7
53049  M00S31888.cpumtr  +++|          GT     B4,B0,VMS2  IF NOT END OF TRT
53050  M00S31889.cpumtr  +++|          SX3    B1
53051  M00S31890.cpumtr  +++|          MX0    -8
53052  M00S31891.cpumtr  +++|          SA4    A3+PUGL     CHECK FOR CATALOGS ON DEVICE
53053  M00S31892.cpumtr  +++|          BX7    X7-X7
53054  M00S31893.cpumtr  +++|          ZR     B3,VMS4     IF RESERVATION BIT COUNT OK
53055  M00S31894.cpumtr  +++|          BX7    X7+X3       SET ERROR FLAG
53056  M00S31895.cpumtr  +++| VMS4     LX7    -1
53057  M00S31896.cpumtr  +++|          ZR     B5,VMS5     IF PRESERVATION BIT COUNT OK
53058  M00S31897.cpumtr  +++|          BX7    X7+X3       SET ERROR FLAG
53059  M00S31898.cpumtr  +++| VMS5     BX2    -X0*X4      EXTRACT DEVICE MASK
53060  M00S31899.cpumtr  +++|          LX7    -4
53061  M00S31900.cpumtr  +++|          ZR     X2,VMS7     IF NO CATALOGS ON DEVICE
53062  M00S31901.cpumtr  +++|
53063  M00S31902.cpumtr  +++|*         VALIDATE PERMIT, LABEL-CATALOG, IAF TRACK CHAINS.
53064  M00S31903.cpumtr  +++|
53065  M00S31904.cpumtr  +++|          SB7    B1+B1
53066  M00S31905.cpumtr  +++|          SA2    A4-B7       READ FIRST TRACK OF CHAINS
53067  M00S31906.cpumtr  +++|          MX4    -11
53068  M00S31907.cpumtr  +++|          AX2    12
53069  M00S31908.cpumtr  +++|          SB3    VMS6        *VTC* RETURN ADDRESS
53070  M00S31909.cpumtr  +++|          LX7    4
53071  M00S31910.cpumtr  +++|          MX0    -2
53072  M00S31911.cpumtr  +++|
53073  M00S31912.cpumtr  +++|*         VALIDATE INDIRECT ACCESS FILE CHAIN.
53074  M00S31913.cpumtr  +++|
53075  M00S31914.cpumtr  +++| VMS6     AX2    12
53076  M00S31915.cpumtr  +++|          LX7    -1
53077  M00S31916.cpumtr  +++|          BX6    -X0*X2
53078  M00S31917.cpumtr  +++|          BX1    -X4*X2
53079  M00S31918.cpumtr  +++|          SB7    B7-1
53080  M00S31919.cpumtr  +++|          NZ     X2,VTC      IF MORE CHAINS TO VALIDATE
53081  M00S31920.cpumtr  +++|
53082  M00S31921.cpumtr  +++|*         RETURN STATUS, INTERLOCK DEVICE IF ERRORS.
53083  M00S31922.cpumtr  +++|
53084  M00S31923.cpumtr  +++| VMS7     SX3    B1          SET *CDI* ENTRY CONDITIONS
53085  M00S31924.cpumtr  +++|          BX1    X1-X1
53086  M00S31925.cpumtr  +++|          SX5    B1
53087  M00S31926.cpumtr  +++|          SB4    B0
53088  M00S31927.cpumtr  +++|          SB5    /PROGRAM/PRG

Seq #  *Modification Id* Act 
----------------------------+
53089  M01S31928.ns2579  ---|          ZR     X7,/PROGRAM/CDI  IF NO ERRORS

Seq #  *Modification Id* Act 
----------------------------+
53090  M01S00082.ns2579  +++|          TZR    X7,(/ISD/VMS1,ISD,/PROGRAM/CDI)  IF NO ERRORS
53091  M00S31929.cpumtr  +++|          LX3    4

Seq #  *Modification Id* Act 
----------------------------+
53092  M01S31930.253l688 ---|          SA1    A3+B1       SET DEVICE ERROR IDLE
53093  M01S31931.253l688 ---|          BX6    X1+X3

Seq #  *Modification Id* Act 
----------------------------+
53094  M01S02548.253l688 +++|          SA2    A3+B1       SET DEVICE ERROR IDLE
53095  M01S02549.253l688 +++|          BX6    X2+X3
53096  M00S31932.cpumtr  +++|          LX7    5+36

Seq #  *Modification Id* Act 
----------------------------+
53097  M01S31933.253l688 ---|          SA6    A1
53098  M01S31934.253l688 ---|          SA7    A5          STORE OUTPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
53099  M02S31935.253l688 ---|          EQ     /PROGRAM/PRG  EXIT

Seq #  *Modification Id* Act 
----------------------------+
53100  M03S02821.253l688 ---|          TEQ    (/LSPMMF/VMS,/PROGRAM/PRG,LSPMMF)  EXIT

Seq #  *Modification Id* Act 
----------------------------+
53101  M02S00955.253l688 ---|          TEQ    (/LSPMMF/VMS,LSPMMF,/PROGRAM/PRG)  EXIT

Seq #  *Modification Id* Act 
----------------------------+
53102  M01S02550.253l688 +++|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
53103  M02S02551.ns2579  ---|          SX6    B1          PRESERVE INTERLOCK BIT IN *CDI*
53104  M02S02552.ns2579  ---|          TEQ    (/LSPMMF/VMS,LSPMMF,/ISD/CDI,ISD,/PROGRAM/CSM1)  EXIT

Seq #  *Modification Id* Act 
----------------------------+
53105  M01S00083.ns2579  +++|          TEQ    (/LSPMMF/VMS,LSPMMF,/ISD/VMS1,ISD,/PROGRAM/CSM1)  EXIT
53106  M00S31936.cpumtr  +++|
53107  M00S31937.cpumtr  +++|*         VALIDATE TRACK CHAIN.
53108  M00S31938.cpumtr  +++|
53109  M00S31939.cpumtr  +++| VMS8     AX3    24          SET TRT LENGTH
53110  M00S31940.cpumtr  +++|          SB3    VMS9
53111  M00S31941.cpumtr  +++|          BX3    -X5*X3
53112  M00S31942.cpumtr  +++|          MX4    -11
53113  M00S31943.cpumtr  +++|          SB2    B6+X3       (B2) = LWA + 1 OF TRT
53114  M00S31944.cpumtr  +++|          MX0    -2
53115  M00S31945.cpumtr  +++|          BX7    X7-X7
53116  M00S31946.cpumtr  +++|          SB7    B1
53117  M00S31947.cpumtr  +++|          EQ     VTC1        VALIDATE TRACK CHAIN
53118  M00S31948.cpumtr  +++|
53119  M00S31949.cpumtr  +++| VMS9     LX7    36          RETURN STATUS
53120  M00S31950.cpumtr  +++|          SA7    A5
53121  M00S31951.cpumtr  +++|          EQ     /PROGRAM/PRG EXIT
53122  M00S31952.cpumtr  +++| VTC      SPACE  4,15
53123  M00S31953.cpumtr  +++|**        VTC - VALIDATE TRACK CHAIN.
53124  M00S31954.cpumtr  +++|*         VTC VALIDATES A TRACK CHAIN TO INSURE ALL TRACKS ARE RESERVED,
53125  M00S31955.cpumtr  +++|*         NO CIRCULAR CHAIN EXISTS AND ALL TRACKS ARE WITHIN THE TRT.
53126  M00S31956.cpumtr  +++|*
53127  M00S31957.cpumtr  +++|*         ENTRY  ENTER AT VTC1 IF NOT TO CHECK PRESERVED FILE BIT.
53128  M00S31958.cpumtr  +++|*                (X0) = -3
53129  M00S31959.cpumtr  +++|*                (X1) = FIRST TRACK.
53130  M00S31960.cpumtr  +++|*                (X2) = TRACK IF ENTERED AT VTC.
53131  M00S31961.cpumtr  +++|*                (X4) = -3777B
53132  M00S31962.cpumtr  +++|*                (X6) = BITS 0 AND 1 OF TRACK IF ENTERED AT VTC.
53133  M00S31963.cpumtr  +++|*                (B2) = LWA + 1 OF TRT.
53134  M00S31964.cpumtr  +++|*                (B3) = EXIT ADDRESS.
53135  M00S31965.cpumtr  +++|*                (B6) = FWA OF TRT.
53136  M00S31966.cpumtr  +++|*                (B7) = 0 IF CHECKING CATALOG CHAIN.
53137  M00S31967.cpumtr  +++|*                (A3) = ADDRESS OF TDGL IN MST.
53138  M00S31968.cpumtr  +++|*
53139  M00S31969.cpumtr  +++|*         EXIT   (X7) = BIT 0 SET IF ERROR DETECTED IN CHAIN.
53140  M00S31970.cpumtr  +++|*
53141  M00S31971.cpumtr  +++|*         USES   X - 1, 3, 5, 6, 7.
53142  M00S31972.cpumtr  +++|*                B - 4, 5, 7.
53143  M00S31973.cpumtr  +++|*                A - 1.
53144  M00S31974.cpumtr  +++|
53145  M00S31975.cpumtr  +++|
53146  M00S31976.cpumtr  +++| VTC      AX1    2
53147  M00S31977.cpumtr  +++|          SB4    X6+48       PRESERVATION BIT SHIFT COUNT
53148  M00S31978.cpumtr  +++|          SA1    B6+X1
53149  M00S31979.cpumtr  +++|          LX6    X1,B4
53150  M00S31980.cpumtr  +++|          PL     X6,VTC6     IF PRESERVATION BIT NOT SET
53151  M00S31981.cpumtr  +++|          BX1    -X4*X2
53152  M00S31982.cpumtr  +++|
53153  M00S31983.cpumtr  +++|*         ENTER HERE IF NOT CHECKING PRESERVATION BIT.
53154  M00S31984.cpumtr  +++|
53155  M00S31985.cpumtr  +++| VTC1     SX3    B6-B2       SET NUMBER OF TRACKS
53156  M00S31986.cpumtr  +++|          BX1    -X4*X1
53157  M00S31987.cpumtr  +++|          LX3    2
53158  M00S31988.cpumtr  +++|          SB4    X1
53159  M00S31989.cpumtr  +++|
53160  M00S31990.cpumtr  +++|*         TRACK VALIDATION LOOP.
53161  M00S31991.cpumtr  +++|
53162  M00S31992.cpumtr  +++| VTC2     BX1    -X4*X1      TRACK
53163  M00S31993.cpumtr  +++|          SX3    X3+B1
53164  M00S31994.cpumtr  +++|          BX6    -X0*X1      BYTE NUMBER
53165  M00S31995.cpumtr  +++|          SB5    X1
53166  M00S31996.cpumtr  +++|          NZ     B7,VTC3     IF NOT CHECKING CATALOG CHAIN
53167  M00S31997.cpumtr  +++|          NE     B4,B5,VTC5  IF TRACKS NON-CONTIGUOUS
53168  M00S31998.cpumtr  +++| VTC3     SX1    B5
53169  M00S31999.cpumtr  +++|          SB5    X6+56       RESERVATION BIT SHIFT COUNT
53170  M00S32000.cpumtr  +++|          LX6    2           TRACK LINK SHIFT COUNT * 4
53171  M00S32001.cpumtr  +++|          SB4    X1+B1
53172  M00S32002.cpumtr  +++|          AX1    2
53173  M00S32003.cpumtr  +++|          SA1    B6+X1       READ TRT WORD
53174  M00S32004.cpumtr  +++|          LX5    X1,B5       POSITION RESERVATION BIT
53175  M00S32005.cpumtr  +++|          SB5    X6
53176  M00S32006.cpumtr  +++|          LX6    1           TRACK LINK SHIFT COUNT * 8
53177  M00S32007.cpumtr  +++|          BX5    X5*X3
53178  M00S32008.cpumtr  +++|          SB5    B5+X6       TRACK LINK SHIFT COUNT * 12
53179  M00S32009.cpumtr  +++|          SX6    A1-B2       CHECK OUT OF TRT
53180  M00S32010.cpumtr  +++|          LX1    X1,B5       POSITION TRACK LINK BIT
53181  M00S32011.cpumtr  +++|          BX6    X6*X5
53182  M00S32012.cpumtr  +++|          AX1    48
53183  M00S32013.cpumtr  +++|          PL     X6,VTC6     IF NOT RESERVED, OUT OF TRT, OR CIRCULAR
53184  M00S32014.cpumtr  +++|          NG     X1,VTC2     IF TRACK LINKED
53185  M00S32015.cpumtr  +++|          NZ     B7,VTC4     IF NOT CHECKING CATALOG CHAIN
53186  M00S32016.cpumtr  +++|          SA1    A3+ALGL
53187  M00S32017.cpumtr  +++|          SX5    B6-B2       TRT LENGTH
53188  M00S32018.cpumtr  +++|          LX1    -12
53189  M00S32019.cpumtr  +++|          LX5    2           SET NUMBER OF TRACKS
53190  M00S32020.cpumtr  +++|          BX1    -X4*X1      CATALOG TRACK COUNT FROM MST
53191  M00S32021.cpumtr  +++|          IX5    X3-X5       NUMBER OF TRACKS IN CATALOG CHAIN
53192  M00S32022.cpumtr  +++|          CX3    X1
53193  M00S32023.cpumtr  +++|          IX6    X1-X5
53194  M00S32024.cpumtr  +++|          SB4    X3
53195  M00S32025.cpumtr  +++|          PL     X6,VTC6     IF NOT ENOUGH CATALOG TRACKS
53196  M00S32026.cpumtr  +++|          NE     B4,B1,VTC6  IF CATALOG TRACK COUNT NOT POWER OF TWO
53197  M00S32027.cpumtr  +++| VTC4     JP     B3          RETURN
53198  M00S32028.cpumtr  +++|
53199  M00S32029.cpumtr  +++| VTC5     SA1    A3+PUGL     CHECK CATALOG CHAIN CONTIGUOUS/OVERFLOW
53200  M00S32030.cpumtr  +++|          LX1    59-17
53201  M00S32031.cpumtr  +++|          PL     X1,VTC3     IF CATALOG CHAIN NON-CONTIGUOUS
53202  M00S32032.cpumtr  +++|          SA1    A3+ACGL
53203  M00S32033.cpumtr  +++|          LX1    59-57
53204  M00S32034.cpumtr  +++|          NG     X1,VTC3     IF CATALOG TRACK OVERFLOW
53205  M00S32035.cpumtr  +++| VTC6     SX3    B1          RETURN ERROR STATUS
53206  M00S32036.cpumtr  +++|          BX7    X3+X7
53207  M00S32037.cpumtr  +++|          JP     B3          RETURN
53208  M00S32038.cpumtr  +++|
53209  M00S32039.cpumtr  +++|          ENDBLK
53210  M00S32040.cpumtr  +++|          BLOCK  EUE,(ECS AND USER ECS PROCESSING ROUTINES.),ECS
53211  M00S32041.cpumtr  +++| ECSM     SPACE  4
53212  M00S32042.cpumtr  +++|**        ECSM - ECS TRANSFER.
53213  M00S32043.cpumtr  +++|*
53214  M00S32044.cpumtr  +++|*         ENTRY  (A5) = PPU OUTPUT REGISTER ADDRESS.
53215  M00S32045.cpumtr  +++|*
53216  M00S32046.cpumtr  +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
53217  M00S32047.cpumtr  +++|*                B - 3, 4, 5, 6.
53218  M00S32048.cpumtr  +++|*                A - 0, 1, 2, 3, 6.
53219  M00S32049.cpumtr  +++|*
53220  M00S32050.cpumtr  +++|*         CALLS  CFR, EAB, SFR.
53221  M00S32051.cpumtr  +++|*
53222  M00S32052.cpumtr  +++|*         MACROS PER, RUE, WUE.
53223  M00S32053.cpumtr  +++|
53224  M00S32054.cpumtr  +++|
53225  M00S32055.cpumtr  +++| ECS      SB3    A0          SAVE CPU NUMBER
53226  M00S32056.cpumtr  +++|          LX5    59-23
53227  M00S32057.cpumtr  +++|          PL     X5,ECS2     IF OPTIONS 0 - 3
53228  M00S32058.cpumtr  +++|          LX1    -42
53229  M00S32059.cpumtr  +++|          LX2    X5,B1
53230  M00S32060.cpumtr  +++|          SB4    X1          LIST SIZE/BIT NUMBER
53231  M00S32061.cpumtr  +++|          LX5    X2,B1
53232  M00S32062.cpumtr  +++|          NG     X2,ECS1     IF OPTION 6 OR 7
53233  M00S32063.cpumtr  +++|          SB6    ECSX        *SFR*/*CFR* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
53234  M01S32064.252l678 ---|          TPL    X5,(/ECS/SFR,/MONITOR/HNG,EEC)  IF *SFRS* FUNCTION
53235  M01S32065.252l678 ---|          TEQ    (/ECS/CFR,/MONITOR/HNG,EEC)  PROCESS *CFRS* FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
53236  M01S00956.252l678 +++|          TPL    X5,(/ECS/SFR,EEC,/MONITOR/HNG)  IF *SFRS* FUNCTION
53237  M01S00957.252l678 +++|          TEQ    (/ECS/CFR,EEC,/MONITOR/HNG)  PROCESS *CFRS* FUNCTION
53238  M00S32066.cpumtr  +++|
53239  M00S32067.cpumtr  +++| ECS1     NG     X5,/MONITOR/HNG  IF OPTION 7
53240  M00S32068.cpumtr  +++|          LX5    1           NEGATIVE = WRITE ECS, POSITIVE = READ ECS
53241  M00S32069.cpumtr  +++|          MX2    1
53242  M00S32070.cpumtr  +++|          BX3    X2*X5
53243  M00S32071.cpumtr  +++|          LX2    -1
53244  M00S32072.cpumtr  +++|          BX2    X2*X5
53245  M00S32073.cpumtr  +++|          LX2    2
53246  M00S32074.cpumtr  +++|          SB5    X2          0 = ABS SYSTEM ECS, 1 = ABS USER ECS
53247  M00S32075.cpumtr  +++|          LX1    18
53248  M00S32076.cpumtr  +++|          SA1    X1          GET FIRST LIST ENTRY
53249  M00S32077.cpumtr  +++|          SX4    B4          INDICATE LIST SUBFUNCTION
53250  M00S32078.cpumtr  +++|          ZR     B4,/MONITOR/HNG  IF NO ENTRIES IN LIST

Seq #  *Modification Id* Act 
----------------------------+
53251  M01S00001.cpumt63 +++|          MX5    -18
53252  M00S32079.cpumtr  +++|          SX2    A1+B4       CM ADDRESS OF DATA BUFFER

Seq #  *Modification Id* Act 
----------------------------+
53253  M01S00002.cpumt63 +++|          BX2    -X5*X2
53254  M00S32080.cpumtr  +++|          BX5    X3+X2

Seq #  *Modification Id* Act 
----------------------------+
53255  M01S32081.cpumt63 ---|          SX2    B0

Seq #  *Modification Id* Act 
----------------------------+
53256  M01S00003.cpumt63 +++|          SX2    B0+
53257  M00S32082.cpumtr  +++|          EQ     ECS11       PRESET LIST REGISTERS
53258  M00S32083.cpumtr  +++|
53259  M00S32084.cpumtr  +++| ECS2     LX1    -24         CM ADDRESS OF BUFFER
53260  M00S32085.cpumtr  +++|          MX3    -17
53261  M00S32086.cpumtr  +++|          LX5    2           NEGATIVE = WRITE ECS, POSITIVE = READ ECS
53262  M00S32087.cpumtr  +++|          SX4    B1
53263  M00S32088.cpumtr  +++|          BX4    -X5*X4
53264  M00S32089.cpumtr  +++|          MX2    1
53265  M00S32090.cpumtr  +++|          BX5    X2*X5
53266  M00S32091.cpumtr  +++|          LX4    1
53267  M00S32092.cpumtr  +++|          SB5    X4          0 = ABS SYSTEM ECS, 2 = RELATIVE USER ECS
53268  M00S32093.cpumtr  +++|          BX3    -X3*X1
53269  M00S32094.cpumtr  +++|          LX1    -18
53270  M00S32095.cpumtr  +++|          MX6    -RMSK
53271  M00S32096.cpumtr  +++|          PL     X1,ECS3     IF ABSOLUTE CM ADDRESS
53272  M00S32097.cpumtr  +++|          SA2    B7+FLSW     ABSOLUTIZE CM BUFFER ADDRESS
53273  M00S32098.cpumtr  +++|          AX2    RSHF
53274  M00S32099.cpumtr  +++|          BX2    -X6*X2      RA/100
53275  M00S32100.cpumtr  +++|          LX2    6
53276  M00S32101.cpumtr  +++|          IX3    X3+X2
53277  M00S32102.cpumtr  +++| ECS3     BX5    X5+X3
53278  M00S32103.cpumtr  +++|          LX1    42
53279  M00S32104.cpumtr  +++|          SX4    B0+         INDICATE NOT LIST SUBFUNCTION
53280  M00S32105.cpumtr  +++|          SB4    B1+         BIAS FOR WORD COUNT
53281  M00S32106.cpumtr  +++|          MX3    -21         ADDRESS MASK
53282  M00S32107.cpumtr  +++| ECS4     MX6    -21
53283  M00S32108.cpumtr  +++|          BX0    -X3*X1      ECS ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
53284  M01S00001.cpum103 +++|          MX3    -6
53285  M00S32109.cpumtr  +++|          LX1    -42

Seq #  *Modification Id* Act 
----------------------------+
53286  M01S00002.cpum103 +++|          BX1    -X3*X1      WORD COUNT
53287  M00S32110.cpumtr  +++|          SB4    X1+B4       WORD COUNT OF TRANSFER
53288  M00S32111.cpumtr  +++|          BX1    -X6*X5      CM ADDRESS OF BUFFER
53289  M00S32112.cpumtr  +++|          SA0    X1
53290  M00S32113.cpumtr  +++|          TX3    MECNF       MACHINE ECS FL / 1000B

Seq #  *Modification Id* Act 
----------------------------+
53291  M01S00958.252l678 +++|          TLX3   60-0,-UESC
53292  M00S32114.cpumtr  +++|          ZR     B5,ECS6     IF ABSOLUTE SYSTEM ECS ADDRESS
53293  M00S32115.cpumtr  +++|          EQ     B5,B1,ECS5  IF ABSOLUTE USER ECS ADDRESS
53294  M00S32116.cpumtr  +++|          SA3    B7+ECSW     GET ECS RA AND FL

Seq #  *Modification Id* Act 
----------------------------+
53295  M01S32117.252l678 ---|          BX0    -X6*X0      USE 21 BIT MASK FOR RELATIVE REQUEST
53296  M00S32118.cpumtr  +++|          MX2    -12
53297  M00S32119.cpumtr  +++|          BX6    -X2*X3
53298  M00S32120.cpumtr  +++|          AX3    RSHF

Seq #  *Modification Id* Act 
----------------------------+
53299  M01S32121.ns2184  ---|          LX6    9

Seq #  *Modification Id* Act 
----------------------------+
53300  M02S00029.252l678 ---|          LX6    9+UESF

Seq #  *Modification Id* Act 
----------------------------+
53301  M01S00959.252l678 +++|          TLX6   9,UESC
53302  M00S32122.cpumtr  +++|          MX2    -RMSK
53303  M00S32123.cpumtr  +++|          BX3    -X2*X3
53304  M00S32124.cpumtr  +++|          SX2    B4-B1

Seq #  *Modification Id* Act 
----------------------------+
53305  M01S32125.ns2184  ---|          LX3    9

Seq #  *Modification Id* Act 
----------------------------+
53306  M02S00030.252l678 ---|          LX3    9+UESF

Seq #  *Modification Id* Act 
----------------------------+
53307  M01S00960.252l678 +++|          TLX3   9,UESC
53308  M00S32126.cpumtr  +++|          IX2    X0+X2
53309  M00S32127.cpumtr  +++|          IX2    X2-X6
53310  M00S32128.cpumtr  +++|          IX0    X0+X3       ABSOLUTIZE ECS ADDRESS
53311  M00S32129.cpumtr  +++|          PL     X2,EAB3     IF ECA + WC .GT. FLX
53312  M00S32130.cpumtr  +++| ECS5     TA3    ECSW,SCA    SET LWA+1 USER ECS / 1000B
53313  M00S32131.cpumtr  +++|          MX2    -12
53314  M00S32132.cpumtr  +++|          BX6    -X2*X3
53315  M00S32133.cpumtr  +++|          AX3    RSHF
53316  M00S32134.cpumtr  +++|          MX2    -RMSK
53317  M00S32135.cpumtr  +++|          BX3    -X2*X3
53318  M00S32136.cpumtr  +++|          IX3    X3+X6

Seq #  *Modification Id* Act 
----------------------------+
53319  M01S32137.ns2184  ---| ECS6     LX3    9

Seq #  *Modification Id* Act 
----------------------------+
53320  M02S00031.252l678 ---| ECS6     LX3    9+UESF

Seq #  *Modification Id* Act 
----------------------------+
53321  M01S00961.252l678 +++| ECS6     TLX3   9,UESC
53322  M00S32138.cpumtr  +++|          SX2    B4-B1
53323  M00S32139.cpumtr  +++|          LX1    30
53324  M00S32140.cpumtr  +++|          IX2    X0+X2       LWA OF TRANSFER
53325  M00S32141.cpumtr  +++|          BX0    X1+X0
53326  M00S32142.cpumtr  +++|          IX2    X2-X3

Seq #  *Modification Id* Act 
----------------------------+
53327  M01S32143.cpu197b ---|          SX3    B1

Seq #  *Modification Id* Act 
----------------------------+
53328  M01S00001.cpu197b +++|          SX3    B1+
53329  M01S00002.cpu197b +++|          SX6    A1          SAVE LIST ENTRY ADDRESS
53330  M01S00003.cpu197b +++|          SA6    ECSA
53331  M00S32144.cpumtr  +++|          BX6    X6-X6
53332  M00S32145.cpumtr  +++|          PL     X2,EAB10    IF ILLEGAL ADDRESS
53333  M00S32146.cpumtr  +++|          SB6    ECS10       SET RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
53334  M03S00001.cpu197b ---|          SX2    A1+         SAVE (A1) IF PARITY ERROR

Seq #  *Modification Id* Act 
----------------------------+
53335  M01S32147.v23l617 ---|          NZ     B5,ECS8     IF USER ECS READ/WRITE

Seq #  *Modification Id* Act 
----------------------------+
53336  M01S00516.v23l617 +++|          NZ     B5,ECS8     IF USER EXTENDED MEMORY READ/WRITE
53337  M00S32148.cpumtr  +++|          NG     X5,ECS7     IF WRITE SYSTEM ECS
53338  M00S32149.cpumtr  +++|+         RE     B4          READ (B4) WORDS FROM SYSTEM ECS

Seq #  *Modification Id* Act 
----------------------------+
53339  M01S32150.v23l617 ---|          PER    EAB         PROCESS ECS ERROR

Seq #  *Modification Id* Act 
----------------------------+
53340  M02S00517.cpu197a ---|          PER    EAB         PROCESS EXTENDED MEMORY ERROR

Seq #  *Modification Id* Act 
----------------------------+
53341  M01S32151.cpu197a ---|          EQ     ECS10       COMPLETE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
53342  M02S00001.cpu197b ---|          EQ     ECS9.1      COMPLETE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
53343  M01S00004.cpu197b +++|          PER    EAB         PROCESS EXTENDED MEMORY ERROR
53344  M01S00005.cpu197b +++|          EQ     ECS10       COMPLETE PROCESSING
53345  M00S32152.cpumtr  +++|
53346  M00S32153.cpumtr  +++| ECS7     WE     B4          WRITE (B4) WORDS TO SYSTEM ECS

Seq #  *Modification Id* Act 
----------------------------+
53347  M01S32154.v23l617 ---|          PER    EAB         PROCESS ECS ERROR

Seq #  *Modification Id* Act 
----------------------------+
53348  M02S00518.cpu197a ---|          PER    EAB         PROCESS EXTENDED MEMORY ERROR

Seq #  *Modification Id* Act 
----------------------------+
53349  M01S32155.cpu197a ---|          EQ     ECS10       COMPLETE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
53350  M02S00002.cpu197b ---|          EQ     ECS9.1      COMPLETE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
53351  M01S00006.cpu197b +++|          PER    EAB         PROCESS EXTENDED MEMORY ERROR
53352  M01S00007.cpu197b +++|          EQ     ECS10       COMPLETE PROCESSING
53353  M00S32156.cpumtr  +++|
53354  M00S32157.cpumtr  +++| ECS8     NG     X5,ECS9     IF WRITE USER ECS
53355  M00S32158.cpumtr  +++|          RUE    MONITOR     READ (B4) WORDS FROM USER ECS

Seq #  *Modification Id* Act 
----------------------------+
53356  M01S32159.v23l617 ---|          PER    EAB         PROCESS ECS ERROR

Seq #  *Modification Id* Act 
----------------------------+
53357  M02S00519.cpu197a ---|          PER    EAB         PROCESS EXTENDED MEMORY ERROR

Seq #  *Modification Id* Act 
----------------------------+
53358  M01S32160.cpu197a ---|          EQ     ECS10       COMPLETE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
53359  M02S00003.cpu197b ---|          EQ     ECS9.1      COMPLETE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
53360  M01S00008.cpu197b +++|          PER    EAB         PROCESS EXTENDED MEMORY ERROR
53361  M01S00009.cpu197b +++|          EQ     ECS10       COMPLETE PROCESSING
53362  M00S32161.cpumtr  +++|
53363  M00S32162.cpumtr  +++| ECS9     WUE    MONITOR     WRITE (B4) WORDS TO USER ECS

Seq #  *Modification Id* Act 
----------------------------+
53364  M01S32163.v23l617 ---|          PER    EAB         PROCESS ECS ERROR

Seq #  *Modification Id* Act 
----------------------------+
53365  M02S00520.cpu197a ---|          PER    EAB         PROCESS EXTENDED MEMORY ERROR

Seq #  *Modification Id* Act 
----------------------------+
53366  M02S00004.cpu197b ---| ECS9.1   SX2    A1+         SAVE (A1) IF PARITY ERROR

Seq #  *Modification Id* Act 
----------------------------+
53367  M01S00005.cpu197a +++|          PER    EAB         PROCESS EXTENDED MEMORY ERROR

Seq #  *Modification Id* Act 
----------------------------+
53368  M02S00006.cpu197b ---|          SA1    X2+         RESTORE (A1)
53369  M00S32164.cpumtr  +++| ECS10    ZR     X4,ECSX     IF NOT PROCESSING LIST

Seq #  *Modification Id* Act 
----------------------------+
53370  M01S32165.cpum197 ---|          SA6    A1          SET/CLEAR ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
53371  M03S00002.cpu197b ---|          SA6    X2          SET/CLEAR ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
53372  M02S00007.cpu197b ---|          SA6    A1          SET/CLEAR ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
53373  M01S32166.cpu197b ---|          SX2    B4          ADVANCE CM BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
53374  M01S00010.cpu197b +++|          SA1    ECSA        GET LIST ENTRY ADDRESS
53375  M01S00011.cpu197b +++|          SA6    X1+         SET/CLEAR ERROR FLAGS
53376  M01S00012.cpu197b +++|          SX2    B4+         ADVANCE CM BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
53377  M01S32167.cpum197 ---|          SA1    A1+B1       GET NEXT LIST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
53378  M01S00003.cpum197 +++|          SA1    A6+B1       GET NEXT LIST ENTRY
53379  M00S32168.cpumtr  +++|          IX4    X4-X3
53380  M00S32169.cpumtr  +++|          ZR     X4,ECSX     IF END OF LIST
53381  M00S32170.cpumtr  +++| ECS11    IX5    X5+X2
53382  M00S32171.cpumtr  +++|          SB4    B0+

Seq #  *Modification Id* Act 
----------------------------+
53383  M01S32172.252l678 ---|          TMX3   (36,39,ESM)

Seq #  *Modification Id* Act 
----------------------------+
53384  M01S00962.252l678 +++|          TMX3   (36,ESM170,39)
53385  M00S32173.cpumtr  +++|          EQ     ECS4        PROCESS NEXT LIST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
53386  M01S00013.cpu197b +++|
53387  M01S00014.cpu197b +++|
53388  M01S00015.cpu197b +++| ECSA     CON    0           LIST ENTRY ADDRESS
53389  M00S32174.cpumtr  +++| EAB      SPACE  4,20
53390  M00S32175.cpumtr  +++|**        EAB - ECS ABORT PROCESSOR. (MONITOR MODE)
53391  M00S32176.cpumtr  +++|*
53392  M00S32177.cpumtr  +++|*         ENTRY  (X0) = ECS ADDRESS OF ERROR.
53393  M00S32178.cpumtr  +++|*                (X3) = 1.
53394  M00S32179.cpumtr  +++|*                (X4) = 0 IF NOT PROCESSING LIST.
53395  M00S32180.cpumtr  +++|*                (X5) .LT. 0 IF WRITE ECS, OTHERWISE READ ECS.
53396  M00S32181.cpumtr  +++|*                (X6) = 0.
53397  M00S32182.cpumtr  +++|*                (X7) = 0 OR ERROR STATUS.
53398  M00S32183.cpumtr  +++|*                (B3) = CPU NUMBER.
53399  M00S32184.cpumtr  +++|*                (B4) = WORD COUNT OF TRANSFER.
53400  M00S32185.cpumtr  +++|*                (A0) = CM ADDRESS OF TRANSFER.
53401  M00S32186.cpumtr  +++|*                (A5) = OUTPUT REGISTER ADDRESS.
53402  M00S32187.cpumtr  +++|*
53403  M00S32188.cpumtr  +++|*         EXIT   (X6) = ERROR FLAGS FOR LIST ENTRY.
53404  M00S32189.cpumtr  +++|*                TO *ECS10* IF PROCESSING LIST.
53405  M00S32190.cpumtr  +++|*                TO *PPRX* IF FUNCTION COMPLETE.
53406  M00S32191.cpumtr  +++|*
53407  M00S32192.cpumtr  +++|*         USES   A - 0, 7.
53408  M00S32193.cpumtr  +++|*                B - 6, 7.
53409  M00S32194.cpumtr  +++|*                X - 0, 1, 2, 6, 7.
53410  M00S32195.cpumtr  +++|
53411  M00S32196.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
53412  M01S32197.v23l617 ---|*         PROCESS ECS ERROR.

Seq #  *Modification Id* Act 
----------------------------+
53413  M01S00521.v23l617 +++|*         PROCESS EXTENDED MEMORY ERROR.
53414  M00S32198.cpumtr  +++|
53415  M00S32199.cpumtr  +++| EAB      NZ     X4,EAB4     IF PROCESSING LIST
53416  M00S32200.cpumtr  +++|          MX7    12          SET ERROR STATUS
53417  M00S32201.cpumtr  +++|          LX7    -12
53418  M00S32202.cpumtr  +++| EAB1     MX6    -24
53419  M00S32203.cpumtr  +++|          BX0    -X6*X0
53420  M00S32204.cpumtr  +++|          BX7    X7+X0
53421  M00S32205.cpumtr  +++| EAB2     SA0    B3          RESTORE CPU NUMBER
53422  M00S32206.cpumtr  +++|          SA7    A5          STORE RESPONSE
53423  M00S32207.cpumtr  +++|          EQ     /MONITOR/PPRX  EXIT
53424  M00S32208.cpumtr  +++|
53425  M00S32209.cpumtr  +++|*         PROCESS INVALID RELATIVE ADDRESS.
53426  M00S32210.cpumtr  +++|
53427  M00S32211.cpumtr  +++| EAB3     SX7    B1          SET ERROR STATUS
53428  M00S32212.cpumtr  +++|          LX7    36
53429  M00S32213.cpumtr  +++|          EQ     EAB1        RETURN ERROR STATUS
53430  M00S32214.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
53431  M01S32215.v23l617 ---|*         PROCESS ECS ERROR DURING LIST PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
53432  M01S00522.v23l617 +++|*         PROCESS EXTENDED MEMORY ERROR DURING LIST PROCESSING.
53433  M00S32216.cpumtr  +++|
53434  M00S32217.cpumtr  +++| EAB4     SX1    B1
53435  M00S32218.cpumtr  +++|          LX1    30
53436  M00S32219.cpumtr  +++|          BX1    X3+X1
53437  M00S32220.cpumtr  +++|          SB6    B4
53438  M00S32221.cpumtr  +++| EAB5     SB7    B4-B6
53439  M00S32222.cpumtr  +++|          SB6    B6-B1
53440  M00S32223.cpumtr  +++|          NG     X5,EAB8     IF WRITE ECS
53441  M00S32224.cpumtr  +++|+         RE     1           RETRY READ ONE WORD AT A TIME

Seq #  *Modification Id* Act 
----------------------------+
53442  M01S32225.v23l617 ---|          EQ     EAB9        PROCESS ECS ERROR

Seq #  *Modification Id* Act 
----------------------------+
53443  M01S00523.v23l617 +++|          EQ     EAB9        PROCESS EXTENDED MEMORY ERROR
53444  M00S32226.cpumtr  +++| EAB6     SA0    A0+B1
53445  M00S32227.cpumtr  +++|          IX0    X0+X1
53446  M00S32228.cpumtr  +++|          NZ     B6,EAB5     IF NOT END OF BUFFER
53447  M00S32229.cpumtr  +++| EAB7     MX7    12          INDICATE TRANSFER ABORTED
53448  M00S32230.cpumtr  +++|          LX7    -12
53449  M00S32231.cpumtr  +++|          EQ     ECS10       CONTINUE PROCESSING LIST
53450  M00S32232.cpumtr  +++|
53451  M00S32233.cpumtr  +++| EAB8     WE     1           RETRY WRITE ONE WORD AT A TIME

Seq #  *Modification Id* Act 
----------------------------+
53452  M01S32234.v23l617 ---|          EQ     EAB9        PROCESS ECS ERROR

Seq #  *Modification Id* Act 
----------------------------+
53453  M01S00524.v23l617 +++|          EQ     EAB9        PROCESS EXTENDED MEMORY ERROR
53454  M00S32235.cpumtr  +++|          EQ     EAB6        CONTINUE RETRY FOR ENTIRE BUFFER
53455  M00S32236.cpumtr  +++|
53456  M00S32237.cpumtr  +++| EAB9     LX2    X3,B7
53457  M00S32238.cpumtr  +++|          BX6    X6+X2       SET ERROR FLAG FOR THIS WORD
53458  M00S32239.cpumtr  +++|          EQ     EAB6        CONTINUE RETRY FOR ENTIRE BUFFER
53459  M00S32240.cpumtr  +++|
53460  M00S32241.cpumtr  +++|*         PROCESS INVALID ECS ADDRESS IN LIST.
53461  M00S32242.cpumtr  +++|
53462  M00S32243.cpumtr  +++| EAB10    ZR     X4,/MONITOR/HNG  IF ILLEGAL ADDRESS AND NOT LIST
53463  M00S32244.cpumtr  +++|          MX6    60          RETURN ERROR STATUS IN ALL BITS
53464  M00S32245.cpumtr  +++|          MX7    12          INDICATE TRANSFER ABORTED
53465  M00S32246.cpumtr  +++|          LX7    -12
53466  M00S32247.cpumtr  +++|          EQ     ECS10       CONTINUE PROCESSING LIST
53467  M00S32248.cpumtr  +++|
53468  M00S32249.cpumtr  +++| ECSX     EQU    EAB2        EXIT ADDRESS FOR *ECS*
53469  M00S32250.cpumtr  +++|
53470  M00S32251.cpumtr  +++|          ENDBLK
53471  M00S32252.cpumtr  +++|          BLOCK  ECS,(ECS PROCESSING ROUTINES.)
53472  M00S32253.cpumtr  +++| PIOM     SPACE  4,10
53473  M00S32254.cpumtr  +++|**        PIO - *PIOM* PP I/O CPU TRANSFERS (MONITOR MODE).
53474  M00S32255.cpumtr  +++|*
53475  M00S32256.cpumtr  +++|*         ENTRY  (A0) = CPU NUMBER.
53476  M00S32257.cpumtr  +++|*                (A5) = *OR* ADDRESS.
53477  M00S32258.cpumtr  +++|*                (B2) = EXCHANGE PACKAGE ADDRESS.
53478  M00S32259.cpumtr  +++|*                (B7) = CP ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
53479  M01S32260.251l664 ---|*                (X1) = BITS 0 - 47 OF (OR).

Seq #  *Modification Id* Act 
----------------------------+
53480  M01S02822.251l664 +++|*                (B5) = SUBFUNCTION - 1.
53481  M00S32261.cpumtr  +++|*                (X2) = MASK OF -12.
53482  M00S32262.cpumtr  +++|*                (X5) = (OR).
53483  M00S32263.cpumtr  +++|*                (X7) = 0.

Seq #  *Modification Id* Act 
----------------------------+
53484  M01S32264.251l664 ---|*                SEE *PIOM* DOCUMENTATION FOR *OR* AND *MB*

Seq #  *Modification Id* Act 
----------------------------+
53485  M01S02823.251l664 +++|*                SEE *PIOM* DOCUMENTATION FOR *OR*, *MB* AND *MB*+1
53486  M00S32265.cpumtr  +++|*                   DESCRIPTION.
53487  M00S32266.cpumtr  +++|*
53488  M00S32267.cpumtr  +++|*         EXIT   A0, A5, B2, B7 SAME AS ON ENTRY.
53489  M00S32268.cpumtr  +++|*                TO /MONITOR/HNG, FOR FOLLOWING CONDITIONS -
53490  M00S32269.cpumtr  +++|*                   (1)  ILLEGAL SUBFUNCTION
53491  M00S32270.cpumtr  +++|*                   (2)  BUFFER PREVIOUSLY RESERVED FOR SUBFUNCTION 0
53492  M00S32271.cpumtr  +++|*                        (RESERVE WRITE BUFFER)
53493  M00S32272.cpumtr  +++|*                   (3)  PP BUFFER RESERVED BUT NOT INTERLOCKED
53494  M00S32273.cpumtr  +++|*                        TO THIS PP.
53495  M00S32274.cpumtr  +++|*                   (4)  PP BUFFER NOT PREVIOUSLY RESERVED FOR
53496  M00S32275.cpumtr  +++|*                        SUBFUNCTION 2 (WRITE PRU).
53497  M00S32276.cpumtr  +++|*                   (5)  BUFFERED I/O REQUEST WITHOUT
53498  M00S32277.cpumtr  +++|*                        *BUFIO* BLOCK PRESENT.
53499  M00S32278.cpumtr  +++|*                   (6)  FUNCTION FLAG SELECTION NOT LEGAL FOR THIS
53500  M00S32279.cpumtr  +++|*                        SUBFUNCTION.
53501  M00S32280.cpumtr  +++|*                TO /BUFIO/PBF, FOR SUBFUNCTION 5 (I/O BUFFER FLUSH),
53502  M00S32281.cpumtr  +++|*                   AFTER SWITCH TO PROGRAM MODE.
53503  M00S32282.cpumtr  +++|*                TO /PROGRAM/PDT, FOR ECS DIRECT TRANSFER,
53504  M00S32283.cpumtr  +++|*                   AFTER SWITCH TO PROGRAM MODE.
53505  M00S32284.cpumtr  +++|*                TO /BUFIO/PST, FOR BUFFERED DEVICE DIRECT TRANSFER,
53506  M00S32285.cpumtr  +++|*                   AFTER SWITCH TO PROGRAM MODE.
53507  M00S32286.cpumtr  +++|*                TO /BUFIO/PST, IF BUFFERED I/O PRU TRANSFER.
53508  M00S32287.cpumtr  +++|
53509  M00S32288.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
53510  M01S32289.273l780 ---| PIO      SA3    CMCL

Seq #  *Modification Id* Act 
----------------------------+
53511  M01S00980.273l780 +++| PIO      TX1    A5-1,-FP
53512  M01S00981.273l780 +++|          SA3    CMCL
53513  M01S00982.273l780 +++|          LX1    PPXES-PPCES
53514  M01S00983.273l780 +++|          SA4    A5+B1       GET PARAMETERS FROM MESSAGE BUFFER
53515  M01S00984.273l780 +++|          TA1    X1+ACPP,FPX GET CP ASSIGNMENT
53516  M01S00985.273l780 +++|          SA7    A4+1
53517  M01S00986.273l780 +++|          SB4    FLBS-1
53518  M01S00987.273l780 +++|          BX3    X1-X3
53519  M01S00988.273l780 +++|          TSB6   (/BUFIO/PBF,BUFIO,/PROGRAM/HNG)

Seq #  *Modification Id* Act 
----------------------------+
53520  M01S32290.271l716 ---|          SX4    B7
53521  M01S32291.271l716 ---|          LX3    12
53522  M01S32292.271l716 ---|          BX3    X3-X4
53523  M01S32293.271l716 ---|          SA4    A5+B1       GET PARAMETERS FROM MESSAGE BUFFER
53524  M01S32294.271l716 ---|          SX1    REIS        RETURN STATUS = *PAUSE* REQUIRED
53525  M01S32295.271l716 ---|          BX3    -X2*X3
53526  M01S32296.271l716 ---|          SA7    A4+B1
53527  M01S32297.271l716 ---|          ZR     X3,PIOX     IF MOVE IS REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
53528  M01S02909.271l716 +++|          AX3    48

Seq #  *Modification Id* Act 
----------------------------+
53529  M02S02910.273l780 ---|          SA4    A5+B1       GET PARAMETERS FROM MESSAGE BUFFER
53530  M02S02911.273l780 ---|          LX3    7

Seq #  *Modification Id* Act 
----------------------------+
53531  M01S02912.271l716 +++|          SX1    REIS        RETURN STATUS = *PAUSE* REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
53532  M02S02913.273l780 ---|          SB6    X3
53533  M02S02914.273l780 ---|          SA7    A4+1
53534  M02S02915.273l780 ---|          EQ     B6,B7,PIOX  IF STORAGE MOVE REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
53535  M01S32298.273l780 ---|          SB4    FLBS-1

Seq #  *Modification Id* Act 
----------------------------+
53536  M02S32299.273l780 ---|          TSB6   (/BUFIO/PBF,/PROGRAM/HNG,BUFIO)

Seq #  *Modification Id* Act 
----------------------------+
53537  M02S00963.273l780 ---|          TSB6   (/BUFIO/PBF,BUFIO,/PROGRAM/HNG)

Seq #  *Modification Id* Act 
----------------------------+
53538  M01S00989.273l780 +++|          ZR     X3,PIOX     IF STORAGE MOVE REQUIRED

Proceed to Part 41