Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:dsdi.007
Deck DSDI Part 007
70 Modifications
Listing Sections
- Deck DSDI Start
- Deck DSDI Part 1 (Line 1434)
- Deck DSDI Part 2 (Line 2583)
- Deck DSDI Part 3 (Line 3987)
- Deck DSDI Part 4 (Line 5672)
- Deck DSDI Part 5 (Line 7004)
- Deck DSDI Part 6 (Line 8581)
- Deck DSDI Part 7 (Line 10246)
- Deck DSDI Part 8 (Line 11798)
- Deck DSDI Part 9 (Line 13507)
- Deck DSDI Part 10 (Line 14867)
- Deck DSDI Part 11 (Line 16452)
- Deck DSDI Part 12 (Line 18202)
- Deck DSDI Part 13 (Line 19806)
- Deck DSDI Part 14 (Line 21664)
- Deck DSDI Part 15 (Line 23434)
- Deck DSDI Part 16 (Line 25055)
- Deck DSDI Part 17 (Line 26610)
Source
Seq # *Modification Id* Act ----------------------------+ 10246 M00S08391.dsdi +++| CON 0 END OF ELEMENT LIST 10247 M00S08392.dsdi +++| DRA SPACE 4,10 10248 M00S08393.dsdi +++|** DRA - DERIVE R-FORMAT ADDRESS. 10249 M00S08394.dsdi +++|* 10250 M00S08395.dsdi +++|* ENTRY (X3) = R-FORMAT ADDRESS. 10251 M00S08396.dsdi +++|* 10252 M00S08397.dsdi +++|* EXIT (X6) = UNFORMATTED ADDRESS. 10253 M00S08398.dsdi +++|* (X7) = LENGTH OF BUFFER. 10254 M00S08399.dsdi +++|* 10255 M00S08400.dsdi +++|* USES X - 0, 2, 3, 6, 7. 10256 M00S08401.dsdi +++| 10257 M00S08402.dsdi +++| 10258 M00S08403.dsdi +++| DRA SUBR ENTRY/EXIT 10259 M00S08404.dsdi +++| MX0 -12 10260 M00S08405.dsdi +++| BX7 -X0*X3 LENGTH OF BUFFER 10261 M00S08406.dsdi +++| AX3 16 10262 M00S08407.dsdi +++| BX2 -X0*X3 R-LOWER 10263 M00S08408.dsdi +++| AX3 16 10264 M00S08409.dsdi +++| BX6 -X0*X3 R-UPPER 10265 M00S08410.dsdi +++| LX6 12 10266 M00S08411.dsdi +++| BX6 X2+X6 10267 M00S08412.dsdi +++| AX3 16 10268 M00S08413.dsdi +++| BX2 -X0*X3 OFFSET 10269 M00S08414.dsdi +++| LX6 6 10270 M00S08415.dsdi +++| BX6 X2+X6 10271 M00S08416.dsdi +++| EQ DRAX RETURN 10272 M00S08417.dsdi +++| FOM SPACE 4,10 10273 M00S08418.dsdi +++|** FOM - FIND OLDEST M/R ENTRY. 10274 M00S08419.dsdi +++|* 10275 M00S08420.dsdi +++|* ENTRY (CBFI) = ADDRESS OF M/R CONTROL WORD. 10276 M00S08421.dsdi +++|* (CBFH) = NUMBER OF M/R ENTRIES. 10277 M00S08422.dsdi +++|* 10278 M00S08423.dsdi +++|* EXIT (B3) = OFFSET OF OLDEST M/R ENTRY. 10279 M00S08424.dsdi +++|* (X7) = DFT ANALYSIS CODE.
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10280 M01S00075.dsdi60 +++|* (PBLD) .NE. 0 IF MDB DATA PRESENT. 10281 M00S08425.dsdi +++|* 10282 M00S08426.dsdi +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
| Line S08427 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10283 M01S08427.dsdi60 ---|* A - 2, 3, 5. 10284 M01S08428.dsdi60 ---|* B - 2, 3, 4, 5.
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10285 M01S00076.dsdi60 +++|* A - 1, 2, 3, 7. 10286 M01S00077.dsdi60 +++|* B - 2, 3. 10287 M00S08429.dsdi +++| 10288 M00S08430.dsdi +++| 10289 M00S08431.dsdi +++| FOM SUBR ENTRY/EXIT 10290 M00S08432.dsdi +++| SB3 B0 OFFSET OF OLDEST ENTRY 10291 M00S08433.dsdi +++| BX4 X4-X4 OLDEST SEQUENCE NUMBER 10292 M00S08434.dsdi +++| SA1 CBFH 10293 M00S08435.dsdi +++| SA2 CBFI ADDRESS OF FIRST M/R CONTROL WORD 10294 M00S08436.dsdi +++| SB2 X1+ NUMBER OF ENTRIES TO CHECK 10295 M00S08437.dsdi +++| FOM1 SB2 B2-B1 DECREMENT COUNTER FOR M/R ENTRIES 10296 M00S08438.dsdi +++| ZR B2,FOMX IF ALL ENTRIES PROCESSED 10297 M00S08439.dsdi +++| SA3 X2+B2 GET NEXT M/R CONTROL WORD 10298 M00S08440.dsdi +++| MX0 -8 10299 M00S08441.dsdi +++| LX3 0-16 10300 M00S08442.dsdi +++| BX0 -X0*X3 GET M/R FLAGS 10301 M00S08443.dsdi +++| LX0 59-/DFT/MRLG 10302 M00S08444.dsdi +++| PL X0,FOM1 IF NO DATA TO LOG 10303 M00S08445.dsdi +++| LX0 59-/DFT/MRIL-59+/DFT/MRLG 10304 M00S08446.dsdi +++| NG X0,FOM1 IF ENTRY INTERLOCKED 10305 M00S08447.dsdi +++| LX3 0-32-0+16 10306 M00S08448.dsdi +++| MX0 -12 GET DFT ANALYSIS CODE 10307 M00S08449.dsdi +++| BX1 -X0*X3 10308 M00S08450.dsdi +++| SX0 X1-3400B 10309 M00S08451.dsdi +++| PL X0,FOM1 IF TO IGNORE THIS ENTRY 10310 M00S08452.dsdi +++| MX0 -8 GET SEQUENCE NUMBER 10311 M00S08453.dsdi +++| LX3 0-24-0+32 10312 M00S08454.dsdi +++| BX6 -X0*X3 10313 M00S08455.dsdi +++| ZR B3,FOM3 IF NO ENTRY SELECTED YET 10314 M00S08456.dsdi +++| IX0 X4-X6 COMPARE OLDEST WITH CURRENT 10315 M00S08457.dsdi +++| PL X0,FOM2 IF LOWER THAN PREVIOUS OLDEST 10316 M00S08458.dsdi +++| SX0 X0+40B 10317 M00S08459.dsdi +++| NG X0,FOM3 IF WRAP AROUND 10318 M00S08460.dsdi +++| EQ FOM1 PROCESS NEXT ENTRY 10319 M00S08461.dsdi +++| 10320 M00S08462.dsdi +++| FOM2 SX0 X0-40B 10321 M00S08463.dsdi +++| PL X0,FOM1 IF NOT EARLIER ENTRY
| Line S08464 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10322 M01S08464.dsdi60 ---| FOM3 SB3 B2+ UPDATE OLDEST ENTRY OFFSET
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10323 M01S00078.dsdi60 +++| FOM3 SB3 B2 UPDATE OLDEST ENTRY OFFSET 10324 M01S00079.dsdi60 +++| LX3 0-22-0+24 GET MDB FLAG 10325 M00S08465.dsdi +++| BX4 X6 SEQUENCE NUMBER 10326 M00S08466.dsdi +++| BX7 X1 SAVE DFT ANALYSIS CODE 10327 M01S00080.dsdi60 +++| SA7 FOMA 10328 M01S00081.dsdi60 +++| MX0 -1
| Line S08467 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10329 M01S08467.dsdi60 ---| SA7 FOMA
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10330 M01S00082.dsdi60 +++| BX7 -X0*X3 10331 M01S00083.dsdi60 +++| SA7 PBLD 10332 M00S08468.dsdi +++| EQ FOM1 PROCESS NEXT ENTRY 10333 M00S08469.dsdi +++| 10334 M00S08470.dsdi +++| 10335 M00S08471.dsdi +++| FOMA CON 0 DFT ANALYSIS CODE 10336 M00S08472.dsdi +++| GMR SPACE 4,15 10337 M00S08473.dsdi +++|** GMR - GET MAINTENANCE REGISTER. 10338 M00S08474.dsdi +++|* 10339 M00S08475.dsdi +++|* ENTRY (X5) = REGISTER NUMBER. 10340 M00S08476.dsdi +++|* 10341 M00S08477.dsdi +++|* EXIT (X1) = REGISTER NUMBER IF FOUND. 10342 M00S08478.dsdi +++|* .LT. 0 IF REGISTER NOT FOUND. 10343 M00S08479.dsdi +++|* (X6) = LOWER 4 BITS OF REGISTER (BITS 60-63). 10344 M00S08480.dsdi +++|* (X7) = UPPER 60 BITS OF REGISTER (BITS 0-59). 10345 M00S08481.dsdi +++|* 10346 M00S08482.dsdi +++|* USES X - 2, 3, 6, 7. 10347 M00S08483.dsdi +++|* A - 6. 10348 M00S08484.dsdi +++|* 10349 M00S08485.dsdi +++|* CALLS SFR. 10350 M00S08486.dsdi +++| 10351 M00S08487.dsdi +++| 10352 M00S08488.dsdi +++| GMR SUBR ENTRY/EXIT 10353 M00S08489.dsdi +++| RJ SFR 10354 M00S08490.dsdi +++| BX2 X6 REPOSITION BITS 10355 M00S08491.dsdi +++| MX3 -4 10356 M00S08492.dsdi +++| BX6 -X3*X7 (X6) = BITS 60-63 10357 M00S08493.dsdi +++| BX7 X3*X7 CLEAR LOWER BITS 10358 M00S08494.dsdi +++| BX7 X2+X7 ADD UPPER BITS 10359 M00S08495.dsdi +++| LX7 -4 (X7) = BITS 0-59 10360 M00S08496.dsdi +++| EQ GMRX RETURN 10361 M00S08497.dsdi +++| LMB SPACE 4,15 10362 M00S08498.dsdi +++|** LMB - LOCATE M/R BUFFER. 10363 M00S08499.dsdi +++|* 10364 M00S08500.dsdi +++|* ENTRY (B3) = OFFSET OF M/R CONTROL WORD. 10365 M00S08501.dsdi +++|* (FOMA) = DFT ANALYSIS CODE. 10366 M00S08502.dsdi +++|* (CBFI) = FIRST M/R CONTROL WORD ADDRESS. 10367 M00S08503.dsdi +++|* (CBFL) = FWA OF M/R BUFFERS. 10368 M00S08504.dsdi +++|* 10369 M00S08505.dsdi +++|* EXIT POSITIONED TO CORRECT BYTE FOR ROUTINE *NXB*. 10370 M00S08506.dsdi +++|* M/R BUFFER CONTROL WORD CLEARED. 10371 M00S08507.dsdi +++|* 10372 M00S08508.dsdi +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 10373 M00S08509.dsdi +++|* A - 1, 2, 3, 4, 6, 7. 10374 M00S08510.dsdi +++|* 10375 M00S08511.dsdi +++|* CALLS FBP, SCM. 10376 M00S08512.dsdi +++| 10377 M00S08513.dsdi +++| 10378 M00S08514.dsdi +++| LMB SUBR ENTRY /EXIT 10379 M00S08515.dsdi +++| SA1 BFMB+3 SET ANALYSIS CODE INTO BML 10380 M00S08516.dsdi +++| MX0 48 10381 M00S08517.dsdi +++| LX0 36-0 10382 M00S08518.dsdi +++| BX1 X0*X1 CLEAR OLD SYMPTOM CODE 10383 M00S08519.dsdi +++| SA2 FOMA DFT ANALYSIS CODE 10384 M00S08520.dsdi +++| LX2 36-0 10385 M00S08521.dsdi +++| BX7 X1+X2 10386 M00S08522.dsdi +++| SA7 A1 10387 M00S08523.dsdi +++| SA3 CBFI GET OFFSET TO M/R BUFFER 10388 M00S08524.dsdi +++| SA4 X3+B3 M/R BUFFER CONTROL WORD 10389 M00S08525.dsdi +++| MX0 -16 10390 M00S08526.dsdi +++| BX3 -X0*X4 OFFSET INTO M/R BUFFERS 10391 M00S08527.dsdi +++| BX6 X6-X6 CLEAR M/R CONTROL WORD 10392 M00S08528.dsdi +++| SA6 A4 10393 M00S08529.dsdi +++| SA2 CBFL FWA OF M/R BUFFERS 10394 M00S08530.dsdi +++| IX3 X2+X3 LOCATION OF M/R BUFFER 10395 M00S08531.dsdi +++| LX3 2 BYTE POSITION OF M/R BUFFER 10396 M00S08532.dsdi +++| RJ SCM SET CENTRAL MEMORY 10397 M00S08533.dsdi +++| SA7 RI 10398 M00S08534.dsdi +++| RJ FBP FIND BYTE POSITION 10399 M00S08535.dsdi +++| EQ LMBX RETURN 10400 M00S08536.dsdi +++| PBH SPACE 4,10 10401 M00S08537.dsdi +++|** PBH - PROCESS BML HEADER. 10402 M00S08538.dsdi +++|*
| Line S08539 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10403 M01S08539.dsdi60 ---|* EXIT (B5) = NUMBER OF REGISTERS TO PROCESS.
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10404 M01S00084.dsdi60 +++|* EXIT (B7) = NUMBER OF REGISTERS TO PROCESS. 10405 M00S08540.dsdi +++|* (CBFF) = BML REGISTER NUMBERS ENTERED. 10406 M00S08541.dsdi +++|*
| Line S08542 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10407 M01S08542.dsdi60 ---|* USES X - 1, 6. 10408 M01S08543.dsdi60 ---|* A - 2, 3, 6. 10409 M01S08544.dsdi60 ---|* B - 4, 5. 10410 M01S08545.dsdi60 ---|* 10411 M01S08546.dsdi60 ---|* CALLS NXB, RET, SAV.
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10412 M01S00085.dsdi60 +++|* USES X - 1, 3, 6. 10413 M01S00086.dsdi60 +++|* A - 3, 6. 10414 M01S00087.dsdi60 +++|* B - 6, 7. 10415 M01S00088.dsdi60 +++|* 10416 M01S00089.dsdi60 +++|* CALLS NXB. 10417 M00S08547.dsdi +++| 10418 M00S08548.dsdi +++| 10419 M00S08549.dsdi +++| PBH SUBR ENTRY/EXIT
| Line S08550 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10420 M01S08550.dsdi60 ---| SB4 48 SHIFT COUNT 10421 M01S08551.dsdi60 ---| SB5 B0+ INITIALIZE REGISTER COUNT 10422 M01S08552.dsdi60 ---| PBH1 RJ SAV SAVE REGISTERS 10423 M01S08553.dsdi60 ---| RJ NXB READ NEXT BYTE 10424 M01S08554.dsdi60 ---| RJ RET RESTORE REGISTERS
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10425 M01S00090.dsdi60 +++| SB6 48 SHIFT COUNT 10426 M01S00091.dsdi60 +++| SB7 B0+ INITIALIZE REGISTER COUNT 10427 M01S00092.dsdi60 +++| PBH1 RJ NXB READ NEXT BYTE 10428 M00S08555.dsdi +++| NZ X1,PBH2 IF REGISTER PRESENT
| Line S08556 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10429 M01S08556.dsdi60 ---| SA2 PBHA CHECK SUMMARY STATUS FLAG 10430 M01S08557.dsdi60 ---| NZ X2,PBHX IF END OF REGISTERS 10431 M01S08558.dsdi60 ---| MX6 1 SET SUMMARY STATUS FLAG 10432 M01S08559.dsdi60 ---| SA6 A2 10433 M01S08560.dsdi60 ---| PBH2 LX1 B4 SHIFT REGISTER NUMBER TO PROPER LOCATION
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10434 M01S00093.dsdi60 +++| SA3 PBHA 10435 M01S00094.dsdi60 +++| NZ X3,PBH3 IF NOT STATUS SUMMARY 10436 M01S00095.dsdi60 +++| MX6 1 SET STATUS SUMMARY FLAG 10437 M01S00096.dsdi60 +++| SA6 A3 10438 M01S00097.dsdi60 +++| PBH2 LX1 B6 SHIFT REGISTER NUMBER TO PROPER LOCATION 10439 M00S08561.dsdi +++| SA3 CBFF UPDATE BML REGISTER WORD 10440 M00S08562.dsdi +++| BX6 X3+X1 10441 M00S08563.dsdi +++| SA6 A3
| Line S08564 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10442 M01S08564.dsdi60 ---| SB4 B4-12 UPDATE SHIFT COUNT 10443 M01S08565.dsdi60 ---| SB5 B5+B1 INCREMENT REGISTER COUNT 10444 M01S08566.dsdi60 ---| NZ B4,PBH1 IF NOT COMPLETE
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10445 M01S00098.dsdi60 +++| SB7 B7+B1 INCREMENT REGISTER COUNT 10446 M01S00099.dsdi60 +++| PBH3 SB6 B6-12 UPDATE SHIFT COUNT 10447 M01S00100.dsdi60 +++| NZ B6,PBH1 IF NOT COMPLETE 10448 M00S08567.dsdi +++| EQ PBHX RETURN 10449 M00S08568.dsdi +++| 10450 M00S08569.dsdi +++| 10451 M00S08570.dsdi +++| PBHA CON 0 SUMMARY STATUS FLAG 10452 M00S08571.dsdi +++| PBL SPACE 4,15 10453 M00S08572.dsdi +++|** PBL - PROCESS BML. 10454 M00S08573.dsdi +++|* 10455 M00S08574.dsdi +++|* ENTRY (CBFJ) = REGISTERS LEFT TO PROCESS. 10456 M00S08575.dsdi +++|* (FOMA) = DFT ANALYSIS CODE. 10457 M00S08576.dsdi +++|* 10458 M00S08577.dsdi +++|* EXIT BML FILE WRITTEN. 10459 M00S08578.dsdi +++|*
| Line S08579 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10460 M01S08579.dsdi60 ---|* USES X - 0, 6, 7. 10461 M01S08580.dsdi60 ---|* A - 1, 2, 7. 10462 M01S08581.dsdi60 ---|* B - 2, 4, 5.
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10463 M01S00101.dsdi60 +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 10464 M01S00102.dsdi60 +++|* A - 1, 2, 3, 6, 7. 10465 M01S00103.dsdi60 +++|* B - 6, 7. 10466 M00S08582.dsdi +++|*
| Line S08583 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10467 M01S08583.dsdi60 ---|* CALLS PBH, PBR, RET, SAV, SMR, TBM.
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10468 M01S00104.dsdi60 +++|* CALLS DRA, FBP, NXB, PBH, PBR, SMR, SMS. 10469 M00S08584.dsdi +++| 10470 M00S08585.dsdi +++|
| Line S08586 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10471 M01S08586.dsdi60 ---| PBL9 RJ TBM TERMINATE BML MESSAGE
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10472 M01S00105.dsdi60 +++|* PROCESS SSB DATA. 10473 M01S00106.dsdi60 +++| 10474 M01S00107.dsdi60 +++| PBL7 SA1 CBFO 10475 M01S00108.dsdi60 +++| SX1 X1-4 10476 M01S00109.dsdi60 +++| NG X1,PBLX IF NOT DFT VERSION 4 OR ABOVE 10477 M01S00110.dsdi60 +++| SX1 B1 SET BIT 54 IN SECOND WORD OF BML MESSAGE 10478 M01S00111.dsdi60 +++| LX1 54-0 10479 M01S00112.dsdi60 +++| SA2 BFMB+4 10480 M01S00113.dsdi60 +++| BX7 X1+X2 10481 M01S00114.dsdi60 +++| SA7 A2 10482 M01S00115.dsdi60 +++| SA1 CBFN SSB FWA 10483 M01S00116.dsdi60 +++| SA2 F.TCMT 10484 M01S00117.dsdi60 +++| IX2 X1+X2 10485 M01S00118.dsdi60 +++| SA2 X2 10486 M01S00119.dsdi60 +++| MX0 -16 10487 M01S00120.dsdi60 +++| BX6 -X0*X2 BUFFER LENGTH 10488 M01S00121.dsdi60 +++| SX1 X1+B1 FWA OF BUFFER DATA 10489 M01S00122.dsdi60 +++| SA3 PBLB MRB/SSB ORDINAL 10490 M01S00123.dsdi60 +++| IX2 X3*X6 OFFSET INTO BUFFER 10491 M01S00124.dsdi60 +++| IX3 X2+X1 FWA OF BLOCK 10492 M01S00125.dsdi60 +++| LX3 2 CONVERT TO BYTE NUMBER 10493 M01S00126.dsdi60 +++| RJ FBP POSITION TO HEADER WORD 10494 M01S00127.dsdi60 +++| RJ NXB 10495 M01S00128.dsdi60 +++| RJ NXB 10496 M01S00129.dsdi60 +++| SB7 X1 NUMBER OF REGISTERS TO PROCESS 10497 M01S00130.dsdi60 +++| RJ NXB 10498 M01S00131.dsdi60 +++| SA2 PBLD 10499 M01S00132.dsdi60 +++| BX6 X6-X6 10500 M01S00133.dsdi60 +++| MX0 -8 10501 M01S00134.dsdi60 +++| ZR X2,PBL8 IF NO MODEL DEPENDENT DATA 10502 M01S00135.dsdi60 +++| BX2 -X0*X1 GET MDB ORDINAL 10503 M01S00136.dsdi60 +++| AX1 8 10504 M01S00137.dsdi60 +++| NZ X1,PBL8 IF NOT VALID DATA 10505 M01S00138.dsdi60 +++| SX6 X2+1 SET ORDINAL+1 (ENSURE NON-ZERO VALUE) 10506 M01S00139.dsdi60 +++| PBL8 SA6 A2+ SET/CLEAR MDB FLAG 10507 M01S00140.dsdi60 +++| RJ NXB 10508 M01S00141.dsdi60 +++| PBL9 SB6 56 INITIALIZE OVERFLOW POSITION 10509 M01S00142.dsdi60 +++| RJ PBR PROCESS AND STORE BML REGISTERS 10510 M01S00143.dsdi60 +++| PL X6,PBL9 IF MORE REGISTERS 10511 M01S00144.dsdi60 +++| 10512 M01S00145.dsdi60 +++|* PROCESS MDB DATA. 10513 M01S00146.dsdi60 +++| 10514 M01S00147.dsdi60 +++| SA3 PBLD 10515 M01S00148.dsdi60 +++| ZR X3,PBLX IF NO MODEL DEPENDENT DATA 10516 M01S00149.dsdi60 +++| SX7 BFBDAL SET DATA BLOCK LENGTH 10517 M01S00150.dsdi60 +++| SA7 PBLC+0 10518 M01S00151.dsdi60 +++| SX6 4 SET OVERFLOW SHIFT COUNT DECREMENT AMOUNT 10519 M01S00152.dsdi60 +++| SA6 A7+B1 10520 M01S00153.dsdi60 +++| SX1 B1 SET BIT 55 IN BML HEADER 10521 M01S00154.dsdi60 +++| LX1 55-0 10522 M01S00155.dsdi60 +++| SA2 BFMB+4 10523 M01S00156.dsdi60 +++| BX6 X1+X2 10524 M01S00157.dsdi60 +++| SA6 A2 10525 M01S00158.dsdi60 +++| SX6 X7+BFHL-1 SET MDB MESSAGE SIZE 10526 M01S00159.dsdi60 +++| RJ SMS 10527 M01S00160.dsdi60 +++| SA1 CBFM CALCULATE MDB FWA 10528 M01S00161.dsdi60 +++| SX3 X3-1 GET MDB ORDINAL 10529 M01S00162.dsdi60 +++| IX3 X3+X1 10530 M01S00163.dsdi60 +++| SA3 X3 10531 M01S00164.dsdi60 +++| RJ DRA 10532 M01S00165.dsdi60 +++| LX6 2 CONVERT TO BYTE ADDRESS 10533 M01S00166.dsdi60 +++| SX3 X6+3 ADVANCE TO BYTE 3 OF HEADER WORD 10534 M01S00167.dsdi60 +++| RJ FBP 10535 M01S00168.dsdi60 +++| RJ NXB GET DATA BLOCK LENGTH 10536 M01S00169.dsdi60 +++| SB7 X1-1 10537 M01S00170.dsdi60 +++| PBL10 SB6 56 INITIALIZE SHIFT COUNT 10538 M01S00171.dsdi60 +++| RJ PBR PROCESS BLOCK OF REGISTERS 10539 M01S00172.dsdi60 +++| PL X6,PBL10 IF MORE TO PROCESS 10540 M00S08587.dsdi +++| 10541 M00S08588.dsdi +++| PBL SUBR ENTRY/EXIT 10542 M00S08589.dsdi +++| SA1 CBFJ NUMBER OF REGISTERS TO PROCESS 10543 M00S08590.dsdi +++| BX7 X1 10544 M00S08591.dsdi +++| SA7 PBLA 10545 M00S08592.dsdi +++| PBL1 SX7 B0+ 10546 M00S08593.dsdi +++| SA7 EB SET BML ERRORS PRESENT FLAG
| Line S08594 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10547 M01S08594.dsdi60 ---| SA7 CBFF INITIALIZE OVERFLOW WORD 10548 M00S08595.dsdi ---| PBL2 SA1 PBLA CHECK ENTRIES LEFT TO PROCESS 10549 M01S08596.dsdi60 ---| ZR X1,PBL9 IF ALL ENTRIES PROCESSED
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10550 M01S00173.dsdi60 +++| ZR X1,PBL7 IF ALL ENTRIES PROCESSED 10551 M00S08597.dsdi +++| SX6 X1-5 DECREMENT ENTRY COUNT 10552 M00S08598.dsdi +++| SA6 A1+ 10553 M00S08599.dsdi +++| NZ X6,PBL5 IF NOT LAST BLOCK 10554 M00S08600.dsdi +++| SA2 FOMA DFT ANALYSIS CODE 10555 M00S08601.dsdi +++| 10556 M00S08602.dsdi +++|* PROCESSING FOR LAST BLOCK OF REPAIRED/UNREPAIRED ERRORS. 10557 M00S08603.dsdi +++|
| Line S08604 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10558 M01S08604.dsdi60 ---| SX2 X2-1006B 10559 M01S08605.dsdi60 ---| ZR X2,PBL3 IF REPAIRED ERROR 10560 M01S08606.dsdi60 ---| SX2 X2-1007B+1006B 10561 M01S08607.dsdi60 ---| NZ X2,PBL5 IF NOT UNREPAIRED ERROR 10562 M01S08608.dsdi60 ---| PBL3 SB5 48 INITIALIZE SHIFT POSITION 10563 M01S08609.dsdi60 ---| RJ SAV 10564 M01S08610.dsdi60 ---| RJ NXB GET NEXT BYTE 10565 M01S08611.dsdi60 ---| RJ RET
| Line S00174 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10566 M01S00174.dsdi60 +++| SA1 TM9E CHECK FOR SPECIAL MODEL 990 ERRORS 10567 M01S00175.dsdi60 +++| PBL3 ZR X1,PBL5 IF NOT SPECIAL ERROR 10568 M01S00176.dsdi60 +++| IX3 X2-X1 10569 M01S00177.dsdi60 +++| SA1 A1+B1 10570 M01S00178.dsdi60 +++| NZ X3,PBL3 IF NO MATCH 10571 M01S00179.dsdi60 +++| SB7 48 INITIALIZE SHIFT POSITION 10572 M01S00180.dsdi60 +++| RJ NXB 10573 M00S08612.dsdi +++| MX0 -12
| Line S08613 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10574 M01S08613.dsdi60 ---| BX7 -X0*X1 DO NOT SAVE UPPER 4 BITS 10575 M01S08614.dsdi60 ---| LX7 B5 POSITION BYTE IN REGISTER SAVE AREA 10576 M01S08615.dsdi60 ---| PBL4 SB5 B5-16 DECREMENT SHIFT POSITION 10577 M01S08616.dsdi60 ---| RJ SAV SAVE REGISTERS
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10578 M01S00181.dsdi60 +++| BX5 -X0*X1 DO NOT SAVE UPPER 4 BITS 10579 M01S00182.dsdi60 +++| LX5 B7 POSITION BYTE IN REGISTER SAVE AREA 10580 M01S00183.dsdi60 +++| PBL4 SB7 B7-16 DECREMENT SHIFT POSITION 10581 M00S08617.dsdi +++| RJ NXB
| Line S08618 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10582 M01S08618.dsdi60 ---| RJ RET RESTORE REGISTERS 10583 M01S08619.dsdi60 ---| LX1 B5 POSITION BYTE 10584 M01S08620.dsdi60 ---| BX7 X1+X7 10585 M01S08621.dsdi60 ---| NZ B5,PBL4 IF NOT COMPLETE 10586 M01S08622.dsdi60 ---| RJ SAV
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10587 M01S00184.dsdi60 +++| LX1 B7 POSITION BYTE 10588 M01S00185.dsdi60 +++| BX5 X1+X5 10589 M01S00186.dsdi60 +++| NZ B7,PBL4 IF NOT COMPLETE 10590 M00S08623.dsdi +++| RJ SMR STORE MAINTENANCE REGISTER
| Line S08624 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10591 M01S08624.dsdi60 ---| RJ RET 10592 M01S08625.dsdi60 ---| SB5 4 INITIALIZE REGISTER COUNT 10593 M01S08626.dsdi60 ---| EQ PBL7 CONTINUE PROCESSING BML REGISTERS
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10594 M01S00187.dsdi60 +++| SB7 4 INITIALIZE REGISTER COUNT 10595 M01S00188.dsdi60 +++| EQ PBL6 CONTINUE PROCESSING BML REGISTERS 10596 M00S08627.dsdi +++| 10597 M00S08628.dsdi +++| PBL5 RJ PBH PROCESS BML HEADER REGISTERS
| Line S08629 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10598 M01S08629.dsdi60 ---| SB4 4 10599 M01S08630.dsdi60 ---| SX6 B4-B5 10600 M01S08631.dsdi60 ---| SA6 CBFE SET NUMBER OF REGISTERS TO ZERO OUT 10601 M01S08632.dsdi60 ---| SB4 56 INITIALIZE OVERFLOW POSITION 10602 M01S08633.dsdi60 ---| PBL6 ZR B5,PBL9 IF NO MORE REGISTERS TO PROCESS 10603 M01S08634.dsdi60 ---| PBL7 RJ PBR PROCESS BML REGISTER 10604 M01S08635.dsdi60 ---| SB5 B5-B1 DECREMENT REGISTER COUNT 10605 M01S08636.dsdi60 ---| RJ SAV 10606 M01S08637.dsdi60 ---| RJ SMR STORE MAINTENANCE REGISTER 10607 M01S08638.dsdi60 ---| RJ RET 10608 M01S08639.dsdi60 ---| SB2 B4-8 CHECK IF OVERFLOW WORD IS FULL 10609 M01S08640.dsdi60 ---| ZR B2,PBL8 IF OVERFLOW WORD FULL 10610 M01S08641.dsdi60 ---| EQ PBL6 PROCESS NEXT REGISTER 10611 M01S08642.dsdi60 ---| 10612 M01S08643.dsdi60 ---| PBL8 SA2 CBFF 10613 M01S08644.dsdi60 ---| BX7 X2 10614 M01S08645.dsdi60 ---| RJ SMR STORE REGISTER OVERFLOW
| Line S00189 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10615 M01S00189.dsdi60 +++| PBL6 SB6 56 INITIALIZE OVERFLOW POSITION 10616 M01S00190.dsdi60 +++| RJ PBR PROCESS AND STORE BML REGISTERS 10617 M01S00191.dsdi60 +++| NG X6,PBL7 IF THROUGH PROCESSING 10618 M00S08646.dsdi +++| EQ PBL1 CONTINUE PROCESSING 10619 M00S08647.dsdi +++| 10620 M00S08648.dsdi +++| 10621 M00S08649.dsdi +++| PBLA CON 0 REGISTERS LEFT TO PROCESS 10622 M01S00192.dsdi60 +++| PBLB CON 0 MRB/SSB ORDINAL 10623 M01S00193.dsdi60 +++| PBLC CON BFBDL DATA BLOCK LENGTH 10624 M01S00194.dsdi60 +++| CON 12 SHIFT COUNT 10625 M01S00195.dsdi60 +++| PBLD CON 0 MODEL DEPENDENT DATA BUFFER FLAG 10626 M01S00196.dsdi60 +++| 10627 M01S00197.dsdi60 +++|** TM9E - TABLE OF MODEL 990 SPECIAL ERRORS. 10628 M01S00198.dsdi60 +++| 10629 M01S00199.dsdi60 +++| TM9E BSS 0 10630 M01S00200.dsdi60 +++| CON 0#206 REPAIRED ERROR 10631 M01S00201.dsdi60 +++| CON 0#207 UNREPAIRED ERROR 10632 M01S00202.dsdi60 +++| CON 0#205 RETRY IN PROGRESS 10633 M01S00203.dsdi60 +++| CON 0#21B RETRY CONVERTED TO UNCORRECTED ERROR 10634 M01S00204.dsdi60 +++| CON 0#21C RETRY EXHAUSTED 10635 M01S00205.dsdi60 +++| CON 0#21D RETRY EXHAUSTED 10636 M01S00206.dsdi60 +++| CON 0 10637 M00S08650.dsdi +++| PBR SPACE 4,10
| Line S08651 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10638 M01S08651.dsdi60 ---|** PBR - PROCESS BML REGISTER. 10639 M01S08652.dsdi60 ---|* 10640 M01S08653.dsdi60 ---|* EXIT (X7) = REGISTER. 10641 M01S08654.dsdi60 ---|* (B4) = UPDATED SHIFT COUNT FOR BML REGISTER NUMBERS. 10642 M01S08655.dsdi60 ---|* 10643 M01S08656.dsdi60 ---|* USES X - 0, 1, 2, 6, 7. 10644 M01S08657.dsdi60 ---|* A - 2, 3, 6, 7. 10645 M01S08658.dsdi60 ---|* B - 4, 6. 10646 M01S08659.dsdi60 ---|* 10647 M01S08660.dsdi60 ---|* CALLS NXB.
| Line S00207 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10648 M01S00207.dsdi60 +++|* PBR - PROCESS AND STORE BLOCK OF BML REGISTERS. 10649 M01S00208.dsdi60 +++|* 10650 M01S00209.dsdi60 +++|* EXIT (X6) = NEGATIVE IF *TBM* CALLED. 10651 M01S00210.dsdi60 +++|* 10652 M01S00211.dsdi60 +++|* USES X - 0, 1, 2, 3, 5, 6. 10653 M01S00212.dsdi60 +++|* A - 0, 3, 5, 6. 10654 M01S00213.dsdi60 +++|* B - 4, 6, 7. 10655 M01S00214.dsdi60 +++|* 10656 M01S00215.dsdi60 +++|* CALLS NXB, SMR, TBM. 10657 M00S08661.dsdi +++| 10658 M00S08662.dsdi +++| 10659 M01S00216.dsdi60 +++| PBR3 RJ TBM TERMINATE BML MESSAGE 10660 M01S00217.dsdi60 +++| SX6 -1 10661 M01S00218.dsdi60 +++| 10662 M00S08663.dsdi +++| PBR SUBR ENTRY/EXIT 10663 M01S00219.dsdi60 +++| PBR1 ZR B7,PBR3 IF NO MORE REGISTERS 10664 M00S08664.dsdi +++| SX5 B0+ INITIALIZE BML SAVE AREA
| Line S08665 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10665 M01S08665.dsdi60 ---| SB6 44 INITIALIZE SHIFT COUNT FOR REGISTERS 10666 M01S08666.dsdi60 ---| PBR1 RJ SAV SAVE REGISTERS
| Line S00220 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10667 M01S00220.dsdi60 +++| SB4 44 INITIALIZE SHIFT COUNT FOR REGISTERS 10668 M01S00221.dsdi60 +++| PBR2 SA0 B4+ 10669 M00S08667.dsdi +++| RJ NXB GET NEXT BYTE
| Line S08668 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10670 M01S08668.dsdi60 ---| RJ RET RETURN REGISTERS 10671 M01S08669.dsdi60 ---| LX1 B6 CORRECTLY POSITION REGISTER
| Line S00222 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10672 M01S00222.dsdi60 +++| SB4 A0+ 10673 M01S00223.dsdi60 +++| LX1 B4 CORRECTLY POSITION REGISTER 10674 M00S08670.dsdi +++| BX5 X1+X5
| Line S08671 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10675 M01S08671.dsdi60 ---| SB6 B6-16 DECREMENT SHIFT COUNT 10676 M01S08672.dsdi60 ---| PL B6,PBR1 IF NOT COMPLETE 10677 M01S08673.dsdi60 ---| RJ SAV SAVE REGISTERS
| Line S00224 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10678 M01S00224.dsdi60 +++| SB4 B4-16 DECREMENT SHIFT COUNT 10679 M01S00225.dsdi60 +++| PL B4,PBR2 IF NOT COMPLETE 10680 M00S08674.dsdi +++| RJ NXB GET LAST BYTE
| Line S08675 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10681 M01S08675.dsdi60 ---| RJ RET RETURN REGISTERS 10682 M00S08676.dsdi ---| MX0 -4 GET LOWER 4 BITS 10683 M00S08677.dsdi ---| BX2 -X0*X1 10684 M00S08678.dsdi ---| AX1 4 10685 M01S08679.dsdi60 ---| BX7 X1+X5 10686 M01S08680.dsdi60 ---| LX2 B4 10687 M01S08681.dsdi60 ---| SB4 B4-12 UPDATE OVERFLOW SHIFT COUNT
| Line S00226 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10688 M01S00226.dsdi60 +++| BX5 X1+X5 10689 M01S00227.dsdi60 +++| LX2 B6 10690 M01S00228.dsdi60 +++| SA3 PBLC+1 UPDATE OVERFLOW SHIFT COUNT 10691 M01S00229.dsdi60 +++| SB4 X3 10692 M01S00230.dsdi60 +++| SB6 B6-B4 10693 M00S08682.dsdi +++| SA3 CBFF UPDATE BML OVERFLOW WORD 10694 M00S08683.dsdi +++| BX6 X2+X3 10695 M00S08684.dsdi +++| SA6 A3 10696 M01S00231.dsdi60 +++| SB7 B7-B1 DECREMENT REGISTER COUNT 10697 M01S00232.dsdi60 +++| RJ SMR STORE REGISTER 10698 M01S00233.dsdi60 +++| ZR B6,PBR1 IF ONE MORE SPOT IN MDB OVERFLOW WORD 10699 M01S00234.dsdi60 +++| SA3 PBLC+1 10700 M01S00235.dsdi60 +++| SB4 X3 10701 M01S00236.dsdi60 +++| SB4 B6-B4 10702 M01S00237.dsdi60 +++| PL B4,PBR1 IF OVERFLOW WORD NOT FULL 10703 M01S00238.dsdi60 +++| SA5 CBFF STORE OVERFLOW WORD 10704 M01S00239.dsdi60 +++| RJ SMR 10705 M01S00240.dsdi60 +++| BX6 X6-X6 CLEAR OVERFLOW WORD 10706 M01S00241.dsdi60 +++| SA6 A5 10707 M00S08685.dsdi +++| EQ PBRX RETURN 10708 M00S08686.dsdi +++| RDB SPACE 4,10 10709 M00S08687.dsdi +++|** RDB - RESET DATA BLOCK. 10710 M00S08688.dsdi +++|* 10711 M00S08689.dsdi +++|* EXIT (BFBI) = 0. 10712 M00S08690.dsdi +++|* (BFBD - BFBD+BFBDL) = 0. 10713 M00S08691.dsdi +++|*
| Line S08692 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10714 M01S08692.dsdi60 ---|* USES X - 7. 10715 M01S08693.dsdi60 ---|* A - 7.
| Line S00242 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10716 M01S00242.dsdi60 +++|* USES X - 1, 7. 10717 M01S00243.dsdi60 +++|* A - 1, 7. 10718 M00S08694.dsdi +++|* B - 2. 10719 M00S08695.dsdi +++| 10720 M00S08696.dsdi +++| RDB SUBR ENTRY/EXIT
| Line S08697 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10721 M01S08697.dsdi60 ---| SX7 B0+ RESET DATA BLOCK INDEX 10722 M01S08698.dsdi60 ---| SA7 BFBI 10723 M01S08699.dsdi60 ---| SB2 BFBDL ZERO FILL DATA BLOCK
| Line S00244 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10724 M01S00244.dsdi60 +++| BX7 X7-X7 RESET DATA BLOCK INDEX 10725 M01S00245.dsdi60 +++| SA1 PBLC+0 10726 M01S00246.dsdi60 +++| SB2 X1 10727 M01S00247.dsdi60 +++| SA7 BFBI 10728 M00S08700.dsdi +++| RDB1 SB2 B2-1 10729 M00S08701.dsdi +++| SA7 BFBD+B2 10730 M00S08702.dsdi +++| NZ B2,RDB1 IF NOT END OF BLOCK 10731 M00S08703.dsdi +++| EQ RDBX RETURN 10732 M00S08704.dsdi +++| SMR SPACE 4,15 10733 M00S08705.dsdi +++|** SMR - STORE MAINTENANCE REGISTER. 10734 M00S08706.dsdi +++|*
| Line S08707 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10735 M01S08707.dsdi60 ---|* ENTRY (X7) = WORD TO STORE.
| Line S00248 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10736 M01S00248.dsdi60 +++|* ENTRY (X5) = WORD TO STORE. 10737 M00S08708.dsdi +++|* 10738 M00S08709.dsdi +++|* EXIT (BFBI) = (BFBI) + 1. 10739 M01S00249.dsdi60 +++|* (B6) PRESERVED. 10740 M01S00250.dsdi60 +++|* (B7) PRESERVED. 10741 M00S08710.dsdi +++|* IF THE DATA BLOCK IS FULL, THE CURRENT MESSAGE BLOCK
| Line S08711 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10742 M01S08711.dsdi60 ---|* IS WRITTEN TO THE BML FILE AND (X7) IS STORED IN A
| Line S00251 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10743 M01S00251.dsdi60 +++|* IS WRITTEN TO THE BML FILE AND (X5) IS STORED IN A 10744 M00S08712.dsdi +++|* NEW MESSAGE BLOCK. 10745 M00S08713.dsdi +++|*
| Line S08714 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10746 M01S08714.dsdi60 ---|* USES X - 0, 1, 5, 6, 7. 10747 M01S08715.dsdi60 ---|* A - 1, 6, 7. 10748 M01S08716.dsdi60 ---|* B - 2, 3.
| Line S00252 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10749 M01S00252.dsdi60 +++|* USES X - 0, 1, 2, 6, 7. 10750 M01S00253.dsdi60 +++|* A - 1, 2, 6, 7. 10751 M01S00254.dsdi60 +++|* B - 6, 7. 10752 M00S08717.dsdi +++|* 10753 M00S08718.dsdi +++|* CALLS RDB. 10754 M00S08719.dsdi +++|* 10755 M00S08720.dsdi +++|* MACROS WRITEW. 10756 M00S08721.dsdi +++| 10757 M00S08722.dsdi +++| 10758 M00S08723.dsdi +++| SMR SUBR ENTRY/EXIT 10759 M00S08724.dsdi +++| SA1 BFBI GET DATA BLOCK INDEX
| Line S08725 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10760 M01S08725.dsdi60 ---| SB3 BFBDL DATA BLOCK LENGTH 10761 M01S08726.dsdi60 ---| SB2 X1 10762 M01S08727.dsdi60 ---| NE B2,B3,SMR1 IF NOT END OF DATA BLOCK
| Line S00255 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10763 M01S00255.dsdi60 +++| SA2 PBLC+0 DATA BLOCK LENGTH 10764 M01S00256.dsdi60 +++| IX6 X1-X2 10765 M01S00257.dsdi60 +++| NZ X6,SMR1 IF NOT END OF DATA BLOCK 10766 M00S08728.dsdi +++| 10767 M00S08729.dsdi +++|* FLUSH DATA BLOCK. 10768 M00S08730.dsdi +++|
| Line S08731 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10769 M01S08731.dsdi60 ---| BX5 X7 SAVE REGISTER CONTENTS 10770 M01S08732.dsdi60 ---| WRITEW B,BFMB,BFMBL+1 WRITE MESSAGE BLOCK
| Line S00258 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10771 M01S00258.dsdi60 +++| SX6 B6 SAVE B6, B7 10772 M01S00259.dsdi60 +++| LX6 18 10773 M01S00260.dsdi60 +++| SX7 B7 10774 M01S00261.dsdi60 +++| BX7 X6+X7 10775 M01S00262.dsdi60 +++| SA7 SMRA 10776 M01S00263.dsdi60 +++| SX2 X2+BFHL 10777 M01S00264.dsdi60 +++| WRITEW B,BFMB,X2 10778 M01S00265.dsdi60 +++| SA1 SMRA RESTORE 10779 M01S00266.dsdi60 +++| SB7 X1 10780 M01S00267.dsdi60 +++| AX1 18 10781 M01S00268.dsdi60 +++| SB6 X1 10782 M00S08733.dsdi +++| RJ RDB RESET DATA BLOCK 10783 M00S08734.dsdi +++| SA1 BFMB SET PREVIOUS BLOCK LENGTH
| Line S08735 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10784 M01S08735.dsdi60 ---| SX6 BFMBL+1
| Line S00269 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10785 M01S00269.dsdi60 +++| SA2 PBLC+0 10786 M01S00270.dsdi60 +++| SX6 X2+BFHL 10787 M00S08736.dsdi +++| MX0 18 10788 M00S08737.dsdi +++| LX6 24 10789 M00S08738.dsdi +++| LX0 -18 10790 M00S08739.dsdi +++| BX1 -X0*X1 10791 M00S08740.dsdi +++| BX6 X1+X6
| Line S08741 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10792 M01S08741.dsdi60 ---| SA6 A1+ 10793 M01S08742.dsdi60 ---| BX7 X5 RESTORE REGISTER CONTENTS
| Line S00271 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10794 M01S00271.dsdi60 +++| SA6 A1 10795 M00S08743.dsdi +++| SA1 BFMB+4 SET *NOT FIRST BLOCK* FLAG 10796 M00S08744.dsdi +++| MX0 1 10797 M00S08745.dsdi +++| LX0 39-59 10798 M00S08746.dsdi +++| BX6 X0+X1 10799 M00S08747.dsdi +++| SA6 A1 10800 M00S08748.dsdi +++| SA1 BFBI GET DATA BLOCK INDEX
| Line S08749 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10801 M01S08749.dsdi60 ---| SMR1 SA7 BFBD+X1 STORE REGISTER CONTENTS
| Line S00272 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10802 M01S00272.dsdi60 +++| SMR1 BX7 X5 STORE REGISTER CONTENTS 10803 M01S00273.dsdi60 +++| SA7 BFBD+X1 10804 M00S08750.dsdi +++| SX6 X1+B1 ADVANCE DATA BLOCK INDEX 10805 M00S08751.dsdi +++| SA6 A1 10806 M00S08752.dsdi +++| EQ SMRX RETURN
| Line S08753 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10807 M01S08753.dsdi60 ---| RET SPACE 4,10 10808 M01S08754.dsdi60 ---|** RET - RESTORE SAVED REGISTERS. 10809 M01S08755.dsdi60 ---|* 10810 M01S08756.dsdi60 ---|* ENTRY (SAVA) = (X7). 10811 M01S08757.dsdi60 ---|* (SAVA+1) = 6/0, 18/(B6), 18/(B5), 18/(B4). 10812 M01S08758.dsdi60 ---|* 10813 M01S08759.dsdi60 ---|* EXIT (X7), (B6), (B5), (B4) = RESTORED. 10814 M01S08760.dsdi60 ---|* 10815 M01S08761.dsdi60 ---|* USES X - 2, 7. 10816 M01S08762.dsdi60 ---|* A - 2. 10817 M01S08763.dsdi60 ---|* B - 4, 5, 6. 10818 M01S08764.dsdi60 ---| 10819 M01S08765.dsdi60 ---| 10820 M01S08766.dsdi60 ---| RET SUBR ENTRY/EXIT 10821 M01S08767.dsdi60 ---| SA2 SAVA (X7) 10822 M01S08768.dsdi60 ---| BX7 X2 10823 M01S08769.dsdi60 ---| SA2 A2+B1 (B6), (B5), (B4) 10824 M01S08770.dsdi60 ---| SB4 X2 10825 M01S08771.dsdi60 ---| AX2 18 10826 M01S08772.dsdi60 ---| SB5 X2 10827 M01S08773.dsdi60 ---| AX2 18 10828 M01S08774.dsdi60 ---| SB6 X2 10829 M01S08775.dsdi60 ---| EQ RETX RETURN 10830 M01S08776.dsdi60 ---| SAV SPACE 4,10 10831 M01S08777.dsdi60 ---|** SAV - SAVE REGISTERS. 10832 M01S08778.dsdi60 ---|* 10833 M01S08779.dsdi60 ---|* EXIT (X7) PRESERVED. 10834 M01S08780.dsdi60 ---|* (SAVA) = (X7). 10835 M01S08781.dsdi60 ---|* (SAVA+1) = 6/0, 18/(B6), 18/(B5), 18/(B4). 10836 M01S08782.dsdi60 ---|* 10837 M01S08783.dsdi60 ---|* USES X - 2, 7. 10838 M01S08784.dsdi60 ---|* A - 2, 7. 10839 M01S08785.dsdi60 ---| 10840 M01S08786.dsdi60 ---| 10841 M01S08787.dsdi60 ---| SAV SUBR ENTRY/EXIT 10842 M01S08788.dsdi60 ---| SA7 SAVA (X7) 10843 M01S08789.dsdi60 ---| SX7 B6 (B6) 10844 M01S08790.dsdi60 ---| MX0 -18 10845 M01S08791.dsdi60 ---| BX7 -X0*X7 10846 M01S08792.dsdi60 ---| SX2 B5 (B5) 10847 M01S08793.dsdi60 ---| BX2 -X0*X2 10848 M01S08794.dsdi60 ---| LX7 18 10849 M01S08795.dsdi60 ---| BX7 X2+X7 10850 M01S08796.dsdi60 ---| SX2 B4 (B4) 10851 M01S08797.dsdi60 ---| BX2 -X0*X2 10852 M01S08798.dsdi60 ---| LX7 18 10853 M01S08799.dsdi60 ---| BX7 X2+X7 10854 M01S08800.dsdi60 ---| SA7 A7+B1 10855 M01S08801.dsdi60 ---| SA2 A7-B1 10856 M01S08802.dsdi60 ---| BX7 X2 RESTORE X7 10857 M01S08803.dsdi60 ---| EQ SAVX RETURN 10858 M01S08804.dsdi60 ---| 10859 M01S08805.dsdi60 ---| 10860 M01S08806.dsdi60 ---| SAVA CON 0 (X7) 10861 M01S08807.dsdi60 ---| CON 0 (B6), (B5), (B4)
| Line S00274 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10862 M01S00274.dsdi60 +++| 10863 M01S00275.dsdi60 +++| 10864 M01S00276.dsdi60 +++| SMRA CON 0 REGISTER SAVE WORD 10865 M01S00277.dsdi60 +++| SMS SPACE 4,10 10866 M01S00278.dsdi60 +++|** SMS - SET MESSAGE SIZE IN BML HEADER. 10867 M01S00279.dsdi60 +++|* 10868 M01S00280.dsdi60 +++|* ENTRY - (X6) = CURRENT MESSAGE SIZE TO SET. 10869 M01S00281.dsdi60 +++|* 10870 M01S00282.dsdi60 +++|* EXIT CURRENT MESSAGE SIZE FIELDS SET IN BML HEADER WORDS 10871 M01S00283.dsdi60 +++|* 0 AND 1. 10872 M01S00284.dsdi60 +++|* 10873 M01S00285.dsdi60 +++|* USES X - 0, 1, 6, 7. 10874 M01S00286.dsdi60 +++|* A - 1, 7. 10875 M01S00287.dsdi60 +++| 10876 M01S00288.dsdi60 +++| 10877 M01S00289.dsdi60 +++| SMS SUBR ENTRY/EXIT 10878 M01S00290.dsdi60 +++| SA1 BFMB SET HEADER WORD ONE 10879 M01S00291.dsdi60 +++| MX0 -12 10880 M01S00292.dsdi60 +++| BX1 X0*X1 10881 M01S00293.dsdi60 +++| BX7 X1+X6 10882 M01S00294.dsdi60 +++| SA7 A1 10883 M01S00295.dsdi60 +++| LX6 59-11 POSITION SIZE 10884 M01S00296.dsdi60 +++| LX0 59-11 10885 M01S00297.dsdi60 +++| SA1 A1+B1 SET HEADER WORD TWO 10886 M01S00298.dsdi60 +++| BX1 X0*X1 10887 M01S00299.dsdi60 +++| BX7 X1+X6 10888 M01S00300.dsdi60 +++| SA7 A1 10889 M01S00301.dsdi60 +++| EQ SMSX RETURN 10890 M00S08808.dsdi +++| TBM SPACE 4,10 10891 M00S08809.dsdi +++|** TBM - TERMINATE BML MESSAGE. 10892 M00S08810.dsdi +++|* 10893 M00S08811.dsdi +++|* ENTRY (CBFF) = REGISTER BML WORD.
| Line S08812 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10894 M01S08812.dsdi60 ---|* (CBFE) = REGISTER COUNT.
| Line S00302 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10895 M01S00302.dsdi60 +++|* (PBLC+1) = AMOUNT TO DECREMENT OVERFLOW SHIFT COUNT. 10896 M01S00303.dsdi60 +++|* (B6) = OVERFLOW SHIFT COUNT. 10897 M00S08813.dsdi +++|* 10898 M00S08814.dsdi +++|* EXIT BML BUFFER FLUSHED. 10899 M00S08815.dsdi +++|* CONTINUATION BIT RESET. 10900 M00S08816.dsdi +++|*
| Line S08817 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10901 M01S08817.dsdi60 ---|* USES X - 0, 2, 6, 7. 10902 M01S08818.dsdi60 ---|* A - 1, 2, 6, 7. 10903 M01S08819.dsdi60 ---|* 10904 M01S08820.dsdi60 ---|* CALLS RDB, SMR.
| Line S00304 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10905 M01S00304.dsdi60 +++|* USES X - 0, 1, 5, 6, 7. 10906 M01S00305.dsdi60 +++|* A - 1, 5, 6, 7. 10907 M01S00306.dsdi60 +++|* B - 2, 6, 7. 10908 M01S00307.dsdi60 +++|* 10909 M01S00308.dsdi60 +++|* CALLS RDB, SMR, SMS. 10910 M00S08821.dsdi +++|* 10911 M00S08822.dsdi +++|* MACROS WRITEW. 10912 M00S08823.dsdi +++| 10913 M00S08824.dsdi +++| 10914 M00S08825.dsdi +++| TBM SUBR ENTRY/EXIT.
| Line S08826 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10915 M01S08826.dsdi60 ---| SA2 CBFF 10916 M01S08827.dsdi60 ---| ZR X2,TBM2 IF REGISTER WORD WRITTEN 10917 M01S08828.dsdi60 ---| SA1 CBFE DECREMENT REGISTER COUNT 10918 M01S08829.dsdi60 ---| TBM1 SX2 -B1 10919 M01S08830.dsdi60 ---| IX6 X1+X2 10920 M01S08831.dsdi60 ---| SA6 A1 10921 M01S08832.dsdi60 ---| BX7 X7-X7 WRITE ZERO WORD
| Line S00309 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10922 M01S00309.dsdi60 +++| SB2 B6-56 10923 M01S00310.dsdi60 +++| ZR B2,TBM2 IF OVERFLOW WORD WRITTEN 10924 M01S00311.dsdi60 +++| SA1 PBLC+1 GET SHIFT COUNT 10925 M01S00312.dsdi60 +++| SB7 X1 10926 M01S00313.dsdi60 +++| SB6 B6-B7 10927 M01S00314.dsdi60 +++| TBM1 BX5 X5-X5 WRITE ZERO WORD 10928 M01S00315.dsdi60 +++| SB6 B6-B7 10929 M00S08833.dsdi +++| RJ SMR
| Line S08834 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10930 M01S08834.dsdi60 ---| SA1 CBFE 10931 M01S08835.dsdi60 ---| NZ X1,TBM1 IF REGISTER WORD NOT FULL 10932 M01S08836.dsdi60 ---| SA2 CBFF 10933 M01S08837.dsdi60 ---| BX7 X2 10934 M01S08838.dsdi60 ---| RJ SMR STORE UPPER REGISTER BITS WORD
| Line S00316 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10935 M01S00316.dsdi60 +++| GT B6,TBM1 IF NOT THROUGH WITH BLOCK 10936 M01S00317.dsdi60 +++| SA5 CBFF STORE OVERFLOW WORD 10937 M01S00318.dsdi60 +++| BX6 X6-X6 CLEAR OVERFLOW WORD 10938 M01S00319.dsdi60 +++| SA6 A5 10939 M01S00320.dsdi60 +++| RJ SMR 10940 M00S08839.dsdi +++| TBM2 SX0 B1 CLEAR CONTINUATION BIT 10941 M00S08840.dsdi +++| LX0 38-0 10942 M00S08841.dsdi +++| SA1 BFMB+4 10943 M00S08842.dsdi +++| BX7 -X0*X1 10944 M00S08843.dsdi +++| SA7 A1 10945 M00S08844.dsdi +++|
| Line S08845 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10946 M01S08845.dsdi60 ---|* FLUSH MESSAGE BLOCK.
| Line S00321 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10947 M01S00321.dsdi60 +++|* FLUSH MESSAGE BLOCK AND RESET HEADER. 10948 M00S08846.dsdi +++|
| Line S08847 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10949 M01S08847.dsdi60 ---| WRITEW B,BFMB,BFMBL+1 WRITE LAST BLOCK OF MESSAGE
| Line S00322 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10950 M01S00322.dsdi60 +++| SA1 PBLC+0 10951 M01S00323.dsdi60 +++| SX1 X1+BFHL 10952 M01S00324.dsdi60 +++| WRITEW B,BFMB,X1 WRITE LAST BLOCK OF MESSAGE 10953 M00S08848.dsdi +++| RJ RDB RESET DATA BLOCK
| Line S08849 Modification History | |
|---|---|
M01 (Removed by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10954 M01S08849.dsdi60 ---| SX7 B1 SET CONTINUATION/CLEAR *NOT FIRST BLOCK* 10955 M01S08850.dsdi60 ---| LX7 38-0 10956 M01S08851.dsdi60 ---| SA7 BFMB+4
| Line S00325 Modification History | |
|---|---|
M01 (Added by) | dsdi60 |
Seq # *Modification Id* Act ----------------------------+ 10957 M01S00325.dsdi60 +++| SA1 BFMB+4 10958 M01S00326.dsdi60 +++| MX0 2 10959 M01S00327.dsdi60 +++| LX0 55-59 CLEAR MESSAGE CONTENT FLAGS 10960 M01S00328.dsdi60 +++| BX1 -X0*X1 10961 M01S00329.dsdi60 +++| LX0 39-59-55+59 SET CONTINUATION/CLEAR *NOT FIRST BLOCK* 10962 M01S00330.dsdi60 +++| BX7 X0-X1 10963 M01S00331.dsdi60 +++| SA7 A1 10964 M01S00332.dsdi60 +++| SX6 BFMBL RESET CURRENT MESSAGE SIZE 10965 M01S00333.dsdi60 +++| RJ SMS 10966 M01S00334.dsdi60 +++| SX6 BFBDL RESET BML MESSAGE SIZE 10967 M01S00335.dsdi60 +++| SA6 PBLC+0 10968 M01S00336.dsdi60 +++| SX7 12 RESET OVERFLOW SHIFT COUNT 10969 M01S00337.dsdi60 +++| SA7 A6+1 10970 M00S08852.dsdi +++| EQ TBMX RETURN 10971 M00S08853.dsdi +++| TITLE SUBROUTINES. 10972 M00S08854.dsdi +++| APP SPACE 4,7 10973 M00S08855.dsdi +++|** APP - ANALYZE PPU. 10974 M00S08856.dsdi +++|* 10975 M00S08857.dsdi +++|* ENTRY PP = PPU NUMBER. 10976 M00S08858.dsdi +++|* 10977 M00S08859.dsdi +++|* USES ALL REGISTERS. 10978 M00S08860.dsdi +++|*
| Line S08861 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 10979 M01S08861.dsdi56 ---|* CALLS CPS, DPQ, FEM, FLS, FON, FPL, ICT, PDF, RPD, SFN, 10980 M01S08862.dsdi56 ---|* SLM, SSB.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 10981 M02S00003.ns2647 ---|* CALLS CPS, DPQ, FEM, FLS, FON, FPL, GPS, ICT, PDF, RPD, 10982 M02S00004.ns2647 ---|* SFN, SLM, SSB.
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 10983 M01S00045.ns2647 +++|* CALLS COD, CPN, CPS, DPQ, FEM, FLC, FON, FPL, FPO, GPS, ICT, 10984 M01S00046.ns2647 +++|* PPO, RPD, SFN, SLP, SSB, UPS. 10985 M00S08863.dsdi +++|* 10986 M00S08864.dsdi +++|* MACROS PRINT. 10987 M00S08865.dsdi +++| 10988 M00S08866.dsdi +++| 10989 M00S08867.dsdi +++| APP SUBR 10990 M01S00047.ns2647 +++| RJ PPO PACK PP OPERATING REGISTERS 10991 M01S00048.ns2647 +++| SA6 APPH SAVE REGISTER DATA FOUND FLAG
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 10992 M01S00005.dsdi56 +++| RJ RPD READ PP DATA 10993 M01S00006.dsdi56 +++| SX6 B0+ CLEAR DUMPING PP SAVE AREA DATA FLAG 10994 M01S00007.dsdi56 +++| APP1 SA6 APPF 10995 M00S08868.dsdi +++| RJ ICT INITIALIZE CHANNEL TABLE
| Line S08869 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 10996 M01S08869.dsdi56 ---| RJ RPD READ PPU DATA 10997 M00S08870.dsdi ---| SA2 EF CHECK AUTO EJECT FLAG 10998 M00S08871.dsdi ---| SX1 100 PRESET FOR EJECT 10999 M01S08872.dsdi56 ---| ZR X2,APP1 IF AUTO EJECT ON
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11000 M01S00008.dsdi56 +++| ZR X2,APP2 IF AUTO EJECT ON 11001 M00S08873.dsdi +++| SX1 26
| Line S08874 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11002 M01S08874.dsdi56 ---| APP1 RJ CPS CHECK PAGE SPACE
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11003 M01S00009.dsdi56 +++| APP2 RJ CPS CHECK PAGE SPACE 11004 M00S08875.dsdi +++| PRINT (=2C ) 11005 M00S08876.dsdi +++| SA1 BPNA+1 11006 M01S00010.dsdi56 +++| SA2 =6R, AFTE 11007 M00S08877.dsdi +++| BX6 X1
| Line S08878 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11008 M01S08878.dsdi56 ---| SA6 APPD+2 SET NAME IN HEADER 11009 M01S08879.dsdi56 ---| SA0 APPD+4 SET LOGICAL PP IN MESSAGE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11010 M01S00011.dsdi56 +++| BX7 X1+X2 11011 M01S00012.dsdi56 +++| SA6 APPA+2 SET NAME IN HEADER 11012 M01S00013.dsdi56 +++| SA7 APPB+2 11013 M01S00014.dsdi56 +++| SA2 APPF 11014 M01S00015.dsdi56 +++| ZR X2,APP3 IF NOT DUMPING PP SAVE AREA DATA 11015 M01S00016.dsdi56 +++| SA1 GPSB GET ADDRESS OF PP SAVE BUFFER 11016 M01S00017.dsdi56 +++| RJ COD CONVERT SAVE BUFFER ADDRESS 11017 M01S00018.dsdi56 +++| MX6 48 ENSURE END OF LINE 11018 M01S00019.dsdi56 +++| BX6 X6*X4 11019 M01S00020.dsdi56 +++| BX1 X4 11020 M01S00021.dsdi56 +++| SA6 APPB+7 11021 M01S00022.dsdi56 +++| APP3 SA0 A6+2 SET LOGICAL PP IN MESSAGE 11022 M00S08880.dsdi +++| RJ SLP
| Line S08881 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11023 M01S08881.dsdi56 ---| ZR X6,APP1.1 IF NO PP SWITCH
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11024 M01S00023.dsdi56 +++| ZR X6,APP4 IF NO PP SWITCH 11025 M00S08882.dsdi +++| RJ SFN SPACE FILL NAME
| Line S08883 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11026 M01S08883.dsdi56 ---| SA6 APPD+2 SET SPACE FILLED NAME IN HEADER 11027 M01S08884.dsdi56 ---| APP1.1 PRINT APPD
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11028 M01S00024.dsdi56 +++| SA6 A6+ SET SPACE FILLED NAME IN HEADER 11029 M01S00025.dsdi56 +++| APP4 SA1 A6+3 GET FWA OF HEADER 11030 M01S00026.dsdi56 +++| PRINT X1 PRINT HEADER 11031 M00S08885.dsdi +++| PRINT (=2C )
| Line S08886 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11032 M01S08886.dsdi56 ---| SX6 B0+ 11033 M01S08887.dsdi56 ---| SA6 APPA PRESET LINE INDEX 11034 M00S08888.dsdi ---| RJ SSB CLEAR PRINT STRING
| Line S08889 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11035 M01S08889.ns2647 ---| SA2 PP PPU NUMBER 11036 M00S08890.dsdi ---| SA3 F.TCMT 11037 M00S08891.dsdi ---| SA4 PC GET PP COMMUNICATION AREA POINTER 11038 M00S08892.dsdi ---| IX4 X3+X4 ADDRESS OF PP COMMUNICATION AREA 11039 M01S08893.ns2647 ---| BX5 X2 11040 M01S08894.ns2647 ---| SX7 X5-20B
| Line S08895 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11041 M02S08895.ns2647 ---| NG X7,APP2 IF NOT PPUS 20 - 31
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11042 M02S00027.ns2647 ---| NG X7,APP5 IF NOT PP-S 20 - 31
| Line S08896 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11043 M01S08896.ns2647 ---| SX5 X5-20B+12B CORRECT PPU INDEX
| Line S08897 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11044 M02S08897.ns2647 ---| APP2 SA1 IC 11045 M02S08898.ns2647 ---| ZR X1,APP2.1 IF NOT *CPP* PROCESSING
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11046 M02S00028.ns2647 ---| APP5 SA1 IC 11047 M02S00029.ns2647 ---| ZR X1,APP6 IF NOT *CPP* PROCESSING
| Line S08899 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11048 M01S08899.ns2647 ---| SA5 NP 11049 M01S08900.ns2647 ---| IX5 X5+X2
| Line S08901 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11050 M02S08901.ns2647 ---| APP2.1 LX5 3
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11051 M02S00030.ns2647 ---| APP6 LX5 3
| Line S08902 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11052 M01S08902.ns2647 ---| IX5 X5+X4
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11053 M01S00049.ns2647 +++| RJ CPN CONVERT PP/CPP NUMBER 11054 M01S00050.ns2647 +++| LX6 3 11055 M01S00051.ns2647 +++| IX5 X6+X4 11056 M00S08903.dsdi +++| SA5 X5 READ SELECTED INPUT REGISTER
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11057 M01S00031.dsdi56 +++| SX6 B0 PRESET LINE INDEX 11058 M00S08904.dsdi +++| 11059 M00S08905.dsdi +++|* FORMAT I/O REGISTERS AND OVERLAY NAMES. 11060 M00S08906.dsdi +++|
| Line S08907 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11061 M01S08907.dsdi56 ---| APP3 SA1 APPA 11062 M01S08908.dsdi56 ---| SA2 PP RELOAD PP NUMBER 11063 M01S08909.dsdi56 ---| SB4 X1 SET LINE INDEX
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11064 M01S00032.dsdi56 +++| APP7 SA2 PP RELOAD PP NUMBER 11065 M01S00033.dsdi56 +++| SA6 APPE SAVE LINE INDEX 11066 M01S00034.dsdi56 +++| SB4 X6 11067 M00S08910.dsdi +++| SB2 X2 SET PPU NUMBER 11068 M00S08911.dsdi +++| SB7 PRBF+5 PRINT STRING ADDRESS 11069 M00S08912.dsdi +++| RJ FPL FORMAT PPU REGISTER LINE 11070 M00S08913.dsdi +++| SB7 PRBF+60 11071 M00S08914.dsdi +++| RJ FON FORMAT OVERLAY NAME 11072 M00S08915.dsdi +++| PRINT CCCH,B7-CCCH
| Line S08916 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11073 M01S08916.dsdi56 ---| SA1 APPA
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11074 M01S00035.dsdi56 +++| SA1 APPE 11075 M01S00036.dsdi56 +++| SA2 APPF 11076 M00S08917.dsdi +++| SA5 A5+B1 READ NEXT REGISTER WORD
| Line S08918 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11077 M01S08918.dsdi56 ---| SX6 X1+B1 11078 M01S08919.dsdi56 ---| SA6 A1+ ADVANCE LINE INDEX 11079 M01S08920.dsdi56 ---| SX6 X6-10B 11080 M01S08921.dsdi56 ---| NG X6,APP3 IF MORE TO FORMAT
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11081 M01S00037.dsdi56 +++| SX6 X1+B1 ADVANCE LINE INDEX 11082 M01S00038.dsdi56 +++| SB4 X6-10B 11083 M01S00039.dsdi56 +++| ZR X2,APP8 IF NOT DUMPING PP SAVE AREA DATA 11084 M01S00040.dsdi56 +++| SA5 X1+1+PSAV GET REGISTER FROM SAVE AREA 11085 M01S00041.dsdi56 +++| APP8 NG B4,APP7 IF MORE TO FORMAT 11086 M00S08922.dsdi +++|
| Line S08923 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11087 M01S08923.ns2647 ---|* FORMAT ENTRY POINT MAP AND LOW CORE ANALYSIS.
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11088 M01S00052.ns2647 +++|* FORMAT ENTRY POINT MAP, LOW CORE ANALYSIS AND OPERATING 11089 M01S00053.ns2647 +++|* REGISTERS. 11090 M00S08924.dsdi +++| 11091 M00S08925.dsdi +++| PRINT (=2C )
| Line S08926 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11092 M01S08926.dsdi56 ---| PRINT APPB
| Line S08927 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11093 M01S08927.ns2647 ---| PRINT APPC
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
M02 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11094 M02S00042.ns2647 ---| PRINT APPD
| Line S08928 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11095 M01S08928.ns2647 ---| PRINT (=2C )
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11096 M01S00054.ns2647 +++| RJ SSB 11097 M01S00055.ns2647 +++| SB7 PRBF PRINT HEADERS 11098 M01S00056.ns2647 +++| SB6 57 11099 M01S00057.ns2647 +++| SA2 APPC 11100 M01S00058.ns2647 +++| RJ UPS 11101 M01S00059.ns2647 +++| SA5 APPH 11102 M01S00060.ns2647 +++| ZR X5,APP8.1 IF NO PP REGISTERS 11103 M01S00061.ns2647 +++| SB7 PRBF+88 11104 M01S00062.ns2647 +++| SB6 20 11105 M01S00063.ns2647 +++| SA2 =C*OPERATING REGISTERS* 11106 M01S00064.ns2647 +++| RJ UPS 11107 M01S00065.ns2647 +++| APP8.1 PRINT CCCH,B7-CCCH 11108 M01S00066.ns2647 +++| RJ SSB 11109 M01S00067.ns2647 +++| SB7 PRBF 11110 M01S00068.ns2647 +++| SB6 61 11111 M01S00069.ns2647 +++| SA2 APPD 11112 M01S00070.ns2647 +++| RJ UPS 11113 M01S00071.ns2647 +++| ZR X5,APP8.2 IF NO PP REGISTERS 11114 M01S00072.ns2647 +++| SB7 PRBF+93 11115 M01S00073.ns2647 +++| SB6 25 11116 M01S00074.ns2647 +++| SA2 =C*P Q K A* 11117 M01S00075.ns2647 +++| RJ UPS 11118 M01S00076.ns2647 +++| APP8.2 PRINT CCCH,B7-CCCH 11119 M00S08929.dsdi +++| SX5 0 PRESET LINE INDEX 11120 M01S00077.ns2647 +++| PRINT (=2C )
| Line S08930 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11121 M01S08930.dsdi56 ---| APP4 RJ SSB CLEAR PRINT STRING
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11122 M01S00043.dsdi56 +++| APP9 RJ SSB CLEAR PRINT STRING 11123 M00S08931.dsdi +++| RJ FEM FORMAT ENTRY POINT 11124 M00S08932.dsdi +++| RJ FLC FORMAT LOW CORE ANALYSIS LINE
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2647a |
Seq # *Modification Id* Act ----------------------------+ 11125 M01S00016.ns2647a +++| SB7 PRBF+76
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11126 M01S00078.ns2647 +++| RJ FPO FORMAT OPERATING REGISTERS LINE 11127 M00S08933.dsdi +++| PRINT CCCH,B7-CCCH 11128 M00S08934.dsdi +++| SX5 X5+1 ADVANCE LINE INDEX 11129 M00S08935.dsdi +++| SX6 X5-10 11130 M00S08936.dsdi +++| SA1 CE
| Line S08937 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11131 M01S08937.dsdi56 ---| ZR X1,APP5 IF CME NOT PRESENT
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11132 M01S00044.dsdi56 +++| ZR X1,APP10 IF CME NOT PRESENT 11133 M00S08938.dsdi +++| SX6 X6-1 COUNT R-REGISTER LINE
| Line S08939 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11134 M01S08939.dsdi56 ---| APP5 NG X6,APP4 IF MORE LINES TO FORMAT
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11135 M01S00045.dsdi56 +++| APP10 NG X6,APP9 IF MORE LINES TO FORMAT
| Line S08940 Modification History | |
|---|---|
M01 (Removed by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11136 M01S08940.ns2647 ---| RJ PPO PRINT PP OPERATING REGISTERS (I4 IOU ONLY) 11137 M00S08941.dsdi ---| 11138 M00S08942.dsdi ---|* DUMP MEMORY IN *Q* FORMAT. 11139 M00S08943.dsdi ---| 11140 M00S08944.dsdi ---| PRINT (=2C ) 11141 M00S08945.dsdi ---| PRINT (=C* PPU MEMORY*) 11142 M00S08946.dsdi ---| PRINT (=2C )
| Line S08947 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11143 M01S08947.dsdi56 ---| MX3 0 11144 M01S08948.dsdi56 ---| RJ PDF POSITION DUMP FILE
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11145 M01S00046.dsdi56 +++| SX6 B1+ 11146 M01S00047.dsdi56 +++| SA6 APPG SET *PBUF*-DEFINED TO TRUE 11147 M00S08949.dsdi +++| RJ DPQ DUMP PPU MEMORY
| Line S08950 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11148 M01S08950.dsdi56 ---| RJ DSA DUMP PP SAVE AREA
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11149 M01S00048.dsdi56 +++| SA3 APPF 11150 M01S00049.dsdi56 +++| NZ X3,APP11 IF DUMPING PP SAVE AREA DATA 11151 M01S00050.dsdi56 +++| RJ GPS GET PP SAVE AREA DATA 11152 M01S00051.dsdi56 +++| SX6 1 SET DUMPING PP SAVE AREA DATA FLAG 11153 M01S00052.dsdi56 +++| NZ X5,APP1 IF PP FOUND IN PP SAVE AREA 11154 M01S00053.dsdi56 +++| APP11 SX6 B0+ 11155 M01S00054.dsdi56 +++| SA6 APPF CLEAR DUMPING PP SAVE AREA DATA FLAG 11156 M01S00055.dsdi56 +++| SA6 APPG CLEAR *PBUF*-VALID 11157 M00S08951.dsdi +++| JP APPX EXIT 11158 M00S08952.dsdi +++|
| Line S08953 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11159 M01S08953.dsdi56 ---| APPA BSS 1 LINE INDEX 11160 M01S08954.dsdi56 ---| 11161 M01S08955.dsdi56 ---| APPB DATA 50H RESIDENT ENTRY POINTS LOW CORE CON
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11162 M01S00056.dsdi56 +++| APPA DATA C* ANALYSIS OF PPXX (LOGICAL PPYY)* 11163 M01S00057.dsdi56 +++| CON APPA 11164 M01S00058.dsdi56 +++| APPB DATA 50H RE-ANALYSIS OF PPXX, AFTER RESTORING IT FROM 11165 M01S00059.dsdi56 +++| DATA C*THE PP SAVE AREA AT 000000. (LOGICAL PPYY)* 11166 M01S00060.dsdi56 +++| CON APPB 11167 M01S00061.dsdi56 +++| APPC DATA 50H RESIDENT ENTRY POINTS LOW CORE CON 11168 M00S08956.dsdi +++| DATA C*STANTS*
| Line S08957 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11169 M01S08957.dsdi56 ---| 11170 M01S08958.dsdi56 ---| APPC DATA 50H NAME LOC CALLER NAME LOC ACTUA
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11171 M01S00062.dsdi56 +++| APPD DATA 50H NAME LOC CALLER NAME LOC ACTUA 11172 M00S08959.dsdi +++| DATA C*L EXPECTED*
| Line S08960 Modification History | |
|---|---|
M01 (Removed by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11173 M01S08960.dsdi56 ---| 11174 M01S08961.dsdi56 ---| APPD DATA C* ANALYSIS OF PPXX (LOGICAL PPYY)*
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | dsdi56 |
Seq # *Modification Id* Act ----------------------------+ 11175 M01S00063.dsdi56 +++| APPE BSS 1 LINE INDEX 11176 M01S00064.dsdi56 +++| APPF CON 0 DUMPING PP SAVE AREA DATA FLAG 11177 M01S00065.dsdi56 +++| APPG CON 0 PP DATA IN *PBUF* FLAG
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | ns2647 |
Seq # *Modification Id* Act ----------------------------+ 11178 M01S00079.ns2647 +++| APPH CON 0 PP REGISTER DATA FLAG 11179 M00S08962.dsdi +++| ASD SPACE 4,12 11180 M00S08963.dsdi +++|** ASD - ASSEMBLE DIGITS. 11181 M00S08964.dsdi +++|* 11182 M00S08965.dsdi +++|* ENTRY (B7) = 0, IF OCTAL BASE. 11183 M00S08966.dsdi +++|* = NONZERO, IF DECIMAL BASE. 11184 M00S08967.dsdi +++|* (CH) = STRING POINTER. 11185 M00S08968.dsdi +++|* 11186 M00S08969.dsdi +++|* EXIT (X4) = NONZERO, IF CONVERSION ERROR. 11187 M00S08970.dsdi +++|* (X6) = CONVERTED DIGITS. 11188 M00S08971.dsdi +++|* (B6) = 0, IF AT END OF DIRECTIVE. 11189 M00S08972.dsdi +++|* = NONZERO, IF DIGITS PROCESSED. 11190 M00S08973.dsdi +++|* 11191 M00S08974.dsdi +++|* USES X - 5. 11192 M00S08975.dsdi +++|* 11193 M00S08976.dsdi +++|* CALLS ASN, DXB. 11194 M00S08977.dsdi +++| 11195 M00S08978.dsdi +++| 11196 M00S08979.dsdi +++| ASD SUBR ENTRY/EXIT 11197 M00S08980.dsdi +++| RJ ASN ASSEMBLE NAME 11198 M00S08981.dsdi +++| BX5 X6 11199 M00S08982.dsdi +++| RJ DXB CONVERT DISPLAY CODE TO BINARY 11200 M00S08983.dsdi +++| EQ ASDX RETURN 11201 M00S08984.dsdi +++| ASN SPACE 4,15 11202 M00S08985.dsdi +++|** ASN - ASSEMBLE NAME. 11203 M00S08986.dsdi +++|* ASSEMBLES UP TO A 10-CHARACTER NAME TO A SEPARATOR. 11204 M00S08987.dsdi +++|* LEADING SPACES ARE IGNORED. 11205 M00S08988.dsdi +++|* 11206 M00S08989.dsdi +++|* ENTRY (CH) = STRING POINTER. 11207 M00S08990.dsdi +++|* 11208 M00S08991.dsdi +++|* EXIT (X6) = NAME, LEFT-JUSTIFIED AND ZERO-FILLED. 11209 M00S08992.dsdi +++|* = 0, IF NULL PARAMETER. 11210 M00S08993.dsdi +++|* (B6) = 0, IF AT END OF DIRECTIVE. 11211 M00S08994.dsdi +++|* .LT.0, IF SHIFT COUNT TO RIGHT-JUSTIFY. 11212 M00S08995.dsdi +++|* .GT.0, IF NULL PARAMETER. 11213 M00S08996.dsdi +++|* 11214 M00S08997.dsdi +++|* ERROR TO *ERR33*, IF PARAMETER MORE THAN 10 CHARACTERS. 11215 M00S08998.dsdi +++|* 11216 M00S08999.dsdi +++|* USES X - 1, 6, 7. 11217 M00S09000.dsdi +++|* A - 1, 7. 11218 M00S09001.dsdi +++|* B - 6. 11219 M00S09002.dsdi +++| 11220 M00S09003.dsdi +++| 11221 M00S09004.dsdi +++| ASN3 SX7 A1+ STORE ADDRESS OF LAST PARAMETER 11222 M00S09005.dsdi +++| SA7 CH 11223 M00S09006.dsdi +++| LX6 B6 LEFT-JUSTIFY PARAMETER 11224 M00S09007.dsdi +++| ZR X6,ASNX IF NULL PARAMETER 11225 M00S09008.dsdi +++| ASN4 SB6 B6-60 CLEAR IF END OF DIRECTIVE 11226 M00S09009.dsdi +++| 11227 M00S09010.dsdi +++| ASN SUBR ENTRY/EXIT 11228 M00S09011.dsdi +++| SB6 60 PRESET SHIFT COUNT 11229 M00S09012.dsdi +++| SX6 0 PRESET ASSEMBLED NAME 11230 M00S09013.dsdi +++| SA1 CH GET FIRST CHARACTER 11231 M00S09014.dsdi +++| SA1 X1+ 11232 M00S09015.dsdi +++| SX7 X1-1R/ 11233 M00S09016.dsdi +++| NG X7,ASN2 IF FIRST CHARACTER NOT SEPARATOR 11234 M00S09017.dsdi +++| SX7 X1-1R. 11235 M00S09018.dsdi +++| ZR X7,ASN4 IF END OF DIRECTIVE 11236 M00S09019.dsdi +++| ASN1 SA1 A1+1 GET NEXT CHARACTER 11237 M00S09020.dsdi +++| ASN2 SX7 X1-1R 11238 M00S09021.dsdi +++| ZR X7,ASN1 IF SPACING WITHIN DIRECTIVE 11239 M00S09022.dsdi +++| SX7 X1-1R/ 11240 M00S09023.dsdi +++| PL X7,ASN3 IF END OF PARAMETER 11241 M00S09024.dsdi +++| SB6 B6-6 11242 M00S09025.dsdi +++| NG B6,ERR33 IF MORE THAN 10 CHARACTERS READ 11243 M00S09026.dsdi +++| LX6 6 STORE CHARACTER 11244 M00S09027.dsdi +++| BX6 X6+X1 11245 M00S09028.dsdi +++| EQ ASN1 GET NEXT CHARACTER 11246 M00S09029.dsdi +++| ASP SPACE 4,27 11247 M00S09030.dsdi +++|** ASP - ANALYZE SELECTED PPUS. 11248 M00S09031.dsdi +++|* 11249 M00S09032.dsdi +++|* ENTRY (A0) = RETURN ADDRESS. 11250 M00S09033.dsdi +++|* (X6) = PARAMETER BLOCK ADDRESS. 11251 M00S09034.dsdi +++|* (PC) = PP COMMUNICATION AREA POINTER. 11252 M00S09035.dsdi +++|* 11253 M00S09036.dsdi +++|* PARAMETER BLOCK FORMAT - 11254 M00S09037.dsdi +++|* 11255 M00S09038.dsdi +++|* 18/ NAME,1/ ,5/ NUMBER,1/ OT BIT,18/ ,5/ ORIGIN TYPE,12/ 11256 M00S09039.dsdi +++|* SECOND ENTRY 11257 M00S09040.dsdi +++|* . . 11258 M00S09041.dsdi +++|* . . 11259 M00S09042.dsdi +++|* . . 11260 M00S09043.dsdi +++|* 60/ NEGATIVE WORD TERMINATES BLOCK 11261 M00S09044.dsdi +++|* 11262 M00S09045.dsdi +++|* NAME = 0 IF ANY ACTIVE PPU ALLOWED. 11263 M00S09046.dsdi +++|* = PPU NAME. 11264 M00S09047.dsdi +++|* NUMBER = 0 IF ANY CONTROL POINT NUMBER ALLOWED. 11265 M00S09048.dsdi +++|* = CONTROL POINT NUMBER THAT MUST MATCH THE 11266 M00S09049.dsdi +++|* CONTROL POINT NUMBER ASSOCIATED WITH THE PPU. 11267 M00S09050.dsdi +++|* OT BIT = 0 IF ANY ORIGIN TYPE ALLOWED. 11268 M00S09051.dsdi +++|* = 1 IF THE ORIGIN TYPE SPECIFIED (BITS 17-12) 11269 M00S09052.dsdi +++|* MUST MATCH THE ORIGIN TYPE OF THE CONTROL 11270 M00S09053.dsdi +++|* POINT ASSOCIATED WITH THE PPU. 11271 M00S09054.dsdi +++|* 11272 M00S09055.dsdi +++|* USES X - ALL. 11273 M00S09056.dsdi +++|* A - 1, 3, 4, 5, 6, 7. 11274 M00S09057.dsdi +++|* B - 2. 11275 M00S09058.dsdi +++|* 11276 M00S09059.dsdi +++|* CALLS APP, SCM, SPA. 11277 M00S09060.dsdi +++| 11278 M00S09061.dsdi +++| 11279 M00S09062.dsdi +++| ASP SX7 A0 11280 M00S09063.dsdi +++| SA7 ASPA SAVE RETURN ADDRESS 11281 M00S09064.dsdi +++| SA6 A7+B1 SAVE PARAMETER BLOCK ADDRESS 11282 M00S09065.dsdi +++| SA1 PC GET PP COMMUNICATION AREA POINTER 11283 M00S09066.dsdi +++| BX6 X1 11284 M00S09067.dsdi +++| SA6 PI SET SEARCH INDEX 11285 M00S09068.dsdi +++| ASP1 RJ SPA SELECT NEXT PPU TO ANALYZE 11286 M00S09069.dsdi +++| ZR X1,ASP6 IF NO MORE PPUS TO ANALYZE 11287 M00S09070.dsdi +++| SA5 F.TCMT 11288 M00S09071.dsdi +++| SB2 X6-10B 11289 M00S09072.dsdi +++| SA4 X5+B2 READ INPUT REGISTER 11290 M00S09073.dsdi +++| SA1 ASPB 11291 M00S09074.dsdi +++| SA5 X1-1 11292 M00S09075.dsdi +++| ASP2 SA5 A5+1 NEXT ENTRY IN TABLE 11293 M00S09076.dsdi +++| NG X5,ASP1 IF END OF TABLE 11294 M00S09077.dsdi +++| MX3 18 11295 M00S09078.dsdi +++| BX2 X5*X3 11296 M00S09079.dsdi +++| ZR X2,ASP3 IF ANY ACTIVE PPU ALLOWED 11297 M00S09080.dsdi +++| BX0 X5-X4 11298 M00S09081.dsdi +++| BX1 X0*X3 11299 M00S09082.dsdi +++| NZ X1,ASP2 IF NAMES DO NOT MATCH 11300 M00S09083.dsdi +++| ASP3 MX6 5 11301 M00S09084.dsdi +++| LX6 -19 11302 M00S09085.dsdi +++| BX1 X5*X6 11303 M00S09086.dsdi +++| ZR X1,ASP4 IF ANY CONTROL POINT NUMBER ALLOWED 11304 M00S09087.dsdi +++| BX1 X5-X4 11305 M00S09088.dsdi +++| BX1 X1*X6 11306 M00S09089.dsdi +++| NZ X1,ASP2 IF CONTROL POINT NUMBERS DO NOT MATCH 11307 M00S09090.dsdi +++| ASP4 BX2 X5 11308 M00S09091.dsdi +++| LX2 24 11309 M00S09092.dsdi +++| PL X2,ASP5 IF ANY ORIGIN TYPE ALLOWED 11310 M00S09093.dsdi +++| SA1 F.TCMT 11311 M00S09094.dsdi +++| SX7 CPLEN 11312 M00S09095.dsdi +++| BX3 X4*X6 11313 M00S09096.dsdi +++| LX3 24 CONTROL POINT NUMBER 11314 M00S09097.dsdi +++| IX3 X3*X7 CONTROL POINT AREA ADDRESS 11315 M00S09098.dsdi +++| IX3 X1+X3 11316 M00S09099.dsdi +++| SA3 X3+JOTW GET CONTROL POINT AREA ORIGIN TYPE 11317 M00S09100.dsdi +++| AX6 24 11318 M00S09101.dsdi +++| BX6 X6*X3 11319 M00S09102.dsdi +++| BX5 X6*X5 GET ORIGIN TYPE FOR TABLE ENTRY 11320 M00S09103.dsdi +++| BX5 X5-X6 11321 M00S09104.dsdi +++| NZ X5,ASP2 IF ORIGIN TYPES DO NOT MATCH 11322 M00S09105.dsdi +++| ASP5 RJ APP ANALYZE PPU 11323 M00S09106.dsdi +++| JP ASP1 CONTINUE 11324 M00S09107.dsdi +++| 11325 M00S09108.dsdi +++| ASP6 RJ SCM SET CENTRAL MEMORY 11326 M00S09109.dsdi +++| SA7 RI 11327 M00S09110.dsdi +++| SA1 ASPA 11328 M00S09111.dsdi +++| SB2 X1 11329 M00S09112.dsdi +++| JP B2 RETURN 11330 M00S09113.dsdi +++| 11331 M00S09114.dsdi +++| ASPA BSS 1 RETURN ADDRESS 11332 M00S09115.dsdi +++| ASPB BSS 1 PARAMETER BLOCK ADDRESS 11333 M00S09116.dsdi +++| ASX SPACE 4,15 11334 M00S09117.dsdi +++|** ASX - ASSEMBLE HEXADECIMAL DIGITS. 11335 M00S09118.dsdi +++|* 11336 M00S09119.dsdi +++|* ENTRY (CH) = STRING POINTER. 11337 M00S09120.dsdi +++|* 11338 M00S09121.dsdi +++|* EXIT (X4) = NONZERO, IF CONVERSION ERROR. 11339 M00S09122.dsdi +++|* (X6) = CONVERTED DIGITS. 11340 M00S09123.dsdi +++|* (B6) = 0, IF NO DIGITS ASSEMBLED. 11341 M00S09124.dsdi +++|* (ASXA) = NUMBER IN DISPLAY CODE, 11342 M00S09125.dsdi +++|* = 0 IF NULL PARAMETER. 11343 M00S09126.dsdi +++|* 11344 M00S09127.dsdi +++|* USES X - 4, 5. 11345 M00S09128.dsdi +++|* 11346 M00S09129.dsdi +++|* CALLS ASN, HXB. 11347 M00S09130.dsdi +++| 11348 M00S09131.dsdi +++| 11349 M00S09132.dsdi +++| ASX SUBR ENTRY/EXIT 11350 M00S09133.dsdi +++| SX4 1 PRESET ERROR RESPONSE 11351 M00S09134.dsdi +++| RJ ASN ASSEMBLE NAME 11352 M00S09135.dsdi +++| SA6 ASXA SAVE NAME 11353 M00S09136.dsdi +++| ZR B6,ASXX IF NO DIGITS ASSEMBLED 11354 M00S09137.dsdi +++| BX5 X6 11355 M00S09138.dsdi +++| RJ HXB CONVERT DISPLAY CODE TO HEX 11356 M00S09139.dsdi +++| EQ ASXX RETURN 11357 M00S09140.dsdi +++| 11358 M00S09141.dsdi +++| ASXA CON 0 SAVE RESULT FROM *ASN* 11359 M00S09142.dsdi +++| ATC SPACE 4,13 11360 M00S09143.dsdi +++|** ATC - ASSEMBLE TRACK CHAIN. 11361 M00S09144.dsdi +++|* 11362 M00S09145.dsdi +++|* ENTRY (A0) = RETURN ADDRESS. 11363 M00S09146.dsdi +++|* (GNFA - GNFA+5) = FILE INFORMATION. 11364 M00S09147.dsdi +++|* 11365 M00S09148.dsdi +++|* EXIT TRACK LINKS STORED ONE PER WORD RIGHT JUSTIFIED 11366 M00S09149.dsdi +++|* IN TABLE *TSC1*. TABLE *TSCR* IS USED TO HOLD THE 11367 M00S09150.dsdi +++|* SELECTED TRT DURING THE ASSEMBLY PROCESS. 11368 M00S09151.dsdi +++|* 11369 M00S09152.dsdi +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 11370 M00S09153.dsdi +++|* A - 0, 1, 2, 3, 5, 6. 11371 M00S09154.dsdi +++|* B - 2, 3, 4, 5. 11372 M00S09155.dsdi +++|* 11373 M00S09156.dsdi +++|* CALLS PCM. 11374 M00S09157.dsdi +++|* 11375 M00S09158.dsdi +++|* MACROS ADDWRD, ALLOC, GETCM. 11376 M00S09159.dsdi +++| 11377 M00S09160.dsdi +++| 11378 M00S09161.dsdi +++| ATC SUBR 11379 M00S09162.dsdi +++| SA2 GNFA+5 READ EST 11380 M00S09163.dsdi +++| MX0 -12 11381 M00S09164.dsdi +++| BX3 -X0*X2 11382 M00S09165.dsdi +++| LX3 3 11383 M00S09166.dsdi +++| SX5 X3 SAVE MST ADDRESS 11384 M00S09167.dsdi +++| SX3 X3+TRLL 11385 M00S09168.dsdi +++| RJ PCM POSITION TO MST WORD *TRLL* 11386 M00S09169.dsdi +++| GETCM 11387 M00S09170.dsdi +++| MX0 -18 SAVE FWA OF TRT 11388 M00S09171.dsdi +++| BX6 -X0*X6 11389 M00S09172.dsdi +++| SA6 ATCA 11390 M00S09173.dsdi +++| MX0 -12 11391 M00S09174.dsdi +++| SX3 X5+TDGL 11392 M00S09175.dsdi +++| RJ PCM POSITION TO TRT ADDRESS 11393 M00S09176.dsdi +++| GETCM 11394 M00S09177.dsdi +++| AX6 24 11395 M00S09178.dsdi +++| SA1 ATCA SET FWA OF TRT 11396 M00S09179.dsdi +++| SB3 X1 11397 M00S09180.dsdi +++| SA5 A0 SAVE A0 11398 M00S09181.dsdi +++| BX5 -X0*X6 TRT LENGTH 11399 M00S09182.dsdi +++| SA1 L.TSCR ALLOCATE SCRATCH TABLE SPACE 11400 M00S09183.dsdi +++| IX1 X5-X1 11401 M00S09184.dsdi +++| ALLOC TSCR,X1 11402 M00S09185.dsdi +++| SA0 X2 SAVE TABLE FWA 11403 M00S09186.dsdi +++| SX0 X3 SAVE TABLE LENGTH 11404 M00S09187.dsdi +++| SX3 B3+ 11405 M00S09188.dsdi +++| RJ PCM POSITION TO TRT 11406 M00S09189.dsdi +++| GETCM A0,X0 READ TRT INTO SCRATCH TABLE 11407 M00S09190.dsdi +++| SB5 X0 RESET TABLE LENGTH 11408 M00S09191.dsdi +++| SX6 B0 11409 M00S09192.dsdi +++| SA6 L.TSC1 CLEAR LINK TABLE 11410 M00S09193.dsdi +++| SA3 GNFA+2 READ FST 11411 M00S09194.dsdi +++| MX1 -12 11412 M00S09195.dsdi +++| AX3 36 11413 M00S09196.dsdi +++| BX1 -X1*X3 EXTRACT FIRST TRACK NUMBER 11414 M00S09197.dsdi +++| ATC1 ADDWRD TSC1,X1 STORE LINK IN TABLE 11415 M00S09198.dsdi +++| SA0 A5+ RESTORE A0 11416 M00S09199.dsdi +++| SX2 X1-3777B 11417 M00S09200.dsdi +++| ZR X2,ATC2 IF LINKED TO FLAW 11418 M00S09201.dsdi +++| LX1 -12 11419 M00S09202.dsdi +++| PL X1,ATCX IF EOI REACHED 11420 M00S09203.dsdi +++| LX1 12 11421 M00S09204.dsdi +++| MX0 -11 11422 M00S09205.dsdi +++| BX1 -X0*X1 CLEAR LINKED FLAG 11423 M00S09206.dsdi +++| MX2 -2 11424 M00S09207.dsdi +++| BX2 -X2*X1 BYTE INDEX 11425 M00S09208.dsdi +++| AX1 2 TRT WORD ORDINAL 11426 M00S09209.dsdi +++| SB3 X1 11427 M00S09210.dsdi +++| GE B3,B5,ATC2 IF LINK BEYOND END OF TRT 11428 M00S09211.dsdi +++| SB2 X2 11429 M00S09212.dsdi +++| SX3 12 11430 M00S09213.dsdi +++| IX3 X2*X3 11431 M00S09214.dsdi +++| SB4 X3 SHIFT COUNT 11432 M00S09215.dsdi +++| SA2 F.TSCR 11433 M00S09216.dsdi +++| IX2 X1+X2 11434 M00S09217.dsdi +++| SA1 X2 READ TRT WORD 11435 M00S09218.dsdi +++| SX5 10B 11436 M00S09219.dsdi +++| AX5 X5,B2 11437 M00S09220.dsdi +++| BX4 X5*X1 CHECK RESERVATION 11438 M00S09221.dsdi +++| ZR X4,ATC2 IF TRACK NOT RESERVED OR ALREADY LINKED 11439 M00S09222.dsdi +++| BX6 -X5*X1 CLEAR RESERVATION 11440 M00S09223.dsdi +++| SA6 A1 UPDATE TRT 11441 M00S09224.dsdi +++| MX0 12 11442 M00S09225.dsdi +++| LX1 X1,B4 POSITION TRT WORD 11443 M00S09226.dsdi +++| BX1 X0*X1 EXTRACT NEXT LINK 11444 M00S09227.dsdi +++| LX1 12 11445 M00S09228.dsdi +++| JP ATC1 ADD TO TABLE 11446 M00S09229.dsdi +++| 11447 M00S09230.dsdi +++| ATC2 SX1 -=C* INCORRECT TRACK LINKAGE* 11448 M00S09231.dsdi +++| ADDWRD TSC1,X1 SET ERROR FLAG 11449 M00S09232.dsdi +++| SA0 A5 RESTORE A0 11450 M00S09233.dsdi +++| JP ATCX EXIT 11451 M00S09234.dsdi +++| 11452 M00S09235.dsdi +++| ATCA CON 0 FWA OF TRT 11453 M00S09236.dsdi +++| BCP SPACE 4,9 11454 M00S09237.dsdi +++|** BCP - BEGIN CONTROL POINT DUMP. 11455 M00S09238.dsdi +++|* 11456 M00S09239.dsdi +++|* ENTRY (CH) = DIRECTIVE CARD STRING POINTER. 11457 M00S09240.dsdi +++|* 11458 M00S09241.dsdi +++|* EXIT (PI) = *TCMT* TABLE INDEX FOR ACTIVE CP SEARCH. 11459 M00S09242.dsdi +++|* = 0, IF CONTROL POINT NUMBERS ON DIRECTIVE CARD. 11460 M00S09243.dsdi +++|* 11461 M00S09244.dsdi +++|* USES X - 1, 6. 11462 M00S09245.dsdi +++|* A - 1, 6. 11463 M00S09246.dsdi +++| 11464 M00S09247.dsdi +++| 11465 M00S09248.dsdi +++| BCP SUBR 11466 M00S09249.dsdi +++| SX6 0 11467 M00S09250.dsdi +++| SA6 PI PRESET SEARCH INDEX 11468 M00S09251.dsdi +++| SA1 CH CHECK LAST SEPARATOR 11469 M00S09252.dsdi +++| SA1 X1+ 11470 M00S09253.dsdi +++| SX1 X1-1R. 11471 M00S09254.dsdi +++| NZ X1,BCPX IF NUMBERS SPECIFIED ON DIRECTIVE CARD
| Line S09255 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 11472 M01S09255.271l716 ---| SX6 CPAS+TFSW-CPLEN
| Line S00333 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 11473 M01S00333.271l716 +++| SA1 FW CPA/PCPA FWA - CPLEN 11474 M01S00334.271l716 +++| SX6 X1+TFSW 11475 M00S09256.dsdi +++| SA6 PI PRESET CP AREA SEARCH INDEX 11476 M00S09257.dsdi +++| JP BCPX EXIT
| Line S09258 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 11477 M01S09258.dsdi78 ---| BPN SPACE 4,20
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 11478 M01S00019.dsdi78 +++| BPN SPACE 4,15 11479 M00S09259.dsdi +++|** BPN - BUILD PPU NAME. 11480 M00S09260.dsdi +++|* 11481 M00S09261.dsdi +++|* ENTRY (PP) = PPU NUMBER. 11482 M00S09262.dsdi +++|* (IC) = *CPP* RECORD PROCESSING FLAG. 11483 M00S09263.dsdi +++|* (IPDA) = PPU/FLPP RECORD FLAG.
| Line S09264 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 11484 M01S09264.dsdi78 ---|* (PPTB) = 0, IF NOT PROCESSING A CPP. 11485 M01S09265.dsdi78 ---|* .NE. 0, IF PROCESSING A CPP. 11486 M00S09266.dsdi ---|* 11487 M00S09267.dsdi ---|* EXIT (X0) = MASK FOR PP/CPP/FLPP RECORD SEARCH. 11488 M00S09268.dsdi ---|* (X3) = PP NUMBER IN DISPLAY CODE MINUS 3333B. 11489 M00S09269.dsdi ---|* (X6) = (BPNA+1) = PP HEADER NAME IN FORM *CPPNN*, 11490 M00S09270.dsdi ---|* *PPNN*, OR *FPNN*, LEFT JUSTIFIED. 11491 M00S09271.dsdi ---|* (X7) = (BPNA) = PP RECORD NAME IN FORM *DNN*, *PPNN*, 11492 M00S09272.dsdi ---|* OR *FPNN*, LEFT JUSTIFIED. 11493 M00S09273.dsdi ---|* 11494 M00S09274.dsdi ---|* USES X - 0, 1, 2, 3, 6, 7. 11495 M00S09275.dsdi ---|* A - 1, 2, 6, 7. 11496 M00S09276.dsdi ---| 11497 M00S09277.dsdi ---| 11498 M00S09278.dsdi ---| BPN SUBR 11499 M00S09279.dsdi ---| SA1 PP 11500 M00S09280.dsdi ---| SX2 707B 11501 M00S09281.dsdi ---| BX3 X1 11502 M00S09282.dsdi ---| LX3 3 11503 M00S09283.dsdi ---| BX3 X3+X1 11504 M00S09284.dsdi ---| BX3 X3*X2 11505 M01S09285.dsdi78 ---| SA1 /DIRECT/PPTB 11506 M01S09286.dsdi78 ---| SA2 IC
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 11507 M01S00020.dsdi78 +++| SA1 IC
| Line S09287 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11508 M01S09287.271l739 ---| BX7 X3
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11509 M01S00210.271l739 +++| LX3 47-11
| Line S09288 Modification History | |
|---|---|
M01 (Removed by) | dsdi78 |
Seq # *Modification Id* Act ----------------------------+ 11510 M01S09288.dsdi78 ---| BX1 X1+X2
| Line S09289 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11511 M01S09289.271l739 ---| ZR X1,BPN1 IF NOT CPP 11512 M01S09290.271l739 ---| SA2 BPNC 11513 M01S09291.271l739 ---| SA1 A2+B1 11514 M01S09292.271l739 ---| LX7 41-11 POSITION CPP NUMBER FOR HEADER NAME 11515 M01S09293.271l739 ---| IX6 X1+X7 11516 M01S09294.271l739 ---| LX7 47-11-41+11 POSITION CPP NUMBER FOR RECORD NAME
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11517 M01S00211.271l739 +++| SA2 IPDA 11518 M01S00212.271l739 +++| ZR X1,BPN1 IF NOT CPP 11519 M01S00213.271l739 +++| SA1 BPNB 11520 M01S00214.271l739 +++| SA2 .CPP GET CPP RECORD ID 11521 M01S00215.271l739 +++| IX6 X1+X3 11522 M01S00216.271l739 +++| LX6 -6 11523 M00S09295.dsdi +++| JP BPN2 SET IN HEADER 11524 M00S09296.dsdi +++|
| Line S09297 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11525 M01S09297.271l739 ---| BPN1 SA2 IPDA 11526 M01S09298.271l739 ---| SA2 BPNB+X2 11527 M01S09299.271l739 ---| LX7 47-11 POSITION PP NUMBER 11528 M01S09300.271l739 ---| IX6 X7+X2 11529 M01S09301.271l739 ---| BPN2 IX7 X7+X2
| Line S00217 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11530 M01S00217.271l739 +++| BPN1 SA2 .NPP+X2 GET RECORD ID 11531 M01S00218.271l739 +++| NO 11532 M01S00219.271l739 +++| IX6 X3+X2 11533 M01S00220.271l739 +++| BPN2 IX7 X3+X2 11534 M01S00221.271l739 +++| LX3 11-47 11535 M00S09302.dsdi +++| SA6 BPNA+1 SET PP HEADER NAME 11536 M00S09303.dsdi +++| SA7 A6-B1 11537 M00S09304.dsdi +++| MX0 24 11538 M00S09305.dsdi +++| JP BPNX EXIT 11539 M00S09306.dsdi +++| 11540 M00S09307.dsdi +++| BPNA BSS 1 PP RECORD NAME 11541 M00S09308.dsdi +++| BSS 1 PP HEADER NAME
| Line S09309 Modification History | |
|---|---|
M01 (Removed by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11542 M01S09309.271l739 ---| BPNB CON 4LPP00 PP RECORD NAME 11543 M01S09310.271l739 ---| CON 4LFP00 FLPP RECORD NAME 11544 M01S09311.271l739 ---| BPNC VFD 6/0,18/3LD00,36/0 CPP RECORD NAME 11545 M01S09312.271l739 ---| CON 5LCPP00 CPP HEADER NAME
| Line S00222 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11546 M01S00222.271l739 +++| BPNB VFD 60/4LPP00+1RC CPP HEADER NAME
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 11547 M01S00042.283l840 +++| BST SPACE 4,15 11548 M01S00043.283l840 +++|** BST - DUMP BUFFER STATUS TABLE. 11549 M01S00044.283l840 +++|* 11550 M01S00045.283l840 +++|* ENTRY (BUF) = MST FOLLOWED BY TRT OR MRT. 11551 M01S00046.283l840 +++|* 11552 M01S00047.283l840 +++|* EXIT (BUF) = MST AND BST, IF BST PRESENT. 11553 M01S00048.283l840 +++|* 11554 M01S00049.283l840 +++|* USES X - 1, 2, 3, 6, 7. 11555 M01S00050.283l840 +++|* A - 1, 2, 6, 7. 11556 M01S00051.283l840 +++|* B - 2, 5, 6, 7. 11557 M01S00052.283l840 +++|* 11558 M01S00053.283l840 +++|* CALLS CTS, FDW, POM, P4F, SDI, SRD, SSB. 11559 M01S00054.283l840 +++|* 11560 M01S00055.283l840 +++|* MACROS GETCM, PRINT. 11561 M01S00056.283l840 +++| 11562 M01S00057.283l840 +++| 11563 M01S00058.283l840 +++| BST SUBR 11564 M01S00059.283l840 +++| SA1 BUF+BDLL FWA OF BST 11565 M01S00060.283l840 +++| LX1 -24 11566 M01S00061.283l840 +++| SX6 X1 11567 M01S00062.283l840 +++| ZR X6,BSTX IF NO BUFFER STATUS TABLE 11568 M01S00063.283l840 +++| SA6 CPRA 11569 M01S00064.283l840 +++| SA6 FW 11570 M01S00065.283l840 +++| SB2 A6 11571 M01S00066.283l840 +++| RJ POM POSITION TO BST 11572 M01S00067.283l840 +++| SX7 BSTL SET BST LENGTH 11573 M01S00068.283l840 +++| SA7 LW SET BST LWA+1 11574 M01S00069.283l840 +++| GETCM BUF+MSTXL,X7 READ BST INTO *BUF* 11575 M01S00070.283l840 +++| PRINT (=2C ) 11576 M01S00071.283l840 +++| PRINT (=C* BUFFER STATUS TABLE*) 11577 M01S00072.283l840 +++| PRINT (=2C ) 11578 M01S00073.283l840 +++| MX7 1 11579 M01S00074.283l840 +++| SA7 SRDA PRESET FIRST CALL TO *SRD* 11580 M01S00075.283l840 +++| SX6 B0 11581 M01S00076.283l840 +++| SA6 BSTA CLEAR LINK ORDINAL 11582 M01S00077.283l840 +++| SA6 BSTB CLEAR DATA WORD ORDINAL 11583 M01S00078.283l840 +++| SA6 SRDC+5 STOP DASHES AFTER 50 CHARACTERS 11584 M01S00079.283l840 +++| RJ SSB CLEAR PRINT STRING 11585 M01S00080.283l840 +++| BST1 SA1 BSTB SET DATA ADDRESS 11586 M01S00081.283l840 +++| SX1 X1+BUF+MSTXL 11587 M01S00082.283l840 +++| SB5 1 SET WORD COUNT 11588 M01S00083.283l840 +++| RJ SRD SENSE REPEAT DATA 11589 M01S00084.283l840 +++| NZ X1,BST2 IF REPEAT SENSED 11590 M01S00085.283l840 +++| SA1 FW GET BST ADDRESS 11591 M01S00086.283l840 +++| SA2 BSTB 11592 M01S00087.283l840 +++| IX1 X1+X2 11593 M01S00088.283l840 +++| LX1 -18 11594 M01S00089.283l840 +++| SB6 6 11595 M01S00090.283l840 +++| SB7 PRBF 11596 M01S00091.283l840 +++| RJ CTS CONVERT BST ADDRESS 11597 M01S00092.283l840 +++| SB7 B7+B1 11598 M01S00093.283l840 +++| SX6 1R+ 11599 M01S00094.283l840 +++| SA6 B7 11600 M01S00095.283l840 +++| SB7 B7+B1 11601 M01S00096.283l840 +++| SA1 BSTA BUFFER ORDINAL 11602 M01S00097.283l840 +++| LX1 -12 11603 M01S00098.283l840 +++| SB6 4 11604 M01S00099.283l840 +++| RJ CTS CONVERT BUFFER ORDINAL 11605 M01S00100.283l840 +++| SB7 B7+2 11606 M01S00101.283l840 +++| SA2 =4000005B 11607 M01S00102.283l840 +++| SA1 BSTB READ BST DATA WORD 11608 M01S00103.283l840 +++| SA1 X1+BUF+MSTXL 11609 M01S00104.283l840 +++| RJ FDW FORMAT DATA WORD 11610 M01S00105.283l840 +++| SA2 BSTB RE-READ DATA WORD 11611 M01S00106.283l840 +++| SA2 X2+BUF+MSTXL 11612 M01S00107.283l840 +++| SB7 B7+2 11613 M01S00108.283l840 +++| SB6 10 11614 M01S00109.283l840 +++| RJ SDI SET DISPLAY CODE INTERPRETATION 11615 M01S00110.283l840 +++| PRINT CCCH,B7-CCCH 11616 M01S00111.283l840 +++| BST2 SA1 BSTA 11617 M01S00112.283l840 +++| SX6 X1+20B 11618 M01S00113.283l840 +++| SA6 A1+ UPDATE BUFFER ORDINAL 11619 M01S00114.283l840 +++| SA1 BSTB 11620 M01S00115.283l840 +++| SX6 X1+B1 11621 M01S00116.283l840 +++| SA6 A1+ UPDATE BST ADDRESS 11622 M01S00117.283l840 +++| SA2 LW 11623 M01S00118.283l840 +++| IX3 X6-X2 11624 M01S00119.283l840 +++| NG X3,BST1 IF MORE TO DUMP 11625 M01S00120.283l840 +++| SA1 SRDC+1 11626 M01S00121.283l840 +++| BX6 X1 11627 M01S00122.283l840 +++| SA6 SRDC+5 RESET DASHES FOR 136 CHARACTERS 11628 M01S00123.283l840 +++| JP BSTX EXIT 11629 M01S00124.283l840 +++| 11630 M01S00125.283l840 +++| BSTA BSS 1 TRACK LINK ORDINAL 11631 M01S00126.283l840 +++| BSTB BSS 1 BST DATA WORD ORDINAL
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dsdi79 |
Seq # *Modification Id* Act ----------------------------+ 11632 M01S00001.dsdi79 +++| CCM SPACE 4,5 11633 M01S00002.dsdi79 +++|** CCM - PROCESS *CCM* (CRITICAL *NOS/VE* MEMORY) RECORDS. 11634 M01S00003.dsdi79 +++|* 11635 M01S00004.dsdi79 +++|* ENTRY VIA UNCONDITIONAL JUMP. 11636 M01S00005.dsdi79 +++|* 11637 M01S00006.dsdi79 +++|* CALLS ERF, RBF. 11638 M01S00007.dsdi79 +++| 11639 M01S00008.dsdi79 +++| 11640 M01S00009.dsdi79 +++| CCM BSS 0 ENTRY 11641 M01S00010.dsdi79 +++| RJ ERF POSITION TO EOR OF HEADER RECORD 11642 M01S00011.dsdi79 +++| RJ RBF INITIATE READ OF *CCM* DATA RECORD 11643 M01S00012.dsdi79 +++| RJ ERF SKIP TO EOR 11644 M01S00013.dsdi79 +++| EQ RBI2 READ NEXT RECORD 11645 M00S09313.dsdi +++| CCQ SPACE 4,10 11646 M00S09314.dsdi +++|** CCQ - CHECK FOR CIRCULAR QUEUE. 11647 M00S09315.dsdi +++|* 11648 M00S09316.dsdi +++|* EXIT (X5) .LT. 0, IF CIRCULAR QUEUE FOUND. 11649 M00S09317.dsdi +++|* ELSE, QUEUE ENTRY COUNT IS INCREMENTED. 11650 M00S09318.dsdi +++|* 11651 M00S09319.dsdi +++|* USES X - 5, 6. 11652 M00S09320.dsdi +++|* A - 5, 6. 11653 M00S09321.dsdi +++|* 11654 M00S09322.dsdi +++|* MACROS PRINT. 11655 M00S09323.dsdi +++| 11656 M00S09324.dsdi +++| 11657 M00S09325.dsdi +++| CCQ SUBR 11658 M00S09326.dsdi +++| SA5 CCQB INCREMENT QUEUE ENTRY COUNT 11659 M00S09327.dsdi +++| SX6 X5+1 11660 M00S09328.dsdi +++| SA6 CCQB 11661 M00S09329.dsdi +++| SA5 CCQA CHECK IF QUEUE ENTRY LIMIT EXCEEDED 11662 M00S09330.dsdi +++| IX5 X5-X6 11663 M00S09331.dsdi +++| PL X5,CCQX IF QUEUE ENTRY LIMIT NOT REACHED 11664 M00S09332.dsdi +++| PRINT (=2C ) 11665 M00S09333.dsdi +++| PRINT (=C+ *********WARNING - QUEUE ENTRY LIMIT EXCEEDED+) 11666 M00S09334.dsdi +++| PRINT (=2C ) 11667 M00S09335.dsdi +++| EQ CCQX RETURN 11668 M00S09336.dsdi +++| 11669 M00S09337.dsdi +++| CCQA CON 0 QUEUE ENTRY LIMIT 11670 M00S09338.dsdi +++| CCQB CON 0 QUEUE ENTRY COUNT
| Line S00223 Modification History | |
|---|---|
M01 (Added by) | 271l739 |
Seq # *Modification Id* Act ----------------------------+ 11671 M01S00223.271l739 +++| CEA SPACE 4,10 11672 M01S00224.271l739 +++|** CEA - CHECK *EI* ADDRESS. 11673 M01S00225.271l739 +++|* 11674 M01S00226.271l739 +++|* ENTRY (X3) = BYTE ADDRESS. 11675 M01S00227.271l739 +++|* 11676 M01S00228.271l739 +++|* USES X - 1, 2, 3, 7. 11677 M01S00229.271l739 +++|* A - 1, 2, 7. 11678 M01S00230.271l739 +++|* 11679 M01S00231.271l739 +++|* CALLS PCM. 11680 M01S00232.271l739 +++| 11681 M01S00233.271l739 +++| 11682 M01S00234.271l739 +++| CEA1 BX7 X1 SET RANDOM ADDRESS 11683 M01S00235.271l739 +++| AX3 3 11684 M01S00236.271l739 +++| SA7 RI 11685 M01S00237.271l739 +++| RJ PCM POSITION CM RECORD 11686 M01S00238.271l739 +++| 11687 M01S00239.271l739 +++| CEA SUBR ENTRY/EXIT 11688 M01S00240.271l739 +++| SA2 XB 11689 M01S00241.271l739 +++| SA1 MH+1 MEMORY RECORD RANDOM ADDRESS 11690 M01S00242.271l739 +++| IX7 X3-X2 11691 M01S00243.271l739 +++| NG X7,CEA1 IF NOT *EI* ADDRESS 11692 M01S00244.271l739 +++| BX3 X7 11693 M01S00245.271l739 +++| SA1 EH+1 11694 M01S00246.271l739 +++| EQ CEA1 PROCESS ENVIRONMENTAL INTERFACE ADDRESS 11695 M00S09339.dsdi +++| CEP SPACE 4,10 11696 M00S09340.dsdi +++|** CEP - CHECK FOR EXTRANEOUS PARAMETERS. 11697 M00S09341.dsdi +++|* 11698 M00S09342.dsdi +++|* ENTRY (CH) = DIRECTIVE CARD STRING POINTER. 11699 M00S09343.dsdi +++|* 11700 M00S09344.dsdi +++|* EXIT TO *ERR40* IF EXTRA PARAMETER DETECTED. 11701 M00S09345.dsdi +++|* 11702 M00S09346.dsdi +++|* USES X - 1. 11703 M00S09347.dsdi +++|* A - 1. 11704 M00S09348.dsdi +++| 11705 M00S09349.dsdi +++| 11706 M00S09350.dsdi +++| CEP SUBR ENTRY/EXIT 11707 M00S09351.dsdi +++| SA1 CH GET NEXT CHARACTER 11708 M00S09352.dsdi +++| SA1 X1+ 11709 M00S09353.dsdi +++| SX1 X1-1R. 11710 M00S09354.dsdi +++| NG X1,ERR40 IF NOT END OF DIRECTIVE 11711 M00S09355.dsdi +++| EQ CEPX RETURN 11712 M00S09356.dsdi +++| CKC SPACE 4,12 11713 M00S09357.dsdi +++|** CKC - CRACK AND PROCESS DIRECTIVE CARD. 11714 M00S09358.dsdi +++|* 11715 M00S09359.dsdi +++|* ENTRY (B2) = DIRECTIVE PROCESSOR TABLE ADDRESS. 11716 M00S09360.dsdi +++|* DIRECTIVE BEGINS AT ADDRESS *CHAR* IN 11717 M00S09361.dsdi +++|* *S* FORMAT. 11718 M00S09362.dsdi +++|* (TF) = 0, IF OUTPUT NOT TO TERMINAL. 11719 M00S09363.dsdi +++|* 11720 M00S09364.dsdi +++|* EXIT (CH) = DIRECTIVE STRING POINTS TO FIRST ARGUMENT. 11721 M00S09365.dsdi +++|* TO DIRECTIVE PROCESSOR, IF FOUND IN TABLE AND VALID. 11722 M00S09366.dsdi +++|* TO CALLER, IF DIRECTIVE NOT FOUND IN TABLE. 11723 M00S09367.dsdi +++|* TO *ERR16*, IF PRINTER DIRECTIVE AND TERMINAL OUTPUT. 11724 M00S09368.dsdi +++|* TO *ERR17*, IF TERMINAL DIRECTIVE AND PRINTER OUTPUT. 11725 M00S09369.dsdi +++|* 11726 M00S09370.dsdi +++|* USES X - 1, 2, 3, 6. 11727 M00S09371.dsdi +++|* A - 1, 2, 6. 11728 M00S09372.dsdi +++|* B - 2, 3. 11729 M00S09373.dsdi +++|* 11730 M00S09374.dsdi +++|* CALLS ASN, DIRECTIVE PROCESSORS. 11731 M00S09375.dsdi +++| 11732 M00S09376.dsdi +++| 11733 M00S09377.dsdi +++| CKC SUBR 11734 M00S09378.dsdi +++| SX6 CHAR 11735 M00S09379.dsdi +++| SA6 CH SET DIRECTIVE STRING POINTER 11736 M00S09380.dsdi +++| RJ ASN ASSEMBLE DIRECTIVE NAME 11737 M00S09381.dsdi +++| CKC1 SA1 B2 READ PROCESSOR TABLE 11738 M00S09382.dsdi +++| SB2 B2+B1 ADVANCE TABLE POINTER 11739 M00S09383.dsdi +++| ZR X1,CKCX IF END OF TABLE 11740 M00S09384.dsdi +++| SA2 X1 READ PROCESSOR NAME 11741 M00S09385.dsdi +++| BX3 X2-X6 11742 M00S09386.dsdi +++| NZ X3,CKC1 IF NO MATCH 11743 M00S09387.dsdi +++| SB3 X1+B1 SET EXECUTION ADDRESS 11744 M00S09388.dsdi +++| LX3 X1,B1 11745 M00S09389.dsdi +++| SA2 TF CHECK TERMINAL FLAG 11746 M00S09390.dsdi +++| ZR X2,CKC2 IF OUTPUT NOT TO TERMINAL 11747 M00S09391.dsdi +++| NG X1,ERR16 IF DIRECTIVE RESTRICTED TO PRINTER 11748 M00S09392.dsdi +++| CKC2 NZ X2,CKC3 IF OUTPUT TO TERMINAL 11749 M00S09393.dsdi +++| NG X3,ERR17 IF DIRECTIVE RESTRICTED TO TERMINAL
| Line S09394 Modification History | |
|---|---|
M01 (Removed by) | dsdi69 |
Seq # *Modification Id* Act ----------------------------+ 11750 M01S09394.dsdi69 ---| CKC3 JP B3 EXECUTE SELECTED PROCESSOR
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | dsdi69 |
Seq # *Modification Id* Act ----------------------------+ 11751 M01S00046.dsdi69 +++| CKC3 LX1 -18 SET/CLEAR ERROR RETURN ADDRESS 11752 M01S00047.dsdi69 +++| SX6 X1 11753 M01S00048.dsdi69 +++| SA6 ERRC+1 11754 M01S00049.dsdi69 +++| JP B3 EXECUTE SELECTED PROCESSOR 11755 M00S09395.dsdi +++| CLE SPACE 4,10 11756 M00S09396.dsdi +++|** CLE - CHECK FOR LAST TABLE ENTRY. 11757 M00S09397.dsdi +++|* 11758 M00S09398.dsdi +++|* ENTRY (X4) = TABLE ENTRY NUMBER. 11759 M00S09399.dsdi +++|* (BE) = BUFFERED DEVICE TABLE ENTRY. 11760 M00S09400.dsdi +++|* 11761 M00S09401.dsdi +++|* EXIT (X0) = ENTRY ADDRESS RELATIVE TO TABLE FWA. 11762 M00S09402.dsdi +++|* (X1) = ENTRY LENGTH. 11763 M00S09403.dsdi +++|* (X2) = TABLE LENGTH. 11764 M00S09404.dsdi +++|* (X3).LT.0, IF ENTRY WITHIN TABLE. 11765 M00S09405.dsdi +++|* 11766 M00S09406.dsdi +++|* USES X - 0, 1, 2, 3. 11767 M00S09407.dsdi +++|* A - 2. 11768 M00S09408.dsdi +++| 11769 M00S09409.dsdi +++| 11770 M00S09410.dsdi +++| CLE SUBR ENTRY/EXIT 11771 M00S09411.dsdi +++| SA2 BE GET TABLE *BDT* ENTRY 11772 M00S09412.dsdi +++| LX2 18 11773 M00S09413.dsdi +++| MX0 -6 11774 M00S09414.dsdi +++| BX1 -X0*X2 ENTRY LENGTH 11775 M00S09415.dsdi +++| IX0 X1*X4 ENTRY ADDRESS RELATIVE TO TABLE FWA 11776 M00S09416.dsdi +++| AX2 42 TABLE LENGTH 11777 M00S09417.dsdi +++| IX3 X0-X2 CHECK IF ENTRY NUMBER WITHIN TABLE 11778 M00S09418.dsdi +++| EQ CLEX RETURN 11779 M00S09419.dsdi +++| CMB SPACE 4,15 11780 M00S09420.dsdi +++|** CMB - CHECK MEMORY BOUNDS. 11781 M00S09421.dsdi +++|* 11782 M00S09422.dsdi +++|* ENTRY (B2) = DUMP PARAMETER BLOCK ADDRESS. 11783 M00S09423.dsdi +++|* (AM) = *ALLMEM* FLAG. 11784 M00S09424.dsdi +++|* (AP) = ADVANCED PROCESSOR FLAG. 11785 M00S09425.dsdi +++|* 11786 M00S09426.dsdi +++|* EXIT TO CALLER IF DUMP PARAMETERS OKAY. 11787 M00S09427.dsdi +++|* TO *ERR32* IF PARAMETERS ARE BAD. 11788 M00S09428.dsdi +++|* 11789 M00S09429.dsdi +++|* USES X - 1, 2. 11790 M00S09430.dsdi +++|* A - 1, 2. 11791 M00S09431.dsdi +++| 11792 M00S09432.dsdi +++| 11793 M00S09433.dsdi +++| CMB SUBR ENTRY/EXIT 11794 M00S09434.dsdi +++| SA1 CE 11795 M00S09435.dsdi +++| ZR X1,CMBX IF BOUNDS CHECKING NOT REQUIRED 11796 M00S09436.dsdi +++| SA1 AM 11797 M00S09437.dsdi +++| NZ X1,CMBX IF *ALLMEM* ENABLED
Proceed to Part 8
cdc/nos2.source/opl.opl871/deck/dsdi.007.txt · Last modified: (external edit)