Seq # *Modification Id* Act
----------------------------+
19078 M01S00259.dsdi71 +++| FXW6 SA3 FXWB RESET REGISTER NUMBER
19079 M01S15392.dsdi +++| SA2 =10H(A0)=(B0)=
19080 M01S15393.dsdi +++| BX6 X2
| Line S15394 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19081 M02S15394.dsdi71 ---| SA6 A1
| Line S15395 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19082 M02S15395.dsdi71 ---| SA2 FXWA+X0 READ REGISTER NAME
19083 M01S00260.dsdi71 +++| SA6 A3
19084 M01S00261.dsdi71 +++| SA2 FXWA+X1 READ REGISTER NAME
19085 M01S15396.dsdi +++| BX1 X5 SET DATA WORD
19086 M01S15397.dsdi +++| MX0 -18 SAVE ADDRESS
19087 M01S15398.dsdi +++| BX6 -X0*X5
| Line S15399 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19088 M02S15399.dsdi71 ---| SA6 FXWF
19089 M01S00262.dsdi71 +++| SA6 FXWC
19090 M01S15400.dsdi +++| SB6 4
19091 M01S15401.dsdi +++| RJ UPS STORE REGISTER NAME
| Line S15402 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19092 M02S15402.dsdi71 ---| SA3 FXWH
19093 M01S00263.dsdi71 +++| SA3 FXWE
19094 M01S15403.dsdi +++| ZR X3,FXW7 IF NOT TO DISPLAY ADDRESS CONTENTS
19095 M01S15404.dsdi +++| SB4 B7+ SAVE STRING BUFFER ADDRESS
19096 M01S15405.dsdi +++| SB6 5
19097 M01S15406.dsdi +++| SB7 B4+37
19098 M01S15407.dsdi +++| RJ UPS UNPACK TO STRING BUFFER
19099 M01S15408.dsdi +++| SB7 B4+
19100 M01S15409.dsdi +++| FXW7 SA2 =4000005B
19101 M01S15410.dsdi +++| RJ FDW CONVERT REGISTER WORD
19102 M01S15411.dsdi +++| BX2 X1 SET DATA WORD
19103 M01S15412.dsdi +++| SB6 10
19104 M01S15413.dsdi +++| RJ SDI SET DISPLAY CODE INTERPRETATION
| Line S15414 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19105 M02S15414.dsdi71 ---| SA1 FXWH
19106 M01S00264.dsdi71 +++| SA1 FXWE
19107 M01S15415.dsdi +++| ZR X1,FXW5 IF NOT TO DISPLAY ADDRESS CONTENTS
| Line S15416 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19108 M02S15416.dsdi71 ---| SB2 FXWF FORMAT X-REGISTER CONTENTS
19109 M01S00265.dsdi71 +++| SB2 FXWC FORMAT X - REGISTER CONTENTS
19110 M01S15417.dsdi +++| SX5 B7+7
19111 M01S15418.dsdi +++| RJ FXC
19112 M01S15419.dsdi +++| EQ FXW5 EXIT
19113 M01S15420.dsdi +++|
19114 M01S15421.dsdi +++| FXWA BSS 0 REGISTER NAMES
19115 M01S15422.dsdi +++| DATA 10LP A0B0P
19116 M01S15423.dsdi +++| DATA 10LRA A1B1RA
19117 M01S15424.dsdi +++| DATA 10LFL A2B2FL
19118 M01S15425.dsdi +++| DATA 10LEM A3B3PSD
19119 M01S15426.dsdi +++| DATA 10LRAEA4B4RAE
19120 M01S15427.dsdi +++| DATA 10LFLEA5B5FLE
19121 M01S15428.dsdi +++| DATA 10LMA A6B6MA
19122 M01S15429.dsdi +++| DATA 10L A7B7EEA
19123 M01S15430.dsdi +++| DATA 10LX0 (X0)=
19124 M01S15431.dsdi +++| DATA 10LX1 (X1)=
19125 M01S15432.dsdi +++| DATA 10LX2 (X2)=
19126 M01S15433.dsdi +++| DATA 10LX3 (X3)=
19127 M01S15434.dsdi +++| DATA 10LX4 (X4)=
19128 M01S15435.dsdi +++| DATA 10LX5 (X5)=
19129 M01S15436.dsdi +++| DATA 10LX6 (X6)=
19130 M01S15437.dsdi +++| DATA 10LX7 (X7)=
| Line S15438 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19131 M02S15438.dsdi71 ---| FXWB BSS 1 CONTROL REGISTER
| Line S15439 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19132 M02S15439.dsdi71 ---| FXWC BSS 1 A - REGISTER
| Line S15440 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19133 M02S15440.dsdi71 ---| FXWD BSS 1 B - REGISTER
| Line S15441 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19134 M02S15441.dsdi71 ---| FXWE DATA 10L(A0)=(B0)= REGISTER CONTENTS NAMES
| Line S15442 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19135 M02S15442.dsdi71 ---| FXWF CON 0 BINARY A-REGISTER ADDRESS
| Line S15443 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19136 M02S15443.dsdi71 ---| FXWG CON 0 BINARY B-REGISTER ADDRESS
| Line S15444 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19137 M02S15444.dsdi71 ---| FXWH CON 0 DISPLAY REGISTER ADDRESS CONTENTS FLAG
| Line S15445 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71 |
Seq # *Modification Id* Act
----------------------------+
19138 M02S15445.dsdi71 ---| GAT SPACE 4,10
19139 M01S00266.dsdi71 +++| FXWB DATA 10L(A0)=(B0)= REGISTER CONTENTS NAMES
19140 M01S00267.dsdi71 +++| FXWC CON 0 BINARY A-REGISTER ADDRESS
19141 M01S00268.dsdi71 +++| FXWD CON 0 BINARY B-REGISTER ADDRESS
19142 M01S00269.dsdi71 +++| FXWE CON 0 DISPLAY REGISTER ADDRESS CONTENTS FLAG
19143 M01S00270.dsdi71 +++| GAT SPACE 4,28
19144 M01S15446.dsdi +++|** GAT - GET ADDRESS TOKEN.
19145 M01S15447.dsdi +++|*
19146 M01S15448.dsdi +++|* ENTRY (GATA) = 0 IF PREVIOUS SEPARATOR WAS #.
19147 M01S15449.dsdi +++|*
19148 M01S15450.dsdi +++|* EXIT (B6) = 0 IF NO TOKEN OBTAINED.
19149 M01S15451.dsdi +++|* IF (B6) .NE. 0
19150 M01S15452.dsdi +++|* (X4) = TOKEN TYPE FLAG.
19151 M01S15453.dsdi +++|* IF (X4) = 0, TOKEN IS A HEX NUMBER.
19152 M01S15454.dsdi +++|* (X1) = CHARACTER REPRESENTATION OF TOKEN.
19153 M01S15455.dsdi +++|* (X6) = BINARY REPRESENTATION OF HEX NUMBER.
19154 M01S15456.dsdi +++|* IF (X4) .LT. 0, TOKEN IS AN XP SYMBOL.
19155 M01S15457.dsdi +++|* (X1) = (X6) = ACTUAL RMA VALUE.
19156 M01S15458.dsdi +++|* (X2) = REGISTER LIST ENTRY POSITIONED WITH
19157 M01S15459.dsdi +++|* *P.RMA* IN BIT 59.
19158 M01S15460.dsdi +++|* (A1) = ADDRESS IN *DSDI* OF ACTUAL VALUE IN X1.
19159 M01S15461.dsdi +++|* IF (X4) .GT. 0, TOKEN NOT AN XP SYMBOL, BUT IS
19160 M01S15462.dsdi +++|* PROBABLY A REGISTER SYMBOL.
19161 M01S15463.dsdi +++|* (X1) = CHARACTER REPRESENTATION OF TOKEN.
19162 M01S15464.dsdi +++|* (X2) = REGISTER LIST ENTRY POSITIONED WITH
19163 M01S15465.dsdi +++|* *P.RMA* IN BIT 59.
19164 M01S15466.dsdi +++|* (X6) = ADDRESS WITH *DSDI* WHERE REGISTER
19165 M01S15467.dsdi +++|* CAN BE FOUND.
19166 M01S15468.dsdi +++|*
19167 M01S15469.dsdi +++|* USES X - 1, 2, 3, 4, 6, 7.
19168 M01S15470.dsdi +++|* A - 1, 3, 4, 6.
19169 M01S15471.dsdi +++|* B - 6.
19170 M01S15472.dsdi +++|*
19171 M01S15473.dsdi +++|* CALLS ASX.
19172 M01S15474.dsdi +++|
19173 M01S15475.dsdi +++|
19174 M01S15476.dsdi +++| GAT SUBR ENTRY/EXIT
19175 M01S15477.dsdi +++| MX6 0
19176 M01S15478.dsdi +++| SB6 B0
19177 M01S15479.dsdi +++| SA4 GATA CHECK TERMINATOR
19178 M01S15480.dsdi +++| NZ X4,GATX IF INCORRECT TERMINATOR
19179 M01S15481.dsdi +++| RJ ASX GET HEX NUMBER
19180 M01S15482.dsdi +++| SA3 CH CHECK TERMINATOR
19181 M01S15483.dsdi +++| MX2 1 SET NUMBER FLAG
19182 M01S15484.dsdi +++| SA3 X3
19183 M01S15485.dsdi +++| SA1 ASXA FETCH IDENTIFIER
19184 M01S15486.dsdi +++| SX7 X3-1R#
19185 M01S15487.dsdi +++| SA7 GATA *#* FLAG
19186 M01S15488.dsdi +++| CX3 X1
19187 M01S15489.dsdi +++| SB6 X3
19188 M01S15490.dsdi +++| ZR B6,GATX IF NULL TOKEN
19189 M01S15491.dsdi +++| ZR X4,GATX IF VALID HEX NUMBER
19190 M01S15492.dsdi +++| SA4 A7+B1
19191 M01S15493.dsdi +++| ERRNZ GATA+1-GATB CODE ASSUMES VALUE
19192 M01S15494.dsdi +++| BX6 X1
19193 M01S15495.dsdi +++| SA6 GATC SAVE SEARCH TERMINATOR
19194 M01S15496.dsdi +++| GAT1 BX7 X4-X1 COMPARE ENTRIES
19195 M01S15497.dsdi +++| SX2 X4
19196 M01S15498.dsdi +++| AX7 -24
19197 M01S15499.dsdi +++| AX4 18
19198 M01S15500.dsdi +++| SX6 X4
19199 M01S15501.dsdi +++| SA4 A4+B1 FETCH NEXT LIST ENTRY
19200 M01S15502.dsdi +++| NZ X7,GAT1 IF ENTRY NOT YET FOUND
19201 M01S15503.dsdi +++| ZR X2,ERR6 IF ENTRY IS INCORRECT
19202 M01S15504.dsdi +++| LX2 59-P.RMA
19203 M01S15505.dsdi +++| BX4 X2
19204 M01S15506.dsdi +++| LX4 59-P.XCH-59+P.RMA
19205 M01S15507.dsdi +++| PL X4,GATX IF NOT AN EXCHANGE PACKAGE SYMBOL
19206 M01S15508.dsdi +++| SA1 X6
19207 M01S15509.dsdi +++| BX6 X1 FETCH ACTUAL RMA VALUE
19208 M01S15510.dsdi +++| JP GATX RETURN
19209 M01S15511.dsdi +++|
19210 M01S15512.dsdi +++| GATA CON 0
19211 M01S15513.dsdi +++|
19212 M01S15514.dsdi +++| GATB BSS 0 SYMBOL TABLE
19213 M01S15515.dsdi +++|
19214 M01S15516.dsdi +++| P.XCH EQU 0 XCH FLAG BIT
19215 M01S15517.dsdi +++| V.XCH EQU 1S0
19216 M01S15518.dsdi +++| P.REG EQU 1 REGISTER FLAG BIT
19217 M01S15519.dsdi +++| V.REG EQU 1S1
19218 M01S15520.dsdi +++| P.RMA EQU 3 RMA FLAG BIT
19219 M01S15521.dsdi +++| V.RMA EQU 1S3
19220 M01S15522.dsdi +++|
19221 M01S15523.dsdi +++| VFD 24/0LPVA,18/S2PVA,18/V.REG
19222 M01S15524.dsdi +++|
19223 M01S15525.dsdi +++| VFD 24/0LP,18/2/2+BUF,18/V.REG
19224 M01S15526.dsdi +++| VFD 24/0LRN1,18/298/2+BUF,18/V.REG
19225 M01S15527.dsdi +++| VFD 24/0LRN2,18/306/2+BUF,18/V.REG
19226 M01S15528.dsdi +++| VFD 24/0LRN3,18/314/2+BUF,18/V.REG
19227 M01S15529.dsdi +++| VFD 24/0LRN4,18/322/2+BUF,18/V.REG
19228 M01S15530.dsdi +++| VFD 24/0LRN5,18/330/2+BUF,18/V.REG
19229 M01S15531.dsdi +++| VFD 24/0LRN6,18/338/2+BUF,18/V.REG
19230 M01S15532.dsdi +++| VFD 24/0LRN7,18/346/2+BUF,18/V.REG
19231 M01S15533.dsdi +++| VFD 24/0LRN8,18/354/2+BUF,18/V.REG
19232 M01S15534.dsdi +++| VFD 24/0LRN9,18/362/2+BUF,18/V.REG
19233 M01S15535.dsdi +++| VFD 24/0LRN10,18/370/2+BUF,18/V.REG
19234 M01S15536.dsdi +++| VFD 24/0LRN11,18/378/2+BUF,18/V.REG
19235 M01S15537.dsdi +++| VFD 24/0LRN12,18/386/2+BUF,18/V.REG
19236 M01S15538.dsdi +++| VFD 24/0LRN13,18/394/2+BUF,18/V.REG
19237 M01S15539.dsdi +++| VFD 24/0LRN14,18/402/2+BUF,18/V.REG
19238 M01S15540.dsdi +++| VFD 24/0LRN15,18/410/2+BUF,18/V.REG
19239 M01S15541.dsdi +++| VFD 24/0LRA0,18/10/2+BUF,18/V.REG
19240 M01S15542.dsdi +++| VFD 24/0LRA1,18/18/2+BUF,18/V.REG
19241 M01S15543.dsdi +++| VFD 24/0LRA2,18/26/2+BUF,18/V.REG
19242 M01S15544.dsdi +++| VFD 24/0LRA3,18/34/2+BUF,18/V.REG
19243 M01S15545.dsdi +++| VFD 24/0LRA4,18/24/2+BUF,18/V.REG
19244 M01S15546.dsdi +++| VFD 24/0LRA5,18/50/2+BUF,18/V.REG
19245 M01S15547.dsdi +++| VFD 24/0LRA6,18/58/2+BUF,18/V.REG
19246 M01S15548.dsdi +++| VFD 24/0LRA7,18/66/2+BUF,18/V.REG
19247 M01S15549.dsdi +++| VFD 24/0LRA8,18/74/2+BUF,18/V.REG
19248 M01S15550.dsdi +++| VFD 24/0LRA9,18/82/2+BUF,18/V.REG
19249 M01S15551.dsdi +++| VFD 24/0LRAA,18/90/2+BUF,18/V.REG
19250 M01S15552.dsdi +++| VFD 24/0LRAB,18/98/2+BUF,18/V.REG
19251 M01S15553.dsdi +++| VFD 24/0LRAC,18/106/2+BUF,18/V.REG
19252 M01S15554.dsdi +++| VFD 24/0LRAD,18/114/2+BUF,18/V.REG
19253 M01S15555.dsdi +++| VFD 24/0LRAE,18/122/2+BUF,18/V.REG
19254 M01S15556.dsdi +++| VFD 24/0LRAF,18/130/2+BUF,18/V.REG
19255 M01S15557.dsdi +++| VFD 24/0LUTP,18/274/2+BUF,18/V.REG
19256 M01S15558.dsdi +++| VFD 24/0LTP,18/282/2+BUF,18/V.REG
19257 M01S15559.dsdi +++|
19258 M01S15560.dsdi +++| VFD 24/0LMPS,18/S2MPS,18/V.RMA+V.XCH
19259 M01S15561.dsdi +++| VFD 24/0LJPS,18/S2JPS,18/V.RMA+V.XCH
19260 M01S15562.dsdi +++| VFD 24/0LRMA,18/S2RMA,18/V.RMA+V.XCH
19261 M01S15563.dsdi +++| VFD 24/0LPXP,18/0,18/V.XCH
19262 M01S15564.dsdi +++|
19263 M01S15565.dsdi +++| GATC CON 0 END OF TABLE
19264 M01S00271.dsdi71 +++| GCS SPACE 4,10
19265 M01S00272.dsdi71 +++|** GCS - GET CPU STATUS.
19266 M01S00273.dsdi71 +++|*
19267 M01S00274.dsdi71 +++|* ENTRY (X5) = FWA OF CPA IN *TCMT*.
19268 M01S00275.dsdi71 +++|* (B7) = STRING BUFFER POINTER.
19269 M01S00276.dsdi71 +++|*
19270 M01S00277.dsdi71 +++|* EXIT CPU PRIORITY PLACED IN STRING BUFFER.
19271 M01S00278.dsdi71 +++|*
19272 M01S00279.dsdi71 +++|* USES X - 0, 1, 2, 6.
19273 M01S00280.dsdi71 +++|* A - 1, 2, 6.
19274 M01S00281.dsdi71 +++|* B - 3.
19275 M01S00282.dsdi71 +++|
19276 M01S00283.dsdi71 +++|
19277 M01S00284.dsdi71 +++| GCS SUBR ENTRY/EXIT
19278 M01S00285.dsdi71 +++| MX0 3
19279 M01S00286.dsdi71 +++| SA1 X5+STSW
19280 M01S00287.dsdi71 +++| BX1 X0*X1
19281 M01S00288.dsdi71 +++| LX1 4 FORM STATUS*6
19282 M01S00289.dsdi71 +++| SA2 GCSA
19283 M01S00290.dsdi71 +++| SB3 X1
19284 M01S00291.dsdi71 +++| LX1 1
19285 M01S00292.dsdi71 +++| SB3 B3+X1
19286 M01S00293.dsdi71 +++| AX2 B3,X2 SHIFT SELECTED STATUS TO BITS 5-0
19287 M01S00294.dsdi71 +++| MX0 -6
19288 M01S00295.dsdi71 +++| BX6 -X0*X2
19289 M01S00296.dsdi71 +++| SA6 B7 SET IN STRING BUFFER
19290 M01S00297.dsdi71 +++| EQ GCSX RETURN
19291 M01S00298.dsdi71 +++|
19292 M01S00299.dsdi71 +++|
19293 M01S00300.dsdi71 +++| GCSA DATA 10H IXW BA
19294 M01S00200.ns2647 +++| GDA SPACE 4,10
19295 M01S00201.ns2647 +++|** GDA - GET DFT/OS BUFFER FWA (DFT CONTROL WORD).
19296 M01S00202.ns2647 +++|*
19297 M01S00203.ns2647 +++|* EXIT (X3) = DFT CONTROL WORD ADDRESS WITHIN BUFFER.
19298 M01S00204.ns2647 +++|* = 0 IF DFT/OS BUFFER NOT FOUND.
19299 M01S00205.ns2647 +++|* (X6) = DFT CONTROL WORD ADDRESS.
19300 M01S00206.ns2647 +++|*
19301 M01S00207.ns2647 +++|* USES X - 0, 1, 3.
19302 M01S00208.ns2647 +++|* A - 1, 3.
19303 M01S00209.ns2647 +++|*
19304 M01S00210.ns2647 +++|* CALLS DRA.
19305 M01S00211.ns2647 +++|
19306 M01S00212.ns2647 +++|
19307 M01S00213.ns2647 +++| GDA SUBR ENTRY/EXIT
19308 M01S00214.ns2647 +++| SA1 F.TCMT
19309 M01S00215.ns2647 +++| SA3 X1+EIBP POINTER TO *EICB*
19310 M01S00216.ns2647 +++| MX0 -32
19311 M01S00217.ns2647 +++| BX3 -X0*X3
19312 M01S00218.ns2647 +++| ZR X3,GDAX IF NO *EICB*
19313 M01S00219.ns2647 +++| IX3 X1+X3 GET DFT/OS POINTER
19314 M01S00220.ns2647 +++| SA3 X3+/VE/DSCM+3
19315 M01S00221.ns2647 +++| ZR X3,GDAX IF NO DFT/OS BUFFER
19316 M01S00222.ns2647 +++| RJ DRA GET ADDRESS OF DFT CONTROL WORD
19317 M01S00223.ns2647 +++| IX3 X1+X6
19318 M01S00224.ns2647 +++| EQ GDAX RETURN
19319 M01S15566.dsdi +++| GDB SPACE 4,14
19320 M01S15567.dsdi +++|** GDB - GET DAYFILE BUFFER.
19321 M01S15568.dsdi +++|*
19322 M01S15569.dsdi +++|* ENTRY (CN) = CONTROL POINT NUMBER.
19323 M01S15570.dsdi +++|* = 0, IF SYSTEM DAYFILE.
19324 M01S15571.dsdi +++|* = -1, IF ACCOUNTING DAYFILE.
19325 M01S15572.dsdi +++|* = -2, IF ERRLOG DAYFILE.
19326 M01S15573.dsdi +++|* = -3, IF BML DAYFILE.
19327 M01S00366.271l716 +++|* (OP) = PCPA FWA OFFSET (0 IF DUMPING CONTROL POINTS).
19328 M01S15574.dsdi +++|*
| Line S15575 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi70 |
Seq # *Modification Id* Act
----------------------------+
19329 M02S15575.dsdi70 ---|* EXIT DAYFILE BUFFER STORED IN TABLE *TSCR*.
| Line S15576 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi70 |
Seq # *Modification Id* Act
----------------------------+
19330 M02S15576.dsdi70 ---|* (GDBA) = ADDRESS OF DAYFILE BUFFER POINTERS.
| Line S15577 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi70 |
Seq # *Modification Id* Act
----------------------------+
19331 M02S15577.dsdi70 ---|* (GDBB) = DAYFILE BUFFER LENGTH.
19332 M01S00002.dsdi70 +++|* EXIT (GDBB) = DAYFILE BUFFER LENGTH.
19333 M01S15578.dsdi +++|* (GDBC) = MEMORY ADDRESS OF POINTERS.
19334 M01S15579.dsdi +++|* (GDBD) = NONZERO, IF DAYFILE BUFFER POINTERS EXTEND
19335 M01S15580.dsdi +++|* BEYOND MACHINE FL.
19336 M01S00003.dsdi70 +++|* DAYFILE BUFFER POINTERS STORED IN TABLE *TSC1*
19337 M01S00004.dsdi70 +++|* DAYFILE BUFFER STORED IN TABLE *TSCR*.
19338 M01S15581.dsdi +++|*
19339 M01S15582.dsdi +++|* USES X - 0, 1, 2, 3, 4, 6.
19340 M01S15583.dsdi +++|* A - 0, 1, 2, 3, 4, 6, 7.
19341 M01S15584.dsdi +++|* B - 2, 5.
19342 M01S15585.dsdi +++|*
| Line S15586 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19343 M02S15586.dsdi71a ---|* CALLS CNL, PCM, SCM.
19344 M01S00038.dsdi71a +++|* CALLS CNL, GFL, PCM, SCM.
19345 M01S15587.dsdi +++|*
| Line S15588 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19346 M02S15588.dsdi71a ---|* MACROS ALLOC, GETCM.
19347 M01S00039.dsdi71a +++|* MACROS ALLOC, GETCM, PRINT.
19348 M01S15589.dsdi +++|
19349 M01S15590.dsdi +++|
19350 M01S15591.dsdi +++| GDB5 SX6 B1 SET POINTERS AS INACCURATE
19351 M01S15592.dsdi +++| SA6 GDBD
19352 M01S15593.dsdi +++| PRINT (=2C )
19353 M01S15594.dsdi +++| PRINT (=C+ *********WARNING - INACCURATE DAYFILE BUFFER POIN
19354 M01S15595.dsdi +++|,TERS+)
19355 M01S15596.dsdi +++| PRINT (=2C )
19356 M01S15597.dsdi +++| GDB6 SX1 B0 INDICATE SUFFICIENT NFL SPACE
19357 M01S15598.dsdi +++|
19358 M01S15599.dsdi +++| GDB SUBR ENTRY/EXIT
19359 M01S15600.dsdi +++| SX6 0
19360 M01S15601.dsdi +++| SA6 GDBD PRESET POINTERS AS ACCURATE
19361 M01S15602.dsdi +++| SA1 L.TSC1 GET TABLE LENGTH
19362 M01S15603.dsdi +++| SX3 3 LENGTH OF DAYFILE POINTERS
19363 M01S15604.dsdi +++| IX1 X3-X1 CHANGE IN LENGTH
19364 M01S15605.dsdi +++| SB2 A0 SAVE (A0)
19365 M01S15606.dsdi +++| ALLOC TSC1,X1
19366 M01S15607.dsdi +++| SA0 B2 RESTORE (A0)
19367 M01S15608.dsdi +++| SA4 CN CONTROL POINT NUMBER
19368 M01S15609.dsdi +++| SA1 NC
19369 M01S15610.dsdi +++| NG X4,GDB1 IF ACCOUNTING, ERRLOG OR BML DAYFILE
19370 M01S15611.dsdi +++| ZR X4,GDB2 IF SYSTEM DAYFILE
19371 M01S15612.dsdi +++| SX2 X1+B1
19372 M01S15613.dsdi +++| BX3 X2-X4
19373 M01S15614.dsdi +++| NZ X3,GDB4 IF NOT SYSTEM CONTROL POINT
19374 M01S15615.dsdi +++| SX4 B0
19375 M01S15616.dsdi +++| EQ GDB2 PROCESS SYSTEM DAYFILE POINTERS
19376 M01S15617.dsdi +++|
19377 M01S15618.dsdi +++| GDB1 BX4 -X4
19378 M01S15619.dsdi +++| GDB2 SA1 F.TCMT
19379 M01S15620.dsdi +++| SB5 X1 TCMT BASE ADDRESS
19380 M01S15621.dsdi +++| SA3 B5+DFPP LOW CORE DAYFILE BUFFER POINTERS POINTER
19381 M01S15622.dsdi +++| LX3 24
19382 M01S15623.dsdi +++| SX3 X3
19383 M01S15624.dsdi +++| SX2 3 CALCULATE POINTER OFFSET
19384 M01S15625.dsdi +++| IX4 X4*X2
19385 M01S15626.dsdi +++| IX6 X3+X4 ADDRESS OF DAYFILE BUFFER POINTERS
19386 M01S15627.dsdi +++| SA6 GDBC
19387 M01S15628.dsdi +++| SX1 B5+X6 GET ABSOLUTE ADDRESS OF POINTERS
19388 M01S15629.dsdi +++| SA2 F.TSC1 MOVE POINTER WORDS TO TSC1
19389 M01S15630.dsdi +++| SA1 X1
19390 M01S15631.dsdi +++| BX6 X1
19391 M01S15632.dsdi +++| SA6 X2
19392 M01S15633.dsdi +++| SA1 A1+B1
19393 M01S15634.dsdi +++| BX6 X1
19394 M01S15635.dsdi +++| SA6 A6+B1
19395 M01S15636.dsdi +++| SA1 A1+B1
19396 M01S15637.dsdi +++| BX6 X1
19397 M01S15638.dsdi +++| SA6 A6+B1
19398 M01S15639.dsdi +++| GDB3 MX1 -12
19399 M01S15640.dsdi +++| SA3 F.TSC1 SET FWA OF POINTERS
| Line S15641 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi70 |
Seq # *Modification Id* Act
----------------------------+
19400 M02S15641.dsdi70 ---| BX6 X3
| Line S15642 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi70 |
Seq # *Modification Id* Act
----------------------------+
19401 M02S15642.dsdi70 ---| SA6 GDBA
19402 M01S15643.dsdi +++| SA3 X3
19403 M01S15644.dsdi +++| SA2 A3+B1 GET DAYFILE BUFFER LENGTH
19404 M01S15645.dsdi +++| AX2 24
19405 M01S15646.dsdi +++| BX6 -X1*X2
19406 M01S15647.dsdi +++| MX2 -24
19407 M01S15648.dsdi +++| SA6 GDBB SAVE BUFFER LENGTH
19408 M01S15649.dsdi +++| SA1 F.TCMT GET MACHINE FL
19409 M01S15650.dsdi +++| SA1 X1+MABL
19410 M01S15651.dsdi +++| AX1 12
19411 M01S15652.dsdi +++| BX1 -X2*X1
19412 M01S15653.dsdi +++| LX1 6
19413 M01S15654.dsdi +++| AX3 36 GET BUFFER FWA
19414 M01S15655.dsdi +++| IX2 X3-X1
19415 M01S15656.dsdi +++| IX2 X2+X6
19416 M01S15657.dsdi +++| PL X2,GDB5 IF BUFFER LWA+1 BEYOND MACHINE FL
19417 M01S15658.dsdi +++| ZR X6,GDBX IF NO BUFFER
19418 M01S15659.dsdi +++| RJ SCM SELECT CM RECORD
19419 M01S15660.dsdi +++| SA7 RI
19420 M01S15661.dsdi +++| RJ PCM POSITION 60 BIT MEMORY
19421 M01S15662.dsdi +++|
19422 M01S15663.dsdi +++|* ALLOCATE BUFFER SPACE AND READ THE DAYFILE BUFFER.
19423 M01S15664.dsdi +++|
19424 M01S15665.dsdi +++| SA3 GDBB GET BUFFER LENGTH
19425 M01S15666.dsdi +++| SA1 L.TSCR
19426 M01S15667.dsdi +++| IX1 X3-X1
19427 M01S15668.dsdi +++| SB2 A0+ SAVE A0
19428 M01S15669.dsdi +++| ALLOC TSCR,X1 ALLOCATE SCRATCH TABLE SPACE
19429 M01S15670.dsdi +++| SA0 B2 RESTORE A0
19430 M01S15671.dsdi +++| GETCM X2,X3 READ BUFFER TO TABLE
19431 M01S15672.dsdi +++| EQ GDB6 INDICATE SUFFICIENT NFL SPACE
19432 M01S15673.dsdi +++|
19433 M01S15674.dsdi +++| GDB4 RJ CNL CHECK NFL LENGTH
19434 M01S15675.dsdi +++| NG X1,GDBX IF INSUFFICIENT NFL SPACE
| Line S15676 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19435 M02S15676.dsdi71a ---| SA1 F.TCMT FORM CONTROL POINT AREA ADDRESS
19436 M01S00040.dsdi71a +++| SA2 OP ADD PCPA OFFSET
19437 M01S15677.dsdi +++| LX4 7
| Line S15678 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19438 M02S15678.dsdi71a ---| MX0 -15
| Line S00367 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19439 M02S00367.dsdi71a ---| SA2 OP ADD PCPA OFFSET
| Line S15679 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19440 M02S15679.dsdi71a ---| IX4 X1+X4
| Line S00368 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19441 M02S00368.dsdi71a ---| IX4 X4+X2
| Line S15680 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19442 M02S15680.dsdi71a ---| SX4 X4+FLSW GET CONTROL POINT RA/100
| Line S15681 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19443 M02S15681.dsdi71a ---| SA2 X4
| Line S15682 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19444 M02S15682.dsdi71a ---| AX2 12
| Line S15683 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19445 M02S15683.dsdi71a ---| BX6 -X0*X2
19446 M01S00041.dsdi71a +++| IX1 X4+X2
19447 M01S00042.dsdi71a +++| RJ GFL GET CONTROL POINT RA
19448 M01S15684.dsdi +++| SX3 DAPN
| Line S15685 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi71a |
Seq # *Modification Id* Act
----------------------------+
19449 M02S15685.dsdi71a ---| LX6 6
19450 M01S15686.dsdi +++| IX3 X6-X3 ABSOLUTE ADDRESS OF POINTER WORDS
19451 M01S15687.dsdi +++| BX6 X3
19452 M01S15688.dsdi +++| SA6 GDBC
19453 M01S15689.dsdi +++| RJ SCM SELECT CM RECORD
19454 M01S15690.dsdi +++| SA7 RI
19455 M01S15691.dsdi +++| RJ PCM POSITION TO CM RECORD
19456 M01S15692.dsdi +++| SA2 F.TSC1 READ POINTER WORDS TO TSC1
19457 M01S15693.dsdi +++| GETCM X2,3
19458 M01S15694.dsdi +++| SA1 GDBC FORM ABSOLUTE VALUE FOR *FIRST*
19459 M01S15695.dsdi +++| SX0 DAYN-DAPN
19460 M01S15696.dsdi +++| SA2 F.TSC1
19461 M01S15697.dsdi +++| IX6 X1-X0
19462 M01S15698.dsdi +++| SA1 X2
19463 M01S15699.dsdi +++| LX6 36
19464 M01S15700.dsdi +++| BX6 X1+X6
19465 M01S15701.dsdi +++| SA6 A1
19466 M01S15702.dsdi +++| EQ GDB3 READ DAYFILE BUFFER
19467 M01S15703.dsdi +++|
| Line S15704 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi70 |
Seq # *Modification Id* Act
----------------------------+
19468 M02S15704.dsdi70 ---| GDBA BSS 1 ADDRESS OF DAYFILE BUFFER POINTERS
19469 M01S00005.dsdi70 +++|
19470 M01S15705.dsdi +++| GDBB BSS 1 DAYFILE BUFFER LENGTH
19471 M01S15706.dsdi +++| GDBC BSS 1 MEMORY ADDRESS OF POINTERS
19472 M01S15707.dsdi +++| GDBD BSS 1 INACCURATE BUFFER POINTERS FLAG
19473 M01S00301.dsdi71 +++| GEE SPACE 4,15
19474 M01S00302.dsdi71 +++|** GEE - GET EJT ENTRY.
19475 M01S00303.dsdi71 +++|*
19476 M01S00304.dsdi71 +++|* ENTRY (FW) = CPA FWA.
19477 M01S00305.dsdi71 +++|* (RI) = CM RANDOM INDEX.
19478 M01S00306.dsdi71 +++|*
19479 M01S00307.dsdi71 +++|* EXIT (X1) = 0 IF CONTROL POINT NOT ACTIVE.
19480 M01S00308.dsdi71 +++|* (X5) = FWA OF EJT ENTRY IF ACTIVE.
19481 M01S00309.dsdi71 +++|* EJT ENTRY STORED AT *BUF* IF ACTIVE.
19482 M01S00310.dsdi71 +++|*
19483 M01S00311.dsdi71 +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
19484 M01S00312.dsdi71 +++|* A - 1, 2, 3, 4.
19485 M01S00313.dsdi71 +++|*
19486 M01S00314.dsdi71 +++|* CALLS PCM.
19487 M01S00315.dsdi71 +++|*
19488 M01S00316.dsdi71 +++|* MACROS GETCM.
19489 M01S00317.dsdi71 +++|
19490 M01S00318.dsdi71 +++|
19491 M01S00319.dsdi71 +++| GEE2 SX1 0 SET INACTIVE CP
19492 M01S00320.dsdi71 +++|
19493 M01S00321.dsdi71 +++| GEE SUBR ENTRY/EXIT
19494 M01S00322.dsdi71 +++| SA2 F.TCMT SET FWA EJT ENTRY
19495 M01S00323.dsdi71 +++| SA1 X2+EJTP
19496 M01S00324.dsdi71 +++| SA4 FW
19497 M01S00325.dsdi71 +++| AX1 36 FWA EJT
19498 M01S00326.dsdi71 +++| IX3 X4+X2 FWA CONTROL POINT AREA
19499 M01S00327.dsdi71 +++| SA3 X3+TFSW
19500 M01S00328.dsdi71 +++| MX0 12
19501 M01S00329.dsdi71 +++| BX6 X0*X3
19502 M01S00330.dsdi71 +++| SX3 EJTE
19503 M01S00331.dsdi71 +++| NZ X6,GEE1 IF ACTIVE CP
19504 M01S00332.dsdi71 +++| SA2 NC CHECK FOR SYSTEM CP
19505 M01S00333.dsdi71 +++| SX2 X2+1
19506 M01S00334.dsdi71 +++| LX2 7
19507 M01S00335.dsdi71 +++| IX2 X2-X4
19508 M01S00336.dsdi71 +++| NZ X2,GEE2 IF INACTIVE CP
19509 M01S00337.dsdi71 +++| GEE1 LX6 12
19510 M01S00338.dsdi71 +++| SA6 GEEA SAVE EJT ORDINAL
19511 M01S00339.dsdi71 +++| IX3 X6*X3
19512 M01S00340.dsdi71 +++| IX3 X1+X3
19513 M01S00341.dsdi71 +++| SX5 X3 SAVE FWA EJT ENTRY
19514 M01S00342.dsdi71 +++| RJ PCM POSITION TO EJT ENTRY
19515 M01S00343.dsdi71 +++| GETCM BUF,EJTE
19516 M01S00344.dsdi71 +++| SX1 1 SET EJT ENTRY FOUND
19517 M01S00345.dsdi71 +++| EQ GEEX RETURN
19518 M01S00346.dsdi71 +++|
19519 M01S00347.dsdi71 +++|
19520 M01S00348.dsdi71 +++| GEEA CON 0 EJT ORDINAL
19521 M01S00043.dsdi71a +++| GFL SPACE 4,15
19522 M01S00044.dsdi71a +++|** GFL - GET FL AND RA.
19523 M01S00045.dsdi71a +++|*
19524 M01S00046.dsdi71a +++|* ENTRY (X1) = RELATIVE CPA/PCPA ADDRESS.
19525 M01S00047.dsdi71a +++|*
19526 M01S00048.dsdi71a +++|* EXIT (X1) = (X1)+(F.TCMT).
19527 M01S00049.dsdi71a +++|* (X2) = *FLSW* WORD OF CPA/PCPA, RIGHT SHIFTED 12 BITS.
19528 M01S00050.dsdi71a +++|* (X6) = RA.
19529 M01S00051.dsdi71a +++|* (X7) = FL.
19530 M01S00052.dsdi71a +++|*
| Line S00053 Modification History |
M01 (Added by) | dsdi71a |
M02 (Updated by) | dsdi89 |
Seq # *Modification Id* Act
----------------------------+
19531 M02S00053.dsdi89 ---|* USES X - 0, 1, 2, 6, 7.
19532 M01S00128.dsdi89 +++|* USES X - 1, 2, 6, 7.
19533 M01S00054.dsdi71a +++|* A - 2.
19534 M01S00055.dsdi71a +++|
19535 M01S00056.dsdi71a +++|
19536 M01S00057.dsdi71a +++| GFL SUBR ENTRY/EXIT
19537 M01S00058.dsdi71a +++| SA2 F.TCMT
19538 M01S00059.dsdi71a +++| IX1 X1+X2
| Line S00060 Modification History |
M01 (Added by) | dsdi71a |
M02 (Updated by) | dsdi89 |
Seq # *Modification Id* Act
----------------------------+
19539 M02S00060.dsdi89 ---| MX0 -12
19540 M01S00129.dsdi89 +++| MX7 -12
19541 M01S00061.dsdi71a +++| SA2 X1+FLSW
| Line S00062 Modification History |
M01 (Added by) | dsdi71a |
M02 (Updated by) | dsdi89 |
Seq # *Modification Id* Act
----------------------------+
19542 M02S00062.dsdi89 ---| BX7 -X0*X2 FL/100B
19543 M01S00130.dsdi89 +++| BX7 -X7*X2 FL/100B
19544 M01S00063.dsdi71a +++| AX2 12
| Line S00064 Modification History |
M01 (Added by) | dsdi71a |
M02 (Updated by) | dsdi89 |
Seq # *Modification Id* Act
----------------------------+
19545 M02S00064.dsdi89 ---| MX0 -15
| Line S00065 Modification History |
M01 (Added by) | dsdi71a |
M02 (Updated by) | dsdi89 |
Seq # *Modification Id* Act
----------------------------+
19546 M02S00065.dsdi89 ---| BX6 -X0*X2 RA/100B
19547 M01S00131.dsdi89 +++| MX6 -15
19548 M01S00132.dsdi89 +++| BX6 -X6*X2 RA/100B
19549 M01S00066.dsdi71a +++| LX6 6 RA
19550 M01S00067.dsdi71a +++| LX7 6 FL
19551 M01S00068.dsdi71a +++| EQ GFLX RETURN
19552 M01S15708.dsdi +++| GHA SPACE 4,10
19553 M01S15709.dsdi +++|** GHA - GET HARDWARE ADDRESS.
19554 M01S15710.dsdi +++|*
19555 M01S15711.dsdi +++|* ENTRY INPUT LINE OF FORM -
19556 M01S15712.dsdi +++|* NNNNN. - REAL MEMORY ADDRESS.
19557 M01S15713.dsdi +++|* ASID#NNNNNNNN. - SYSTEM VIRTUAL ADDRESS.
19558 M01S15714.dsdi +++|* SEG#NNNNNNNN#EXCH. - PVA.
19559 M01S15715.dsdi +++|* REG#EXCH. - PVA FROM EXCHANGE PACKAGE.
19560 M01S15716.dsdi +++|* NNNNNNNN#REG#EXCH. - SPECIFIC BYTE OFFSET.
19561 M01S15717.dsdi +++|*
19562 M01S15718.dsdi +++|* EXIT (X6) = REAL MEMORY ADDRESS/SVA.
19563 M01S15719.dsdi +++|* (B6) = 0, IF NO ADDRESS DECODED.
19564 M01S15720.dsdi +++|*
19565 M01S15721.dsdi +++|* CALLS ASX, FRV, GXA, LTE.
19566 M01S15722.dsdi +++|
19567 M01S15723.dsdi +++|
19568 M01S15724.dsdi +++| GHA SUBR ENTRY/EXIT
19569 M01S15725.dsdi +++| SA1 CHAR
19570 M01S15726.dsdi +++| SX2 100B
19571 M01S15727.dsdi +++| GHA1 SA1 A1+B1 FLAG THE *+* AND *-* CHARACTERS
19572 M01S15728.dsdi +++| SB6 X1-1R+
19573 M01S15729.dsdi +++| BX6 X2+X1
19574 M01S15730.dsdi +++| NG B6,GHA1 IF NOT A SEPARATOR
19575 M01S15731.dsdi +++| SX1 X1-1R.
19576 M01S15732.dsdi +++| ZR X1,GHA2 IF LINE TERMINATOR
19577 M01S15733.dsdi +++| GT B6,B1,GHA1 IF NOT A *+* OR *-*
19578 M01S15734.dsdi +++| SA6 A1
19579 M01S15735.dsdi +++| JP GHA1 CHECK NEXT CHARACTER
19580 M01S15736.dsdi +++|
19581 M01S15737.dsdi +++| GHA2 SX6 0
19582 M01S15738.dsdi +++| SA6 GATA CLEAR GAT FLAG
19583 M01S15739.dsdi +++| RJ GAT GET ADDRESS TOKEN
19584 M01S15740.dsdi +++| ZR B6,GHA5 IF NO TOKEN
19585 M01S15741.dsdi +++| MX7 -32
19586 M01S15742.dsdi +++| SA7 GHAA SET FLAG
19587 M01S15743.dsdi +++| PL X2,GHA6 IF NOT A RMA SYMBOL OR A NUMBER
19588 M01S15744.dsdi +++| SA6 A7
19589 M01S15745.dsdi +++| RJ GAT GET TOKEN
19590 M01S15746.dsdi +++| ZR B6,GHA4 IF ONLY RMA OR NUMBER
19591 M01S15747.dsdi +++| SA1 GHAA FETCH ASID/SEGMENT
19592 M01S15748.dsdi +++| LX1 32
19593 M01S15749.dsdi +++| PL X2,GHA6 IF NOT A NUMBER OR RMA SYMBOL
19594 M01S15750.dsdi +++| BX6 X1+X6 FORM SVA/PVA
19595 M01S15751.dsdi +++| SA6 A1
19596 M01S15752.dsdi +++| RJ GXA GET EXCHANGE ADDRESS
19597 M01S15753.dsdi +++| ZR B6,GHA4 IF NO SYMBOL SPECIFIED
19598 M01S15754.dsdi +++| SA6 GHAB SAVE SEGMENT TABLE LENGTH/ADDRESS
19599 M01S15755.dsdi +++| NG X2,GHA8 IF EXCHANGE ADDRESS SPECIFIED
19600 M01S15756.dsdi +++| JP ERR6 NOT GOOD AT ALL
19601 M01S15757.dsdi +++|
19602 M01S15758.dsdi +++| GHA3 RJ GAT
19603 M01S15759.dsdi +++| GHA4 NZ B6,ERR6 IF BAD SYNTAX
19604 M01S15760.dsdi +++| SA1 GHAA FETCH SVA
19605 M01S15761.dsdi +++| BX6 X1
19606 M01S15762.dsdi +++| SB6 B1
19607 M01S15763.dsdi +++| GHA5 SA1 CH CHECK DELIMITER
19608 M01S15764.dsdi +++| SA2 X1
19609 M01S15765.dsdi +++| SB2 X2-1R+-100B
19610 M01S15766.dsdi +++| NG B2,GHAX IF NOT A SPECIAL CHARACTER
19611 M01S15767.dsdi +++| SX7 -B2
19612 M01S15768.dsdi +++| AX7 1
19613 M01S15769.dsdi +++| SA7 GHAB
19614 M01S15770.dsdi +++| RJ ASX GET HEX DIGIT
19615 M01S15771.dsdi +++| ZR B6,ERR6 IF NO NUMBER GIVEN
19616 M01S15772.dsdi +++| NZ X4,ERR6 IF NOT A HEX NUMBER
19617 M01S15773.dsdi +++| SA1 GHAA FETCH VALUE TO INCREMENT
19618 M01S15774.dsdi +++| SA2 A1+B1 FETCH SIGN
19619 M01S15775.dsdi +++| ERRNZ GHAA+1-GHAB
19620 M01S15776.dsdi +++| BX6 X2-X6
19621 M01S15777.dsdi +++| IX6 X1+X6
19622 M01S15778.dsdi +++| SA6 A1
19623 M01S15779.dsdi +++| JP GHA5 CHECK FOR END OF ADDRESS
19624 M01S15780.dsdi +++|
19625 M01S15781.dsdi +++| GHA6 LX2 59-P.REG-59+P.RMA
19626 M01S15782.dsdi +++| PL X2,ERR6 IF NOT A REGISTER
19627 M01S15783.dsdi +++| SA6 GHAB SAVE REGISTER POSITION
19628 M01S15784.dsdi +++| RJ GXA GET EXCHANGE ADDRESS
19629 M01S15785.dsdi +++| ZR B6,ERR6 IF NOT SPECIFIED
19630 M01S15786.dsdi +++| PL X2,ERR6 IF NOT AN EXCHANGE ADDRESS
19631 M01S15787.dsdi +++| SA1 GHAB FETCH REGISTER POSITION
19632 M01S15788.dsdi +++| SA2 X1
19633 M01S15789.dsdi +++| SA6 A1
19634 M01S15790.dsdi +++| SB2 X1-BUF
19635 M01S15791.dsdi +++| BX6 X2
19636 M01S15792.dsdi +++| NG B2,GHA7 IF PSEUDO REGISTER
19637 M01S15793.dsdi +++| SA1 A2+B1
19638 M01S15794.dsdi +++| SA3 A1+B1
19639 M01S15795.dsdi +++| LX1 16
19640 M01S15796.dsdi +++| LX2 32
19641 M01S15797.dsdi +++| BX6 X1+X3
19642 M01S15798.dsdi +++| BX6 X2+X6
19643 M01S15799.dsdi +++| GHA7 RJ EVA EXPAND VIRTUAL ADDRESS
19644 M01S15800.dsdi +++| SA1 GHAA GET REPLACEMENT BYTE VALUE
19645 M01S15801.dsdi +++| ZR X2,ERR44 IF NIL POINTER
19646 M01S15802.dsdi +++| SA7 A1 SAVE REGISTER VALUE
19647 M01S15803.dsdi +++| NG X1,GHA8 IF NO BYTE REPLACEMENT
19648 M01S15804.dsdi +++| BX7 X6+X1
19649 M01S15805.dsdi +++| SA7 A1
19650 M01S15806.dsdi +++| GHA8 SB2 GHAA (SEGMENT, EXCHANGE ADDRESS)
19651 M01S15807.dsdi +++| RJ SVA DETERMINE ASID
19652 M01S15808.dsdi +++| SA6 GHAA
19653 M01S15809.dsdi +++| JP GHA3 CHECK FOR PROPER ADDRESS TERMINATION
19654 M01S15810.dsdi +++|
19655 M01S15811.dsdi +++| GHAA DATA 0 BYTE OFFSET
19656 M01S15812.dsdi +++| GHAB DATA 0 EXCHANGE PACKAGE ADDRESS
19657 M01S15813.dsdi +++| GID SPACE 4,10
19658 M01S15814.dsdi +++|** GID - GET ELEMENT IDENTIFIER.
19659 M01S15815.dsdi +++|*
19660 M01S15816.dsdi +++|* ENTRY (X1) = RECORD IDENTIFIER.
19661 M01S15817.dsdi +++|*
| Line S15818 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
19662 M02S15818.271l739 ---|* EXIT (X6) = ELEMENT ID/10B.
19663 M01S00352.271l739 +++|* EXIT (X6) = ELEMENT ID/0#10.
19664 M01S00353.271l739 +++|* (X7) = ELEMENT ID.
19665 M01S15819.dsdi +++|*
19666 M01S15820.dsdi +++|* USES X - 5, 6, 7.
19667 M01S15821.dsdi +++|* A - 6.
19668 M01S15822.dsdi +++|*
19669 M01S15823.dsdi +++|* CALLS RDR, SFR.
19670 M01S15824.dsdi +++|
19671 M01S15825.dsdi +++|
19672 M01S15826.dsdi +++| GID SUBR ENTRY/EXIT
19673 M01S15827.dsdi +++| RJ RDR READ DUMP RECORD
19674 M01S15828.dsdi +++| ZR X2,ERR14 IF RECORD NOT FOUND
19675 M01S15829.dsdi +++| SX5 /IOU/EIMR ELEMENT ID REGISTER
19676 M01S15830.dsdi +++| RJ SFR SEARCH FOR REGISTER
19677 M01S15831.dsdi +++| NG X1,ERR14 IF REGISTER NOT FOUND
| Line S00085 Modification History |
M01 (Added by) | ns2620 |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
19678 M02S00085.271l739 ---| SX5 7777B CHECK FOR *I4C* IOU
| Line S15832 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
19679 M02S15832.271l739 ---| MX6 -4
19680 M01S00354.271l739 +++| MX5 -8
| Line S15833 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | ns2620 |
Seq # *Modification Id* Act
----------------------------+
19681 M02S15833.ns2620 ---| AX7 20
19682 M01S00086.ns2620 +++| AX7 16
| Line S00087 Modification History |
M01 (Added by) | ns2620 |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
19683 M02S00087.271l739 ---| BX5 X5*X7
| Line S00088 Modification History |
M01 (Added by) | ns2620 |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
19684 M02S00088.271l739 ---| AX7 4
| Line S15834 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
19685 M02S15834.271l739 ---| BX6 -X6*X7
| Line S00089 Modification History |
M01 (Added by) | ns2620 |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
19686 M02S00089.271l739 ---| SX5 X5-0#0242
| Line S00090 Modification History |
M01 (Added by) | ns2620 |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
19687 M02S00090.271l739 ---| ZR X5,ERR47 IF *I4C* IOU
19688 M01S00355.271l739 +++| BX7 -X5*X7
19689 M01S00356.271l739 +++| BX6 X7
19690 M01S00357.271l739 +++| AX6 4
19691 M01S15835.dsdi +++| EQ GIDX RETURN
19692 M01S15836.dsdi +++| GNF SPACE 4,21
19693 M01S15837.dsdi +++|** GNF - GET NEXT FILE.
19694 M01S15838.dsdi +++|*
19695 M01S15839.dsdi +++|* ENTRY FI = CURRENT FNT INDEX.
19696 M01S15840.dsdi +++|* CN = CONTROL POINT NUMBER.
19697 M01S15841.dsdi +++|* (RC) = RA OF CURRENT CONTROL POINT.
19698 M01S15842.dsdi +++|*
19699 M01S15843.dsdi +++|* EXIT X1 = 0 IF END OF FNT.
19700 M01S15844.dsdi +++|* .NE.0 IF FILE FOUND.
19701 M01S15845.dsdi +++|* FI IS UPDATED.
19702 M01S15846.dsdi +++|* GNFA = FILE INFORMATION AS FOLLOWS -
19703 M01S15847.dsdi +++|*
19704 M01S15848.dsdi +++|* +0 - FNT ORDINAL OF FILE.
19705 M01S15849.dsdi +++|* +1 - FNT.
19706 M01S15850.dsdi +++|* +2 - FST.
19707 M01S15851.dsdi +++|* +3 - FUT.
19708 M01S15852.dsdi +++|* +4 - EST ADDRESS.
19709 M01S15853.dsdi +++|* +5 - EST.
19710 M01S15854.dsdi +++|*
19711 M01S15855.dsdi +++|* SAVES X - 5.
19712 M01S15856.dsdi +++|* B - 1.
19713 M01S15857.dsdi +++|* A - 0,5.
19714 M01S15858.dsdi +++|
19715 M01S15859.dsdi +++|
19716 M01S15860.dsdi +++| GNF SUBR
19717 M01S15861.dsdi +++| SA1 F.TCMT
19718 M01S15862.dsdi +++| SB2 X1 TCMT TABLE BASE ADDRESS
19719 M01S15863.dsdi +++| SA1 F.TNFL FORM ADDRESS OF RA IN TNFL
19720 M01S15864.dsdi +++| SA2 L.TNFL
19721 M01S15865.dsdi +++| IX4 X1+X2
19722 M01S15866.dsdi +++| SA2 CN
19723 M01S15867.dsdi +++| SA1 NC
19724 M01S15868.dsdi +++| SX1 X1+B1
19725 M01S15869.dsdi +++| BX1 X1-X2
19726 M01S15870.dsdi +++| ZR X1,GNFX IF SYSTEM CONTROL POINT
19727 M01S15871.dsdi +++| SA5 FI
19728 M01S15872.dsdi +++| EQ GNF3 ENTER SEARCH LOOP
19729 M01S15873.dsdi +++|
19730 M01S15874.dsdi +++| GNF2 IX2 X4-X5 READ NEXT FNT ENTRY
19731 M01S15875.dsdi +++| SX5 X5+LENF ADVANCE FNT ORDINAL
19732 M01S15876.dsdi +++| SA1 X2
19733 M01S15877.dsdi +++| NZ X1,GNF4 IF ENTRY PRESENT
19734 M01S15878.dsdi +++| GNF3 SA1 L.TNFL
19735 M01S15879.dsdi +++| IX1 X1-X5
19736 M01S15880.dsdi +++| PL X1,GNF2 IF NOT END OF FNT
19737 M01S15881.dsdi +++| SX1 0
19738 M01S15882.dsdi +++| JP GNFX EXIT
19739 M01S15883.dsdi +++|
19740 M01S15884.dsdi +++|* SET FILE INFORMATION IN PARAMETER BLOCK.
19741 M01S15885.dsdi +++|
19742 M01S15886.dsdi +++| GNF4 BX6 X5 SAVE FNT ORDINAL FOR NEXT CALL
19743 M01S15887.dsdi +++| SA6 FI
19744 M01S15888.dsdi +++| IX7 X4-X2
19745 M01S15889.dsdi +++| SA7 GNFA SET FNT ORDINAL
19746 M01S15890.dsdi +++| BX6 X1 SET FNT CONTENTS
19747 M01S15891.dsdi +++| SA6 A7+B1
19748 M01S15892.dsdi +++| SA1 A1+B1
19749 M01S15893.dsdi +++| BX7 X1 SET FST CONTENTS
19750 M01S15894.dsdi +++| SA7 A6+B1
19751 M01S15895.dsdi +++| AX7 48
19752 M01S15896.dsdi +++| SX0 X7
19753 M01S15897.dsdi +++| SA1 A1+B1 READ FUT
19754 M01S15898.dsdi +++| BX6 X1 SET FUT
19755 M01S15899.dsdi +++| SA6 A7+B1
19756 M01S15900.dsdi +++| SA1 B2+ESTP GET EST POINTER WORD
19757 M01S15901.dsdi +++| AX1 36
19758 M01S15902.dsdi +++| SX1 X1+EQDE
19759 M01S15903.dsdi +++| R= X2,ESTE
19760 M01S15904.dsdi +++| IX0 X0*X2
19761 M01S15905.dsdi +++| IX7 X0+X1
19762 M01S15906.dsdi +++| SA7 A6+B1
19763 M01S15907.dsdi +++| SA1 X7+B2 READ EST
19764 M01S15908.dsdi +++| BX6 X1
19765 M01S15909.dsdi +++| SA6 A7+B1
19766 M01S15910.dsdi +++| SX1 B1 SET FILE FOUND
19767 M01S15911.dsdi +++| JP GNFX EXIT
19768 M01S15912.dsdi +++|
19769 M01S15913.dsdi +++| GNFA BSS 0 FILE PARAMETERS
19770 M01S15914.dsdi +++| LOC 0
19771 M01S15915.dsdi +++|
19772 M01S15916.dsdi +++| CON 0 FNT ORDINAL
19773 M01S15917.dsdi +++| CON 0 FNT
19774 M01S15918.dsdi +++| CON 0 FST
19775 M01S15919.dsdi +++| CON 0 FUT
19776 M01S15920.dsdi +++| CON 0 EST ADDRESS
19777 M01S15921.dsdi +++| CON 0 EST
19778 M01S15922.dsdi +++| LOC *O
19779 M01S00096.dsdi56 +++| GPS SPACE 4,15
19780 M01S00097.dsdi56 +++|** GPS - GET PP SAVE AREA ENTRY.
19781 M01S00098.dsdi56 +++|*
19782 M01S00099.dsdi56 +++|* EXIT (X5) = 0, IF PP NOT FOUND IN PP SAVE AREA.
19783 M01S00100.dsdi56 +++|*
19784 M01S00101.dsdi56 +++|* USES X - ALL.
19785 M01S00102.dsdi56 +++|* A - ALL.
19786 M01S00103.dsdi56 +++|* B - 2, 3, 4, 5, 6, 7.
19787 M01S00104.dsdi56 +++|*
| Line S00105 Modification History |
M01 (Added by) | dsdi56 |
M02 (Updated by) | ns2647 |
Seq # *Modification Id* Act
----------------------------+
19788 M02S00105.ns2647 ---|* CALLS PCM, SCM.
19789 M01S00225.ns2647 +++|* CALLS CPN, PCM, SCM.
19790 M01S00106.dsdi56 +++|*
19791 M01S00107.dsdi56 +++|* MACROS GETCM.
19792 M01S00108.dsdi56 +++|
19793 M01S00109.dsdi56 +++|
19794 M01S00110.dsdi56 +++| GPS SUBR ENTRY/EXIT
19795 M01S00111.dsdi56 +++| SA1 F.TCMT
19796 M01S00112.dsdi56 +++| SA3 X1+PPSP GET FWA AND NUMBER OF SAVE AREAS POSSIBLE
19797 M01S00113.dsdi56 +++| MX5 -12
19798 M01S00114.dsdi56 +++| BX5 -X5*X3 NUMBER OF SAVE AREA ENTRIES
19799 M01S00115.dsdi56 +++| ZR X5,GPSX IF NO ISHARED DEVICES
19800 M01S00116.dsdi56 +++| SA4 PC FWA OF PP COMMUNICATION AREA
| Line S00117 Modification History |
M01 (Added by) | dsdi56 |
M02 (Updated by) | ns2647 |
Seq # *Modification Id* Act
----------------------------+
19801 M02S00117.ns2647 ---| SA1 PP GET PP NUMBER
19802 M01S00226.ns2647 +++| SX4 X4+B1 OUTPUT REGISTER ADDRESS FOR PP 0
19803 M01S00118.dsdi56 +++| LX3 -12
19804 M01S00119.dsdi56 +++| SX6 X3-PPSA FWA OF SAVE AREAS - *PPSA*
| Line S00120 Modification History |
M01 (Added by) | dsdi56 |
M02 (Updated by) | ns2647 |
Seq # *Modification Id* Act
----------------------------+
19805 M02S00120.ns2647 ---| SX4 X4+B1 OUTPUT REGISER ADDRESS FOR PP 0
19806 M01S00121.dsdi56 +++| SA6 GPSB
| Line S00122 Modification History |
M01 (Added by) | dsdi56 |
M02 (Updated by) | ns2647 |
Seq # *Modification Id* Act
----------------------------+
19807 M02S00122.ns2647 ---| SX2 X1-12B
| Line S00123 Modification History |
M01 (Added by) | dsdi56 |
M02 (Updated by) | ns2647 |
Seq # *Modification Id* Act
----------------------------+
19808 M02S00123.ns2647 ---| NG X2,GPS1 IF IN LOWER BARREL(S)
| Line S00124 Modification History |
M01 (Added by) | dsdi56 |
M02 (Updated by) | ns2647 |
Seq # *Modification Id* Act
----------------------------+
19809 M02S00124.ns2647 ---| SX1 X1-6
| Line S00125 Modification History |
M01 (Added by) | dsdi56 |
M02 (Updated by) | ns2647 |
Seq # *Modification Id* Act
----------------------------+
19810 M02S00125.ns2647 ---| GPS1 LX1 3
| Line S00126 Modification History |
M01 (Added by) | dsdi56 |
M02 (Updated by) | ns2647 |
Seq # *Modification Id* Act
----------------------------+
19811 M02S00126.ns2647 ---| IX6 X1+X4 OUTPUT REGISTER ADDRESS FOR THIS PP
19812 M01S00227.ns2647 +++| RJ CPN GET CONVERTED PP NUMBER
19813 M01S00228.ns2647 +++| LX6 3
19814 M01S00229.ns2647 +++| IX6 X6+X4 OUTPUT REGISTER ADDRESS FOR THIS PP
19815 M01S00127.dsdi56 +++| SA6 GPSC
19816 M01S00128.dsdi56 +++| SA4 SBTL1 PRESERVE SUBTITLE
19817 M01S00129.dsdi56 +++| RJ SCM
19818 M01S00130.dsdi56 +++| BX6 X4 RESTORE SUBTITLE
19819 M01S00131.dsdi56 +++| SA7 RI
19820 M01S00132.dsdi56 +++| SA6 A4
19821 M01S00133.dsdi56 +++|
19822 M01S00134.dsdi56 +++|* CHECK NEXT ENTRY.
19823 M01S00135.dsdi56 +++|
19824 M01S00136.dsdi56 +++| GPS2 ZR X5,GPSX IF PP NOT FOUND
19825 M01S00137.dsdi56 +++| SX7 X5-1
19826 M01S00138.dsdi56 +++| SA3 GPSB GET PP SAVE ENTRY FWA
19827 M01S00139.dsdi56 +++| SA7 GPSA STORE INDEX
19828 M01S00140.dsdi56 +++| SX7 X3+PPSA
19829 M01S00141.dsdi56 +++| SA7 A3
19830 M01S00142.dsdi56 +++| SX3 X7
19831 M01S00143.dsdi56 +++| RJ PCM POSITION DUMP FILE
19832 M01S00144.dsdi56 +++| GETCM GET FWA OF THIS PP BUFFER IN X6
19833 M01S00145.dsdi56 +++| SA1 GPSC GET OUTPUT REGISTER ADDRESS FOR THIS PP
19834 M01S00146.dsdi56 +++| SA5 GPSA RESTORE INDEX
19835 M01S00147.dsdi56 +++| MX3 12
19836 M01S00148.dsdi56 +++| BX3 X3*X6
19837 M01S00149.dsdi56 +++| LX3 12
19838 M01S00150.dsdi56 +++| BX1 X1-X3
19839 M01S00151.dsdi56 +++| NZ X1,GPS2 IF PP DATA NOT FOUND IN PP SAVE AREA
19840 M01S00152.dsdi56 +++| SA6 PSAV SAVE THE FIRST WORD
19841 M01S00153.dsdi56 +++| SA6 GPSD
19842 M01S00154.dsdi56 +++| GETCM PSAV+1,PPSA-1 GET REST OF PP SAVE AREA
19843 M01S00155.dsdi56 +++|
19844 M01S00156.dsdi56 +++|* MOVE BLOCKS FROM *PSAV* TO *PBUF*.
19845 M01S00157.dsdi56 +++|
19846 M01S00158.dsdi56 +++| SX6 1S1 2**N-1 NUMBER OF BLOCKS TO MOVE
19847 M01S00159.dsdi56 +++| SA4 PSAV+8 FWA OF PP MEMORY IN SAVE BUFFER
19848 M01S00160.dsdi56 +++| SB6 PBUF+4095/5 LAST WORD OF *PBUF*
19849 M01S00161.dsdi56 +++| SA6 GPSA
19850 M01S00162.dsdi56 +++| GPS3 SA2 GPSA
19851 M01S00163.dsdi56 +++| SA3 GPSD
19852 M01S00164.dsdi56 +++| SA0 60 SET CONSTANT
19853 M01S00165.dsdi56 +++| MX5 -24 INSURE EXIT CONDTION
19854 M01S00166.dsdi56 +++| AX7 X2,B1
19855 M01S00167.dsdi56 +++| ZR X2,GPSX IF COMPLETE
19856 M01S00168.dsdi56 +++| SA7 A2
19857 M01S00169.dsdi56 +++| BX6 X3
19858 M01S00170.dsdi56 +++| BX3 -X5*X3
19859 M01S00171.dsdi56 +++| LX6 12 POSITION NEXT PAIR OF BYTES
19860 M01S00172.dsdi56 +++| AX3 12 FIRST BYTE ADDRESS
19861 M01S00173.dsdi56 +++| SA6 A3
19862 M01S00174.dsdi56 +++| SX7 A0
19863 M01S00175.dsdi56 +++| AX6 48 WORD COUNT OF SAVE BLOCK
19864 M01S00176.dsdi56 +++| IX6 X6*X7
19865 M01S00177.dsdi56 +++| SB5 X6 NUMBER OF BITS TO MOVE IN THIS BLOCK
19866 M01S00178.dsdi56 +++| SX5 5
19867 M01S00179.dsdi56 +++| IX0 X3/X5
19868 M01S00180.dsdi56 +++| SX5 5
19869 M01S00181.dsdi56 +++| SB7 X0+PBUF FIRST *PBUF* WORD TO BE PARTIALLY REPLACED
19870 M01S00182.dsdi56 +++| SX3 X3+ CLEAR PACKING DONE BY *IXX/X*
19871 M01S00183.dsdi56 +++| IX0 X0*X5
19872 M01S00184.dsdi56 +++| IX0 X3-X0 NUMBER OF BYTES TO PRESERVE IN FIRST WORD
19873 M01S00185.dsdi56 +++| SX5 12
19874 M01S00186.dsdi56 +++| IX6 X0*X5
19875 M01S00187.dsdi56 +++| SB4 B0 NUMBER OF BITS MOVED
19876 M01S00188.dsdi56 +++|
19877 M01S00189.dsdi56 +++|* COMPUTE SHIFT COUNTS AND MASKS.
19878 M01S00190.dsdi56 +++|
19879 M01S00191.dsdi56 +++| GPS4 SB2 X6 NUMBER OF BITS TO PRESERVE
19880 M01S00192.dsdi56 +++| SB3 A0
19881 M01S00193.dsdi56 +++| BX7 X4 ALLOW SAVED BLOCK TO START AT 7777B
19882 M01S00194.dsdi56 +++| BX0 X0-X0 SET UP N-BIT MASK FOR BITS TO PRESERVE
19883 M01S00195.dsdi56 +++| ZR B2,GPS5 IF NO OFFSETTING REQUIRED
19884 M01S00196.dsdi56 +++| SA2 B7 GET FIRST *PBUF* WORD TO REPLACE
19885 M01S00197.dsdi56 +++| SB3 B2-B1
19886 M01S00198.dsdi56 +++| MX0 1 SET UP N-BIT MASK FOR BITS TO PRESERVE
19887 M01S00199.dsdi56 +++| AX0 B3
19888 M01S00200.dsdi56 +++| SB3 A0-B2 NUMBER OF BITS TO REPLACE
19889 M01S00201.dsdi56 +++| BX7 X0*X2 BITS TO BE PRESERVED FROM *PBUF* WORD
19890 M01S00202.dsdi56 +++|
19891 M01S00203.dsdi56 +++|* MOVE PP BYTES FROM *PSAV* TO *PBUF*.
19892 M01S00204.dsdi56 +++|
19893 M01S00205.dsdi56 +++| GPS5 LX4 B3 GET REPLACEMENT BITS
19894 M01S00206.dsdi56 +++| BX1 -X0*X4
19895 M01S00207.dsdi56 +++| BX7 X7+X1
19896 M01S00208.dsdi56 +++| SA7 B7
19897 M01S00209.dsdi56 +++| EQ B7,B6,GPS6 IF LAST WORD OF *PBUF*
19898 M01S00210.dsdi56 +++| SB4 B4+A0 INCREMENT BIT COUNTER
19899 M01S00211.dsdi56 +++| BX7 X0*X4 NEXT WORD-S UPPER BITS
19900 M01S00212.dsdi56 +++| SA4 A4+B1 GET NEXT WORD-S LOWER BITS FROM *PSAV*
19901 M01S00213.dsdi56 +++| SB7 B7+B1 INCR *PBUF* POINTER
19902 M01S00214.dsdi56 +++| LT B4,B5,GPS5 IF MORE BITS TO BE MOVED
19903 M01S00215.dsdi56 +++|
19904 M01S00216.dsdi56 +++|* SET THE LAST BYTES FROM *PSAV* IN *PBUF*.
19905 M01S00217.dsdi56 +++|
19906 M01S00218.dsdi56 +++| SA3 B7 GET THE UNREPLACED BITS FROM *PBUF*
19907 M01S00219.dsdi56 +++| BX3 -X0*X3
19908 M01S00220.dsdi56 +++| BX7 X7+X3
19909 M01S00221.dsdi56 +++| SA7 B7
19910 M01S00222.dsdi56 +++| NE B7,B6,GPS3 IF NOT LAST WORD OF *PBUF*
19911 M01S00223.dsdi56 +++|
19912 M01S00224.dsdi56 +++|* MOVE BYTE 7777B INTO *PBUF*.
19913 M01S00225.dsdi56 +++|
19914 M01S00226.dsdi56 +++| GPS6 MX2 12 STORE ONLY BYTE 7777B
19915 M01S00227.dsdi56 +++| BX6 X2*X7
19916 M01S00228.dsdi56 +++| LX7 12 MOVE BYTE 0 TO TOP OF WORD
19917 M01S00229.dsdi56 +++| SA6 B7
19918 M01S00230.dsdi56 +++| SB7 PBUF RESET *PBUF* POINTER
19919 M01S00231.dsdi56 +++| NZ B2,GPS7 IF OFFSETTING WAS REQUIRED
19920 M01S00232.dsdi56 +++| SB2 A0
19921 M01S00233.dsdi56 +++| MX0 60
19922 M01S00234.dsdi56 +++| SA4 A4+B1
19923 M01S00235.dsdi56 +++| SB4 B4+A0
19924 M01S00236.dsdi56 +++| GPS7 SX6 B2-12
19925 M01S00237.dsdi56 +++| SA3 B7 GET ORIGINAL BYTES 0-4
19926 M01S00238.dsdi56 +++| LX4 B2 RESTORE REPLACEMENT BITS
19927 M01S00239.dsdi56 +++| ZR X6,GPS8 IF NO OFFSETTING WILL BE REQUIRED
19928 M01S00240.dsdi56 +++|
19929 M01S00241.dsdi56 +++|* MOVE BYTE 0000 TO *PBUF**
19930 M01S00242.dsdi56 +++|
19931 M01S00243.dsdi56 +++| BX0 -X2*X0 ADJUST MASK
19932 M01S00244.dsdi56 +++| LX0 12
19933 M01S00245.dsdi56 +++| BX7 X0*X7
19934 M01S00246.dsdi56 +++| BX3 -X0*X3
19935 M01S00247.dsdi56 +++| BX7 X7+X3
19936 M01S00248.dsdi56 +++| SA7 B7
19937 M01S00249.dsdi56 +++| GPS8 LT B4,B5,GPS4 IF MORE BYTES IN BLOCK
19938 M01S00250.dsdi56 +++| EQ GPS3 CHECK NEXT BLOCK
19939 M01S00251.dsdi56 +++|
19940 M01S00252.dsdi56 +++|
19941 M01S00253.dsdi56 +++| GPSA BSS 1 COUNTER
19942 M01S00254.dsdi56 +++| GPSB BSS 1 FWA OF PP SAVE AREA BUFFER
19943 M01S00255.dsdi56 +++| GPSC BSS 1 OUTPUT REGISTER ADDRESS FOR THIS PP
19944 M01S00256.dsdi56 +++| GPSD BSS 1 SAVED DATA PARAMETERS
19945 M01S15923.dsdi +++| GRV SPACE 4,10
19946 M01S15924.dsdi +++|** GRV - GET R-REGISTER VALUE.
19947 M01S15925.dsdi +++|*
19948 M01S15926.dsdi +++|* ENTRY (PBUF) = IOU MEMORY RECORD.
19949 M01S15927.dsdi +++|*
| Line S15928 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi64 |
Seq # *Modification Id* Act
----------------------------+
19950 M02S15928.dsdi64 ---|* EXIT (X1) = 22/R-REG, 38/0
19951 M01S00001.dsdi64 +++|* EXIT (X1) = 24/R-REG, 36/0
19952 M01S15929.dsdi +++|*
19953 M01S15930.dsdi +++|* USES A - 1, 2.
19954 M01S15931.dsdi +++|* X - 1, 2, 3, 6.
19955 M01S15932.dsdi +++|
19956 M01S15933.dsdi +++|
19957 M01S15934.dsdi +++| GRV1 SA1 PBUF+819 FIRST PART OF R-REGISTER (C170-865/875)
19958 M01S15935.dsdi +++| SA2 A1+B1 SECOND PART
19959 M01S15936.dsdi +++| MX3 -12
19960 M01S15937.dsdi +++| BX1 -X3*X1
19961 M01S15938.dsdi +++| MX3 12
19962 M01S15939.dsdi +++| BX2 X3*X2
19963 M01S15940.dsdi +++| BX1 X1+X2
19964 M01S15941.dsdi +++| LX1 -12 POSITION R-REGISTER
19965 M01S15942.dsdi +++|
19966 M01S15943.dsdi +++| GRV SUBR ENTRY/EXIT
19967 M01S15944.dsdi +++| SA1 AP
19968 M01S15945.dsdi +++| ZR X1,GRV1 IF NOT 180 CLASS MACHINE
| Line S15946 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi74 |
Seq # *Modification Id* Act
----------------------------+
19969 M02S15946.dsdi74 ---| SA1 C4
| Line S15947 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi74 |
Seq # *Modification Id* Act
----------------------------+
19970 M02S15947.dsdi74 ---| NZ X1,GRV2 IF I4 IOU
19971 M01S00060.dsdi74 +++| SA1 IO
| Line S00061 Modification History |
M01 (Added by) | dsdi74 |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
19972 M02S00061.271l739 ---| ZR X1,GRV2 IF I4 IOU
19973 M01S00358.271l739 +++| ZR X1,GRV2 IF I4A OR I4S IOU
19974 M01S15948.dsdi +++| SA1 PBUF+1092 GET R-REGISTER UPPER PART
19975 M01S15949.dsdi +++| SA2 A1+B1 LOWER PART
19976 M01S15950.dsdi +++| MX3 12 PACK INTO 22 BITS
19977 M01S15951.dsdi +++| BX1 -X3*X1
19978 M01S15952.dsdi +++| BX2 X3*X2
19979 M01S15953.dsdi +++| IX6 X1+X2
19980 M01S15954.dsdi +++| LX6 -24
19981 M01S15955.dsdi +++| BX1 X3*X6
19982 M01S15956.dsdi +++| LX3 -16
19983 M01S15957.dsdi +++| BX2 X3*X6
19984 M01S15958.dsdi +++| LX2 4
19985 M01S15959.dsdi +++| BX1 X1+X2
19986 M01S15960.dsdi +++| EQ GRVX RETURN
19987 M01S15961.dsdi +++|
19988 M01S15962.dsdi +++| GRV2 SA1 PBUF+2184 GET R-REGISTER BITS (36-41)
19989 M01S15963.dsdi +++| MX3 -6
19990 M01S15964.dsdi +++| BX2 -X3*X1
19991 M01S15965.dsdi +++| LX2 59-5
19992 M01S15966.dsdi +++| SA1 A1+B1 GET REMAINDER OF R-REGISTER (42-57)
19993 M01S15967.dsdi +++| MX3 4
19994 M01S15968.dsdi +++| BX6 X3*X1
19995 M01S15969.dsdi +++| LX6 -6
19996 M01S15970.dsdi +++| BX2 X2+X6
19997 M01S15971.dsdi +++| MX3 12
19998 M01S15972.dsdi +++| LX3 -8
19999 M01S15973.dsdi +++| BX6 X3*X1
20000 M01S15974.dsdi +++| LX6 -2
20001 M01S15975.dsdi +++| BX1 X2+X6
20002 M01S00002.dsdi64 +++| LX1 -2 SHIFT RESULT FOR PROPER FORMAT
20003 M01S15976.dsdi +++| EQ GRVX RETURN
20004 M01S15977.dsdi +++| GSR SPACE 4,12
20005 M01S15978.dsdi +++|** GSR - GET SELECTED RECORD.
20006 M01S15979.dsdi +++|*
20007 M01S15980.dsdi +++|* ENTRY X6 = REQUESTED RECORD NAME.
20008 M01S15981.dsdi +++|* = 0 IF NEXT RECORD REQUESTED.
20009 M01S15982.dsdi +++|*
20010 M01S15983.dsdi +++|* EXIT X7 = 0 IF RECORD NOT FOUND.
20011 M01S15984.dsdi +++|* = 1 IF NAMED RECORD.
20012 M01S15985.dsdi +++|* = 2 IF RECORD NAME = -*-.
20013 M01S15986.dsdi +++|*
20014 M01S15987.dsdi +++|* USES ALL REGISTERS.
20015 M01S15988.dsdi +++|*
20016 M01S15989.dsdi +++|* CALLS CIO=,RDO=,RDW=,WNB=.
20017 M01S15990.dsdi +++|
20018 M01S15991.dsdi +++|
20019 M01S15992.dsdi +++| GSR SUBR
20020 M01S15993.dsdi +++| BX5 X6 SAVE RECORD NAME
20021 M01S15994.dsdi +++| RECALL J
20022 M01S15995.dsdi +++| GSR1 READ J
20023 M01S15996.dsdi +++| READO X2 READ RECORD NAME
20024 M01S15997.dsdi +++| SX7 0 PRESET RECORD NOT FOUND
20025 M01S15998.dsdi +++| NZ X1,GSRX IF EMPTY RECORD OR EOF
20026 M01S15999.dsdi +++|
20027 M01S16000.dsdi +++|* REMOVE BLANKS FROM NAME.
20028 M01S16001.dsdi +++|
20029 M01S16002.dsdi +++| MX0 -6
20030 M01S16003.dsdi +++| SB2 7
20031 M01S16004.dsdi +++| GSR2 LX6 6
20032 M01S16005.dsdi +++| BX3 -X0*X6
20033 M01S16006.dsdi +++| SX2 X3-1R
20034 M01S16007.dsdi +++| SB2 B2-B1
20035 M01S16008.dsdi +++| NZ X2,GSR3 IF NOT BLANK
20036 M01S16009.dsdi +++| BX6 X0*X6 REMOVE BLANK
20037 M01S16010.dsdi +++| GSR3 NZ B2,GSR2 LOOP
20038 M01S16011.dsdi +++| LX6 3*6
20039 M01S16012.dsdi +++| BX4 X6-X5
20040 M01S16013.dsdi +++| SX7 1
20041 M01S16014.dsdi +++| ZR X5,GSRX IF NEXT RECORD REQUESTED
20042 M01S16015.dsdi +++| SA1 =1L*
20043 M01S16016.dsdi +++| SX7 X7+B1
20044 M01S16017.dsdi +++| BX1 X1-X5
20045 M01S16018.dsdi +++| ZR X1,GSRX IF READ TO EOF REQUESTED
20046 M01S16019.dsdi +++| SX7 1
20047 M01S16020.dsdi +++| ZR X4,GSRX IF NAMED RECORD FOUND
20048 M01S16021.dsdi +++| GSR4 READW J,BUF,BUFL SKIP TO NEXT RECORD
20049 M01S16022.dsdi +++| ZR X1,GSR4 IF NOT END OF RECORD
20050 M01S16023.dsdi +++| JP GSR1 CHECK NEXT RECORD
20051 M01S16024.dsdi +++| GTD SPACE 4,12
20052 M01S16025.dsdi +++|** GTD - GENERATE DETAILED TABLE DUMP.
20053 M01S16026.dsdi +++|*
20054 M01S16027.dsdi +++|* ENTRY (X1) = FORMAT TABLE POINTERS.
20055 M01S16028.dsdi +++|* 24/0,18/LEFT COLUMN FWA,18/RIGHT COLUMN FWA
20056 M01S16029.dsdi +++|* (B2) = TABLE ADDRESS IN CORE.
20057 M01S16030.dsdi +++|* (FW) = TABLE ADDRESS IN DUMP FILE.
20058 M01S16031.dsdi +++|*
20059 M01S16032.dsdi +++|* USES X - 1, 2, 6, 7.
20060 M01S16033.dsdi +++|* A - 1, 2, 6, 7.
20061 M01S16034.dsdi +++|* B - 2, 7.
20062 M01S16035.dsdi +++|*
20063 M01S16036.dsdi +++|* CALLS PTL, SSB.
20064 M01S16037.dsdi +++|*
20065 M01S16038.dsdi +++|* MACROS PRINT.
20066 M01S16039.dsdi +++|
20067 M01S16040.dsdi +++|
20068 M01S16041.dsdi +++| GTD SUBR
20069 M01S16042.dsdi +++| SX6 X1
20070 M01S16043.dsdi +++| SA6 GTDA SET RIGHT COLUMN TABLE POINTER
20071 M01S16044.dsdi +++| SX7 B2
20072 M01S16045.dsdi +++| SA7 GTDC SAVE DATA ADDRESS
20073 M01S16046.dsdi +++| AX1 18
20074 M01S16047.dsdi +++| SX6 X1
20075 M01S16048.dsdi +++| SA6 GTDB SET LEFT COLUMN TABLE POINTER
20076 M01S16049.dsdi +++| RJ SSB CLEAR PRINT STRING
20077 M01S16050.dsdi +++| GTD1 SA1 GTDB
20078 M01S16051.dsdi +++| SA2 GTDC
20079 M01S16052.dsdi +++| SB2 X2+ SET DATA ADDRESS
20080 M01S16053.dsdi +++| SB7 PRBF
20081 M01S16054.dsdi +++| RJ PTL FORMAT LEFT COLUMN
20082 M01S16055.dsdi +++| SA1 GTDA
20083 M01S16056.dsdi +++| ZR X1,GTD2 IF ONLY 1 COLUMN TO BE DUMPED
20084 M01S16057.dsdi +++| NG X2,GTDX IF END OF DUMP
20085 M01S16058.dsdi +++| SB7 PRBF+69
20086 M01S16059.dsdi +++| RJ PTL FORMAT RIGHT COLUMN
20087 M01S16060.dsdi +++| PRINT CCCH,B7-CCCH PRINT 2 COLUMNS
20088 M01S16061.dsdi +++| EQ GTD1 CONTINUE
20089 M01S16062.dsdi +++|
20090 M01S16063.dsdi +++| GTD2 PRINT CCCH,B7-CCCH PRINT ONLY 1 COLUMN
20091 M01S16064.dsdi +++| SA1 GTDB
20092 M01S16065.dsdi +++| SA2 X1+
20093 M01S16066.dsdi +++| ZR X2,GTDX IF END OF DUMP
20094 M01S16067.dsdi +++| PL X2,GTD1 IF NOT AT END OF LEFT COLUMN
20095 M01S16068.dsdi +++| SX6 X1+B1 BEGIN DUMP OF RIGHT COLUMN
20096 M01S16069.dsdi +++| SA6 A1
20097 M01S16070.dsdi +++| EQ GTD1 CONTINUE
20098 M01S16071.dsdi +++|
20099 M01S16072.dsdi +++| GTDA BSS 1 RIGHT COLUMN FORMAT TABLE POINTER
20100 M01S16073.dsdi +++| GTDB BSS 1 LEFT COLUMN FORMAT TABLE POINTER
20101 M01S16074.dsdi +++| GTDC BSS 1 TABLE DATA ADDRESS
20102 M01S16075.dsdi +++| GTE SPACE 4,10
20103 M01S16076.dsdi +++|** GTE - GET TABLE ENTRY.
20104 M01S16077.dsdi +++|*
20105 M01S16078.dsdi +++|* ENTRY (X0) = ENTRY FWA RELATIVE TO TABLE FWA
20106 M01S16079.dsdi +++|* IN DUMP FILE.
20107 M01S16080.dsdi +++|* (X1) = ENTRY LENGTH.
20108 M01S16081.dsdi +++|* (X2) = TABLE LENGTH.
20109 M01S16082.dsdi +++|* (X3) = TABLE FWA IN DUMP FILE.
20110 M01S16083.dsdi +++|* = 0, IF CM BUFFER REQUIRES INITIAL READ.
20111 M01S16084.dsdi +++|* (X4) = ENTRY NUMBER.
20112 M01S16085.dsdi +++|*
20113 M01S16086.dsdi +++|* EXIT (X5) = ABSOLUTE ENTRY FWA IN CM BUFFER.
20114 M01S16087.dsdi +++|*
20115 M01S16088.dsdi +++|* CM BUFFER CONTAINS NEW TABLE DATA, IF DESIRED
20116 M01S16089.dsdi +++|* ENTRY WAS NOT FOUND IN ORIGINAL DATA.
20117 M01S16090.dsdi +++|*
20118 M01S16091.dsdi +++|* USES X - 2, 3, 5, 6.
20119 M01S16092.dsdi +++|* A - 3, 6.
20120 M01S16093.dsdi +++|* B - 2.
20121 M01S16094.dsdi +++|*
20122 M01S16095.dsdi +++|* CALLS POM.
20123 M01S16096.dsdi +++|*
20124 M01S16097.dsdi +++|* MACROS GETCM.
20125 M01S16098.dsdi +++|
20126 M01S16099.dsdi +++|
20127 M01S16100.dsdi +++| GTE SUBR ENTRY/EXIT
20128 M01S16101.dsdi +++| NZ X3,GTE1 IF FIRST ACCESS OF TABLE
20129 M01S16102.dsdi +++| SA3 GTEB GET LAST ENTRY NUMBER
20130 M01S16103.dsdi +++| IX3 X3-X4
20131 M01S16104.dsdi +++| NG X3,GTE2 IF ENTRY NOT IN CM BUFFER
20132 M01S16105.dsdi +++| SA3 GTEA GET FIRST ENTRY NUMBER
20133 M01S16106.dsdi +++| IX3 X4-X3
20134 M01S16107.dsdi +++| NG X3,GTE2 IF ENTRY NOT IN CM BUFFER
20135 M01S16108.dsdi +++| IX3 X3*X1 SET FWA OF ENTRY IN CM BUFFER
20136 M01S16109.dsdi +++| SX5 X3+BUF
20137 M01S16110.dsdi +++| EQ GTEX RETURN
20138 M01S16111.dsdi +++|
20139 M01S16112.dsdi +++|* READ TABLE ENTRIES INTO CM BUFFER.
20140 M01S16113.dsdi +++|
20141 M01S16114.dsdi +++| GTE1 SX6 X3+
20142 M01S16115.dsdi +++| SA6 GTEC STORE FWA OF TABLE
20143 M01S16116.dsdi +++| GTE2 SX6 X4+
20144 M01S16117.dsdi +++| SA6 GTEA STORE FIRST ENTRY NUMBER
20145 M01S16118.dsdi +++| IX2 X2-X0
20146 M01S16119.dsdi +++| SX3 X2-BUFL
20147 M01S16120.dsdi +++| NG X3,GTE3 IF CM BUFFER NOT FILLED
20148 M01S16121.dsdi +++| SX2 BUFL SET BUFFER LENGTH = BUFFER SIZE
20149 M01S16122.dsdi +++| GTE3 SX5 X2 SET BUFFER LENGTH = REST OF TABLE
20150 M01S16123.dsdi +++| IX3 X2/X1 NUMBER OF ENTRIES THAT FIT IN CM BUFFER
20151 M01S16124.dsdi +++| IX3 X4+X3
20152 M01S16125.dsdi +++| SX6 X3-1
20153 M01S16126.dsdi +++| SA6 GTEB STORE LAST ENTRY NUMBER
20154 M01S16127.dsdi +++| SA3 GTEC GET FWA OF TABLE
20155 M01S16128.dsdi +++| IX6 X3+X0 FIND FWA OF DESIRED ENTRY
20156 M01S16129.dsdi +++| SA6 CPRA
20157 M01S16130.dsdi +++| SB2 A6
20158 M01S16131.dsdi +++| RJ POM POSITION TO FWA OF ENTRY
20159 M01S16132.dsdi +++| GETCM BUF,X5 READ TABLE ENTRIES
20160 M01S16133.dsdi +++| SX5 BUF SET FWA OF ENTRY IN CM BUFFER
20161 M01S16134.dsdi +++| EQ GTEX RETURN
20162 M01S16135.dsdi +++|
20163 M01S16136.dsdi +++| GTEA BSS 1 FIRST ENTRY NUMBER IN CM BUFFER
20164 M01S16137.dsdi +++| GTEB BSS 1 LAST ENTRY NUMBER IN CM BUFFER
20165 M01S16138.dsdi +++| GTEC BSS 1 FWA OF TABLE BEING ACCESSED
| Line S16139 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act
----------------------------+
20166 M02S16139.dsdi67 ---| GXA SPACE 4,10
20167 M01S00210.dsdi67 +++| GXA SPACE 4,15
20168 M01S16140.dsdi +++|** GXA - GET EXCHANGE PACKAGE ADDRESS.
20169 M01S16141.dsdi +++|*
20170 M01S16142.dsdi +++|* CRACK EXCHANGE PACKAGE ADDRESS PARAMETER.
20171 M01S16143.dsdi +++|*
20172 M01S16144.dsdi +++|* ENTRY DIRECTIVE IN BUFFER.
20173 M01S16145.dsdi +++|*
20174 M01S16146.dsdi +++|* EXIT (B6) = 0, IF NO TOKEN OBTAINED FROM *GAT*.
20175 M01S16147.dsdi +++|* (X2) .LT. 0, IF EXCHANGE PACKAGE ADDRESS FOUND.
20176 M01S16148.dsdi +++|* (X6) = 12/0, 16/STL, 32/STA.
20177 M01S16149.dsdi +++|*
| Line S16150 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act
----------------------------+
20178 M02S16150.dsdi67 ---|* USES X - 1, 2, 4, 6.
20179 M01S00211.dsdi67 +++|* USES X - 1, 2, 3, 4, 6.
20180 M01S16151.dsdi +++|* B - 6.
20181 M01S16152.dsdi +++|*
20182 M01S16153.dsdi +++|* CALLS CSI, GAT, PTX, RMB.
| Line S16154 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi67 |
Seq # *Modification Id* Act
----------------------------+
20183 M02S16154.dsdi67 ---|*
20184 M01S16155.dsdi +++|
20185 M01S16156.dsdi +++|
20186 M01S16157.dsdi +++| GXA SUBR ENTRY/EXIT
20187 M01S16158.dsdi +++| RJ GAT GET ADDRESS TOKEN.
20188 M01S16159.dsdi +++| ZR B6,GXAX IF NOT SPECIFIED
20189 M01S16160.dsdi +++| BX4 X2+X4
20190 M01S16161.dsdi +++| SB6 A1
20191 M01S16162.dsdi +++| PL X4,GXAX IF NOT A VALID EXCHANGE PACKAGE SYMBOL
20192 M01S00212.dsdi67 +++| SX3 B0+ SET NO RADIAL MCI DISPLAY
20193 M01S16163.dsdi +++| RJ PTX POSITION TO EXCHANGE PACKAGE
20194 M01S16164.dsdi +++| SX6 51
20195 M01S16165.dsdi +++| SX1 0
20196 M01S16166.dsdi +++| RJ RMB READ MEMORY BLOCK
20197 M01S16167.dsdi +++| RJ CSI COLLECT SEGMENT INFORMATION
20198 M01S16168.dsdi +++| SB6 B1
20199 M01S16169.dsdi +++| MX2 1
20200 M01S16170.dsdi +++| JP GXAX RETURN
20201 M01S16171.dsdi +++| HTS SPACE 4,15
20202 M01S16172.dsdi +++|** HTS - HEX TO STRING BUFFER.
20203 M01S16173.dsdi +++|*
20204 M01S16174.dsdi +++|* ENTRY (X1) = HEX DIGITS LEFT JUSTIFIED.
20205 M01S16175.dsdi +++|* (B6) = NUMBER OF DIGITS TO CONVERT.
20206 M01S16176.dsdi +++|* (B7) = ADDRESS OF STRING BUFFER.
20207 M01S16177.dsdi +++|*
20208 M01S16178.dsdi +++|* EXIT (B7) IS UPDATED.
20209 M01S16179.dsdi +++|* (X1) IS LEFT SHIFTED (B6)*4 PLACES.
20210 M01S16180.dsdi +++|*
20211 M01S16181.dsdi +++|* USES X - 0, 1, 2, 3, 7.
20212 M01S16182.dsdi +++|* A - 7.
20213 M01S16183.dsdi +++|* B - 6, 7.
20214 M01S16184.dsdi +++|
20215 M01S16185.dsdi +++|
20216 M01S16186.dsdi +++| HTS SUBR ENTRY/EXIT
20217 M01S16187.dsdi +++| MX0 -4 DIGIT MASK
20218 M01S16188.dsdi +++| HTS1 LX1 4
20219 M01S16189.dsdi +++| BX3 -X0*X1
20220 M01S16190.dsdi +++| SX7 X3+1R0 ASSUME DIGIT .LT. 0#A
20221 M01S16191.dsdi +++| SX3 X3-0#A
20222 M01S16192.dsdi +++| NG X3,HTS2 IF DIGIT .LT. 0#A
20223 M01S16193.dsdi +++| SX7 X3+1RA SET A - F
20224 M01S16194.dsdi +++| HTS2 SA7 B7
20225 M01S16195.dsdi +++| SB7 B7+B1
20226 M01S16196.dsdi +++| SB6 B6-B1
20227 M01S16197.dsdi +++| NZ B6,HTS1 IF MORE DIGITS
20228 M01S16198.dsdi +++| EQ HTSX RETURN
20229 M01S16199.dsdi +++| ICT SPACE 4,8
20230 M01S16200.dsdi +++|** ICT - INITIALIZE CHANNEL TABLE.
20231 M01S16201.dsdi +++|*
20232 M01S16202.dsdi +++|* EXIT (BUF - BUF+CTALL*5) = CHANNEL STATUS TABLE
20233 M01S16203.dsdi +++|* RESERVATION BYTES, LEFT JUSTIFIED.
20234 M01S16204.dsdi +++|*
20235 M01S16205.dsdi +++|* USES X - 0, 1, 2, 6.
20236 M01S16206.dsdi +++|* A - 1, 2, 6.
20237 M01S16207.dsdi +++|* B - 2, 3, 4, 5.
20238 M01S16208.dsdi +++|
20239 M01S16209.dsdi +++|
20240 M01S16210.dsdi +++| ICT SUBR
20241 M01S16211.dsdi +++| SA1 F.TCMT
20242 M01S16212.dsdi +++| SA2 X1+CHTP CHANNEL STATUS TABLE FWA
20243 M01S16213.dsdi +++| AX2 12
20244 M01S16214.dsdi +++| SB2 X2
20245 M01S16215.dsdi +++| SB2 X1+B2
20246 M01S16216.dsdi +++| MX0 12
20247 M01S16217.dsdi +++| SB5 B2+CTALL CHANNEL STATUS TABLE LWA+1
20248 M01S16218.dsdi +++| SB3 BUF
20249 M01S16219.dsdi +++| ICT1 SB4 5 BYTE COUNTER
20250 M01S16220.dsdi +++| SA2 B2+ READ NEXT TABLE WORD
20251 M01S16221.dsdi +++| ICT2 BX6 X0*X2 EXTRACT RESERVATION BYTE
20252 M01S16222.dsdi +++| LX2 12
20253 M01S16223.dsdi +++| SA6 B3
20254 M01S16224.dsdi +++| SB4 B4-B1 COUNT BYTE
20255 M01S16225.dsdi +++| SB3 B3+B1
20256 M01S16226.dsdi +++| NZ B4,ICT2 IF MORE BYTES IN THIS WORD
20257 M01S16227.dsdi +++| SB2 B2+B1 ADVANCE TABLE POINTER
20258 M01S16228.dsdi +++| LT B2,B5,ICT1 IF MORE TABLE ENTRIES
20259 M01S16229.dsdi +++| JP ICTX EXIT
20260 M01S16230.dsdi +++| IMR SPACE 4,15
20261 M01S16231.dsdi +++|** IMR - PROCESS IOU MAINTENANCE REGISTER RECORD.
20262 M01S16232.dsdi +++|*
20263 M01S16233.dsdi +++|* ENTRY VIA UNCONDITIONAL JUMP.
20264 M01S16234.dsdi +++|*
20265 M01S16235.dsdi +++|* EXIT TO *RBI2* IF NORMAL.
| Line S16236 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi73 |
Seq # *Modification Id* Act
----------------------------+
20266 M02S16236.dsdi73 ---|* TO *ERR26* IF PREMATURE EOF.
20267 M01S00015.dsdi73 +++|* TO *PPE1* IF PREMATURE EOF.
20268 M01S16237.dsdi +++|*
| Line S16238 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20269 M02S16238.271l739 ---|* USES A - 1, 6, 7.
| Line S16239 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20270 M02S16239.271l739 ---|* X - 1, 6, 7.
| Line S16240 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20271 M02S16240.271l739 ---|*
| Line S16241 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20272 M02S16241.271l739 ---|* CALLS CRS, RBF.
20273 M01S00359.271l739 +++|* USES X - 0, 1, 2, 5, 6, 7.
20274 M01S00360.271l739 +++|* A - 1, 2, 6, 7.
20275 M01S00361.271l739 +++|*
20276 M01S00362.271l739 +++|* CALLS CRS, RBF, SFR.
20277 M01S16242.dsdi +++|
20278 M01S16243.dsdi +++|
20279 M01S16244.dsdi +++| IMR BSS 0 ENTRY
20280 M01S16245.dsdi +++| SX6 1
20281 M01S16246.dsdi +++| SA6 AP DEFINE ADVANCED PROCESSOR
20282 M01S16247.dsdi +++| SA1 ID
20283 M01S16248.dsdi +++| SA2 =3LDID
20284 M01S16249.dsdi +++| BX6 X1
20285 M01S16250.dsdi +++| LX7 X2
20286 M01S16251.dsdi +++| SA6 XI SAVE IMR RECORD ID
20287 M01S16252.dsdi +++| SA7 A1 SET RECORD ID OF *DID*
20288 M01S16253.dsdi +++| RJ CRS COPY RECORD TO FILE *S*
20289 M01S16254.dsdi +++| RJ RBF READ IOU MAINTENANCE REGISTERS
| Line S16255 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi73 |
Seq # *Modification Id* Act
----------------------------+
20290 M02S16255.dsdi73 ---| NZ X1,ERR29 IF PREMATURE EOF
20291 M01S00016.dsdi73 +++| NZ X1,PPE1 IF PREMATURE EOF
20292 M01S16256.dsdi +++| SA1 XI IMR RECORD ID
20293 M01S16257.dsdi +++| BX6 X1
20294 M01S16258.dsdi +++| SA6 ID
20295 M01S00363.271l739 +++| MX0 -18
20296 M01S00364.271l739 +++| SX5 /IOU/IOSB SEARCH FOR OS BOUNDS REGISTER
20297 M01S00365.271l739 +++| RJ SFR
20298 M01S00366.271l739 +++| NG X1,ERR42 IF NOT IN CURRENT BUFFER
20299 M01S00367.271l739 +++| BX6 -X0*X7
20300 M01S00368.271l739 +++| LX6 10 SET *NOS* MEMORY SIZE
20301 M01S00369.271l739 +++| SA6 MEMB
20302 M01S16259.dsdi +++| RJ CRS COPY MAINTENANCE REGISTERS TO FILE *S*
20303 M01S16260.dsdi +++| EQ RBI2 EXIT TO READ NEXT RECORD FROM FILE *F*
| Line S16261 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi78 |
Seq # *Modification Id* Act
----------------------------+
20304 M02S16261.dsdi78 ---| IPA SPACE 4,11
20305 M01S00045.dsdi78 +++| IPA SPACE 4,15
20306 M01S16262.dsdi +++|** IPA - INITIALIZE FOR PPU ANALYSIS.
20307 M01S16263.dsdi +++|*
| Line S16264 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi78 |
Seq # *Modification Id* Act
----------------------------+
20308 M02S16264.dsdi78 ---|* ENTRY CH = DIRECTIVE CARD STRING POINTER.
20309 M01S00046.dsdi78 +++|* ENTRY (CH) = DIRECTIVE STRING POINTER.
20310 M01S16265.dsdi +++|*
| Line S16266 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi78 |
Seq # *Modification Id* Act
----------------------------+
20311 M02S16266.dsdi78 ---|* EXIT PI = 0 IF PPU NUMBERS AND NAMES ON DIRECTIVE CARD.
20312 M01S00047.dsdi78 +++|* EXIT (IC) = *CPP* PROCESSING FLAG.
20313 M01S00048.dsdi78 +++|* (PI) = 0 IF PP/CPP NUMBERS AND NAMES IN DIRECTIVE.
20314 M01S16267.dsdi +++|* = PP COMMUNICATION AREA INDEX IF DUMPING ALL
20315 M01S16268.dsdi +++|* ACTIVE PPUS.
20316 M01S16269.dsdi +++|*
| Line S16270 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi78 |
Seq # *Modification Id* Act
----------------------------+
20317 M02S16270.dsdi78 ---|* USES ALL REGISTERS.
20318 M01S00049.dsdi78 +++|* USES X - 1, 2, 6.
20319 M01S00050.dsdi78 +++|* A - 1, 2, 6.
20320 M01S16271.dsdi +++|*
20321 M01S16272.dsdi +++|* CALLS SRA.
20322 M01S16273.dsdi +++|
20323 M01S16274.dsdi +++|
20324 M01S16275.dsdi +++| IPA1 BX6 X1
20325 M01S16276.dsdi +++| SA6 PI SET SEARCH INDEX
20326 M01S16277.dsdi +++|
20327 M01S16278.dsdi +++| IPA SUBR ENTRY/EXIT
20328 M01S00051.dsdi78 +++| SA1 IC+1 GET *NPP*/*CPP* FLAG
20329 M01S00052.dsdi78 +++| BX6 X1
20330 M01S00053.dsdi78 +++| SA6 A1-B1 SET *CPP* PROCESSING FLAG
20331 M01S16279.dsdi +++| SX6 0
20332 M01S16280.dsdi +++| SA6 IPDA SET PP FLAG
20333 M01S16281.dsdi +++| SA6 PI PRESET SEARCH INDEX
20334 M01S16282.dsdi +++| SA6 FI PRESET NAMED PPU SEARCH INDEX
20335 M01S16283.dsdi +++| SA6 PP PRESET PP NUMBER
20336 M01S16284.dsdi +++| RJ SRA SET REFERENCE ADDRESS
20337 M01S16285.dsdi +++| SA1 CH
20338 M01S16286.dsdi +++| SA1 X1+
20339 M01S16287.dsdi +++| SX1 X1-1R.
20340 M01S16288.dsdi +++| NZ X1,IPAX IF NUMBERS AND NAMES ON DIRECTIVE CARD
20341 M01S16289.dsdi +++| SA1 PC GET PP COMMUNICATION AREA POINTER
20342 M01S16290.dsdi +++| SA2 IC
20343 M01S16291.dsdi +++| ZR X2,IPA1 IF NOT PROCESSING CPP-S
20344 M01S16292.dsdi +++| SA2 NP
20345 M01S16293.dsdi +++| LX2 3
20346 M01S16294.dsdi +++| IX1 X2+X1
20347 M01S16295.dsdi +++| EQ IPA1 SET SEARCH INDEX
| Line S16296 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi78 |
Seq # *Modification Id* Act
----------------------------+
20348 M02S16296.dsdi78 ---| IPD SPACE 4,11
20349 M01S00054.dsdi78 +++| IPD SPACE 4,20
20350 M01S16297.dsdi +++|** IPD - INITIALIZE FOR PPU/FLPP DUMP.
20351 M01S16298.dsdi +++|*
20352 M01S16299.dsdi +++|* ENTRY (X6) = 0 IF PP OR CPP DUMP.
20353 M01S16300.dsdi +++|* = 1 IF FLPP DUMP.
20354 M01S16301.dsdi +++|* (CH) = CURRENT DIRECTIVE CARD STRING POINTER.
20355 M01S16302.dsdi +++|*
| Line S16303 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi78 |
Seq # *Modification Id* Act
----------------------------+
20356 M02S16303.dsdi78 ---|* EXIT (PI) = 0 IF PP/CPP/FLPP NUMBERS ON DIRECTIVE CARD.
20357 M01S00055.dsdi78 +++|* EXIT (IC) = *CPP* PROCESSING FLAG.
20358 M01S00056.dsdi78 +++|* (PI) = 0 IF PP/CPP/FLPP NUMBERS ON DIRECTIVE CARD.
20359 M01S16304.dsdi +++|* = *TDIR* TABLE POINTER FOR FIRST PP/CPP/FLPP
20360 M01S16305.dsdi +++|* IF DUMPING ALL.
20361 M01S16306.dsdi +++|* (PP) = 0.
20362 M01S16307.dsdi +++|* (IPDA) = PPU/FLPP DUMP FLAG.
20363 M01S16308.dsdi +++|*
| Line S16309 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi78 |
Seq # *Modification Id* Act
----------------------------+
20364 M02S16309.dsdi78 ---|* USES ALL REGISTERS.
20365 M01S00057.dsdi78 +++|* USES X - 0, 1, 5, 6.
20366 M01S00058.dsdi78 +++|* A - 1, 5, 6.
20367 M01S16310.dsdi +++|*
20368 M01S16311.dsdi +++|* CALLS BPN, SRA.
20369 M01S00059.dsdi78 +++|*
20370 M01S00060.dsdi78 +++|* MACROS SEARCH.
20371 M01S16312.dsdi +++|
20372 M01S16313.dsdi +++|
20373 M01S16314.dsdi +++| IPD SUBR ENTRY/EXIT
20374 M01S16315.dsdi +++| SA6 IPDA SAVE PPU/FLPP FLAG
20375 M01S00061.dsdi78 +++| SA1 IC+1 GET *NPP*/*CPP* FLAG
20376 M01S00062.dsdi78 +++| BX6 X1
20377 M01S00063.dsdi78 +++| SA6 A1-B1 SET *CPP* PROCESSING FLAG
20378 M01S16316.dsdi +++| SX6 0
20379 M01S16317.dsdi +++| SA6 PI PRESET INDEX
20380 M01S16318.dsdi +++| SA6 PP
20381 M01S16319.dsdi +++| RJ SRA SET REFERENCE ADDRESS
20382 M01S16320.dsdi +++| SA1 CH
20383 M01S16321.dsdi +++| SA1 X1+
20384 M01S16322.dsdi +++| SX1 X1-1R.
20385 M01S16323.dsdi +++| NZ X1,IPDX IF NUMBERS ON DIRECTIVE CARD
20386 M01S16324.dsdi +++| SA5 IPDA
20387 M01S16325.dsdi +++| RJ BPN
20388 M01S16326.dsdi +++| ZR X5,IPD1 IF NOT FLPP DUMP
20389 M01S16327.dsdi +++| MX0 15
20390 M01S16328.dsdi +++| IPD1 SEARCH TDIR,X7,X0 FIND PPU/FLPP/CPP TABLE ENTRY
20391 M01S16329.dsdi +++| ZR X2,ERR7 IF NOT FOUND
20392 M01S16330.dsdi +++| SX6 A2
20393 M01S16331.dsdi +++| SA6 PI SET DIRECTORY INDEX FOR FIRST PPU/FLPP
20394 M01S16332.dsdi +++| EQ IPDX EXIT
20395 M01S16333.dsdi +++|
20396 M01S00064.dsdi78 +++|
20397 M01S16334.dsdi +++| IPDA CON 0 PPU/FLPP FLAG
20398 M01S16335.dsdi +++| IOQ SPACE 4,20
20399 M01S16336.dsdi +++|** IOQ - DISPLAY IOU IN LINE FORMAT.
20400 M01S16337.dsdi +++|*
20401 M01S16338.dsdi +++|* ENTRY (DSPB ) = FWA OF DUMP.
20402 M01S16339.dsdi +++|* (DSPB+1) = LWA OF DUMP.
20403 M01S16340.dsdi +++|* (DSPC ) = LINE SIZE.
20404 M01S16341.dsdi +++|* (DSPC+1) = HEX/OCTAL, ASCII/DISPLAY FLAGS.
20405 M01S16342.dsdi +++|*
20406 M01S16343.dsdi +++|* EXIT IOU DISPLAYED IN DESIRED LINE FORMAT.
20407 M01S16344.dsdi +++|*
20408 M01S16345.dsdi +++|* USES B - 4, 5, 6, 7.
20409 M01S16346.dsdi +++|* A - 1, 2, 4, 5, 6.
20410 M01S16347.dsdi +++|* X - 0, 1, 2, 3, 4, 5, 6.
20411 M01S16348.dsdi +++|*
20412 M01S16349.dsdi +++|* CALLS CTS, DPB, HTS, NXB, SAI, SDI, SRD.
20413 M01S16350.dsdi +++|*
20414 M01S16351.dsdi +++|* MACROS PRINT.
20415 M01S16352.dsdi +++|
20416 M01S16353.dsdi +++|
20417 M01S16354.dsdi +++| IOQ SUBR ENTRY/EXIT
20418 M01S16355.dsdi +++| SA4 DSPC BYTES PER LINE
20419 M01S16356.dsdi +++| SA5 A4+B1 HEX/OCTAL, ASCII/DISPLAY FLAGS
20420 M01S16357.dsdi +++| IOQ1 SB4 X4
20421 M01S16358.dsdi +++| SB5 X4
20422 M01S16359.dsdi +++| SA1 K4
20423 M01S16360.dsdi +++| SA1 X1+/DIRECT/TCTP
20424 M01S16361.dsdi +++| NG X1,IOQ1.1 IF CONTROLLER TYPE WITH 16 BIT ADDRESSES
20425 M01S16362.dsdi +++| LX4 B1,X4 SHIFT COUNT TO REFLECT BYTE ADDRESSING
20426 M01S16363.dsdi +++| IOQ1.1 SA1 DSPB
20427 M01S16364.dsdi +++| SA2 A1+B1
20428 M01S16365.dsdi +++| IX3 X1-X2
20429 M01S16366.dsdi +++| PL X3,IOQX IF DUMP IS FINISHED
20430 M01S16367.dsdi +++| IX6 X1+X4
20431 M01S16368.dsdi +++| SA6 A1 REPLACE FWA
20432 M01S16369.dsdi +++| IX3 X2-X1
20433 M01S16370.dsdi +++| PL X1,IOQ2
20434 M01S16371.dsdi +++| IX2 X3+X4
20435 M01S16372.dsdi +++| SB4 X2
20436 M01S16373.dsdi +++| IOQ2 LX1 -16 POSITION ADDRESS
20437 M01S16374.dsdi +++| SB6 4 DISPLAY ADDRESS
20438 M01S16375.dsdi +++| SB7 PRBF
20439 M01S16376.dsdi +++| SA2 K4 CONTROLLER TYPE
20440 M01S16377.dsdi +++| SX2 X2-3
20441 M01S16378.dsdi +++| NZ X2,IOQ2.1 IF NOT 63X
20442 M01S16379.dsdi +++| LX1 -4 SHIFT LAST DIGIT OF ADDRESS
20443 M01S16380.dsdi +++| SB6 B6+B1 DIGIT COUNT
20444 M01S16381.dsdi +++| IOQ2.1 SA2 K4
20445 M01S16382.dsdi +++| SX0 B1
20446 M01S16383.dsdi +++| BX2 X2-X0
20447 M01S16384.dsdi +++| NZ X2,IOQ2.2 IF NOT ISD
20448 M01S16385.dsdi +++| LX0 13-16 ADD 2000 (HEX) TO ADDRESS IF ISD
20449 M01S16386.dsdi +++| IX1 X1+X0
20450 M01S16387.dsdi +++| IOQ2.2 RJ HTS
20451 M01S16388.dsdi +++| ZR X5,IOQ2.4 IF HEX DUMP REQUESTED
20452 M01S16389.dsdi +++| SB6 4
20453 M01S16390.dsdi +++| SB7 B7-B6
20454 M01S16391.dsdi +++| SA2 K4 CHECK CONTROLLER SIZE
20455 M01S16392.dsdi +++| ZR X2,IOQ2.3 IF 4K CONTROLLER
20456 M01S16393.dsdi +++| LX1 -3 PROCESS 8K CONTROLLER
20457 M01S16394.dsdi +++| SB6 B6+B1
20458 M01S16395.dsdi +++| SX2 X2-3
20459 M01S16396.dsdi +++| NZ X2,IOQ2.3 IF NOT 63X
20460 M01S16397.dsdi +++| LX1 -3 SHIFT LAST DIGIT OF ADDRESS
20461 M01S16398.dsdi +++| SB6 B6+B1 DIGIT COUNT
20462 M01S16399.dsdi +++| IOQ2.3 LX1 -12
20463 M01S16400.dsdi +++| RJ CTS CONVERT OCTAL ADDRESS
20464 M01S16401.dsdi +++| IOQ2.4 SB7 B4+
20465 M01S16402.dsdi +++| SB6 B5+
20466 M01S16403.dsdi +++| IOQ3 RJ NXB COLLECT ONE BYTE
20467 M01S16404.dsdi +++| BX6 X1
20468 M01S16405.dsdi +++| SA6 BUF+B7
20469 M01S16406.dsdi +++| SB7 B7-B1
20470 M01S16407.dsdi +++| NZ B7,IOQ3 IF MORE BYTES TO COLLECT
20471 M01S16408.dsdi +++| SX1 BUF+1
20472 M01S16409.dsdi +++| SB5 B6+ RESTORE B5
20473 M01S16410.dsdi +++| RJ SRD
20474 M01S16411.dsdi +++| SA4 DSPC BYTES PER LINE
20475 M01S16412.dsdi +++| SA5 A4+B1
20476 M01S16413.dsdi +++| NZ X1,IOQ1 IF REPEATED DATA
20477 M01S16414.dsdi +++| SB7 PRBF+6
20478 M01S16415.dsdi +++| SB4 X4
20479 M01S16416.dsdi +++| IOQ4 SA1 B4+BUF DISPLAY BYTES IN HEX OR OCTAL
20480 M01S16417.dsdi +++| RJ DPB
20481 M01S16418.dsdi +++| SB4 B4-B1
20482 M01S16419.dsdi +++| SB7 B7+2
20483 M01S16420.dsdi +++| NZ B4,IOQ4 IF MORE DIGITS TO DISPLAY
20484 M01S16421.dsdi +++| SB4 X4
20485 M01S16422.dsdi +++| SB7 B7+B1
20486 M01S16423.dsdi +++| IOQ5 SA2 BUF+B4 PRINT CHARACTER REPRESENTATION
20487 M01S16424.dsdi +++| SB6 B1+B1
20488 M01S16425.dsdi +++| SB4 B4-B1
20489 M01S16426.dsdi +++| NG B4,IOQ7 IF NO MORE BYTES TO INTERPRET
20490 M01S16427.dsdi +++| NG X5,IOQ6 IF DISPLAY CODE INTERPRETATION
20491 M01S16428.dsdi +++| LX2 -16
20492 M01S16429.dsdi +++| RJ SAI SET ASCII INTERPRETATION
20493 M01S16430.dsdi +++| EQ IOQ5 CHECK FOR MORE BYTES TO CONVERT
20494 M01S16431.dsdi +++|
20495 M01S16432.dsdi +++| IOQ6 SB6 B6+B1 DISPLAY 3 CHARACTERS IN DISPLAY CODE
20496 M01S16433.dsdi +++| LX2 -18
20497 M01S16434.dsdi +++| RJ SDI SET DISPLAY CODE INTERPRETATION
20498 M01S16435.dsdi +++| EQ IOQ5 CHECK FOR MORE BYTES TO CONVERT
20499 M01S16436.dsdi +++|
20500 M01S16437.dsdi +++| IOQ7 PRINT CCCH,B7-CCCH DISPLAY LINE
20501 M01S16438.dsdi +++| SA4 DSPC
20502 M01S16439.dsdi +++| EQ IOQ1 REPEAT UNTIL ALL BYTES DISPLAYED
20503 M01S16440.dsdi +++| IPO SPACE 4,15
20504 M01S16441.dsdi +++|** IPO - INSPECT PPU OCTAL BLOCK FORMAT.
20505 M01S16442.dsdi +++|*
20506 M01S16443.dsdi +++|* ENTRY (DSPB+0) = FWA OF DUMP.
20507 M01S16444.dsdi +++|* (DSPB+1) = LWA OF DUMP.
20508 M01S16445.dsdi +++|*
20509 M01S16446.dsdi +++|* EXIT TO *DSPX*.
20510 M01S16447.dsdi +++|*
20511 M01S16448.dsdi +++|* USES B - 4, 6, 7.
20512 M01S16449.dsdi +++|* A - 1, 2, 6.
20513 M01S16450.dsdi +++|* X - 1, 2, 3, 5, 6.
20514 M01S16451.dsdi +++|*
20515 M01S16452.dsdi +++|* CALLS CPS, CTS, DPB, NXB, UPS.
20516 M01S16453.dsdi +++|*
20517 M01S16454.dsdi +++|* MACROS PRINT.
20518 M01S16455.dsdi +++|
20519 M01S16456.dsdi +++|
20520 M01S16457.dsdi +++| IPO BSS 0 ENTRY
20521 M01S16458.dsdi +++| SX1 10 ENSURE AT LEAST TEN LINES ON THE PAGE
20522 M01S16459.dsdi +++| RJ CPS CHECK PAGE SPACE
20523 M01S16460.dsdi +++| PRINT (=2C )
20524 M01S16461.dsdi +++| SA2 IPOA
20525 M01S16462.dsdi +++| SB7 PRBF
20526 M01S16463.dsdi +++| SB6 70
20527 M01S16464.dsdi +++| RJ UPS UNPACK HEADER
20528 M01S16465.dsdi +++| SA1 DSPB FWA
20529 M01S16466.dsdi +++| SB6 3
20530 M01S16467.dsdi +++| LX1 60-15
20531 M01S16468.dsdi +++| SB7 PRBF
20532 M01S16469.dsdi +++| RJ CTS
20533 M01S16470.dsdi +++| PRINT CCCH,71
20534 M01S16471.dsdi +++| SX6 1R
20535 M01S16472.dsdi +++| SA6 PRBF
20536 M01S16473.dsdi +++| SA6 A6+B1
20537 M01S16474.dsdi +++| SA6 A6+B1
20538 M01S16475.dsdi +++| SB7 -100B
20539 M01S16476.dsdi +++| IPO2 RJ NXB GET THE NEXT 100 BYTES
20540 M01S16477.dsdi +++| BX6 X1
20541 M01S16478.dsdi +++| SA6 B7+BUF+100B
20542 M01S16479.dsdi +++| SB7 B7+B1
20543 M01S16480.dsdi +++| NZ B7,IPO2 IF MORE BYTES NEEDED
20544 M01S16481.dsdi +++| SX5 -10B
20545 M01S16482.dsdi +++| IPO3 SX6 X5+1R0+10B
20546 M01S16483.dsdi +++| SA6 PRBF+4
20547 M01S16484.dsdi +++| SB7 PRBF+5
20548 M01S16485.dsdi +++| SB4 10B
20549 M01S16486.dsdi +++| SA1 X5+BUF+10B
20550 M01S16487.dsdi +++| IPO4 SB7 B7+2 INCREMENT STRING POINTER
20551 M01S16488.dsdi +++| RJ DPB DISPLAY PPU MEMORY
20552 M01S16489.dsdi +++| SA1 A1+10B
20553 M01S16490.dsdi +++| SB4 B4-B1
20554 M01S16491.dsdi +++| NZ B4,IPO4 IF NOT FINISHED
20555 M01S16492.dsdi +++| PRINT CCCH,71
20556 M01S16493.dsdi +++| SX5 X5+B1
20557 M01S16494.dsdi +++| NZ X5,IPO3 IF NOT FINISHED WITH BLOCK
20558 M01S16495.dsdi +++| SA1 DSPB
20559 M01S16496.dsdi +++| SX6 X1+100B
20560 M01S16497.dsdi +++| SA6 A1
20561 M01S16498.dsdi +++| SA2 A1+B1
20562 M01S16499.dsdi +++| IX3 X6-X2
20563 M01S16500.dsdi +++| NG X3,IPO IF NOT COMPLETE
20564 M01S16501.dsdi +++| EQ DSPX RETURN
20565 M01S16502.dsdi +++|
20566 M01S16503.dsdi +++|
20567 M01S16504.dsdi +++| IPOA DATA 40H 00XX 0X 1X 2X 3X
20568 M01S16505.dsdi +++| DATA 30H 4X 5X 6X 7X
20569 M01S16506.dsdi +++| SPACE 4,15
20570 M01S16507.dsdi +++|** IPX - INSPECT PPU HEX BLOCK FORMAT.
20571 M01S16508.dsdi +++|*
20572 M01S16509.dsdi +++|* ENTRY (DSPB+0) = FWA OF DUMP.
20573 M01S16510.dsdi +++|* (DSPB+1) = LWA OF DUMP.
20574 M01S16511.dsdi +++|*
20575 M01S16512.dsdi +++|* EXIT TO *DSPX*.
20576 M01S16513.dsdi +++|*
20577 M01S16514.dsdi +++|* USES B - 3, 4, 6, 7.
20578 M01S16515.dsdi +++|* A - 1, 2, 6.
20579 M01S16516.dsdi +++|* X - 1, 2, 3, 5, 6.
20580 M01S16517.dsdi +++|*
20581 M01S16518.dsdi +++|* CALLS CPS, DPB, HTS, NXB, UPS.
20582 M01S16519.dsdi +++|*
20583 M01S16520.dsdi +++|* MACROS PRINT.
20584 M01S16521.dsdi +++|
20585 M01S16522.dsdi +++|
20586 M01S16523.dsdi +++| IPX BSS 0 ENTRY
20587 M01S16524.dsdi +++| IPX1 SX1 18
20588 M01S16525.dsdi +++| RJ CPS ENSURE AT LEAST 18 LINES ON PAGE
20589 M01S16526.dsdi +++| PRINT (=2C )
20590 M01S16527.dsdi +++| SA2 IPXA * NXX 0X 1X ...*
20591 M01S16528.dsdi +++| SB6 102
20592 M01S16529.dsdi +++| SB7 PRBF
20593 M01S16530.dsdi +++| RJ UPS UNPACK STRING
20594 M01S16531.dsdi +++| SA1 DSPB FWA
20595 M01S16532.dsdi +++| LX1 -16
20596 M01S16533.dsdi +++| SB6 B1+B1
20597 M01S16534.dsdi +++| SB7 PRBF+1
20598 M01S16535.dsdi +++| RJ HTS
20599 M01S16536.dsdi +++| PRINT CCCH,102
20600 M01S16537.dsdi +++| SB7 0#100
20601 M01S16538.dsdi +++| SB4 BUF
20602 M01S16539.dsdi +++| IPX3 RJ NXB GET 100(16) BYTES
20603 M01S16540.dsdi +++| BX6 X1
20604 M01S16541.dsdi +++| SA6 B4
20605 M01S16542.dsdi +++| SB4 B4+B1
20606 M01S16543.dsdi +++| SB7 B7-B1
20607 M01S16544.dsdi +++| NZ B7,IPX3 IF MORE BYTES TO GET
20608 M01S16545.dsdi +++| SX1 0
20609 M01S16546.dsdi +++| IPX4 LX1 -4
20610 M01S16547.dsdi +++| SB6 B1
20611 M01S16548.dsdi +++| SB7 PRBF+4
20612 M01S16549.dsdi +++| SX6 1R
20613 M01S16550.dsdi +++| SA6 PRBF+1
20614 M01S16551.dsdi +++| SA6 A6+B1
20615 M01S16552.dsdi +++| RJ HTS
20616 M01S16553.dsdi +++| SB3 0#10
20617 M01S16554.dsdi +++| SX6 X1+B1
20618 M01S16555.dsdi +++| SB4 B3
20619 M01S16556.dsdi +++| SA1 X1+BUF
20620 M01S16557.dsdi +++| SA6 IPXB
20621 M01S16558.dsdi +++| MX5 0
20622 M01S16559.dsdi +++| IPX5 SB7 B7+2
20623 M01S16560.dsdi +++| RJ DPB DISPLAY PPU BYTE
20624 M01S16561.dsdi +++| SA1 A1+B3
20625 M01S16562.dsdi +++| SB4 B4-B1
20626 M01S16563.dsdi +++| NZ B4,IPX5 IF BLOCK NOT COMPLETE
20627 M01S16564.dsdi +++| PRINT CCCH,B7-CCCH
20628 M01S16565.dsdi +++| SA1 IPXB LOOP COUNT
20629 M01S16566.dsdi +++| SX6 X1-0#10
20630 M01S16567.dsdi +++| NZ X6,IPX4
20631 M01S16568.dsdi +++| SA1 DSPB
20632 M01S16569.dsdi +++| SX6 X1+0#100
20633 M01S16570.dsdi +++| SA6 A1
20634 M01S16571.dsdi +++| SA2 A1+B1
20635 M01S16572.dsdi +++| IX3 X6-X2
20636 M01S16573.dsdi +++| NG X3,IPX1 IF MORE PP MEMORY TO DUMP
20637 M01S16574.dsdi +++| EQ DSPX RETURN TO *DSPX*
20638 M01S16575.dsdi +++|
20639 M01S16576.dsdi +++|
20640 M01S16577.dsdi +++| IPXA DATA 50H LXX 0X 1X 2X 3X 4X 5X 6X
20641 M01S16578.dsdi +++| DATA 50H 7X 8X 9X AX BX CX DX EX F
20642 M01S16579.dsdi +++| DATA 2CX
20643 M01S16580.dsdi +++| IPXB DATA 0
20644 M01S16581.dsdi +++| ISD SPACE 4,15
20645 M01S16582.dsdi +++|** ISM - INITIALIZE FOR SIXTY-FOUR BIT MEMORY PROCESSING.
20646 M01S16583.dsdi +++|*
| Line S16584 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20647 M02S16584.271l739 ---|* EXIT (XI) = *MEM* RANDOM INDEX.
| Line S16585 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20648 M02S16585.271l739 ---|* (XH) = *MEM* HEADER WORD.
| Line S16586 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20649 M02S16586.271l739 ---|* (XM) = PAGE SIZE MASK.
| Line S16587 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20650 M02S16587.271l739 ---|*
| Line S16588 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20651 M02S16588.271l739 ---|* USES A - 1, 2, 6.
| Line S16589 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20652 M02S16589.271l739 ---|* X - 0, 1, 2, 3, 6.
| Line S16590 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20653 M02S16590.271l739 ---|*
| Line S16591 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20654 M02S16591.271l739 ---|* MACROS SEARCH.
20655 M01S00370.271l739 +++|* ENTRY (AO) = ADDRESS OFFSET FOR *EI* ADDRESS.
20656 M01S00371.271l739 +++|* (EI) .NE. 0 IF FORCING *EI* ADDRESSING.
20657 M01S00372.271l739 +++|*
20658 M01S00373.271l739 +++|* EXIT (AO) = 0.
20659 M01S00374.271l739 +++|* (XH) = MEMORY RECORD VALID FWA.
20660 M01S00375.271l739 +++|* (XI) = MEMORY RECORD RANDOM INDEX.
20661 M01S00376.271l739 +++|* (XL) = MEMORY RECORD VALID LWA+1.
20662 M01S00377.271l739 +++|* (XM) = MEMORY RECORD PAGE SIZE MASK.
20663 M01S00378.271l739 +++|*
20664 M01S00379.271l739 +++|* USES X - 1, 2, 3, 6, 7.
20665 M01S00380.271l739 +++|* A - 1, 2, 3, 6, 7.
20666 M01S16592.dsdi +++|
20667 M01S16593.dsdi +++|
20668 M01S16594.dsdi +++| ISM SUBR ENTRY/EXIT
| Line S16595 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20669 M02S16595.271l739 ---| MX0 18
| Line S16596 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20670 M02S16596.271l739 ---| SA1 =3LMEM
| Line S16597 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20671 M02S16597.271l739 ---| SEARCH TDIR,X1,X0
| Line S16598 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20672 M02S16598.271l739 ---| ZR X2,ISMX IF NOT FOUND
20673 M01S00381.271l739 +++| SA3 AO
20674 M01S00382.271l739 +++| SA2 EH
20675 M01S00383.271l739 +++| NZ X3,ISM1 IF *EI* ADDRESS
20676 M01S00384.271l739 +++| SA1 EI
20677 M01S00385.271l739 +++| NZ X1,ISM1 IF FORCED *EI* ADDRESSING
20678 M01S00386.271l739 +++| SA2 MH
20679 M01S00387.271l739 +++| ISM1 ZR X2,ERR14 IF MEMORY RECORD NOT ON DUMP FILE
20680 M01S16599.dsdi +++| SX6 X2 NUMBER OF WORDS DUMPED
20681 M01S16600.dsdi +++| AX2 18 START OF MEMORY
20682 M01S16601.dsdi +++| SX7 X2
| Line S16602 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | dsdi54 |
Seq # *Modification Id* Act
----------------------------+
20683 M02S16602.dsdi54 ---| IX6 X1+X6 LWA OF MEMORY
20684 M01S00001.dsdi54 +++| IX6 X7+X6
20685 M01S16603.dsdi +++| LX6 12 CONVERT TO A BYTE ADDRESS
20686 M01S00388.271l739 +++| IX6 X3+X6 APPEND ADDRESS OFFSET
20687 M01S16604.dsdi +++| SA6 XL
| Line S16605 Modification History |
M01 (Added by) | dsdi |
M02 (Updated by) | 271l739 |
Seq # *Modification Id* Act
----------------------------+
20688 M02S16605.271l739 ---| LX7 11
20689 M01S00389.271l739 +++| LX7 12
20690 M01S00390.271l739 +++| IX7 X3+X7 APPEND ADDRESS OFFSET
20691 M01S16606.dsdi +++| SA7 XH
20692 M01S16607.dsdi +++| SA2 A2+B1 *MEM* RANDOM INDEX
20693 M01S16608.dsdi +++| BX6 X2
20694 M01S16609.dsdi +++| SA6 XI
20695 M01S16610.dsdi +++| SA1 S2PSM GENERATE THE PAGE SIZE MASK
20696 M01S16611.dsdi +++| LX1 9
20697 M01S16612.dsdi +++| SX6 X1-1
20698 M01S16613.dsdi +++| BX6 -X1*X6
20699 M01S16614.dsdi +++| SA6 XM
20700 M01S00391.271l739 +++| BX6 X6-X6 CLEAR ADDRESS OFFSET
20701 M01S00392.271l739 +++| SA6 A3
20702 M01S16615.dsdi +++| EQ ISMX RETURN
20703 M01S16616.dsdi +++| ISS SPACE 4,16
20704 M01S16617.dsdi +++|** ISS - INITIALIZE FOR SUB-SYSTEM DUMP.
20705 M01S16618.dsdi +++|*
20706 M01S16619.dsdi +++|* ENTRY (X5) = 24/ ,12/SUBSYSTEM ID,6/ ,18/CP NUMBER
20707 M01S16620.dsdi +++|* CP NUMBER = 0 IF ANY CONTROL POINT ALLOWED.
20708 M01S16621.dsdi +++|* .GT. 0, SUBSYSTEM MUST BE AT GIVEN
20709 M01S16622.dsdi +++|* CONTROL POINT UNLESS
20710 M01S16623.dsdi +++|* SUBSYSTEM ID = 0.
20711 M01S16624.dsdi +++|* (CN) = CONTROL POINT NUMBER.
20712 M01S16625.dsdi +++|* (NC) = NUMBER OF CONTROL POINTS - 1.
20713 M01S16626.dsdi +++|* (RC) = CONTROL POINT REFERENCE ADDRESS.
20714 M01S16627.dsdi +++|*
20715 M01S16628.dsdi +++|* EXIT (RI) = RANDOM ADDRESS OF DUMPED SUBSYSTEM.
20716 M01S16629.dsdi +++|* BINARY DUMP FILE IS POSITIONED AT CONTROL POINT RA.
20717 M01S16630.dsdi +++|*
20718 M01S16631.dsdi +++|* USES X - 1, 2, 3, 4, 6, 7.
20719 M01S16632.dsdi +++|* A - 1, 3, 4, 6, 7.
20720 M01S16633.dsdi +++|* B - 2, 3, 7.
20721 M01S16634.dsdi +++|*
20722 M01S16635.dsdi +++|* CALLS LDC, PCM, RNF, SCM, SRA.
20723 M01S16636.dsdi +++|
20724 M01S16637.dsdi +++|
20725 M01S16638.dsdi +++| ISS SUBR
20726 M01S16639.dsdi +++| RJ LDC LIST DIRECTIVE
20727 M01S16640.dsdi +++| MX7 12 SET SUBSYSTEM ID MASK
20728 M01S16641.dsdi +++| LX7 36
20729 M01S16642.dsdi +++| SX3 X5+ GET CP NUMBER
20730 M01S16643.dsdi +++| SA4 F.TCMT
20731 M01S16644.dsdi +++| SB7 CPLEN INCREMENTAL INDEX
20732 M01S16645.dsdi +++| NZ X3,ISS2 IF SPECIFIC CONTROL POINT REQUIRED
20733 M01S16646.dsdi +++| BX3 X7*X5
20734 M01S16647.dsdi +++| SA1 NC
20735 M01S16648.dsdi +++| SB2 X1+
20736 M01S16649.dsdi +++| SA1 X4+CPAS+JCIW GET FIRST CP SUBSYSTEM ID
20737 M01S16650.dsdi +++| BX2 X3-X1 COMPARE ENTRIES
20738 M01S16651.dsdi +++| SB3 B0 PRESET CONTROL POINT NUMBER
20739 M01S16652.dsdi +++| ISS1 SB3 B3+B1
20740 M01S16653.dsdi +++| BX6 X7*X2
20741 M01S16654.dsdi +++| GT B3,B2,ERR10 IF CONTROL POINT NUMBER .GT. NCPL
20742 M01S16655.dsdi +++| SA1 A1+B7 GET NEXT CP SUBSYSTEM ID
20743 M01S16656.dsdi +++| BX2 X3-X1 COMPARE ENTRIES
20744 M01S16657.dsdi +++| NZ X6,ISS1 IF NO MATCH
20745 M01S16658.dsdi +++| JP ISS3
20746 M01S16659.dsdi +++|
20747 M01S16660.dsdi +++| ISS2 SX1 CPAS
20748 M01S16661.dsdi +++| IX2 X1*X3
20749 M01S16662.dsdi +++| SB3 X3 SET CONTROL POINT NUMBER
20750 M01S16663.dsdi +++| IX6 X2+X4
20751 M01S16664.dsdi +++| SA1 X6+JCIW GET CP SUBSYSTEM ID
20752 M01S16665.dsdi +++| BX3 X7*X5 GET REQUESTED SUBSYSTEM ID
20753 M01S16666.dsdi +++| BX2 X3-X1 COMPARE ENTRIES
20754 M01S16667.dsdi +++| ZR X3,ISS3 IF ANY SUBSYSTEM ALLOWED
20755 M01S16668.dsdi +++| BX6 X7*X2
20756 M01S16669.dsdi +++| NZ X6,ERR10 IF NO MATCH ON ENTRIES
20757 M01S16670.dsdi +++| ISS3 SX6 B3
20758 M01S16671.dsdi +++| SA6 CN
20759 M01S00133.dsdi89 +++| BX2 X6
20760 M01S00134.dsdi89 +++| SA1 OP
20761 M01S16672.dsdi +++| RJ RNF READ NEGATIVE FL FOR SELECTED SUB-SYSTEM
20762 M01S16673.dsdi +++| SA1 L.TNFL GET NFL/100
20763 M01S16674.dsdi +++| SX6 DNFL GET DEFAULT
20764 M01S16675.dsdi +++| IX1 X1-X6
20765 M01S16676.dsdi +++| NG X1,ERR28 IF INSUFFICIENT NFL SPACE
20766 M01S16677.dsdi +++| SA1 RC GET RA
20767 M01S16678.dsdi +++| BX6 X1
20768 M01S16679.dsdi +++| RJ SRA SET REFERENCE ADDRESS
20769 M01S16680.dsdi +++| RJ SCM SET CENTRAL MEMORY
20770 M01S16681.dsdi +++| SA7 RI
20771 M01S16682.dsdi +++| SA3 RC
20772 M01S16683.dsdi +++| RJ PCM
20773 M01S16684.dsdi +++| JP ISSX EXIT
20774 M01S16685.dsdi +++| LDC SPACE 4,10
20775 M01S16686.dsdi +++|** LDC - LIST DIRECTIVE CARD.
20776 M01S16687.dsdi +++|*
20777 M01S16688.dsdi +++|* ENTRY EF = 0 SET PAGE EJECT AND DONT LIST DIRECTIVE.
20778 M01S16689.dsdi +++|* .NE. 0 LIST DIRECTIVE AND CURRENT RECORD NAME.
20779 M01S16690.dsdi +++|*
20780 M01S16691.dsdi +++|* SAVES X - 0,5.
20781 M01S16692.dsdi +++|* B - 1.
20782 M01S16693.dsdi +++|* A - 0.
20783 M01S16694.dsdi +++|*
20784 M01S16695.dsdi +++|* CALLS PKS,WOF.
20785 M01S16696.dsdi +++|
20786 M01S16697.dsdi +++|
20787 M01S16698.dsdi +++| LDC SUBR
20788 M01S16699.dsdi +++| SA1 EF
20789 M01S16700.dsdi +++| NZ X1,LDC1 IF NO EJECT SELECTED
20790 M01S16701.dsdi +++| SX6 100
20791 M01S16702.dsdi +++| SA6 LC FORCE EJECT
20792 M01S16703.dsdi +++| JP LDCX EXIT
20793 M01S16704.dsdi +++|
20794 M01S16705.dsdi +++|* LIST DIRECTIVE AND RECORD NAME.
20795 M01S16706.dsdi +++|
20796 M01S16707.dsdi +++| LDC1 SA1 =10H
20797 M01S16708.dsdi +++| SA2 SBTL1
20798 M01S16709.dsdi +++| BX6 X1
20799 M01S16710.dsdi +++| SA6 BUF LEADING SPACES FOR LIST LINE
20800 M01S16711.dsdi +++| BX7 X2
20801 M01S16712.dsdi +++| SA7 A6+B1 STORE RECORD NAME