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