User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:qdsplay

Deck QDSPLAY

9 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.qdsplay +++|          IDENT  QDSPLAY,FWA,QDSPLAY
00002  M01S00002.qdsplay +++|          ABS
00003  M01S00003.qdsplay +++|          ENTRY  QDSPLAY
00004  M01S00004.qdsplay +++|          ENTRY  RFL=
00005  M01S00005.qdsplay +++|          ENTRY  SSJ=
00006  M01S00006.qdsplay +++|          SYSCOM B1          DEFINE (B1) = 1
00007  M01S00007.qdsplay +++|          SST
00008  M01S00008.qdsplay +++|          TITLE  QDSPLAY - QUEUED FILE DISPLAY.
00009  M01S00009.qdsplay +++|          SPACE  4,10
00010  M01S00010.qdsplay +++|*COMMENT  QDSPLAY - QUEUED FILE DISPLAY.
Line S00011 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00011  M02S00011.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1980.
00012  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00013  M01S00012.qdsplay +++|          SPACE  4,10
00014  M01S00013.qdsplay +++|*****     QDSPLAY - DISPLAY QUEUED FILE.
00015  M01S00014.qdsplay +++|*
00016  M01S00015.qdsplay +++|*         C. P. GERR.        81/12/01.
00017  M01S00016.qdsplay +++|          SPACE  4,10
00018  M01S00017.qdsplay +++|***              *QDSPLAY* IS AN *L* DISPLAY UTILITY INITIATED
00019  M01S00018.qdsplay +++|*         BY A CONSOLE OPERATOR (VIA *DSD*) WHICH DISPLAYS
00020  M01S00019.qdsplay +++|*         PORTIONS OF A QUEUED FILE.
00021  M01S00020.qdsplay +++|          SPACE  4,10
Line S00021 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00021.v23l617 ---|***       CONTROL STATEMENT CALL.
00023  M01S00001.v23l617 +++|***       COMMAND FORMAT.
00024  M01S00022.qdsplay +++|*
00025  M01S00023.qdsplay +++|*
00026  M01S00024.qdsplay +++|*         QDSPLAY(JSN)
00027  M01S00025.qdsplay +++|*
00028  M01S00026.qdsplay +++|*                JSN = JOB SEQUENCE NUMBER OF QUEUED FILE.
00029  M01S00027.qdsplay +++|*
00030  M01S00028.qdsplay +++|*         ONLY INPUT, PRINT, TERMINAL WAIT, PUNCH AND PLOT TYPE FILES
00031  M01S00029.qdsplay +++|*         ARE DISPLAYED.
00032  M01S00030.qdsplay +++|          SPACE  4,10
00033  M01S00031.qdsplay +++|***       DAYFILE MESSAGES.
00034  M01S00032.qdsplay +++|*
00035  M01S00033.qdsplay +++|*         THESE MESSAGES ARE ISSUED TO THE JOB AND SYSTEM DAYFILES.
00036  M01S00034.qdsplay +++|*
Line S00035 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00035.v23l617 ---|*         * INVALID USER ACCESS.*
00038  M01S00002.v23l617 +++|*         * USER ACCESS NOT VALID.*
00039  M01S00036.qdsplay +++|*                CALLING JOB WAS NOT SYSTEM ORIGIN.
00040  M01S00037.qdsplay +++|*
Line S00038 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00038.v23l617 ---|*         * INVALID JSN.*
00042  M01S00003.v23l617 +++|*         * INCORRECT JSN.*
00043  M01S00039.qdsplay +++|*                JSN WAS GREATER THAN 4 CHARACTERS OR LESS THAN 3
00044  M01S00040.qdsplay +++|*                CHARACTERS.
00045  M01S00041.qdsplay +++|*
00046  M01S00042.qdsplay +++|*         * ARGUMENT ERROR.*
Line S00043 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00043.v23l617 ---|*                JSN WAS NOT ENTERED IN THE CONTROL STATEMENT CALL OR
00048  M01S00004.v23l617 +++|*                JSN WAS NOT ENTERED IN THE COMMAND CALL OR
00049  M01S00044.qdsplay +++|*                MORE THAN ONE PARAMETER WAS ENTERED.
00050  M01S00045.qdsplay +++|*
00051  M01S00046.qdsplay +++|*         * JSN XXXX NOT FOUND.*
00052  M01S00047.qdsplay +++|*                JSN XXXX WAS NOT FOUND IN INPUT, PRINT, PLOT, TERMINAL
00053  M01S00048.qdsplay +++|*                WAIT OR PUNCH QUEUE.  *XXXX* IS REPLACED BY JSN.
00054  M01S00049.qdsplay +++|*
00055  M01S00050.qdsplay +++|*         * CANNOT ACCESS L-DISPLAY.*
00056  M01S00051.qdsplay +++|*                *DSD* DETECTED AN ERROR CONDITION WHEN INPUT WAS
00057  M01S00052.qdsplay +++|*                ENTERED VIA THE *L* DISPLAY.
00058  M01S00053.qdsplay +++|*
00059  M01S00054.qdsplay +++|          SPACE  4,10
00060  M01S00055.qdsplay +++|***       *L* DISPLAY ERROR MESSAGES.
00061  M01S00056.qdsplay +++|*
00062  M01S00057.qdsplay +++|*         THESE MESSAGES ARE ISSUED THROUGH THE *L* DISPLAY.
00063  M01S00058.qdsplay +++|*
00064  M01S00059.qdsplay +++|*         *NO DAYFILE FOUND.*
00065  M01S00060.qdsplay +++|*                DAYFILE FOR JOB DOES NOT EXIST.
00066  M01S00061.qdsplay +++|*
00067  M01S00062.qdsplay +++|*         *UNRECOGNIZABLE DIRECTIVE.*
Line S00063 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00063.v23l617 ---|*                INVALID COMMAND WAS ENTERED VIA *L* DISPLAY.
00069  M01S00005.v23l617 +++|*                INCORRECT COMMAND WAS ENTERED VIA *L* DISPLAY.
00070  M01S00064.qdsplay +++|*
00071  M01S00065.qdsplay +++|*         *DIRECTIVE NOT ALLOWED.*
00072  M01S00066.qdsplay +++|*                A SKIP COMMAND WAS ENTERED WHEN *SS* OR *HELP* DATA
00073  M01S00067.qdsplay +++|*                WAS DISPLAYED OR *L* DISPLAY FORMAT WAS IN OCTAL
00074  M01S00068.qdsplay +++|*                MODE.
00075  M01S00069.qdsplay +++|*
Line S00070 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00070.v23l617 ---|*         *INVALID SKIP COUNT.*
00077  M01S00006.v23l617 +++|*         *INCORRECT SKIP COUNT.*
00078  M01S00071.qdsplay +++|*                AN ASTERISK WAS PRESENT ON A SKIP LINE, SKIP PAGE, OR
00079  M01S00072.qdsplay +++|*                SKIP RECORD BACKWARD COMMAND OR THE SKIP COUNT WAS
00080  M01S00073.qdsplay +++|*                GREATER THAN 377777B OR THE SKIP COUNT WAS NOT
00081  M01S00074.qdsplay +++|*                NUMERIC.
00082  M01S00075.qdsplay +++|*
00083  M01S00076.qdsplay +++|*         *EXCESS PARAMETERS.*
00084  M01S00077.qdsplay +++|*                A SECOND PARAMETER WAS SPECIFIED ON A COMMAND WHICH
00085  M01S00078.qdsplay +++|*                WAS NOT A SKIP COMMAND.
00086  M01S00079.qdsplay +++|*
00087  M01S00080.qdsplay +++|*         *SYSTEM ABORT.*
00088  M01S00081.qdsplay +++|*                A SYSTEM ERROR WAS ENCOUNTERED.
00089  M01S00082.qdsplay +++|          SPACE  4,10
00090  M01S00083.qdsplay +++|***       *L* DISPLAY INFORMATIVE MESSAGES.
00091  M01S00084.qdsplay +++|*
00092  M01S00085.qdsplay +++|*         THESE MESSAGES ARE ISSUED THROUGH THE *L* DISPLAY.
00093  M01S00086.qdsplay +++|*
00094  M01S00087.qdsplay +++|*         *DROP PROCESSED.*
00095  M01S00088.qdsplay +++|*                A DROP COMMAND WAS ENTERED VIA *L* DISPLAY.
00096  M01S00089.qdsplay +++|*                THE FILE HAS BEEN REMOVED FROM THE QUEUE AND THE
00097  M01S00090.qdsplay +++|*                UTILITY HAS TERMINATED.
00098  M01S00091.qdsplay +++|*
00099  M01S00092.qdsplay +++|*         *END PROCESSED.*
00100  M01S00093.qdsplay +++|*                AN END COMMAND WAS ENTERED VIA *L* DISPLAY.
00101  M01S00094.qdsplay +++|*                THE FILE HAS BEEN RETURNED TO THE QUEUE AND THE
00102  M01S00095.qdsplay +++|*                UTILITY HAS TERMINATED.
00103  M01S00096.qdsplay +++|          SPACE  4,10
00104  M01S00097.qdsplay +++|***       *L* DISPLAY COMMANDS.
00105  M01S00098.qdsplay +++|*
00106  M01S00099.qdsplay +++|*         THE FOLLOWING ARE LEGAL COMMANDS TO BE ENTERED BY THE
00107  M01S00100.qdsplay +++|*         OPERATOR THROUGH THE *L* DISPLAY.
00108  M01S00101.qdsplay +++|*
00109  M01S00102.qdsplay +++|*         L.HELP.            LIST *L* DISPLAY DIRECTIVES FOR *QDSPLAY*
00110  M01S00103.qdsplay +++|*                            UTILITY.
00111  M01S00104.qdsplay +++|*
00112  M01S00105.qdsplay +++|*         L.DROP.            DROP THE FILE FROM THE QUEUE AND TERMINATE
00113  M01S00106.qdsplay +++|*                            UTILITY.
00114  M01S00107.qdsplay +++|*
00115  M01S00108.qdsplay +++|*         L.END.             RETURN THE FILE TO THE QUEUE AND TERMINATE
00116  M01S00109.qdsplay +++|*                            UTILITY.
00117  M01S00110.qdsplay +++|*
00118  M01S00111.qdsplay +++|*         L.LINE.            SET FILE DISPLAY MODE TO LINE FORMAT.
00119  M01S00112.qdsplay +++|*                            (MODE DOES NOT APPLY TO SYSTEM SECTOR
00120  M01S00113.qdsplay +++|*                            DISPLAY WHICH IS ALWAYS IN OCTAL DISPLAY
00121  M01S00114.qdsplay +++|*                            FORMAT.)
00122  M01S00115.qdsplay +++|*
00123  M01S00116.qdsplay +++|*         L.OCTAL.           SET FILE DISPLAY MODE TO OCTAL FORMAT.
00124  M01S00117.qdsplay +++|*
00125  M01S00118.qdsplay +++|*         L.SS.              DISPLAY FROM BEGINNING OF SYSTEM SECTOR
00126  M01S00119.qdsplay +++|*                            IN OCTAL FORMAT.
00127  M01S00120.qdsplay +++|*
00128  M01S00121.qdsplay +++|*         L.*.               RETURN FROM *HELP* OR *SS* DISPLAY TO
00129  M01S00122.qdsplay +++|*                            DISPLAY FILE AT PREVIOUS POSITION
00130  M01S00123.qdsplay +++|*                            (IGNORED IF ALREADY DISPLAYING FILE).
00131  M01S00001.241l630 +++|*
00132  M01S00002.241l630 +++|*         L.BACK.            RETURN FROM *HELP* OR *SS* DISPLAY TO
00133  M01S00003.241l630 +++|*                            DISPLAY FILE AT PREVIOUS POSITION
00134  M01S00004.241l630 +++|*                            (IGNORED IF ALREADY DISPLAYING FILE).
00135  M01S00124.qdsplay +++|*
00136  M01S00125.qdsplay +++|*         L.+.               ADVANCE DISPLAY FORWARD TO NEXT SCREEN
00137  M01S00126.qdsplay +++|*                            OF DATA.  CIRCULAR ADVANCE IS DONE FOR
Line S00127 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00127.241l630 ---|*                            SYSTEM SECTOR DISPLAY.  COMMAND IS NOT
Line S00128 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00128.241l630 ---|*                            MEANINGFUL FOR *HELP* DISPLAY (ALL
Line S00129 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00129.241l630 ---|*                            INFORMATION IS DISPLAYED ON 1 SCREEN).
00141  M01S00005.241l630 +++|*                            SYSTEM SECTOR DISPLAY.
00142  M01S00006.241l630 +++|*
00143  M01S00007.241l630 +++|*         L.-.               PAGE BACKWARD TO PREVIOUS SCREEN OF DATA.
00144  M01S00008.241l630 +++|*                            COMMAND IS VALID ONLY FOR HELP DISPLAY.
00145  M01S00130.qdsplay +++|*
00146  M01S00131.qdsplay +++|*         L.BOI.             POSITION FILE TO BEGINNING OF INFORMATION
00147  M01S00132.qdsplay +++|*                            AND DISPLAY DATA.
00148  M01S00133.qdsplay +++|*
00149  M01S00134.qdsplay +++|*         L.DAY.             POSITION FILE TO DAYFILE RECORD AND
00150  M01S00135.qdsplay +++|*                            DISPLAY DATA (MEANINGFUL FOR SOME PRINT
00151  M01S00136.qdsplay +++|*                            FILES).
00152  M01S00137.qdsplay +++|*
00153  M01S00138.qdsplay +++|*         L.SL.              SKIP 1 OR N LINES FORWARD IN FILE AND
00154  M01S00139.qdsplay +++|*         L.SL,N.            DISPLAY DATA.  A LINE IS BASED ON 14D WORD
00155  M01S00140.qdsplay +++|*                            MAXIMUM PRINT LINE SIZE.  SKIP PREMATURELY
00156  M01S00141.qdsplay +++|*                            STOPS ON EOR/EOF/EOI.  COMMAND IS ALLOWED
00157  M01S00142.qdsplay +++|*                            ONLY WHEN DISPLAYING DATA IN LINE FORMAT.
00158  M01S00143.qdsplay +++|*                            COMMAND IS NOT ALLOWED UNDER *HELP* OR
00159  M01S00144.qdsplay +++|*                            *SS* DISPLAY.
00160  M01S00145.qdsplay +++|*
00161  M01S00146.qdsplay +++|*         L.SP.              SKIP 1 OR N PAGES FORWARD IN FILE AND
00162  M01S00147.qdsplay +++|*         L.SP,N.            DISPLAY DATA.  A PAGE IS BASED ON
00163  M01S00148.qdsplay +++|*                            CARRIAGE CONTROL 1 AS FIRST CHARACTER
00164  M01S00149.qdsplay +++|*                            OF LINE.  SKIP PREMATURELY STOPS ON
00165  M01S00150.qdsplay +++|*                            EOR/EOF/EOI.  COMMAND IS ALLOWED ONLY
00166  M01S00151.qdsplay +++|*                            WHEN DISPLAYING DATA IN LINE FORMAT.
00167  M01S00152.qdsplay +++|*                            COMMAND IS NOT ALLOWED UNDER *HELP* OR
00168  M01S00153.qdsplay +++|*                            *SS* DISPLAY.
00169  M01S00154.qdsplay +++|*
00170  M01S00155.qdsplay +++|*         L.SR.              SKIP 1 OR N RECORDS OR TO END OF
00171  M01S00156.qdsplay +++|*         L.SR,N.            INFORMATION (N=* OPTION) IN FILE AND
00172  M01S00157.qdsplay +++|*         L.SR,*.            DISPLAY DATA.  SKIP PREMATURELY STOPS AT
00173  M01S00158.qdsplay +++|*                            EOI.  COMMAND IS NOT ALLOWED UNDER *HELP*
00174  M01S00159.qdsplay +++|*                            OR *SS* DISPLAY.
00175  M01S00160.qdsplay +++|*
00176  M01S00161.qdsplay +++|*         L.BR.              SKIP 1 OR N RECORDS BACKWARD IN FILE AND
Line S00162 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00162.241l630 ---|*         L.BR,N..           DISPLAY DATA.  SKIP PREMATURELY STOPS
00178  M01S00009.241l630 +++|*         L.BR,N.            DISPLAY DATA.  SKIP PREMATURELY STOPS
00179  M01S00163.qdsplay +++|*                            AT BOI.  COMMAND IS NOT ALLOWED UNDER
00180  M01S00164.qdsplay +++|*                            *HELP* OR *SS* DISPLAY.
00181  M01S00165.qdsplay +++|*
00182  M01S00166.qdsplay +++|*         SKIP LINE/PAGE/RECORD COUNTS ARE ASSUMED DECIMAL BUT
00183  M01S00167.qdsplay +++|*         POST-RADIX B OR D CAN BE SPECIFIED.  MAXIMUM SKIP COUNT
00184  M01S00168.qdsplay +++|*         ACCEPTED IS 377777B.
00185  M01S00169.qdsplay +++|          TITLE  ASSEMBLY CONSTANTS.
00186  M01S00170.qdsplay +++|          SPACE  4,10
00187  M01S00171.qdsplay +++|****      ASSEMBLY CONSTANTS.
00188  M01S00172.qdsplay +++|
00189  M01S00173.qdsplay +++| CNCI     EQU    4           NO COMMAND INPUT (*DSD* RETURN STATUS)
00190  M01S00174.qdsplay +++| DLSZ     EQU    6           NUMBER OF WORDS PER LINE ON *L* DISPLAY
Line S00175 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00175.241l630 ---| MLLD     EQU    35          MAXIMUM NUMBER OF LINES ON *L* DISPLAY
00192  M01S00010.241l630 +++| ERML     EQU    3           ERROR MESSAGE LENGTH
00193  M01S00011.241l630 +++| MLLD     EQU    18          MAXIMUM NUMBER OF LINES ON *L* DISPLAY
Line S00012 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00012.qdsp3   ---| NWIS     EQU    100B        NUMBER OF WORDS IN SECTOR
00195  M01S00176.qdsplay +++| PLSZ     EQU    14          PRINTER LINE SIZE
Line S00177 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00177.241l630 ---| LBHRL    EQU    11B         *L* DISPLAY HEADER LENGTH
Line S00178 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00178.241l630 ---| LBUFL    EQU    LDSY-LBHRL-1  LENGTH OF *L* DISPLAY BUFFER
00198  M01S00013.241l630 +++| LBHRL    EQU    6           *L* DISPLAY HEADER LENGTH
00199  M01S00014.241l630 +++| LBUFL    EQU    LDSY-LBHRL  LENGTH OF *L* DISPLAY BUFFER
00200  M01S00179.qdsplay +++| QBUFL    EQU    701B        QUEUED BUFFER SIZE
00201  M01S00180.qdsplay +++|          ERRNG  1000B-QBUFL PREVENT BUFFER AHEAD
00202  M01S00181.qdsplay +++| SBUFL    EQU    100B        LENGTH OF SYSTEM SECTOR BUFFER
00203  M01S00182.qdsplay +++| WBUFL    EQU    LBUFL       LENGTH OF WORKING BUFFER
00204  M01S00015.241l630 +++| XCDT     EQU    1           X - COORDINATE FOR *L* DISPLAY
00205  M01S00016.241l630 +++| YCDT     EQU    2           Y - COORDINATE FOR *L* DISPLAY
00206  M01S00183.qdsplay +++| LCOMU    SET    LCOM/2+1    INPUT BUFFER PACKED
00207  M01S00184.qdsplay +++| LLBF     EQU    LBUFL/5     *L* DISPLAY BUFFER FOR OCTAL MODE
00208  M01S00185.qdsplay +++| MLLB     MIN    LLBF,MLLD   *L* DISPLAY BUFFER FOR OCTAL MODE
00209  M01S00186.qdsplay +++|****
00210  M01S00187.qdsplay +++|          SPACE  4,10
00211  M01S00188.qdsplay +++|**        COMMON DECKS.
00212  M01S00189.qdsplay +++|
00213  M01S00190.qdsplay +++|
00214  M01S00191.qdsplay +++|*CALL     COMCMAC
00215  M01S00192.qdsplay +++|*CALL     COMCCMD
00216  M01S00007.v23l617 +++|*CALL     COMCDCM
00217  M01S00017.241l630 +++|*CALL     COMCDCP
00218  M01S00001.ns2156  +++|*CALL     COMSDSP
00219  M01S00193.qdsplay +++|*CALL     COMSEVT
00220  M01S00194.qdsplay +++|*CALL     COMSIOQ
00221  M01S00001.qdsp3   +++|*CALL     COMSJIO
00222  M01S00195.qdsplay +++|*CALL     COMSQAC
00223  M01S00196.qdsplay +++|*CALL     COMSSSD
00224  M01S00002.qdsp3   +++|*CALL     COMSSSE
00225  M01S00003.qdsp3   +++| IOSS.    EQU    IOSS-BFMS-2
00226  M01S00197.qdsplay +++|*CALL     COMSSSJ
00227  M01S00198.qdsplay +++|          TITLE  DATA STORAGE.
00228  M01S00199.qdsplay +++|          ORG    111B
00229  M01S00200.qdsplay +++| FWA      BSS    0
00230  M01S00201.qdsplay +++|          SPACE  4,10
00231  M01S00202.qdsplay +++|**        DATA STORAGE.
00232  M01S00203.qdsplay +++|
00233  M01S00204.qdsplay +++|
00234  M01S00018.241l630 +++| BLNS     DATA   8C          BLANK LINES
00235  M01S00019.241l630 +++|          DATA   8C
00236  M01S00020.241l630 +++|          DATA   8C
00237  M01S00021.241l630 +++|          DATA   8C
00238  M01S00022.241l630 +++|          DATA   8C
00239  M01S00023.241l630 +++|          DATA   8C
00240  M01S00024.241l630 +++|          DATA   8C
00241  M01S00025.241l630 +++|          DATA   8C
00242  M01S00026.241l630 +++|          DATA   8C
00243  M01S00027.241l630 +++|          DATA   8C
00244  M01S00028.241l630 +++|          DATA   8C
00245  M01S00029.241l630 +++|          DATA   8C
00246  M01S00030.241l630 +++|          DATA   8C
00247  M01S00031.241l630 +++|          DATA   8C
00248  M01S00032.241l630 +++|          DATA   8C
00249  M01S00033.241l630 +++|          DATA   8C
00250  M01S00034.241l630 +++|          DATA   8C
00251  M01S00035.241l630 +++|          DATA   8C
00252  M01S00036.241l630 +++|          DATA   8C
00253  M01S00037.241l630 +++|          DATA   8C
00254  M01S00038.241l630 +++| CLDF     CON    HLPA        CURRENT *L* DISPLAY FWA
Line S00039 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00255  M02S00039.qdsp3   ---| CMRO     BSS    1           COMMAND RESPONSE OFFSET
00256  M01S00205.qdsplay +++| DFLG     CON    0           RANDOM ADDRESS OF DAYFILE
00257  M01S00206.qdsplay +++| ERIB     CON    0           ENTIRE RECORD IN BUFFER FLAG
00258  M01S00207.qdsplay +++| FETA     CON    0           FET ADDRESS
Line S00040 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00040.qdsp3   ---| LCTR     CON    0           LINE COUNTER
Line S00041 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00260  M02S00041.qdsp3   ---| NEJC     DATA   10H              NO PAGE EJECT
Line S00042 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00042.qdsp3   ---| PEJC     DATA   10H1             PAGE EJECT
00262  M01S00208.qdsplay +++| SCNT     CON    0           SKIP COUNT
00263  M01S00209.qdsplay +++| STAT     CON    SHLP        FILE STATUS
00264  M01S00210.qdsplay +++| PSTT     CON    SBOI        PREVIOUS FILE STATUS
00265  M01S00211.qdsplay +++| MODE     CON    0           FILE DISPLAY MODE (O=LINE, 1=OCTAL)
Line S00043 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00266  M02S00043.qdsp3   ---| YBEG     CON    7756B       BEGINNING Y COORDINATE
Line S00044 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00267  M02S00044.qdsp3   ---| YINC     CON    10          LINE INCREMENT
00268  M01S00212.qdsplay +++|          SPACE  4,10
00269  M01S00213.qdsplay +++|**        TMLD - TABLE OF MESSAGES TO *L* DISPLAY.
00270  M01S00214.qdsplay +++|
00271  M01S00215.qdsplay +++|
00272  M01S00216.qdsplay +++| TMLD     BSS    0
00273  M01S00217.qdsplay +++|          LOC    0
00274  M01S00218.qdsplay +++|          DATA   C*                           *
Line S00219 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00219.241l630 ---| DRPM     DATA   C*DROP PROCESSED.*
Line S00220 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00276  M02S00220.241l630 ---|          CON    0           TERMINATE *L* DISPLAY
Line S00221 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00221.241l630 ---| EABT     DATA   C*SYSTEM ABORT.*
Line S00222 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00222.241l630 ---|          CON    0           TERMINATE *L* DISPLAY
00279  M01S00045.241l630 +++| DRPM     DATA   C*DROP PROCESSED.            *
00280  M01S00046.241l630 +++| EABT     DATA   C*SYSTEM ABORT.              *
00281  M01S00223.qdsplay +++| EDNA     DATA   C*DIRECTIVE NOT ALLOWED.     *
00282  M01S00224.qdsplay +++| EEPS     DATA   C*EXCESS PARAMETERS.         *
Line S00225 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00225.v23l617 ---| EISC     DATA   C*INVALID SKIP COUNT.        *
00284  M01S00008.v23l617 +++| EISC     DATA   C*INCORRECT SKIP COUNT.      *
00285  M01S00226.qdsplay +++| ENDF     DATA   C*NO DAYFILE FOUND.          *
Line S00227 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00227.241l630 ---| ENDM     DATA   C*END PROCESSED.*
Line S00228 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00228.241l630 ---|          CON    0           TERMINATE *L* DISPLAY
00288  M01S00047.241l630 +++| ENDM     DATA   C*END PROCESSED.             *
00289  M01S00229.qdsplay +++| EUND     DATA   C*UNRECOGNIZABLE DIRECTIVE.  *
00290  M01S00001.qdsp2   +++| EVOH     DATA   C*VALID ONLY FOR HELP DISPLAY.*
00291  M01S00230.qdsplay +++|          LOC    *O
00292  M01S00231.qdsplay +++| TVST     SPACE  4,10
00293  M01S00232.qdsplay +++|**        TVST - TABLE OF VALID STATUSES.
00294  M01S00233.qdsplay +++|*
00295  M01S00234.qdsplay +++|*         THIS TABLE CONSISTS OF A VALUE TO BE DISPLAYED
00296  M01S00235.qdsplay +++|*         IN THE HEADER FOR FILE STATUS.
00297  M01S00236.qdsplay +++|*         DUE TO CODE REQUIREMENTS, THIS TABLE MUST BE MAINTAINED
00298  M01S00237.qdsplay +++|*         IN THE FOLLOWING ORDER AND LOCATION POSITIONS.
00299  M01S00238.qdsplay +++|
00300  M01S00239.qdsplay +++|
00301  M01S00240.qdsplay +++| TVST     BSS    0
00302  M01S00241.qdsplay +++|          LOC    0
Line S00242 Modification History
M01 (Added by) qdsplay
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00242.qdsp3   ---| SHLP     DATA   L*S =    .*     *HELP* STATUS
00304  M01S00004.qdsp3   +++| SHLP     DATA   L* =    .*  *HELP* STATUS
00305  M01S00048.241l630 +++|          ERRNZ  SHLP        CODE DEPENDS UPON VALUE BEING 0
Line S00243 Modification History
M01 (Added by) qdsplay
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00243.qdsp3   ---| SSYS     DATA   L*S = SS. *     SYSTEM SECTOR STATUS
00307  M01S00005.qdsp3   +++| SSYS     DATA   L* = SS. *  SYSTEM SECTOR STATUS
00308  M01S00049.241l630 +++|          ERRNZ  SSYS-1      CODE DEPENDS UPON VALUE BEING 1
Line S00244 Modification History
M01 (Added by) qdsplay
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00244.qdsp3   ---| SBOI     DATA   L*S = BOI.*     BEGINNING OF INFORMATION STATUS
Line S00245 Modification History
M01 (Added by) qdsplay
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00245.qdsp3   ---| SBOR     DATA   L*S = BOR.*     BEGINNING OF RECORD STATUS
Line S00246 Modification History
M01 (Added by) qdsplay
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00311  M02S00246.qdsp3   ---| SMID     DATA   L*S =    .*     MIDDLE OF RECORD STATUS
Line S00247 Modification History
M01 (Added by) qdsplay
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00312  M02S00247.qdsp3   ---| SEOI     DATA   L*S = EOI.*     END OF INFORMATION STATUS
Line S00248 Modification History
M01 (Added by) qdsplay
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00313  M02S00248.qdsp3   ---| SEOF     DATA   L*S = EOF.*     END OF FILE STATUS
Line S00249 Modification History
M01 (Added by) qdsplay
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00314  M02S00249.qdsp3   ---| SEOR     DATA   L*S = EOR.*     END OF RECORD STATUS
00315  M01S00006.qdsp3   +++| SBOI     DATA   L* = BOI.*  BEGINNING OF INFORMATION STATUS
00316  M01S00007.qdsp3   +++| SBOR     DATA   L* = BOR.*  BEGINNING OF RECORD STATUS
00317  M01S00008.qdsp3   +++| SMID     DATA   L* =    .*  MIDDLE OF RECORD STATUS
00318  M01S00009.qdsp3   +++| SEOI     DATA   L* = EOI.*  END OF INFORMATION STATUS
00319  M01S00010.qdsp3   +++| SEOF     DATA   L* = EOF.*  END OF FILE STATUS
00320  M01S00011.qdsp3   +++| SEOR     DATA   L* = EOR.*  END OF RECORD STATUS
00321  M01S00250.qdsplay +++|          LOC    *O
00322  M01S00251.qdsplay +++|          SPACE  4,10
00323  M01S00252.qdsplay +++|**        *QAC* PARAMETER BLOCK.
00324  M01S00253.qdsplay +++|
00325  M01S00254.qdsplay +++|
00326  M01S00255.qdsplay +++| QACPB    BSS    0
00327  M01S00256.qdsplay +++| QACR     VFD    50/0,9/GTFC,1/0  REQUEST PREFIX PORTION
00328  M01S00257.qdsplay +++|          VFD    36/0,6/GTLB-5,18/0
00329  M01S00258.qdsplay +++|          VFD    60/0
00330  M01S00259.qdsplay +++|          VFD    60/0
00331  M01S00260.qdsplay +++|          VFD    60/0
00332  M01S00261.qdsplay +++| QACS     VFD    60/0        SELECTION CRITERIA PORTION
00333  M01S00262.qdsplay +++|          VFD    60/0
Line S00263 Modification History
M01 (Added by) qdsplay
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00334  M02S00263.ns21000 ---|          VFD    24/0,36/JSSF
Line S00001 Modification History
M01 (Added by) ns21000
M02 (Updated by) qdsp1
Seq #  *Modification Id* Act 
----------------------------+
00335  M02S00001.qdsp1   ---|          VFD    36/0,12/DLSF,12/JSSF
00336  M01S00001.qdsp1   +++|          VFD    36/0,12/DLSF,12/JSSF+ZPSF
00337  M01S00264.qdsplay +++|          VFD    12/INQQ,48/0
Line S00265 Modification History
M01 (Added by) qdsplay
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00265.ns21000 ---|          VFD    60/0
00339  M01S00002.ns21000 +++|          VFD    18/0,18/3H***,24/0
00340  M01S00266.qdsplay +++|          VFD    60/0
00341  M01S00267.qdsplay +++|          VFD    60/0
00342  M01S00268.qdsplay +++| QACF     VFD    60/0        *GET* FUNCTION PORTION
00343  M01S00269.qdsplay +++|          VFD    60/0
00344  M01S00270.qdsplay +++|          VFD    60/0
00345  M01S00271.qdsplay +++|          VFD    60/0
00346  M01S00272.qdsplay +++|          SPACE  4,10
00347  M01S00273.qdsplay +++|**        *ROUTE* PARAMETER BLOCK.
00348  M01S00274.qdsplay +++|
00349  M01S00275.qdsplay +++|
Line S00276 Modification History
M01 (Added by) qdsplay
M02 (Updated by) ns2156
Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00276.ns2156  ---| ROPB     BSSZ   7
00351  M01S00002.ns2156  +++| ROPB     BSSZ   EPBL
00352  M01S00003.ns2156  +++| .R       BSS    0
00353  M01S00004.ns2156  +++|          ORG    ROPB+1
00354  M01S00005.ns2156  +++|          VFD    42/0,18/FREB          EXTENDED BLOCK PRESENT
00355  M01S00006.ns2156  +++|          ORG    ROPB+7
00356  M01S00007.ns2156  +++|          VFD    42/0,18/EFRQ          SPECIAL REQUEUE OPERATION FLAG
00357  M01S00008.ns2156  +++|          ORG    .R
00358  M01S00277.qdsplay +++|          SPACE  4,10
00359  M01S00278.qdsplay +++|**        *ROLLOUT* PARAMETER BLOCK.
00360  M01S00279.qdsplay +++|
00361  M01S00280.qdsplay +++|
00362  M01S00281.qdsplay +++| ROLB     VFD    30/0,18/LINE,12/0
00363  M01S00282.qdsplay +++|          SPACE  4,10
00364  M01S00283.qdsplay +++|**        *REPRIEVE* PARAMETER BLOCK.
00365  M01S00284.qdsplay +++|
00366  M01S00285.qdsplay +++|
00367  M01S00286.qdsplay +++| RPB      BSS    0
00368  M01S00287.qdsplay +++|          VFD    36/0,12/RPBL,12/0
00369  M01S00288.qdsplay +++|          VFD    30/0,30/RPV
00370  M01S00289.qdsplay +++|          BSSZ   27B
00371  M01S00290.qdsplay +++| RPBL     EQU    *-RPB
00372  M01S00291.qdsplay +++|          SPACE  4,10
00373  M01S00292.qdsplay +++|**        *SSJ=* PARAMETER BLOCK.
00374  M01S00293.qdsplay +++|
00375  M01S00294.qdsplay +++|
00376  M01S00295.qdsplay +++| SSJ=     BSS    0
00377  M01S00296.qdsplay +++|          VFD    48/0,12/IRSI
00378  M01S00297.qdsplay +++|          BSSZ   SSJL-1
00379  M01S00050.241l630 +++|          SPACE  4,5
00380  M01S00051.241l630 +++|**        *L* DISPLAY BUFFER HEADER.
00381  M01S00052.241l630 +++|
00382  M01S00053.241l630 +++|
Line S00054 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00054.qdsp3   ---| LBHR     DATA   C*  QDSPLAY. JSN = $$$$. QFT = ++++. STATUS =    .*
Line S00055 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00055.qdsp3   ---|          DATA   C* *
00385  M01S00012.qdsp3   +++| LBHR     DATA   C*  QDSPLAY. JSN = $$$$. QFT = ++++. IC = --. STATUS =
00386  M01S00013.qdsp3   +++|,   .*
00387  M01S00056.241l630 +++| .LBHRL   EQU    *-LBHR      *L* DISPLAY HEADER LENGTH
00388  M01S00057.241l630 +++|          ERRNZ  .LBHRL-LBHRL  *LBHRL* NEEDS TO BE REDEFINED
00389  M01S00298.qdsplay +++|          SPACE  4,10
00390  M01S00299.qdsplay +++|**        FET DEFINITIONS.
00391  M01S00300.qdsplay +++|
00392  M01S00301.qdsplay +++|
00393  M01S00302.qdsplay +++|          CON    0           SAVE PREVIOUS *IN* FOR QUEUED FILE
00394  M01S00303.qdsplay +++|          CON    0           SAVE PREVIOUS *OUT* FOR QUEUED FILE
00395  M01S00304.qdsplay +++| Q        RFILEB QBUF,QBUFL,(FET=9)  QUEUED FILE FET
00396  M01S00305.qdsplay +++|
00397  M01S00306.qdsplay +++|
00398  M01S00307.qdsplay +++|          CON    0           SAVE PREVIOUS *IN* FOR SYSTEM SECTOR FILE
00399  M01S00308.qdsplay +++|          CON    0           SAVE PREVIOUS *OUT* FOR SYSTEM SECTOR FILE
00400  M01S00309.qdsplay +++| S        FILEB  SBUF,SBUFL+1,(FET=7)  SYSTEM SECTOR FET
00401  M01S00310.qdsplay +++|          TITLE  MAIN PROGRAM.
00402  M01S00311.qdsplay +++| QDSPLAY  SPACE  4,10
00403  M01S00312.qdsplay +++|**        QDSPLAY - MAIN PROGRAM LOOP.
00404  M01S00313.qdsplay +++|*
Line S00314 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00314.241l630 ---|*         CALLS  BLD, CMP, EFP, ILD, OLD, PRS.
00406  M01S00058.241l630 +++|*         CALLS  BLD, CMP, EFP, ILD, OLD, PRS, SEM.
00407  M01S00315.qdsplay +++|
00408  M01S00316.qdsplay +++|
00409  M01S00317.qdsplay +++| QDSPLAY  BSS    0           ENTRY
00410  M01S00318.qdsplay +++|          RJ     PRS         EXECUTE PRESET
00411  M01S00319.qdsplay +++|
00412  M01S00320.qdsplay +++|*         EXECUTE LOOP TO PROCESS COMMAND.
00413  M01S00321.qdsplay +++|
00414  M01S00322.qdsplay +++| QDS1     RJ     EFP         EXECUTE FUNCTION PROCESSOR
00415  M01S00323.qdsplay +++|          ZR     X2,QDS2     IF DISPLAY NOT TO BE REBUILT
00416  M01S00324.qdsplay +++|          RJ     BLD         BUILD *L* DISPLAY
Line S00325 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00325.241l630 ---|          SB2    B0          NO ERROR MESSAGE
00418  M01S00326.qdsplay +++| QDS2     RJ     OLD         OUTPUT *L* DISPLAY DATA.
00419  M01S00327.qdsplay +++|          RJ     ILD         INPUT *L* DISPLAY DATA.
00420  M01S00328.qdsplay +++|          RJ     CMP         COMMAND PROCESSOR
Line S00329 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00329.241l630 ---|          NZ     B2,QDS2     IF ERROR IN COMMAND
Line S00330 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00330.241l630 ---|          EQ     QDS1        EXECUTE COMMAND
00423  M01S00059.241l630 +++|          ZR     B2,QDS1     IF NO ERROR IN COMMAND
00424  M01S00060.241l630 +++|          RJ     SEM         PROCESS ERROR
00425  M01S00061.241l630 +++|          EQ     QDS2        UPDATE *L* DISPLAY
00426  M01S00331.qdsplay +++|          TITLE  FUNCTION PROCESSORS.
00427  M01S00332.qdsplay +++| ADV      SPACE  4,20
00428  M01S00333.qdsplay +++|**        ADV - ADVANCE DISPLAY FORWARD.
00429  M01S00334.qdsplay +++|*
00430  M01S00335.qdsplay +++|*         *ADV* ADVANCES THE *L* DISPLAY TO DISPLAY NEXT PORTION OF
00431  M01S00336.qdsplay +++|*         DATA.  ADVANCE IS CIRCULAR FOR SYSTEM SECTOR.
00432  M01S00337.qdsplay +++|*
Line S00338 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00338.241l630 ---|*         EXIT   (X2) = 0, IF *HELP* DISPLAY STATUS.
Line S00339 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00339.241l630 ---|*                (X2) = FET ADDRESS OF QUEUED FILE IF FILE STATUS IS
00435  M01S00062.241l630 +++|*         EXIT   (X2) = FET ADDRESS OF QUEUED FILE IF FILE STATUS IS
00436  M01S00340.qdsplay +++|*                NOT *SS*.
00437  M01S00341.qdsplay +++|*                (X2) = FET ADDRESS OF SYSTEM SECTOR IF FILE STATUS
00438  M01S00342.qdsplay +++|*                IS *SS*.
00439  M01S00343.qdsplay +++|*                (B2) = 0 (NO ERROR), IF *HELP* DISPLAY STATUS.
00440  M01S00344.qdsplay +++|*
00441  M01S00345.qdsplay +++|*         USES   X - 2, 3, 4, 6, 7.
Line S00346 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00346.241l630 ---|*                A - 2, 3, 4, 6, 7.
00443  M01S00063.241l630 +++|*                A - 2, 3, 4, 6, 7.
00444  M01S00347.qdsplay +++|*                B - 2, 3, 5.
00445  M01S00348.qdsplay +++|*
00446  M01S00349.qdsplay +++|*         CALLS  RNR.
00447  M01S00350.qdsplay +++|
00448  M01S00351.qdsplay +++|
00449  M01S00352.qdsplay +++| ADV2     SB5    SEOI
00450  M01S00353.qdsplay +++|          LT     B3,B5,ADVX  IF NOT EOR/EOF/EOI
00451  M01S00354.qdsplay +++|          SX6    SBOR        BEGINNING OF RECORD STATUS
00452  M01S00355.qdsplay +++|          RJ     RNR         READ NEW RECORD
00453  M01S00356.qdsplay +++|
00454  M01S00357.qdsplay +++| ADV      SUBR               ENTRY/EXIT
00455  M01S00358.qdsplay +++|          SA2    STAT        GET FILE STATUS
00456  M01S00359.qdsplay +++|          SB2    B0          NO ERROR
00457  M01S00360.qdsplay +++|          SB3    X2
Line S00361 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00361.241l630 ---|          ZR     X2,ADVX     IF *HELP* STATUS
00459  M01S00362.qdsplay +++|          SX2    S           SET SYSTEM SECTOR FET
00460  M01S00363.qdsplay +++|          EQ     B3,B1,ADV1  IF *SS* STATUS PRESENT
00461  M01S00364.qdsplay +++|          SX2    Q           SET QUEUED FILE FET
00462  M01S00365.qdsplay +++|          SX6    SMID        SET FILE STATUS
00463  M01S00366.qdsplay +++|          SA6    STAT
00464  M01S00367.qdsplay +++| ADV1     SA3    X2-2        GET PREVIOUS *IN*
00465  M01S00368.qdsplay +++|          SA4    A3+B1       GET PREVIOUS *OUT*
00466  M01S00369.qdsplay +++|          BX6    X3
00467  M01S00370.qdsplay +++|          LX7    X4
00468  M01S00371.qdsplay +++|          SA6    X2+2        RESET TO ADVANCED FET POINTERS
00469  M01S00372.qdsplay +++|          IX3    X3-X4       COMPARE *IN* AND *OUT*
00470  M01S00373.qdsplay +++|          SA7    A6+1
00471  M01S00374.qdsplay +++|          NZ     X3,ADVX     IF *IN* .NE. *OUT*
00472  M01S00375.qdsplay +++|          NE     B3,B1,ADV2  IF NOT *SS* DISPLAY
00473  M01S00376.qdsplay +++|          SX7    SBUF        SET *OUT*
00474  M01S00377.qdsplay +++|          SA7    A7
00475  M01S00378.qdsplay +++|          SX6    SBUF+77B    SET *IN*
00476  M01S00379.qdsplay +++|          SA6    A6
00477  M01S00380.qdsplay +++|          EQ     ADVX        RETURN
00478  M01S00381.qdsplay +++| BOI      SPACE  4,15
00479  M01S00382.qdsplay +++|**        BOI - BEGINNING OF FILE FUNCTION PROCESSOR.
00480  M01S00383.qdsplay +++|*
00481  M01S00384.qdsplay +++|*         *BOI* DISPLAYS THE BEGINNING OF THE QUEUED FILE ON THE *L*
00482  M01S00385.qdsplay +++|*         DISPLAY.
00483  M01S00386.qdsplay +++|*
00484  M01S00387.qdsplay +++|*         EXIT   (X2) = FET ADDRESS OF QUEUED FILE.
00485  M01S00388.qdsplay +++|*
00486  M01S00389.qdsplay +++|*         USES   X - 1, 2, 6, 7.
00487  M01S00390.qdsplay +++|*                A - 1, 7.
00488  M01S00391.qdsplay +++|*
00489  M01S00392.qdsplay +++|*         CALLS  RNR.
00490  M01S00393.qdsplay +++|
00491  M01S00394.qdsplay +++|
00492  M01S00395.qdsplay +++| BOI      SUBR               ENTRY/EXIT
00493  M01S00396.qdsplay +++|          SA1    STAT        GET FILE STATUS
00494  M01S00397.qdsplay +++|          SX2    Q
00495  M01S00398.qdsplay +++|          SX6    SBOI        SET BEGINNING OF INFORMATION STATUS
00496  M01S00399.qdsplay +++|          SX7    B1          SET RANDOM READ IN FET TO BOI
00497  M01S00400.qdsplay +++|          BX1    X1-X6
00498  M01S00401.qdsplay +++|          ZR     X1,BOIX     IF AT BOI
00499  M01S00402.qdsplay +++|          SA7    Q+6
00500  M01S00403.qdsplay +++|          RJ     RNR         READ NEXT RECORD
00501  M01S00404.qdsplay +++|          EQ     BOIX        RETURN
00502  M01S00405.qdsplay +++| DAY      SPACE  4,15
00503  M01S00406.qdsplay +++|**        DAY - *DAYFILE* FUNCTION PROCESSOR.
00504  M01S00407.qdsplay +++|*
00505  M01S00408.qdsplay +++|*         *DAY* DISPLAYS THE DAYFILE PORTION OF THE FILE IF THE
00506  M01S00409.qdsplay +++|*         DAYFILE EXISTS.
00507  M01S00410.qdsplay +++|*
Line S00411 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00411.241l630 ---|*         EXIT   (X2) = FET ADDRESS OF QUEUED FILE IF *L* DISPLAY
Line S00412 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00412.241l630 ---|*                NEEDS TO BE REBUILT.
00510  M01S00064.241l630 +++|*         EXIT   (X2) = 0, IF DAYFILE NOT FOUND AND HELP STATUS.
00511  M01S00065.241l630 +++|*                (X2) = FET ADDRESS OF QUEUED FILE OR SYSTEM SECTOR,
00512  M01S00066.241l630 +++|*                IF DAYFILE NOT FOUND AND NOT HELP STATUS.
00513  M01S00067.241l630 +++|*                (X2) = FET ADDRESS OF QUEUED FILE IF DAYFILE FOUND.
00514  M01S00413.qdsplay +++|*                (B2) = ERROR MESSAGE ADDRESS, IF NO DAYFILE FOUND.
Line S00414 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00515  M02S00414.241l630 ---|*                (X2) = 0, IF NO DAYFILE FOUND.
00516  M01S00415.qdsplay +++|*
Line S00416 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00416.241l630 ---|*         USES   X - 2, 6, 7.
Line S00417 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00417.241l630 ---|*                A - 2, 7.
00519  M01S00068.241l630 +++|*         USES   X - 1, 2, 6, 7.
00520  M01S00069.241l630 +++|*                A - 1, 2, 7.
00521  M01S00418.qdsplay +++|*                B - 2.
00522  M01S00419.qdsplay +++|*
Line S00420 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00420.241l630 ---|*         CALLS  RNR.
00524  M01S00070.241l630 +++|*         CALLS  HLP, RNR.
00525  M01S00421.qdsplay +++|
00526  M01S00422.qdsplay +++|
00527  M01S00423.qdsplay +++| DAY      SUBR               ENTRY/EXIT
00528  M01S00424.qdsplay +++|          SA2    DFLG        GET DAYFILE ADDRESS
00529  M01S00425.qdsplay +++|          SB2    ENDF        *NO DAYFILE FOUND.*
Line S00426 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00530  M02S00426.241l630 ---|          ZR     X2,DAYX     IF NO DAYFILE FOUND
00531  M01S00071.241l630 +++|          ZR     X2,DAY1     IF NO DAYFILE FOUND
00532  M01S00427.qdsplay +++|          BX7    X2          SET RANDOM ADDRESS OF DAYFILE IN FET
00533  M01S00428.qdsplay +++|          SA7    Q+6
00534  M01S00429.qdsplay +++|          SX6    SBOR        SET BEGINNING OF RECORD STATUS
00535  M01S00430.qdsplay +++|          RJ     RNR         READ NEW RECORD
00536  M01S00072.241l630 +++|          SB2    B0+         INDICATE NO ERROR
00537  M01S00431.qdsplay +++|          EQ     DAYX        RETURN
00538  M01S00073.241l630 +++|
00539  M01S00074.241l630 +++|*         REBUILD PROPER DISPLAY WITH ERROR MESSAGE.
00540  M01S00075.241l630 +++|
00541  M01S00076.241l630 +++| DAY1     SA1    STAT        GET FILE STATUS
00542  M01S00077.241l630 +++|          SX6    SHLP        CHECK IF HELP STATUS
00543  M01S00078.241l630 +++|          BX6    X1-X6
00544  M01S00079.241l630 +++|          NZ     X6,DAY2     IF NOT HELP STATUS
00545  M01S00080.241l630 +++|          RJ     HLP         FORMAT HELP DISPLAY
00546  M01S00081.241l630 +++|          EQ     DAYX        RETURN
00547  M01S00082.241l630 +++|
00548  M01S00083.241l630 +++| DAY2     SX6    SSYS        CHECK IF SYSTEM SECTOR STATUS
00549  M01S00084.241l630 +++|          SX2    S           SET SYSTEM SECTOR FET
00550  M01S00085.241l630 +++|          BX6    X1-X6
00551  M01S00086.241l630 +++|          ZR     X6,DAYX     IF SYSTEM SECTOR STATUS
00552  M01S00087.241l630 +++|          SX2    Q           SET QUEUED FILE STATUS
00553  M01S00088.241l630 +++|          EQ     DAYX        RETURN
00554  M01S00432.qdsplay +++| DRP      SPACE  4,10
00555  M01S00433.qdsplay +++|**        DRP - *DROP* FUNCTION PROCESSOR.
00556  M01S00434.qdsplay +++|*
00557  M01S00435.qdsplay +++|*         *DRP* DROPS THE FILE FROM THE QUEUE AND TERMINATES UTILITY.
00558  M01S00436.qdsplay +++|*
00559  M01S00437.qdsplay +++|*         USES   B - 2.
00560  M01S00438.qdsplay +++|*
00561  M01S00439.qdsplay +++|*         CALLS  DLD.
00562  M01S00440.qdsplay +++|*
00563  M01S00441.qdsplay +++|*         MACROS ENDRUN, RETURN.
00564  M01S00442.qdsplay +++|
00565  M01S00443.qdsplay +++|
00566  M01S00444.qdsplay +++| DRP      SUBR               ENTRY/EXIT
00567  M01S00445.qdsplay +++|          SB2    DRPM        DISPLAY *DROP PROCESSED.* MESSAGE
00568  M01S00446.qdsplay +++|          RJ     DLD         DROP *L* DISPLAY
00569  M01S00447.qdsplay +++|          RETURN Q,R
00570  M01S00448.qdsplay +++|          ENDRUN
00571  M01S00449.qdsplay +++| END      SPACE  4,10
00572  M01S00450.qdsplay +++|**        END - *END* FUNCTION PROCESSOR.
00573  M01S00451.qdsplay +++|*
00574  M01S00452.qdsplay +++|*         *END* RETURNS THE FILE TO THE QUEUE AND TERMINATES THE
00575  M01S00453.qdsplay +++|*         UTILITY.
00576  M01S00454.qdsplay +++|*
00577  M01S00455.qdsplay +++|*         USES   B - 2.
00578  M01S00456.qdsplay +++|*
00579  M01S00457.qdsplay +++|*         CALLS  DLD.
00580  M01S00458.qdsplay +++|*
00581  M01S00459.qdsplay +++|*         MACROS ENDRUN, ROUTE.
00582  M01S00460.qdsplay +++|
00583  M01S00461.qdsplay +++|
00584  M01S00462.qdsplay +++| END      SUBR               ENTRY/EXIT
00585  M01S00463.qdsplay +++|          SB2    ENDM        DISPLAY *END PROCESSED.* MESSAGE
00586  M01S00464.qdsplay +++|          RJ     DLD         DROP *L* DISPLAY
00587  M01S00465.qdsplay +++|          ROUTE  ROPB,R      RETURN FILE TO QUEUE
00588  M01S00466.qdsplay +++|          ENDRUN
00589  M01S00467.qdsplay +++| HLP      SPACE  4,15
00590  M01S00468.qdsplay +++|**        HLP - *HELP* FUNCTION PROCESSOR.
00591  M01S00469.qdsplay +++|*
00592  M01S00470.qdsplay +++|*         *HLP* MOVES *HELP* DISPLAY DATA TO *L* DISPLAY.
00593  M01S00089.241l630 +++|*
00594  M01S00090.241l630 +++|*         ENTRY  (CMPB) = FWA OF PAGE TO DISPLAY.
00595  M01S00091.241l630 +++|*                (B2) = MESSAGE ORDINAL FOR TABLE OF MESSAGES.
00596  M01S00471.qdsplay +++|*
00597  M01S00472.qdsplay +++|*         EXIT   (B2) = 0 (NO ERR0R).
00598  M01S00473.qdsplay +++|*                (X2) = 0 (*L* DISPLAY DATA NEED NOT BE REBUILT).
00599  M01S00474.qdsplay +++|*
Line S00475 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00475.241l630 ---|*         USES   X - 1, 2, 6, 7.
Line S00476 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00476.241l630 ---|*                A - 1, 6, 7.
Line S00477 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00477.241l630 ---|*                B - 2, 3.
Line S00092 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00092.qdsp3   ---|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00604  M01S00014.qdsp3   +++|*         USES   X - 1, 2, 3, 5, 6, 7.
00605  M01S00093.241l630 +++|*                A - 1, 5, 6, 7.
00606  M01S00094.241l630 +++|*                B - 2, 3, 4, 6.
00607  M01S00095.241l630 +++|*
00608  M01S00096.241l630 +++|*         CALLS  COI, FLB.
00609  M01S00478.qdsplay +++|*
00610  M01S00479.qdsplay +++|*         MACROS MOVE.
00611  M01S00480.qdsplay +++|
00612  M01S00481.qdsplay +++|
00613  M01S00482.qdsplay +++| HLP      SUBR               ENTRY/EXIT
Line S00483 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00483.241l630 ---|          MOVE   HLPL,HLPA,LBUF  MOVE DATA INTO *L* DISPLAY BUFFER
00615  M01S00097.241l630 +++|          SA5    CLDF        GET CURRENT SCREEN FWA
00616  M01S00098.241l630 +++|          SX2    TMLD+B2     SET MESSAGE
00617  M01S00099.241l630 +++|          MOVE   ERML,X2,X5+HLMA-HLPA
00618  M01S00100.241l630 +++|          RJ     COI         CONVERT OPERATOR INPUT
00619  M01S00101.241l630 +++|          SX2    IBUF        SET INPUT LINE
00620  M01S00102.241l630 +++|          MOVE   LCOMU,X2,X5+HLIA-HLPA  SET INPUT LINE
00621  M01S00103.241l630 +++|          SX1    X5          FWA DATA TO FORMAT
00622  M01S00104.241l630 +++|          SX6    X1+HLPAL-1  LWA DATA TO FORMAT
00623  M01S00105.241l630 +++|          MX2    0           INDICATE *L* DISPLAY
00624  M01S00106.241l630 +++|          SX3    B1+         INDICATE LINE MODE
00625  M01S00107.241l630 +++|          SB2    LBUF        FWA *L* DISPLAY BUFFER
00626  M01S00108.241l630 +++|          SB3    XCDT        X - COORDINATE OF DISPLAY
00627  M01S00109.241l630 +++|          SB4    YCDT        Y - COORDINATE OF DISPLAY
00628  M01S00110.241l630 +++|          SB6    LBUF+LBUFL  LWA *L* DISPLAY BUFFER
00629  M01S00111.241l630 +++|          RJ     FLB         FORMAT DATA FOR *L* DISPLAY
00630  M01S00484.qdsplay +++|          SA1    STAT        GET FILE STATUS
00631  M01S00485.qdsplay +++|          SX6    SHLP        SET *HELP* STATUS
00632  M01S00486.qdsplay +++|          SA6    A1
00633  M01S00487.qdsplay +++|          SB3    X1
Line S00488 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00488.241l630 ---|          SB2    B0          NO ERROR
Line S00489 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00489.241l630 ---|          SX2    B0          PREVENT *L* DISPLAY BUILD FROM FILE
00636  M01S00112.241l630 +++|          SX2    B0          PREVENT *L* DISPLAY BUILD FROM FILE
00637  M01S00113.241l630 +++|          SB2    B0          SET NO ERROR
00638  M01S00490.qdsplay +++|          LE     B3,B1,HLPX  IF *SS* OR *HELP* STATUS
00639  M01S00491.qdsplay +++|          SX7    X1+         SAVE PREVIOUS FILE STATUS
00640  M01S00492.qdsplay +++|          SA7    PSTT
00641  M01S00493.qdsplay +++|          EQ     HLPX        RETURN
00642  M01S00494.qdsplay +++|
00643  M01S00495.qdsplay +++|
Line S00496 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00496.241l630 ---| HLPA     BSS    0           *L* DISPLAY *HELP* SCREEN
Line S00497 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00497.241l630 ---|   DATA   C*THE FOLLOWING ARE VALID QUEUE DISPLAY COMMANDS -*
Line S00498 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00498.241l630 ---|   DATA   C* *
Line S00499 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00647  M02S00499.241l630 ---|   DATA   C*COMMAND  FUNCTION*
Line S00500 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00500.241l630 ---|   DATA   C* *
Line S00501 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00649  M02S00501.241l630 ---|   DATA   C*L.HELP.  LIST L DISPLAY COMMANDS FOR QDSPLAY UTILITY.*
Line S00502 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00502.241l630 ---|   DATA   C*L.DROP.  DROP FILE FROM QUEUE AND TERMINATE.*
Line S00503 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00503.241l630 ---|   DATA   C*L.END.   RETURN FILE TO QUEUE AND TERMINATE.*
Line S00504 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00504.241l630 ---|   DATA   C*L.LINE.  SET FILE DISPLAY MODE TO LINE FORMAT.*
Line S00505 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00505.241l630 ---|   DATA   C*L.OCTAL. SET FILE DISPLAY MODE TO OCTAL FORMAT.*
Line S00506 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00506.241l630 ---|   DATA   C*L.SS.    DISPLAY IN OCTAL FROM BEGINNING OF SYSTEM SECTOR.*
Line S00507 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00507.241l630 ---|   DATA   C+L.*.     RETURN FROM HELP/SS TO PREVIOUS FILE DISPLAY.+
Line S00508 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00508.241l630 ---|   DATA   C*L.+.     ADVANCE DISPLAY FORWARD (CIRCULAR FOR SS).*
Line S00509 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00509.241l630 ---|   DATA   C*L.BOI.   POSITION FILE TO BOI AND DISPLAY DATA.*
Line S00510 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00510.241l630 ---|   DATA   C*L.DAY.   POSITION PRINT FILE TO DAYFILE AND DISPLAY DATA.*
Line S00511 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00511.241l630 ---|   DATA   C*L.SL.    SKIP 1 LINE FORWARD IN FILE AND DISPLAY DATA.*
Line S00512 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00512.241l630 ---|   DATA   C*L.SL,N.  SKIP N LINES FORWARD IN FILE AND DISPLAY DATA.*
Line S00513 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00513.241l630 ---|   DATA   C*L.SP.    SKIP 1 PAGE FORWARD IN FILE AND DISPLAY DATA.*
Line S00514 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00514.241l630 ---|   DATA   C*L.SP,N.  SKIP N PAGES FORWARD IN FILE AND DISPLAY DATA.*
Line S00515 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00515.241l630 ---|   DATA   C*L.SR.    SKIP 1 RECORD FORWARD IN FILE AND DISPLAY DATA.*
Line S00516 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00516.241l630 ---|   DATA   C*L.SR,N.  SKIP N RECORDS FORWARD IN FILE AND DISPLAY DATA.*
Line S00517 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00517.241l630 ---|   DATA   C+L.SR,*.  SKIP TO EOI IN FILE.+
Line S00518 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00518.241l630 ---|   DATA   C*L.BR.    SKIP 1 RECORD BACKWARD IN FILE AND DISPLAY DATA.*
Line S00519 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00519.241l630 ---|   DATA   C*L.BR,N.  SKIP N RECORDS BACKWARD IN FILE AND DISPLAY DATA.*
Line S00520 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00520.241l630 ---|   DATA   C* *
Line S00521 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00521.241l630 ---|   DATA   C*SKIP COMMANDS ARE NOT ALLOWED UNDER HELP/SS DISPLAY.*
Line S00522 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00670  M02S00522.241l630 ---|   DATA   C*SKIP LINE/PAGE COMMANDS NOT ALLOWED FROM OCTAL DISPLAY.*
Line S00523 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00671  M02S00523.241l630 ---|          CON    0           END OF HELP DISPLAY
Line S00524 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00524.241l630 ---| HLPL     EQU    *-HLPA      LENGTH OF *HELP* DISPLAY
00673  M01S00114.241l630 +++| HLPA     BSS    0           *L* DISPLAY HELP PAGE 1
00674  M01S00115.241l630 +++|          DATA   50HQDSPLAY COMMANDS                              PAGE
00675  M01S00116.241l630 +++|          DATA   10H 1 OF 2
00676  M01S00117.241l630 +++|          DATA   C* *
00677  M01S00118.241l630 +++|          DATA   34C COMMAND               DESCRIPTION
00678  M01S00119.241l630 +++|          DATA   C* *
00679  M01S00120.241l630 +++|          DATA   50H  BACK     RETURN FROM HELP/SS TO PREVIOUS FILE DI
00680  M01S00121.241l630 +++|          DATA   10HSPLAY.
00681  M01S00122.241l630 +++|          DATA   49C  BOI      POSITION FILE TO BOI AND DISPLAY DATA.
00682  M01S00123.241l630 +++|          DATA   50H  DAY      POSITION PRINT FILE TO DAYFILE AND DISP
00683  M01S00124.241l630 +++|          DATA   10HLAY DATA.
00684  M01S00125.241l630 +++|          DATA   46C  DROP     DROP FILE FROM QUEUE AND TERMINATE.
00685  M01S00126.241l630 +++|          DATA   C* *
00686  M01S00127.241l630 +++|          DATA   46C  END      RETURN FILE TO QUEUE AND TERMINATE.
00687  M01S00128.241l630 +++|          DATA   50H  HELP     LIST L DISPLAY COMMANDS FOR QDSPLAY UTI
00688  M01S00129.241l630 +++|          DATA   10HLITY.
00689  M01S00130.241l630 +++|          DATA   48C  LINE     SET FILE DISPLAY MODE TO LINE FORMAT.
00690  M01S00131.241l630 +++|          DATA   49C  OCTAL    SET FILE DISPLAY MODE TO OCTAL FORMAT.
00691  M01S00132.241l630 +++|          DATA   C* *
00692  M01S00133.241l630 +++|          DATA   50H  SS       DISPLAY IN OCTAL FROM BEGINNING OF SYST
00693  M01S00134.241l630 +++|          DATA   10HEM SECTOR.
00694  M01S00135.241l630 +++|          DATA   50C  +        PAGE DISPLAY FORWARD (CIRCULAR FOR SS).
00695  M01S00136.241l630 +++|          DATA   48C  -        PAGE DISPLAY BACKWARD.
00696  M01S00137.241l630 +++|          DATA   C* *
00697  M01S00138.241l630 +++| HLMA     DATA   C*                           *
00698  M01S00139.241l630 +++| HLIA     DATA   C*                                        *
00699  M01S00140.241l630 +++|          CON    0           END OF HELP PAGE 1 DISPLAY
00700  M01S00141.241l630 +++| HLPAL    EQU    *-HLPA      LENGTH OF PAGE 1 DISPLAY
00701  M01S00142.241l630 +++| HLPB     BSS    0           *L* DISPLAY HELP PAGE 2
00702  M01S00143.241l630 +++|          DATA   50HQDSPLAY COMMANDS                              PAGE
00703  M01S00144.241l630 +++|          DATA   10H 2 OF 2
00704  M01S00145.241l630 +++|          DATA   C* *
00705  M01S00146.241l630 +++|          DATA   34C COMMAND               DESCRIPTION
00706  M01S00147.241l630 +++|          DATA   C* *
00707  M01S00148.241l630 +++|          DATA   50H  SL       SKIP 1 LINE FORWARD IN FILE AND DISPLAY
00708  M01S00149.241l630 +++|          DATA   10H DATA.
00709  M01S00150.241l630 +++|          DATA   50H  SL,N     SKIP N LINES FORWARD IN FILE AND DISPLA
00710  M01S00151.241l630 +++|          DATA   10HY DATA.
00711  M01S00152.241l630 +++|          DATA   50H  SP       SKIP 1 PAGE FORWARD IN FILE AND DISPLAY
00712  M01S00153.241l630 +++|          DATA   10H DATA.
00713  M01S00154.241l630 +++|          DATA   50H  SP,N     SKIP N PAGES FORWARD IN FILE AND DISPLA
00714  M01S00155.241l630 +++|          DATA   10HY DATA.
00715  M01S00156.241l630 +++|          DATA   50H  SR       SKIP 1 RECORD FORWARD IN FILE AND DISPL
00716  M01S00157.241l630 +++|          DATA   10HAY DATA.
00717  M01S00158.241l630 +++|          DATA   C* *
00718  M01S00159.241l630 +++|          DATA   50H  SR,N     SKIP N RECORDS FORWARD IN FILE AND DISP
00719  M01S00160.241l630 +++|          DATA   10HLAY DATA.
00720  M01S00161.241l630 +++|          DATA   31C  SR,*     SKIP TO EOI IN FILE.
00721  M01S00162.241l630 +++|          DATA   50H  BR       SKIP 1 RECORD BACKWARD IN FILE AND DISP
00722  M01S00163.241l630 +++|          DATA   10HLAY DATA.
00723  M01S00164.241l630 +++|          DATA   50H  BR,N     SKIP N RECORDS BACKWARD IN FILE AND DIS
00724  M01S00165.241l630 +++|          DATA   10HPLAY DATA.
00725  M01S00166.241l630 +++|          DATA   20C
00726  M01S00167.241l630 +++|          DATA   20C
00727  M01S00168.241l630 +++|          DATA   20C
00728  M01S00169.241l630 +++|          DATA   20C
00729  M01S00170.241l630 +++| HLMB     DATA   C*                           *
00730  M01S00171.241l630 +++| HLIB     DATA   C*                                        *
00731  M01S00172.241l630 +++|          CON    0           END OF HELP PAGE 2 DISPLAY
00732  M01S00173.241l630 +++| HLPBL    EQU    *-HLPB      LENGTH OF PAGE 2 DISPLAY
00733  M01S00174.241l630 +++|          ERRNZ  HLPAL-HLPBL PAGE LENGTHS MUST BE EQUAL
00734  M01S00175.241l630 +++|          ERRNZ  HLMA-HLPA-HLMB+HLPB  MESSAGE OFFSETS MUST BE THE SAME
00735  M01S00176.241l630 +++|          ERRNZ  HLIA-HLPA-HLIB+HLPB  INPUT OFFSETS MUST BE THE SAME
00736  M01S00525.qdsplay +++| LNE      SPACE  4,15
00737  M01S00526.qdsplay +++|**        LNE - SET *L* DISPLAY FORMAT TO LINE MODE.
00738  M01S00527.qdsplay +++|*
00739  M01S00528.qdsplay +++|*         *LNE* SETS LINE MODE FORMAT FOR THE *L* DISPLAY.
00740  M01S00529.qdsplay +++|*
00741  M01S00530.qdsplay +++|*         EXIT   (B2) = 0 (NO ERROR).
Line S00531 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00742  M02S00531.241l630 ---|*                (X2) = 0, IF *HELP* OR *SS* STATUS.
Line S00532 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00743  M02S00532.241l630 ---|*                (X2) = FET ADDRESS OF QUEUED FILE,
Line S00533 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00744  M02S00533.241l630 ---|*                IF NOT *HELP* OR *SS* STATUS.
00745  M01S00177.241l630 +++|*                (X2) = 0, IF *HELP* STATUS.
00746  M01S00178.241l630 +++|*                (X2) = SYSTEM SECTOR FET, IF *SS* STATUS.
00747  M01S00179.241l630 +++|*                (X2) = QUEUED FET, IF NOT *HELP* OR *SS* STATUS.
00748  M01S00534.qdsplay +++|*
00749  M01S00535.qdsplay +++|*         USES   X - 2, 6.
00750  M01S00536.qdsplay +++|*                A - 2, 6.
00751  M01S00537.qdsplay +++|*                B - 2, 3.
00752  M01S00180.241l630 +++|*
00753  M01S00181.241l630 +++|*         CALLS  HLP.
00754  M01S00538.qdsplay +++|
00755  M01S00539.qdsplay +++|
00756  M01S00540.qdsplay +++| LNE      SUBR               ENTRY/EXIT
00757  M01S00541.qdsplay +++|          SA2    STAT        GET FILE STATUS
00758  M01S00542.qdsplay +++|          SB2    B0          NO ERROR
00759  M01S00543.qdsplay +++|          SX6    B0          SET *L* DISPLAY FORMAT TO LINE MODE
00760  M01S00544.qdsplay +++|          SA6    MODE
00761  M01S00545.qdsplay +++|          SB3    X2
00762  M01S00546.qdsplay +++|          SX2    B0          DO NOT REBUILD *L* DISPLAY
Line S00547 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00763  M02S00547.241l630 ---|          LE     B3,B1,LNEX  IF *SS* OR *HELP* STATUS
Line S00548 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00764  M02S00548.241l630 ---|          SX2    Q
00765  M01S00182.241l630 +++|          NE     B3,B0,LNE1  IF NOT HELP STATUS
00766  M01S00183.241l630 +++|          RJ     HLP         REBUILD HELP DISPLAY WITH *LINE* ECHOED
00767  M01S00184.241l630 +++|          EQ     LNEX        RETURN
00768  M01S00185.241l630 +++|
00769  M01S00186.241l630 +++| LNE1     NE     B3,B1,LNE2  IF NOT *SS* STATUS
00770  M01S00187.241l630 +++|          SX2    S           SET SYSTEM SECTOR FET
00771  M01S00188.241l630 +++|          EQ     LNEX        RETURN
00772  M01S00189.241l630 +++|
00773  M01S00190.241l630 +++| LNE2     SX2    Q           SET QUEUED FILE FET
00774  M01S00549.qdsplay +++|          EQ     LNEX        RETURN
00775  M01S00550.qdsplay +++| OCT      SPACE  4,15
00776  M01S00551.qdsplay +++|**        OCT - SETS THE *L* DISPLAY FORMAT TO OCTAL MODE.
00777  M01S00552.qdsplay +++|*
00778  M01S00553.qdsplay +++|*         *OCT* SETS OCTAL MODE FORMAT FOR THE *L* DISPLAY.
00779  M01S00554.qdsplay +++|*
00780  M01S00555.qdsplay +++|*         EXIT   (B2) = 0 (NO ERROR).
Line S00556 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00556.241l630 ---|*                (X2) = 0, IF *HELP* OR *SS* STATUS.
Line S00557 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00557.241l630 ---|*                (X2) = FET ADDRESS OF QUEUED FILE, IF NOT *HELP*
Line S00558 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00558.241l630 ---|*                OR *SS* STATUS.
00784  M01S00191.241l630 +++|*                (X2) = 0, IF *HELP* STATUS.
00785  M01S00192.241l630 +++|*                (X2) = SYSTEM SECTOR FET, IF *SS* STATUS.
00786  M01S00193.241l630 +++|*                (X2) = QUEUED FET, IF NOT *HELP* OR *SS* STATUS.
00787  M01S00559.qdsplay +++|*
00788  M01S00560.qdsplay +++|*         USES   X - 2, 6.
00789  M01S00561.qdsplay +++|*                A - 2, 6.
00790  M01S00562.qdsplay +++|*                B - 2, 3.
00791  M01S00194.241l630 +++|*
00792  M01S00195.241l630 +++|*         CALLS  HLP.
00793  M01S00563.qdsplay +++|
00794  M01S00564.qdsplay +++|
00795  M01S00565.qdsplay +++| OCT      SUBR               ENTRY/EXIT
00796  M01S00566.qdsplay +++|          SX6    B1          SET *L* DISPLAY FORMAT TO OCTAL MODE
00797  M01S00567.qdsplay +++|          SA6    MODE
00798  M01S00568.qdsplay +++|          SB2    B0          NO ERROR
00799  M01S00569.qdsplay +++|          SA2    STAT        GET FILE STATUS
00800  M01S00570.qdsplay +++|          SB3    X2
00801  M01S00571.qdsplay +++|          SX2    B0          DO NOT REBUILD *L* DISPLAY
Line S00572 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00572.241l630 ---|          LE     B3,B1,OCTX  IF *SS* OR *HELP* STATUS
Line S00573 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00573.241l630 ---|          SX2    Q
00804  M01S00196.241l630 +++|          NE     B3,B0,OCT1  IF NOT HELP STATUS
00805  M01S00197.241l630 +++|          RJ     HLP         REBUILD HELP DISPLAY WITH *OCTAL* ECHOED
00806  M01S00198.241l630 +++|          EQ     OCTX        RETURN
00807  M01S00199.241l630 +++|
00808  M01S00200.241l630 +++| OCT1     NE     B3,B1,OCT2  IF NOT *SS* STATUS
00809  M01S00201.241l630 +++|          SX2    S           SET SYSTEM SECTOR FET
00810  M01S00202.241l630 +++|          EQ     OCTX        RETURN
00811  M01S00203.241l630 +++|
00812  M01S00204.241l630 +++| OCT2     SX2    Q           SET QUEUED FILE FET
00813  M01S00574.qdsplay +++|          EQ     OCTX        RETURN
00814  M01S00575.qdsplay +++| SLF      SPACE  4,10
00815  M01S00576.qdsplay +++|**        SLF - SKIP LINES FORWARD.
00816  M01S00577.qdsplay +++|*
00817  M01S00578.qdsplay +++|*         *SLF* SKIPS LINES FORWARD.
00818  M01S00579.qdsplay +++|*
00819  M01S00580.qdsplay +++|*         EXIT   (X2) = FET ADDRESS OF QUEUED FILE.
00820  M01S00205.241l630 +++|*                (B2) = 0 (NO ERROR).
00821  M01S00581.qdsplay +++|*
Line S00582 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00582.241l630 ---|*         USES   X - 1, 2, 5, 6.
00823  M01S00206.241l630 +++|*         USES   X - 1, 5, 6.
00824  M01S00583.qdsplay +++|*                A - 5, 6.
00825  M01S00207.241l630 +++|*                B - 2.
00826  M01S00584.qdsplay +++|*
00827  M01S00585.qdsplay +++|*         MACROS READC.
00828  M01S00586.qdsplay +++|
00829  M01S00587.qdsplay +++|
00830  M01S00588.qdsplay +++| SLF      SUBR               ENTRY/EXIT
00831  M01S00589.qdsplay +++|          SA5    SCNT        GET SKIP COUNT
00832  M01S00590.qdsplay +++|          SX6    SMID        SET FILE STATUS TO MIDDLE OF RECORD
00833  M01S00591.qdsplay +++|          SA6    STAT
00834  M01S00592.qdsplay +++| SLF1     READC  Q,WBUF,PLSZ
00835  M01S00208.241l630 +++|          SB2    B0+         INDICATE NO ERROR
00836  M01S00593.qdsplay +++|          NG     X1,SLFX     IF EOF/EOI
00837  M01S00594.qdsplay +++|          SX1    X1-WBUF
00838  M01S00595.qdsplay +++|          ZR     X1,SLFX     IF EOR (NO DATA)
00839  M01S00596.qdsplay +++|          SX5    X5-1        DECREMENT SKIP COUNT
00840  M01S00597.qdsplay +++|          NZ     X5,SLF1     IF MORE LINES TO SKIP
00841  M01S00598.qdsplay +++|          EQ     SLFX        RETURN
00842  M01S00599.qdsplay +++| SPF      SPACE  4,10
00843  M01S00600.qdsplay +++|**        SPF - SKIP PAGES FORWARD.
00844  M01S00601.qdsplay +++|*
00845  M01S00602.qdsplay +++|*         *SPF* SKIPS PAGES FORWARD.
00846  M01S00603.qdsplay +++|*
00847  M01S00604.qdsplay +++|*         EXIT   (X2) = FET ADDRESS OF QUEUED FILE.
00848  M01S00209.241l630 +++|*                (B2) = 0 (NO ERROR).
00849  M01S00605.qdsplay +++|*
00850  M01S00606.qdsplay +++|*         USES   X - 0, 1, 3, 4, 5, 6, 7.
00851  M01S00607.qdsplay +++|*                A - 1, 3, 4, 5, 6, 7.
00852  M01S00210.241l630 +++|*                B - 2.
00853  M01S00608.qdsplay +++|*
00854  M01S00609.qdsplay +++|*         MACROS READC.
00855  M01S00610.qdsplay +++|
00856  M01S00611.qdsplay +++|
00857  M01S00612.qdsplay +++| SPF      SUBR               ENTRY/EXIT
00858  M01S00613.qdsplay +++|          SA5    SCNT        GET SKIP COUNT
00859  M01S00614.qdsplay +++|          SX6    SMID        SET MIDDLE OF RECORD FILE STATUS
00860  M01S00615.qdsplay +++|          SA6    STAT
00861  M01S00616.qdsplay +++|          SX0    B1+         INDICATE TOP OF FIRST PAGE
00862  M01S00617.qdsplay +++| SPF1     SA3    Q+2         GET *IN*
00863  M01S00618.qdsplay +++|          BX6    X3
00864  M01S00619.qdsplay +++|          SA4    A3+B1       GET *OUT*
00865  M01S00620.qdsplay +++|          BX7    X4
00866  M01S00621.qdsplay +++|          SA6    Q-2         SAVE PREVIOUS *IN*
00867  M01S00622.qdsplay +++|          SA7    A6+B1       SAVE PREVIOUS *OUT*
00868  M01S00623.qdsplay +++|          READC  Q,WBUF,PLSZ
00869  M01S00211.241l630 +++|          SB2    B0+         INDICATE NO ERROR
00870  M01S00624.qdsplay +++|          NG     X1,SPFX     IF EOF/EOI
00871  M01S00625.qdsplay +++|          SX1    X1-WBUF
00872  M01S00626.qdsplay +++|          ZR     X1,SPFX     IF EOR (WITH NO DATA)
00873  M01S00627.qdsplay +++|          MX3    6           CHECK LINE FOR CARRIAGE CONTROL
00874  M01S00628.qdsplay +++|          SA1    WBUF
00875  M01S00629.qdsplay +++|          BX1    X3*X1
00876  M01S00630.qdsplay +++|          LX1    6
00877  M01S00631.qdsplay +++|          SX1    X1-1R1
00878  M01S00632.qdsplay +++|          BX1    X1+X0
Line S00633 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00633.241l630 ---|          SX0    B0          INDICATE NOT TOP OF FIRST PAGE
00880  M01S00212.241l630 +++|          SX0    B0+         INDICATE NOT TOP OF FIRST PAGE
00881  M01S00634.qdsplay +++|          NZ     X1,SPF1     IF TOP OF FIRST PAGE OR NOT PAGE EJECT 1
00882  M01S00635.qdsplay +++|          SX5    X5-1        DECREMENT SKIP COUNT
00883  M01S00636.qdsplay +++|          NZ     X5,SPF1     IF MORE PAGES TO SKIP
00884  M01S00637.qdsplay +++|          SA1    Q-2         GET PREVIOUS *IN*
00885  M01S00638.qdsplay +++|          SA3    A1+B1       GET PREVIOUS *OUT*
00886  M01S00639.qdsplay +++|          BX6    X1
00887  M01S00640.qdsplay +++|          SA6    Q+2         SET *IN* AND *OUT* IN FET
00888  M01S00641.qdsplay +++|          BX7    X3
00889  M01S00642.qdsplay +++|          SA7    A6+B1
00890  M01S00643.qdsplay +++|          EQ     SPFX        RETURN
00891  M01S00644.qdsplay +++| SRB      SPACE  4,15
00892  M01S00645.qdsplay +++|**        SRB - SKIP RECORDS BACKWARD.
00893  M01S00646.qdsplay +++|*
00894  M01S00647.qdsplay +++|*         *SRB* SKIP RECORDS BACKWARD.
00895  M01S00648.qdsplay +++|*
00896  M01S00649.qdsplay +++|*         EXIT   (X2) = FET ADDRESS OF QUEUED FILE, IF FILE STATUS IS
00897  M01S00650.qdsplay +++|*                NOT BOI.
00898  M01S00651.qdsplay +++|*                (X2) = 0, IF FILE STATUS IS BOI.
00899  M01S00652.qdsplay +++|*
00900  M01S00653.qdsplay +++|*         USES   X - 0, 1, 2, 3, 4, 6.
00901  M01S00654.qdsplay +++|*                A - 1, 3, 6.
00902  M01S00655.qdsplay +++|*                B - 2.
00903  M01S00656.qdsplay +++|*
00904  M01S00657.qdsplay +++|*         CALLS  RNR.
00905  M01S00658.qdsplay +++|*
00906  M01S00659.qdsplay +++|*         MACROS SKIPB.
00907  M01S00660.qdsplay +++|
00908  M01S00661.qdsplay +++|
00909  M01S00662.qdsplay +++| SRB      SUBR               ENTRY/EXIT
00910  M01S00663.qdsplay +++|          SA3    STAT        GET FILE STATUS
00911  M01S00664.qdsplay +++|          SB2    B0+         NO ERROR
00912  M01S00665.qdsplay +++|          SX2    X3-SBOI
00913  M01S00666.qdsplay +++|          ZR     X2,SRBX     IF FILE DISPLAY IS AT BOI
00914  M01S00667.qdsplay +++|          SX6    QBUF        SET *IN* = *OUT* = *FIRST* (EMPTY BUFFER)
00915  M01S00668.qdsplay +++|          SA6    Q+2
00916  M01S00669.qdsplay +++|          SA1    SCNT        GET SKIP COUNT
00917  M01S00670.qdsplay +++|          SA6    Q+3
00918  M01S00671.qdsplay +++|          SX4    X3-SEOF
00919  M01S00672.qdsplay +++|          SX2    X3-SBOR
00920  M01S00673.qdsplay +++|          ZR     X4,SRB1     IF FILE DISPLAY AT EOF
00921  M01S00674.qdsplay +++|          NZ     X2,SRB2     IF FILE DISPLAY NOT AT BOR
00922  M01S00675.qdsplay +++| SRB1     SX4    X1+B1
00923  M01S00676.qdsplay +++|          NG     X4,SRB2     IF FILE COUNT ALREADY AT MAXIMUM
00924  M01S00677.qdsplay +++|          SX1    X1+B1       SKIP EXTRA RECORD
00925  M01S00678.qdsplay +++| SRB2     SKIPB  Q,X1,R
00926  M01S00679.qdsplay +++|          SA3    X2
00927  M01S00680.qdsplay +++|          MX0    -6
00928  M01S00681.qdsplay +++|          AX3    3
00929  M01S00682.qdsplay +++|          BX1    -X0*X3
00930  M01S00683.qdsplay +++|          SX1    X1-5
00931  M01S00684.qdsplay +++|          SX6    SBOI
00932  M01S00685.qdsplay +++|          ZR     X1,SRB3     IF FILE IS AT BOI
00933  M01S00686.qdsplay +++|          SX6    SBOR        BEGINNING RECORD STATUS
00934  M01S00687.qdsplay +++| SRB3     RJ     RNR         READ NEW RECORD
00935  M01S00688.qdsplay +++|          EQ     SRBX        RETURN
00936  M01S00689.qdsplay +++| SRF      SPACE  4,15
00937  M01S00690.qdsplay +++|**        SRF - SKIP RECORDS FORWARD.
00938  M01S00691.qdsplay +++|*
00939  M01S00692.qdsplay +++|*         *SRF* SKIPS RECORDS FORWARD.
00940  M01S00693.qdsplay +++|*
00941  M01S00694.qdsplay +++|*         EXIT   (X2) = 0, IF STATUS = EOI.
00942  M01S00695.qdsplay +++|*                (B2) = 0, IF STATUS = EOI.
00943  M01S00696.qdsplay +++|*                (X2) = FET ADDRESS OF QUEUED FILE, IF STATUS NOT EOI.
00944  M01S00697.qdsplay +++|*
00945  M01S00698.qdsplay +++|*         USES   X - 1, 2, 3, 4, 6.
00946  M01S00699.qdsplay +++|*                A - 1, 3, 4, 6.
00947  M01S00700.qdsplay +++|*                B - 2, 3.
00948  M01S00701.qdsplay +++|*
00949  M01S00702.qdsplay +++|*         CALLS  RNR.
00950  M01S00703.qdsplay +++|*
00951  M01S00704.qdsplay +++|*         MACROS SKIPF.
00952  M01S00705.qdsplay +++|
00953  M01S00706.qdsplay +++|
00954  M01S00707.qdsplay +++| SRF      SUBR               ENTRY/EXIT
00955  M01S00708.qdsplay +++|          SA3    STAT        GET STATUS
00956  M01S00709.qdsplay +++|          SX2    B0          DISPLAY WILL NOT BE REBUILT
00957  M01S00710.qdsplay +++|          SB2    B0          NO ERROR
00958  M01S00711.qdsplay +++|          SB3    X3-SEOI
00959  M01S00712.qdsplay +++|          ZR     B3,SRFX     IF STATUS IS EOI
00960  M01S00713.qdsplay +++|          SX6    QBUF        SET *IN* = *OUT* = *FIRST* (EMPTY BUFFER)
00961  M01S00714.qdsplay +++|          SA6    Q+2
00962  M01S00715.qdsplay +++|          SA6    A6+B1
00963  M01S00716.qdsplay +++|          SA1    SCNT        GET SKIP COUNT
00964  M01S00717.qdsplay +++|          BX3    X1
00965  M01S00718.qdsplay +++|          LX3    59-17
00966  M01S00719.qdsplay +++|          SA4    Q
00967  M01S00720.qdsplay +++|          LX4    59-4
00968  M01S00721.qdsplay +++|          NG     X3,SRF1     IF SKIP COUNT = 777777B (* OPTION)
00969  M01S00722.qdsplay +++|          PL     X4,SRF1     IF NOT EOR/EOF/EOI IN FET
00970  M01S00723.qdsplay +++|          SX1    X1-1        DECREMENT SKIP COUNT
00971  M01S00724.qdsplay +++|          ZR     X1,SRF2     IF SKIP COUNT = 0
00972  M01S00725.qdsplay +++| SRF1     SKIPF  Q,X1,R      SKIP RECORDS
00973  M01S00726.qdsplay +++| SRF2     SX6    SBOR        BEGINNING OF RECORD STATUS
00974  M01S00727.qdsplay +++|          RJ     RNR         READ NEW RECORD
00975  M01S00728.qdsplay +++|          EQ     SRFX        RETURN
00976  M01S00729.qdsplay +++| SSP      SPACE  4,10
00977  M01S00730.qdsplay +++|**        SSP - *SYSTEM SECTOR* FUNCTION PROCESSOR.
00978  M01S00731.qdsplay +++|*
00979  M01S00732.qdsplay +++|*         *SSP* DISPLAYS THE SYSTEM SECTOR PORTION OF THE QUEUED FILE.
00980  M01S00733.qdsplay +++|*
00981  M01S00734.qdsplay +++|*         EXIT   (X2) = FET ADDRESS FOR SYSTEM SECTOR BUFFER.
00982  M01S00735.qdsplay +++|*
00983  M01S00736.qdsplay +++|*         USES   X - 1, 2, 6, 7.
00984  M01S00737.qdsplay +++|*                A - 1, 6, 7.
00985  M01S00738.qdsplay +++|*                B - 3.
00986  M01S00739.qdsplay +++|
00987  M01S00740.qdsplay +++|
00988  M01S00741.qdsplay +++| SSP      SUBR               ENTRY/EXIT.
00989  M01S00742.qdsplay +++|          SX6    SBUF
00990  M01S00743.qdsplay +++|          SA6    S+3         SET *OUT* = *FIRST*
00991  M01S00744.qdsplay +++|          SX7    SBUF+77B
00992  M01S00745.qdsplay +++|          SA1    STAT        GET FILE STATUS
00993  M01S00746.qdsplay +++|          SA7    A6-B1       SET *IN*
00994  M01S00747.qdsplay +++|          SB3    X1
00995  M01S00748.qdsplay +++|          SX7    SSYS        SET *SS* FILE STATUS
00996  M01S00749.qdsplay +++|          BX6    X1          SET PREVIOUS FILE STATUS
00997  M01S00750.qdsplay +++|          SA7    A1
00998  M01S00751.qdsplay +++|          SX2    S
00999  M01S00752.qdsplay +++|          LE     B3,B1,SSPX  IF *SS* OR *HELP* STATUS
01000  M01S00753.qdsplay +++|          SA6    PSTT
01001  M01S00754.qdsplay +++|          EQ     SSPX        RETURN
01002  M01S00755.qdsplay +++| TOG      SPACE  4,15
01003  M01S00756.qdsplay +++|**        TOG - TOGGLE BACK TO FILE DISPLAY.
01004  M01S00757.qdsplay +++|*
01005  M01S00758.qdsplay +++|*         *TOG* - TOGGLES THE DISPLAY TO THE PREVIOUS FILE DISPLAY
01006  M01S00759.qdsplay +++|*         IF *HELP* OR *SYSTEM SECTOR* IS CURRENTLY BEING DISPLAYED.
01007  M01S00760.qdsplay +++|*
01008  M01S00761.qdsplay +++|*         EXIT   (B2) = 0 (NO ERROR).
01009  M01S00762.qdsplay +++|*                (X2) = 0, IF FILE STATUS IS NOT *SS* OR *HELP*.
01010  M01S00763.qdsplay +++|*                (X2) = FET ADDRESS OF QUEUED FILE IF FILE STATUS IS
01011  M01S00764.qdsplay +++|*                *SS* OR *HELP*.
01012  M01S00765.qdsplay +++|*
01013  M01S00766.qdsplay +++|*         USES   X - 1, 2, 3, 6.
01014  M01S00767.qdsplay +++|*                A - 1, 3, 6.
01015  M01S00768.qdsplay +++|*                B - 2, 3.
01016  M01S00769.qdsplay +++|
01017  M01S00770.qdsplay +++|
01018  M01S00771.qdsplay +++| TOG      SUBR               ENTRY/EXIT
01019  M01S00772.qdsplay +++|          SA1    STAT        GET FILE STATUS
01020  M01S00773.qdsplay +++|          SB3    X1
01021  M01S00774.qdsplay +++|          SB2    B0          NO ERROR
01022  M01S00775.qdsplay +++|          SA3    PSTT        GET PREVIOUS STATUS
01023  M01S00776.qdsplay +++|          SX2    B0          DISPLAY WILL NOT BE REBUILT
01024  M01S00777.qdsplay +++|          BX6    X3          SET PREVIOUS FILE STATUS
01025  M01S00778.qdsplay +++|          GT     B3,B1,TOGX  IF NOT *SS* OR *HELP* STATUS
01026  M01S00779.qdsplay +++|          SX2    Q
Line S00780 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01027  M02S00780.241l630 ---|          SA6    A1
01028  M01S00213.241l630 +++|          SA6    A1+
01029  M01S00781.qdsplay +++|          EQ     TOGX        RETURN
01030  M01S00782.qdsplay +++|          TITLE  SUBROUTINES.
01031  M01S00783.qdsplay +++| BLD      SPACE  4,15
01032  M01S00784.qdsplay +++|**        BLD - BUILD *L* DISPLAY DATA.
01033  M01S00785.qdsplay +++|*
01034  M01S00786.qdsplay +++|*         *BLD* BUILDS THE *L* DISPLAY FOR QUEUED FILE OR
01035  M01S00787.qdsplay +++|*         SYSTEM SECTOR DATA.
01036  M01S00788.qdsplay +++|*
01037  M01S00789.qdsplay +++|*         ENTRY  (X2) = FET ADDRESS.
01038  M01S00214.241l630 +++|*                (B2) = MESSAGE ADDRESS.
01039  M01S00790.qdsplay +++|*
Line S00791 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01040  M02S00791.241l630 ---|*         USES   X - 1, 2, 3, 4, 6, 7.
01041  M01S00215.241l630 +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
01042  M01S00792.qdsplay +++|*                A - 1, 2, 3, 4, 6, 7.
Line S00793 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01043  M02S00793.241l630 ---|*                B - 3, 4, 5.
Line S00794 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01044  M02S00794.241l630 ---|*
Line S00795 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01045  M02S00795.241l630 ---|*         CALLS  EFP, FLD, FOD, RQF, TLD, TOD.
01046  M01S00216.241l630 +++|*                B - 2, 3, 4, 6.
01047  M01S00217.241l630 +++|*
Line S00218 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00218.qdsp3   ---|*         CALLS  COI, FLB, FOD, RQF, TLD, TOD.
01049  M01S00015.qdsp3   +++|*         CALLS  COI, FLB, FOD, RQF, TLD.
01050  M01S00219.241l630 +++|*
01051  M01S00220.241l630 +++|*         MACROS MOVE.
01052  M01S00796.qdsplay +++|
01053  M01S00797.qdsplay +++|
Line S00798 Modification History
M01 (Added by) qdsplay
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00798.qdsp3   ---| BLD1     RJ     TOD         TRANSFER OCTAL DATA
Line S00799 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
M03 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
01055  M03S00799.qdsp3   ---|          SB5    FOD         FORMAT OCTAL DATA
Line S00800 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
M03 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
01056  M03S00800.qdsp3   ---| BLD2     SA1    STAT
Line S00221 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00221.qdsp3   ---|          RJ     FOD         FORMAT OCTAL DATA
01058  M01S00016.qdsp3   +++| BLD1     RJ     FOD         FORMAT OCTAL DATA
01059  M01S00222.241l630 +++| BLD2     BX5    X6          SAVE FILE STATUS
01060  M01S00223.241l630 +++|          SA2    BLDA        GET MESSAGE ORDINAL
01061  M01S00224.241l630 +++|          SX2    TMLD+X2     SET MESSAGE ADDRESS
01062  M01S00225.241l630 +++|          MOVE   ERML,X2,B6  SET MESSAGE IN MESSAGE LINE
01063  M01S00226.241l630 +++|          RJ     COI         CONVERT OPERATOR INPUT
01064  M01S00227.241l630 +++|          SX2    IBUF        ECHO INPUT
01065  M01S00228.241l630 +++|          MOVE   LCOMU,X2,B6+ERML
01066  M01S00229.241l630 +++|          SB6    B6+ERML+LCOMU  RESET LWA OF WORKING BUFFER
01067  M01S00230.241l630 +++|          BX6    X5          RESTORE FILE STATUS
01068  M01S00231.241l630 +++|          SA1    STAT        GET LAST FILE STATUS
01069  M01S00801.qdsplay +++|          SB4    X6-SEOI
01070  M01S00802.qdsplay +++|          SB3    X1+
01071  M01S00803.qdsplay +++|          EQ     B3,B1,BLD4  IF *SS* STATUS
01072  M01S00804.qdsplay +++|          NG     B4,BLD4     IF NOT EOR/EOF/EOI ENCOUNTERED
01073  M01S00805.qdsplay +++|          LE     B4,B1,BLD3  IF EOF/EOI ENCOUNTERED
01074  M01S00806.qdsplay +++|          SB4    SBOR
01075  M01S00807.qdsplay +++|          GT     B3,B4,BLD3  IF NOT AT BOI/BOR
01076  M01S00808.qdsplay +++|          SA1    ERIB
01077  M01S00809.qdsplay +++|          NZ     X1,BLD4     IF ENTIRE RECORD IN BUFFER
01078  M01S00810.qdsplay +++| BLD3     SA6    STAT        SAVE FILE STATUS
Line S00811 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01079  M02S00811.241l630 ---| BLD4     RJ     EFP         FORMAT OCTAL/LINE DATA
01080  M01S00232.241l630 +++| BLD4     SA1    STAT        GET FILE STATUS
01081  M01S00233.241l630 +++|          SA1    TVST+X1     SET STATUS IN HEADER
01082  M01S00234.241l630 +++|          BX6    X1
Line S00235 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00235.qdsp3   ---|          SA6    WBHR+4
01084  M01S00017.qdsp3   +++|          SA6    WBHR+5
01085  M01S00236.241l630 +++|          SX1    WBHR        FWA OF DATA TO FORMAT
01086  M01S00237.241l630 +++|          SX6    B6-B1       LWA DATA TO FORMAT
01087  M01S00238.241l630 +++|          MX2    0           INDICATE *L* DISPLAY
01088  M01S00239.241l630 +++|          SX3    B1+         SET MODE FOR *FLB*
01089  M01S00240.241l630 +++|          SB2    LBUF        FWA *L* DISPLAY BUFFER
01090  M01S00241.241l630 +++|          SB3    XCDT        X - COORDINATE OF DISPLAY
01091  M01S00242.241l630 +++|          SB4    YCDT        Y - COORDINATE OF DISPLAY
01092  M01S00243.241l630 +++|          SB6    LBUF+LBUFL  LWA+1 *L* DISPLAY BUFFER
01093  M01S00244.241l630 +++|          RJ     FLB         FORMAT DATA FOR *L* DISPLAY
01094  M01S00812.qdsplay +++|          SA2    FETA        GET FET ADDRESS
01095  M01S00813.qdsplay +++|          SA1    X2-2        GET PREVIOUS *IN*
01096  M01S00814.qdsplay +++|          SA3    X2+2        GET CURRENT *IN*
01097  M01S00815.qdsplay +++|          BX6    X1
01098  M01S00816.qdsplay +++|          LX7    X3
01099  M01S00817.qdsplay +++|          SA6    A3          SWITCH *IN* POINTERS
01100  M01S00818.qdsplay +++|          SA7    A1
01101  M01S00819.qdsplay +++|          SA1    A1+B1       GET PREVIOUS *OUT*
01102  M01S00820.qdsplay +++|          SA3    A3+B1       GET CURRENT *OUT*
01103  M01S00821.qdsplay +++|          BX6    X1
01104  M01S00822.qdsplay +++|          LX7    X3
01105  M01S00823.qdsplay +++|          SA6    A3          SWITCH *OUT* POINTERS
01106  M01S00824.qdsplay +++|          SA7    A1
01107  M01S00825.qdsplay +++|
01108  M01S00826.qdsplay +++| BLD      SUBR               ENTRY/EXIT
01109  M01S00245.241l630 +++|          SX6    B2+         SAVE MESSAGE ORDINAL
01110  M01S00246.241l630 +++|          SA6    BLDA
01111  M01S00827.qdsplay +++|          RJ     RQF         READ QUEUED FILE TO BUFFER AHEAD
01112  M01S00828.qdsplay +++|          BX7    X2          SAVE FET ADDRESS
01113  M01S00829.qdsplay +++|          SA3    X2+2        GET *IN*
01114  M01S00830.qdsplay +++|          BX6    X3
01115  M01S00831.qdsplay +++|          SA7    FETA
01116  M01S00832.qdsplay +++|          SA4    A3+B1       GET *OUT*
01117  M01S00833.qdsplay +++|          BX7    X4
01118  M01S00834.qdsplay +++|          SA6    X2-2        SAVE PREVIOUS *IN*
01119  M01S00835.qdsplay +++|          SA1    STAT        GET FILE STATUS
01120  M01S00836.qdsplay +++|          SA7    A6+B1       SAVE PREVIOUS *OUT*
01121  M01S00837.qdsplay +++|          SB3    X1
01122  M01S00838.qdsplay +++|          EQ     B3,B1,BLD1  IF STATUS IS *SS*
01123  M01S00839.qdsplay +++|          SA3    MODE
01124  M01S00840.qdsplay +++|          NZ     X3,BLD1     IF IN OCTAL MODE
01125  M01S00841.qdsplay +++|          RJ     TLD         TRANSFER LINES OF DATA
Line S00842 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01126  M02S00842.241l630 ---|          SB5    FLD         FORMAT LINE DATA
01127  M01S00843.qdsplay +++|          EQ     BLD2        UPDATE FILE STATUS
01128  M01S00247.241l630 +++|
01129  M01S00248.241l630 +++|
01130  M01S00249.241l630 +++| BLDA     BSS    1           MESSAGE ORDINAL IN TABLE
01131  M01S00844.qdsplay +++| CMP      SPACE  4,15
01132  M01S00845.qdsplay +++|**        CMP - COMMAND FUNCTION PROCESSOR.
01133  M01S00846.qdsplay +++|*
01134  M01S00847.qdsplay +++|*         *CMP* PROCESSES EACH INPUT DIRECTIVE AND SETS SKIP COUNTS.
01135  M01S00848.qdsplay +++|*
01136  M01S00849.qdsplay +++|*         EXIT   (B5) = ADDRESS OF FUNCTION PROCESSOR, IF NO ERROR.
01137  M01S00850.qdsplay +++|*                (B2) = 0, IF NO ERROR IN DIRECTIVE INPUT.
01138  M01S00851.qdsplay +++|*                (B2) = ERROR MESSAGE ADDRESS, IF ERROR.
01139  M01S00852.qdsplay +++|*
Line S00853 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01140  M02S00853.241l630 ---|*         USES   X - ALL.
Line S00854 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01141  M02S00854.241l630 ---|*                A - 1, 2, 3, 4, 5, 6.
Line S00855 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01142  M02S00855.241l630 ---|*                B - 2, 4, 5, 6, 7.
Line S00856 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01143  M02S00856.241l630 ---|*
Line S00857 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01144  M02S00857.241l630 ---|*         CALLS  DXB, UPC.
01145  M01S00250.241l630 +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
01146  M01S00251.241l630 +++|*                A - 1, 3, 4, 6.
01147  M01S00252.241l630 +++|*                B - 2, 3, 4, 5, 6, 7.
01148  M01S00253.241l630 +++|*
01149  M01S00254.241l630 +++|*         CALLS  DXB, PGD, POP, USB.
01150  M01S00858.qdsplay +++|
01151  M01S00859.qdsplay +++|
Line S00860 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00860.241l630 ---| CMP3     AX5    6
Line S00861 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00861.241l630 ---|          NZ     X5,CMPX     IF EXCESS PARAMETER AFTER *+*
Line S00862 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01154  M02S00862.241l630 ---|          SB2    B0
Line S00863 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01155  M02S00863.241l630 ---|
01156  M01S00255.241l630 +++| CMP6     SB5    B4+         SET PROCESSOR ADDRESS
01157  M01S00256.241l630 +++|
01158  M01S00864.qdsplay +++| CMP      SUBR               ENTRY/EXIT
Line S00865 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01159  M02S00865.241l630 ---|          SA5    IBUF        GET INPUT DIRECTIVE
Line S00866 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01160  M02S00866.241l630 ---|          SB7    CBUF        ADDRESS OF FIRST PARAMETER
Line S00867 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01161  M02S00867.241l630 ---|          RJ     UPC         UNPACK CONTROL CARD
Line S00868 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01162  M02S00868.241l630 ---|          SB2    EEPS        *EXCESS PARAMETERS ON DIRECTIVE.*
Line S00869 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01163  M02S00869.241l630 ---|          SB5    B1+B1
Line S00870 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01164  M02S00870.241l630 ---|          MX0    36          CHECK COMMAND NAME
Line S00871 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01165  M02S00871.241l630 ---|          GT     B6,B5,CMPX  IF MORE THAN 2 PARAMETERS
Line S00872 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01166  M02S00872.241l630 ---|          SA1    TCOM        READ TABLE OF COMMANDS
Line S00873 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01167  M02S00873.241l630 ---|          SA2    CBUF        FIRST PARAMETER
Line S00874 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01168  M02S00874.241l630 ---|          SX3    1R+
Line S00875 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01169  M02S00875.241l630 ---|          IX3    X2-X3
Line S00876 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01170  M02S00876.241l630 ---|          SA5    A2+B1       GET NEXT PARAMETER
Line S00877 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01171  M02S00877.241l630 ---|          SB5    X1          SAVE ADDRESS OF ROUTINE
Line S00878 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01172  M02S00878.241l630 ---|          SX6    B1          SAVE SKIP COUNT
Line S00879 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01173  M02S00879.241l630 ---|          ZR     X3,CMP3     IF DIRECTIVE IS A *+*
Line S00880 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01174  M02S00880.241l630 ---|          SB2    EUND        *UNRECOGNIZABLE DIRECTIVE.*
Line S00881 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01175  M02S00881.241l630 ---| CMP1     SA1    A1+B1       READ NEXT ENTRY IN COMMAND TABLE
01176  M01S00257.241l630 +++|          SA1    STAT        CHECK IF HELP STATUS
01177  M01S00258.241l630 +++|          SB2    SHLP
01178  M01S00259.241l630 +++|          SB4    X1+
01179  M01S00260.241l630 +++|          NE     B2,B4,CMP1  IF NOT HELP STATUS
01180  M01S00261.241l630 +++|
01181  M01S00262.241l630 +++|*         CHECK FOR PAGING COMMAND.
01182  M01S00263.241l630 +++|
01183  M01S00264.241l630 +++|          SX1    CLDF        POINTER TO FWA *L* DISPLAY
01184  M01S00265.241l630 +++|          SX2    CMPA        PAGE TABLE
01185  M01S00266.241l630 +++|          MX0    6           MASK FOR PAGING CHARACTER
01186  M01S00267.241l630 +++|          SA3    IBUF        COMMAND BUFFER
01187  M01S00268.241l630 +++|          BX3    X0*X3       GET PAGING CHARACTER
01188  M01S00269.241l630 +++|          SX4    B1+         INDICATE *L* DISPLAY
01189  M01S00270.241l630 +++|          RJ     PGD         PAGE *L* DISPLAY
01190  M01S00271.241l630 +++|          NZ     X4,CMP1     IF ILLEGAL PAGING
01191  M01S00272.241l630 +++|          SB2    B0+         INDICATE NO ERROR
01192  M01S00273.241l630 +++|          SB5    HLP         PAGE HELP DISPLAY
01193  M01S00274.241l630 +++|          EQ     CMPX        RETURN
01194  M01S00275.241l630 +++|
01195  M01S00276.241l630 +++|*         CHECK FOR NON HELP PAGING COMMAND.
01196  M01S00277.241l630 +++|
01197  M01S00278.241l630 +++| CMP1     SB2    IBUF        *L* DISPLAY INPUT DIRECTIVE
01198  M01S00279.241l630 +++|          SB3    B0+         SET DISPLAY CODE FOR *USB*
01199  M01S00280.241l630 +++|          RJ     USB         UNPACK STRING BUFFER
01200  M01S00281.241l630 +++|          RJ     POP         GET FIRST PARAMETER
01201  M01S00282.241l630 +++|          BX2    X1          SEPARATOR
01202  M01S00283.241l630 +++|          SB2    EUND        *UNRECOGNIZABLE DIRECTIVE.*
01203  M01S00284.241l630 +++|          MX0    36          COMMAND MASK
01204  M01S00285.241l630 +++|          SA1    TCOM        TABLE OF COMMANDS
01205  M01S00286.241l630 +++|          NZ     X6,CMP2     IF PARAMETER - NOT PAGING COMMAND
01206  M01S00002.qdsp2   +++|          SB2    EVOH
01207  M01S00003.qdsp2   +++|          SX3    1R-
01208  M01S00004.qdsp2   +++|          IX3    X3-X2
01209  M01S00005.qdsp2   +++|          ZR     X3,CMPX     IF MINUS SIGN ENTERED
01210  M01S00006.qdsp2   +++|          SB2    EUND        RESET ERROR MESSAGE
01211  M01S00287.241l630 +++|          SX3    1R+         CHECK FOR PAGING COMMAND
01212  M01S00288.241l630 +++|          IX3    X3-X2
01213  M01S00289.241l630 +++|          NZ     X3,CMPX     IF NOT *+*
01214  M01S00290.241l630 +++|          SB5    X1          SET PROCESSOR ADDRESS
01215  M01S00291.241l630 +++|          SB2    B0          INDICATE NO ERROR
01216  M01S00292.241l630 +++|          EQ     CMPX        RETURN
01217  M01S00293.241l630 +++|
01218  M01S00294.241l630 +++|*         CHECK FOR REMAINING COMMANDS.
01219  M01S00295.241l630 +++|
01220  M01S00296.241l630 +++| CMP2     SA1    A1+B1       READ NEXT ENTRY IN COMMAND TABLE
Line S00882 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01221  M02S00882.v23l617 ---|          ZR     X1,CMPX     IF END OF TABLE (ILLEGAL COMMAND)
01222  M01S00009.v23l617 +++|          ZR     X1,CMPX     IF END OF TABLE (INCORRECT COMMAND)
Line S00883 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01223  M02S00883.241l630 ---|          BX3    X1-X2
01224  M01S00297.241l630 +++|          BX3    X1-X6
01225  M01S00884.qdsplay +++|          BX3    X0*X3
Line S00885 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01226  M02S00885.241l630 ---|          NZ     X3,CMP1     IF MATCH NOT FOUND
01227  M01S00298.241l630 +++|          NZ     X3,CMP2     IF MATCH NOT FOUND
01228  M01S00299.241l630 +++|          BX6    X1          SAVE TABLE ENTRY
01229  M01S00300.241l630 +++|          SA6    CMPB
01230  M01S00886.qdsplay +++|          SB2    B0          NO ERROR
Line S00887 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01231  M02S00887.241l630 ---|          SB5    X1+         SAVE ADDRESS OF ROUTINE FROM TABLE
01232  M01S00301.241l630 +++|          SB4    X1          SAVE ADDRESS OF ROUTINE FROM TABLE
01233  M01S00888.qdsplay +++|          LX1    0-18
01234  M01S00302.241l630 +++|          SX6    B1+         SAVE SKIP COUNT
01235  M01S00889.qdsplay +++|          BX6    X6*X1
01236  M01S00890.qdsplay +++|          SA6    SCNT
Line S00891 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01237  M02S00891.241l630 ---|          SX7    B6-B1
Line S00892 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01238  M02S00892.241l630 ---|          IX2    X6+X7
01239  M01S00303.241l630 +++|          ZR     B6,CMP6     IF NO MORE PARAMETERS
01240  M01S00304.241l630 +++|          LT     B5,CMP6     IF PARAMETER BUFFER NOT EXHAUSTED
01241  M01S00305.241l630 +++|
01242  M01S00306.241l630 +++|*         CHECK FOR SECOND PARAMETER.
01243  M01S00307.241l630 +++|
Line S00308 Modification History
M01 (Added by) 241l630
M02 (Updated by) qdsp3
Seq #  *Modification Id* Act 
----------------------------+
01244  M02S00308.qdsp3   ---| CMP3     SX5    B4+         SAVE ADDRESS OF ROUTINE FROM TABLE
01245  M01S00018.qdsp3   +++|          SX5    B4+         SAVE ADDRESS OF ROUTINE FROM TABLE
01246  M01S00309.241l630 +++|          RJ     POP         GET SECOND PARAMETER
01247  M01S00310.241l630 +++|          SB5    X5          RESTORE ADDRESS OF ROUTINE FROM TABLE
01248  M01S00311.241l630 +++|          SA1    SCNT        GET SKIP COUNT
01249  M01S00312.241l630 +++|          IX2    X6+X1
01250  M01S00893.qdsplay +++|          ZR     X2,CMPX     IF NO SECOND PARAMETER AND NOT SKIP
01251  M01S00894.qdsplay +++|
01252  M01S00895.qdsplay +++|*         PROCESS SECOND PARAMETER.
01253  M01S00896.qdsplay +++|
01254  M01S00897.qdsplay +++|          SB2    EEPS        *EXCESS PARAMETER ON DIRECTIVE.*
Line S00898 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01255  M02S00898.241l630 ---|          ZR     X6,CMPX     IF SECOND PARAMETER BUT NOT SKIP COMMAND
Line S00899 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01256  M02S00899.241l630 ---|          SB2    EDNA        *DIRECTIVE NOT ALLOWED.*
01257  M01S00313.241l630 +++|          NZ     X1,CMP4     IF SKIP COMMAND
01258  M01S00314.241l630 +++|          NZ     X6,CMPX     IF SECOND PARAMETER AND NOT SKIP COMMAND
01259  M01S00315.241l630 +++| CMP4     SB2    EDNA        *DIRECTIVE NOT ALLOWED.*
01260  M01S00900.qdsplay +++|          SA4    STAT
01261  M01S00901.qdsplay +++|          SA3    MODE
01262  M01S00902.qdsplay +++|          SX2    1R*
01263  M01S00903.qdsplay +++|          SB4    X4
01264  M01S00904.qdsplay +++|          LX2    -6
01265  M01S00905.qdsplay +++|          LE     B4,B1,CMPX  IF *SS* OR *HELP* STATUS
01266  M01S00906.qdsplay +++|          NZ     X3,CMPX     IF OCTAL MODE
01267  M01S00907.qdsplay +++|          SB2    B0
Line S00908 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01268  M02S00908.241l630 ---|          ZR     X7,CMPX     IF NO SECOND PARAMETER ON SKIP
Line S00909 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01269  M02S00909.241l630 ---|          BX2    X5-X2
01270  M01S00316.241l630 +++|          MX0    36          MASK FOR PARAMETER
01271  M01S00317.241l630 +++|          ZR     X6,CMPX     IF NO SECOND PARAMETER ON SKIP
01272  M01S00318.241l630 +++|          BX2    X6-X2
01273  M01S00910.qdsplay +++|          BX2    X0*X2
Line S00911 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01274  M02S00911.241l630 ---|          ZR     X2,CMP2     IF ASTERISK IN SKIP COUNT
01275  M01S00319.241l630 +++|          ZR     X2,CMP5     IF ASTERISK IN SKIP COUNT
01276  M01S00912.qdsplay +++|          SB6    B5          SAVE FUNCTION ROUTINE ADDRESS
Line S00913 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01277  M02S00913.241l630 ---|          SB7    B1
01278  M01S00320.241l630 +++|          SB7    B1
01279  M01S00321.241l630 +++|          BX5    X6          SET WORD TO CONVERT
01280  M01S00914.qdsplay +++|          RJ     DXB         CONVERT TO BINARY
01281  M01S00915.qdsplay +++|          SB5    B6          RESTORE FUNCTION ROUTINE ADDRESS
Line S00916 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01282  M02S00916.v23l617 ---|          SB2    EISC        *INVALID SKIP COUNT.*
01283  M01S00010.v23l617 +++|          SB2    EISC        *INCORRECT SKIP COUNT.*
01284  M01S00917.qdsplay +++|          MX0    43
01285  M01S00918.qdsplay +++|          NZ     X4,CMPX     IF ERROR
01286  M01S00919.qdsplay +++|          ZR     X6,CMPX     IF ZERO SKIP COUNT
01287  M01S00920.qdsplay +++|          BX3    X0*X6
01288  M01S00921.qdsplay +++|          NZ     X3,CMPX     IF SKIP COUNT EXCEEDS 377777B
01289  M01S00922.qdsplay +++|          SB2    B0          NO ERROR
01290  M01S00923.qdsplay +++|          SA6    SCNT        SAVE SKIP COUNT
01291  M01S00924.qdsplay +++|          EQ     CMPX        EXIT
01292  M01S00925.qdsplay +++|
Line S00926 Modification History
M01 (Added by) qdsplay
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01293  M02S00926.241l630 ---| CMP2     LX1    59-19-0+18
01294  M01S00322.241l630 +++| CMP5     SA1    CMPB        GET COMMAND TABLE ENTRY BACK
01295  M01S00323.241l630 +++|          LX1    59-19
01296  M01S00927.qdsplay +++|          MX6    18
01297  M01S00928.qdsplay +++|          LX6    18
01298  M01S00929.qdsplay +++|          SA6    SCNT
01299  M01S00930.qdsplay +++|          NG     X1,CMPX     IF SKIP DIRECTIVE ALLOWS ASTERISK
Line S00931 Modification History
M01 (Added by) qdsplay
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01300  M02S00931.v23l617 ---|          SB2    EISC        *INVALID SKIP COUNT.*
01301  M01S00011.v23l617 +++|          SB2    EISC        *INCORRECT SKIP COUNT.*
01302  M01S00932.qdsplay +++|          EQ     CMPX        EXIT
01303  M01S00324.241l630 +++| CMPA     SPACE  4,5
01304  M01S00325.241l630 +++|**        CMPA - PAGE TABLE.
01305  M01S00326.241l630 +++|
01306  M01S00327.241l630 +++|
01307  M01S00328.241l630 +++| CMPA     PAGT   HLPA,HLMA,HLIA  LEFT SCREEN PAGE 1
01308  M01S00329.241l630 +++|          PAGT   HLPB,HLMB,HLIB  LEFT SCREEN PAGE 2
01309  M01S00330.241l630 +++|          PAGT   *
01310  M01S00331.241l630 +++|
01311  M01S00332.241l630 +++| PGD      HERE               REMOTE BLOCK FROM *COMCDCP*
01312  M01S00333.241l630 +++| CMPB     BSS    1           COMMAND TABLE ENTRY
01313  M01S00933.qdsplay +++| TCOM     SPACE  4,10
01314  M01S00934.qdsplay +++|**        TCOM - TABLE OF COMMANDS.
01315  M01S00935.qdsplay +++|*
01316  M01S00936.qdsplay +++|*T,       36/ COMMAND,4/0,1/A,1/SK,18/ADDR
Figure

