User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:cpumtr.032

Deck CPUMTR Part 032

308 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
41032  M01S01989.271l750 +++|          LT     B4,B5,/MONITOR/RCC14  IF NEW JOB .LT. THIS CPU JOB
41033  M01S01990.271l750 +++|          EQ     /MONITOR/RCC12  CHECK RECALL SLICE EXPIRED
41034  M00S25092.cpumtr  +++|
Line S25093 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41035  M01S25093.271l750 ---|*         JOB IS HIGHER PRIORITY, SWITCH OTHER CPU.
Line S01991 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41036  M01S01991.271l750 +++|*         GET PARAMETERS FOR JOB IN OTHER CPU.
41037  M00S25094.cpumtr  +++|
Line S25095 Modification History
M01 (Removed by) cpumt99
Seq #  *Modification Id* Act 
----------------------------+
41038  M01S25095.cpumt99 ---| RCC9     SA7    A4+CSWL-CPAL  SET SWITCH REQUEST
41039  M01S25096.cpumt99 ---|          SA3    RTCL
41040  M01S25097.cpumt99 ---|          BX3    -X7*X3
41041  M01S25098.cpumt99 ---|          IX6    X3-X2
41042  M01S25099.cpumt99 ---|          SA2    A2          CLEAR JCIW INTERLOCK
Line S00024 Modification History
M01 (Added by) cpumt99
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41043  M02S00024.271l750 ---| RCC9     SA2    A2          CLEAR JCIW INTERLOCK
Line S25100 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41044  M01S25100.271l750 ---|          SX0    X4          SET CP ADDRESS
Line S25101 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41045  M02S25101.271l750 ---|          SX7    B1
41046  M02S25102.271l750 ---|          LX7    38
41047  M02S25103.271l750 ---|          BX7    -X7*X2
41048  M02S25104.271l750 ---|          SA7    A2
Line S02067 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41049  M02S02067.271l750 ---|          SX6    B1
41050  M02S02068.271l750 ---|          LX6    38
41051  M02S02069.271l750 ---|          BX6    -X6*X2
41052  M02S02070.271l750 ---|          SA6    A2
Line S25105 Modification History
M01 (Removed by) cpumt99
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41053  M02S25105.271l750 ---|          MX2    24
41054  M02S25106.271l750 ---|          SX4    B0
41055  M02S25107.271l750 ---|          NG     X6,/MONITOR/RCC10  IF MINIMUM SLICE NOT EXCEEDED
Line S00025 Modification History
M01 (Added by) cpumt99
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41056  M02S00025.271l750 ---|          SA2    A4+CSWL-CPAL
Line S00026 Modification History
M01 (Added by) cpumt99
M02 (Removed by) 271l716
M03 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41057  M03S00026.271l750 ---|          SA3    RTCL
Line S25108 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41058  M02S25108.271l750 ---|          MX7    -36
41059  M02S25109.271l750 ---|          EQ     /MONITOR/RCC9  USE CODE IN MAIN BLOCK
Line S02071 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41060  M02S02071.271l750 ---|          SA7    A2          SET SWITCH REQUEST
41061  M02S02072.271l750 ---|          JP     B3          EXIT
Line S01992 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41062  M01S01992.271l750 +++| RCC1     SB6    A0-TSCL-1
41063  M01S01993.271l750 +++|          IX6    X2-X1       CHECK THIS CPU RECALL SLICE EXPIRED
41064  M01S01994.271l750 +++|          SA1    -B6         GET OTHER CPU PARAMETERS
41065  M01S01995.271l750 +++|          SB6    A0+59-25    SET THIS CPU SELECTION BIT SHIFT COUNT
41066  M01S01996.271l750 +++|          LX0    B6,X3
41067  M01S01997.271l750 +++|          UX1,B6 X1          GET PRIORITY OF JOB IN OTHER CPU
41068  M01S01998.271l750 +++|          BX1    -X7*X1
41069  M01S01999.271l750 +++|          IX1    X2-X1       CHECK OTHER CPU RECALL SLICE EXPIRED
41070  M01S02000.271l750 +++|          PL     X0,RCC2     IF JOB CAN USE THIS CPU
41071  M00S25110.cpumtr  +++|
Line S25111 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41072  M01S25111.271l750 ---| RCC10    LE     B4,B6,/MONITOR/RCC8  IF NEW .LE. OTHER JOB PRIORITY
41073  M01S25112.271l750 ---|          GE     B6,B5,/MONITOR/RCC8  IF OTHER .GE. CURRENT JOB
41074  M01S25113.271l750 ---|          EQ     RCC9        SWITCH OTHER CPU
Line S02001 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41075  M01S02001.271l750 +++|*         CHECK PRIORITY OF JOB WITH SELECTION FOR OTHER CPU.
41076  M01S02002.271l750 +++|
41077  M01S02003.271l750 +++|          SA4    A1+CSWL-TSCL
41078  M01S02004.271l750 +++|          NG     X4,/MONITOR/RCC14  IF OTHER CPU SWITCH REQUEST PENDING
41079  M01S02005.271l750 +++|          GT     B4,B6,/MONITOR/RCC13  IF NEW JOB .GT. OTHER CPU JOB
41080  M01S02006.271l750 +++|          LT     B4,B6,/MONITOR/RCC14  IF NEW JOB .LT. OTHER CPU JOB
41081  M01S02007.271l750 +++|          NG     X1,/MONITOR/RCC14  IF CPU RECALL SLICE NOT EXPIRED
41082  M01S02008.271l750 +++|          EQ     /MONITOR/RCC13  SWITCH OTHER CPU
41083  M01S02009.271l750 +++|
41084  M01S02010.271l750 +++|*         CHECK PRIORITY OF JOB WITH NO CPU SELECTION.
41085  M01S02011.271l750 +++|
41086  M01S02012.271l750 +++| RCC2     GT     B4,B5,RCC4  IF NEW JOB .GT. THIS CPU JOB
41087  M01S02013.271l750 +++|          GT     B4,B6,RCC5  IF NEW JOB .GT. OTHER CPU JOB
41088  M01S02014.271l750 +++|          LT     B4,B5,RCC3  IF NEW JOB .LT. THIS CPU JOB
41089  M01S02015.271l750 +++|          PL     X6,/MONITOR/RCC13  IF THIS CPU RECALL SLICE EXPIRED
41090  M01S02016.271l750 +++| RCC3     LT     B4,B6,/MONITOR/RCC14  IF NEW JOB .LT. OTHER CPU JOB
41091  M01S02017.271l750 +++|          NG     X1,/MONITOR/RCC14  IF CPU RECALL SLICE NOT EXPIRED
41092  M01S02018.271l750 +++|          EQ     RCC5        SWITCH OTHER CPU IF NO CURRENT REQUEST
41093  M01S02019.271l750 +++|
41094  M01S02020.271l750 +++| RCC4     LE     B4,B6,/MONITOR/RCC13  IF NEW JOB .LE. OTHER CPU JOB
41095  M01S02021.271l750 +++|          GE     B6,B5,/MONITOR/RCC13  IF OTHER CPU JOB .GE. THIS CPU
41096  M01S02022.271l750 +++| RCC5     SA4    A1+CSWL-TSCL
41097  M01S02023.271l750 +++|          NG     X4,/MONITOR/RCC14  IF OTHER CPU SWITCH REQUEST PENDING
41098  M01S02024.271l750 +++|          EQ     /MONITOR/RCC13  SWITCH OTHER CPU
41099  M00S25114.cpumtr  +++| SAX      SPACE  4
41100  M00S25115.cpumtr  +++|**        SAX - SET ALTERNATE CPU EXCHANGE.
41101  M00S25116.cpumtr  +++|*
41102  M00S25117.cpumtr  +++|*         ENTRY  (A5) = OUTPUT REGISTER ADDRESS.
41103  M00S25118.cpumtr  +++|*
41104  M00S25119.cpumtr  +++|*         EXIT   TO PPRX.
41105  M00S25120.cpumtr  +++|*
Line S25121 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41106  M01S25121.271l750 ---|*         CALLS  SPR.
Line S02025 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41107  M01S02025.271l750 +++|*         CALLS  SPB.
41108  M00S25122.cpumtr  +++|
41109  M00S25123.cpumtr  +++|
41110  M00S25124.cpumtr  +++| SAX      TB3    A0-1,-CX    SET ALTERNATE CPU
41111  M00S25125.cpumtr  +++|          SX0    B1
41112  M00S25126.cpumtr  +++|          SA1    -B3
Line S25127 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41113  M01S25127.271l750 ---|          SB3    /MONITOR/PPRX  *SPR* EXIT ADDRESS
Line S25128 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41114  M02S25128.271l750 ---|          TJP    0,(/PROBE/ACE,/MONITOR/SPR,PROBE) SET PPU REQUEST BIT
Line S00828 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
M03 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41115  M03S00828.271l750 ---|          TJP    0,(/PROBE/ACE,PROBE,/MONITOR/SPR) SET PPU REQUEST BIT
Line S01616 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41116  M02S01616.271l750 ---|          TJP    (/PROBE/ACE,PROBE,/MONITOR/SPR) SET PPU REQUEST BIT
Line S02026 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41117  M01S02026.271l750 +++|          SB3    /MONITOR/PPRX  *SPB* EXIT ADDRESS
41118  M01S02027.271l750 +++|          TJP    (/PROBE/ACE,PROBE,/MONITOR/SPB) SET PPU REQUEST BIT
41119  M00S25129.cpumtr  +++| EXPACS   SPACE  4,10
41120  M00S25130.cpumtr  +++|**        IXP1 - CPU 1 IDLE EXCHANGE PACKAGE.
41121  M00S25131.cpumtr  +++|
41122  M00S25132.cpumtr  +++|
Line S25133 Modification History
M01 (Removed by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
41123  M01S25133.ns2332  ---| IXP1     EXP    P=2,RA=IDL1,FL=5,MA=IXP1
Line S00081 Modification History
M01 (Added by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
41124  M01S00081.ns2332  +++| IXP1     EXP    P=2,RA=IDL1,FL=5,MA=IXP1,X1=77777777777777777777B
41125  M00S25134.cpumtr  +++|
Line S25135 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41126  M01S25135.271l750 ---|*         CPU CONTROL WORDS STSW, JCIW, CRCW FOR CPU 1 IDLE PACKAGE
Line S02028 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41127  M01S02028.271l750 +++|*         *STSW*.
41128  M00S25136.cpumtr  +++|
Line S25137 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41129  M01S25137.271l750 ---|          VFD    3/BCPS
Line S02029 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41130  M01S02029.271l750 +++|          VFD    3/BCPS      *B* CPU STATUS
41131  M00S25138.cpumtr  +++|          VFD    57/0
41132  M00S25139.cpumtr  +++|
Line S25140 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
41133  M01S25140.271l716 ---|          VFD    11/1        CPU PRIORITY OF 1
41134  M01S25141.271l716 ---|          VFD    1/0
Line S02073 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41135  M02S02073.271l750 ---|          VFD    12/IDCS     CPU PRIORITY
Line S25142 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41136  M01S25142.271l750 ---|          VFD    12/2        SELECT CPU 1
41137  M01S25143.271l750 ---|          VFD    36/0
Line S02030 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41138  M01S02030.271l750 +++|*         *CWQW*.
41139  M00S25144.cpumtr  +++|
Line S25145 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41140  M01S25145.271l750 ---|          VFD    12/0
41141  M01S25146.271l750 ---|          VFD    24/0
41142  M01S25147.271l750 ---|          VFD    24/IXP1     EXCHANGE PACKAGE ADDRESS
Line S02031 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41143  M01S02031.271l750 +++|          VFD    2/1
41144  M01S02032.271l750 +++|          VFD    7/IDCS      CPU PRIORITY
41145  M01S02033.271l750 +++|          VFD    1/0
41146  M01S02034.271l750 +++|          VFD    1/1         CPU SLICE ACTIVE
41147  M01S02035.271l750 +++|          VFD    1/0         RECALL FLAG
41148  M01S02036.271l750 +++|          VFD    1/1         EXTENDED CPU SLICE INCOMPLETE
41149  M01S02037.271l750 +++|          VFD    2/0
41150  M01S02038.271l750 +++|          VFD    9/0         SERVICE CYCLE
41151  M01S02039.271l750 +++|          VFD    9/SSSC*JCBE  SERVICE PARAMETERS INDEX
41152  M01S02040.271l750 +++|          VFD    1/0         *MTR* BYPASS FLAG
41153  M01S02041.271l750 +++|          VFD    2/2         SELECT CPU 1
41154  M01S02042.271l750 +++|          VFD    3/0
41155  M01S02043.271l750 +++|          VFD    3/DIXT      DUAL CPU EXCHANGE PACKAGE TYPE
41156  M01S02044.271l750 +++|          VFD    18/0        *WQ* LINKAGE
41157  M00S25148.cpumtr  +++|
Line S02045 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41158  M01S02045.271l750 +++|*         *CSAW*.
41159  M01S02046.271l750 +++|
41160  M01S02047.271l750 +++|          VFD    60/0
41161  M01S02048.271l750 +++|
41162  M01S02049.271l750 +++|*         *CTMW*.
41163  M01S02050.271l750 +++|
41164  M01S02051.271l750 +++|          VFD    60/0
41165  M00S25149.cpumtr  +++|
41166  M00S25150.cpumtr  +++|**        IDL1 - CPU 1 IDLE PROGRAM.
41167  M00S25151.cpumtr  +++|
41168  M00S25152.cpumtr  +++|
41169  M00S25153.cpumtr  +++| IDL1     CON    0           (RA) FOR IDLE PROGRAM
41170  M00S25154.cpumtr  +++|          CON    0           (RA+1) FOR IDLE PROGRAM
Line S25155 Modification History
M01 (Removed by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
41171  M01S25155.ns2332  ---|          EQ     2           IDLE PROGRAM
Line S00082 Modification History
M01 (Added by) ns2332
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41172  M02S00082.271l750 ---|          CX2    X1          DELAY (60 BITS)
Line S02052 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41173  M01S02052.271l750 +++|+         CX2    X1          DELAY (60 BITS)
41174  M01S02053.271l750 +++|*         EQ     2           LOOP WITHOUT DELAY (CACHE MACHINE)
Line S00083 Modification History
M01 (Added by) ns2332
Seq #  *Modification Id* Act 
----------------------------+
41175  M01S00083.ns2332  +++|          CX2    X1          DELAY (60 BITS)
41176  M01S00084.ns2332  +++|          EQ     2           LOOP
41177  M00S25156.cpumtr  +++|          SPACE  4
41178  M00S25157.cpumtr  +++|**        SCX1 - SUB-CONTROL POINT EXCHANGE PACKAGE - CPU 1.
Line S02054 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41179  M01S02054.271l750 +++|*
41180  M01S02055.271l750 +++|*         NOTE - THIS EXCHANGE PACKAGE IS ALSO USED FOR THE CODE WHICH
41181  M01S02056.271l750 +++|*                INITIATES THE CPU1 IDLE PACKAGE ON A CACHE MACHINE.
41182  M01S02057.271l750 +++|*                THE VALUES PRESET FOR *A0* AND *B0* ARE REQUIRED BY
41183  M01S02058.271l750 +++|*                MICROCODE ON A DUAL CPU CACHE MACHINE.
41184  M00S25158.cpumtr  +++|
41185  M00S25159.cpumtr  +++|
Line S25160 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41186  M01S25160.271l750 ---| SCX1     EXP
Line S02059 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41187  M01S02059.271l750 +++| SCX1     EXP    P=IIP,FL=(,MCM),A0=1,B0=210B
41188  M01S02060.271l750 +++| IIP      SPACE  4,10
41189  M01S02061.271l750 +++|**        IIP - INITIATE IDLE PACKAGE FOR DUAL CPU CACHE MACHINE.
41190  M01S02062.271l750 +++|*
41191  M01S02063.271l750 +++|*         EXIT   (X1) = ZERO (THIS IS REQUIRED BY *STL*).
41192  M00S25161.cpumtr  +++|
Line S02064 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
41193  M01S02064.271l750 +++|
41194  M01S02065.271l750 +++| IIP      BSS    0           ENTRY
41195  M01S02066.271l750 +++|          SA2    EIBP        SET *MTR* EXCHANGE PACKAGE ADDRESS
41196  M01S02067.271l750 +++|          MX7    42
41197  M01S02068.271l750 +++|          LX7    32
41198  M01S02069.271l750 +++|          BX2    X7*X2
41199  M01S02070.271l750 +++|          SX6    /MONITOR/MXP
41200  M01S02071.271l750 +++|          LX6    32
41201  M01S02072.271l750 +++|          BX6    X2+X6
41202  M01S02073.271l750 +++|          SA6    A2
41203  M01S02074.271l750 +++|          SB2    IXP1
41204  M01S02075.271l750 +++|          XJ     B2          START CPU1 IDLE PACKAGE
41205  M01S02076.271l750 +++|          SPACE  4,10
41206  M00S25162.cpumtr  +++|          ENDBLK
41207  M00S25163.cpumtr  +++|          BLOCK  MMF,(MULTI-MAINFRAME PROCESSING ROUTINES.)
41208  M00S25164.cpumtr  +++| ARM      SPACE  4
41209  M00S25165.cpumtr  +++|**        ARMF - ADVANCE RUNNING TIME AND MULTI-MAINFRAME PROCESSING.
Line S25166 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41210  M01S25166.251l664 ---|*         *ARMF* IS CALLED ONCE EVERY SECOND BY PPU MONITOR
41211  M01S25167.251l664 ---|*         TO DO THE FOLLOWING.
Line S01905 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41212  M01S01905.251l664 +++|*         *ARMF* IS CALLED ONCE EVERY SECOND BY *MTR* TO DO THE
41213  M01S01906.251l664 +++|*         FOLLOWING.
41214  M00S25168.cpumtr  +++|*         1)     STATUS FLAG REGISTER BITS.
Line S25169 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41215  M01S25169.251l664 ---|*         2)     WRITE REAL TIME CLOCK TO ECS.
Line S01907 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41216  M01S01907.251l664 +++|*         2)     WRITE REAL TIME CLOCK TO EXTENDED MEMORY.
41217  M00S25170.cpumtr  +++|*         3)     DETERMINE STATUS OF OTHER MAINFRAMES BY INTERROGATING
Line S25171 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41218  M01S25171.251l664 ---|*                THEIR ECS CLOCKS. (DONE EVERY 2 SECONDS)
Line S01908 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41219  M01S01908.251l664 +++|*                THEIR EXTENDED MEMORY CLOCKS (EVERY 2 SECONDS).
41220  M00S25172.cpumtr  +++|*         4)     CHECK FOR INTER-MAINFRAME MESSAGE REQUEST.
41221  M00S25173.cpumtr  +++|*
41222  M00S25174.cpumtr  +++|*         ENTRY
41223  M00S25175.cpumtr  +++|*T X0     24/,12/  S,6/,18/  ARMF
Figure X0

