cdc:nos2.source:opl.opl871:deck:qdsplay.001
Deck QDSPLAY Part 001
9 Modifications
Listing Sections
- Deck QDSPLAY Start
- Deck QDSPLAY Part 1 (Line 1434)
Source
Seq # *Modification Id* Act ----------------------------+ 01434 M01S00382.241l630 +++| EQ DLD4 OUTPUT DISPLAY 01435 M01S00383.241l630 +++| 01436 M01S00384.241l630 +++|* BUILD ALL NON-HELP DISPLAYS. 01437 M01S00385.241l630 +++| 01438 M01S00386.241l630 +++| DLD2 SX2 S SET SYSTEM SECTOR FET 01439 M01S00387.241l630 +++| DLD3 RJ BLD BUILD *L* DISPLAY
| Line S00972 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01440 M01S00972.241l630 ---| RJ OLD OUTPUT *L* DISPLAY
| Line S00388 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01441 M01S00388.241l630 +++| DLD4 RJ OLD OUTPUT *L* DISPLAY 01442 M00S00973.qdsplay +++| DSDINP IPW,C 01443 M00S00974.qdsplay +++| EQ DLDX RETURN 01444 M00S00975.qdsplay +++| EFP SPACE 4,10 01445 M00S00976.qdsplay +++|** EFP - EXECUTE FUNCTION PROCESSOR. 01446 M00S00977.qdsplay +++|* 01447 M00S00978.qdsplay +++|* ENTRY (B5) = SUBROUTINE ADDRESS. 01448 M00S00979.qdsplay +++|* 01449 M00S00980.qdsplay +++|* EXIT TO SUBROUTINE WITH RETURN ADDRESS SET. 01450 M00S00981.qdsplay +++|* 01451 M00S00982.qdsplay +++|* USES X - 2, 7. 01452 M00S00983.qdsplay +++|* A - 2, 7. 01453 M00S00984.qdsplay +++| 01454 M00S00985.qdsplay +++| 01455 M00S00986.qdsplay +++| EFP SUBR ENTRY 01456 M00S00987.qdsplay +++| SA2 EFPX SET RETURN ADDRESS 01457 M00S00988.qdsplay +++| BX7 X2 01458 M00S00989.qdsplay +++| SA7 B5 01459 M00S00990.qdsplay +++| JP B5+1 JUMP TO SUBROUTINE
| Line S00991 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01460 M01S00991.241l630 ---| FLD SPACE 4,15 01461 M01S00992.241l630 ---|** FLD - FORMAT LINE DATA. 01462 M01S00993.241l630 ---|* 01463 M01S00994.241l630 ---|* *FLD* FORMATS LINE DATA AND STORES IT IN THE *L* DISPLAY 01464 M01S00995.241l630 ---|* BUFFER. 01465 M01S00996.241l630 ---|* 01466 M01S00997.241l630 ---|* ENTRY (B6) = LWA+1 OF DATA. 01467 M01S00998.241l630 ---|* (B7) = FWA OF DATA. 01468 M01S00999.241l630 ---|* 01469 M01S01000.241l630 ---|* USES X - 1, 6, 7. 01470 M01S01001.241l630 ---|* A - 0, 1, 6, 7. 01471 M01S01002.241l630 ---|* B - 7. 01472 M01S01003.241l630 ---|* 01473 M01S01004.241l630 ---|* CALLS RSC. 01474 M01S01005.241l630 ---| 01475 M01S01006.241l630 ---| 01476 M01S01007.241l630 ---| FLD2 SX6 B0+ STORE ZERO WORD AT END OF DATA 01477 M01S01008.241l630 ---| SA6 A0+ 01478 M01S01009.241l630 ---| 01479 M01S01010.241l630 ---| FLD SUBR ENTRY/EXIT 01480 M01S01011.241l630 ---| SA0 LBUF GET ADDRESS OF *L* DISPLAY BUFFER 01481 M01S01012.241l630 ---| FLD1 EQ B6,B7,FLD2 IF NO MORE DATA 01482 M01S01013.241l630 ---| SA1 B7 GET NEXT WORD 01483 M01S01014.241l630 ---| SB7 B7+B1 01484 M01S01015.241l630 ---| RJ RSC REMOVE SPECIAL CHARACTERS 01485 M01S01016.241l630 ---| SA7 A0 STORE CONVERTED WORD IN *LBUF* 01486 M01S01017.241l630 ---| SA0 A0+B1 INCREMENT POINTER 01487 M01S01018.241l630 ---| EQ FLD1 READ MORE DATA 01488 M00S01019.qdsplay +++| FOD SPACE 4,15 01489 M00S01020.qdsplay +++|** FOD - FORMAT OCTAL DATA. 01490 M00S01021.qdsplay +++|*
| Line S01022 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01491 M01S01022.241l630 ---|* *FOD* FORMATS OCTAL DATA AND STORES IT IN THE *L* DISPLAY 01492 M01S01023.241l630 ---|* BUFFER.
| Line S00389 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01493 M01S00389.241l630 +++|* *FOD* FORMATS OCTAL DATA AND STORES IT IN *WBUF*.
| Line S01024 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01494 M01S01024.qdsp3 ---|*
| Line S01025 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01495 M02S01025.qdsp3 ---|* ENTRY (B6) = LWA+1 OF DATA TO CONVERT FOR *L* DISPLAY.
| Line S00390 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01496 M02S00390.qdsp3 ---|* ENTRY (X6) = FILE STATUS. 01497 M02S00391.qdsp3 ---|* (B6) = LWA+1 OF DATA TO CONVERT FOR *L* DISPLAY.
| Line S01026 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01498 M01S01026.qdsp3 ---|* (B7) = FWA OF DATA TO CONVERT FOR *L* DISPLAY.
| Line S00392 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01499 M01S00392.241l630 +++|* 01500 M01S00393.241l630 +++|* EXIT (X6) = FILE STATUS. 01501 M01S00394.241l630 +++|* (B6) = LWA+1 CONVERTED DATA. 01502 M00S01027.qdsplay +++|* 01503 M00S01028.qdsplay +++|* USES X - ALL. 01504 M00S01029.qdsplay +++|* A - 0, 1, 6, 7.
| Line S00395 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01505 M02S00395.qdsp3 ---|* B - 5, 6, 7.
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01506 M01S00053.qdsp3 +++|* B - 2, 5, 6, 7. 01507 M00S01030.qdsplay +++|*
| Line S01031 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01508 M01S01031.241l630 ---|* CALLS RSC, WOD.
| Line S00396 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01509 M02S00396.qdsp3 ---|* CALLS RSC, WOD, ZTB.
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01510 M01S00054.qdsp3 +++|* CALLS DCM, RSC, WOD, ZTB. 01511 M00S01032.qdsplay +++|*
| Line S00397 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01512 M02S00397.qdsp3 ---|* MACROS MOVE.
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01513 M01S00055.qdsp3 +++|* MACROS MOVE, READW. 01514 M00S01033.qdsplay +++| 01515 M00S01034.qdsplay +++| 01516 M00S01035.qdsplay +++| FOD SUBR ENTRY/EXIT
| Line S01036 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01517 M01S01036.241l630 ---| SA0 LBUF *L* DISPLAY BUFFER 01518 M01S01037.241l630 ---| EQ B7,B6,FOD3 IF NO MORE DATA IN WORKING BUFFER
| Line S00398 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01519 M02S00398.qdsp3 ---| SA6 FODA SAVE FILE STATUS 01520 M02S00399.qdsp3 ---| SA0 WBUF WORKING BUFFER 01521 M02S00400.qdsp3 ---| EQ B7,B6,FODX IF NO MORE DATA IN WORKING BUFFER
| Line S01038 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01522 M01S01038.qdsp3 ---| FOD1 SA1 B7 GET NEXT WORD 01523 M01S01039.qdsp3 ---| SB7 B7+B1
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01524 M01S00056.qdsp3 +++| READW X2,OBUF,MLLB 01525 M01S00057.qdsp3 +++| SX6 X1+2+SEOI 01526 M01S00058.qdsp3 +++| SB5 OBUF 01527 M01S00059.qdsp3 +++| NG X1,FOD1 IF EOF/EOI 01528 M01S00060.qdsp3 +++| SX6 SEOR 01529 M01S00061.qdsp3 +++| NZ X1,FOD1 IF EOR 01530 M01S00062.qdsp3 +++| SX6 B0+ 01531 M01S00063.qdsp3 +++| FOD1 SA6 FODA SAVE FILE STATUS 01532 M01S00064.qdsp3 +++| EQ B5,B6,FODX IF NO DATA IN WORKING BUFFER 01533 M01S00065.qdsp3 +++| RJ DCM DETERMINE CHARACTER MODE 01534 M01S00066.qdsp3 +++| SB2 12 SHIFT COUNT 01535 M01S00067.qdsp3 +++| SA0 WBUF WORKING BUFFER 01536 M01S00068.qdsp3 +++| FOD2 SA1 B5 GET NEXT WORD 01537 M01S00069.qdsp3 +++| SB5 B5+B1 01538 M00S01040.qdsplay +++| RJ WOD CONVERT WORD TO OCTAL DISPLAY CODE 01539 M00S01041.qdsplay +++| MX0 24 01540 M00S01042.qdsplay +++| BX1 X0*X6 SET FIRST WORD IN BUFFER 01541 M00S01043.qdsplay +++| LX0 -24 01542 M00S01044.qdsplay +++| BX2 X0*X6 01543 M00S01045.qdsplay +++| LX0 -12 01544 M00S01046.qdsplay +++| BX3 X0*X7 SET THIRD WORD IN BUFFER 01545 M00S01047.qdsplay +++| LX2 -12 01546 M00S01048.qdsplay +++| BX1 X2+X1 01547 M00S01049.qdsplay +++| MX0 12 01548 M00S01050.qdsplay +++| BX4 X0*X7 01549 M00S01051.qdsplay +++| LX7 -36 01550 M00S01052.qdsplay +++| BX5 X0*X7 01551 M00S01053.qdsplay +++| LX0 12 01552 M00S01054.qdsplay +++| BX2 X0*X6 SET SECOND WORD IN BUFFER 01553 M00S01055.qdsplay +++| BX2 X2+X4 01554 M00S01056.qdsplay +++| LX2 36 01555 M00S01057.qdsplay +++| BX4 X0*X7 01556 M00S01058.qdsplay +++| BX2 X2+X4 01557 M00S01059.qdsplay +++| LX3 12 01558 M00S01060.qdsplay +++| BX3 X3+X5 01559 M00S01061.qdsplay +++| SX4 2R SET BLANKS IN EACH WORD 01560 M00S01062.qdsplay +++| BX7 X3+X4 01561 M00S01063.qdsplay +++| LX4 12 01562 M00S01064.qdsplay +++| BX2 X2+X4 01563 M00S01065.qdsplay +++| LX4 12 01564 M00S01066.qdsplay +++| BX6 X1+X4 01565 M00S01067.qdsplay +++| LX4 12 01566 M00S01068.qdsplay +++| SA6 A0 01567 M00S01069.qdsplay +++| SA0 A0+B1 01568 M00S01070.qdsplay +++| BX7 X7+X4 01569 M00S01071.qdsplay +++| LX4 12 01570 M00S01072.qdsplay +++| BX6 X2+X4 01571 M00S01073.qdsplay +++| SA6 A0 01572 M00S01074.qdsplay +++| SA7 A0+B1
| Line S01075 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01573 M01S01075.qdsp3 ---| SA1 B7-B1
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01574 M01S00070.qdsp3 +++| SA1 B5-B1 01575 M00S01076.qdsplay +++| SA0 A0+2 01576 M00S01077.qdsplay +++| RJ RSC REMOVE SPECIAL CHARACTERS
| Line S01078 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01577 M01S01078.241l630 ---| MX1 -12 01578 M01S01079.241l630 ---| BX1 -X1*X7 01579 M01S01080.241l630 ---| ZR X1,FOD2 IF END OF LINE IN DATA 01580 M01S01081.241l630 ---| SA7 A0+
| Line S00401 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01581 M01S00401.241l630 +++| BX1 X7 SET ENTRY TO *ZTB* 01582 M01S00402.241l630 +++| RJ ZTB CONVERT ZERO BYTES TO BLANKS 01583 M01S00403.241l630 +++| SA6 A0+ 01584 M00S01082.qdsplay +++| SA0 A0+B1 01585 M00S01083.qdsplay +++| BX7 X7-X7 SET END OF LINE
| Line S01084 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01586 M01S01084.qdsp3 ---| FOD2 SA7 A0
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01587 M01S00071.qdsp3 +++| SA7 A0 01588 M00S01085.qdsplay +++| SA0 A0+B1
| Line S01086 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01589 M01S01086.qdsp3 ---| NE B7,B6,FOD1 IF MORE WORDS TO TRANSFER
| Line S01087 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01590 M02S01087.qdsp3 ---| FOD3 BX6 X6-X6 SET END OF *L* BUFFER 01591 M02S01088.qdsp3 ---| SA6 A0
| Line S00404 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01592 M02S00404.qdsp3 ---| FOD3 SB7 OBUF
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01593 M01S00072.qdsp3 +++| NE B5,B6,FOD2 IF MORE WORDS TO TRANSFER 01594 M01S00073.qdsp3 +++| SB7 OBUF
| Line S00405 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01595 M01S00405.241l630 +++| SB5 MLLB MAXIMUM NUMBER OF LINES ON *L* DISPLAY 01596 M01S00406.241l630 +++| SB7 B6-B7 NUMBER OF LINES OF DATA ON *L* DISPLAY 01597 M01S00407.241l630 +++| SB5 B5-B7 NUMBER OF LINES TO BLANK PAD 01598 M01S00408.241l630 +++| SB6 A0 RESET LWA+1 OF BUFFER 01599 M01S00409.241l630 +++| MOVE B5,BLNS,B6 FILL BUFFER WITH BLANK LINES 01600 M01S00410.241l630 +++| SB6 B6+B5 RESET LWA+1 OF *WBUF* 01601 M01S00411.241l630 +++| SA1 FODA RESTORE FILE STATUS 01602 M01S00412.241l630 +++| BX6 X1 01603 M00S01089.qdsplay +++| EQ FODX RETURN
| Line S00413 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01604 M01S00413.241l630 +++| 01605 M01S00414.241l630 +++| 01606 M01S00415.241l630 +++| FODA BSS 1 FILE STATUS SAVE AREA 01607 M00S01090.qdsplay +++| ILD SPACE 4,15 01608 M00S01091.qdsplay +++|** ILD - INPUT *L* DISPLAY. 01609 M00S01092.qdsplay +++|* 01610 M00S01093.qdsplay +++|* *ILD* WILL ROLLOUT UNTIL A COMMAND IS ENTERED VIA THE *L* 01611 M00S01094.qdsplay +++|* DISPLAY. IF *DSD* RETURNS AN ERROR CONDITION AFTER AN INPUT 01612 M00S01095.qdsplay +++|* COMMAND IS ISSUED, *ILD* WILL ISSUE A MESSAGE TO THE SYSTEM 01613 M00S01096.qdsplay +++|* DAYFILE AND TERMINATE. 01614 M00S01097.qdsplay +++|* 01615 M00S01098.qdsplay +++|* USES X - 0, 1, 2. 01616 M00S01099.qdsplay +++|* A - 1. 01617 M00S01100.qdsplay +++|* B - 3. 01618 M00S01101.qdsplay +++|* 01619 M00S01102.qdsplay +++|* MACROS DSDINP, ENDRUN, MESSAGE, ROLLOUT, ROUTE. 01620 M00S01103.qdsplay +++| 01621 M00S01104.qdsplay +++| 01622 M00S01105.qdsplay +++| ILD SUBR ENTRY/EXIT 01623 M00S01106.qdsplay +++| ILD1 DSDINP IPW REQUEST INPUT FROM OPERATOR 01624 M00S01107.qdsplay +++| SA1 IPW 01625 M00S01108.qdsplay +++| MX0 -12 01626 M00S01109.qdsplay +++| BX1 -X0*X1 01627 M00S01110.qdsplay +++| AX1 1 IGNORE COMPLETION BIT 01628 M00S01111.qdsplay +++| SX2 X1-CNCI 01629 M00S01112.qdsplay +++| SB3 X1 01630 M00S01113.qdsplay +++| ZR X2,ILD2 IF COMMAND NOT ENTERED 01631 M00S01114.qdsplay +++| LT B3,B1,ILDX IF NO SYSTEM ERROR 01632 M00S01115.qdsplay +++| ROUTE ROPB,R RETURN FILE TO QUEUE 01633 M00S01116.qdsplay +++| MESSAGE (=C* CANNOT ACCESS L-DISPLAY*),0,R 01634 M00S01117.qdsplay +++| ENDRUN 01635 M00S01118.qdsplay +++| 01636 M00S01119.qdsplay +++| ILD2 ROLLOUT ROLB WAIT FOR *L* DISPLAY INPUT 01637 M00S01120.qdsplay +++| EQ ILD1 CHECK *L* DISPLAY INPUT 01638 M00S01121.qdsplay +++| OLD SPACE 4,10 01639 M00S01122.qdsplay +++|** OLD - OUTPUT *L* DISPLAY DATA.
| Line S01123 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01640 M01S01123.241l630 ---|* 01641 M01S01124.241l630 ---|* ENTRY (B2) = *L* DISPLAY MESSAGE INDEX. 01642 M01S01125.241l630 ---|* 01643 M01S01126.241l630 ---|* USES X - 2, 3, 6. 01644 M01S01127.241l630 ---|* A - 3, 6. 01645 M01S01128.241l630 ---|* 01646 M01S01129.241l630 ---|* MACROS DSDOUT, MOVE.
| Line S00416 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01647 M01S00416.241l630 +++|* 01648 M01S00417.241l630 +++|* MACROS DSDOUT. 01649 M00S01130.qdsplay +++| 01650 M00S01131.qdsplay +++| 01651 M00S01132.qdsplay +++| OLD SUBR ENTRY/EXIT
| Line S01133 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01652 M01S01133.241l630 ---| SX2 TMLD+B2 01653 M01S01134.241l630 ---| MOVE 3,X2,ERMS SET MESSAGE IN HEADER 01654 M01S01135.241l630 ---| SA3 STAT 01655 M01S01136.241l630 ---| SA3 TVST+X3 READ FILE STATUS TABLE 01656 M01S01137.241l630 ---| BX6 X3 01657 M01S01138.241l630 ---| SA6 LBHR+4 SET STATUS IN HEADER 01658 M00S01139.qdsplay +++| DSDOUT LFWA 01659 M00S01140.qdsplay +++| EQ OLDX RETURN 01660 M00S01141.qdsplay +++| RNR SPACE 4,15 01661 M00S01142.qdsplay +++|** RNR - READ NEW RECORD. 01662 M00S01143.qdsplay +++|* 01663 M00S01144.qdsplay +++|* *RNR* READS A NEW RECORD INTO THE QUEUED FILE BUFFER. 01664 M00S01145.qdsplay +++|* 01665 M00S01146.qdsplay +++|* ENTRY (X6) = STATUS (*BOR* OR BOI). 01666 M00S01147.qdsplay +++|* 01667 M00S01148.qdsplay +++|* EXIT (X2) = FET ADDRESS OF QUEUED FILE. 01668 M00S01149.qdsplay +++|* 01669 M00S01150.qdsplay +++|* USES X - 1, 6. 01670 M00S01151.qdsplay +++|* A - 1, 6. 01671 M00S01152.qdsplay +++|* 01672 M00S01153.qdsplay +++|* MACROS READ. 01673 M00S01154.qdsplay +++| 01674 M00S01155.qdsplay +++| 01675 M00S01156.qdsplay +++| RNR SUBR ENTRY/EXIT 01676 M00S01157.qdsplay +++| SA6 STAT SET FILE STATUS 01677 M00S01158.qdsplay +++| SX6 QBUF RESET *IN* AND *OUT* FOR EMPTY BUFFER 01678 M00S01159.qdsplay +++| SA6 Q+2 01679 M00S01160.qdsplay +++| SA6 Q+3 01680 M00S01161.qdsplay +++| READ Q,R 01681 M00S01162.qdsplay +++| SA1 Q CHECK FOR EOR/EOF/EOI 01682 M00S01163.qdsplay +++| BX6 X6-X6 INDICATE RECORD EXCEEDS BUFFER 01683 M00S01164.qdsplay +++| LX1 59-4 01684 M00S01165.qdsplay +++| SA6 ERIB 01685 M00S01166.qdsplay +++| PL X1,RNRX IF NOT EOR/EOF/EOI 01686 M00S01167.qdsplay +++| LX1 59-3-59+4 01687 M00S01168.qdsplay +++| NG X1,RNRX IF EOF/EOI 01688 M00S01169.qdsplay +++| SX6 B1 INDICATE ENTIRE DATA RECORD WITHIN BUFFER
| Line S01170 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01689 M01S01170.241l630 ---| SA6 A6
| Line S00418 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01690 M01S00418.241l630 +++| SA6 A6+ 01691 M00S01171.qdsplay +++| EQ RNRX RETURN 01692 M00S01172.qdsplay +++| RQF SPACE 4,10 01693 M00S01173.qdsplay +++|** RQF - READ QUEUED FILE. 01694 M00S01174.qdsplay +++|* 01695 M00S01175.qdsplay +++|* *RQF* READS THE QUEUED FILE INTO THE CIO BUFFER. 01696 M00S01176.qdsplay +++|* 01697 M00S01177.qdsplay +++|* ENTRY (X2) = FET ADDRESS OF FILE. 01698 M00S01178.qdsplay +++|* 01699 M00S01179.qdsplay +++|* USES X - 1, 3, 4, 5. 01700 M00S01180.qdsplay +++|* A - 1, 3, 4. 01701 M00S01181.qdsplay +++|* 01702 M00S01182.qdsplay +++|* MACROS READ. 01703 M00S01183.qdsplay +++| 01704 M00S01184.qdsplay +++| 01705 M00S01185.qdsplay +++| RQF SUBR ENTRY/EXIT 01706 M00S01186.qdsplay +++| SA4 X2 01707 M00S01187.qdsplay +++| LX4 59-4 01708 M00S01188.qdsplay +++| NG X4,RQFX IF EOR/EOF/EOI 01709 M00S01189.qdsplay +++| SA1 A4+1 GET *FIRST* 01710 M00S01190.qdsplay +++| SA3 A1+1 GET *IN* 01711 M00S01191.qdsplay +++| SA4 A3+B1 GET *OUT* 01712 M00S01192.qdsplay +++| IX5 X3-X4 NUMBER OF WORDS IN BUFFER (*IN*-*OUT*) 01713 M00S01193.qdsplay +++| PL X5,RQF1 IF *IN* .GE. *OUT* 01714 M00S01194.qdsplay +++| SA3 A4+1 GET *LIMIT* 01715 M00S01195.qdsplay +++| IX3 X3-X1 *LIMIT* - *FIRST* 01716 M00S01196.qdsplay +++| IX5 X3+X5 NUMBER OF WORDS IN BUFFER 01717 M00S01197.qdsplay +++| RQF1 SX5 X5-LBUFL *L* DISPLAY BUFFER LENGTH 01718 M00S01198.qdsplay +++| PL X5,RQFX IF NUMBER OF WORDS .GE. *LBUFL* 01719 M00S01199.qdsplay +++| READ X2,R 01720 M00S01200.qdsplay +++| EQ RQFX RETURN 01721 M00S01201.qdsplay +++| RPV SPACE 4,10 01722 M00S01202.qdsplay +++|** RPV - REPRIEVE PROCESSOR. 01723 M00S01203.qdsplay +++|* 01724 M00S01204.qdsplay +++|* *RPV* DISPLAYS *SYSTEM ABORT.* MESSAGE AND CLEARS *L* 01725 M00S01205.qdsplay +++|* DISPLAY. 01726 M00S01206.qdsplay +++|* 01727 M00S01207.qdsplay +++|* USES B - 2. 01728 M00S01208.qdsplay +++|* 01729 M00S01209.qdsplay +++|* CALLS DLD. 01730 M00S01210.qdsplay +++|* 01731 M00S01211.qdsplay +++|* MACROS REPRIEVE, ROUTE. 01732 M00S01212.qdsplay +++| 01733 M00S01213.qdsplay +++| 01734 M00S01214.qdsplay +++| RPV BSS 0 ENTRY 01735 M00S01215.qdsplay +++| SB2 EABT DISPLAY *SYSTEM ABORT.* MESSAGE 01736 M00S01216.qdsplay +++| RJ DLD DROP *L* DISPLAY 01737 M00S01217.qdsplay +++| ROUTE ROPB,R RETURN FILE TO QUEUE 01738 M00S01218.qdsplay +++| REPRIEVE RPB,RESET,0 RESET ERROR FLAG 01739 M00S01219.qdsplay +++| RSC SPACE 4,10 01740 M00S01220.qdsplay +++|** RSC - REMOVE SPECIAL CHARACTERS. 01741 M00S01221.qdsplay +++|* 01742 M00S01222.qdsplay +++|* *RSC* REMOVES SPECIAL CHARACTERS 60B THROUGH 77B FROM 01743 M00S01223.qdsplay +++|* DISPLAY CODE. 01744 M00S01224.qdsplay +++|* 01745 M00S01225.qdsplay +++|* ENTRY (X1) = DISPLAY CODE WORD.
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01746 M01S00074.qdsp3 +++|* (B4) = 0 IF ASCII MODE. 01747 M01S00075.qdsp3 +++|* (B2) = SHIFT COUNT FOR CONVERTED ASCII CHARACTERS. 01748 M00S01226.qdsplay +++|*
| Line S01227 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01749 M01S01227.qdsp3 ---|* EXIT (X7) = CONVERTED DISPLAY CODE WORD.
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01750 M01S00076.qdsp3 +++|* EXIT (X4) = LAST BYTE IF ASCII MODE. 01751 M01S00077.qdsp3 +++|* (X7) = CONVERTED DISPLAY CODE WORD. 01752 M00S01228.qdsplay +++|*
| Line S01229 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01753 M01S01229.qdsp3 ---|* USES X - 1, 3, 4, 7.
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01754 M01S00078.qdsp3 +++|* USES X - 0, 1, 2, 3, 4, 7. 01755 M00S01230.qdsplay +++|* A - 1, 4.
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01756 M01S00079.qdsp3 +++|* B - 3. 01757 M00S01231.qdsplay +++| 01758 M00S01232.qdsplay +++|
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01759 M01S00080.qdsp3 +++| RSC1 BX7 X7-X7 01760 M01S00081.qdsp3 +++| MX0 5 01761 M01S00082.qdsp3 +++| MX3 -12 01762 M01S00083.qdsp3 +++| RSC2 LX1 12 01763 M01S00084.qdsp3 +++| BX4 -X3*X1 GET CHARACTER 01764 M01S00085.qdsp3 +++| ZR X4,RSC6 IF ZERO BYTE 01765 M01S00086.qdsp3 +++| SB3 X4-173B 01766 M01S00087.qdsp3 +++| PL B3,RSC3 IF SPECIAL CHARACTER 01767 M01S00088.qdsp3 +++| SB3 B3-140B+173B 01768 M01S00089.qdsp3 +++| GT B3,RSC5 IF LOWER CASE 01769 M01S00090.qdsp3 +++| SB3 B3-133B+140B 01770 M01S00091.qdsp3 +++| PL B3,RSC3 IF SPECIAL CHARACTER 01771 M01S00092.qdsp3 +++| SB3 B3-100B+133B 01772 M01S00093.qdsp3 +++| GT B3,RSC5 IF UPPER CASE 01773 M01S00094.qdsp3 +++| SX4 X4-47B 01774 M01S00095.qdsp3 +++| PL X4,RSC4 IF DISPLAYABLE SPECIAL CHARACTER 01775 M01S00096.qdsp3 +++| RSC3 SX4 B0+ 01776 M01S00097.qdsp3 +++| RSC4 MX2 -3 01777 M01S00098.qdsp3 +++| BX2 -X2*X4 CHARACTER NUMBER 0..7 01778 M01S00099.qdsp3 +++| AX4 3 WORD NUMBER 01779 M01S00100.qdsp3 +++| LX2 1 CREATE SHIFT COUNT 01780 M01S00101.qdsp3 +++| SB3 X2 01781 M01S00102.qdsp3 +++| LX2 1 01782 M01S00103.qdsp3 +++| SA4 X4+RSCC GET WORD 01783 M01S00104.qdsp3 +++| SB3 B3+X2 01784 M01S00105.qdsp3 +++| LX4 B3 01785 M01S00106.qdsp3 +++| SB3 X4 01786 M01S00107.qdsp3 +++| RSC5 SX4 B3 01787 M01S00108.qdsp3 +++| MX2 -6 01788 M01S00109.qdsp3 +++| BX4 -X2*X4 GET REPLACEMENT CHARACTER 01789 M01S00110.qdsp3 +++| BX7 X7+X4 INSERT NEW CHARACTER 01790 M01S00111.qdsp3 +++| RSC6 LX0 1 01791 M01S00112.qdsp3 +++| LX7 B2 01792 M01S00113.qdsp3 +++| MX2 -12 RESET MASK 01793 M01S00114.qdsp3 +++| NG X0,RSC2 IF MORE TO PROCESS 01794 M01S00115.qdsp3 +++| LX7 -B2 01795 M01S00116.qdsp3 +++| 01796 M00S01233.qdsplay +++| RSC SUBR ENTRY/EXIT
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01797 M01S00117.qdsp3 +++| ZR B4,RSC1 IF ASCII MODE 01798 M00S01234.qdsplay +++| SA4 RSCA 40404040404040404040 01799 M00S01235.qdsplay +++| BX3 X4*X1 01800 M00S01236.qdsplay +++| BX7 X1 RETURN ORIGINAL DISPLAY CODE WORD 01801 M00S01237.qdsplay +++| LX1 1 01802 M00S01238.qdsplay +++| BX4 X4*X1 01803 M00S01239.qdsplay +++| BX4 X4*X3 01804 M00S01240.qdsplay +++| BX3 X4 01805 M00S01241.qdsplay +++| ZR X4,RSCX IF NO SPECIAL CHARACTERS 01806 M00S01242.qdsplay +++| 01807 M00S01243.qdsplay +++|* BUILD CHARACTER MASK. 01808 M00S01244.qdsplay +++| 01809 M00S01245.qdsplay +++| LX3 -1 01810 M00S01246.qdsplay +++| BX4 X3+X4 01811 M00S01247.qdsplay +++| LX3 -1 01812 M00S01248.qdsplay +++| BX4 X3+X4 01813 M00S01249.qdsplay +++| BX3 X4 01814 M00S01250.qdsplay +++| LX4 -3 01815 M00S01251.qdsplay +++| BX3 X4+X3 FINAL CHARACTER MASK 01816 M00S01252.qdsplay +++| SA1 RSCB 01817 M00S01253.qdsplay +++| BX1 X3*X1 SAVE BLANK IN SPECIAL CHARACTER POSITIONS 01818 M00S01254.qdsplay +++| BX4 -X3*X7 CLEAR OUT SPECIAL CHARACTERS 01819 M00S01255.qdsplay +++| BX7 X4+X1 STORE BLANKS IN DISPLAY CODE WORD 01820 M00S01256.qdsplay +++| EQ RSCX RETURN 01821 M00S01257.qdsplay +++| 01822 M00S01258.qdsplay +++| 01823 M00S01259.qdsplay +++| RSCA DATA 40404040404040404040B 01824 M00S01260.qdsplay +++| RSCB DATA 10H
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01825 M01S00118.qdsp3 +++| RSCC DATA 10H()*+,-. 01826 M01S00119.qdsp3 +++| DATA 10H0123456 / 01827 M01S00120.qdsp3 +++| DATA 10H89 = 7 01828 M01S00121.qdsp3 +++| DATA 10H
| Line S00419 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01829 M01S00419.241l630 +++| SEM SPACE 4,15 01830 M01S00420.241l630 +++|** SEM - SET ERROR MESSAGE. 01831 M01S00421.241l630 +++|* 01832 M01S00422.241l630 +++|* *SEM* FORMATS THE APPROPRIATE SCREEN WITH THE ERROR MESSAGE 01833 M01S00423.241l630 +++|* SET INTO THE DISPLAY. 01834 M01S00424.241l630 +++|* 01835 M01S00425.241l630 +++|* ENTRY (B2) = ERROR MESSAGE ORDINAL. 01836 M01S00426.241l630 +++|* 01837 M01S00427.241l630 +++|* EXIT *LBUF* RESET WITH ERROR MESSAGE. 01838 M01S00428.241l630 +++|* 01839 M01S00429.241l630 +++|* USES X - 1, 2. 01840 M01S00430.241l630 +++|* A - 1. 01841 M01S00431.241l630 +++|* 01842 M01S00432.241l630 +++|* CALLS BLD, HLP. 01843 M01S00433.241l630 +++| 01844 M01S00434.241l630 +++| 01845 M01S00435.241l630 +++| SEM2 SX2 S SET SYSTEM SECTOR FET 01846 M01S00436.241l630 +++| SEM3 RJ BLD BUILD *L* DISPLAY 01847 M01S00437.241l630 +++| 01848 M01S00438.241l630 +++| SEM SUBR ENTRY/EXIT 01849 M01S00439.241l630 +++| SA1 STAT CHECK FOR HELP STATUS 01850 M01S00440.241l630 +++| SX2 SHLP 01851 M01S00441.241l630 +++| BX2 X2-X1 01852 M01S00442.241l630 +++| NZ X2,SEM1 IF NOT HELP STATUS 01853 M01S00443.241l630 +++| RJ HLP FORMAT HELP SCREEN 01854 M01S00444.241l630 +++| EQ SEMX RETURN 01855 M01S00445.241l630 +++| 01856 M01S00446.241l630 +++| SEM1 SX2 SSYS CHECK FOR SYSTEM SECTOR STATUS 01857 M01S00447.241l630 +++| BX1 X2-X1 01858 M01S00448.241l630 +++| ZR X1,SEM2 IF SYSTEM SECTOR 01859 M01S00449.241l630 +++| SX2 Q SET QUEUED FILE FET 01860 M01S00450.241l630 +++| EQ SEM3 FORMAT SCREEN 01861 M00S01261.qdsplay +++| TLD SPACE 4,20 01862 M00S01262.qdsplay +++|** TLD - TRANSFER LINES OF DATA. 01863 M00S01263.qdsplay +++|* 01864 M00S01264.qdsplay +++|* *TLD* TRANSFERS LINES OF DATA TO THE *L* DISPLAY WORKING 01865 M00S01265.qdsplay +++|* BUFFER. 01866 M00S01266.qdsplay +++|* 01867 M00S01267.qdsplay +++|* ENTRY (X2) = FET ADDRESS OF FILE. 01868 M00S01268.qdsplay +++|* 01869 M00S01269.qdsplay +++|* EXIT (X6) = STATUS, IF EOR/EOF/EOI ENCOUNTERED. 01870 M00S01270.qdsplay +++|* (X6) = 0, IF NOT EOR/EOF/EOI. 01871 M00S01271.qdsplay +++|* (B6) = LWA+1 OF DATA IN WBUF.
| Line S01272 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01872 M01S01272.241l630 ---|* (B7) = WBUF = FWA OF DATA.
| Line S00451 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01873 M02S00451.qdsp3 ---|* (B7) = WBHR = FWA OF DATA.
| Line S01273 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01874 M01S01273.qdsp3 ---|*
| Line S01274 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01875 M02S01274.qdsp3 ---|* USES X - 0, 3, 4, 5, 6. 01876 M02S01275.qdsp3 ---|* A - 3, 6. 01877 M02S01276.qdsp3 ---|* B - 6, 7.
| Line S00452 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01878 M02S00452.qdsp3 ---|* USES X - 0, 1, 2, 3, 4, 5, 6. 01879 M02S00453.qdsp3 ---|* A - 1, 2, 3, 6, 7. 01880 M02S00454.qdsp3 ---|* B - 5, 6, 7.
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01881 M01S00122.qdsp3 +++|* 01882 M01S00123.qdsp3 +++|* USES X - 0, 1, 3, 4, 5, 6, 7. 01883 M01S00124.qdsp3 +++|* A - 1, 3, 6, 7. 01884 M01S00125.qdsp3 +++|* B - 2, 5, 6, 7. 01885 M00S01277.qdsplay +++|*
| Line S01278 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01886 M01S01278.241l630 ---|* MACROS READC.
| Line S00455 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01887 M02S00455.qdsp3 ---|* CALLS RSC.
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01888 M01S00126.qdsp3 +++|* CALLS DCM, RSC.
| Line S00456 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01889 M01S00456.241l630 +++|* 01890 M01S00457.241l630 +++|* MACROS MOVE, READC. 01891 M00S01279.qdsplay +++| 01892 M00S01280.qdsplay +++|
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01893 M01S00127.qdsp3 +++| TLD7 SB7 B5+ 01894 M01S00128.qdsp3 +++| SB2 6 01895 M01S00129.qdsp3 +++| TLD8 EQ B5,B6,TLD11 IF ALL WORDS CONVERTED 01896 M01S00130.qdsp3 +++| SA1 B5+ CONVERT FIRST 5 CHARACTERS 01897 M01S00131.qdsp3 +++| RJ RSC REMOVE SPECIAL CHARACTERS 01898 M01S00132.qdsp3 +++| LX7 30 01899 M01S00133.qdsp3 +++| SB5 B5+B1 01900 M01S00134.qdsp3 +++| ZR X4,TLD9 IF END OF LINE 01901 M01S00135.qdsp3 +++| EQ B5,B6,TLD10 IF END OF BUFFER 01902 M01S00136.qdsp3 +++| BX5 X7 SAVE FIRST 5 CHARACTERS 01903 M01S00137.qdsp3 +++| SA1 B5 CONVERT SECOND 5 CHARACTERS 01904 M01S00138.qdsp3 +++| RJ RSC REMOVE SPECIAL CHARACTERS 01905 M01S00139.qdsp3 +++| SB5 B5+1 01906 M01S00140.qdsp3 +++| BX7 X7+X5 01907 M01S00141.qdsp3 +++| NZ X4,TLD9 IF NOT END OF LINE 01908 M01S00142.qdsp3 +++| MX5 -12 01909 M01S00143.qdsp3 +++| BX5 -X5*X7 01910 M01S00144.qdsp3 +++| ZR X5,TLD9 IF 12-ZERO BIT LINE TERMINATOR 01911 M01S00145.qdsp3 +++| SA7 B7 01912 M01S00146.qdsp3 +++| SB7 B7+B1 01913 M01S00147.qdsp3 +++| SX7 2R 01914 M01S00148.qdsp3 +++| LX7 59-11 01915 M01S00149.qdsp3 +++| TLD9 SA7 B7 01916 M01S00150.qdsp3 +++| SB7 B7+B1 01917 M01S00151.qdsp3 +++| EQ TLD8 LOOP UNTIL ALL WORDS CONVERTED 01918 M01S00152.qdsp3 +++| 01919 M01S00153.qdsp3 +++| TLD10 SA7 B7+ 01920 M01S00154.qdsp3 +++| TLD11 SB6 B7+ LWA+1 OF DATA TO DISPLAY 01921 M01S00155.qdsp3 +++| 01922 M00S01281.qdsplay +++| TLD SUBR ENTRY/EXIT 01923 M00S01282.qdsplay +++| SB6 WBUF 01924 M00S01283.qdsplay +++| SX0 B6 SAVE FWA OF WORKING BUFFER 01925 M00S01284.qdsplay +++| SX5 B0 INITIALIZE LINE COUNTER
| Line S01285 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01926 M01S01285.qdsp3 ---| TLD1 READC X2,B6,DLSZ
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01927 M01S00156.qdsp3 +++| RJ DCM DETERMINE WORD COUNT PER LINE 01928 M01S00157.qdsp3 +++| TLD1 READC X2,B6,A0 01929 M00S01286.qdsplay +++| SX6 X1+SEOI+2 EOF OR EOI
| Line S01287 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01930 M01S01287.241l630 ---| NG X1,TLD5 IF EOF OR EOI
| Line S00458 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01931 M01S00458.241l630 +++| NG X1,TLD4 IF EOF OR EOI 01932 M00S01288.qdsplay +++| SX6 SEOR 01933 M00S01289.qdsplay +++| BX3 X1-X0
| Line S01290 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01934 M01S01290.241l630 ---| ZR X3,TLD5 IF EOR WITHOUT DATA
| Line S00459 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01935 M01S00459.241l630 +++| ZR X3,TLD4 IF EOR WITHOUT DATA 01936 M00S01291.qdsplay +++| NZ X1,TLD2 IF TRANSFER NOT COMPLETE 01937 M00S01292.qdsplay +++| BX6 X4 RESET (LWA) OF DATA 01938 M00S01293.qdsplay +++| SA6 B6-B1 RESTORE DATA BEFORE END OF LINE 01939 M00S01294.qdsplay +++| TLD2 SA3 B6-B1 01940 M00S01295.qdsplay +++| MX4 -12 01941 M00S01296.qdsplay +++| NZ X3,TLD3 IF NOT ZERO WORD 01942 M00S01297.qdsplay +++| SX6 2R SET NONZERO WORD 01943 M00S01298.qdsplay +++| LX6 -12 01944 M00S01299.qdsplay +++| SA6 A3 01945 M00S01300.qdsplay +++| TLD3 BX3 -X4*X3
| Line S01301 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01946 M01S01301.241l630 ---| SX6 B0 01947 M01S01302.241l630 ---| ZR X3,TLD4 IF END OF LINE 01948 M01S01303.241l630 ---| SA6 B6 SET END OF LINE 01949 M01S01304.241l630 ---| SB6 B6+B1 ADVANCE LWA+1 OF LINE 01950 M01S01305.241l630 ---| TLD4 SX0 B6 LWA+1
| Line S00460 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01951 M01S00460.241l630 +++| SX0 B6+ LWA+1 01952 M00S01306.qdsplay +++| SX5 X5+B1 INCREMENT LINE COUNTER 01953 M00S01307.qdsplay +++| SX6 B0+ CLEAR EOR/EOF/EOI 01954 M00S01308.qdsplay +++| SX3 X5-MLLD 01955 M00S01309.qdsplay +++| ZR X3,TLD5 IF MAXIMUM NUMBER OF LINES IN BUFFER
| Line S01310 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01956 M01S01310.qdsp3 ---| SX3 X0-WBUF-WBUFL+DLSZ
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01957 M01S00158.qdsp3 +++| SX3 X0-WBUF-WBUFL 01958 M01S00159.qdsp3 +++| SX4 A0 01959 M01S00160.qdsp3 +++| IX3 X3+X4 01960 M00S01311.qdsplay +++| NG X3,TLD1 IF BUFFER NOT FULL
| Line S01312 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01961 M01S01312.241l630 ---| TLD5 SB7 WBUF 01962 M01S01313.241l630 ---| EQ TLDX RETURN
| Line S00461 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 01963 M01S00461.241l630 +++| 01964 M01S00462.241l630 +++|* BLANK FILL UNUSED LINES IN *L* DISPLAY BUFFER. 01965 M01S00463.241l630 +++| 01966 M01S00464.241l630 +++| TLD4 SX3 MLLD MAXIMUM NUMBER OF LINES ON *L* DISPLAY 01967 M01S00465.241l630 +++| IX3 X3-X5 NUMBER OF LINES NOT FILLED WITH DATA 01968 M01S00466.241l630 +++| ZR X3,TLD5 IF ALL LINES CONTAIN DATA 01969 M01S00467.241l630 +++| SB7 B6 ADDRESS TO MOVE BLANK LINES 01970 M01S00468.241l630 +++| SB6 B6+X3 RESET LWA+1 OF BUFFER 01971 M01S00469.241l630 +++| BX5 X6 SAVE EXIT CONDITION 01972 M01S00470.241l630 +++| MOVE X3,BLNS,B7 FILL BUFFER WITH BLANK LINES 01973 M01S00471.241l630 +++| BX6 X5 RESTORE EXIT CONDITION 01974 M01S00472.241l630 +++| 01975 M01S00473.241l630 +++|* REMOVE ALL SPECIAL CHARACTERS FROM *L* DISPLAY BUFFER. 01976 M01S00474.241l630 +++|
| Line S00475 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01977 M02S00475.qdsp3 ---| TLD5 SB7 WBHR 01978 M02S00476.qdsp3 ---| SA2 WBUF FWA WORKING BUFFER 01979 M02S00477.qdsp3 ---| TLD6 SA1 A2 GET NEXT WORD TO PROCESS 01980 M02S00478.qdsp3 ---| SB5 A2 01981 M02S00479.qdsp3 ---| EQ B5,B6,TLDX IF ALL WORDS CONVERTED 01982 M02S00480.qdsp3 ---| RJ RSC REMOVE SPECIAL CHARACTERS 01983 M02S00481.qdsp3 ---| SA7 A2 SAVE CONVERTED WORD 01984 M02S00482.qdsp3 ---| SA2 A2+B1 NEXT WORD TO CONVERT 01985 M02S00483.qdsp3 ---| EQ TLD6 LOOP UNTIL ALL WORDS CONVERTED
| Line S01314 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01986 M01S01314.qdsp3 ---| TOD SPACE 4,15 01987 M01S01315.qdsp3 ---|** TOD - TRANSFER OCTAL DATA. 01988 M01S01316.qdsp3 ---|*
| Line S01317 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01989 M02S01317.qdsp3 ---|* *TOD* TRANSFERS OCTAL DATA TO *L* DISPLAY WORKING BUFFER.
| Line S00484 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01990 M02S00484.qdsp3 ---|* *TOD* TRANSFERS OCTAL DATA TO *OBUF*.
| Line S01318 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01991 M01S01318.qdsp3 ---|* 01992 M01S01319.qdsp3 ---|* ENTRY (X2) = FET ADDRESS OF FILE TO BE DISPLAYED. 01993 M01S01320.qdsp3 ---|* 01994 M01S01321.qdsp3 ---|* EXIT (X6) = STATUS, IF EOR/EOF/EOI ENCOUNTERED. 01995 M01S01322.qdsp3 ---|* (X6) = 0, IF NOT EOR/EOF/EOI.
| Line S01323 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01996 M02S01323.qdsp3 ---|* (B6) = LWA + 1 OF DATA IN WBUF. 01997 M02S01324.qdsp3 ---|* (B7) = WBUF = FWA OF DATA.
| Line S00485 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 01998 M02S00485.qdsp3 ---|* (B6) = LWA+1 OF DATA IN OBUF. 01999 M02S00486.qdsp3 ---|* (B7) = OBUF = FWA OF DATA.
| Line S01325 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02000 M01S01325.qdsp3 ---|* 02001 M01S01326.qdsp3 ---|* USES X - 6. 02002 M01S01327.qdsp3 ---|* B - 7. 02003 M01S01328.qdsp3 ---|* 02004 M01S01329.qdsp3 ---|* MACROS READW. 02005 M01S01330.qdsp3 ---| 02006 M01S01331.qdsp3 ---| 02007 M01S01332.qdsp3 ---| TOD SUBR ENTRY/EXIT
| Line S01333 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02008 M02S01333.qdsp3 ---| READW X2,WBUF,MLLB
| Line S00487 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02009 M02S00487.qdsp3 ---| READW X2,OBUF,MLLB
| Line S01334 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02010 M01S01334.qdsp3 ---| SX6 X1+2+SEOI
| Line S01335 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02011 M02S01335.qdsp3 ---| SB7 WBUF
| Line S00488 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02012 M02S00488.qdsp3 ---| SB7 OBUF
| Line S01336 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02013 M01S01336.qdsp3 ---| NG X1,TODX IF EOF/EOI 02014 M01S01337.qdsp3 ---| SX6 SEOR 02015 M01S01338.qdsp3 ---| NZ X1,TODX IF EOR
| Line S01339 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02016 M02S01339.qdsp3 ---| SX6 B0 CLEAR RETURN REGISTER
| Line S00489 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
M02 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02017 M02S00489.qdsp3 ---| SX6 B0+ CLEAR RETURN REGISTER
| Line S01340 Modification History | |
|---|---|
M01 (Removed by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02018 M01S01340.qdsp3 ---| EQ TODX RETURN
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02019 M01S00161.qdsp3 +++| TLD5 SB5 WBUF 02020 M01S00162.qdsp3 +++| RJ DCM DETERMINE CHARACTER MODE 02021 M01S00163.qdsp3 +++| ZR B4,TLD7 IF ASCII MODE 02022 M01S00164.qdsp3 +++| TLD6 EQ B5,B6,TLDX IF ALL WORDS CONVERTED 02023 M01S00165.qdsp3 +++| SA1 B5+ CONVERT NEXT WORD 02024 M01S00166.qdsp3 +++| RJ RSC REMOVE SPECIAL CHARACTERS 02025 M01S00167.qdsp3 +++| SA7 B5 02026 M01S00168.qdsp3 +++| SB5 B5+B1 02027 M01S00169.qdsp3 +++| EQ TLD6 LOOP UNTIL ALL WORDS CONVERTED 02028 M00S01341.qdsplay +++| SPACE 4,10 02029 M00S01342.qdsplay +++|** COMMON DECKS. 02030 M00S01343.qdsplay +++| 02031 M00S01344.qdsplay +++| 02032 M00S01345.qdsplay +++|*CALL COMCCIO 02033 M00S01346.qdsplay +++|*CALL COMCCOD 02034 M00S01347.qdsplay +++|*CALL COMCCPM 02035 M00S01348.qdsplay +++|*CALL COMCDXB
| Line S00490 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02036 M01S00490.241l630 +++|*CALL COMCFLD 02037 M00S01349.qdsplay +++|*CALL COMCQFM 02038 M00S01350.qdsplay +++|*CALL COMCMVE
| Line S00491 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02039 M01S00491.241l630 +++|*CALL COMCPOP 02040 M00S01351.qdsplay +++|*CALL COMCRDC 02041 M00S01352.qdsplay +++|*CALL COMCRDW 02042 M00S01353.qdsplay +++|*CALL COMCSFN 02043 M00S01354.qdsplay +++|*CALL COMCSNM 02044 M00S01355.qdsplay +++|*CALL COMCSYS
| Line S01356 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02045 M01S01356.241l630 ---|*CALL COMCUPC
| Line S00492 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02046 M01S00492.241l630 +++|*CALL COMCUSB 02047 M01S00493.241l630 +++|*CALL COMCWTC 02048 M01S00494.241l630 +++|*CALL COMCWTO 02049 M01S00495.241l630 +++|*CALL COMCWTW 02050 M00S01357.qdsplay +++|*CALL COMCWOD
| Line S00496 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02051 M01S00496.241l630 +++|*CALL COMCZTB 02052 M00S01358.qdsplay +++| TITLE BUFFER AREA. 02053 M00S01359.qdsplay +++| USE BUFFERS 02054 M00S01360.qdsplay +++| 02055 M00S01361.qdsplay +++| 02056 M00S01362.qdsplay +++|** BUFFER DEFINITIONS. 02057 M00S01363.qdsplay +++| 02058 M00S01364.qdsplay +++| 02059 M00S01365.qdsplay +++| IPW BSS 0 INPUT BUFFER FOR *L* DISPLAY 02060 M00S01366.qdsplay +++| VFD 12/6,1/0,1/0,46/0 02061 M00S01367.qdsplay +++| IBUF BSS LCOMU INPUT BUFFER
| Line S01368 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02062 M01S01368.241l630 ---| CBUF BSSZ 15 COMMAND BUFFER 02063 M00S01369.qdsplay +++| LFWA BSS 0 FWA OF *L* DISPLAY BUFFER
| Line S01370 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02064 M01S01370.241l630 ---| VFD 12/LDSY,1/0,1/1,46/0 02065 M01S01371.241l630 ---| LBHR BSS 0 HEADER FOR *QDSPLAY* 02066 M01S01372.241l630 ---| DATA C* QDSPLAY. JSN = $$$$. QFT = ++++. STATUS = .* 02067 M01S01373.241l630 ---| ERMS BSS 0 ERROR MESSAGE 02068 M01S01374.241l630 ---| DATA C* * 02069 M01S01375.241l630 ---| LBUF EQU * FWA TO MOVE DATA 02070 M01S01376.241l630 ---| ERRNZ LBUF-LFWA-LBHRL IF HEADER LENGTH INCORRECT 02071 M01S01377.241l630 ---| WBUF EQU LBUF+LBUFL WORKING BUFFER 02072 M01S01378.241l630 ---| QBUF EQU WBUF+WBUFL QUEUED FILE BUFFER
| Line S00497 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02073 M01S00497.241l630 +++| VFD 12/LDSY,1/0,1/0,46/0 02074 M01S00498.241l630 +++| LBUF BSS 0 FWA TO MOVE DATA 02075 M01S00499.241l630 +++| WBHR EQU LBUF+LBUFL WORKING BUFFER HEADER AREA 02076 M01S00500.241l630 +++| WBUF EQU WBHR+LBHRL WORKING BUFFER 02077 M01S00501.241l630 +++| OBUF EQU WBUF+WBUFL OCTAL DISPLAY BUILD BUFFER 02078 M01S00502.241l630 +++| QBUF EQU OBUF+MLLB QUEUED FILE BUFFER 02079 M00S01379.qdsplay +++| SBUF EQU QBUF+QBUFL SYSTEM SECTOR BUFFER 02080 M00S01380.qdsplay +++| RFL= EQU SBUF+SBUFL 02081 M00S01381.qdsplay +++| TITLE PRESET. 02082 M00S01382.qdsplay +++| PRS SPACE 4,15 02083 M00S01383.qdsplay +++|** PRS - PRESET ARGUMENT PROCESSING. 02084 M00S01384.qdsplay +++|*
| Line S01385 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02085 M01S01385.v23l617 ---|* *PRS* ANALYZES THE CONTROL STATEMENT. THE SPECIFIED QUEUED 02086 M01S01386.v23l617 ---|* FILE IS ATTACHED. AN INITIAL READ ON THE QUEUED FILE IS
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02087 M01S00012.v23l617 +++|* *PRS* ANALYZES THE COMMAND. THE SPECIFIED QUEUED FILE 02088 M01S00013.v23l617 +++|* IS ATTACHED. AN INITIAL READ ON THE QUEUED FILE IS 02089 M00S01387.qdsplay +++|* PERFORMED. THE SYSTEM SECTOR IS READ. 02090 M00S01388.qdsplay +++|* 02091 M00S01389.qdsplay +++|* EXIT (B5) = ADDRESS OF *HELP* ROUTINE. 02092 M00S01390.qdsplay +++|* (JSN) SET IN FETS AND ROUTE PARAMETER BLOCK. 02093 M00S01391.qdsplay +++|* (DFLG) = RANDOM ADDRESS OF DAYFILE. 02094 M00S01392.qdsplay +++|* = 0, IF DAYFILE DOES NOT EXIST. 02095 M00S01393.qdsplay +++|* JSN AND *QFT* ORDINAL OF FILE SET INTO *L* DISPLAY 02096 M00S01394.qdsplay +++|* HEADER. 02097 M00S01395.qdsplay +++|* 02098 M00S01396.qdsplay +++|* ERROR TO *ERR* IF A FATAL ERROR CONDITION IS DETECTED. 02099 M00S01397.qdsplay +++| 02100 M00S01398.qdsplay +++| 02101 M00S01399.qdsplay +++| PRS SUBR ENTRY/EXIT 02102 M00S01400.qdsplay +++| SA1 JOPR GET JOB ORIGIN TYPE 02103 M00S01401.qdsplay +++| SB1 1 02104 M00S01402.qdsplay +++| MX0 -6 02105 M00S01403.qdsplay +++| LX1 0-24
| Line S01404 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02106 M01S01404.v23l617 ---| SX5 ERIU * INVALID USER ACCESS.*
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02107 M01S00014.v23l617 +++| SX5 ERIU * USER ACCESS NOT VALID.* 02108 M00S01405.qdsplay +++| BX1 -X0*X1 02109 M00S01406.qdsplay +++| SX1 X1-SYOT 02110 M00S01407.qdsplay +++| MX4 24 02111 M00S01408.qdsplay +++| NZ X1,ERR IF JOB NOT SYSTEM ORIGIN 02112 M00S01409.qdsplay +++| GETACT PRSB CHECK LONG-TERM ACTIVITY FLAG 02113 M00S01410.qdsplay +++| SA1 PRSB 02114 M00S01411.qdsplay +++| LX1 59-47 02115 M00S01412.qdsplay +++| PL X1,ERR IF *L* DISPLAY NOT ACTIVE ON THIS JOB 02116 M00S01413.qdsplay +++| 02117 M00S01414.qdsplay +++|* CHECK JSN. 02118 M00S01415.qdsplay +++| 02119 M00S01416.qdsplay +++| SA1 ACTR 02120 M00S01417.qdsplay +++| SA3 ARGR 02121 M00S01418.qdsplay +++| BX6 X4*X3 02122 M00S01419.qdsplay +++| SB2 X1 02123 M00S01420.qdsplay +++| SX5 ERAR * ARGUMENT ERROR.* 02124 M00S01421.qdsplay +++| NE B2,B1,ERR IF NO ARGUMENTS OR TOO MANY 02125 M00S01422.qdsplay +++| BX3 X0*X3 02126 M00S01423.qdsplay +++| BX1 -X4*X3
| Line S01424 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02127 M01S01424.v23l617 ---| SX5 ERIJ * INVALID JSN.*
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02128 M01S00015.v23l617 +++| SX5 ERIJ * INCORRECT JSN.* 02129 M00S01425.qdsplay +++| NZ X1,ERR IF GREATER THAN 4 CHARACTERS 02130 M00S01426.qdsplay +++| LX0 36-0 CHECK FOR 3 CHARACTER JSN 02131 M00S01427.qdsplay +++| BX2 -X0*X3 02132 M00S01428.qdsplay +++| NZ X2,PRS1 IF NOT 3 CHARACTER JSN 02133 M00S01429.qdsplay +++| SX2 1R SPACE-FILL JSN 02134 M00S01430.qdsplay +++| LX2 -24 02135 M00S01431.qdsplay +++| BX6 X2+X6 02136 M00S01432.qdsplay +++| PRS1 LX0 6 02137 M00S01433.qdsplay +++| BX2 -X0*X3 02138 M00S01434.qdsplay +++| ZR X2,ERR IF JSN .LT. 3 CHARACTERS 02139 M00S01435.qdsplay +++| SA1 QACS+2 SET JSN IN *QAC* PARAMETER BLOCK 02140 M00S01436.qdsplay +++| BX7 X1+X6 02141 M00S01437.qdsplay +++| SA7 A1 02142 M00S01438.qdsplay +++| SA6 PRSA SET JSN 02143 M00S01439.qdsplay +++| SA6 ROPB SET JSN IN *ROUTE* PARAMETER BLOCK 02144 M00S01440.qdsplay +++| 02145 M00S01441.qdsplay +++|* SEARCH *QFT* FOR FILE. 02146 M00S01442.qdsplay +++| 02147 M00S01443.qdsplay +++| SA3 TQTG-1 02148 M00S01444.qdsplay +++| PRS2 ACQUIRE QACPB,R ATTACH THE QUEUED FILE 02149 M00S01445.qdsplay +++| SA1 QACPB 02150 M00S01446.qdsplay +++| MX0 -9 SAVE FUNCTION FOR *QAC* CALL 02151 M00S01447.qdsplay +++| LX0 B1 02152 M00S01448.qdsplay +++| BX6 -X0*X1 02153 M00S01449.qdsplay +++| MX2 -8 CHECK FOR ERROR 02154 M00S01450.qdsplay +++| LX1 0-11 02155 M00S01451.qdsplay +++| BX1 -X2*X1 02156 M00S01452.qdsplay +++| ZR X1,PRS4 IF NO ERROR 02157 M00S01453.qdsplay +++| SA6 A1 02158 M00S01454.qdsplay +++| SA3 A3+B1 GET QUEUE TYPE FROM TABLE 02159 M00S01455.qdsplay +++| SB2 B1+ 02160 M00S01456.qdsplay +++| ZR X3,PRS3 IF FILE NOT IN *QFT* 02161 M00S01457.qdsplay +++| SA4 QACS+3 SET QUEUE TYPE IN *QAC* PARAMETER BLOCK 02162 M00S01458.qdsplay +++| MX0 12 02163 M00S01459.qdsplay +++| BX6 -X0*X4 02164 M00S01460.qdsplay +++| BX6 X3+X6 02165 M00S01461.qdsplay +++| SA6 A4 02166 M00S01462.qdsplay +++| EQ PRS2 SEARCH *QFT* FOR FILE 02167 M00S01463.qdsplay +++| 02168 M00S01464.qdsplay +++| PRS3 SA1 PRSA 02169 M00S01465.qdsplay +++| SB2 1R$ 02170 M00S01466.qdsplay +++| SB5 ERNJ * JSN XXXX NOT FOUND.* 02171 M00S01467.qdsplay +++| RJ SNM SET JSN IN MESSAGE 02172 M00S01468.qdsplay +++| SX5 ERNJ 02173 M00S01469.qdsplay +++| EQ ERR ISSUE ERROR MESSAGE AND ABORT 02174 M00S01470.qdsplay +++| 02175 M00S01471.qdsplay +++| PRS4 REPRIEVE RPB,SET,277B SET *REPRIEVE* PROCESSING 02176 M00S01472.qdsplay +++| SA1 PRSA GET JSN 02177 M00S01473.qdsplay +++| SX6 3 SET JSN AS FILE NAME IN FETS 02178 M00S01474.qdsplay +++| BX6 X1+X6 02179 M00S01475.qdsplay +++| SA6 Q SET JSN IN QUEUED FILE FET 02180 M00S01476.qdsplay +++| SA6 S SET JSN IN SYSTEM SECTOR FET 02181 M00S01477.qdsplay +++| SX7 B1+ SET RANDOM READ IN FET TO BOI 02182 M00S01478.qdsplay +++| SA7 Q+6 02183 M00S01479.qdsplay +++| SX6 SHLP 02184 M00S01480.qdsplay +++| RJ RNR READ QUEUED FILE INTO BUFFER 02185 M00S01481.qdsplay +++| SA1 QACF SAVE DAYFILE ADDRESS 02186 M00S01482.qdsplay +++| MX2 -30 02187 M00S01483.qdsplay +++| LX1 29-59 02188 M00S01484.qdsplay +++| BX6 -X2*X1 02189 M00S01485.qdsplay +++| SA6 DFLG 02190 M00S01486.qdsplay +++| QCALL QRSF,S READ SYSTEM SECTOR 02191 M00S01487.qdsplay +++| SA2 PRSA SET EOR STATUS IN SYSTEM SECTOR FET 02192 M00S01488.qdsplay +++| SX6 23B 02193 M00S01489.qdsplay +++| BX6 X2+X6 02194 M00S01490.qdsplay +++| SA6 S 02195 M00S01491.qdsplay +++| 02196 M00S01492.qdsplay +++|* SET UP HEADER. 02197 M00S01493.qdsplay +++| 02198 M00S01494.qdsplay +++| SA1 PRSA GET JSN 02199 M00S01495.qdsplay +++| SB2 1R$ 02200 M00S01496.qdsplay +++| SB5 LBHR 02201 M00S01497.qdsplay +++| RJ SNM SET JSN INTO HEADER 02202 M00S01498.qdsplay +++| SA1 QACPB+4 02203 M00S01499.qdsplay +++| MX0 -12 CONVERT *QFT* ORDINAL 02204 M00S01500.qdsplay +++| LX1 0-36 02205 M00S01501.qdsplay +++| BX1 -X0*X1 02206 M00S01502.qdsplay +++| SX1 X1+10000B 02207 M00S01503.qdsplay +++| MX0 24 02208 M00S01504.qdsplay +++| RJ COD CONVERT TO OCTAL DISPLAY 02209 M00S01505.qdsplay +++| LX4 6 02210 M00S01506.qdsplay +++| BX1 X0*X4 02211 M00S01507.qdsplay +++| SB2 1R+ 02212 M00S01508.qdsplay +++| SB5 LBHR 02213 M00S01509.qdsplay +++| RJ SNM SET *QFT* ORDINAL INTO HEADER
| Line S00170 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02214 M01S00170.qdsp3 +++| SA1 SBUF+IOSS./5+SCLQ GET INTERNAL CHARACTERISTICS 02215 M01S00171.qdsp3 +++| MX3 -3 02216 M01S00172.qdsp3 +++| AX1 12 02217 M01S00173.qdsp3 +++| BX1 -X3*X1 02218 M01S00174.qdsp3 +++| SA1 PRSC+X1 02219 M01S00175.qdsp3 +++| SB2 1R- 02220 M01S00176.qdsp3 +++| SB5 LBHR 02221 M01S00177.qdsp3 +++| RJ SNM SET *IC* INTO HEADER
| Line S00503 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02222 M01S00503.241l630 +++| 02223 M01S00504.241l630 +++|* SET BUFFER HEADER. 02224 M01S00505.241l630 +++| 02225 M01S00506.241l630 +++| MOVE LBHRL,LBHR,WBHR SET WORKING BUFFER 02226 M00S01510.qdsplay +++| SB5 HLP *HELP* FUNCTION PROCESSOR
| Line S00507 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02227 M01S00507.241l630 +++| SB2 B0+ INDICATE NO ERROR 02228 M00S01511.qdsplay +++| EQ PRSX RETURN 02229 M00S01512.qdsplay +++| 02230 M00S01513.qdsplay +++| 02231 M00S01514.qdsplay +++| PRSA CON 0 JSN 02232 M00S01515.qdsplay +++| PRSB CON 0 JOB ACTIVITY
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02233 M01S00178.qdsp3 +++| PRSC BSS 0 INTERNAL CHARACTERISTICS 02234 M01S00179.qdsp3 +++| LOC 0 02235 M01S00180.qdsp3 +++| DCIC DATA 2LDC DISPLAY CODE 02236 M01S00181.qdsp3 +++| ASIC DATA 2LAS ASCII 02237 M01S00182.qdsp3 +++| BNIC DATA 2LBN BINARY
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 02238 M01S00001.ns2597 +++| A6IC DATA 2LA6 6/12 ASCII
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | qdsp3 |
Seq # *Modification Id* Act ----------------------------+ 02239 M01S00183.qdsp3 +++| LOC *O 02240 M00S01516.qdsplay +++| ERR SPACE 4,10 02241 M00S01517.qdsplay +++|** ERR - ERROR PROCESSOR. 02242 M00S01518.qdsplay +++|* 02243 M00S01519.qdsplay +++|* *ERR* ABORTS AFTER ISSUING THE SPECIFIED MESSAGE. 02244 M00S01520.qdsplay +++|* 02245 M00S01521.qdsplay +++|* ENTRY (X5) = FWA OF ERROR MESSAGE. 02246 M00S01522.qdsplay +++|* 02247 M00S01523.qdsplay +++|* MACROS ABORT, MESSAGE. 02248 M00S01524.qdsplay +++| 02249 M00S01525.qdsplay +++| 02250 M00S01526.qdsplay +++| ERR BSS 0 ENTRY 02251 M00S01527.qdsplay +++| MESSAGE X5,0,R ISSUE ERROR MESSAGE 02252 M00S01528.qdsplay +++| ABORT 02253 M00S01529.qdsplay +++| SPACE 4,10 02254 M00S01530.qdsplay +++|** ERROR MESSAGES TO DAYFILE. 02255 M00S01531.qdsplay +++| 02256 M00S01532.qdsplay +++| 02257 M00S01533.qdsplay +++| ERAR DATA C* ARGUMENT ERROR.*
| Line S01534 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02258 M01S01534.v23l617 ---| ERIJ DATA C* INVALID JSN.* 02259 M01S01535.v23l617 ---| ERIU DATA C* INVALID USER ACCESS.*
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02260 M01S00016.v23l617 +++| ERIJ DATA C* INCORRECT JSN.* 02261 M01S00017.v23l617 +++| ERIU DATA C* USER ACCESS NOT VALID.* 02262 M00S01536.qdsplay +++| ERNJ DATA C* JSN $$$$ NOT FOUND.* 02263 M00S01537.qdsplay +++| SPACE 4,10 02264 M00S01538.qdsplay +++|** TQTG - TABLE OF QUEUE TYPES FOR *GET* FUNCTION. 02265 M00S01539.qdsplay +++|* 02266 M00S01540.qdsplay +++|*T, 12/ *QUEUE TYPE*,48/ 0.
Figure
02267 M00S01541.qdsplay +++|* 02268 M00S01542.qdsplay +++|* BITS 59-48 IN WORD 8 IN THE SELECTION CRITERIA 02269 M00S01543.qdsplay +++|* PORTION OF THE *QAC* PARAMETER BLOCK WILL BE SET 02270 M00S01544.qdsplay +++|* TO QUEUE TYPE. 02271 M00S01545.qdsplay +++| 02272 M00S01546.qdsplay +++| 02273 M00S01547.qdsplay +++| TQTG BSS 0 02274 M00S01548.qdsplay +++| VFD 12/PRQQ,48/0 PRINT FILES 02275 M00S01549.qdsplay +++| VFD 12/WTQQ,48/0 WAIT FILES 02276 M00S01550.qdsplay +++| VFD 12/PHQQ,48/0 PUNCH FILES 02277 M00S01551.qdsplay +++| VFD 12/PLQQ,48/0 PLOT FILES 02278 M00S01552.qdsplay +++| CON 0 END OF TABLE 02279 M00S01553.qdsplay +++| 02280 M00S01554.qdsplay +++| 02281 M00S01555.qdsplay +++| ERRNG QBUF-* QBUF AND SBUF CANNOT OVERLAY PRESET 02282 M00S01556.qdsplay +++| 02283 M00S01557.qdsplay +++| END
cdc/nos2.source/opl.opl871/deck/qdsplay.001.txt · Last modified: by 127.0.0.1