cdc:nos2.source:opl.opl871:deck:ldistap.004
Deck LDISTAP Part 004
14 Modifications
Listing Sections
- Deck LDISTAP Start
- Deck LDISTAP Part 1 (Line 1313)
- Deck LDISTAP Part 2 (Line 2802)
- Deck LDISTAP Part 3 (Line 4413)
- Deck LDISTAP Part 4 (Line 6159)
Source
Seq # *Modification Id* Act ----------------------------+ 06159 M01S00054.t2807 +++| EQ PRS2.2 CHECK NEXT OPTION IN TABLE 06160 M01S00055.t2807 +++| 06161 M01S00056.t2807 +++| PRS2.3 LX2 18 GET SHIFT COUNT 06162 M01S00057.t2807 +++| SB2 X2 06163 M01S00058.t2807 +++| LX2 12 GET SET/CLEAR STATUS 06164 M01S00059.t2807 +++| BX2 -X0*X2 06165 M01S00060.t2807 +++| SX6 B1 06166 M01S00061.t2807 +++| LX2 B2 SET/CLEAR DEFAULT OPTION 06167 M01S00062.t2807 +++| LX6 B2 06168 M01S00063.t2807 +++| BX7 -X6*X7 06169 M01S00064.t2807 +++| BX7 X7+X2 06170 M01S00065.t2807 +++| SA1 A1+B1 06171 M01S00066.t2807 +++| EQ PRS2.1 CHECK NEXT OPTION ON COMMAND 06172 M01S00067.t2807 +++| 06173 M01S00068.t2807 +++| PRS2.4 SA7 A3 SET DEFAULT TAPE OPTION 06174 M01S00069.t2807 +++| EQ PRS3 CHECK *DEFTOS* 06175 M01S00070.t2807 +++| 06176 M01S00071.t2807 +++| PRS2.5 SA1 =0LDEFTO GET PARAMETER IMAGE 06177 M01S00072.t2807 +++| BX7 X1 06178 M01S00073.t2807 +++| SA1 DT 06179 M01S00074.t2807 +++| EQ PRS4 ISSUE ERROR MESSAGE 06180 M01S00075.t2807 +++| 06181 M00S05640.ldistap +++| PRS3 MX0 42 CHECK *DEFTOS* 06182 M00S05641.ldistap +++| SA1 DS 06183 M00S05642.ldistap +++| ZR X1,PRS5 IF *DEFTOS* NOT SPECIFIED
| Line S05643 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06184 M01S05643.t2807 ---| SRCHTAB X1,TDEF,0,1,TDEFL 06185 M01S05644.t2807 ---| SA1 =0LDEFTOS 06186 M01S05645.t2807 ---| BX7 X1 06187 M01S05646.t2807 ---| NZ X6,PRS4 IF VALUE NOT FOUND 06188 M01S05647.t2807 ---| BX6 -X0*X2 SAVE VALUE FOR *DEFTOS* 06189 M01S05648.t2807 ---| SA6 DFS
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06190 M01S00076.t2807 +++| SB2 DS 06191 M01S00077.t2807 +++| RJ USB UNPACK STRING BUFFER 06192 M01S00078.t2807 +++| SX6 B0 FLAG LAST OPTION 06193 M01S00079.t2807 +++| SA6 B7+B1 06194 M01S00080.t2807 +++| SA1 B6 GET FIRST COMMAND OPTION 06195 M01S00081.t2807 +++| MX0 -12 06196 M01S00082.t2807 +++| SA3 TMS GET DEFAULT OPTIONS 06197 M01S00083.t2807 +++| BX7 X3 06198 M01S00084.t2807 +++| PRS3.1 ZR X1,PRS3.4 IF NO MORE OPTIONS 06199 M01S00085.t2807 +++| SA2 TDES GET FIRST OPTION IN TABLE 06200 M01S00086.t2807 +++| PRS3.2 ZR X2,PRS3.5 IF UNKNOWN OPTION 06201 M01S00087.t2807 +++| BX6 -X0*X2 06202 M01S00088.t2807 +++| BX6 X6-X1 06203 M01S00089.t2807 +++| ZR X6,PRS3.3 IF OPTIONS MATCH 06204 M01S00090.t2807 +++| SA2 A2+B1 06205 M01S00091.t2807 +++| EQ PRS3.2 CHECK NEXT OPTION IN TABLE 06206 M01S00092.t2807 +++| 06207 M01S00093.t2807 +++| PRS3.3 LX2 18 GET SHIFT COUNT 06208 M01S00094.t2807 +++| SB2 X2 06209 M01S00095.t2807 +++| LX2 12 GET SET/CLEAR STATUS 06210 M01S00096.t2807 +++| BX2 -X0*X2 06211 M01S00097.t2807 +++| SX6 B1 06212 M01S00098.t2807 +++| LX2 B2 SET/CLEAR DEFAULT OPTION 06213 M01S00099.t2807 +++| LX6 B2 06214 M01S00100.t2807 +++| BX7 -X6*X7 06215 M01S00101.t2807 +++| BX7 X7+X2 06216 M01S00102.t2807 +++| SA1 A1+B1 06217 M01S00103.t2807 +++| EQ PRS3.1 CHECK NEXT OPTION ON COMMAND 06218 M01S00104.t2807 +++| 06219 M01S00105.t2807 +++| PRS3.4 SA7 A3 SET DEFAULT TAPE OPTION 06220 M00S05649.ldistap +++| EQ PRS5 CHECK *FM* 06221 M00S05650.ldistap +++|
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 06222 M01S00106.t2807 +++| PRS3.5 SA1 =0LDEFTOS GET PARAMETER IMAGE 06223 M01S00107.t2807 +++| BX7 X1 06224 M01S00108.t2807 +++| SA1 DS 06225 M00S05651.ldistap +++| PRS4 SA7 PI SAVE PARAMETER IMAGE 06226 M00S05652.ldistap +++| SB2 1R$ SET VALUE IMAGE IN MESSAGE 06227 M00S05653.ldistap +++| SB3 DFIV 06228 M00S05654.ldistap +++| SB5 -B3 06229 M00S05655.ldistap +++| RJ SNM SET NAME IN MESSAGE 06230 M00S05656.ldistap +++| SA1 PI SET PARAMETER IMAGE IN MESSAGE 06231 M00S05657.ldistap +++| SB2 1R# 06232 M00S05658.ldistap +++| SB3 DFIV 06233 M00S05659.ldistap +++| SB5 -B3 06234 M00S05660.ldistap +++| RJ SNM SET NAME IN MESSAGE 06235 M00S05661.ldistap +++| SX5 DFIV *INCORRECT VALUE FOR PP PARAMETER - VVVV.* 06236 M00S05662.ldistap +++| EQ ABT ABORT PROGRAM 06237 M00S05663.ldistap +++| 06238 M00S05664.ldistap +++| PRS5 SA1 FM CHECK *FM* 06239 M00S05665.ldistap +++| SA2 =1L* 06240 M00S05666.ldistap +++| BX1 X1-X2 06241 M00S05667.ldistap +++| NZ X1,PRS6 IF NOT ALL FAMILIES 06242 M00S05668.ldistap +++| SX6 B1 FLAG ALL FAMILIES 06243 M00S05669.ldistap +++| SA6 A1 06244 M00S05670.ldistap +++| PRS6 RDMEM ABS,FOTP,1,FFO GET FAMILY ORDINAL TABLE ADDRESS 06245 M00S05671.ldistap +++| MX0 -24 06246 M00S05672.ldistap +++| LX2 24 06247 M00S05673.ldistap +++| BX6 -X0*X2 06248 M00S05674.ldistap +++| SA6 FFO 06249 M00S05675.ldistap +++| MX0 -12 GET MAXIMUM FOT ENTRIES 06250 M00S05676.ldistap +++| LX2 12 06251 M00S05677.ldistap +++| BX7 -X0*X2 06252 M00S05678.ldistap +++| SA7 MXF 06253 M00S05679.ldistap +++| RDMEM ABS,X6,X7,FBUF GET FAMILY ORDINAL TABLE 06254 M00S05680.ldistap +++| REPRIEVE RPVA,SET,237B SET EXTENDED REPRIEVE 06255 M00S05681.ldistap +++| EQ PRSX RETURN 06256 M00S05682.ldistap +++| RPV SPACE 4,15 06257 M00S05683.ldistap +++|** RPV - REPRIEVE PROCESSOR. 06258 M00S05684.ldistap +++|* 06259 M00S05685.ldistap +++|* ENTRY (PPC) = 0 IF ABORT ON PP ERROR. 06260 M00S05686.ldistap +++|* = FET ADDRESS IF DO NOT ABORT ON PP ERROR. 06261 M00S05687.ldistap +++|* 06262 M00S05688.ldistap +++|* EXIT (PPC) = 0. 06263 M00S05689.ldistap +++|* (PPS) .NE. IF PP ERROR. 06264 M00S05690.ldistap +++|* COMPLETION BIT SET IN PP ERROR FET. 06265 M00S05691.ldistap +++|* 06266 M00S05692.ldistap +++|* USES X - 0, 1, 5, 6. 06267 M00S05693.ldistap +++|* A - 1, 6. 06268 M00S05694.ldistap +++|* 06269 M00S05695.ldistap +++|* CALLS ABT. 06270 M00S05696.ldistap +++|* 06271 M00S05697.ldistap +++|* MACROS REPRIEVE. 06272 M00S05698.ldistap +++| 06273 M00S05699.ldistap +++| 06274 M00S05700.ldistap +++| RPV BSS 0 ENTRY/EXIT 06275 M00S05701.ldistap +++| MX0 -12 CHECK ERROR FLAG 06276 M00S05702.ldistap +++| SA1 RPVA+/COMSRPV/OSEF 06277 M00S05703.ldistap +++| BX1 -X0*X1 06278 M00S05704.ldistap +++| SX1 X1-PPET 06279 M00S05705.ldistap +++| SX5 B0 06280 M00S05706.ldistap +++| NZ X1,ABT IF NOT PP CALL ERROR 06281 M00S05707.ldistap +++| SA1 PPC 06282 M00S05708.ldistap +++| ZR X1,ABT IF NOT PP CHECK 06283 M00S05709.ldistap +++| SX6 B0 CLEAR PP CHECK FLAG 06284 M00S05710.ldistap +++| SA6 A1 06285 M00S05711.ldistap +++| SX6 B1 SET PP ERROR FLAG 06286 M00S05712.ldistap +++| SA6 PPS 06287 M00S05713.ldistap +++| MX0 42 SET COMPLETION BIT IN FET 06288 M00S05714.ldistap +++| SA1 X1 06289 M00S05715.ldistap +++| BX1 X0*X1 06290 M00S05716.ldistap +++| SX6 3 06291 M00S05717.ldistap +++| BX6 X1+X6 06292 M00S05718.ldistap +++| SA6 A1 06293 M00S05719.ldistap +++| REPRIEVE RPVA,RESUME,237B RESUME PROGRAM EXECUTION 06294 M00S05720.ldistap +++| 06295 M00S05721.ldistap +++| RPVA RPVBLK RPV REPRIEVE BLOCK 06296 M00S05722.ldistap +++| SPACE 4,10 06297 M00S05723.ldistap +++| QUAL * 06298 M00S05724.ldistap +++| TMSOFF EQU /TMSON/TMSOFF *TMSOFF* ENTRY POINT 06299 M00S05725.ldistap +++| TMSON EQU /TMSON/TMSON *TMSON* ENTRY POINT 06300 M00S05726.ldistap +++| TITLE FIELD LENGTH DEFINITIONS. 06301 M00S05727.ldistap +++| RFL SPACE 4,10 06302 M00S05728.ldistap +++|** FIELD LENTH DEFINITION. 06303 M00S05729.ldistap +++| 06304 M00S05730.ldistap +++| 06305 M00S05731.ldistap +++| RFL IFGT BUFF+BUFFL,* 06306 M00S05732.ldistap +++| RFL= EQU BUFF+BUFFL PROGRAM FIELD LENGTH 06307 M00S05733.ldistap +++| RFL ELSE 06308 M00S05734.ldistap +++| RFL= EQU * PROGRAM FIELD LENGTH 06309 M00S05735.ldistap +++| RFL ENDIF 06310 M00S05736.ldistap +++| SPACE 4 06311 M00S05737.ldistap +++| END
cdc/nos2.source/opl.opl871/deck/ldistap.004.txt · Last modified: by 127.0.0.1