017181920232429ADDRSKA0 COMMAND3059 COMMAND

01317  M01S00937.qdsplay +++|*
01318  M01S00938.qdsplay +++|*         (A) = 1, IF ASTERISK ALLOWED AS SECOND PARAMETER.
01319  M01S00939.qdsplay +++|*
01320  M01S00940.qdsplay +++|*         (SK) = 1, IF SKIP COUNT ALLOWED.
01321  M01S00941.qdsplay +++|*
01322  M01S00942.qdsplay +++|*         ADDR = ADDRESS OF ROUTINE FOR COMMAND.
01323  M01S00943.qdsplay +++|
01324  M01S00944.qdsplay +++|
01325  M01S00945.qdsplay +++| TCOM     BSS    0
01326  M01S00946.qdsplay +++|          VFD    36/1L+,6/0,18/ADV
01327  M01S00334.241l630 +++|          VFD    36/0LBACK,6/0,18/TOG
01328  M01S00947.qdsplay +++|          VFD    36/0LBOI,6/0,18/BOI
01329  M01S00948.qdsplay +++|          VFD    36/0LDAY,6/0,18/DAY
01330  M01S00949.qdsplay +++|          VFD    36/0LDROP,6/0,18/DRP
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/qdsplay.txt ยท Last modified: by 127.0.0.1