01718232429 ARMF S30353659 S

41224  M00S25176.cpumtr  +++|*                (B7) = S = 0 IF MAINFRAMES TO BE STATUSED.
41225  M00S25177.cpumtr  +++|*         EXITS TO *ART* IF NORMAL PROCESSING.
41226  M00S25178.cpumtr  +++|*         EXITS TO *EPR* IF DOWN MACHINE OR MESSAGE PROCESSING TO BE
41227  M00S25179.cpumtr  +++|*                DONE IN PROGRAM MODE.
41228  M00S25180.cpumtr  +++|
41229  M00S25181.cpumtr  +++|
Line S25182 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41230  M01S25182.252l678 ---| ARM      TSX2   (402B,6B,ESM)  STATUS FLAG REGISTER
Line S00829 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41231  M01S00829.252l678 +++| ARM      TSX2   (402B,ESM,6B)  STATUS FLAG REGISTER
41232  M00S25183.cpumtr  +++|          LX2    21
41233  M00S25184.cpumtr  +++|          SX4    B1
Line S25185 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41234  M01S25185.251l664 ---|          BX6    X6-X6
Line S01909 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41235  M01S01909.251l664 +++|          SX6    TMMF
41236  M00S25186.cpumtr  +++|          LX4    17          POSITION BIT TO STATUS
Line S01910 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41237  M01S01910.251l664 +++|          LX6    36
41238  M00S25187.cpumtr  +++|          SB3    A0          SAVE CPU NUMBER
41239  M00S25188.cpumtr  +++|          BX0    X2+X4
Line S01911 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41240  M01S01911.251l664 +++|          SX5    .COMI       CHECK COMMUNICATION PROCESSING
41241  M00S25189.cpumtr  +++| ARM1     RE     /ECS/FRWC
41242  M00S25190.cpumtr  +++|          BX6    X4+X6
41243  M00S25191.cpumtr  +++| +        AX4    1
41244  M00S25192.cpumtr  +++|          BX0    X2+X4
41245  M00S25193.cpumtr  +++|          NZ     X4,ARM1     IF MORE BITS TO STATUS
41246  M00S25194.cpumtr  +++|          SA6    EFRL        STORE FLAG REGISTER BITS
Line S25195 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41247  M01S25195.251l664 ---|          SX5    .COMI       CHECK COMMUNICATION PROCESSING
41248  M00S25196.cpumtr  +++|          BX5    X5*X6
Line S25197 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41249  M01S25197.251l664 ---|          TX0    ECCM        ECS CLOCK LOCATION
41250  M01S25198.251l664 ---|          SA0    RTCL
41251  M01S25199.251l664 ---|          SX3    A0+
Line S01912 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41252  M01S01912.251l664 +++|          TX0    ECCM        EXTENDED MEMORY CLOCK LOCATION
41253  M01S01913.251l664 +++|          SA0    PDTL
41254  M01S01914.251l664 +++|          SX3    A0
41255  M00S25200.cpumtr  +++|          LX3    30
41256  M00S25201.cpumtr  +++|          BX0    X0+X3
41257  M00S25202.cpumtr  +++|          LX5    58-PMRF-COMI  POSITION PROGRAM MODE REQUEST BIT (PMRF)
Line S25203 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41258  M01S25203.251l664 ---|          WE     1           WRITE OUT ECS CLOCK
Line S01915 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41259  M01S01915.251l664 +++|          WE     1           WRITE EXTENDED MEMORY CLOCK
41260  M00S25204.cpumtr  +++|          PER    /ECS/ECH1,/ECS/PER  HANG ON UNRECOVERED WRITE ERROR
Line S25205 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41261  M01S25205.251l664 ---|          NZ     B7,ARM12    IF MAINFRAMES NOT TO BE STATUSED
41262  M01S25206.251l664 ---|          TX0    ETLT*100B+20B+SMET,ECLT
Line S01916 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41263  M01S01916.251l664 +++|          NZ     B7,ARM16    IF MAINFRAMES NOT TO BE STATUSED
Line S01917 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41264  M02S01917.252l678 ---|          TX0    ETLT*100B+SLDE+SMET,ECLT
Line S00830 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41265  M01S00830.252l678 +++|          TX0    ETLT*100B+SMET,ECLT
41266  M01S00831.252l678 +++|          TX0    X0,TCNT
41267  M00S25207.cpumtr  +++|          SA0    MBUF
41268  M00S25208.cpumtr  +++|          SX3    A0+
41269  M00S25209.cpumtr  +++|          LX3    30
41270  M00S25210.cpumtr  +++|          BX0    X0+X3
Line S25211 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41271  M01S25211.251l664 ---|          MX3    1
41272  M01S25212.251l664 ---|          LX3    12+8+MXMF
41273  M01S25213.251l664 ---|          SB5    ARMA-MBUF
41274  M01S25214.251l664 ---|          SB7    MXMF-1
Line S01918 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41275  M01S01918.251l664 +++|          SB7    MXMF
41276  M00S25215.cpumtr  +++|
41277  M00S25216.cpumtr  +++|*         CHECK STATUS OF OTHER MACHINES.
41278  M00S25217.cpumtr  +++|
Line S25218 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41279  M01S25218.251l664 ---|          RE     MXMF        READ ECS CLOCKS
41280  M01S25219.251l664 ---|          PER    /MMF/ARM12,/ECS/PER  PARITY ERROR PROCESSING
41281  M01S25220.251l664 ---| ARM3     SA1    A0+B7       READ CURRENT CLOCK VALUE
41282  M01S25221.251l664 ---|          SA2    A1+B5       LAST CLOCK VALUE
41283  M01S25222.251l664 ---|          BX2    X1-X2
41284  M01S25223.251l664 ---|          LX7    X1
41285  M01S25224.251l664 ---|          ZR     X2,ARM4     IF NO CHANGE IN ECS CLOCK
41286  M01S25225.251l664 ---|          BX4    X3+X4       SET MAINFRAME UP
41287  M01S25226.251l664 ---|          SA7    A2
41288  M01S25227.251l664 ---| ARM4     SB7    B7-B1
41289  M01S25228.251l664 ---|          AX3    1
41290  M01S25229.251l664 ---|          PL     B7,ARM3     IF NOT ALL MAINFRAMES
41291  M01S25230.251l664 ---|          MX0    4
41292  M01S25231.251l664 ---|          SA3    MMFL
41293  M01S25232.251l664 ---|          LX0    23-59
41294  M01S25233.251l664 ---|          SA1    ARMB
41295  M01S25234.251l664 ---|          BX7    X0*X3       MACHINES ACTIVE AT LAST STATUS
41296  M01S25235.251l664 ---|          BX3    -X0*X3
41297  M01S25236.251l664 ---|          BX6    -X4*X7      MACHINES GONE DOWN
41298  M01S25237.251l664 ---|          BX3    X3+X4       MERGE MACHINES CURRENTLY ACTIVE
41299  M01S25238.251l664 ---|          AX4    4
41300  M01S25239.251l664 ---|          AX6    4
41301  M01S25240.251l664 ---|          BX7    -X4*X3      CLEAR DOWN STATUS FOR MACHINES NOW UP
41302  M01S25241.251l664 ---|          BX4    -X4*X1
41303  M01S25242.251l664 ---|          BX7    X7+X6       MERGE NEW DOWN MACHINES
41304  M01S25243.251l664 ---|          SA7    A3
41305  M01S25244.251l664 ---|          BX7    X4+X6
41306  M01S25245.251l664 ---|          BX4    X1*X7       MACHINES DOWN FOR TWO STATUSES
41307  M01S25246.251l664 ---|          SA7    A1          MACHINES DOWN AT THIS STATUS
41308  M01S25247.251l664 ---|          AX4    12+4
41309  M01S25248.251l664 ---|          ZR     X4,ARM12    IF NO DOWN MACHINE PROCESSING
Line S01919 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41310  M01S01919.251l664 +++|          RE     MXMF        READ EXTENDED MEMORY CLOCKS
41311  M01S01920.251l664 +++|          PER    /MMF/ARM16,/ECS/PER  PARITY ERROR PROCESSING
41312  M01S01921.251l664 +++| ARM2     ZR     B7,ARM16    IF END OF MACHINES
41313  M01S01922.251l664 +++|          SA3    TMMF-1+B7
41314  M01S01923.251l664 +++|          SB7    B7-B1
41315  M01S01924.251l664 +++|          SB4    X3
41316  M01S01925.251l664 +++|          SA1    MBUF+B7     READ CURRENT CLOCK VALUE
41317  M01S01926.251l664 +++|          SA2    ARMA+B7     LAST CLOCK VALUE
41318  M01S01927.251l664 +++|          BX2    X1-X2
41319  M01S01928.251l664 +++|          SX7    B1
41320  M01S01929.251l664 +++|          ZR     X2,ARM4     IF CLOCK NOT CHANGING
41321  M01S01930.251l664 +++|
41322  M01S01931.251l664 +++|*         PROCESS MACHINE WITH CLOCK CHANGING.
41323  M01S01932.251l664 +++|
41324  M01S01933.251l664 +++|          BX6    X1
41325  M01S01934.251l664 +++|          SA6    A2          STORE NEW CLOCK VALUE
41326  M01S01935.251l664 +++|          EQ     B4,B1,ARM2  IF IN ACTIVE STATE
41327  M01S01936.251l664 +++|          SB4    X3-MFDA-1
41328  M01S01937.251l664 +++|          PL     B4,ARM2     IF PROCESSING DOWN MACHINE
41329  M01S01938.251l664 +++|
41330  M01S01939.251l664 +++|*         SET MACHINE AS CURRENTLY BEING ACTIVE IN *MFST*.
41331  M01S01940.251l664 +++|
Line S01941 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41332  M02S01941.252l678 ---|          SA0    A3
41333  M02S01942.252l678 ---|          SX3    A3
41334  M02S01943.252l678 ---|          TX0    B7+SLDE+ETLT*100B+MFET,ECLT
Line S00832 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41335  M01S00832.252l678 +++|          SA0    A3+
41336  M01S00833.252l678 +++|          SX3    A3+
41337  M01S00834.252l678 +++|          TX0    B7+ETLT*100B+MFET,ECLT
41338  M01S00835.252l678 +++|          TX0    X0,TCNT
Line S01944 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41339  M01S01944.251l664 +++|          LX3    30
41340  M01S01945.251l664 +++|          BX0    X0+X3
41341  M01S01946.251l664 +++|          RE     1
41342  M01S01947.251l664 +++|+         SA3    A0          SET STATE
41343  M01S01948.251l664 +++|          MX2    42
41344  M01S01949.251l664 +++|          BX3    X2*X3
41345  M01S01950.251l664 +++|          BX7    X7+X3
41346  M01S01951.251l664 +++|          SA7    A3
41347  M01S01952.251l664 +++|          EQ     ARM2        PROCESS NEXT MACHINE
41348  M01S01953.251l664 +++|
41349  M01S01954.251l664 +++|*         ADVANCE MACHINE STATE.
41350  M01S01955.251l664 +++|
41351  M01S01956.251l664 +++| ARM3     IX7    X7+X3
41352  M01S01957.251l664 +++|          SA7    A3
41353  M01S01958.251l664 +++|          EQ     ARM2        PROCESS NEXT MACHINE
41354  M01S01959.251l664 +++|
41355  M01S01960.251l664 +++|*         MACHINE CLOCK IS NOT CHANGING.
41356  M01S01961.251l664 +++|
41357  M01S01962.251l664 +++| ARM4     ZR     B4,ARM2     IF DOWN STATE
41358  M01S01963.251l664 +++|          EQ     B4,B1,ARM3  IF ACTIVE STATE - ADVANCE TO *MFD1*
41359  M01S01964.251l664 +++|          SB4    X3-MFD1
41360  M01S01965.251l664 +++|          ZR     B4,ARM3     IF *MFD1* STATE - ADVANCE TO *MFD2*
41361  M01S01966.251l664 +++|          EQ     B4,B1,ARM6  IF *MFD2* STATE
41362  M01S01967.251l664 +++|          SB4    X3-MFDA
41363  M01S01968.251l664 +++|          ZR     B4,ARM7     IF *MFDA* STATE
41364  M01S01969.251l664 +++|          NE     B4,B1,ARM2  IF WAITING FOR *1MR* COMPLETE
41365  M01S01970.251l664 +++|
41366  M01S01971.251l664 +++|*         *MFCD* - CALL *1MR* TO RELEASE TRACK INTERLOCKS.
41367  M01S01972.251l664 +++|
41368  M01S01973.251l664 +++|          SA1    ARMB        SET PP CALL
41369  M01S01974.251l664 +++|          SX0    B7
41370  M01S01975.251l664 +++|          IX6    X1+X0
41371  M01S01976.251l664 +++|          TB7    SCA         SET SYSTEM CONTROL POINT
41372  M01S01977.251l664 +++|          PX0    X0,B3       SAVE CPU NUMBER
41373  M01S01978.251l664 +++|          SB4    B0          SET LIBRARY SEARCH NEEDED
41374  M01S01979.251l664 +++|          SB3    ARM5        SET EXIT ADDRESS
41375  M01S01980.251l664 +++|          EQ     /MONITOR/APQ  ASSIGN PP
41376  M01S01981.251l664 +++|
41377  M01S01982.251l664 +++| ARM5     SB7    X0          RESTORE MACHINE INDEX
41378  M01S01983.251l664 +++|          UX0,B3 X0
41379  M01S01984.251l664 +++|          SX7    B1+
41380  M01S01985.251l664 +++|          ZR     X1,ARM2     IF PP NOT ASSIGNED - PROCESS NEXT MACHINE
41381  M01S01986.251l664 +++|          SA3    TMMF+B7     RESTORE (X3)
41382  M01S01987.251l664 +++|          EQ     ARM3        ADVANCE STATE
41383  M01S01988.251l664 +++|
41384  M01S01989.251l664 +++|*         *MFD2* - MACHINE IS DOWN FOR TWO STATUSES.
41385  M01S01990.251l664 +++|
41386  M01S01991.251l664 +++| ARM6     BX1    X3
41387  M01S01992.251l664 +++|          LX1    59-46
41388  M01S01993.251l664 +++|          PL     X1,ARM3     IF NOT LOW SPEED PORT MACHINE
41389  M01S01994.251l664 +++|          MX7    12
41390  M01S01995.251l664 +++|          SA1    ARMD        SET MESSAGE
41391  M01S01996.251l664 +++|          BX4    X7*X3
41392  M01S01997.251l664 +++|          LX4    -18
41393  M01S01998.251l664 +++|          BX7    X1+X4
41394  M01S01999.251l664 +++|          TA7    MS2W,SCA
41395  M01S02000.251l664 +++|          SA1    A1+B1
41396  M01S02001.251l664 +++|          BX7    X1
41397  M01S02002.251l664 +++|          SA7    A7+B1
41398  M01S02003.251l664 +++|          SA1    A1+B1
41399  M01S02004.251l664 +++|          LX4    -24
41400  M01S02005.251l664 +++|          BX7    X1+X4
41401  M01S02006.251l664 +++|          SA7    A7+1
41402  M01S02007.251l664 +++|          EQ     ARM2        PROCESS NEXT MACHINE
41403  M01S02008.251l664 +++|
41404  M01S02009.251l664 +++|*         *MFDA* - DOWN ACKNOWLEGED STATE PROCESSOR.
41405  M01S02010.251l664 +++|
41406  M01S02011.251l664 +++| ARM7     SA1    ARMC        SET MESSAGE *MACHINE XX DOWN.*
41407  M01S02012.251l664 +++|          MX7    12
41408  M01S02013.251l664 +++|          BX4    X7*X3
41409  M01S02014.251l664 +++|          LX4    12
41410  M01S02015.251l664 +++|          BX7    X1+X4
41411  M01S02016.251l664 +++|          TA7    MS2W,SCA
41412  M01S02017.251l664 +++|          SA1    A1+B1
41413  M01S02018.251l664 +++|          BX7    X1
41414  M01S02019.251l664 +++|          SA7    A7+B1
41415  M01S02020.251l664 +++|          SX4    B1
41416  M01S02021.251l664 +++|          LX4    B7
41417  M01S02022.251l664 +++|          SX5    B7+B1       SET MACHINE MASK FIELD BEING PROCESSED
41418  M00S25249.cpumtr  +++|          SB4    CIRI
41419  M00S25250.cpumtr  +++|
41420  M00S25251.cpumtr  +++|**        SET *CIRI* INTERLOCK WHICK CONTROLS THE RELEASEING OF
41421  M00S25252.cpumtr  +++|*         A DOWN MACHINES FLAG REGISTER AND DEVICE INTERLOCKS.
41422  M00S25253.cpumtr  +++|*         IF THE *CIRI* INTERLOCK IS HELD BY THE DOWN MACHINE
41423  M00S25254.cpumtr  +++|*         THE INTERLOCK WILL BE RELEASED AND ANOTHER ATTEMPT
41424  M00S25255.cpumtr  +++|*         WILL BE MADE TO OBTAIN THE INTERLOCK.
41425  M00S25256.cpumtr  +++|
Line S25257 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41426  M01S25257.251l664 ---| ARM5     SB6    ARM6        SET *SFR* RETURN
41427  M01S25258.251l664 ---|          SB5    /ECS/SFR    ATTEMPT TO SET *CIRI* INTERLOCK
41428  M01S25259.251l664 ---|          SX1    DMCM        SET DOWN MACHINE MESSAGE
41429  M01S25260.251l664 ---|          EQ     /MONITOR/MSC  SET MESSAGE/*CIRI* FLAG BIT
Line S02023 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41430  M01S02023.251l664 +++| ARM8     SB6    ARM9        SET *SFR* RETURN
41431  M01S02024.251l664 +++|          EQ     /ECS/SFR    SET *CIRI* FLAG BIT
41432  M00S25261.cpumtr  +++|
Line S25262 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41433  M01S25262.251l664 ---| ARM6     SA0    MBUF
41434  M01S25263.251l664 ---|          TX0    20B+ETLT*100B+FRET,ECLT  SET ADDRESS OF FLAG WORDS
Line S02025 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41435  M01S02025.251l664 +++| ARM9     SA0    MBUF
Line S02026 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41436  M02S02026.252l678 ---|          TX0    SLDE+ETLT*100B+FRET,ECLT  SET ADDRESS OF FLAG WORDS
Line S00836 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41437  M01S00836.252l678 +++|          TX0    ETLT*100B+FRET,ECLT  SET ADDRESS OF FLAG WORDS
41438  M01S00837.252l678 +++|          TX0    X0,TCNT
41439  M00S25264.cpumtr  +++|          SX3    A0+
41440  M00S25265.cpumtr  +++|          LX3    30
41441  M00S25266.cpumtr  +++|          BX0    X3+X0
41442  M00S25267.cpumtr  +++|          RE     18
Line S25268 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41443  M01S25268.251l664 ---|          PER    /MMF/ARM12,/ECS/PER  PARITY ERROR PROCESSING
41444  M01S25269.251l664 ---|          SB6    ARM9        SET *CFR* RETURN
Line S02027 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41445  M01S02027.251l664 +++|          PER    /MMF/ARM16,/ECS/PER  PARITY ERROR PROCESSING
Line S25270 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41446  M01S25270.252l678 ---|          TSX0   (402B,6B,ESM)  STATUS FLAG REGISTER
Line S00838 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41447  M01S00838.252l678 +++|          TSX0   (402B,ESM,6B)  STATUS FLAG REGISTER
41448  M00S25271.cpumtr  +++|          LX0    21
41449  M00S25272.cpumtr  +++|          BX0    X0+X4
Line S25273 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41450  M01S25273.251l664 ---|          ZR     X7,ARM8     IF INTERLOCK OBTAINED
Line S02028 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41451  M01S02028.251l664 +++|          ZR     X7,ARM11    IF INTERLOCK OBTAINED
41452  M00S25274.cpumtr  +++|
41453  M00S25275.cpumtr  +++|*         CHECK *CIRI* INTERLOCK HELD BY DOWN MACHINE.
41454  M00S25276.cpumtr  +++|
41455  M00S25277.cpumtr  +++|          SA2    A0+B4       READ FLAG WORD
41456  M00S25278.cpumtr  +++|          AX2    12
41457  M00S25279.cpumtr  +++|          BX2    X4*X2
Line S25280 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41458  M01S25280.251l664 ---|          ZR     X2,ARM12    IF HELD BY RUNNING MACHINE
41459  M01S25281.251l664 ---|          SB6    ARM5        SET *CFR* RETURN
Line S02029 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41460  M01S02029.251l664 +++|          ZR     X2,ARM15    IF HELD BY RUNNING MACHINE
41461  M01S02030.251l664 +++|          SB6    ARM8        SET *CFR* RETURN
41462  M00S25282.cpumtr  +++|          EQ     /ECS/CFR    CLEAR *CIRI* INTERLOCK
41463  M00S25283.cpumtr  +++|
41464  M00S25284.cpumtr  +++|*         CLEAR *TRTI* INTERLOCK IF HELD BY DOWN MACHINE.
41465  M00S25285.cpumtr  +++|
Line S25286 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41466  M01S25286.251l664 ---| ARM7     SX2    X4+.TRTI    CLEAR MACHINE MASK AND TRTI FLAG BITS
Line S02031 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41467  M01S02031.251l664 +++| ARM10    SX2    X4+.TRTI    CLEAR MACHINE MASK AND *TRTI* FLAG BITS
Line S25287 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41468  M01S25287.252l678 ---|          TSX0   (403B,7B,ESM)
Line S00839 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41469  M01S00839.252l678 +++|          TSX0   (403B,ESM,7B)
41470  M00S25288.cpumtr  +++|          LX0    21
41471  M00S25289.cpumtr  +++|          BX0    X0+X2
Line S25290 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41472  M01S25290.251l664 ---| ARM8     RE     /ECS/FRWC
41473  M01S25291.251l664 ---|          EQ     ARM7        IF *TRTI* HELD BY DOWN MACHINE
Line S02032 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41474  M01S02032.251l664 +++| ARM11    RE     /ECS/FRWC
41475  M01S02033.251l664 +++|          EQ     ARM10       IF *TRTI* HELD BY DOWN MACHINE
41476  M00S25292.cpumtr  +++|          SB4    18
Line S25293 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41477  M01S25293.251l664 ---|          SB7    -B1         SET FIRST CALL TO SSD
41478  M01S25294.251l664 ---|          BX6    X4
41479  M01S25295.251l664 ---|          SB5    ARM10       SET *SSD* RETURN
Line S02034 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41480  M01S02034.251l664 +++|          SB7    -B1         SET FIRST CALL TO *SSD*
41481  M01S02035.251l664 +++|          MX7    -12
41482  M01S02036.251l664 +++|          SB6    ARM12       SET *CFR* RETURN
41483  M01S02037.251l664 +++|          SB5    ARM13       SET *SSD* RETURN
41484  M00S25296.cpumtr  +++|
41485  M00S25297.cpumtr  +++|*         CLEAR FLAG REGISTER BITS.
41486  M00S25298.cpumtr  +++|
Line S25299 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41487  M01S25299.251l664 ---| ARM9     SB4    B4-B1
Line S02038 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41488  M01S02038.251l664 +++| ARM12    SB4    B4-B1
41489  M00S25300.cpumtr  +++|          SA0    MBUF
41490  M00S25301.cpumtr  +++|          SA3    A0+B4       READ FLAG WORD
41491  M00S25302.cpumtr  +++|          NG     B4,/PROGRAM/SSD  IF END OF FLAG BITS
Line S25303 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41492  M01S25303.251l664 ---|          AX3    12
41493  M01S25304.251l664 ---|          BX3    X4*X3
41494  M01S25305.251l664 ---|          NZ     X3,/ECS/CFR  IF INTERLOCK HELD BY DOWN MACHINE
41495  M01S25306.251l664 ---|          EQ     ARM9
Line S02039 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41496  M01S02039.251l664 +++|          BX3    X3-X5
41497  M01S02040.251l664 +++|          BX3    -X7*X3
41498  M01S02041.251l664 +++|          ZR     X3,/ECS/CFR  IF INTERLOCK HELD BY DOWN MACHINE
41499  M01S02042.251l664 +++|          EQ     ARM12       CLEAR BITS
41500  M00S25307.cpumtr  +++|
41501  M00S25308.cpumtr  +++|*         CLEAR  DEVICE INTERLOCKS HELD BY DOWN MACHINES.
41502  M00S25309.cpumtr  +++|
Line S25310 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41503  M01S25310.251l664 ---| ARM10    SX2    A0          SET BUFFER ADDRESS
Line S02043 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41504  M01S02043.251l664 +++| ARM13    SX2    A0          SET BUFFER ADDRESS
41505  M01S02044.251l664 +++|          SX4    X4+SDGL
41506  M00S25311.cpumtr  +++|          LX2    30
Line S25312 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41507  M01S25312.251l664 ---|          BX0    X2+X4       FORM ECS ADDRESS
41508  M01S25313.251l664 ---|          LX4    X6
41509  M01S25314.251l664 ---|          NG     B7,ARM11    IF END OF SHARED DEVICES
41510  M01S25315.251l664 ---|          LX4    47-3
41511  M01S25316.251l664 ---|          NX4,B4 X4
41512  M01S25317.251l664 ---|          RE     SDGL+1
41513  M01S25318.251l664 ---|          PER    /MMF/ARM12,/ECS/PER  PARITY ERROR PROCESSING
41514  M01S25319.251l664 ---|          SA2    A0+SDGL
41515  M01S25320.251l664 ---|          MX7    -MXMF
41516  M01S25321.251l664 ---|          BX3    -X7*X2
41517  M01S25322.251l664 ---|          SX4    B4-4        COMPLEMENT OF DOWN MACHINE INDEX
41518  M01S25323.251l664 ---|          AX3    B1
41519  M01S25324.251l664 ---|          BX3    -X4-X3
41520  M01S25325.251l664 ---|          NZ     X3,/PROGRAM/SSD  IF NOT INTERLOCKED BY DOWN MACHINE
41521  M01S25326.251l664 ---|          BX7    X7*X2
Line S02045 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41522  M01S02045.251l664 +++|          BX0    X2+X4       FORM EXTENDED MEMORY ADDRESS
41523  M01S02046.251l664 +++|          MX4    -6
41524  M01S02047.251l664 +++|          NG     B7,ARM14    IF END OF SHARED DEVICES
41525  M01S02048.251l664 +++|          RE     1
41526  M01S02049.251l664 +++|          PER    /PROGRAM/SSD,/ECS/PER  PARITY ERROR PROCESSING
41527  M01S02050.251l664 +++|          SA2    A0          READ *SDGL*
41528  M01S02051.251l664 +++|          BX7    -X4*X2
41529  M01S02052.251l664 +++|          AX7    1
41530  M01S02053.251l664 +++|          BX3    X7-X5
41531  M01S02054.251l664 +++|          NZ     X3,/PROGRAM/SSD  IF NOT INTERLOCKED BY DOWN MACHINE
41532  M01S02055.251l664 +++|          BX7    X4*X2
41533  M00S25327.cpumtr  +++|          SA7    A2          CLEAR INTERLOCK
Line S25328 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41534  M01S25328.251l664 ---|          WE     SDGL+1
Line S02056 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41535  M01S02056.251l664 +++|          WE     1
41536  M00S25329.cpumtr  +++|          PER    /ECS/ECH1,/ECS/PER  HANG ON UNRECOVERED WRITE ERROR
41537  M00S25330.cpumtr  +++|          EQ     /PROGRAM/SSD  SEARCH FOR SHARED DEVICE
41538  M00S25331.cpumtr  +++|
Line S25332 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41539  M01S25332.251l664 ---| ARM11    SA1    ARMC        SET MACHINES TO BE PROCESSED
41540  M01S25333.251l664 ---|          LX4    48-4
41541  M01S25334.251l664 ---|          SA2    A1-B1       CLEAR DOWN MACHINE BITS
41542  M01S25335.251l664 ---|          BX7    X4+X1
41543  M01S25336.251l664 ---|          SB4    CIRI
41544  M01S25337.251l664 ---|          SA7    A1
41545  M01S25338.251l664 ---|          LX4    20-48
41546  M01S25339.251l664 ---|          BX7    -X4*X2
41547  M01S25340.251l664 ---|          SB6    ARM12       SET *CFR* RETURN
41548  M01S25341.251l664 ---|          SA7    A2
41549  M01S25342.251l664 ---|          SX0    B1
41550  M01S25343.251l664 ---|          LX0    58-PDMF
41551  M01S25344.251l664 ---|          BX5    X0+X5       SET DOWN MACHINE PROCESSING (PDMF)
41552  M01S25345.251l664 ---|          EQ     /ECS/CFR    CLEAR *CIRI* INTERLOCK
Line S02057 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41553  M01S02057.251l664 +++| ARM14    SB7    X5-1        RESTORE (B7)
41554  M01S02058.251l664 +++|          SX0    B1+
41555  M01S02059.251l664 +++|          SA3    TMMF+B7     ADVANCE STATE
41556  M01S02060.251l664 +++|          IX7    X3+X0
41557  M01S02061.251l664 +++|          SA7    A3
41558  M01S02062.251l664 +++| ARM15    SA1    EFRL        RESTORE (X5)
41559  M01S02063.251l664 +++|          SX5    .COMI
41560  M01S02064.251l664 +++|          BX5    X5*X1
41561  M01S02065.251l664 +++|          LX5    58-PMRF-COMI
41562  M01S02066.251l664 +++|          SB4    CIRI
41563  M01S02067.251l664 +++|          SB6    ARM2
41564  M01S02068.251l664 +++|          EQ     /ECS/CFR    CLEAR FLAG BIT AND ADVANCE MACHINE
41565  M00S25346.cpumtr  +++|
Line S25347 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41566  M01S25347.251l664 ---| ARM12    SA0    B3          RESTORE CPU NUMBER
41567  M01S25348.251l664 ---|          BX0    X5
41568  M01S25349.251l664 ---|          NZ     X5,/MONITOR/EPR  IF PROGRAM MODE PROCESSING TO PERFORM
Line S02069 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41569  M01S02069.251l664 +++| ARM16    SA0    B3          RESTORE CPU NUMBER
41570  M01S02070.251l664 +++|          BX0    X5
41571  M01S02071.251l664 +++|          NZ     X5,/MONITOR/EPR  IF PROGRAM MODE PROCESSING TO PERFORM
41572  M00S25350.cpumtr  +++|          EQ     /MONITOR/.ARTF  ADVANCE RUNNING TIME
41573  M00S25351.cpumtr  +++|
41574  M00S25352.cpumtr  +++| ARMA     BSS    MXMF        MACHINE CLOCK TEMPORARIES
41575  M00S25353.cpumtr  +++|
Line S25354 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41576  M01S25354.251l664 ---| ARMB     CON    0           MACHINES DOWN AT LAST STATUS
41577  M01S25355.251l664 ---| ARMC     CON    0           MACHINES TO BE PROCESSED BY *PDM*
41578  M01S25356.251l664 ---| DMCM     DATA   C*MACHINE DOWN.*
Line S02072 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41579  M01S02072.251l664 +++| ARMB     VFD    18/0L1MR,6/0,12/0,6/CDV,18/1
41580  M01S02073.251l664 +++|
41581  M01S02074.251l664 +++| ARMC     CON    10HMACHINE XX-2RXX
41582  M01S02075.251l664 +++|          CON    6L DOWN.
41583  M01S02076.251l664 +++| ARMD     CON    10HIF XX DOWN-2RXX*1BS30
41584  M01S02077.251l664 +++|          CON    10H ENTER *DO
41585  M01S02078.251l664 +++|          CON    10HWN,MID=XX*-2RXX*1BS6
41586  M01S02079.251l664 +++|
41587  M01S02080.251l664 +++| TMMF     BSS    0           MAINFRAME STATE TABLE
41588  M01S02081.251l664 +++|          DUP    MXMF,1
41589  M01S02082.251l664 +++|          DATA   0
41590  M00S25357.cpumtr  +++|          TITLE  PPU REQUEST PROCESSOR.
Line S25358 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41591  M01S25358.251l664 ---| AFA      SPACE  4,10
41592  M01S25359.251l664 ---|**        AFAM - ACCESS FAST ATTACH.
41593  M01S25360.251l664 ---|*
41594  M01S25361.251l664 ---|*         ENTRY  (A5) = PP *OR* ADDRESS.
41595  M01S25362.251l664 ---|*
41596  M01S25363.251l664 ---|*         EXIT   NONE.
41597  M01S25364.251l664 ---|*
41598  M01S25365.251l664 ---|*         USES   X - ALL.
41599  M01S25366.251l664 ---|*                A - 0, 1, 2, 3, 5, 6, 7.
41600  M01S25367.251l664 ---|*                B - 3, 4, 5, 6.
Line S02083 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41601  M01S02083.251l664 +++| SFI      SPACE  4,15
41602  M01S02084.251l664 +++|**        SFI - SET *FATI* INTERLOCK.
41603  M01S02085.251l664 +++|*
41604  M01S02086.251l664 +++|*         *AFAM* EXTENSION TO SET *FATI* FLAG REGISTER INTERLOCK AND
41605  M01S02087.251l664 +++|*         READ *FAT* ENTRY FROM EXTENDED MEMORY.
41606  M01S02088.251l664 +++|*
41607  M01S02089.251l664 +++|*         ENTRY  (X2) = *FAT* INDEX.
41608  M01S02090.251l664 +++|*
41609  M01S02091.251l664 +++|*         EXIT   (X1) = GLOBAL COUNT WORD FROM *FAT*.
41610  M01S02092.251l664 +++|*                (B3) = CPU NUMBER.
41611  M01S02093.251l664 +++|*                TO *REJ*, IF UNABLE TO SET *FATI* INTERLOCK.
41612  M01S02094.251l664 +++|*                TO *AFA1*, IF SUCCESSFUL READ OF *FAT* ENTRY.
41613  M01S02095.251l664 +++|*                TO *PMR*, IF PARITY ERROR IN READING *FAT*.
41614  M00S25368.cpumtr  +++|
41615  M00S25369.cpumtr  +++|
Line S25370 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41616  M01S25370.251l664 ---| AFA      LX1    48
41617  M01S25371.251l664 ---|          MX4    -12
41618  M01S25372.251l664 ---|          BX6    -X4*X1
41619  M01S25373.251l664 ---|          LX6    59
41620  M01S25374.251l664 ---|          SB6    X6
41621  M01S25375.251l664 ---|          SB5    PPRX        SET *REJ* EXIT
41622  M01S25376.251l664 ---|          SB3    A0          SAVE CPU NUMBER
41623  M01S25377.251l664 ---|          NZ     B6,HNG      IF ILLEGAL SUBFUNCTION
41624  M01S25378.251l664 ---|          LX1    48          POSITION ATTACH MODE
41625  M01S25379.251l664 ---|          BX5    -X4*X5      EXTRACT FNT ORDINAL
41626  M01S25380.251l664 ---|          TX7    X5,-FNTM    ORDINAL - MAXIMUM NUMBER OF ENTRIES
41627  M01S25381.251l664 ---|          MX0    -11
41628  M01S25382.251l664 ---|          BX3    -X0*X1      MODE OF FAST ATTACH FILE
41629  M01S25383.251l664 ---|          MX0    -1
41630  M01S25384.251l664 ---|          LX1    -11
41631  M01S25385.251l664 ---|          BX1    -X0*X1
41632  M01S25386.251l664 ---|          BX6    X1+X6       SAVE SUBFUNCTION/NON-ROLLABLE OPTION
41633  M01S25387.251l664 ---|          SA6    AFAA
41634  M01S25388.251l664 ---|          SX0    X3-TFASL
41635  M01S25389.251l664 ---|          BX7    X7*X0
41636  M01S25390.251l664 ---|          PL     X7,HNG      IF ILLEGAL FNT ORDINAL/ATTACH MODE
41637  M01S25391.251l664 ---|          SX1    FNTE        LENGTH OF SYSTEM FNT ENTRY
41638  M01S25392.251l664 ---|          IX5    X5*X1
41639  M01S25393.251l664 ---|          TA2    X5+FNTG,FNT GET FNT ENTRY
41640  M01S25394.251l664 ---|          BX0    -X4*X2
41641  M01S25395.251l664 ---|          AX0    6
41642  M01S25396.251l664 ---|          SX0    X0-FAFT
41643  M01S25397.251l664 ---|          LX2    -1
41644  M01S25398.251l664 ---|          NG     X2,/PROGRAM/REJ  IF FILE BUSY
41645  M01S25399.251l664 ---|          SA3    TFAS+X3     READ MODE PARAMETERS
41646  M01S25400.251l664 ---|          LX2    -11
41647  M01S25401.251l664 ---|          MX5    -6
41648  M01S25402.251l664 ---|          BX2    -X5*X2
41649  M01S25403.251l664 ---|          NZ     X0,HNG      IF NOT *FAFT* FILE
41650  M01S25404.251l664 ---|          SA1    A2+B1       GET FST ENTRY
41651  M01S25405.251l664 ---|          ERRNZ  FSTG-FNTG-1 CODE DEPENDS ON VALUE
41652  M01S25406.251l664 ---|          SB4    A1          FST ADDRESS
41653  M01S25407.251l664 ---|          ZR     X2,IAU6     IF FAT ENTRY NOT IN ECS
41654  M01S25408.251l664 ---|
41655  M01S25409.251l664 ---|*         INTERLOCK AND READ ECS ENTRY.
41656  M01S25410.251l664 ---|
41657  M01S25411.251l664 ---| IAU5     TSX0   (400B,4B,ESM)  SELECT
Line S02096 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41658  M02S02096.252l678 ---| SFI      TSX0   (400B,4B,ESM)  SELECT
Line S00840 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41659  M01S00840.252l678 +++| SFI      TSX0   (400B,ESM,4B)  SELECT
41660  M00S25412.cpumtr  +++|          SX1    .FATI
41661  M00S25413.cpumtr  +++|          LX0    21
Line S02097 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41662  M01S02097.251l664 +++|          SB3    A0
41663  M00S25414.cpumtr  +++|          BX0    X0+X1
Line S25415 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41664  M01S25415.251l664 ---|          LX2    3           POSITION *FAT* INDEX
Line S02098 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41665  M01S02098.251l664 +++|          LX2    FATS        POSITION *FAT* INDEX
41666  M00S25416.cpumtr  +++|          RE     /ECS/FRWC   SET *FATI* INTERLOCK
41667  M00S25417.cpumtr  +++|          EQ     /PROGRAM/REJ
41668  M00S25418.cpumtr  +++|
Line S25419 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41669  M01S25419.251l664 ---|*         THIS WORD IS CHANGED BY IAUM PRESET.
Line S02099 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41670  M01S02099.251l664 +++|*         THIS WORD IS CHANGED BY *AFAM* PRESET.
41671  M00S25420.cpumtr  +++|
Line S25421 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41672  M01S25421.251l664 ---| IAUA     SA0    MBUF        SET CM ADDRESS FOR READ
Line S02100 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41673  M01S02100.251l664 +++| SFIA     SA0    MBUF        SET CM ADDRESS FOR READ
Line S25422 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41674  M01S25422.252l678 ---|          SX0    X2+SLDE+FAST*100B  SET FAST ATTACH TABLE ADDRESS
Line S00841 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41675  M01S00841.252l678 +++|          TX0    X2+FAST*100B,TCNT  SET FAST ATTACH TABLE ADDRESS
41676  M00S25423.cpumtr  +++|          SX1    A0+
41677  M00S25424.cpumtr  +++|          LX1    30
41678  M00S25425.cpumtr  +++|          BX0    X0+X1
Line S25426 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41679  M01S25426.252l678 ---|          RE     10B         READ FAT ENTRY
Line S00842 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41680  M01S00842.252l678 +++|          RE     2+MXMF
Line S25427 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41681  M01S25427.251l664 ---|          PER    /MMF/IAU10,/ECS/PER  PARITY ERROR PROCESSING
Line S02101 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41682  M01S02101.251l664 +++|          PER    /MMF/SFI1,/ECS/PER  PARITY ERROR PROCESSING
41683  M00S25428.cpumtr  +++|          SA0    A0+B1       ADJUST ADDRESS TO GLOBAL COUNT WORD
41684  M00S25429.cpumtr  +++|          SX1    B1
41685  M00S25430.cpumtr  +++|          IX0    X0+X1
41686  M00S25431.cpumtr  +++|          LX1    30
41687  M00S25432.cpumtr  +++|          IX0    X0+X1
Line S25433 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41688  M01S25433.251l664 ---|          SA1    A0+         READ GLOBAL WORD FROM ECS
Line S02102 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41689  M01S02102.251l664 +++|          SA1    A0          READ GLOBAL WORD FROM EXTENDED MEMORY
41690  M01S02103.251l664 +++|          EQ     /MONITOR/AFA1  CONTINUE
41691  M00S25434.cpumtr  +++|
Line S25435 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41692  M01S25435.251l664 ---|*         PERFORM UPDATE.
Line S02104 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41693  M01S02104.251l664 +++|*         PARITY ERROR PROCESSOR.
41694  M00S25436.cpumtr  +++|
Line S25437 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41695  M01S25437.251l664 ---| IAU6     UX3,B6 X3          (B6) = POSITION OF FIELD
41696  M01S25438.251l664 ---|          BX2    -X4*X3      (X2) = FIELD MASK
41697  M01S25439.251l664 ---|          AX5    X1,B6       POSITION FIELD TO BOTTOM OF WORD
41698  M01S25440.251l664 ---|          LX3    -24
41699  M01S25441.251l664 ---|          BX5    X2*X5       CURRENT VALUE OF FIELD
41700  M01S25442.251l664 ---|          BX4    -X4*X3
41701  M01S25443.251l664 ---|          MX7    1
41702  M01S25444.251l664 ---|          LX4    X4,B6       INCREMENT SHIFTED TO FIELD POSITION
41703  M01S25445.251l664 ---|          NG     X6,IAU7     IF DECREMENTING FIELD
41704  M01S25446.251l664 ---|          UX3,B5 X3          (B5) = -MASK WIDTH
41705  M01S25447.251l664 ---|          LX3    -12
41706  M01S25448.251l664 ---|          AX6    X7,B5       FORM BUSY MASK
41707  M01S25449.251l664 ---|          BX4    -X4         COMPLEMENT INCREMENT VALUE
41708  M01S25450.251l664 ---|          SB5    X3          SET POSITION OF BUSY MASK
41709  M01S25451.251l664 ---|          LX6    X6,B5
41710  M01S25452.251l664 ---|          BX5    X2-X5
41711  M01S25453.251l664 ---|          BX3    -X6*X1      CHECK IF BUSY STATUS
41712  M01S25454.251l664 ---|          NZ     X3,IAU8     IF FILE BUSY
41713  M01S25455.251l664 ---| IAU7     ZR     X5,IAU8     IF OVERFLOW/UNDERFLOW
41714  M01S25456.251l664 ---|          IX6    X1-X4       INCREMENT/DECREMENT FIELD
41715  M01S25457.251l664 ---|          SB5    B6-8
41716  M01S25458.251l664 ---|          NZ     B5,IAU7.2   IF NOT WRITEABLE MODE
41717  M01S25459.251l664 ---|          SA2    AFAA
41718  M01S25460.251l664 ---|          NG     X2,IAU7.1   IF RETURNING FAST ATTACH FILE
41719  M01S25461.251l664 ---|          LX2    1
41720  M01S25462.251l664 ---|          BX6    X2+X6       SET NON-ROLLABLE BIT IF REQUESTED
41721  M01S25463.251l664 ---|          EQ     IAU7.2      STORE GLOBAL WORD
Line S02105 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41722  M01S02105.251l664 +++| SFI1     SB6    /PROGRAM/REJ  SET *SFR* RETURN
41723  M01S02106.251l664 +++|          SB5    /MONITOR/PPRX  SET *REJ* RETURN
41724  M01S02107.251l664 +++|          SB4    COMI        SET PARITY ERROR RECOVERY NEEDED
41725  M01S02108.251l664 +++|          JP     /ECS/SFR    SET FLAG BIT
41726  M01S02109.251l664 +++| CFI      SPACE  4,10
41727  M01S02110.251l664 +++|**        CFI - CLEAR *FATI* INTERLOCK.
41728  M01S02111.251l664 +++|*
41729  M01S02112.251l664 +++|*         *AFAM* EXTENSION TO UPDATE LOCAL MACHINE COUNTS, CLEAR
41730  M01S02113.251l664 +++|*         *FATI* FLAG REGISTER INTERLOCK AND WRITE *FAT* ENTRY TO
41731  M01S02114.251l664 +++|*         EXTENDED MEMORY.
41732  M01S02115.251l664 +++|*
41733  M01S02116.251l664 +++|*         ENTRY  (XO) = *FAT* ADDRESS IN EXTENDED MEMORY.
41734  M01S02117.251l664 +++|*                (X7) = 1/1, 59/0
41735  M01S02118.251l664 +++|*                (B3) = CPU NUMBER.
41736  M01S02119.251l664 +++|*
41737  M01S02120.251l664 +++|*         EXIT   (X7) = 0.
41738  M01S02121.251l664 +++|*                TO *ECH*, IF UNRECOVERED WRITE ERROR OR REJECT IN
41739  M01S02122.251l664 +++|*                CLEARING FLAG INTERLOCK.
41740  M01S02123.251l664 +++|*                TO *AFA6*, IF SUCCESSFUL WRITE OF *FAT* ENTRY.
41741  M00S25464.cpumtr  +++|
Line S25465 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41742  M01S25465.251l664 ---| IAU7.1   SX2    B1+B1       CLEAR NON-ROLLABLE BIT
41743  M01S25466.251l664 ---|          BX6    -X2*X6
41744  M01S25467.251l664 ---| IAU7.2   SA6    A1          STORE GLOBAL WORD
41745  M01S25468.251l664 ---|          ZR     X0,PPR1     IF NO ENTRY IN ECS
41746  M01S25469.251l664 ---|          LX7    1-59        GET NON-ROLLABLE BIT
Line S02124 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41747  M01S02124.251l664 +++|
41748  M01S02125.251l664 +++| CFI      LX7    1-59        GET NON-ROLLABLE BIT
41749  M00S25470.cpumtr  +++|          BX5    X7*X6
41750  M00S25471.cpumtr  +++|          SA3    B4+         READ LOCAL WORD FROM CM
41751  M00S25472.cpumtr  +++|          TA2    A6,MIN      READ LOCAL WORD FROM ECS
41752  M00S25473.cpumtr  +++|          IX6    X3-X4
41753  M00S25474.cpumtr  +++|          BX3    -X7*X6
41754  M00S25475.cpumtr  +++|          IX6    X3+X5
41755  M00S25476.cpumtr  +++|          SA6    A3
41756  M00S25477.cpumtr  +++|          IX6    X2-X4
41757  M00S25478.cpumtr  +++|
41758  M00S25479.cpumtr  +++|*         WRITE UPDATED ENTRY BACK TO ECS.
41759  M00S25480.cpumtr  +++|
41760  M00S25481.cpumtr  +++|          BX2    -X7*X6
41761  M00S25482.cpumtr  +++|          IX6    X2+X5
41762  M00S25483.cpumtr  +++|          BX7    X7-X7
41763  M00S25484.cpumtr  +++|          SA6    A2+         STORE LOCAL WORD TO BE WRITTEN TO ECS
Line S25485 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
41764  M01S25485.253l688 ---|          WE     1+MXMF
Line S01617 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum193
Seq #  *Modification Id* Act 
----------------------------+
41765  M02S01617.cpum193 ---|          WE     2+MXMF
Line S00001 Modification History
M01 (Added by) cpum193
Seq #  *Modification Id* Act 
----------------------------+
41766  M01S00001.cpum193 +++|          WE     1+MXMF
41767  M00S25486.cpumtr  +++|          PER    /ECS/ECH1,/ECS/PER  HANG ON UNRECOVERED WRITE ERROR
41768  M00S25487.cpumtr  +++|
41769  M00S25488.cpumtr  +++|*         RELEASE FLAG REGISTER INTERLOCK.
41770  M00S25489.cpumtr  +++|
Line S25490 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41771  M01S25490.251l664 ---| IAU8     LX7    37          POSITION STATUS
41772  M01S25491.251l664 ---|          ZR     X0,IAU9     IF NO ECS PROCESSING
41773  M01S25492.251l664 ---|          TSX0   (403B,7B,ESM)
Line S02126 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41774  M02S02126.252l678 ---| CFI1     TSX0   (403B,7B,ESM)
Line S00843 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41775  M01S00843.252l678 +++| CFI1     TSX0   (403B,ESM,7B)
41776  M00S25493.cpumtr  +++|          LX0    21
41777  M00S25494.cpumtr  +++|          SX2    .FATI
41778  M00S25495.cpumtr  +++|          BX0    X0+X2       SET FLAG REGISTER FUNCTION
41779  M00S25496.cpumtr  +++|          SA0    B3          RESTORE CPU NUMBER
41780  M00S25497.cpumtr  +++|          RE     /ECS/FRWC   CLEAR *FATI* INTERLOCK
41781  M00S25498.cpumtr  +++|          RJ     /ECS/ECH    HANG ON HALF EXIT
Line S25499 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41782  M01S25499.251l664 ---| IAU9     ZR     X7,PPR1     IF NO REJECT
41783  M01S25500.251l664 ---|          MX4    -12
41784  M01S25501.251l664 ---|          BX3    -X4*X1
41785  M01S25502.251l664 ---|          BX7    X7+X3
41786  M01S25503.251l664 ---|          SA7    A5          STORE OUTPUT REGISTER
41787  M01S25504.251l664 ---|          EQ     PPRX
41788  M01S25505.251l664 ---|
41789  M01S25506.251l664 ---|*         PARITY ERROR PROCESSOR.
41790  M01S25507.251l664 ---|
41791  M01S25508.251l664 ---| IAU10    SA5    A5
41792  M01S25509.251l664 ---|          SA0    B3+         RESTORE CPU NUMBER
41793  M01S25510.251l664 ---|          BX7    X7-X7
41794  M01S25511.251l664 ---|          JP     /MONITOR/PMR  SWITCH TO PROGRAM MODE FOR PARITY ERROR
41795  M01S25512.251l664 ---|
41796  M01S25513.251l664 ---|
41797  M01S25514.251l664 ---|**        IAUM PRESET.
Line S02127 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41798  M01S02127.251l664 +++|          EQ     /MONITOR/AFA6  RETURN
41799  M01S02128.251l664 +++| AFAP     SPACE  4,10
41800  M01S02129.251l664 +++|**        AFAP - *AFAM* PRESET.
41801  M01S02130.251l664 +++|*
41802  M01S02131.251l664 +++|*         *AFAM* PRESET IS EXECUTED ON THE FIRST *AFAM* CALL.
41803  M01S02132.251l664 +++|*         THIS IS REQUIRED SINCE THE *FAT* TRACK IS NOT KNOWN UNTIL
41804  M01S02133.251l664 +++|*         AFTER *0MF* HAS EXECUTED TO ALLOCATE IT.
41805  M00S25515.cpumtr  +++|
Line S25516 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41806  M01S25516.251l664 ---| AFAP     SX6    AFA-AFAP    RESET MONITOR MODE ADDRESS
Line S02134 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41807  M01S02134.251l664 +++| AFAP     MX6    -18         RESET MONITOR MODE ADDRESS
41808  M01S02135.251l664 +++|          BX3    X6*X3
41809  M01S02136.251l664 +++|          SX6    /MONITOR/.AFAM
41810  M00S25517.cpumtr  +++|          IX6    X6+X3
41811  M00S25518.cpumtr  +++|          MX4    -11
41812  M00S25519.cpumtr  +++|          SA6    TPPR+AFAM-CPUM
41813  M00S25520.cpumtr  +++|          TA3    ALGL,EMS    SET FAST ATTACH TABLE ADDRESS
Line S02137 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41814  M02S02137.252l678 ---|          SX6    SLDE*101B
Line S00844 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41815  M01S00844.252l678 +++|          SX6    2020B
41816  M01S00845.252l678 +++|          TLX6   0,TNSC
41817  M00S25521.cpumtr  +++|          BX4    -X4*X3
Line S25522 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41818  M01S25522.251l664 ---|          SX6    SLDE*101B
41819  M01S25523.251l664 ---|          SA3    IAUA        READ INSTRUCTION WORD
41820  M00S25524.cpumtr  +++|          IX6    X6*X4
Line S02138 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41821  M01S02138.251l664 +++|          SA3    SFIA        READ INSTRUCTION WORD
41822  M00S25525.cpumtr  +++|          IX6    X3+X6
Line S25526 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41823  M01S25526.251l664 ---|          SA6    A3+
41824  M01S25527.251l664 ---|          EQ     AFA         ENTER PROCESSOR
41825  M01S25528.251l664 ---|
41826  M01S25529.251l664 ---| AFAA     CON    0           SUBFUNCTION/NON-ROLLABLE OPTION
41827  M01S25530.251l664 ---|
41828  M01S25531.251l664 ---|
41829  M01S25532.251l664 ---| HNG      EQU    /MONITOR/HNG
41830  M01S25533.251l664 ---| PPRX     EQU    /MONITOR/PPRX
41831  M01S25534.251l664 ---| PPR1     EQU    /MONITOR/PPR1
41832  M01S25535.251l664 ---| TFAS     EQU    /MONITOR/TFAS
41833  M01S25536.251l664 ---| TFASL    EQU    /MONITOR/TFASL
Line S02139 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41834  M01S02139.251l664 +++|          SA6    A3
41835  M01S02140.251l664 +++|          EQ     /MONITOR/.AFAM  ENTER PROCESSOR
41836  M00S25537.cpumtr  +++|          SPACE  4
41837  M00S25538.cpumtr  +++|**        MBUF - SCRATCH BUFFER FOR USE IN MONITOR MODE.
41838  M00S25539.cpumtr  +++|
41839  M00S25540.cpumtr  +++|
41840  M00S25541.cpumtr  +++| MBUF     BSS    18
Line S25542 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41841  M01S25542.251l664 ---|          TITLE  INTER-MAINFRAME MESSAGE PROCESSING ROUTINES.
41842  M01S25543.251l664 ---| PMR      SPACE  4
41843  M00S25544.cpumtr  +++|          TITLE  MMF PROGRAM MODE PROCESSING ROUTINES.
41844  M00S25545.cpumtr  +++|          QUAL   PROGRAM
Line S25546 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
41845  M01S25546.251l664 ---| AFA      SPACE  4,10
41846  M01S25547.251l664 ---|**        AFAM - ACCESS FAST ATTACH.
41847  M01S25548.251l664 ---|*
41848  M01S25549.251l664 ---|*         ENTRY  (A5) = PP *OR* ADDRESS.
41849  M01S25550.251l664 ---|
41850  M01S25551.251l664 ---|
41851  M01S25552.251l664 ---| AFA      LX1    48
41852  M01S25553.251l664 ---|          MX4    -12
41853  M01S25554.251l664 ---|          BX7    -X4*X1
41854  M01S25555.251l664 ---|          AX7    1
41855  M01S25556.251l664 ---|          NZ     X7,HNG      IF ILLEGAL SUBFUNCTION
41856  M01S25557.251l664 ---|          BX3    -X4*X5
41857  M01S25558.251l664 ---|          R=     X7,FNTE     LENGTH OF SYSTEM FNT ENTRY
41858  M01S25559.251l664 ---|          TX2    X3,-FNTM    ORDINAL - MAXIMUM NUMBER OF ENTRIES
41859  M01S25560.251l664 ---|          PL     X2,HNG      IF ILLEGAL FNT ORDINAL
41860  M01S25561.251l664 ---|          IX3    X3*X7
41861  M01S25562.251l664 ---|          MX7    -6
41862  M01S25563.251l664 ---|          TA2    X3+FNTG,FNT GET *FAT* INDEX
41863  M01S25564.251l664 ---|          LX2    -12
41864  M01S25565.251l664 ---|          BX7    -X7*X2
41865  M01S25566.251l664 ---|          SA3    /MMF/AFAP
41866  M01S25567.251l664 ---|          LX7    3
41867  M01S25568.251l664 ---|          SA7    A3+B1
41868  M01S25569.251l664 ---|          SX5    1BS12+FPEF  FAT PARITY ERROR PROCESSING
41869  M01S25570.251l664 ---|          SX3    17B
41870  M01S25571.251l664 ---|          EQ     EMR
41871  M00S25572.cpumtr  +++| CLM      SPACE  4
41872  M00S25573.cpumtr  +++|**        CLM - CHECKPOINT LOCAL MST TO ECS.
41873  M00S25574.cpumtr  +++|*
41874  M00S25575.cpumtr  +++|*         ENTRY  (A3) = MST ADDRESS OF SHARED DEVICE.
41875  M00S25576.cpumtr  +++|*                (B5) = EXIT ADDRESS.
41876  M00S25577.cpumtr  +++|*
41877  M00S25578.cpumtr  +++|*         EXIT   ENTIRE LOCAL AREA OF MST WRITTEN TO ECS.
41878  M00S25579.cpumtr  +++|*
41879  M00S25580.cpumtr  +++|*         USES   X - 0, 4.
41880  M00S25581.cpumtr  +++|*                B - 3.
41881  M00S25582.cpumtr  +++|*                A - 4.
41882  M00S25583.cpumtr  +++|
41883  M00S25584.cpumtr  +++|
41884  M00S25585.cpumtr  +++| CLM      SA4    A3+SDGL     READ ECS ADDRESS OF MST
41885  M00S25586.cpumtr  +++|          SB3    A0          SAVE CPU NUMBER
41886  M00S25587.cpumtr  +++|          AX4    36
41887  M00S25588.cpumtr  +++|
41888  M00S25589.cpumtr  +++|*         ENTER HERE FROM *CDI*.
41889  M00S25590.cpumtr  +++|
41890  M00S25591.cpumtr  +++| CLM0     SA0    A3+GLGL     START OF LOCAL MST
41891  M00S25592.cpumtr  +++|          TX0    X4+GLGL-LLLL,MSL  ECS ADDRESS OF LOCAL AREA
41892  M00S25593.cpumtr  +++|          MX4    -24
41893  M00S25594.cpumtr  +++|          BX0    -X4*X0
41894  M00S25595.cpumtr  +++|          SX4    A0+
41895  M00S25596.cpumtr  +++|          LX4    30
41896  M00S25597.cpumtr  +++|          BX0    X4+X0
41897  M00S25598.cpumtr  +++|          WE     LLLL
41898  M00S25599.cpumtr  +++|          PER    /PROGRAM/CLM1,/ECS/PER  IGNORE UNRECOVERED MRT ERROR
41899  M00S25600.cpumtr  +++| CLM1     SA0    B3          RESTORE CPU NUMBER
41900  M00S25601.cpumtr  +++|          JP     B5          EXIT
Line S25602 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
41901  M01S25602.253l688 ---| CMB      SPACE  4
41902  M01S25603.253l688 ---|**        CLEAR MRT BIT. (DROP TRACKS)
41903  M01S25604.253l688 ---|
41904  M01S25605.253l688 ---|
41905  M01S25606.253l688 ---| CMB      SA0    B4+B6
41906  M01S25607.253l688 ---|          LX6    -3
41907  M01S25608.253l688 ---|          IX0    X0+X6       ADD MRT OFFSET
41908  M01S25609.253l688 ---|          MX1    -24
41909  M01S25610.253l688 ---|          BX0    -X1*X0
41910  M01S25611.253l688 ---|          SX1    A0
41911  M01S25612.253l688 ---|          LX1    30
41912  M01S25613.253l688 ---|          BX0    X1+X0
41913  M01S25614.253l688 ---|          WE     1           WRITE MRT WORD
41914  M01S25615.253l688 ---|          PER    /PROGRAM/CMB1  PARITY ERROR PROCESSOR
41915  M01S25616.253l688 ---| CMB1     LX6    3           RESTORE (X6)
41916  M01S25617.253l688 ---|          EQ     DTC5        DROP TRACK CHAIN
41917  M01S25618.253l688 ---| SMB      SPACE  4
41918  M01S25619.253l688 ---|**        SET MRT BIT. (REQUEST TRACKS)
41919  M01S25620.253l688 ---|
41920  M01S25621.253l688 ---|
Line S25622 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
41921  M02S25622.253l688 ---| SMB      IX0    X0+X1
41922  M02S25623.253l688 ---|          SA1    A0
41923  M02S25624.253l688 ---|          BX6    X1+X6
Line S02141 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
41924  M02S02141.253l688 ---| SMB      SX1    A1-B3       SET MRT RELATIVE WORD NUMBER
41925  M02S02142.253l688 ---|          SA0    A1
41926  M02S02143.253l688 ---|          IX0    X0+X1
41927  M02S02144.253l688 ---|          SX6    A1
41928  M02S02145.253l688 ---|          LX6    30
Line S25625 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
41929  M01S25625.253l688 ---|          SX1    A2          SAVE (A2) IF PARITY ERROR
Line S25626 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
41930  M02S25626.253l688 ---|          SA6    A1
41931  M02S25627.253l688 ---|          MX6    -24
41932  M02S25628.253l688 ---|          BX0    -X6*X0
41933  M02S25629.253l688 ---|          SX6    A0+
41934  M02S25630.253l688 ---|          LX6    30
Line S25631 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
41935  M01S25631.253l688 ---|          BX0    X6+X0
41936  M01S25632.253l688 ---|          WE     1           RESTORE MRT WORD
41937  M01S25633.253l688 ---|          PER    /PROGRAM/SMB2  PARITY ERROR PROCESSOR
41938  M01S25634.253l688 ---| SMB1     SA0    PBUF        SCRATCH WORD
41939  M01S25635.253l688 ---|          JP     RTC13       RETURN
41940  M01S25636.253l688 ---|
41941  M01S25637.253l688 ---|*         PARITY ERROR PROCESSOR.
41942  M01S25638.253l688 ---|
41943  M01S25639.253l688 ---| SMB2     SA2    X1          RESTORE (A2)
41944  M01S25640.253l688 ---|          EQ     SMB1        RETURN
41945  M01S25641.253l688 ---| STBM     SPACE  4
41946  M01S25642.253l688 ---|*         STBM SET/CLEAR MRT BIT.
41947  M01S25643.253l688 ---|
41948  M01S25644.253l688 ---| STB10    SX5    A0          SAVE CPU NUMBER
41949  M01S25645.253l688 ---|          MX2    -24
41950  M01S25646.253l688 ---|          IX0    X0+X1
41951  M01S25647.253l688 ---|          SX6    A2          CM ADDRESS OF MRT WORD
41952  M01S25648.253l688 ---|          BX0    -X2*X0
41953  M01S25649.253l688 ---|          SA0    A2
41954  M01S25650.253l688 ---|          LX6    30
41955  M01S25651.253l688 ---|          BX0    X0+X6
41956  M01S25652.253l688 ---|          WE     1           WRITE UPDATED MRT WORD
41957  M01S25653.253l688 ---|          RJ     /ECS/ECH    HANG ON WRITE ERROR
41958  M01S25654.253l688 ---|          SA0    X5+         RESTORE CPU NUMBER
41959  M01S25655.253l688 ---|
41960  M01S25656.253l688 ---|*         SET ONE WORD TO UPDATE FOR *CDI*.
41961  M01S25657.253l688 ---|
41962  M01S25658.253l688 ---| STB11    SX1    A4-B6
41963  M01S25659.253l688 ---|          SX5    X1+B1
41964  M01S25660.253l688 ---|          EQ     CCP1        RELEASE INTERLOCK
Line S25661 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41965  M01S25661.252l678 ---| CDI      SPACE  4
Line S00846 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41966  M01S00846.252l678 +++| CDI      SPACE  4,15
41967  M00S25662.cpumtr  +++|**        CDI - CLEAR DEVICE INTERLOCK.
41968  M00S25663.cpumtr  +++|*
41969  M00S25664.cpumtr  +++|*         ENTRY  (X1) = FIRST WORD OF TRT TO UPDATE IN ECS.
41970  M00S25665.cpumtr  +++|*                (X3) = 1.
41971  M00S25666.cpumtr  +++|*                (X4) = ADDRESS OF MST IN ECS.
41972  M00S25667.cpumtr  +++|*                (X5) = LAST WORD + 1 OF TRT TO UPDATE IN ECS.
41973  M00S25668.cpumtr  +++|*                (X6) = SDGL WORD OF MST.
41974  M00S25669.cpumtr  +++|*                (X7) = STATUS TO RETURN O OUTPUT REGISTER.
41975  M00S25670.cpumtr  +++|*                (B4) = TRT LINK WORD TO UPDATE.
41976  M00S25671.cpumtr  +++|*                (B5) = EXIT ADDRESS.
41977  M00S25672.cpumtr  +++|*                (B6) = FIRST WORD ADDRESS OF TRT IN CM.
41978  M00S25673.cpumtr  +++|*                (A4) = ADDRESS OF SDGL WORD OF MST.
41979  M00S25674.cpumtr  +++|*
41980  M00S25675.cpumtr  +++|*         EXIT   (OR) = (X7)
41981  M00S25676.cpumtr  +++|
Line S25677 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41982  M01S25677.252l678 ---| CDI1     MX2    -4          CLEAR DEVICE INTERLOCK
Line S00847 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
41983  M01S00847.252l678 +++| CDI1     MX2    -6          CLEAR DEVICE INTERLOCK
41984  M00S25678.cpumtr  +++|          SB3    A0          SAVE CPU NUMBER
41985  M00S25679.cpumtr  +++|          LX3    6
41986  M00S25680.cpumtr  +++|          BX6    X2*X6
41987  M00S25681.cpumtr  +++|          MX2    -24
41988  M00S25682.cpumtr  +++|          BX4    -X2*X4
41989  M00S25683.cpumtr  +++|          NG     X5,CDI3     IF NO UPDATE OF TRT
41990  M00S25684.cpumtr  +++|          SA0    X1+B6       SET FIRST WORD TO WRITE TO ECS
41991  M00S25685.cpumtr  +++|          IX0    X3+X4
41992  M00S25686.cpumtr  +++|          LT     B4,B6,CDI2  IF NO LINK WORD
41993  M00S25687.cpumtr  +++|          SX2    A0-B4
41994  M00S25688.cpumtr  +++|          NG     X2,CDI2     IF LINK WORD IN UPDATING REGION
41995  M00S25689.cpumtr  +++|          SA0    B4          START UPDATE AT LINK WORD
41996  M00S25690.cpumtr  +++| CDI2     SX1    A0-B6       FIRST WORD TO UPDATE
41997  M00S25691.cpumtr  +++|          IX5    X5-X1       LAST - FIRST
41998  M00S25692.cpumtr  +++|          IX0    X0+X1
41999  M00S25693.cpumtr  +++|          SB4    X5          SET WORD COUNT
42000  M00S25694.cpumtr  +++|          SX2    A0
42001  M00S25695.cpumtr  +++|          LX2    30
42002  M00S25696.cpumtr  +++|          BX0    X2+X0
Line S00002 Modification History
M01 (Added by) cpumt49
Seq #  *Modification Id* Act 
----------------------------+
42003  M01S00002.cpumt49 +++|          MX2    -10
42004  M01S00003.cpumt49 +++|          BX2    -X2*X5
42005  M01S00004.cpumt49 +++|          SX2    X2-1000B-1
42006  M01S00005.cpumt49 +++|+         PL     X2,*        IF WORD COUNT .GT. 1000
42007  M00S25697.cpumtr  +++|          WE     B4          UPDATE TRT IN ECS
42008  M00S25698.cpumtr  +++|          RJ     /ECS/ECH    HANG ON WRITE ERROR
42009  M00S25699.cpumtr  +++| CDI3     IX6    X3+X6       SET UP-TO-DATE COPY FOR THIS MACHINE
42010  M00S25700.cpumtr  +++|          SA0    A3
42011  M00S25701.cpumtr  +++|          SA6    A4
42012  M00S25702.cpumtr  +++|          SX6    A0
42013  M00S25703.cpumtr  +++|          LX6    30
42014  M00S25704.cpumtr  +++|          BX0    X4+X6
42015  M00S25705.cpumtr  +++|          WE     SDGL+1
42016  M00S25706.cpumtr  +++|          RJ     /ECS/ECH    HANG ON WRITE ERROR
42017  M00S25707.cpumtr  +++|          SA7    A5          STORE OUTPUT REGISTER
42018  M00S25708.cpumtr  +++|          EQ     CLM0        WRITE LOCAL MST
Line S25709 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42019  M01S25709.252l678 ---| SDI      SPACE  4
Line S00848 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42020  M01S00848.252l678 +++| SDI      SPACE  4,25
42021  M00S25710.cpumtr  +++|**        SDI - SET DEVICE INTERLOCKED.
42022  M00S25711.cpumtr  +++|*         THE DEVICE INTERLOCK CONTROLS THE UPDATING OF THE TRT AND
42023  M00S25712.cpumtr  +++|*         MST WORDS TDGL, ACGL AND SDGL.
42024  M00S25713.cpumtr  +++|*
42025  M00S25714.cpumtr  +++|*         ENTRY  (X3) = (TDGL).
42026  M00S25715.cpumtr  +++|*                (X4) = ECS ADDRESS OF MST.
42027  M00S25716.cpumtr  +++|*                (X6) = DEVICE INTERLOCK BITS FROM *SDGL*.
42028  M00S25717.cpumtr  +++|*                (B3) = CTR EXIT ADDRESS. NOTE - EXIT IS TO CTR2.
42029  M00S25718.cpumtr  +++|*                (B5) = PRG IF IN PROGRAM MODE.
42030  M00S25719.cpumtr  +++|*                (B6) = 0 IF NO INTERLOCKING TO PERFORM.
42031  M00S25720.cpumtr  +++|*                (B6) .GT. 0 IF TO INTERLOCK AND UPDATE MST/TRT.
42032  M00S25721.cpumtr  +++|*                (A3) = CM ADDRESS OF MST.
42033  M00S25722.cpumtr  +++|*                (A4) = ADDRESS OF *ACGL* WORD IN MST.
42034  M00S25723.cpumtr  +++|*
42035  M00S25724.cpumtr  +++|*         EXIT   (X0) = 12/TRT LENGTH + 2000B, 48/ECS ADDRESS OF MRT.
42036  M00S25725.cpumtr  +++|*                (X5) = -7777B
42037  M00S25726.cpumtr  +++|*                (B4) = TRT LENGTH.
42038  M00S25727.cpumtr  +++|*
42039  M00S25728.cpumtr  +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
42040  M00S25729.cpumtr  +++|*                A - 1, 2, 4, 6.
42041  M00S25730.cpumtr  +++|*                B - 3, 4, 5, 6.
42042  M00S25731.cpumtr  +++|*
42043  M00S25732.cpumtr  +++|*         NOTE - (A0) IS SET TO 2 FOR PROGRAM MODE MONITOR.
42044  M00S25733.cpumtr  +++|
42045  M00S25734.cpumtr  +++|
42046  M00S25735.cpumtr  +++| SDI      AX3    24
42047  M00S25736.cpumtr  +++|          MX2    -24
42048  M00S25737.cpumtr  +++|          BX4    -X2*X4
Line S25738 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42049  M01S25738.252l678 ---|          TSX2   (400B,4B,ESM)
Line S00849 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42050  M01S00849.252l678 +++|          TSX2   (400B,ESM,4B)
42051  M00S25739.cpumtr  +++|          LX2    21
42052  M00S25740.cpumtr  +++|          BX3    -X5*X3      TRT LENGTH
42053  M00S25741.cpumtr  +++|          MX7    -FRRC       FLAG REGISTER RETRY COUNT
42054  M00S25742.cpumtr  +++|          ZR     B6,SDI8     IF NO READ OF MST/TRT
42055  M00S25743.cpumtr  +++|          SB6    PRG         ZERO IF CALLED FOR PROGRAM MODE
42056  M00S25744.cpumtr  +++|          SX5    A0+         SAVE CPU NUMBER
42057  M00S25745.cpumtr  +++|          SA0    SDIA        ENSURE (A0) .LT. FL FOR FLAG OPERATION
42058  M00S25746.cpumtr  +++|          NZ     X6,SDI10    IF DEVICE INTERLOCKED BY THIS MACHINE
42059  M00S25747.cpumtr  +++|          TX6    .TRTI,MMK
42060  M00S25748.cpumtr  +++|
42061  M00S25749.cpumtr  +++|*         SET *TRTI* FLAG REGISTER INTERLOCK.
42062  M00S25750.cpumtr  +++|
42063  M00S25751.cpumtr  +++| SDI1     LX7    -1          DECREMENT RETRY COUNT
42064  M00S25752.cpumtr  +++|          BX0    X2+X6       SET FLAG REGISTER FUNCTION
42065  M00S25753.cpumtr  +++|          NG     X7,SDI10    IF FAILED TO INTERLOCK FLAG REGISTER
42066  M00S25754.cpumtr  +++|          RE     /ECS/FRWC
42067  M00S25755.cpumtr  +++|          EQ     SDI1        RETRY
42068  M00S25756.cpumtr  +++|
42069  M00S25757.cpumtr  +++|*         READ MST FROM ECS.
42070  M00S25758.cpumtr  +++|
42071  M00S25759.cpumtr  +++|          SX0    A0+
42072  M00S25760.cpumtr  +++|          LX0    30
42073  M00S25761.cpumtr  +++|          BX0    X4+X0       SET ADDRESS OF MST IN ECS
42074  M00S25762.cpumtr  +++|          NE     B5,B6,SDI2  IF MONITOR MODE
42075  M00S25763.cpumtr  +++|          SX5    B1+B1       SET (A0) FOR PROGRAM MODE
42076  M00S25764.cpumtr  +++|          RE     SDGL+1      READ MST  (PROGRAM MODE)
42077  M00S25765.cpumtr  +++|          PER    /PROGRAM/SDI11,/PROGRAM/PER  PARITY ERROR PROCESSING
42078  M00S25766.cpumtr  +++|          EQ     SDI3
42079  M00S25767.cpumtr  +++|
42080  M00S25768.cpumtr  +++| SDI2     RE     SDGL+1      READ MST  (MONITOR MODE)
42081  M00S25769.cpumtr  +++|          PER    /PROGRAM/SDI9,/ECS/PER  PARITY ERROR PROCESSING
42082  M00S25770.cpumtr  +++|*                            SWITCH REQUEST TO PROGRAM MODE ON ERROR
42083  M00S25771.cpumtr  +++|
42084  M00S25772.cpumtr  +++|*         CHECK DEVICE INTERLOCK.
42085  M00S25773.cpumtr  +++|
42086  M00S25774.cpumtr  +++| SDI3     SA2    SDIA+SDGL
Line S25775 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42087  M01S25775.252l678 ---|          MX7    -MXMF
Line S00850 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42088  M01S00850.252l678 +++|          MX7    -6
42089  M00S25776.cpumtr  +++|          BX4    -X7*X2
42090  M00S25777.cpumtr  +++|          NZ     X4,SDI9     IF MST/TRT INTERLOCK SET
42091  M00S25778.cpumtr  +++|          SA4    A4          READ SDGL WORD FROM CM MST
42092  M00S25779.cpumtr  +++|          BX7    X2-X4
42093  M00S25780.cpumtr  +++|          ZR     X7,SDI7     IF NO UPDATE OF MST/TRT NEEDED
42094  M00S25781.cpumtr  +++|          AX7    36
42095  M00S25782.cpumtr  +++|          BX2    X1
42096  M00S25783.cpumtr  +++| +        NE     B5,B6,SDI9  IF MONITOR MODE - CANNOT READ TRT
42097  M00S25784.cpumtr  +++|          NZ     X7,*        IF BAD ECS ADDRESS
42098  M00S25785.cpumtr  +++|          SB6    SDI4        *CMP* *MSR* RETURN ADDRESS
42099  M00S25786.cpumtr  +++|          SA0    PBUF        SET CM ADDRESS OF TRANSFER
42100  M00S25787.cpumtr  +++|          SX5    B3          SAVE RETURN ADDRESS
42101  M00S25788.cpumtr  +++|          SB7    X3          TRT LENGTH
42102  M00S25789.cpumtr  +++|          SA1    A3+TRLL     GET FWA OF TRT
42103  M00S25790.cpumtr  +++|          SB3    X1-MECB
42104  M00S25791.cpumtr  +++|          SX3    X0+TRST*100B  START OF TRT IN ECS
42105  M00S25792.cpumtr  +++|          SB3    A0-B3
42106  M00S25793.cpumtr  +++|
42107  M00S25794.cpumtr  +++|*         TRT READ LOOP.
42108  M00S25795.cpumtr  +++|
42109  M00S25796.cpumtr  +++| SDI4     SB4    MECB        MAXIMUM ECS TRANSFER SIZE
42110  M00S25797.cpumtr  +++|          SX1    A0
42111  M00S25798.cpumtr  +++|          LX1    30
42112  M00S25799.cpumtr  +++|          BX0    X3+X1       ECS ADDRESS OF TRT READ
42113  M00S25800.cpumtr  +++|          SB7    B7-B4       DECREMENT WORD COUNT
42114  M00S25801.cpumtr  +++|          SX3    X3+B4       INCREMENT ECS ADDRESS OF TRT
42115  M00S25802.cpumtr  +++|          SB3    B3-B4       INCREMENT FOR *CMP* *MSR*
42116  M00S25803.cpumtr  +++|          PL     B7,SDI5     IF NOT LAST SHORT BLOCK TO READ
42117  M00S25804.cpumtr  +++|          SB4    B7+B4       SET SHORT BLOCK WORD COUNT
42118  M00S25805.cpumtr  +++|          BX1    X2          RESTORE (X1)
42119  M00S25806.cpumtr  +++|          LT     B4,B1,SDI6  IF END OF TRANSFER
42120  M00S25807.cpumtr  +++| SDI5     RE     B4          READ TRT BLOCK
42121  M00S25808.cpumtr  +++|          PER    /PROGRAM/SDI11,/PROGRAM/PER  PARITY ERROR PROCESSING
42122  M00S25809.cpumtr  +++|          SX0    A0          STARTING ADDRESS OF MOVE
42123  M00S25810.cpumtr  +++|          SX1    B3          DIFFERENCE
Line S25811 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
42124  M01S25811.253l688 ---|          TJMP   /CME/MSR,CME,/PROGRAM/CMP,CMU,/MONITOR/MSR
Line S01618 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
42125  M01S01618.253l688 +++|          TJP    (/CME/MSR,CME,/PROGRAM/CMP,CMU,/MONITOR/MSR)
42126  M00S25812.cpumtr  +++|
42127  M00S25813.cpumtr  +++| SDI6     SB5    PRG         RESET (B5)
42128  M00S25814.cpumtr  +++|          SA2    SDIA+ACGL   COPY MST FROM BUFFER
42129  M00S25815.cpumtr  +++|          SA4    SDIA+SDGL
42130  M00S25816.cpumtr  +++|          BX6    X2
42131  M00S25817.cpumtr  +++|          SA2    A2-B1
42132  M00S25818.cpumtr  +++|          SA6    A3+B1
42133  M00S25819.cpumtr  +++|          ERRNZ  ACGL-1
42134  M00S25820.cpumtr  +++|          SB3    X5          RESTORE RETURN ADDRESS
42135  M00S25821.cpumtr  +++|          LX3    X2
42136  M00S25822.cpumtr  +++|          BX7    X2
42137  M00S25823.cpumtr  +++|          LX3    24
42138  M00S25824.cpumtr  +++|          SX5    B1+B1       SET (A0) TO 2 FOR PROGRAM MODE
42139  M00S25825.cpumtr  +++|          SA7    A3
42140  M00S25826.cpumtr  +++|          AX3    48          SET LENGTH OF TRT
42141  M00S25827.cpumtr  +++|
42142  M00S25828.cpumtr  +++|*         WRITE INTERLOCKED MST TO ECS.
42143  M00S25829.cpumtr  +++|
42144  M00S25830.cpumtr  +++| SDI7     TX6    MIL         SET MST INTERLOCKS
42145  M00S25831.cpumtr  +++|          BX7    X4+X6
42146  M00S25832.cpumtr  +++|          AX4    36
42147  M00S25833.cpumtr  +++|          SA7    A3+SDGL
42148  M00S25834.cpumtr  +++|          MX7    -24
42149  M00S25835.cpumtr  +++|          BX4    -X7*X4
42150  M00S25836.cpumtr  +++|          SX7    A3
42151  M00S25837.cpumtr  +++|          LX7    30
42152  M00S25838.cpumtr  +++|          BX0    X4+X7
42153  M00S25839.cpumtr  +++|          SA0    A3
42154  M00S25840.cpumtr  +++|          WE     SDGL+1
42155  M00S25841.cpumtr  +++|          RJ     /ECS/ECH    HANG ON WRITE ERROR
42156  M00S25842.cpumtr  +++|
42157  M00S25843.cpumtr  +++|*         CLEAR TRTI INTERLOCK.
42158  M00S25844.cpumtr  +++|
Line S25845 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42159  M01S25845.252l678 ---|          TSX2   (402B,6B,ESM)  STATUS FLAG REGISTER TO INSURE SET
Line S00851 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42160  M01S00851.252l678 +++|          TSX2   (402B,ESM,6B)  STATUS FLAG REGISTER TO INSURE SET
42161  M00S25846.cpumtr  +++|          TX6    MMK
42162  M00S25847.cpumtr  +++|          LX2    21
42163  M00S25848.cpumtr  +++|          BX0    X2+X6
42164  M00S25849.cpumtr  +++|          SX6    X6+.TRTI
42165  M00S25850.cpumtr  +++|          RE     /ECS/FRWC   STATUS FLAG BIT  (HALF EXIT EXPECTED)
42166  M00S25851.cpumtr  +++|          SA0    X5          RESTORE CPU NUMBER
42167  M00S25852.cpumtr  +++|          MX5    -12
42168  M00S25853.cpumtr  +++|          PL     X5,*        IF FLAG BIT NOT SET
Line S25854 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42169  M01S25854.252l678 ---|          TSX2   (403B,7B,ESM)
Line S00852 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42170  M01S00852.252l678 +++|          TSX2   (403B,ESM,7B)
42171  M00S25855.cpumtr  +++|          LX2    21
42172  M00S25856.cpumtr  +++|          BX0    X2+X6
42173  M00S25857.cpumtr  +++|          RE     /ECS/FRWC   CLEAR FLAG REGISTER INTERLOCK
42174  M00S25858.cpumtr  +++|          RJ     /ECS/ECH    HANG ON HALF EXIT
42175  M00S25859.cpumtr  +++| SDI8     TX0    1000B,MRT
42176  M00S25860.cpumtr  +++|          SB4    X3
42177  M00S25861.cpumtr  +++|          IX0    X0+X4       SET MRT ADDRESS
42178  M00S25862.cpumtr  +++|          PX0    X0,B4       PACK TRT LENGTH IN (X0)
42179  M00S25863.cpumtr  +++|          EQ     CTR2        RETURN
42180  M00S25864.cpumtr  +++|
42181  M00S25865.cpumtr  +++|*         CLEAR FLAG REGISTER AND EXIT.
42182  M00S25866.cpumtr  +++|
Line S25867 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42183  M01S25867.252l678 ---| SDI9     TSX0   (403B,7B,ESM)
Line S00853 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42184  M01S00853.252l678 +++| SDI9     TSX0   (403B,ESM,7B)
42185  M00S25868.cpumtr  +++|          LX0    21
42186  M00S25869.cpumtr  +++|          BX0    X0+X6
42187  M00S25870.cpumtr  +++|          RE     /ECS/FRWC   CLEAR FLAG REGISTER INTERLOCK
42188  M00S25871.cpumtr  +++|          RJ     /ECS/ECH    HANG ON HALF EXIT
42189  M00S25872.cpumtr  +++| SDI10    SA0    X5          RESTORE (A0)
42190  M00S25873.cpumtr  +++|          EQ     B5,B6,REJ   IF PROGRAM MODE - REJECT REQUEST
42191  M00S25874.cpumtr  +++|          SA5    A5
42192  M00S25875.cpumtr  +++|          BX7    X5
42193  M00S25876.cpumtr  +++|          EQ     /MONITOR/PMR  SWITCH REQUEST TO PROGRAM MODE
42194  M00S25877.cpumtr  +++|
42195  M00S25878.cpumtr  +++|*         PARITY ERROR PROCESSING - EXECUTED ONLY IN PROGRAM MODE.
42196  M00S25879.cpumtr  +++|
Line S25880 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
42197  M01S25880.251l664 ---| SDI11    SA4    A3+SDGL
42198  M01S25881.251l664 ---|          SA2    MMFL
42199  M01S25882.251l664 ---|          SA3    PBUF        START OF IFR REQUEST BLOCK
42200  M01S25883.251l664 ---|          LX2    59-20
42201  M01S25884.251l664 ---|          MX3    MXMF
42202  M01S25885.251l664 ---|          SX5    2BS12+DPEF  SET IFR FUNCTION
42203  M01S25886.251l664 ---|          MX6    24
42204  M01S25887.251l664 ---|          SA7    A3
42205  M01S25888.251l664 ---| SDI12    BX7    X7-X7       CLEAR LAST UPDATE COUNT FOR MACHINE NOT UP
42206  M01S25889.251l664 ---|          PL     X2,SDI13    IF MACHINE NOT UP
42207  M01S25890.251l664 ---|          BX7    -X6+X4      SET MAXIMUM UPDATE COUNT
42208  M01S25891.251l664 ---| SDI13    SA7    A7+B1
42209  M01S25892.251l664 ---|          LX2    -1
42210  M01S25893.251l664 ---|          PL     X3,EMR      IF NO MORE MACHINES
42211  M01S25894.251l664 ---|          LX3    1
42212  M01S25895.251l664 ---|          EQ     SDI12
Line S02146 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42213  M02S02146.252l678 ---| SDI11    TSX2   (403B,7B,ESM)  CLEAR TRTI INTERLOCK
Line S00854 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
42214  M01S00854.252l678 +++| SDI11    TSX2   (403B,ESM,7B)  CLEAR TRTI INTERLOCK
Line S02147 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
42215  M01S02147.251l664 +++|          TX6    .TRTI,MMK
42216  M01S02148.251l664 +++|          LX2    21
42217  M01S02149.251l664 +++|          BX0    X2+X6
42218  M01S02150.251l664 +++|          SB3    X5          CPU NUMBER FOR *SFR* TO RESTORE
42219  M01S02151.251l664 +++|          RE     /ECS/FRWC   CLEAR FLAG BIT
42220  M01S02152.251l664 +++|+         SB6    REJ         SET *SFR* RETURN
42221  M01S02153.251l664 +++|          SB5    PRG         SET *REJ* RETURN
42222  M01S02154.251l664 +++|          SB4    COMI        FLAG BIT TO SET
42223  M01S02155.251l664 +++|          EQ     /ECS/SFR    SET BIT TO REQUEST PARITY ERROR PROCESSING
42224  M00S25896.cpumtr  +++|
42225  M00S25897.cpumtr  +++| FRRC     EQU    10          FLAG REGISTER RETRY COUNT
42226  M00S25898.cpumtr  +++|
42227  M00S25899.cpumtr  +++| SDIA     BSS    SDGL+1      MST READ BUFFER
Line S01619 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
42228  M01S01619.253l688 +++| SMU      SPACE  4,20
42229  M01S01620.253l688 +++|**        SMU - STORE MRT UPDATE.
42230  M01S01621.253l688 +++|*
42231  M01S01622.253l688 +++|*         THIS ROUTINE IS CALLED WHEN CHANGING AN MRT BIT.  IT WRITES
42232  M01S01623.253l688 +++|*         THE CHANGED MRT WORD TO EXTENDED MEMORY.
42233  M01S01624.253l688 +++|*
42234  M01S01625.253l688 +++|*         ENTRY  (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
42235  M01S01626.253l688 +++|*                (X4) = CALLER FLAG.
42236  M01S01627.253l688 +++|*                     .LT. 0, IF CALLED BY *DTC*.
42237  M01S01628.253l688 +++|*                     .EQ. 0, IF CALLED BY *STBM*.
42238  M01S01629.253l688 +++|*                     .GT. 0, IF CALLED BY *RTC*.
42239  M01S01630.253l688 +++|*                (A3) = MST ADDRESS (*TDGL*).
42240  M01S01631.253l688 +++|*                (A6) = MRT WORD.
42241  M01S01632.253l688 +++|*                (B3) = MRT FWA.
42242  M01S01633.253l688 +++|*
42243  M01S01634.253l688 +++|*         EXIT   (X6) = 0.
42244  M01S01635.253l688 +++|*                (X1) = FWA OF TRT TO UPDATE, IF *STBM* CALL.
42245  M01S01636.253l688 +++|*                (X5) = LWA + 1 OF TRT TO UPDATE, IF *STBM* CALL.
42246  M01S01637.253l688 +++|*
42247  M01S01638.253l688 +++|*         USES   X - 0, 1, 2, 6.
42248  M01S01639.253l688 +++|*                A - 1.
42249  M01S01640.253l688 +++|
42250  M01S01641.253l688 +++|
42251  M01S01642.253l688 +++| SMU      SX1    A6-B3       MRT OFFSET
42252  M01S01643.253l688 +++|          UX0    X0
42253  M01S01644.253l688 +++|          SX6    A0          SAVE CPU NUMBER
42254  M01S01645.253l688 +++|          IX0    X0+X1       ADD MRT OFFSET
42255  M01S01646.253l688 +++|          SX1    A6+
42256  M01S01647.253l688 +++|          LX1    30
42257  M01S01648.253l688 +++|          BX0    X1+X0
42258  M01S01649.253l688 +++|          SA0    A6+
42259  M01S01650.253l688 +++|          SX1    A2+         SAVE (A2) IF PARITY ERROR
42260  M01S01651.253l688 +++|          WE     1           WRITE MRT WORD
42261  M01S01652.253l688 +++|          PER    /PROGRAM/SMU1  PARITY ERROR PROCESSOR
42262  M01S01653.253l688 +++| SMU1     SA2    X1          RESTORE (A2)
42263  M01S01654.253l688 +++|          SA0    X6+         RESTORE (A0)
42264  M01S01655.253l688 +++|          BX6    X6-X6
42265  M01S01656.253l688 +++|          NG     X4,DTC5     IF CALLED BY *DTC*
42266  M01S01657.253l688 +++|          NZ     X4,RTC13    IF CALLED BY *RTC*
42267  M01S01658.253l688 +++|          SX1    A4-B6       SET ONE WORD UPDATE FOR *CDI*
42268  M01S01659.253l688 +++|          SX5    X1+B1
42269  M01S01660.253l688 +++|          EQ     CCP1        CHECK FOR CHECKPOINT REQUESTED
42270  M00S25900.cpumtr  +++| SSD      SPACE  4,16
42271  M00S25901.cpumtr  +++|**        SSD - SEARCH FOR SHARED DEVICE.
42272  M00S25902.cpumtr  +++|*
42273  M00S25903.cpumtr  +++|*         ENTRY  (B5) = EXIT ADDRESS.
42274  M00S25904.cpumtr  +++|*                (B7) .LT. 0 IF FIRST CALL TO INITIALIZE SHARED SEARCH.
42275  M00S25905.cpumtr  +++|*                (B7) = LAST SHARED DEVICE FOUND IF NOT INITIAL CALL.
42276  M00S25906.cpumtr  +++|*
42277  M00S25907.cpumtr  +++|*         EXIT   (X3) = TDGL WORD OF MST.
42278  M00S25908.cpumtr  +++|*                (X4) = ECS ADDRESS OF MST/TRT.
42279  M00S25909.cpumtr  +++|*                (B7) = EST ORDINAL OF SHARED DEVICE.
42280  M00S25910.cpumtr  +++|*                (B7) .LT. 0 IF SHARED DEVICE NOT FOUND.
42281  M00S25911.cpumtr  +++|*                (A3) = ADDRESS OF TDGL WORD OF MST.
42282  M00S25912.cpumtr  +++|*                (A4) = ADDRESS OF SDGL WORD OF MST.
42283  M00S25913.cpumtr  +++|*
42284  M00S25914.cpumtr  +++|*         USES   X - 3, 4.
42285  M00S25915.cpumtr  +++|*                B - 7.
42286  M00S25916.cpumtr  +++|*                A - 3, 4.
42287  M00S25917.cpumtr  +++|
42288  M00S25918.cpumtr  +++|
42289  M00S25919.cpumtr  +++| SSD      PL     B7,SSD1     IF NOT INITIAL CALL TO SSD
42290  M00S25920.cpumtr  +++|          TB7    ESTL
42291  M00S25921.cpumtr  +++| SSD1     SB7    B7-B1
42292  M00S25922.cpumtr  +++|          NG     B7,SSD2     IF END OF EST - SHARED DEVICE NOT FOUND
Line S25923 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
42293  M01S25923.261l700 ---|          SX3    B7
42294  M01S25924.261l700 ---|          R=     X4,ESTE
42295  M01S25925.261l700 ---|          IX3    X3*X4
Line S00141 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
42296  M01S00141.261l700 +++|          SX4    B7
42297  M01S00142.261l700 +++|          CX3    X4,EST      CONVERT EST ORDINAL TO OFFSET
42298  M00S25926.cpumtr  +++|          TA3    X3+EQDE,EST READ EST ENTRY
42299  M00S25927.cpumtr  +++|          MX4    -12
42300  M00S25928.cpumtr  +++|          PL     X3,SSD1     IF NOT MASS STORAGE
42301  M00S25929.cpumtr  +++|          BX3    -X4*X3
42302  M00S25930.cpumtr  +++|          LX3    3           MST ADDRESS
42303  M00S25931.cpumtr  +++|          SA4    X3+SDGL
42304  M00S25932.cpumtr  +++|          SA3    X3
42305  M00S25933.cpumtr  +++|          ERRNZ  TDGL
42306  M00S25934.cpumtr  +++|          AX4    36
42307  M00S25935.cpumtr  +++|          ZR     X4,SSD1     IF NOT SHARED DEVICE
42308  M00S25936.cpumtr  +++|          NG     X4,SSD1     IF ISD
42309  M00S25937.cpumtr  +++| SSD2     JP     B5          RETURN
Line S25938 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
42310  M01S25938.251l664 ---| PDM      SPACE  4
42311  M01S25939.251l664 ---|**        PDM - PROCESS DOWN MACHINE.
42312  M01S25940.251l664 ---|*
42313  M01S25941.251l664 ---|*         ENTRY  NONE.
42314  M01S25942.251l664 ---|*
42315  M01S25943.251l664 ---|*         EXIT   NONE.
42316  M01S25944.251l664 ---|
42317  M01S25945.251l664 ---|
42318  M01S25946.251l664 ---| PDM      SA1    /MMF/ARMC   MACHINES TO PROCESS
42319  M01S25947.251l664 ---|          SX4    B1
42320  M01S25948.251l664 ---|          NX0,B2 X1          FIND DOWN MACHINE
42321  M01S25949.251l664 ---|          LX4    47
42322  M01S25950.251l664 ---|          ZR     X1,PRG      IF NO MORE DOWNED MACHINES
42323  M01S25951.251l664 ---|          SB7    -B1         INITIALIZE *SSD* SEARCH
42324  M01S25952.251l664 ---| +        SA1    A1          CLEAR DOWN BIT **** PERFORM IN ONE WORD
42325  M01S25953.251l664 ---|          AX6    X4,B2       **** PERFORM IN ONE WORD ****
42326  M01S25954.251l664 ---|          BX7    -X6*X1      **** PERFORM IN ONE WORD ****
42327  M01S25955.251l664 ---|          SA7    A1          **** PERFORM IN ONE WORD ****
42328  M01S25956.251l664 ---|          SX7    -B2
42329  M01S25957.251l664 ---|          LX7    6
42330  M01S25958.251l664 ---|          SX7    X7+MRST*100B+300B
42331  M01S25959.251l664 ---|          BX7    X7+X6
42332  M01S25960.251l664 ---|          SA7    PDMB        SAVE MRT OFFSET
42333  M01S25961.251l664 ---| PDM1     SB5    PDM2        SET *SSD* RETURN
42334  M01S25962.251l664 ---|          JP     SSD         SEARCH FOR SHARED DEVICE
42335  M01S25963.251l664 ---|
42336  M01S25964.251l664 ---| PDM2     NG     B7,PDM      IF END OF SHARED DEVICES
42337  M01S25965.251l664 ---|          SA1    PDMB        SAVE CURRENT EQUIPMEMNT
42338  M01S25966.251l664 ---|          PX6    X1,B7
42339  M01S25967.251l664 ---|          SB5    PRG
42340  M01S25968.251l664 ---|          SA6    A1
42341  M01S25969.251l664 ---| PDM3     SA4    A3+SDGL     SET PARAMETER FOR SDI
42342  M01S25970.251l664 ---|          BX6    X6-X6
42343  M01S25971.251l664 ---|          SB6    B1+B1
42344  M01S25972.251l664 ---|          SA5    PDMC        SIMULATE OUTPUT REGISTER ADDRESS FOR *REJ*
42345  M01S25973.251l664 ---|          SB3    PDM4        SET *SDI* RETURN
42346  M01S25974.251l664 ---|          SA3    A3
42347  M01S25975.251l664 ---|          AX4    36
42348  M01S25976.251l664 ---|          JP     SDI         SET DEVICE INTERLOCK
42349  M01S25977.251l664 ---|
42350  M01S25978.251l664 ---|*         PROCESS MRT.
42351  M01S25979.251l664 ---|
42352  M01S25980.251l664 ---| PDM4     SA1    PDMB        SET MRT ADDRESS
42353  M01S25981.251l664 ---|          SX2    X1-MRST*100B  SET MACHINE INDEX
42354  M01S25982.251l664 ---|          AX2    6
42355  M01S25983.251l664 ---|          SA0    PBUF        SET READ BUFFER
42356  M01S25984.251l664 ---|          SX0    A0
42357  M01S25985.251l664 ---|          LX0    30
42358  M01S25986.251l664 ---|          SX6    LLLL        SET LOCAL AREA OFFSET
42359  M01S25987.251l664 ---|          IX6    X2*X6
42360  M01S25988.251l664 ---|          IX6    X6+X4
42361  M01S25989.251l664 ---|          SX6    X6+GLGL
42362  M01S25990.251l664 ---|          IX0    X0+X6       ECS ADDRESS OF LOCAL MST
42363  M01S25991.251l664 ---|          RE     LLLL
42364  M01S25992.251l664 ---|          PER    /PROGRAM/PDM4.1  IF READ ERROR
42365  M01S25993.251l664 ---| PDM4.1   SA2    A0+DULL-GLGL  CLEAR LOCAL COUNTS
42366  M01S25994.251l664 ---|          MX6    12
42367  M01S25995.251l664 ---|          LX6    -12
42368  M01S25996.251l664 ---|          BX6    -X6*X2
42369  M01S25997.251l664 ---|          SA6    A2
42370  M01S25998.251l664 ---|          BX6    X6-X2
42371  M01S25999.251l664 ---|          UX1,B7 X1
42372  M01S26000.251l664 ---|          WE     LLLL
42373  M01S26001.251l664 ---|          PER    /PROGRAM/PDM4.2
42374  M01S26002.251l664 ---| PDM4.2   SA2    A3          SUBTRACT LOCAL COUNT FROM GLOBAL
42375  M01S26003.251l664 ---|          IX6    X2-X6
42376  M01S26004.251l664 ---|          SA6    A2
42377  M01S26005.251l664 ---|          SX0    X1          MRT OFFSET
42378  M01S26006.251l664 ---|          IX0    X0+X4
42379  M01S26007.251l664 ---|          SX3    20B
42380  M01S26008.251l664 ---|          MX7    1
42381  M01S26009.251l664 ---|          SX6    A0
42382  M01S26010.251l664 ---|          LX6    30
42383  M01S26011.251l664 ---|          SB4    B4+B6       SET LAST WORD OF TRT
42384  M01S26012.251l664 ---|          BX0    X6+X0
42385  M01S26013.251l664 ---|          RE     100B        READ MRT
42386  M01S26014.251l664 ---|          PER    /PROGRAM/PDM8  PARITY ERROR PROCESSING
42387  M01S26015.251l664 ---|          SA1    A0-B1
42388  M01S26016.251l664 ---|          MX5    -2
42389  M01S26017.251l664 ---|          SB2    32
42390  M01S26018.251l664 ---| PDM5     SA1    A1+B1       READ MRT WORD
42391  M01S26019.251l664 ---|          SB5    B0
42392  M01S26020.251l664 ---|          ZR     X1,PDM7     IF NO MRT BITS SET
42393  M01S26021.251l664 ---| PDM6     SB5    B5+B1
42394  M01S26022.251l664 ---|          LX6    X7,B5       POSITION BIT TO TEST
42395  M01S26023.251l664 ---|          GT     B5,B2,PDM7  IF END OF MRT WORD
42396  M01S26024.251l664 ---|          BX6    X6*X1
42397  M01S26025.251l664 ---|          ZR     X6,PDM6     IF BIT NOT SET
42398  M01S26026.251l664 ---|          SX2    B5-B1       TRACK NUMBER RELATIVE TO (B6)
42399  M01S26027.251l664 ---|          BX4    X5+X2
42400  M01S26028.251l664 ---|          AX2    2
42401  M01S26029.251l664 ---|          SB3    X4          SHIFT COUNT FOR INTERLOCK CLEARING MASK
42402  M01S26030.251l664 ---|          SA2    X2+B6       READ TRT WORD
42403  M01S26031.251l664 ---|          AX4    X3,B3       POSITION CLEARING MASK
42404  M01S26032.251l664 ---|          BX4    X4*X2
42405  M01S26033.251l664 ---|          ZR     X4,PDM6     IF TRACK NOT INTERLOCKED
42406  M01S26034.251l664 ---|          BX6    -X6*X1      CLEAR MRT BIT FOR INTERLOCKED TRACK
42407  M01S26035.251l664 ---|          BX1    X6
42408  M01S26036.251l664 ---|          SA6    A1          UPDATE MRT WORD
42409  M01S26037.251l664 ---|          BX6    -X4*X2      CLEAR TRACK INTERLOCK
42410  M01S26038.251l664 ---|          SA6    A2+         STORE TRT WORD
42411  M01S26039.251l664 ---|          NE     B5,B2,PDM6  IF NOT END OF MRT WORD
42412  M01S26040.251l664 ---| PDM7     SB6    B6+8        ADVANCE TRT POINTER
42413  M01S26041.251l664 ---|          LT     B6,B4,PDM5  IF NOT END OF TRT
42414  M01S26042.251l664 ---|          WE     100B        WRITE MRT
42415  M01S26043.251l664 ---|          PER    /PROGRAM/PDM8  PARITY ERROR PROCESSING
42416  M01S26044.251l664 ---| PDM8     SA5    A0
42417  M01S26045.251l664 ---|          SA1    A3+TRLL     SET FWA OF TRT
42418  M01S26046.251l664 ---|          SB6    X1
42419  M01S26047.251l664 ---|          SX5    B4-B6       SET *CDI* PARAMETERS
42420  M01S26048.251l664 ---|          SX3    B1
42421  M01S26049.251l664 ---|          SB4    B0+
42422  M01S26050.251l664 ---|          BX1    X1-X1
42423  M01S26051.251l664 ---|          SX5    X5+B1
42424  M01S26052.251l664 ---|          SB5    PDM1
42425  M01S26053.251l664 ---|          EQ     CDI         CLEAR DEVICE INTERLOCK
42426  M01S26054.251l664 ---|
42427  M01S26055.251l664 ---| PDMB     CON    0           12/  EQ+2000B,4/  MASK,26/0,18/  MRT OFFSET
42428  M01S26056.251l664 ---| PDMC     CON    -7777B      SIMULATED OUTPUT REGISTER FOR *REJ*
42429  M01S26057.251l664 ---|          TITLE  INTER-MAINFRAME FUNCTION REQUEST PROCESSING.
42430  M01S26058.251l664 ---| EMR      SPACE  4
42431  M01S26059.251l664 ---|**        EMR - ENTER INTER-MAINFRAME FUNCTION REQUEST.
42432  M01S26060.251l664 ---|*         CALLED ONLY FROM PROGRAM MODE.
42433  M01S26061.251l664 ---|*
42434  M01S26062.251l664 ---|*         ENTRY  (X3) = MACHINES TO SEND REQUEST TO.
42435  M01S26063.251l664 ---|*                (X5) = 30/0  ,18/  EX,12/  FN
42436  M01S26064.251l664 ---|*                      EX = EXIT PROCESSING CODE.
42437  M01S26065.251l664 ---|*                       0 = RETURN STATUS TO OUTPUT REGISTER.
42438  M01S26066.251l664 ---|*                       1 = CLEAR TRTI INTERLOCK IF IFR NOT INITIATED.
42439  M01S26067.251l664 ---|*                           EXIT TO *REJ*.
42440  M01S26068.251l664 ---|*                       2 = CLEAR FATI INTERLOCK IF IFR NOT INITIATED.
42441  M01S26069.251l664 ---|*                           EXIT TO *REJ*.
42442  M01S26070.251l664 ---|*                      FN = IFR FUNCTION NUMBER.
42443  M01S26071.251l664 ---|*                (A3) = ADDRESS OF MESSAGE WORDS.
42444  M01S26072.251l664 ---|*
42445  M01S26073.251l664 ---|*         EXIT TO PRG.
42446  M01S26074.251l664 ---|
42447  M01S26075.251l664 ---|
42448  M01S26076.251l664 ---| EMR      SB5    EMR1        *RMR* RETURN ADDRESS
42449  M01S26077.251l664 ---|          JP     RMR         READ MACHINE REQUESTS
42450  M01S26078.251l664 ---|
42451  M01S26079.251l664 ---| EMR1     MX1    -12
42452  M01S26080.251l664 ---|          MX4    MXMA        NUMBER OF COMMUNICATION AREAS
42453  M01S26081.251l664 ---|          BX1    X1*X5
42454  M01S26082.251l664 ---|          LX4    -12
42455  M01S26083.251l664 ---|          NZ     X7,EMR7     IF FAILED TO GAIN INTERLOCK
42456  M01S26084.251l664 ---|          SB4    MXMF-1
42457  M01S26085.251l664 ---|
42458  M01S26086.251l664 ---|*         DETERMINE AVAILABLE COMMUNICATION AREAS.
42459  M01S26087.251l664 ---|
42460  M01S26088.251l664 ---| EMR2     SA2    TMRQ+B4     CHECK AVAILABLE COMMUNICATION AREAS
42461  M01S26089.251l664 ---|          SB4    B4-B1
42462  M01S26090.251l664 ---|          BX4    -X2*X4
42463  M01S26091.251l664 ---|          PL     B4,EMR2     IF NOT END OF MACHINES
42464  M01S26092.251l664 ---|          BX5    X1-X5       FUNCTION NUMBER
42465  M01S26093.251l664 ---|
42466  M01S26094.251l664 ---|*         SELECT AVAILABLE COMMUNICATION AREA.
Proceed to Part 33
cdc/nos2.source/opl.opl871/deck/cpumtr.032.txt ยท Last modified: by 127.0.0.1