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
0 17 18 23 24 29 ARMF S 30 35 36 59 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.