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
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
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* *
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
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 +++|*
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.*
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
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.
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)
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
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