cdc:nos2.source:opl.opl871:deck:dsdi.015
Deck DSDI Part 015
70 Modifications
Listing Sections
- Deck DSDI Start
- Deck DSDI Part 1 (Line 1558)
- Deck DSDI Part 2 (Line 2598)
- Deck DSDI Part 3 (Line 3881)
- Deck DSDI Part 4 (Line 5540)
- Deck DSDI Part 5 (Line 6734)
- Deck DSDI Part 6 (Line 7901)
- Deck DSDI Part 7 (Line 9074)
- Deck DSDI Part 8 (Line 10431)
- Deck DSDI Part 9 (Line 11513)
- Deck DSDI Part 10 (Line 13137)
- Deck DSDI Part 11 (Line 14354)
- Deck DSDI Part 12 (Line 15316)
- Deck DSDI Part 13 (Line 16446)
- Deck DSDI Part 14 (Line 17804)
- Deck DSDI Part 15 (Line 19078)
- Deck DSDI Part 16 (Line 20802)
- Deck DSDI Part 17 (Line 22524)
- Deck DSDI Part 18 (Line 23646)
- Deck DSDI Part 19 (Line 25086)
- Deck DSDI Part 20 (Line 26414)
- Deck DSDI Part 21 (Line 27098)
Source
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
Proceed to Part 16
cdc/nos2.source/opl.opl871/deck/dsdi.015.txt · Last modified: by 127.0.0.1