User Tools

Site Tools


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

Deck QDUMP

17 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.qdump   +++|          IDENT  QDUMP1,OVLA,QDUMP,01,00
00002  M01S00002.qdump   +++|          ABS
00003  M01S00003.qdump   +++|          SST
00004  M01S00004.qdump   +++|          SYSCOM B1
00005  M01S00005.qdump   +++|*COMMENT  QDUMP - QUEUE DUMP PROCESSOR.
Line S00006 Modification History
M01 (Added by) qdump
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.qdump   +++|          TITLE  QDUMP - QUEUE DUMP PROCESSOR.
00009  M01S00008.qdump   +++|          SPACE  4
00010  M01S00009.qdump   +++|***       QDUMP - QUEUE DUMP PROCESSOR.
00011  M01S00010.qdump   +++|*         A. J. BEEKMAN.     76/03/11.
00012  M01S00011.qdump   +++|          SPACE  4
00013  M01S00012.qdump   +++|***       *QDUMP* IS A UTILITY PROGRAM THAT DUMPS SELECTED QUEUE
00014  M01S00013.qdump   +++|*         FILES FROM A SINGLE DEVICE, A FAMILY, OR ALL DEVICES TO
00015  M01S00014.qdump   +++|*         A SPECIFIED DUMP FILE, EITHER MAGNETIC TAPE OR MASS
00016  M01S00015.qdump   +++|*         STORAGE, AND PROVIDES A LIST OF ALL FILES DUMPED WITH
00017  M01S00016.qdump   +++|*         INFORMATION RELATIVE TO EACH.
00018  M01S00017.qdump   +++|          SPACE  4
00019  M01S00018.qdump   +++|***       *QDUMP* MAY BE CALLED FROM THE CONSOLE BY THE QUEUED FILE
Line S00019 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00019.v23l617 ---|*         SUPERVISOR PROGRAM (X.QFSP.) OR BY CONTROL STATEMENT.  AFTER
00021  M01S00001.v23l617 +++|*         SUPERVISOR PROGRAM (X.QFSP.) OR BY COMMAND.  AFTER
00022  M01S00020.qdump   +++|*         DUMPING QUEUED FILES, THE FILES THAT HAVE BEEN DUMPED MAY
00023  M01S00021.qdump   +++|*         BE PURGED USING THE QUEUE UTILITY *QREC* WITH THE SAME *K*
00024  M01S00022.qdump   +++|*         DISPLAY SELECTION PARAMETER VALUES.  TO PURGE INACTIVE FILES,
00025  M01S00023.qdump   +++|*         USE THE *PI* (PURGE AND IGNORE) OPTION.  TO PURGE ACTIVE
00026  M01S00024.qdump   +++|*         FILES, USE THE *DI* (DEACTIVATE AND IGNORE) OPTION, FOLLOWED
Line S00025 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00025.v23l617 ---|*         BY THE *PI* OPTION.  THE CONTROL STATEMENT FORMAT FOR
00028  M01S00002.v23l617 +++|*         BY THE *PI* OPTION.  THE COMMAND FORMAT FOR
00029  M01S00026.qdump   +++|*         *QDUMP* IS -
00030  M01S00027.qdump   +++|*
00031  M01S00028.qdump   +++|*         QDUMP(P1=A1,P2=A2,...,PN=AN)
00032  M01S00029.qdump   +++|*
00033  M01S00030.qdump   +++|*         WHERE P1 - PN ARE ANY OF THE FOLLOWING VALID PARAMETERS -
00034  M01S00031.qdump   +++|*
00035  M01S00032.qdump   +++|*         MI = MACHINE ID.
00036  M01S00033.qdump   +++|*
00037  M01S00034.qdump   +++|*         FM = FAMILY NAME TO DUMP FROM.
00038  M01S00035.qdump   +++|*
00039  M01S00036.qdump   +++|*         DN = DEVICE NUMBER (FAMILY MUST BE SPECIFIED FIRST).
00040  M01S00037.qdump   +++|*
00041  M01S00038.qdump   +++|*                THE FM AND DN PARAMETERS ARE USED TO DESCRIBE THE
00042  M01S00039.qdump   +++|*                FAMILY AND DEVICE OR SET OF FAMILIES OR DEVICES FROM
00043  M01S00040.qdump   +++|*                WHICH THE QUEUED FILES SHOULD BE DUMPED.  FM MAY BE
00044  M01S00041.qdump   +++|*                *ALL*, IN WHICH CASE DN MUST ALSO BE *ALL*.
00045  M01S00042.qdump   +++|*
00046  M01S00043.qdump   +++|*         FU = FAMILY NAME FOR USER INDEX.
00047  M01S00044.qdump   +++|*
00048  M01S00045.qdump   +++|*         UI = USER INDEX RANGE (0 - 377777B).
00049  M01S00046.qdump   +++|*
00050  M01S00047.qdump   +++|*                THE FU AND UI PARAMETERS DESCRIBE THE FAMILY AND USER
00051  M01S00048.qdump   +++|*                INDICIES OF THE QUEUED FILES WHICH ARE TO BE DUMPED.
00052  M01S00049.qdump   +++|*
00053  M01S00050.qdump   +++|*         DA = DUMP DATE RANGE.  FORM IS YYMMDD WHERE YY IS THE
00054  M01S00051.qdump   +++|*              YEAR, MM THE MONTH, AND DD THE DAY.  IT CAN ALSO BE
00055  M01S00052.qdump   +++|*              SPECIFIED AS ALL (DA=ALL) WHICH WILL SELECT ALL DATES.
00056  M01S00053.qdump   +++|*
00057  M01S00054.qdump   +++|*         FS = FILE SIZE RANGE IN PRUS (0-777777B).
00058  M01S00055.qdump   +++|*              IF 777777B IS SPECIFIED, ALL SIZES LARGER ARE INCLUDED.
00059  M01S00056.qdump   +++|*
00060  M01S00057.qdump   +++|*         JSN = JOB SEQUENCE NUMBERS OF FILES TO DUMP.  UP TO 5
00061  M01S00058.qdump   +++|*               ALLOWED.  IF PREVIOUSLY ENTERED, THE JSN WILL BE
00062  M01S00059.qdump   +++|*               CLEARED.
00063  M01S00060.qdump   +++|*
00064  M01S00061.qdump   +++|*         ID = ID RANGE OF BATCH AND SYSTEM ORIGIN FILES TO DUMP
00065  M01S00062.qdump   +++|*              (0 - 77B).
00066  M01S00001.ns22000 +++|*
00067  M01S00002.ns22000 +++|*         LA = LOWER SECURITY ACCESS LEVEL (1-7 CHARACTERS).
00068  M01S00003.ns22000 +++|*
00069  M01S00004.ns22000 +++|*         UA = UPPER SECURITY ACCESS LEVEL (1-7 CHARACTERS).
00070  M01S00063.qdump   +++|*
00071  M01S00064.qdump   +++|*         TUI= DESTINATION TUI OF REMOTE BATCH ORIGIN FILES TO DUMP.
00072  M01S00065.qdump   +++|*              TUI=0 IMPLIES DUMP ALL REMOTE BATCH FILES.
00073  M01S00066.qdump   +++|*
00074  M01S00067.qdump   +++|*         TF = DESTINATION FAMILY FOR TERMINAL FOR SELECTING FILES
00075  M01S00068.qdump   +++|*              IN THE REMOTE BATCH QUEUE.
00076  M01S00069.qdump   +++|*
00077  M01S00070.qdump   +++|*         FC = FORMS CODE.  MAY BE A SINGLE ENTRY (FC=F1), A LIST
00078  M01S00071.qdump   +++|*              (FC=F1/F2/F3), OR A RANGE (FC=F1-F2) WHERE F1 IS 2
00079  M01S00072.qdump   +++|*              CHARACTERS, ALL OR NULL (SPECIFIED BY **).
00080  M01S00073.qdump   +++|*
Line S00074 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00074.v23l617 ---|*         I  = ALTERNATE DIRECTIVE INPUT FILE. THIS IS A CONTROL
Line S00075 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00075.v23l617 ---|*                STATEMENT PARAMETER SPECIFYING WHAT FILE SHOULD
00083  M01S00003.v23l617 +++|*         I  = ALTERNATE DIRECTIVE INPUT FILE. THIS IS A
00084  M01S00004.v23l617 +++|*                COMMAND PARAMETER SPECIFYING WHAT FILE SHOULD
00085  M01S00076.qdump   +++|*                BE READ FOR INPUT DIRECTIVES.  THESE DIRECTIVES
00086  M01S00077.qdump   +++|*                CONSIST OF ANY LEGAL K-DISPLAY INPUT OR COMMANDS.
00087  M01S00078.qdump   +++|*                THESE DIRECTIVES WILL BE PROCESSED AFTER THE
Line S00079 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00079.v23l617 ---|*                CONTROL STATEMENT DIRECTIVES BUT BEFORE ANY
00089  M01S00005.v23l617 +++|*                COMMAND DIRECTIVES BUT BEFORE ANY
00090  M01S00080.qdump   +++|*                K-DISPLAY INPUT IS ACCEPTED.
00091  M01S00081.qdump   +++|*
00092  M01S00082.qdump   +++|*         L  = FILE NAME TO RECEIVE OUTPUT.
00093  M01S00083.qdump   +++|*
00094  M01S00084.qdump   +++|*         FN = FILE NAME OF DUMP FILE.
00095  M01S00085.qdump   +++|*
00096  M01S00086.qdump   +++|*         NF = NUMBER OF MEDIA FILES TO SKIP.
00097  M01S00087.qdump   +++|*
00098  M01S00088.qdump   +++|*         TP = TYPE OF FILES TO DUMP.  (A - ACTIVE, I - INACTIVE,
00099  M01S00089.qdump   +++|*              ALL).
00100  M01S00090.qdump   +++|*
Line S00091 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00091.ns22000 ---|*         OT = DT.  SELECT ORIGIN TYPE BY DISPOSITION TYPE.  MAY BE
Line S00092 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00092.ns22000 ---|*              ENTERED MORE THAN ONCE.  OPTION WILL BE CLEARED
00103  M01S00005.ns22000 +++|*         DS = DT.  SELECT FILE DESTINATION BY DISPOSITION TYPE.
00104  M01S00006.ns22000 +++|*              MAY BE ENTERED MORE THAN ONCE.  OPTION WILL BE CLEARED
00105  M01S00093.qdump   +++|*              IF PREVIOUSLY SELECTED.
Line S00094 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00094.ns22000 ---|*                OT MAY BE -
Line S00095 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00095.ns22000 ---|*                     BC - BATCH ORIGIN.
Line S00096 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00096.ns22000 ---|*                     RB - REMOTE BATCH ORIGIN.
Line S00097 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00097.ns22000 ---|*                     SY - SYSTEM ORIGIN.
00110  M01S00007.ns22000 +++|*                DS MAY BE -
00111  M01S00008.ns22000 +++|*                     BC - BATCH.
00112  M01S00009.ns22000 +++|*                     RB - REMOTE BATCH.
00113  M01S00098.qdump   +++|*                DT MAY BE -
00114  M01S00099.qdump   +++|*                     SF - SPECIAL INSTALLATION DEFINED QUEUE FILES.
00115  M01S00100.qdump   +++|*                     IN - INPUT.
00116  M01S00101.qdump   +++|*                     PU - PUNCH.
00117  M01S00102.qdump   +++|*                     PL - PLOT.
00118  M01S00103.qdump   +++|*                     PR - PRINT (ANY PRINTER).
00119  M01S00104.qdump   +++|*                     P2 - PRINT (512 PRINTER).
00120  M01S00105.qdump   +++|*                     LR - PRINT (580-12 PRINTER).
00121  M01S00106.qdump   +++|*                     LS - PRINT (580-16 PRINTER).
00122  M01S00107.qdump   +++|*                     LT - PRINT (580-20 PRINTER).
00123  M01S00001.241l630 +++|*                     LX - PRINT (5870 NIP).
00124  M01S00002.241l630 +++|*                     LY - PRINT (5970 NIP).
00125  M01S00108.qdump   +++|*                     WT - WAIT.
00126  M01S00109.qdump   +++|*                     PRINT - ALL PRINT TYPES.
00127  M01S00110.qdump   +++|*                     ALL - ALL TYPES.
00128  M01S00111.qdump   +++|*                     NONE - NO TYPES.
00129  M01S00112.qdump   +++|*
00130  M01S00113.qdump   +++|*         PO = PROCESSING OPTIONS WHERE OPTIONS ARE DEFINED AS
00131  M01S00114.qdump   +++|*              THE FOLLOWING -
Line S00115 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00115.v23l617 ---|*                N - IF SPECIFIED, ONLY CONTROL STATEMENT DIRECTIVES
00133  M01S00006.v23l617 +++|*                N - IF SPECIFIED, ONLY COMMAND DIRECTIVES
00134  M01S00116.qdump   +++|*                    WILL BE PROCESSED.  K-DISPLAY IS AVAILABLE
00135  M01S00117.qdump   +++|*                    FOR MONITORING THE UTILITY PROGRESS, BUT NO
00136  M01S00118.qdump   +++|*                    K-DISPLAY INPUT IS ALLOWED.  THE N PARAMETER
00137  M01S00119.qdump   +++|*                    IS IMPLIED ON ALL NON-SYSTEM ORIGIN JOBS.
00138  M01S00120.qdump   +++|*                E - IF SPECIFIED, ERRORED FILE PROCESSING STATUS
00139  M01S00121.qdump   +++|*                    WILL BE TOGGLED.
00140  M01S00122.qdump   +++|*                F - IF SPECIFIED, ON ACTIVATE REQUESTS ENTRIES WILL
00141  M01S00123.qdump   +++|*                    BE MADE IN THE FOT FOR THE INACTIVE FAMILIES
00142  M01S00124.qdump   +++|*                    AND THE FILES WILL BE QUEUED.  DEFAULT IS TO
00143  M01S00125.qdump   +++|*                    IGNORE THOSE FILES.
00144  M01S00126.qdump   +++|*                R - IF SPECIFIED, THE DUMP FILE WILL BE
00145  M01S00127.qdump   +++|*                    REWOUND WHEN THE *GO* COMMAND IS ENTERED.
00146  M01S00128.qdump   +++|*
00147  M01S00129.qdump   +++|*         DEFAULT VALUES DEFINED IN *QFSP*.
00148  M01S00130.qdump   +++|*
00149  M01S00131.qdump   +++|*
00150  M01S00132.qdump   +++|*         *K* DISPLAY COMMANDS AVAILABLE TO *QDUMP* ARE -
00151  M01S00133.qdump   +++|*
00152  M01S00134.qdump   +++|*         GO. - PROCEED WITH PROCESSING.
00153  M01S00135.qdump   +++|*         STOP. - TERMINATE INPUT, END RUN.
00154  M01S00136.qdump   +++|*         RESET. - RESET PARAMETERS TO DEFAULT VALUES.
00155  M01S00137.qdump   +++|*         OUT. - RELEASE FILE SPECIFIED BY L PARAMETER TO PRINTER.
00156  M01S00138.qdump   +++|*         REWIND. - REWIND DUMP FILE WHEN *GO* COMMAND ENTERED.
00157  M01S00139.qdump   +++|*         ERROR. - TOGGLE STATUS OF ERRORED FILE PROCESSING.  IF
00158  M01S00140.qdump   +++|*                  SET, ERRORED FILES WILL BE DUMPED.  DEFAULT IS SET.
00159  M01S00141.qdump   +++|*         FAMILY. - IF SPECIFIED, ON ACTIVATE REQUESTS ENTRIES
00160  M01S00142.qdump   +++|*                   WILL BE MADE IN THE FOT FOR THE INACTIVE FAMILIES
00161  M01S00143.qdump   +++|*                   AND THE FILES WILL BE QUEUED.  DEFAULT IS TO
00162  M01S00144.qdump   +++|*                   IGNORE THOSE FILES.
00163  M01S00145.qdump   +++|          SPACE  4
00164  M01S00146.qdump   +++|**        ENTRY CONDITIONS.
00165  M01S00147.qdump   +++|*
00166  M01S00148.qdump   +++|*         *QDUMP* IS ENTERED VIA RETURN JUMP FROM *QFSP*.
00167  M01S00149.qdump   +++|*
00168  M01S00150.qdump   +++|*         *TARA* = FWA OF THE PARAMETER TABLE.
00169  M01S00010.ns22000 +++|*         *TDAA* = FWA OF DEVICE ACCESS LEVEL TABLE.
00170  M01S00151.qdump   +++|*         *TEQA* = FWA OF THE MASS STORAGE EQUIPMENT TABLE.
00171  M01S00152.qdump   +++|*         *QFTA* = *QFTP* WORD FROM CENTRAL MEMORY RESIDENT.
00172  M01S00153.qdump   +++|*         *FOTA* = FAMILY ORDINAL TABLE.
00173  M01S00154.qdump   +++|          SPACE  4
00174  M01S00155.qdump   +++|***       DAYFILE MESSAGES.
00175  M01S00156.qdump   +++|*
00176  M01S00157.qdump   +++|*         THE FOLLOWING MESSAGES ARE ISSUED TO THE DAYFILE AND
00177  M01S00158.qdump   +++|*         THE *K* DISPLAY UNLESS NOTED OTHERWISE.
00178  M01S00159.qdump   +++|*
00179  M01S00011.ns22000 +++|*
00180  M01S00012.ns22000 +++|*         * ACCESS LEVEL LIMITS OUT OF RANGE.*  AS NO ACCESS LEVELS
00181  M01S00013.ns22000 +++|*         WERE SELECTED WITH THE *LA* AND *UA* PARAMETERS, THE SYSTEM
00182  M01S00014.ns22000 +++|*         LIMITS WERE USED.  MASS STORAGE DEVICES WERE FOUND WHICH
00183  M01S00015.ns22000 +++|*         HAVE ACCESS LEVELS OUTSIDE THE SYSTEM LIMITS.
00184  M01S00016.ns22000 +++|*         USE THE *LA* AND *UA* PARAMETERS TO IGNORE THESE DEVICES
00185  M01S00017.ns22000 +++|*         AND RETRY.
00186  M01S00160.qdump   +++|*
00187  M01S00161.qdump   +++|*         * BAD DUMP FILE.* = THE SPECIFIED DUMP FILE CANNOT BE
00188  M01S00162.qdump   +++|*         WRITTEN TO.  REQUEST ANOTHER DUMP FILE.
00189  M01S00163.qdump   +++|*
00190  M01S00164.qdump   +++|*         * ERRORED FILE PARTIALLY DUMPED - FILENAM.* = AFTER
00191  M01S00165.qdump   +++|*         ENCOUNTERING AN UNRECOVERABLE READ ERROR ON FILE FILENAM WITH
00192  M01S00166.qdump   +++|*         ERRORED FILE DUMPING NOT SET, THE BACKSPACE ON THE DUMP FILE
00193  M01S00167.qdump   +++|*         HIT BEGINNING OF TAPE REEL, LEAVING FILE FILENAM PARTIALLY
00194  M01S00168.qdump   +++|*         DUMPED ON THE PREVIOUS REEL.  THIS FILE WILL NOT BE LOADED
00195  M01S00169.qdump   +++|*         IF ERRORED FILE LOADING IS NOT SET.
00196  M01S00170.qdump   +++|*
00197  M01S00171.qdump   +++|*         * FILE NAME CONFLICT - FILE XXXXXXX.* = THE SPECIFIED
00198  M01S00172.qdump   +++|*         OUTPUT OR DUMP FILE NAME CONFLICTS WITH A NAME ALREADY
00199  M01S00173.qdump   +++|*         IN USE.  CHANGE THE FILE NAME AND RETRY.
00200  M01S00174.qdump   +++|*
Line S00175 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00175.ns22000 ---|*         * JSN      EQNN TRACK TTTT LENGTH ERROR.* = THE QUEUE
00202  M01S00018.ns22000 +++|*         * JSN      EQNNNN TRACK TTTT LENGTH ERROR.* = THE QUEUE
00203  M01S00176.qdump   +++|*         FILE ON THE SPECIFIED EQUIPMENT AND TRACK WAS
00204  M01S00177.qdump   +++|*         DETECTED AS HAVING A LENGTH ERROR AT RECOVERY TIME.
00205  M01S00178.qdump   +++|*         CONTACT AN ANALYST AND BRING THIS TO HIS ATTENTION.
00206  M01S00179.qdump   +++|*         (DAYFILE ONLY).
00207  M01S00180.qdump   +++|*
Line S00181 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00208  M02S00181.v23l617 ---|*         * ILLEGAL DUMP REQUESTED.* = DEVICE SPECIFIED IS NOT MASS
00209  M01S00007.v23l617 +++|*         * INCORRECT DUMP REQUESTED.* = DEVICE SPECIFIED IS NOT MASS
00210  M01S00182.qdump   +++|*         STORAGE.
00211  M01S00183.qdump   +++|*         ENTER THE CORRECT PARAMETERS AND RETRY OPERATION.
00212  M01S00184.qdump   +++|*
00213  M01S00185.qdump   +++|*         * IQFT FILE ERROR DN XX FAMILY AAAAAAA.* = AN ERROR HAS
00214  M01S00186.qdump   +++|*         BEEN ENCOUNTERED ATTACHING OR READING THE IQFT.  THE
00215  M01S00187.qdump   +++|*         MESSAGE FOLLOWING THIS MESSAGE IN THE DAYFILE DESCRIBES
00216  M01S00188.qdump   +++|*         THE ERROR.  (DAYFILE ONLY).
00217  M01S00189.qdump   +++|*
00218  M01S00190.qdump   +++|*         * QDUMP ABORTED.* = AN ERROR HAS BEEN DETECTED WHICH
00219  M01S00191.qdump   +++|*         IS NOT PROCESSED BY QDUMP ERROR PROCESSING.  ATTEMPTS
00220  M01S00192.qdump   +++|*         HAVE BEEN MADE TO REMEDY THE SITUATION, BUT DISCRETION
00221  M01S00193.qdump   +++|*         SHOULD BE USED IN CONTINUED USE OF QDUMP.  IN ANY
00222  M01S00194.qdump   +++|*         CASE, AN ANALYST SHOULD BE CONTACTED.  CHECK THE
00223  M01S00195.qdump   +++|*         DAYFILE FOR THE ERROR THAT CAUSED THE ABORT.
00224  M01S00196.qdump   +++|*
00225  M01S00197.qdump   +++|*         * QUEUE STATUS INDEFINITE.* = QDUMP HAS NOT BEEN ABLE TO
00226  M01S00198.qdump   +++|*         FINISH THE CLEAN UP AFTER AN ERROR OR AN ERROR EXIT.  THE
00227  M01S00199.qdump   +++|*         STATUS OF IQFTS AND QUEUED FILES IS UNKNOWN.  A LEVEL
00228  M01S00200.qdump   +++|*         ZERO DEADSTART IS RECOMMENDED TO CLEAN UP THE IQFT FILES.
00229  M01S00201.qdump   +++|*
00230  M01S00202.qdump   +++|*         * QUEUES UNRECOVERABLE THIS DEVICE.* = THE IQFT FILE
00231  M01S00203.qdump   +++|*         ON THE SPECIFIED DEVICE CANNOT BE READ PROPERLY.  AN
00232  M01S00204.qdump   +++|*         ANALYST SHOULD BE CONTACTED.  (DAYFILE ONLY).
00233  M01S00205.qdump   +++|*
Line S00206 Modification History
M01 (Added by) qdump
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00234  M02S00206.271l716 ---|*         * TAPE ERROR - X.GO./X.DROP.* = THE DUMP HAS ENCOUNTERED
Line S00207 Modification History
M01 (Added by) qdump
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00207.271l716 ---|*         A WRITE ERROR ON TAPE.  ENTER X.GO. TO CONTINUE, OR
Line S00208 Modification History
M01 (Added by) qdump
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00236  M02S00208.271l716 ---|*         X.DROP. TO END THE DUMP.  (LINE 2 OF CONTROL POINT AREA
00237  M01S00001.271l716 +++|*         * TAPE ERROR - GO,JSN./DROP,JSN.* = THE DUMP HAS ENCOUNTERED
00238  M01S00002.271l716 +++|*         A WRITE ERROR ON TAPE.  ENTER GO,JSN. TO CONTINUE, OR
00239  M01S00003.271l716 +++|*         DROP,JSN. TO END THE DUMP.  (LINE 2 OF CONTROL POINT AREA
00240  M01S00209.qdump   +++|*         ONLY).
00241  M01S00210.qdump   +++|*
00242  M01S00211.qdump   +++|*         * XXXX FILES IGNORED   DNYY  FM AAAAAAA.* = NUMBER OF
00243  M01S00212.qdump   +++|*         QUEUED FILE IGNORED THIS DEVICE ON THIS OPERATION.
00244  M01S00213.qdump   +++|*
00245  M01S00214.qdump   +++|*         * XXXX FILES DUMPED(A) DNYY  FM AAAAAAA.* = NUMBER OF
00246  M01S00215.qdump   +++|*         ACTIVE QUEUED FILES DUMPED AND LEFT ACTIVE THIS DEVICE.
00247  M01S00216.qdump   +++|*
00248  M01S00217.qdump   +++|*         * XXXX FILES DUMPED(I) DNYY  FM AAAAAAA.* = NUMBER OF
00249  M01S00218.qdump   +++|*         INACTIVE QUEUED FILES DUMPED AND LEFT INACTIVE THIS
00250  M01S00219.qdump   +++|*         DEVICE.
00251  M01S00004.271l716 +++|*
00252  M01S00005.271l716 +++|*
00253  M01S00006.271l716 +++|*         THE FOLLOWING DAYFILE MESSAGES ARE ISSUED WHEN *CIO*
00254  M01S00007.271l716 +++|*         ERRORS ARE DETECTED.
00255  M01S00008.271l716 +++|*
00256  M01S00009.271l716 +++|*         / *CIO* ERROR./
00257  M01S00010.271l716 +++|*         * ADDRESS ERROR.*
00258  M01S00011.271l716 +++|*         * DEVICE STATUS ERROR.*
00259  M01S00012.271l716 +++|*         * 6681 FUNCTION REJECT ERROR.*
00260  M01S00013.271l716 +++|*         * DEVICE RESERVED.*
00261  M01S00014.271l716 +++|*         * DEVICE NOT READY.*
00262  M01S00015.271l716 +++|*         * TRACK LIMIT.*
00263  M01S00016.271l716 +++|*
00264  M01S00017.271l716 +++|*
00265  M01S00018.271l716 +++|*         THE FOLLOWING DAYFILE MESSAGES ARE ISSUED WHEN *QFM*
00266  M01S00019.271l716 +++|*         ERRORS ARE DETECTED.
00267  M01S00020.271l716 +++|*
00268  M01S00021.271l716 +++|*         / *QFM* ERROR./
00269  M01S00022.271l716 +++|*         * FILE NOT FOUND.*
00270  M01S00023.271l716 +++|*         * FILE ALREADY INTERLOCKED.*
00271  M01S00024.271l716 +++|*         * DEVICE UNAVAILABLE.*
00272  M01S00025.271l716 +++|*         * QFT/LOCAL FNT FULL.*
00273  M01S00220.qdump   +++|          SPACE  4
00274  M01S00221.qdump   +++|***       *K* DISPLAY OPERATOR MESSAGES.
00275  M01S00222.qdump   +++|*
00276  M01S00223.qdump   +++|*         * NO OUTPUT FILE EXISTS.* = NO OUTPUT FILE HAS BEEN
00277  M01S00224.qdump   +++|*         CREATED PREVIOUS TO ENTERING THE *OUT* COMMAND.
00278  M01S00225.qdump   +++|*
00279  M01S00226.qdump   +++|*         * OUTPUT FILE RELEASED.* = OUTPUT FILE RELEASED TO PRINTER.
00280  M01S00227.qdump   +++|*
00281  M01S00228.qdump   +++|*         * QDUMP COMPLETE.* = THE SPECIFIED OPERATION HAS BEEN
00282  M01S00229.qdump   +++|*         COMPLETED.
00283  M01S00026.271l716 +++|          SPACE  4,10
00284  M01S00027.271l716 +++|***       OUTPUT FILE ERROR MESSAGES.
00285  M01S00028.271l716 +++|*
00286  M01S00029.271l716 +++|*         *DUPLICATE FILE NAME - FILE IGNORED*
00287  M01S00030.271l716 +++|*         *READ ERROR - FILE DUMPED*
00288  M01S00031.271l716 +++|*         *READ ERROR - FILE IGNORED*
00289  M01S00032.271l716 +++|*         *SYSTEM SECTOR ERROR - FILE IGNORED*
00290  M01S00033.271l716 +++|*         *TRACK LIMIT - FILE IGNORED*
00291  M01S00230.qdump   +++|          SPACE  4
00292  M01S00231.qdump   +++|*         COMMON DECKS.
00293  M01S00232.qdump   +++|
00294  M01S00233.qdump   +++|*CALL     COMCMAC
00295  M01S00001.ns21000 +++|*CALL     COMCCMD
00296  M01S00234.qdump   +++|*CALL     COMSACC
00297  M01S00235.qdump   +++|*CALL     COMSJIO
00298  M01S00019.ns22000 +++|*CALL     COMSDSP
00299  M01S00236.qdump   +++|          LIST   X
00300  M01S00237.qdump   +++|*CALL     COMSIOQ
00301  M01S00238.qdump   +++|*CALL     COMSQFS
00302  M01S00002.ns21000 +++|*CALL     COMSSFM
00303  M01S00239.qdump   +++|          LIST   -X
00304  M01S00020.ns22000 +++|*CALL     COMSMLS
Line S00021 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00021.ns2217  ---|*CALL     COMSSCD
00306  M01S00240.qdump   +++|*CALL     COMSSSE
00307  M01S00241.qdump   +++|*CALL     COMSSSJ
00308  M01S00001.ns2217  +++| SCLASS   SPACE  4,15
00309  M01S00002.ns2217  +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00310  M01S00003.ns2217  +++|*
00311  M01S00004.ns2217  +++|*         SCLASS NM,MN,DF,ST,TX
00312  M01S00005.ns2217  +++|*
00313  M01S00006.ns2217  +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00314  M01S00007.ns2217  +++|*                *MN* = TWO CHARACTER MNEMONIC.
00315  M01S00008.ns2217  +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00316  M01S00009.ns2217  +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00317  M01S00010.ns2217  +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00318  M01S00011.ns2217  +++|*
00319  M01S00012.ns2217  +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00320  M01S00013.ns2217  +++|*                THIS MACRO.
00321  M01S00014.ns2217  +++|
00322  M01S00015.ns2217  +++|
00323  M01S00016.ns2217  +++|          PURGMAC  SCLASS
00324  M01S00017.ns2217  +++|
00325  M01S00018.ns2217  +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00326  M01S00019.ns2217  +++| .SCL     RMT
00327  M01S00020.ns2217  +++| NM       VFD    12/0,12/2R_MN,36/0  TX
00328  M01S00021.ns2217  +++| .SCL     RMT
00329  M01S00022.ns2217  +++| SCLASS   ENDM
00330  M01S00023.ns2217  +++|
00331  M01S00024.ns2217  +++|
00332  M01S00025.ns2217  +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00333  M01S00026.ns2217  +++|*CALL     COMSSCD
00334  M01S00242.qdump   +++|          TITLE  ASSEMBLY CONSTANTS.
00335  M01S00243.qdump   +++|****      ASSEMBLY CONSTANTS.
00336  M01S00244.qdump   +++|
00337  M01S00245.qdump   +++| BUFL     EQU    1001B       FET CIRCULAR BUFFER LENGTH
00338  M01S00246.qdump   +++| QBUFL    EQU    2041B       QUEUED FILE BUFFER LENGTH
Line S00247 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00339  M02S00247.ns21000 ---| SBUFL    EQU    101B        SYSTEM SECTOR BUFFER LENGTH
00340  M01S00003.ns21000 +++| SBUFL    EQU    201B        SYSTEM INFORMATION BUFFER
Line S00248 Modification History
M01 (Added by) qdump
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00248.274l797 ---| DBUFL    EQU    4011B       DUMP FILE BUFFER LENGTH
00342  M01S00001.274l797 +++| DBUFL    EQU    20041B      DUMP FILE BUFFER LENGTH
00343  M01S00249.qdump   +++| EBUFL    EQU    4           END OF VOLUME BUFFER LENGTH
00344  M01S00250.qdump   +++| IBUFL    EQU    1001B       IQFT BUFFER LENGTH
Line S00251 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00251.qdump4  ---| WBUFL    EQU    1110B       WORKING BUFFER LENGTH
00346  M01S00001.qdump4  +++| WBUFL    EQU    10110B      WORKING BUFFER LENGTH
00347  M01S00252.qdump   +++| DBLL     EQU    1000B       DUMP BLOCK LENGTH
00348  M01S00253.qdump   +++| EOFC     EQU    2000B       EOF CONTROL WORD CODE
00349  M01S00254.qdump   +++| EORC     EQU    1000B       EOR CONTROL WORD CODE
00350  M01S00255.qdump   +++| FNEL     EQU    2           FNT ENTRY LENGTH
00351  M01S00022.ns22000 +++| LNUM     EQU    TPPA+PPLN   LINE NUMBER
00352  M01S00023.ns22000 +++| PDFE     EQU    TPPA+PPPD   PRINT DENSITY FORMAT EFFECTOR
00353  M01S00256.qdump   +++|****
Line S00257 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00257.ns22000 ---|          SPACE  4,10
Line S00258 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00258.ns22000 ---|*         *DSP* FLAG BIT EQUIVALENCES.
Line S00259 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00259.ns22000 ---|
Line S00260 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00357  M02S00260.ns22000 ---|
Line S00261 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00261.ns22000 ---| FRDC     EQU    20B         DISPOSITION CODE
00359  M01S00262.qdump   +++|          TITLE  RESERVED LOCATIONS AND FETS.
00360  M01S00263.qdump   +++|*         RESERVED LOCATIONS.
00361  M01S00264.qdump   +++|
00362  M01S00265.qdump   +++|          ORG    OVLA
00363  M01S00266.qdump   +++|
00364  M01S00267.qdump   +++| QNUM     CON    1           QUEUE FILE NUMBER
00365  M01S00268.qdump   +++| PNUM     CON    1           PAGE NUMBER
Line S00269 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00269.ns22000 ---| LNUM     CON    LINP        LINE NUMBER
00367  M01S00270.qdump   +++| LIST     CON    0           OUTPUT PRESENT FLAG
00368  M01S00271.qdump   +++| RECF     CON    0           LIST ANOTHER RECORD FLAG
00369  M01S00002.qdump4  +++| DBLS     CON    0           DUMP BLOCK LOGICAL SIZE
00370  M01S00003.qdump4  +++| DBSL     CON    0           DUMP BUFFER SEGMENT LIMIT
00371  M01S00272.qdump   +++| DFBS     CON    0           DUMP FILE BLOCK SIZE
00372  M01S00273.qdump   +++| DSPB     CON    0           TYPE OF FILES TO DUMP
00373  M01S00274.qdump   +++| DPCT     CON    0           COUNT OF QUEUE FILES DUMPED
00374  M01S00275.qdump   +++| IGCT     CON    0           COUNT OF QUEUE FILES IGNORED
00375  M01S00276.qdump   +++| QCWI     CON    0           QDUMP CONTROL WORD BUFFER INDEX
00376  M01S00024.ns22000 +++| ALFG     CON    0           ACCESS LEVELS SPECIFIED FLAG
00377  M01S00277.qdump   +++| MSFG     CON    -1          MASS STORAGE DUMP FILE FLAG
00378  M01S00278.qdump   +++|          SPACE  4
00379  M01S00279.qdump   +++|*         FETS.
00380  M01S00280.qdump   +++|
00381  M01S00281.qdump   +++| O        BSS    0           OUTPUT FILE
00382  M01S00282.qdump   +++| OUTPUT   FILEB  OBUF,BUFL,(FET=7)
00383  M01S00283.qdump   +++|
00384  M01S00284.qdump   +++| Q        BSS    0           QUEUE FILE
00385  M01S00285.qdump   +++| QNAME    FILEB  QBUF,QBUFL,EPR,(FET=13)
00386  M01S00286.qdump   +++|
Line S00287 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00287.ns21000 ---| S        BSS    0           SYSTEM SECTOR
Line S00288 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00288.ns21000 ---| SS       FILEB  SBUF,SBUFL,EPR,(FET=8)
00389  M01S00004.ns21000 +++| S        BSS    0           SYSTEM AND EOI SECTORS
00390  M01S00005.ns21000 +++| SSEOI    FILEB  SBUF,SBUFL,EPR,(FET=8)
00391  M01S00289.qdump   +++|
00392  M01S00290.qdump   +++| D        BSS    0           DUMP FILE
00393  M01S00291.qdump   +++| QFILES   FILEB  DBUF,DBUFL,EPR,LBL
00394  M01S00292.qdump   +++|
00395  M01S00293.qdump   +++| DE       BSS    0           END OF VOLUME CONTROL WORDS
00396  M01S00294.qdump   +++| EQFILES  FILEB  EBUF,EBUFL
00397  M01S00295.qdump   +++|
00398  M01S00296.qdump   +++| IQ       BSS    0           OLD IQFT FILE
00399  M01S00297.qdump   +++| "RFIQ"   FILEB  IBUF,IBUFL,EPR,(FET=8)
00400  M01S00298.qdump   +++|
00401  M01S00299.qdump   +++| T        BSS    0           TEMPORARY IQFT ENTRY BUFFER
00402  M01S00300.qdump   +++| TEMP     FILEB  TBUF,BUFL,EPR,(FET=9)
00403  M01S00301.qdump   +++| QDUMP    TITLE  MAIN ROUTINE.
00404  M01S00302.qdump   +++|**        QDUMP - MAIN ROUTINE.
00405  M01S00303.qdump   +++|*
00406  M01S00304.qdump   +++|*         CALL PRESET IF NECESSARY, DETERMINE WHETHER *GO* OR
00407  M01S00305.qdump   +++|*         *OUT* HAS BEEN SPECIFIED, CALL THE ROUTINES TO PROCESS
00408  M01S00306.qdump   +++|*         THE FUNCTION, THEN CLEAN UP FOR THE RETURN TO *QFSP*.
00409  M01S00307.qdump   +++|*
00410  M01S00308.qdump   +++|*         ENTRY  (QFTS) = 0 IF INITIAL CALL TO *QDUMP* FROM *QFSP*.
00411  M01S00309.qdump   +++|*                       .NE. 0 ON ALL FOLLOWING CALLS.
00412  M01S00310.qdump   +++|*
00413  M01S00311.qdump   +++|*         USES   X - ALL.
00414  M01S00312.qdump   +++|*                A - 1, 2, 4, 6, 7.
00415  M01S00313.qdump   +++|*                B - 1.
00416  M01S00314.qdump   +++|*
Line S00315 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00315.ns22000 ---|*         CALLS  CID, DQF, OFN, OUT, PRS, RAF, WDH.
00418  M01S00025.ns22000 +++|*         CALLS  CAL, CID, OFN, OUT, PRS, RAF, WDH.
00419  M01S00316.qdump   +++|*
00420  M01S00317.qdump   +++|*         MACROS ABORT, MEMORY, RETURN, SETFS, WRITER.
00421  M01S00318.qdump   +++|
00422  M01S00319.qdump   +++|
00423  M01S00320.qdump   +++| QDUMP    SUBR               ENTRY/EXIT
00424  M01S00321.qdump   +++|          SB1    1
00425  M01S00322.qdump   +++|          SA1    QFTS        QFT LENGTH
00426  M01S00323.qdump   +++|          SX6    B0+         PRESET FLAGS
00427  M01S00324.qdump   +++|          SA6    RECF
00428  M01S00325.qdump   +++|          SA6    DQFB
00429  M01S00326.qdump   +++|          SA6    ERRA
00430  M01S00327.qdump   +++|          NZ     X1,QDU1     IF PRESET UNNECESSARY
00431  M01S00328.qdump   +++|          RJ     PRS         PRESET
00432  M01S00329.qdump   +++| QDU1     RJ     OFN         SET OUTPUT FILE NAMES
00433  M01S00330.qdump   +++|          NZ     X5,QDU3     IF FILE NAME CONFLICT
00434  M01S00331.qdump   +++|
00435  M01S00332.qdump   +++|*         DETERMINE FUNCTION.
00436  M01S00333.qdump   +++|
00437  M01S00334.qdump   +++|          SA2    TARA+ARFC   CHECK FUNCTION
00438  M01S00335.qdump   +++|          MX0    -12
00439  M01S00336.qdump   +++|          BX3    -X0*X2
00440  M01S00337.qdump   +++|          ZR     X3,QDU2     IF *GO* COMMAND
00441  M01S00338.qdump   +++|
00442  M01S00339.qdump   +++|*         PROCESS *OUT* COMMAND.
00443  M01S00340.qdump   +++|
00444  M01S00341.qdump   +++|          RJ     OUT         DISPOSE OUTPUT FILE
00445  M01S00342.qdump   +++|          BX2    X2-X2       SET NO *K* DISPLAY BUFFER
00446  M01S00343.qdump   +++|          EQ     QDUMPX      RETURN
00447  M01S00344.qdump   +++|
00448  M01S00345.qdump   +++|*         PROCESS *GO* COMMAND.
00449  M01S00346.qdump   +++|
00450  M01S00347.qdump   +++| QDU2     SA1    TARA+ARTP   SET TYPE OF FILES TO DUMP
00451  M01S00348.qdump   +++|          MX0    -12
00452  M01S00349.qdump   +++|          BX6    -X0*X1
00453  M01S00350.qdump   +++|          SA6    DSPB
00454  M01S00026.ns22000 +++|          RJ     CAL         CHECK ACCESS LEVLES
00455  M01S00027.ns22000 +++|          NZ     X5,QDU3     IF ERROR
Line S00351 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00351.v23l617 ---|          RJ     CID         CHECK FOR ILLEGAL DEVICES
00457  M01S00008.v23l617 +++|          RJ     CID         CHECK FOR INCORRECT DEVICES
00458  M01S00352.qdump   +++|          NZ     X5,QDU3     IF ERROR
00459  M01S00353.qdump   +++|          RJ     WDH         WRITE DUMP FILE HEADER
00460  M01S00354.qdump   +++|          NZ     X5,QDU3     IF ERROR
00461  M01S00355.qdump   +++|          RJ     DQF         DUMP QUEUED FILES
00462  M01S00356.qdump   +++|          NZ     X5,QDU3     IF ERROR
00463  M01S00357.qdump   +++|          SX5    MES1        *QDUMP COMPLETE.*
00464  M01S00358.qdump   +++|
00465  M01S00359.qdump   +++|*         RETURN LOCAL FILES.
00466  M01S00360.qdump   +++|
00467  M01S00361.qdump   +++| QDU3     RETURN Q,R
00468  M01S00362.qdump   +++|          RETURN S,R
00469  M01S00363.qdump   +++|          SETFS  O,0
00470  M01S00364.qdump   +++|          SA1    RECF
00471  M01S00365.qdump   +++|          ZR     X1,QDU4     IF NO NEW OUTPUT RECORD
00472  M01S00366.qdump   +++|          WRITER O           FLUSH BUFFER
00473  M01S00367.qdump   +++|
00474  M01S00368.qdump   +++|*         RESET FIELD LENGTH.
00475  M01S00369.qdump   +++|
Line S00370 Modification History
M01 (Added by) qdump
M02 (Updated by) ns2340
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00370.ns2340  ---| QDU4     SX7    BUFFL       RESET POINTERS
00477  M01S00001.ns2340  +++| QDU4     SX7    IBUF+IBUFL  RESET POINTERS
00478  M01S00371.qdump   +++|          SA4    IQ+4        RESET *LIMIT*
00479  M01S00372.qdump   +++|          MX0    42
00480  M01S00373.qdump   +++|          BX6    X0*X4
00481  M01S00374.qdump   +++|          BX7    X6+X7
00482  M01S00375.qdump   +++|          SA7    A4+
00483  M01S00376.qdump   +++|          SX0    X5          SAVE MESSAGE ADDRESS
00484  M01S00377.qdump   +++|          MEMORY CM,,R,BUFFL RESET ORIGINAL FIELD LENGTH
00485  M01S00378.qdump   +++|
00486  M01S00379.qdump   +++|*         EXIT TO *QFSP*.
00487  M01S00380.qdump   +++|
00488  M01S00381.qdump   +++|          SX3    IQ          RETURN ATTACHED IQFT FILE
00489  M01S00382.qdump   +++|          RJ     RAF
00490  M01S00383.qdump   +++|          SA1    ERRB
00491  M01S00384.qdump   +++|          NZ     X1,QDU5     IF *PO=N* SPECIFIED AND ABORT SET
00492  M01S00385.qdump   +++|          SX5    X0
00493  M01S00386.qdump   +++|          BX2    X2-X2       SET NO *K* DISPLAY BUFFER
00494  M01S00387.qdump   +++|          EQ     QDUMPX      RETURN
00495  M01S00388.qdump   +++|
00496  M01S00389.qdump   +++| QDU5     ABORT
00497  M01S00390.qdump   +++|          TITLE  PRIMARY SUBROUTINES.
00498  M01S00028.ns22000 +++| CAL      SPACE  4,25
00499  M01S00029.ns22000 +++|**        CAL - CHECK ACCESS LEVELS.
00500  M01S00030.ns22000 +++|*
00501  M01S00031.ns22000 +++|*         IF NO ACCESS LEVELS WERE SELECTED, THE LOWEST AND HIGHEST
00502  M01S00032.ns22000 +++|*         ACCESS LEVELS OF ALL MASS STORAGE DEVICES ARE USED.  IF
00503  M01S00033.ns22000 +++|*         THESE LIMITS ARE NOT WITHIN THE SYSTEM LIMITS, AN ERROR
00504  M01S00034.ns22000 +++|*         IS RETURNED.
00505  M01S00035.ns22000 +++|*
00506  M01S00036.ns22000 +++|*         ENTRY  (DVLA) = LOWER ACCESS LEVEL LIMIT OF ALL MASS
00507  M01S00037.ns22000 +++|*                         STORAGE DEVICES.
00508  M01S00038.ns22000 +++|*                (DVUA) = UPPER ACCESS LEVEL LIMIT OF ALL MASS
00509  M01S00039.ns22000 +++|*                         STORAGE DEVICES.
00510  M01S00040.ns22000 +++|*
00511  M01S00041.ns22000 +++|*         EXIT   (ALFG) = -1, IF ACCESS LEVELS FROM ARGUMENT TABLE
00512  M01S00042.ns22000 +++|*                         TO BE USED.
00513  M01S00043.ns22000 +++|*                (X5) = 0.
00514  M01S00044.ns22000 +++|*
00515  M01S00045.ns22000 +++|*         ERROR  (X5) = K-DISPLAY MESSAGE ADDRESS.
00516  M01S00046.ns22000 +++|*
Line S00047 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2314
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00047.ns2314  ---|*         USES   X - 0, 1, 3, 5, 6, 7.
00518  M01S00001.ns2314  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00519  M01S00048.ns22000 +++|*                A - 1, 2, 3, 6.
00520  M01S00049.ns22000 +++|*
00521  M01S00050.ns22000 +++|*         CALLS  GAD.
00522  M01S00051.ns22000 +++|*
00523  M01S00052.ns22000 +++|*         MACROS MESSAGE.
00524  M01S00053.ns22000 +++|
00525  M01S00054.ns22000 +++|
00526  M01S00055.ns22000 +++| CAL3     SX6    -B1         USE ACCESS LEVELS FROM ARGUMENT TABLE
00527  M01S00056.ns22000 +++|          SA6    ALFG
00528  M01S00057.ns22000 +++| CAL4     BX5    X5-X5       SET NO ERROR
00529  M01S00058.ns22000 +++|
00530  M01S00059.ns22000 +++| CAL      SUBR               ENTRY/EXIT
00531  M01S00060.ns22000 +++|          SA1    TARA+ARLA
00532  M01S00061.ns22000 +++|          PL     X1,CAL3     IF ACCESS LEVELS SELECTED
00533  M01S00062.ns22000 +++|          SA2    SECA        GET SYSTEM ACCESS LEVELS
00534  M01S00063.ns22000 +++|          MX0    -3
00535  M01S00064.ns22000 +++|          LX2    12
00536  M01S00065.ns22000 +++|          BX1    -X0*X2
00537  M01S00066.ns22000 +++|          ZR     X1,CAL4     IF UNSECURE SYSTEM
00538  M01S00067.ns22000 +++|          SA3    TARA+ARFM
00539  M01S00068.ns22000 +++|          ZR     X3,CAL1     IF NO FAMILY NAME SELECTED
00540  M01S00069.ns22000 +++|          RJ     GAD         GET ACCESS LEVELS FOR DEVICES
00541  M01S00070.ns22000 +++| CAL1     LX2    6
00542  M01S00001.qdump1  +++|          MX0    -3
00543  M01S00071.ns22000 +++|          BX7    -X0*X2      GET LOWER SYSTEM LIMIT
00544  M01S00072.ns22000 +++|          LX2    6
00545  M01S00073.ns22000 +++|          BX6    -X0*X2      GET UPPER SYSTEM LIMIT
00546  M01S00074.ns22000 +++|          SA1    DVLA        GET DEVICE ACCESS LIMITS
00547  M01S00075.ns22000 +++|          SA2    DVUA
00548  M01S00076.ns22000 +++|          IX1    X1-X7
00549  M01S00077.ns22000 +++|          IX2    X6-X2
00550  M01S00078.ns22000 +++|          NG     X1,CAL2     IF LOWER LIMIT OUTSIDE SYSTEM LIMITS
00551  M01S00079.ns22000 +++|          PL     X2,CAL4     IF UPPER LIMIT WITHIN SYSTEM LIMITS
00552  M01S00080.ns22000 +++| CAL2     SX5    MES12       SET ERROR
00553  M01S00081.ns22000 +++|          MESSAGE  X5        * ACCESS LEVEL LIMITS OUT OF RANGE.*
00554  M01S00002.ns2314  +++|          SA1    TARA+ARFC
00555  M01S00003.ns2314  +++|          PL     X1,CALX     IF *PO=N* NOT SPECIFIED
00556  M01S00004.ns2314  +++|          SX6    B1+         SET ABORT FLAG
00557  M01S00005.ns2314  +++|          SX5    MES2        * QDUMP ABORTED.*
00558  M01S00006.ns2314  +++|          SA6    ERRB
00559  M01S00007.ns2314  +++|          MESSAGE  X5
00560  M01S00082.ns22000 +++|          EQ     CALX        RETURN
00561  M01S00391.qdump   +++| CID      SPACE  4,20
Line S00392 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00562  M02S00392.v23l617 ---|**        CID - CHECK FOR ILLEGAL DEVICES.
00563  M01S00009.v23l617 +++|**        CID - CHECK FOR INCORRECT DEVICES.
00564  M01S00393.qdump   +++|*
Line S00394 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00565  M02S00394.v23l617 ---|*         THE ERROR MESSAGE *ILLEGAL DUMP REQUESTED* IS ISSUED
00566  M01S00010.v23l617 +++|*         THE ERROR MESSAGE *INCORRECT DUMP REQUESTED* IS ISSUED
00567  M01S00395.qdump   +++|*         IF THE DEVICE SPECIFIED IS NOT MASS STORAGE.
00568  M01S00396.qdump   +++|*
00569  M01S00397.qdump   +++|*         EXIT   (X5) = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
00570  M01S00398.qdump   +++|*                     = 0 IF NO ERROR.
Line S00399 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00571  M02S00399.ns22000 ---|*                (CEQP) = EQUIPMENT NUMBER.
00572  M01S00083.ns22000 +++|*                (CEQP) = EST ORDINAL.
00573  M01S00400.qdump   +++|*
00574  M01S00401.qdump   +++|*         USES   X - 5, 6.
00575  M01S00402.qdump   +++|*                A - 6.
00576  M01S00403.qdump   +++|*
00577  M01S00404.qdump   +++|*         CALLS  DND.
00578  M01S00405.qdump   +++|*
00579  M01S00406.qdump   +++|*         MACROS MESSAGE.
00580  M01S00407.qdump   +++|
00581  M01S00408.qdump   +++|
Line S00409 Modification History
M01 (Added by) qdump
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00582  M02S00409.v23l617 ---| CID1     SX5    MES3        *ILLEGAL DUMP REQUESTED.*
00583  M01S00011.v23l617 +++| CID1     SX5    MES3        *INCORRECT DUMP REQUESTED.*
00584  M01S00410.qdump   +++|          MESSAGE X5
00585  M01S00411.qdump   +++|
00586  M01S00412.qdump   +++| CID      SUBR               ENTRY/EXIT
00587  M01S00413.qdump   +++|
00588  M01S00414.qdump   +++|*         DETERMINE FIRST EQUIPMENT TO DUMP FROM.
00589  M01S00415.qdump   +++|
Line S00416 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00590  M02S00416.ns22000 ---|          SX6    -1          PRESET EQUIPMENT NUMBER
00591  M01S00084.ns22000 +++|          SX6    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00592  M01S00417.qdump   +++|          SA6    CEQP
00593  M01S00418.qdump   +++|          RJ     DND         DETERMINE FIRST EQUIPMENT
00594  M01S00419.qdump   +++|          ZR     X4,CID1     IF DEVICE NOT IN TABLE (NON-MASS STORAGE)
00595  M01S00420.qdump   +++|          BX5    X5-X5
00596  M01S00421.qdump   +++|          EQ     CIDX        RETURN
00597  M01S00422.qdump   +++| DQF      SPACE  4,20
00598  M01S00423.qdump   +++|**        DQF - DUMP QUEUED FILES.
00599  M01S00424.qdump   +++|*
00600  M01S00425.qdump   +++|*         PRESET OUTPUT AND CALL ROUTINES TO PROCESS THE DUMPING
00601  M01S00426.qdump   +++|*         OF THE QUEUED FILES, PROCESSING THE FILES ONE DEVICE
00602  M01S00427.qdump   +++|*         AT A TIME, THEN CLOSE THE DUMP SESSION WITH AN EOF.
00603  M01S00428.qdump   +++|*
00604  M01S00429.qdump   +++|*         ENTRY  (DSPB) = 0, DUMP INACTIVE QUEUE FILES.
00605  M01S00430.qdump   +++|*                       = 1, DUMP ACTIVE QUEUE FILES.
00606  M01S00431.qdump   +++|*                       = 2, DUMP ALL QUEUE FILES.
00607  M01S00432.qdump   +++|*                (DFBS) = DUMP FILE BLOCK SIZE.
00608  M01S00433.qdump   +++|*
00609  M01S00434.qdump   +++|*         EXIT   (X5) = 0 IF NO ERROR.
00610  M01S00435.qdump   +++|*                     = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
00611  M01S00436.qdump   +++|*
00612  M01S00437.qdump   +++|*         USES   X - 0, 1, 3, 5, 6, 7.
00613  M01S00438.qdump   +++|*                A - 0, 1, 3, 6, 7.
00614  M01S00439.qdump   +++|*                B - 6.
00615  M01S00440.qdump   +++|*
00616  M01S00441.qdump   +++|*         CALLS  CER, DND, EPR, IDM, PQF.
00617  M01S00442.qdump   +++|*
00618  M01S00443.qdump   +++|*         MACROS CLOCK, DATE, EREXIT, MEMORY, WRITE, WRITECW, WRITEW.
00619  M01S00444.qdump   +++|
00620  M01S00445.qdump   +++|
00621  M01S00446.qdump   +++| DQF2     NZ     X4,DQF1     IF NOT END OF DEVICES
00622  M01S00447.qdump   +++|
00623  M01S00448.qdump   +++|*         CLOSE OUTPUT FILE.
00624  M01S00449.qdump   +++|
00625  M01S00450.qdump   +++| DQF3     SA1    DFBS        SET EOF CONTROL WORDS IN BUFFER
00626  M01S00451.qdump   +++|          LX1    36
00627  M01S00452.qdump   +++|          BX6    X1
00628  M01S00453.qdump   +++|          SA6    DQFA
00629  M01S00454.qdump   +++|          SX6    B1+         SET NO QUEUED FILE ATTACHED FLAG
00630  M01S00455.qdump   +++|          SA6    DQFB
00631  M01S00456.qdump   +++|          SA0    D
00632  M01S00457.qdump   +++|          WRITEW A0,DQFA,2
00633  M01S00458.qdump   +++|          RJ     CER         CHECK FOR ERROR
00634  M01S00459.qdump   +++|          NZ     X5,DQF5     IF ERROR
00635  M01S00460.qdump   +++| DQF4     SA0    D           FLUSH BUFFER
00636  M01S00461.qdump   +++|          WRITECW A0,R
00637  M01S00462.qdump   +++|          RJ     CER         CHECK FOR ERROR
00638  M01S00463.qdump   +++|          ZR     X5,DQFX     IF NO ERROR
00639  M01S00464.qdump   +++| DQF5     SX7    X5-11B
00640  M01S00465.qdump   +++|          NZ     X7,DQF6     IF NOT SPECIAL MASS STORAGE ERROR
00641  M01S00466.qdump   +++|          SA3    A0+6        GET ERROR CODE
00642  M01S00467.qdump   +++|          MX0    -9
00643  M01S00468.qdump   +++|          BX5    -X0*X3
00644  M01S00469.qdump   +++|          SX5    X5+11B      BIAS ERROR CODE
00645  M01S00470.qdump   +++| DQF6     SB6    TCEP        SET ERROR TABLE ADDRESS
00646  M01S00471.qdump   +++|          RJ     EPR         PROCESS ERROR
00647  M01S00472.qdump   +++|          ZR     X5,DQF4     IF RECOVERED FROM WRITE PARITY ERROR
00648  M01S00473.qdump   +++|
00649  M01S00474.qdump   +++| DQF      SUBR               ENTRY/EXIT
00650  M01S00475.qdump   +++|
00651  M01S00476.qdump   +++|*         SET UP OUTPUT HEADER AND PARAMETERS.
00652  M01S00477.qdump   +++|
00653  M01S00478.qdump   +++|          DATE   BOHA1       SET DATE IN HEADER
00654  M01S00479.qdump   +++|          CLOCK  BOHA2       SET TIME IN HEADER
00655  M01S00480.qdump   +++|          WRITE  O,*         PRESET WRITE FUNCTION
00656  M01S00481.qdump   +++|          SX6    B1+         SET QUEUE FILE AND PAGE NUMBERS
00657  M01S00482.qdump   +++|          SA6    QNUM
00658  M01S00483.qdump   +++|          SA6    PNUM
Line S00484 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00484.ns22000 ---|          SX7    LINP        SET LINE NUMBER TO END OF PAGE
00660  M01S00085.ns22000 +++|          SA6    PDFE+1      SET PRINT DENSITY FORMAT CONTROL FLAG
00661  M01S00086.ns22000 +++|          SX7    99999       FORCE PAGE EJECT
00662  M01S00485.qdump   +++|          SA7    LNUM
00663  M01S00486.qdump   +++|
00664  M01S00487.qdump   +++|*         PROCESS DUMPING OF QUEUE FILES.
00665  M01S00488.qdump   +++|
00666  M01S00489.qdump   +++|          SX6    B0          PRESET NUMBER OF FILES DUMPED AND IGNORED
00667  M01S00490.qdump   +++|          SA6    DPCT
00668  M01S00491.qdump   +++|          SX0    B0          SET INITIAL CALL FOR ACTIVE FILES
00669  M01S00492.qdump   +++|          SA6    IGCT
00670  M01S00493.qdump   +++| DQF1     EREXIT ERR         SET ERROR EXIT
00671  M01S00494.qdump   +++|          RJ     PQF         PROCESS QUEUE FILES
00672  M01S00495.qdump   +++|          SA0    X5          SAVE ERROR
00673  M01S00496.qdump   +++|          EREXIT 0           CLEAR ERROR EXIT
00674  M01S00497.qdump   +++|          RJ     IDM         ISSUE DAYFILE MESSAGES
00675  M01S00498.qdump   +++|          SX5    A0+
00676  M01S00499.qdump   +++|          NZ     X5,DQFX     IF ERROR
00677  M01S00500.qdump   +++|
00678  M01S00501.qdump   +++|*         CHECK FOR MORE DEVICES TO PROCESS.
00679  M01S00502.qdump   +++|
00680  M01S00503.qdump   +++|          RJ     DND         DETERMINE NEXT DEVICE
00681  M01S00504.qdump   +++|          SA1    DSPB
00682  M01S00505.qdump   +++|          ZR     X1,DQF2     IF DUMPING INACTIVE FILES
00683  M01S00506.qdump   +++|          SB6    RBUF+QFTE   SET QFT BUFFER ADDRESS
00684  M01S00507.qdump   +++|          SX0    B1+         SET NON-INITIAL CALL
00685  M01S00508.qdump   +++|          NZ     X4,DQF1     IF NOT END OF DEVICES
00686  M01S00509.qdump   +++|          SA1    DSPB
00687  M01S00510.qdump   +++|          SX5    X1-1
00688  M01S00511.qdump   +++|          ZR     X5,DQF3     IF DUMP ONLY ACTIVE FILES
00689  M01S00512.qdump   +++|
00690  M01S00513.qdump   +++|*         SET UP FOR INACTIVE FILE DUMP.
00691  M01S00514.qdump   +++|
00692  M01S00515.qdump   +++|          BX6    X6-X6       SET INACTIVE FILE DUMP
00693  M01S00516.qdump   +++|          SA6    A1
00694  M01S00517.qdump   +++|          MEMORY CM,,R,BUFFL RESET FIELD LENGTH
Line S00518 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00518.ns22000 ---|          SX6    -1          DETERMINE FIRST EQUIPMENT
00696  M01S00087.ns22000 +++|          SX6    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00697  M01S00519.qdump   +++|          SA6    CEQP
00698  M01S00520.qdump   +++|          RJ     DND
00699  M01S00521.qdump   +++|          EQ     DQF1        PROCESS INACTIVE QUEUE FILES
00700  M01S00522.qdump   +++|
00701  M01S00523.qdump   +++| DQFA     VFD    24/0,36/0   EOF CONTROL WORDS
00702  M01S00524.qdump   +++|          VFD    12/17B,48/0
00703  M01S00525.qdump   +++| DQFB     CON    0           QUEUED FILE ATTACHED FLAG
00704  M01S00526.qdump   +++| OFN      SPACE  4,20
00705  M01S00527.qdump   +++|**        OFN - SET OUTPUT AND DUMP FILE NAMES.
00706  M01S00528.qdump   +++|*
00707  M01S00529.qdump   +++|*         SET UP THE OUTPUT AND DUMP FILE FETS.  ISSUE AN ERROR
00708  M01S00530.qdump   +++|*         MESSAGE IF EITHER FILE NAME SPECIFIED IS QNAME, SS,
00709  M01S00531.qdump   +++|*         IQF, TEMP OR ANY OTHER NAME CURRENTLY EXISTING IN
00710  M01S00532.qdump   +++|*         ANOTHER FET.
00711  M01S00533.qdump   +++|*
00712  M01S00534.qdump   +++|*         EXIT   (LIST) = 0 IF OUTPUT FILE NAME CHANGED.
00713  M01S00535.qdump   +++|*                (X5) = 0 IF NO FILE NAME CONFLICT.
00714  M01S00536.qdump   +++|*                     = ADDRESS OF *K* DISPLAY MESSAGE IF CONFLICT.
00715  M01S00537.qdump   +++|*
Line S00538 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00716  M02S00538.qdump4  ---|*         USES   A - 0, 1, 2, 3, 6, 7.
Line S00539 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00717  M02S00539.qdump4  ---|*                X - ALL.
00718  M01S00004.qdump4  +++|*         USES   X - ALL.
00719  M01S00005.qdump4  +++|*                A - 0, 1, 2, 3, 6, 7.
00720  M01S00540.qdump   +++|*
00721  M01S00541.qdump   +++|*         CALLS  SFN.
00722  M01S00006.qdump4  +++|*
00723  M01S00007.qdump4  +++|*         MACROS MESSAGE, RECALL.
00724  M01S00542.qdump   +++|
00725  M01S00543.qdump   +++|
00726  M01S00544.qdump   +++|*         ISSUE MESSAGE.
00727  M01S00545.qdump   +++|
00728  M01S00546.qdump   +++| OFN5     BX1    X3          SPACE FILL FILE NAME
00729  M01S00547.qdump   +++|          RJ     SFN
00730  M01S00548.qdump   +++|          LX6    18          SET FILE NAME IN MESSAGE
00731  M01S00549.qdump   +++|          MX0    -18
00732  M01S00550.qdump   +++|          SA1    MES4+2
00733  M01S00551.qdump   +++|          BX7    -X0*X6
00734  M01S00552.qdump   +++|          BX1    X0*X1
00735  M01S00553.qdump   +++|          BX7    X7+X1
00736  M01S00554.qdump   +++|          SA7    A1
00737  M01S00555.qdump   +++|          SA2    A1+B1
00738  M01S00556.qdump   +++|          MX0    24
00739  M01S00557.qdump   +++|          BX6    X0*X6
00740  M01S00558.qdump   +++|          BX2    -X0*X2
00741  M01S00559.qdump   +++|          BX7    X6+X2
00742  M01S00560.qdump   +++|          SA7    A2
00743  M01S00561.qdump   +++|          SX5    MES4        *FILE NAME CONFLICT - FILE XXXXXXX.*
00744  M01S00562.qdump   +++|          MESSAGE X5
00745  M01S00563.qdump   +++|
00746  M01S00564.qdump   +++| OFN      SUBR               ENTRY/EXIT
00747  M01S00565.qdump   +++|          RECALL D
00748  M01S00566.qdump   +++|
00749  M01S00567.qdump   +++|*         CHECK OUTPUT FILE NAME FOR CONFLICTS.
00750  M01S00568.qdump   +++|
00751  M01S00569.qdump   +++|          SA0    O           OUTPUT FILE
00752  M01S00570.qdump   +++|          SA1    A0
00753  M01S00571.qdump   +++|          SX5    B1          SET FLAG
00754  M01S00572.qdump   +++|          SA2    D           DUMP FILE
00755  M01S00573.qdump   +++|          SA3    TARA+ARLL   SPECIFIED OUTPUT FILE NAME
00756  M01S00574.qdump   +++|
00757  M01S00575.qdump   +++|*         COMPARE CURRENT AND SPECIFIED NAMES.
00758  M01S00576.qdump   +++|
00759  M01S00577.qdump   +++| OFN1     MX0    42
00760  M01S00578.qdump   +++|          BX2    X2-X3
00761  M01S00579.qdump   +++|          BX4    X1-X3
00762  M01S00580.qdump   +++|          BX2    X0*X2
00763  M01S00581.qdump   +++|          BX1    X0*X4
00764  M01S00582.qdump   +++|          ZR     X2,OFN5     IF FILE NAME CONFLICT
00765  M01S00583.qdump   +++|          BX6    X6-X6       INITIALIZE LIST FLAG FOR OUTPUT FILE
00766  M01S00584.qdump   +++|          ZR     X1,OFN4     IF NO FILE NAME CHANGE
00767  M01S00585.qdump   +++|          ZR     X5,OFN2     IF DUMP FILE BEING CHECKED
00768  M01S00586.qdump   +++|          SA6    LIST
00769  M01S00587.qdump   +++|
00770  M01S00588.qdump   +++|*         CHECK FOR FILE NAME CONFLICTS.
00771  M01S00589.qdump   +++|
00772  M01S00590.qdump   +++| OFN2     SA1    IQ          OLD IQFT FILE
00773  M01S00591.qdump   +++|          SA2    T           TEMPORARY FILE
00774  M01S00592.qdump   +++| OFN3     BX1    X0*X1
00775  M01S00593.qdump   +++|          BX2    X0*X2
00776  M01S00594.qdump   +++|          BX1    X1-X3
00777  M01S00595.qdump   +++|          BX2    X2-X3
00778  M01S00596.qdump   +++|          ZR     X1,OFN5     IF FILE NAME CONFLICT
00779  M01S00597.qdump   +++|          ZR     X2,OFN5     IF CONFLICT
00780  M01S00598.qdump   +++|          NZ     X6,OFN4     IF ALL NAMES CHECKED
00781  M01S00599.qdump   +++|          SA1    S           SYSTEM SECTOR
00782  M01S00600.qdump   +++|          SA2    Q           QUEUE FILE
00783  M01S00601.qdump   +++|          SX6    B1+
00784  M01S00602.qdump   +++|          EQ     OFN3
00785  M01S00603.qdump   +++|
00786  M01S00604.qdump   +++|*         SET FILE NAME IN FET.
00787  M01S00605.qdump   +++|
00788  M01S00606.qdump   +++| OFN4     SX1    3
00789  M01S00607.qdump   +++|          BX6    X3+X1
00790  M01S00608.qdump   +++|          SA6    A0
00791  M01S00609.qdump   +++|          SA6    DE          SET END OF VOLUME CONTROL WORD FET
00792  M01S00610.qdump   +++|          ZR     X5,OFNX     IF BOTH NAMES CHECKED
00793  M01S00611.qdump   +++|
00794  M01S00612.qdump   +++|*         CHECK DUMP FILE NAME FOR CONFLICTS.
00795  M01S00613.qdump   +++|
00796  M01S00614.qdump   +++|          SA0    D           DUMP FILE
00797  M01S00615.qdump   +++|          SA1    A0
00798  M01S00616.qdump   +++|          BX5    X5-X5       CLEAR FLAG
00799  M01S00617.qdump   +++|          SA2    O           OUTPUT FILE
00800  M01S00618.qdump   +++|          SA3    TARA+ARFN   SPECIFIED DUMP FILE NAME
00801  M01S00619.qdump   +++|          EQ     OFN1
00802  M01S00620.qdump   +++| OUT      SPACE  4,20
00803  M01S00621.qdump   +++|**        OUT - RELEASE OUTPUT FILE TO PRINTER.
00804  M01S00622.qdump   +++|*
00805  M01S00623.qdump   +++|*         RELEASE THE OUTPUT FILE, IF ONE EXISTS, TO THE PRINTER
00806  M01S00624.qdump   +++|*         AND ISSUE AN INFORMATIVE MESSAGE AS TO WHETHER OR NOT
00807  M01S00625.qdump   +++|*         ONE WAS RELEASED.
00808  M01S00626.qdump   +++|*
00809  M01S00627.qdump   +++|*         ENTRY  (LIST) .NE. 0 IF OUTPUT FILE WRITTEN.
00810  M01S00628.qdump   +++|*
00811  M01S00629.qdump   +++|*         EXIT   (LIST) = 0.
00812  M01S00630.qdump   +++|*                (X5) = *K* DISPLAY MESSAGE ADDRESS.
00813  M01S00631.qdump   +++|*
Line S00632 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00632.qdump4  ---|*         USES   A - 2, 6.
Line S00633 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00633.qdump4  ---|*                X - 2, 5, 6.
00816  M01S00008.qdump4  +++|*         USES   X - 2, 5, 6.
00817  M01S00009.qdump4  +++|*                A - 2, 6.
00818  M01S00634.qdump   +++|*
00819  M01S00635.qdump   +++|*         CALLS  CBL.
00820  M01S00636.qdump   +++|*
00821  M01S00637.qdump   +++|*         MACROS ROUTE.
00822  M01S00638.qdump   +++|
00823  M01S00639.qdump   +++|
00824  M01S00640.qdump   +++| OUT1     SX5    MES6        *NO OUTPUT FILE EXISTS.*
00825  M01S00641.qdump   +++|
00826  M01S00642.qdump   +++| OUT      SUBR               ENTRY/EXIT
00827  M01S00643.qdump   +++|          SA2    LIST        CHECK IF OUTPUT EXISTS
00828  M01S00644.qdump   +++|          ZR     X2,OUT1     IF NO OUTPUT FILE
00829  M01S00645.qdump   +++|
00830  M01S00646.qdump   +++|*         RELEASE OUTPUT FILE.
00831  M01S00647.qdump   +++|
00832  M01S00648.qdump   +++|          RJ     CBL         CLEAR ROUTE BLOCK
00833  M01S00649.qdump   +++|          SA2    O           SET UP *DSP* PARAMETER BLOCK
00834  M01S00650.qdump   +++|          MX6    42
00835  M01S00651.qdump   +++|          BX6    X6*X2
00836  M01S00652.qdump   +++|          SA6    BLOCK
00837  M01S00653.qdump   +++|          SA2    OUTA        SET FLAGS
00838  M01S00654.qdump   +++|          BX6    X2
00839  M01S00655.qdump   +++|          SA6    A6+B1
00840  M01S00656.qdump   +++|          ROUTE  BLOCK,RECALL
00841  M01S00657.qdump   +++|          BX6    X6-X6       CLEAR OUTPUT FLAG
00842  M01S00658.qdump   +++|          SA6    LIST
00843  M01S00659.qdump   +++|          SX5    MES7        *OUTPUT FILE RELEASED.*
00844  M01S00660.qdump   +++|          EQ     OUTX
00845  M01S00661.qdump   +++|
00846  M01S00662.qdump   +++|
00847  M01S00663.qdump   +++| OUTA     VFD    24/0,12/2HPR,6/0,18/FRDC
00848  M01S00664.qdump   +++| WDH      SPACE  4,20
00849  M01S00665.qdump   +++|**        WDH - WRITE DUMP FILE HEADER BLOCK.
00850  M01S00666.qdump   +++|*
00851  M01S00667.qdump   +++|*         REWIND THE ATTACHED DUMP FILE IF SPECIFIED THEN SKIP
00852  M01S00668.qdump   +++|*         THE NUMBER OF FILES SPECIFIED, AND WRITE A FOUR WORD
00853  M01S00669.qdump   +++|*         DUMP HEADER TO THE DUMP FILE CONTAINING THE DATE,
00854  M01S00670.qdump   +++|*         TIME, AND DUMP FILE DESCRIPTION.
00855  M01S00671.qdump   +++|*
00856  M01S00672.qdump   +++|*         EXIT   (X5) = 0 IF NO ERROR.
00857  M01S00673.qdump   +++|*                     .NE. 0 IF ERROR WRITING HEADER TO DUMP FILE.
00858  M01S00674.qdump   +++|*                (DFBS) = DUMP FILE BLOCK SIZE.
00859  M01S00675.qdump   +++|*                (ERRB) .NE. 0 IF *PO=N* SPECIFIED AND ERROR
00860  M01S00676.qdump   +++|*                              ENCOUNTERED.
00861  M01S00677.qdump   +++|*                (MSFG) = 0, IF MASS STORAGE DUMP FILE.
00862  M01S00678.qdump   +++|*                DUMP FILE POSITIONED.
00863  M01S00679.qdump   +++|*
00864  M01S00680.qdump   +++|*         USES   X - 0, 1, 2, 5, 6, 7.
00865  M01S00681.qdump   +++|*                A - 0, 1, 2, 6, 7.
00866  M01S00682.qdump   +++|*
00867  M01S00683.qdump   +++|*         CALLS  BEC, CER, SFN, WBD.
00868  M01S00684.qdump   +++|*
00869  M01S00685.qdump   +++|*         MACROS CLOCK, DATE, MESSAGE, OPEN, REWIND, SETFS, SKIPFF,
00870  M01S00686.qdump   +++|*                WRITECW.
00871  M01S00687.qdump   +++|
00872  M01S00688.qdump   +++|
00873  M01S00689.qdump   +++| WDH      SUBR               ENTRY/EXIT
00874  M01S00690.qdump   +++|          SA1    TARA+ARFC
00875  M01S00691.qdump   +++|          LX1    59-58
00876  M01S00692.qdump   +++|          PL     X1,WDH1     IF NO REWIND SPECIFIED
00877  M01S00693.qdump   +++|          REWIND D,R
00878  M01S00694.qdump   +++| WDH1     SA1    TARA+ARNF
00879  M01S00695.qdump   +++|          ZR     X1,WDH2     IF NO FILES TO SKIP
00880  M01S00696.qdump   +++|          SA2    D
00881  M01S00697.qdump   +++|          SX3    17B         SET LEVEL *17B* IN FET
00882  M01S00698.qdump   +++|          LX3    14
00883  M01S00699.qdump   +++|          MX0    -4
00884  M01S00700.qdump   +++|          LX0    14
00885  M01S00701.qdump   +++|          BX2    X0*X2
00886  M01S00702.qdump   +++|          BX6    X3+X2
00887  M01S00703.qdump   +++|          SA6    A2
00888  M01S00704.qdump   +++|          SKIPFF D,X1,R
00889  M01S00705.qdump   +++| WDH2     SETFS  D,0
00890  M01S00706.qdump   +++|          OPEN   X2,ALTERNR,R
00891  M01S00707.qdump   +++|          WRITECW X2,*       PRESET WRITE FUNCTION
00892  M01S00708.qdump   +++|
Line S00709 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00709.qdump4  ---|*         SET MASS STORAGE FILE.
00894  M01S00010.qdump4  +++|*         BUILD HEADER BLOCK DATA.
00895  M01S00710.qdump   +++|
Line S00711 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00896  M02S00711.qdump4  ---|          SA1    D+1
Line S00712 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00712.qdump4  ---|          NG     X1,WDH3     IF NOT ALLOCATABLE DEVICE
Line S00713 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00713.qdump4  ---|          SX6    B0+         SET MASS STORAGE DUMP FILE FLAG
Line S00714 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00899  M02S00714.qdump4  ---|          SA6    MSFG
Line S00715 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00900  M02S00715.qdump4  ---|
Line S00716 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00901  M02S00716.qdump4  ---|*         BUILD HEADER BLOCK DATA.
Line S00717 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00902  M02S00717.qdump4  ---|
Line S00718 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00903  M02S00718.qdump4  ---| WDH3     SA1    D           SET DUMP FILE NAME IN DUMP CONTROL WORD
00904  M01S00011.qdump4  +++|          SA1    D           SET DUMP FILE NAME IN DUMP CONTROL WORD
00905  M01S00719.qdump   +++|          MX0    42
00906  M01S00720.qdump   +++|          BX1    X0*X1
00907  M01S00721.qdump   +++|          SA2    WDHA
00908  M01S00722.qdump   +++|          BX7    X1+X2       BUILD HEADER BLOCK
00909  M01S00723.qdump   +++|          SA7    WBUF+1
00910  M01S00724.qdump   +++|          RJ     SFN         SPACE FILL NAME
00911  M01S00725.qdump   +++|          SA6    A7+B1
00912  M01S00726.qdump   +++|          SA2    WDHB        BLANK FILL NEXT WORD
00913  M01S00727.qdump   +++|          BX6    X2
00914  M01S00728.qdump   +++|          SA6    A6+B1
00915  M01S00729.qdump   +++|          DATE   WBUF+4
00916  M01S00730.qdump   +++|          CLOCK  WBUF+5
00917  M01S00731.qdump   +++|
00918  M01S00732.qdump   +++|*         BUILD CONTROL WORDS.
00919  M01S00733.qdump   +++|
00920  M01S00734.qdump   +++|          SA1    D+4         BUILD EXTERNAL CONTROL WORD
00921  M01S00735.qdump   +++|          AX1    18
00922  M01S00736.qdump   +++|          SX6    X1          SET BLOCK SIZE OF DUMP FILE
00923  M01S00737.qdump   +++|          SA6    DFBS
00924  M01S00738.qdump   +++|          SX1    5
00925  M01S00012.qdump4  +++|          SA2    D+1
00926  M01S00013.qdump4  +++|          NG     X2,WDH3     IF NOT ALLOCATABLE DEVICE
00927  M01S00014.qdump4  +++|          SX6    B0+         SET MASS STORAGE DUMP FILE FLAG
00928  M01S00015.qdump4  +++|          SA6    MSFG
00929  M01S00016.qdump4  +++|          SX6    DBLL
00930  M01S00017.qdump4  +++| WDH3     SA6    DBLS        DUMP BLOCK LOGICAL SIZE
00931  M01S00739.qdump   +++|          RJ     BEC
00932  M01S00740.qdump   +++|
00933  M01S00741.qdump   +++|*         WRITE HEADER BLOCK TO DUMP FILE.
00934  M01S00742.qdump   +++|
00935  M01S00743.qdump   +++|          RJ     WBD         WRITE BLOCK
00936  M01S00744.qdump   +++|          SA0    D
Line S00745 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00745.qdump4  ---|          WRITECW D,R
00938  M01S00018.qdump4  +++|          WRITECW A0,R
00939  M01S00746.qdump   +++|          RJ     CER         CHECK FOR ERROR
00940  M01S00747.qdump   +++|          ZR     X5,WDHX     IF NO ERROR
00941  M01S00748.qdump   +++|          SX5    MES8        *BAD DUMP FILE.*
00942  M01S00749.qdump   +++|          MESSAGE X5
00943  M01S00750.qdump   +++|          SA1    TARA+ARFC
00944  M01S00751.qdump   +++|          PL     X1,WDHX     IF *PO=N* NOT SPECIFIED
00945  M01S00752.qdump   +++|          SA6    ERRB        SET ABORT FLAG
00946  M01S00753.qdump   +++|          SX5    MES2        *QDUMP ABORTED.*
00947  M01S00754.qdump   +++|          MESSAGE X5
00948  M01S00755.qdump   +++|          EQ     WDHX
00949  M01S00756.qdump   +++|
00950  M01S00757.qdump   +++| WDHA     VFD    42/0,3/6,6/0,9/4  DUMP HEADER CONTROL WORD
00951  M01S00758.qdump   +++| WDHB     DATA   10H
00952  M01S00759.qdump   +++| AQF      TITLE  SECONDARY SUBROUTINES.
Line S00760 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00953  M02S00760.ns21000 ---|**        AQF - ATTACH QUEUE FILE AND READ SYSTEM SECTOR.
00954  M01S00006.ns21000 +++|**        AQF - ATTACH QUEUE FILE AND READ SYSTEM INFORMATION.
00955  M01S00761.qdump   +++|*
00956  M01S00762.qdump   +++|*         SEARCH THE IQFT BUFFER UNTIL THE NEXT ENTRY THAT MEETS
00957  M01S00763.qdump   +++|*         THE REQUIREMENTS SPECIFIED IN THE FET IS FOUND, THEN
00958  M01S00764.qdump   +++|*         ATTACH THAT FILE TO THE CONTROL POINT, ISSUE A *READ* ON
Line S00765 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00959  M02S00765.ns21000 ---|*         THE FILE AND ALSO READ THE SYSTEM SECTOR FOR THE FILE.
00960  M01S00007.ns21000 +++|*         THE FILE AND READ ITS SYSTEM AND EOI SECTORS.
00961  M01S00766.qdump   +++|*
00962  M01S00767.qdump   +++|*         ENTRY  (X5) = FUNCTION TO ATTACH FILE.
00963  M01S00768.qdump   +++|*
00964  M01S00769.qdump   +++|*         EXIT   (X5) = 0 IF NO ERROR.
00965  M01S00770.qdump   +++|*                     .LT. 0, SKIP FILE.
00966  M01S00771.qdump   +++|*                     .GT. 0, *K* DISPLAY MESSAGE ADDRESS.
00967  M01S00772.qdump   +++|*                (X6) .NE. 0 IF END OF BUFFER.
00968  M01S00773.qdump   +++|*                (AQFA) .NE. 0 IF READ MASS STORAGE ERROR.
00969  M01S00774.qdump   +++|*
00970  M01S00775.qdump   +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00971  M01S00776.qdump   +++|*                A - 0, 1, 2, 3, 5, 6, 7.
00972  M01S00777.qdump   +++|*                B - 6.
00973  M01S00778.qdump   +++|*
00974  M01S00779.qdump   +++|*         CALLS  CER, EPR.
00975  M01S00780.qdump   +++|*
00976  M01S00781.qdump   +++|*         MACROS QCALL, READCW, REWIND.
00977  M01S00782.qdump   +++|
00978  M01S00783.qdump   +++|
00979  M01S00784.qdump   +++| AQF      SUBR               ENTRY/EXIT
00980  M01S00785.qdump   +++|          BX6    X6-X6       CLEAR FLAGS
00981  M01S00786.qdump   +++|          SA6    AQFA
00982  M01S00787.qdump   +++|          SA6    A6+B1
00983  M01S00788.qdump   +++|          REWIND Q,R
00984  M01S00789.qdump   +++|          REWIND S,R
00985  M01S00790.qdump   +++|
00986  M01S00791.qdump   +++|*         ATTACH QUEUE FILE.
00987  M01S00792.qdump   +++|
00988  M01S00793.qdump   +++|          SA0    T           ATTACH FILE
00989  M01S00794.qdump   +++|          QCALL  X5,T
00990  M01S00795.qdump   +++|          RJ     CER         CHECK FOR ERROR
00991  M01S00796.qdump   +++|          NZ     X5,AQF2     IF ERROR
00992  M01S00797.qdump   +++|          SA1    T+3         ADVANCE *OUT* POINTER
00993  M01S00798.qdump   +++|          SA2    A1-B1
00994  M01S00799.qdump   +++|          IX2    X2-X1       *IN* - *OUT*
00995  M01S00800.qdump   +++|          SX6    B1+         SET FLAG FOR NO ATTACH
00996  M01S00801.qdump   +++|          SA6    AQFB
00997  M01S00802.qdump   +++|          ZR     X2,AQFX     IF END OF BUFFER
00998  M01S00803.qdump   +++|          SX7    X1+QFEWL
00999  M01S00804.qdump   +++|          SA7    A1
01000  M01S00805.qdump   +++|          MX0    24
01001  M01S00806.qdump   +++|          SA2    X1+         INSERT QUEUE FILE NAME IN FETS
01002  M01S00807.qdump   +++|          BX6    X0*X2
01003  M01S00808.qdump   +++|          MX0    -18
01004  M01S00809.qdump   +++|          SA3    Q
01005  M01S00810.qdump   +++|          BX3    -X0*X3
01006  M01S00811.qdump   +++|          BX7    X6+X3
01007  M01S00812.qdump   +++|          SA5    S
01008  M01S00813.qdump   +++|          BX5    -X0*X5
01009  M01S00814.qdump   +++|          SA7    A3
01010  M01S00815.qdump   +++|          BX7    X6+X5
01011  M01S00816.qdump   +++|          SA7    A5
01012  M01S00817.qdump   +++|
Line S00818 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01013  M02S00818.ns21000 ---|*         READ SYSTEM SECTOR.
01014  M01S00008.ns21000 +++|*         READ SYSTEM INFORMATION.
01015  M01S00819.qdump   +++|
01016  M01S00820.qdump   +++|          SA0    S
Line S00821 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01017  M02S00821.ns21000 ---|          QCALL  QRSF,S
01018  M01S00009.ns21000 +++|          QCALL  QRSF,S      READ SYSTEM SECTOR
01019  M01S00822.qdump   +++|          RJ     CER         CHECK FOR ERROR
01020  M01S00823.qdump   +++|          NZ     X5,AQF2     IF ERROR
01021  M01S00010.ns21000 +++|          QCALL  QREF,S      READ EOI SECTOR
01022  M01S00824.qdump   +++| AQF1     READCW Q           READ QUEUE FILE
01023  M01S00825.qdump   +++|          BX6    X6-X6       CLEAR END OF BUFFER
01024  M01S00826.qdump   +++|          EQ     AQFX        RETURN
01025  M01S00827.qdump   +++|
01026  M01S00828.qdump   +++|*         PROCESS *QFM* ERROR.
01027  M01S00829.qdump   +++|
01028  M01S00830.qdump   +++| AQF2     SB6    TQEP        SET ERROR TABLE ADDRESS
01029  M01S00831.qdump   +++|          RJ     EPR         PROCESS ERROR
01030  M01S00832.qdump   +++|          NZ     X5,AQFX     IF ERROR
01031  M01S00833.qdump   +++|          SA7    AQFA        SAVE READ ERROR MESSAGE ADDRESS
01032  M01S00834.qdump   +++|          SA7    CPFA
01033  M01S00835.qdump   +++|          EQ     AQF1        RENAME OLD QUEUE FILE
01034  M01S00836.qdump   +++|
01035  M01S00837.qdump   +++| AQFA     CON    0           READ ERROR FLAG
01036  M01S00838.qdump   +++| AQFB     CON    1           ATTACHING FLAG
01037  M01S00839.qdump   +++| BEC      SPACE  4,20
01038  M01S00840.qdump   +++|**        BEC - BUILD EXTERNAL CONTROL WORD.
01039  M01S00841.qdump   +++|*
01040  M01S00842.qdump   +++|*         BUILD THE CONTROL WORD TO BE USED BY *WRITECW*.
01041  M01S00843.qdump   +++|*
01042  M01S00844.qdump   +++|*         ENTRY  (DFBS) = SIZE OF DUMP FILE BLOCK.
01043  M01S00845.qdump   +++|*                (X1) = NUMBER OF WORDS IN BUFFER.
01044  M01S00846.qdump   +++|*
01045  M01S00847.qdump   +++|*         EXIT   (X1) = (X5) = NUMBER OF WORDS IN BUFFER.
01046  M01S00848.qdump   +++|*
Line S00849 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
01047  M02S00849.qdump4  ---|*         USES   A - 2, 7.
Line S00850 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00850.qdump4  ---|*                X - 2, 3, 5, 6, 7.
01049  M01S00019.qdump4  +++|*         USES   X - 2, 3, 5, 6, 7.
01050  M01S00020.qdump4  +++|*                A - 2, 7.
01051  M01S00851.qdump   +++|
01052  M01S00852.qdump   +++|
01053  M01S00853.qdump   +++| BEC      SUBR               ENTRY/EXIT
01054  M01S00854.qdump   +++|          SA2    DFBS        BUILD EXTERNAL CONTROL WORD
01055  M01S00855.qdump   +++|          LX2    36
01056  M01S00856.qdump   +++|          SX5    X1
01057  M01S00857.qdump   +++|          SX3    5           CALCULATE BYTE COUNT
01058  M01S00858.qdump   +++|          IX6    X3*X1
01059  M01S00859.qdump   +++|          BX7    X2+X6
01060  M01S00860.qdump   +++|          SA7    WBUF
01061  M01S00861.qdump   +++|          EQ     BECX
01062  M01S00862.qdump   +++| BOF      SPACE  4,30
01063  M01S00863.qdump   +++|**        BOF - BUILD OUTPUT FILE.
01064  M01S00864.qdump   +++|*
01065  M01S00865.qdump   +++|*         WRITE ONE ENTRY TO THE OUTPUT FILE AND CALL THE ROUTINE
01066  M01S00866.qdump   +++|*         TO WRITE PAGE HEADERS WHEN NECESSARY.
01067  M01S00867.qdump   +++|*
01068  M01S00868.qdump   +++|*         ENTRY  (X7) = ERROR CODE ADDRESS.
01069  M01S00869.qdump   +++|*                (LNUM) = CURRENT LINE NUMBER.
01070  M01S00870.qdump   +++|*                (PNUM) = CURRENT PAGE NUMBER.
01071  M01S00871.qdump   +++|*                (QNUM) = CURRENT QUEUE FILE NUMBER.
01072  M01S00872.qdump   +++|*                (CEQP) = CURRENT EQUIPMENT.
01073  M01S00873.qdump   +++|*                (DSPB) = 0, DUMP INACTIVE QUEUE FILES.
01074  M01S00874.qdump   +++|*                       = 1, DUMP ACTIVE QUEUE FILES.
01075  M01S00875.qdump   +++|*                       = 2, DUMP ALL QUEUE FILES.
01076  M01S00876.qdump   +++|*
01077  M01S00877.qdump   +++|*         EXIT   (LNUM) = NEXT LINE NUMBER.
01078  M01S00878.qdump   +++|*                (PNUM) = NEXT PAGE NUMBER.
01079  M01S00879.qdump   +++|*                (QNUM) = NEXT QUEUE FILE NUMBER.
01080  M01S00880.qdump   +++|*
Line S00881 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01081  M02S00881.ns22000 ---|*         USES   X - 1, 2, 3, 6, 7.
01082  M01S00088.ns22000 +++|*                X - 1, 2, 3, 5, 6, 7.
01083  M01S00882.qdump   +++|*                A - 1, 2, 3, 6, 7.
01084  M01S00883.qdump   +++|*                B - 7.
01085  M01S00884.qdump   +++|*
01086  M01S00885.qdump   +++|*         CALLS  BOH, FQO.
01087  M01S00886.qdump   +++|*
01088  M01S00887.qdump   +++|*         MACROS WRITEC, WRITEW.
01089  M01S00888.qdump   +++|
01090  M01S00889.qdump   +++|
01091  M01S00890.qdump   +++| BOF      SUBR               ENTRY/EXIT
01092  M01S00891.qdump   +++|          SA7    BOFA        SAVE ERROR CODE ADDRESS
01093  M01S00892.qdump   +++|          SA1    LNUM        LINE NUMBER
Line S00893 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01094  M02S00893.ns22000 ---|          SX7    X1-LINP
Line S00894 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01095  M02S00894.ns22000 ---|          NZ     X7,BOF1     IF NOT END OF PAGE
01096  M01S00089.ns22000 +++|          SA2    A1+B1
01097  M01S00090.ns22000 +++|          IX7    X1-X2
01098  M01S00091.ns22000 +++|          NG     X7,BOF1     IF NOT END OF PAGE
01099  M01S00895.qdump   +++|
01100  M01S00896.qdump   +++|*         WRITE HEADER AND SET RECORD FLAGS.
01101  M01S00897.qdump   +++|
01102  M01S00898.qdump   +++|          RJ     BOH         BUILD OUTPUT PAGE HEADER
01103  M01S00899.qdump   +++|          SA2    PNUM        CHECK PAGE NUMBER
01104  M01S00900.qdump   +++|          SX6    X2-2
01105  M01S00901.qdump   +++|          NZ     X6,BOF1     IF NOT FIRST PAGE
01106  M01S00902.qdump   +++|          SA3    LIST        INCREMENT OUTPUT FLAG
01107  M01S00903.qdump   +++|          SX7    X3+B1
01108  M01S00904.qdump   +++|          SA7    A3
01109  M01S00905.qdump   +++|          SA7    RECF        SET CURRENT RECORD FLAG
01110  M01S00906.qdump   +++|
01111  M01S00907.qdump   +++|*         WRITE ONE LINE TO OUTPUT FILE.
01112  M01S00908.qdump   +++|
01113  M01S00909.qdump   +++| BOF1     SA3    CEQP        CURRENT EQUIPMENT
01114  M01S00910.qdump   +++|          SB7    TEQA+X3     ADDRESS OF FAMILY/DEVICE
01115  M01S00911.qdump   +++|          SA1    QNUM        INCREMENT QUEUE NUMBER
01116  M01S00912.qdump   +++|          SX6    X1+B1
01117  M01S00913.qdump   +++|          SA6    A1
01118  M01S00914.qdump   +++|          SA2    T+3         IQFT ENTRY ADDRESS
Line S00915 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01119  M02S00915.ns22000 ---|          SX2    X2-QFEWL
01120  M01S00092.ns22000 +++|          SX5    X2-QFEWL
01121  M01S00916.qdump   +++|          SA3    DSPB        DISPOSITION FIELD ENTRY
01122  M01S00917.qdump   +++|          SA3    BOFG+X3
01123  M01S00918.qdump   +++|          RJ     FQO         FORMAT OUTPUT LINE
01124  M01S00919.qdump   +++|          WRITEW O,B3,B2-1
01125  M01S00920.qdump   +++|
01126  M01S00921.qdump   +++|*         WRITE ERROR CODE TO OUTPUT.
01127  M01S00922.qdump   +++|
01128  M01S00923.qdump   +++|          SA3    BOFA        ERROR CODE ADDRESS
01129  M01S00924.qdump   +++|          WRITEC O,X3
01130  M01S00925.qdump   +++|          SA2    LNUM        INCREMENT LINE NUMBER
01131  M01S00926.qdump   +++|          SX7    X2+B1
01132  M01S00927.qdump   +++|          SA7    A2
01133  M01S00928.qdump   +++|          EQ     BOFX        RETURN
01134  M01S00929.qdump   +++|
01135  M01S00930.qdump   +++| BOFA     CON    0           ERROR CODE ADDRESS
01136  M01S00931.qdump   +++| BOFB     DATA   C*READ ERROR - FILE IGNORED*
01137  M01S00932.qdump   +++| BOFC     DATA   C*READ ERROR - FILE DUMPED*
01138  M01S00933.qdump   +++| BOFD     DATA   C*SYSTEM SECTOR ERROR - FILE IGNORED*
01139  M01S00934.qdump   +++| BOFE     DATA   C*TRACK LIMIT - FILE IGNORED*
01140  M01S00935.qdump   +++| BOFF     DATA   C*DUPLICATE FILE NAME - FILE IGNORED*
01141  M01S00936.qdump   +++| BOFG     DATA   H*INACTIVE  *
01142  M01S00937.qdump   +++|          DATA   H*ACTIVE    *
01143  M01S00938.qdump   +++|          DATA   H*ACTIVE    *
01144  M01S00939.qdump   +++| BLANK    DATA   C*        *
01145  M01S00940.qdump   +++| BOH      SPACE  4,20
01146  M01S00941.qdump   +++|**        BOH - BUILD OUTPUT FILE PAGE HEADER.
01147  M01S00942.qdump   +++|*
01148  M01S00943.qdump   +++|*         BUILD THE HEADER LINES FOR EACH PAGE AND WRITE THESE
01149  M01S00944.qdump   +++|*         LINES TO OUTPUT.
01150  M01S00945.qdump   +++|*
01151  M01S00946.qdump   +++|*         ENTRY  (PNUM) = PAGE NUMBER.
01152  M01S00093.ns22000 +++|*                (PDFE+1) = SET IF PRINT DENSITY FORMAT EFFECTOR
01153  M01S00094.ns22000 +++|*                           NOT YET WRITTEN.
01154  M01S00947.qdump   +++|*
01155  M01S00948.qdump   +++|*         EXIT   (PNUM) = NEXT PAGE NUMBER.
01156  M01S00949.qdump   +++|*                (LNUM) = LINE NUMBER FOLLOWING HEADER.
01157  M01S00950.qdump   +++|*
01158  M01S00951.qdump   +++|*         USES   X - 0, 1, 6, 7.
01159  M01S00952.qdump   +++|*                A - 1, 6, 7.
01160  M01S00953.qdump   +++|*
01161  M01S00954.qdump   +++|*         CALLS  CDD.
01162  M01S00955.qdump   +++|*
01163  M01S00956.qdump   +++|*         MACROS RECALL, WRITEW.
01164  M01S00957.qdump   +++|
01165  M01S00958.qdump   +++|
01166  M01S00959.qdump   +++| BOH      SUBR               ENTRY/EXIT
01167  M01S00960.qdump   +++|
01168  M01S00961.qdump   +++|*         SET PAGE NUMBER IN HEADER.
01169  M01S00962.qdump   +++|
01170  M01S00963.qdump   +++|          SA1    PNUM        INCREMENT PAGE NUMBER
01171  M01S00964.qdump   +++|          SX6    X1+B1
01172  M01S00965.qdump   +++|          SA6    A1
01173  M01S00966.qdump   +++|          RJ     CDD         CONVERT NUMBER
01174  M01S00967.qdump   +++|          MX0    36          SET IN HEADER
01175  M01S00968.qdump   +++|          SA1    BOHA3
01176  M01S00969.qdump   +++|          BX1    X0*X1
01177  M01S00970.qdump   +++|          BX6    -X0*X6
01178  M01S00971.qdump   +++|          BX7    X1+X6
01179  M01S00972.qdump   +++|          SA7    A1+
01180  M01S00973.qdump   +++|          RECALL O
01181  M01S00095.ns22000 +++|          SA1    PDFE+1      GET PRINT DENSITY FORMAT CONTROL FLAG
01182  M01S00096.ns22000 +++|          BX7    X7-X7
01183  M01S00097.ns22000 +++|          SA7    A1
01184  M01S00098.ns22000 +++|          WRITEW O,A1-B1,X1  CONDITIONALLY WRITE FORMAT EFFECTOR
01185  M01S00974.qdump   +++|
01186  M01S00975.qdump   +++|*         WRITE HEADER TO OUTPUT.
01187  M01S00976.qdump   +++|
01188  M01S00977.qdump   +++|          WRITEW O,BOHA,BOHAL
01189  M01S00978.qdump   +++|          WRITEW O,BOHB,BOHBL
01190  M01S00979.qdump   +++|          WRITEW O,BOHC,BOHCL
01191  M01S00980.qdump   +++|          SX7    8           SET LINE NUMBER
01192  M01S00981.qdump   +++|          SA7    LNUM
01193  M01S00982.qdump   +++|          EQ     BOHX        RETURN
01194  M01S00983.qdump   +++|
01195  M01S00984.qdump   +++| BOHA     DATA   C*1         QDUMP PROCESSOR.               YY/MM/DD. HH
01196  M01S00985.qdump   +++|,.MM.SS.  PAGE      *
01197  M01S00986.qdump   +++| BOHA1    EQU    *-4         DATE
01198  M01S00987.qdump   +++| BOHA2    EQU    *-3         TIME
01199  M01S00988.qdump   +++| BOHA3    EQU    *-2         PAGE
01200  M01S00989.qdump   +++| BOHAL    EQU    *-BOHA
01201  M01S00990.qdump   +++|
01202  M01S00991.qdump   +++| BOHB     DATA   H*0*        CARRIAGE CONTROL
01203  M01S00992.qdump   +++|          DATA   H/                    *** DUMPED/
01204  M01S00993.qdump   +++|          DATA   C/ QUEUE FILE DISPOSITION ***/
01205  M01S00994.qdump   +++| BOHBL    EQU    *-BOHB
01206  M01S00995.qdump   +++|
01207  M01S00996.qdump   +++| BOHC     DATA   H*0*        CARRIAGE CONTROL
Line S00997 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01208  M02S00997.ns22000 ---|          DATA   C*
Line S00998 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01209  M02S00998.ns22000 ---|,LENGTH*
01210  M01S00099.ns22000 +++|          DATA   C*                                              LENGTH
01211  M01S00100.ns22000 +++|,ACCESS*
01212  M01S00999.qdump   +++|          DATA   H* *        CARRIAGE CONTROL
Line S01000 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01213  M02S01000.ns22000 ---|          DATA   C*      NO. JSN      MID FAMILY  DN DT OT    DATE
Line S01001 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01214  M02S01001.ns22000 ---|,(PRUS) DISPOSITION  ERRORS*
Line S00101 Modification History
M01 (Added by) ns22000
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01215  M02S00101.241l630 ---|          DATA   C*   NO.  JSNS MID FAMILY  DN DT DS   DATE      (PRUS)
01216  M01S00003.241l630 +++|          DATA   C*   NUM  JSNS MID FAMILY  DN DT DS   DATE      (PRUS)
01217  M01S00102.ns22000 +++|,LEVEL  DISPOSITION ERRORS*
01218  M01S01002.qdump   +++|          DATA   C* *
01219  M01S01003.qdump   +++| BOHCL    EQU    *-BOHC
01220  M01S01004.qdump   +++| BUP      SPACE  4,10
01221  M01S01005.qdump   +++|**        BUP - BACK UP *IN* POINTER TO BEGINNING OF CURRENT FILE.
01222  M01S01006.qdump   +++|*
01223  M01S01007.qdump   +++|*         SET THE *IN* POINTER TO THE BEGINNING OF THE LAST RECORD
01224  M01S01008.qdump   +++|*         IN THE CIRCULAR BUFFER AND BACKSPACE TO THE START OF
01225  M01S01009.qdump   +++|*         THE CURRENT QUEUED FILE ON THE DUMP FILE IF NECESSARY.
01226  M01S01010.qdump   +++|*
01227  M01S01011.qdump   +++|*         ENTRY  (DFBS) = DUMP FILE BLOCK SIZE.
01228  M01S01012.qdump   +++|*                (RBCW) = ROUTE BLOCK CONTROL WORD.
01229  M01S01013.qdump   +++|*                (ERCW) = READ ERROR CONTROL WORD.
01230  M01S01014.qdump   +++|*
Line S01015 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
01231  M02S01015.qdump4  ---|*         USES   A - 1, 2, 3, 4, 6, 7.
Line S01016 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
01232  M02S01016.qdump4  ---|*                X - 0, 1, 2, 3, 4, 6, 7.
01233  M01S00021.qdump4  +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
01234  M01S00022.qdump4  +++|*                A - 1, 2, 3, 4, 6, 7.
01235  M01S01017.qdump   +++|*
01236  M01S01018.qdump   +++|*         CALLS  BEC, WBD.
01237  M01S00023.qdump4  +++|*
01238  M01S00024.qdump4  +++|*         MACROS BKSP, MESSAGE.
01239  M01S01019.qdump   +++|
01240  M01S01020.qdump   +++|
01241  M01S01021.qdump   +++| BUP      SUBR               ENTRY/EXIT
01242  M01S01022.qdump   +++|          SA2    D+2         *IN*
01243  M01S01023.qdump   +++|          SA3    A2+B1       *OUT*
01244  M01S01024.qdump   +++|          SA4    A3+B1       *LIMIT*
01245  M01S01025.qdump   +++|          SX4    X4+
01246  M01S01026.qdump   +++|          SX6    X3          SET LAST RECORD POINTER TO *OUT*
01247  M01S01027.qdump   +++|          IX7    X2-X3       CHECK FOR NO DATA IN BUFFER
01248  M01S01028.qdump   +++|          SA6    BUPA
01249  M01S01029.qdump   +++|          SX3    WBUF+1
01250  M01S01030.qdump   +++|          ZR     X7,BUP4     IF *IN* .EQ. *OUT*
01251  M01S01031.qdump   +++|          SX3    X6+         RESET *OUT*
01252  M01S01032.qdump   +++|
01253  M01S01033.qdump   +++|*         GET NEXT CONTROL WORD ADDRESS.
01254  M01S01034.qdump   +++|
01255  M01S01035.qdump   +++| BUP1     SA1    X3+         CONTROL WORD
01256  M01S01036.qdump   +++|          SX6    5
01257  M01S01037.qdump   +++|          SX7    X1+4        ROUND UP
01258  M01S01038.qdump   +++|          IX6    X7/X6       WORDS IN BLOCK
01259  M01S01039.qdump   +++|          IX7    X3+X6       CALCULATE ADDRESS OF NEXT CONTROL WORD
01260  M01S01040.qdump   +++|          SX7    X7+2
01261  M01S01041.qdump   +++|          IX1    X7-X4
01262  M01S01042.qdump   +++|          NG     X1,BUP2     IF NOT AT *LIMIT*
01263  M01S01043.qdump   +++|          IX7    X4-X3       CALCULATE AFTER WRAP-AROUND
01264  M01S01044.qdump   +++|          IX7    X6-X7
01265  M01S01045.qdump   +++|          SA1    D+1         *FIRST*
01266  M01S01046.qdump   +++|          SX1    X1
01267  M01S01047.qdump   +++|          IX7    X7+X1
01268  M01S01048.qdump   +++|          SX7    X7+2
01269  M01S01049.qdump   +++| BUP2     SA1    DFBS        DUMP FILE BLOCK SIZE
01270  M01S01050.qdump   +++|          IX6    X6-X1
01271  M01S01051.qdump   +++|          PL     X6,BUP3     IF NOT EOR
01272  M01S01052.qdump   +++|          SA7    BUPA        SAVE ADDRESS OF NEXT RECORD
01273  M01S01053.qdump   +++|
01274  M01S01054.qdump   +++|*         SET *IN* POINTER.
01275  M01S01055.qdump   +++|
01276  M01S01056.qdump   +++| BUP3     SX3    X7          RESET ADDRESS
01277  M01S01057.qdump   +++|          IX6    X2-X7
01278  M01S01058.qdump   +++|          NZ     X6,BUP1     IF ADDRESS .NE. *IN*
01279  M01S01059.qdump   +++|          SA1    BUPA
01280  M01S01060.qdump   +++|          IX7    X2-X1
01281  M01S01061.qdump   +++|          ZR     X7,BUPX     IF *IN* = ADDRESS OF NEXT RECORD
01282  M01S01062.qdump   +++|          SX7    X1          SET *IN* = ADDRESS OF LAST RECORD
01283  M01S01063.qdump   +++|          SA7    A2
01284  M01S01064.qdump   +++|
01285  M01S01065.qdump   +++|*         BACKSPACE DUMP FILE IF NOT AT BEGINNING OF FILE.
01286  M01S01066.qdump   +++|
01287  M01S01067.qdump   +++|          SA3    A3          *OUT*
01288  M01S01068.qdump   +++|          IX6    X3-X1
01289  M01S01069.qdump   +++|          NZ     X6,BUPX     IF EOR FOUND
01290  M01S01070.qdump   +++|          SX3    X3+B1       CHECK FOR BEGINNING OF QUEUED FILE
01291  M01S01071.qdump   +++|          IX7    X3-X4
01292  M01S01072.qdump   +++|          NZ     X7,BUP4     IF NOT AT *LIMIT*
01293  M01S01073.qdump   +++|          SA3    D+1         *FIRST*
01294  M01S01074.qdump   +++| BUP4     SA1    X3          CHECK FOR ROUTE BLOCK CONTROL WORD
01295  M01S01075.qdump   +++|          SA4    RBCW
01296  M01S01076.qdump   +++|          BX7    X4-X1
01297  M01S01077.qdump   +++|          ZR     X7,BUPX     IF AT BEGINNING OF FILE
01298  M01S01078.qdump   +++|          BKSP   D,R
01299  M01S01079.qdump   +++|          SA1    D           CHECK IF BACKSPACE COMPLETE
01300  M01S01080.qdump   +++|          SX0    77BS3
01301  M01S01081.qdump   +++|          BX6    X0*X1
01302  M01S01082.qdump   +++|          SX6    X6-50B
01303  M01S01083.qdump   +++|          SX1    B1          SET WORDS IN BUFFER
01304  M01S01084.qdump   +++|          NZ     X6,BUPX     IF NOT REWIND STATUS
01305  M01S01085.qdump   +++|
01306  M01S01086.qdump   +++|*         END ERRORED FILE AND ISSUE MESSAGE.
01307  M01S01087.qdump   +++|
01308  M01S01088.qdump   +++|          SA2    ERCW        WRITE ERROR CONTROL WORD TO DUMP FILE
01309  M01S01089.qdump   +++|          BX6    X2
01310  M01S01090.qdump   +++|          SA6    WBUF+1
01311  M01S01091.qdump   +++|          RJ     BEC         BUILD EXTERNAL CONTROL WORD
01312  M01S01092.qdump   +++|          RJ     WBD         WRITE EOR BLOCK
01313  M01S01093.qdump   +++|          SA1    RBCW        SET FILE NAME IN MESSAGE
01314  M01S01094.qdump   +++|          MX0    42
01315  M01S01095.qdump   +++|          BX7    X0*X1
01316  M01S01096.qdump   +++|          LX7    -18
01317  M01S01097.qdump   +++|          SA2    MES11+3
01318  M01S01098.qdump   +++|          MX0    18
01319  M01S01099.qdump   +++|          BX6    X0*X2
01320  M01S01100.qdump   +++|          BX7    X6+X7
01321  M01S01101.qdump   +++|          SA7    A2+
01322  M01S01102.qdump   +++|          MESSAGE MES11
01323  M01S01103.qdump   +++|          EQ     BUPX
01324  M01S01104.qdump   +++|
01325  M01S01105.qdump   +++| BUPA     CON    0           ADDRESS OF NEXT RECORD
01326  M01S01106.qdump   +++| CDI      SPACE  4,20
01327  M01S01107.qdump   +++|**        CDI - CHECK CURRENT DEVICE IQFT.
01328  M01S01108.qdump   +++|*
01329  M01S01109.qdump   +++|*         COUNT THE ENTRIES IN THE REMAINDER OF THE CURRENT DEVICE
01330  M01S01110.qdump   +++|*         IQFT.  IF TRACK LIMIT HAS BEEN REACHED, THE ENTRIES ARE
01331  M01S01111.qdump   +++|*         VERIFIED AND THOSE MEETING SPECIFICATIONS ARE NOTED
01332  M01S01112.qdump   +++|*         ON THE OUTPUT FILE.
01333  M01S01113.qdump   +++|*
01334  M01S01114.qdump   +++|*         ENTRY  (IGCT) = COUNT OF FILES IGNORED ON DEVICE.
01335  M01S01115.qdump   +++|*                (CDIA) .NE. 0 IF TRACK LIMIT REACHED.
Line S01116 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01336  M02S01116.ns22000 ---|*                (CEQP) = CURRENT EQUIPMENT NUMBER.
01337  M01S00103.ns22000 +++|*                (CEQP) = CURRENT EST ORDINAL.
01338  M01S01117.qdump   +++|*
01339  M01S01118.qdump   +++|*         EXIT   (IGCT) = UPDATED COUNT OF IGNORED FILES.
01340  M01S01119.qdump   +++|*                (X5) = 0 IF NO ERROR.
01341  M01S01120.qdump   +++|*                     = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
01342  M01S01121.qdump   +++|*
01343  M01S01122.qdump   +++|*         USES   X - 0, 1, 2, 5, 6, 7.
01344  M01S01123.qdump   +++|*                A - 1, 2, 7.
01345  M01S01124.qdump   +++|*
01346  M01S01125.qdump   +++|*         CALLS  BOF, VIE.
01347  M01S01126.qdump   +++|*
01348  M01S01127.qdump   +++|*         MACROS READW, WRITEW.
01349  M01S01128.qdump   +++|
01350  M01S01129.qdump   +++|
01351  M01S01130.qdump   +++| CDI      SUBR               ENTRY/EXIT
01352  M01S01131.qdump   +++|
01353  M01S01132.qdump   +++|*         READ REMAINDER OF OLD IQFT.
01354  M01S01133.qdump   +++|
01355  M01S01134.qdump   +++| CDI1     BX5    X5-X5       CLEAR ERROR STATUS
01356  M01S01135.qdump   +++|          READW  IQ,IQFE,QFEWL
01357  M01S01136.qdump   +++|          NZ     X5,CDIX     IF MASS STORAGE ERROR
01358  M01S01137.qdump   +++|          NZ     X1,CDIX     IF EOF/EOI
01359  M01S01138.qdump   +++|
01360  M01S01139.qdump   +++|*         BUILD OUTPUT FILE IF TRACK LIMIT REACHED.
01361  M01S01140.qdump   +++|
01362  M01S01141.qdump   +++|          SA2    CDIA
01363  M01S01142.qdump   +++|          ZR     X2,CDI2     IF TRACK LIMIT NOT REACHED
01364  M01S01143.qdump   +++|          SA1    IQFE+8
01365  M01S01144.qdump   +++|          NG     X1,CDI2     IF LENGTH ERROR
01366  M01S01145.qdump   +++|          BX6    X6-X6
01367  M01S01146.qdump   +++|          RJ     VIE         VERIFY IQFT ENTRY
01368  M01S01147.qdump   +++|          NZ     X1,CDI2     IF NO MATCH
01369  M01S01148.qdump   +++|          SX7    TBUF        REWIND POINTERS
01370  M01S01149.qdump   +++|          SA7    T+2
01371  M01S01150.qdump   +++|          SA7    T+3
01372  M01S01151.qdump   +++|          SA2    CEQP        SET CURRENT EQUIPMENT IN ENTRY
01373  M01S01152.qdump   +++|          LX2    48
01374  M01S01153.qdump   +++|          MX0    12
01375  M01S01154.qdump   +++|          SA1    IQFE+1
Line S01155 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01376  M02S01155.ns22000 ---|          BX6    -X0*X1      CLEAR OLD EQUIPMENT NUMBER
01377  M01S00104.ns22000 +++|          BX6    -X0*X1      CLEAR OLD EST ORDINAL
01378  M01S01156.qdump   +++|          BX7    X6+X2
01379  M01S01157.qdump   +++|          SA7    A1
01380  M01S01158.qdump   +++|          WRITEW T,IQFE,QFEWL MOVE ENTRY TO BUFFER
01381  M01S01159.qdump   +++|          SA2    T+2         SET *OUT* = *IN*
01382  M01S01160.qdump   +++|          SX7    X2
01383  M01S01161.qdump   +++|          SA7    A2+B1
01384  M01S01162.qdump   +++|          SX7    BOFE        *TRACK LIMIT - FILE IGNORED*
01385  M01S01163.qdump   +++|          RJ     BOF
01386  M01S01164.qdump   +++|
01387  M01S01165.qdump   +++|*         BUILD NEW IQFT.
01388  M01S01166.qdump   +++|
01389  M01S01167.qdump   +++| CDI2     SA2    IGCT        INCREMENT COUNT
01390  M01S01168.qdump   +++|          SX7    X2+B1
01391  M01S01169.qdump   +++|          SA7    A2
01392  M01S01170.qdump   +++|          EQ     CDI1        READ NEXT ENTRY
01393  M01S01171.qdump   +++|
01394  M01S01172.qdump   +++| CDIA     CON    0           TRACK LIMIT FLAG
01395  M01S01173.qdump   +++| CPF      SPACE  4,20
01396  M01S01174.qdump   +++|**        CPF - COPY QUEUED FILE AND ASSOCIATED DATA TO DUMP FILE.
01397  M01S01175.qdump   +++|*
Line S01176 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01398  M02S01176.ns21000 ---|*         CALL ROUTINES TO FORMAT AND COPY THE ROUTE BLOCK AND
Line S01177 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01399  M02S01177.ns21000 ---|*         COPY THE QUEUED FILE AND SYSTEM SECTOR TO THE DUMP
Line S01178 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01400  M02S01178.ns21000 ---|*         FILE USING CONTROL WORDS.
01401  M01S00011.ns21000 +++|*         CALL ROUTINES TO FORMAT AND COPY THE ROUTE BLOCK, SYSTEM
01402  M01S00012.ns21000 +++|*         INFORMATION (SYSTEM AND EOI SECTORS) AND THE DATA FOR THE
01403  M01S00013.ns21000 +++|*         QUEUED FILE TO THE DUMP FILE ALONG WITH THE CORRESPONDING
01404  M01S00014.ns21000 +++|*         CONTROL WORDS.
01405  M01S01179.qdump   +++|*
01406  M01S01180.qdump   +++|*         ENTRY  (AQFA) .NE. 0 IF PREVIOUS READ ERROR.
01407  M01S01181.qdump   +++|*
01408  M01S01182.qdump   +++|*         EXIT   (X5) = 0 IF NO ERROR.
01409  M01S01183.qdump   +++|*                     .LT. 0, SKIP CURRENT FILE.
01410  M01S01184.qdump   +++|*                     .GT. 0, *K* DISPLAY MESSAGE ADDRESS.
01411  M01S01185.qdump   +++|*
Line S01186 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
01412  M02S01186.qdump4  ---|*         USES   A - 1, 2, 7.
Line S01187 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
01413  M02S01187.qdump4  ---|*                X - 0, 1, 2, 5, 6, 7.
01414  M01S00025.qdump4  +++|*         USES   X - 0, 1, 2, 5, 6, 7.
01415  M01S00026.qdump4  +++|*                A - 1, 2, 7.
01416  M01S01188.qdump   +++|*
Line S01189 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01417  M02S01189.ns21000 ---|*         CALLS  BUP, CSS, DFD, FRB.
01418  M01S00015.ns21000 +++|*         CALLS  BUP, CSI, DFD, FRB.
01419  M01S01190.qdump   +++|
01420  M01S01191.qdump   +++|
01421  M01S01192.qdump   +++| CPF      SUBR               ENTRY/EXIT
01422  M01S01193.qdump   +++|
01423  M01S01194.qdump   +++|*         SET QUEUED FILE NAME IN CONTROL WORDS.
01424  M01S01195.qdump   +++|
01425  M01S01196.qdump   +++|          SA2    T+3         SET FILE NAME
01426  M01S01197.qdump   +++|          SA2    X2-QFEWL
01427  M01S01198.qdump   +++|          MX0    24
01428  M01S01199.qdump   +++|          BX6    X0*X2
01429  M01S01200.qdump   +++|          SX2    B0+         SET INDEX
01430  M01S01201.qdump   +++| CPF1     SA1    TQCW+X2     INSERT NAME IN CONTROL WORD
01431  M01S01202.qdump   +++|          BX1    -X0*X1
01432  M01S01203.qdump   +++|          BX7    X6+X1
01433  M01S01204.qdump   +++|          SA7    A1
01434  M01S01205.qdump   +++|          SX2    X2+B1       INCREMENT INDEX
01435  M01S01206.qdump   +++|          SX5    X2-TQCWL
01436  M01S01207.qdump   +++|          NZ     X5,CPF1     IF NOT ALL CONTROL WORDS
01437  M01S01208.qdump   +++|          SA1    AQFA
01438  M01S01209.qdump   +++|          NZ     X1,CPF2     IF PREVIOUS READ ERROR
01439  M01S01210.qdump   +++|          SX7    BLANK       SAVE NO ERROR CODE ADDRESS
01440  M01S01211.qdump   +++|          SA7    CPFA
01441  M01S01212.qdump   +++|
01442  M01S01213.qdump   +++|*         COPY DATA TO DUMP FILE.
01443  M01S01214.qdump   +++|
01444  M01S01215.qdump   +++| CPF2     SX0    B0+         INITIALIZE NUMBER OF WORDS IN BUFFER
01445  M01S00027.qdump4  +++|          SX7    DBLL        SET INITIAL BUFFER SEGMENT LIMIT
01446  M01S00028.qdump4  +++|          SA7    DBSL
01447  M01S01216.qdump   +++|          RJ     FRB         FORM ROUTE BLOCK
Line S01217 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01448  M02S01217.ns21000 ---|          RJ     CSS         COPY SYSTEM SECTOR
01449  M01S00016.ns21000 +++|          RJ     CSI         COPY SYSTEM INFORMATION
01450  M01S01218.qdump   +++|          RJ     DFD         DUMP QUEUED FILE DATA
01451  M01S01219.qdump   +++|          PL     X5,CPFX     IF NOT SKIP FILE
01452  M01S01220.qdump   +++|          RJ     BUP         BACK UP *IN* POINTER
01453  M01S01221.qdump   +++|          EQ     CPFX
01454  M01S01222.qdump   +++|
01455  M01S01223.qdump   +++| CPFA     CON    0           ERROR CODE ADDRESS
01456  M01S01224.qdump   +++| TQCW     SPACE  4
01457  M01S01225.qdump   +++|**        TQCW - TABLE OF QDUMP CONTROL WORDS.
01458  M01S01226.qdump   +++|
01459  M01S01227.qdump   +++| TQCW     BSS    0           TABLE OF QDUMP CONTROL WORDS.
Line S01228 Modification History
M01 (Added by) qdump
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01460  M02S01228.ns22000 ---| RBCW     VFD    42/0,3/1,3/0,3/0,9/6     ROUTE BLOCK
01461  M01S00105.ns22000 +++| RBCW     VFD    42/0,3/1,3/0,3/0,9/EPBL  ROUTE BLOCK
Line S01229 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01462  M02S01229.ns21000 ---| SYCW     VFD    42/0,3/3,3/0,3/0,9/100B  SYSTEM SECTOR
01463  M01S00017.ns21000 +++| SYCW     VFD    42/0,3/3,3/0,3/0,9/200B  SYSTEM INFORMATION
01464  M01S01230.qdump   +++| DACW     VFD    42/0,3/0,3/0,3/0,9/0     DATA
01465  M01S01231.qdump   +++| ERCW     VFD    42/0,3/7,3/0,3/0,9/0     DUMP ERRORS
01466  M01S01232.qdump   +++| TQCWL    EQU    *-TQCW
01467  M01S01233.qdump   +++| CQD      SPACE  4,20
01468  M01S01234.qdump   +++|**        CQD - COPY QUEUE FILES TO DUMP FILE.
01469  M01S01235.qdump   +++|*
01470  M01S01236.qdump   +++|*         CALL ROUTINES TO PHYSICALLY DUMP THE FILES SPECIFIED
01471  M01S01237.qdump   +++|*         IN A BUFFER OF IQFT ENTRIES TO THE DUMP FILE.
01472  M01S01238.qdump   +++|*
01473  M01S01239.qdump   +++|*         ENTRY  (DSPB) = 0, DUMP INACTIVE QUEUE FILES.
01474  M01S01240.qdump   +++|*                       = 1, DUMP ACTIVE QUEUE FILES.
01475  M01S01241.qdump   +++|*                       = 2, DUMP ALL QUEUE FILES.
01476  M01S01242.qdump   +++|*                (DPCT) = COUNT OF FILES DUMPED ON THIS DEVICE.
01477  M01S01243.qdump   +++|*                (PQFA) .NE. 0 IF MORE FILES TO PROCESS.
01478  M01S01244.qdump   +++|*
01479  M01S01245.qdump   +++|*         EXIT   (X5) = 0 IF NO ERROR.
01480  M01S01246.qdump   +++|*                     = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
01481  M01S01247.qdump   +++|*
01482  M01S01248.qdump   +++|*         USES   X - 1, 2, 3, 5, 6, 7.
01483  M01S01249.qdump   +++|*                A - 1, 2, 3, 5, 6.
01484  M01S01250.qdump   +++|*                B - 6.
01485  M01S01251.qdump   +++|*
01486  M01S01252.qdump   +++|*         CALLS  AQF, BOF, CDI, CPF, EPR, RTF, SPF.
01487  M01S01253.qdump   +++|
01488  M01S01254.qdump   +++|
01489  M01S01255.qdump   +++| CQD      SUBR               ENTRY/EXIT
01490  M01S01256.qdump   +++|          SX5    AIQF        SET ATTACH INACTIVE FILES
01491  M01S01257.qdump   +++|          SA1    DSPB
01492  M01S01258.qdump   +++|          ZR     X1,CQD2     IF DUMP INACTIVE
01493  M01S01259.qdump   +++|          SA1    T           SET *QFM* PARAMETERS IN FET
01494  M01S01260.qdump   +++|          RJ     SPF
01495  M01S01261.qdump   +++| CQD1     SX5    AQFF        SET ATTACH ACTIVE FILES
01496  M01S01262.qdump   +++|
01497  M01S01263.qdump   +++|*         ATTACH QUEUE FILES THAT MEET ALL SPECIFICATIONS.
01498  M01S01264.qdump   +++|
01499  M01S01265.qdump   +++| CQD2     RJ     AQF         ATTACH FILE
01500  M01S01266.qdump   +++|          NG     X5,CQD4     IF SKIP FILE
01501  M01S01267.qdump   +++|          NZ     X5,CQD6     IF ERROR
01502  M01S01268.qdump   +++|          NZ     X6,CQD5     IF END OF BUFFER
01503  M01S01269.qdump   +++|
01504  M01S01270.qdump   +++|*         MOVE QUEUE FILE TO DUMP FILE.
01505  M01S01271.qdump   +++|
01506  M01S01272.qdump   +++|          RJ     CPF         COPY FILE TO DUMP FILE
01507  M01S01273.qdump   +++|          NG     X5,CQD4     IF SKIP FILE
01508  M01S01274.qdump   +++|          NZ     X5,CQD6     IF ERROR
01509  M01S01275.qdump   +++|          RJ     RTF         RETURN FILE
01510  M01S01276.qdump   +++|          ZR     X5,CQD3     IF NO ERROR
01511  M01S01277.qdump   +++|          SB6    TQEP        SET ERROR TABLE ADDRESS
01512  M01S01278.qdump   +++|          RJ     EPR         PROCESS ERROR
01513  M01S01279.qdump   +++|          SA1    DSPB
01514  M01S01280.qdump   +++|          NZ     X1,CQD3     IF DUMPING ACTIVE
01515  M01S01281.qdump   +++|          SA1    IGCT        DECREMENT IGNORED COUNT
01516  M01S01282.qdump   +++|          SX6    X1-1
01517  M01S01283.qdump   +++|          SA6    A1
01518  M01S01284.qdump   +++|
01519  M01S01285.qdump   +++|*         BUILD OUTPUT FILE.
01520  M01S01286.qdump   +++|
01521  M01S01287.qdump   +++| CQD3     SA1    DPCT        INCREMENT DUMPED COUNT
01522  M01S01288.qdump   +++|          SX6    X1+B1
01523  M01S01289.qdump   +++|          SA6    A1
01524  M01S01290.qdump   +++|          SA1    CPFA        SET ERROR CODE ADDRESS
01525  M01S01291.qdump   +++|          SX7    X1
01526  M01S01292.qdump   +++|          BX6    X5          SAVE ERROR STATUS
01527  M01S01293.qdump   +++|          SA6    CQDA
01528  M01S01294.qdump   +++|          RJ     BOF         BUILD OUTPUT FILE
01529  M01S01295.qdump   +++|          SA5    CQDA
01530  M01S01296.qdump   +++|          NG     X5,CQD4     IF SKIP FILE
01531  M01S01297.qdump   +++|          NZ     X5,CQD6     IF RETURN ERROR
01532  M01S01298.qdump   +++| CQD4     SA1    DSPB
01533  M01S01299.qdump   +++|          NZ     X1,CQD1     IF DUMP ACTIVE
01534  M01S01300.qdump   +++|
01535  M01S01301.qdump   +++|*         CHECK FOR END OF FILES.
01536  M01S01302.qdump   +++|
01537  M01S01303.qdump   +++| CQD5     SX5    B0+         CLEAR ERROR FLAG
01538  M01S01304.qdump   +++|          SA3    PQFA
01539  M01S01305.qdump   +++|          NZ     X3,CQDX     IF MORE FILES TO PROCESS
01540  M01S01306.qdump   +++| CQD6     SA1    DSPB
01541  M01S01307.qdump   +++|          NZ     X1,CQDX     IF DUMP ACTIVE
01542  M01S01308.qdump   +++|
01543  M01S01309.qdump   +++|*         COUNT REMAINING FILES.
01544  M01S01310.qdump   +++|
01545  M01S01311.qdump   +++|          SA2    PQFA
01546  M01S01312.qdump   +++|          ZR     X2,CQDX     IF ALL ENTRIES PROCESSED
01547  M01S01313.qdump   +++|          RJ     CDI         CHECK CURRENT IQFT
01548  M01S01314.qdump   +++|          EQ     CQDX        RETURN
01549  M01S01315.qdump   +++|
01550  M01S01316.qdump   +++| CQDA     CON    0           RETURN QUEUED FILE ERROR STATUS
Line S01317 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
01551  M02S01317.qdump4  ---| CSS      SPACE  4,20
01552  M01S00029.qdump4  +++| CSI      SPACE  4,20
Line S01318 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01553  M02S01318.ns21000 ---|**        CSS - COPY SYSTEM SECTOR TO DUMP FILE.
Line S01319 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01554  M02S01319.ns21000 ---|*
Line S01320 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01555  M02S01320.ns21000 ---|*         COPY THE SYSTEM SECTOR FROM *SBUF* TO THE DUMP FILE.
01556  M01S00018.ns21000 +++|**        CSI - COPY SYSTEM INFORMATION TO DUMP FILE.
01557  M01S00019.ns21000 +++|*
01558  M01S00020.ns21000 +++|*         COPY THE SYSTEM AND EOI SECTORS, ALONG WITH THE SYSTEM
01559  M01S00021.ns21000 +++|*         INFORMATION CONTROL WORD, TO THE DUMP FILE.
01560  M01S01321.qdump   +++|*
01561  M01S01322.qdump   +++|*         ENTRY  (X0) = NUMBER OF WORDS CURRENTLY IN BUFFER.
Line S01323 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01562  M02S01323.ns21000 ---|*                (SYCW) = SYSTEM SECTOR CONTROL WORD.
01563  M01S00022.ns21000 +++|*                (SYCW) = SYSTEM INFORMATION CONTROL WORD.
01564  M01S01324.qdump   +++|*
01565  M01S01325.qdump   +++|*         EXIT   (X0) = NUMBER OF WORDS IN BUFFER.
01566  M01S01326.qdump   +++|*
01567  M01S01327.qdump   +++|*         USES   X - 0, 2, 5, 6, 7.
01568  M01S01328.qdump   +++|*                A - 2, 5, 6, 7.
01569  M01S01329.qdump   +++|*
01570  M01S01330.qdump   +++|*         MACROS MOVE.
01571  M01S01331.qdump   +++|
01572  M01S01332.qdump   +++|
Line S01333 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01573  M02S01333.ns21000 ---| CSS      SUBR               ENTRY/EXIT
01574  M01S00023.ns21000 +++| CSI      SUBR               ENTRY/EXIT
01575  M01S01334.qdump   +++|          SX6    X0+B1       INDEX OF CONTROL WORD
01576  M01S01335.qdump   +++|          SX0    X6
01577  M01S01336.qdump   +++|          SA6    QCWI
Line S01337 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01578  M02S01337.ns21000 ---|          MOVE   100B,SBUF,WBUF+1+X0
Line S01338 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01579  M02S01338.ns21000 ---|          SA5    SYCW        SYSTEM SECTOR CONTROL WORD
Line S01339 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01580  M02S01339.ns21000 ---|          SX0    X0+100B     INCREMENT BUFFER WORD COUNT
01581  M01S00024.ns21000 +++|          MOVE   SBUFL-1,SBUF,WBUF+1+X0
01582  M01S00025.ns21000 +++|          SA5    SYCW        GET SYSTEM INFORMATION CONTROL WORD
01583  M01S00026.ns21000 +++|          SX0    X0+SBUFL-1  UPDATE BUFFER WORD COUNT
01584  M01S01340.qdump   +++|          SA2    QCWI        INDEX FOR CONTROL WORD
01585  M01S01341.qdump   +++|          BX7    X5
01586  M01S01342.qdump   +++|          SA7    WBUF+X2
Line S01343 Modification History
M01 (Added by) qdump
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01587  M02S01343.ns21000 ---|          EQ     CSSX        RETURN
01588  M01S00027.ns21000 +++|          EQ     CSIX        RETURN
01589  M01S01344.qdump   +++| CUF      SPACE  4,20
01590  M01S01345.qdump   +++|**        CUF - CLEAN UP CURRENT FILE AFTER ERROR.
01591  M01S01346.qdump   +++|*
01592  M01S01347.qdump   +++|*         INSURE THAT THE CURRENT FILE AND IQFT ENTRY, IF
01593  M01S01348.qdump   +++|*         NECESSARY, ARE REPLACED ON THE SOURCE DEVICE AFTER
01594  M01S01349.qdump   +++|*         AN ERROR HAS OCCURED.
01595  M01S01350.qdump   +++|*
01596  M01S01351.qdump   +++|*         ENTRY  (X5) = ERROR MESSAGE ADDRESS.
01597  M01S01352.qdump   +++|*                     = 0 IF CURRENTLY PROCESSING AN ERROR.
01598  M01S01353.qdump   +++|*                (A0) = FET ADDRESS.
01599  M01S01354.qdump   +++|*                (AQFB) = 0 IF ERROR ATTACHING QUEUED FILE.
01600  M01S01355.qdump   +++|*                (DSPB) = 0, DUMP INACTIVE QUEUE FILES.
01601  M01S01356.qdump   +++|*                       = 1, DUMP ACTIVE QUEUE FILES.
01602  M01S01357.qdump   +++|*                       = 2, DUMP ALL QUEUE FILES.
01603  M01S01358.qdump   +++|*
01604  M01S01359.qdump   +++|*         EXIT   (X4) = ERROR MESSAGE ADDRESS.
01605  M01S01360.qdump   +++|*                (X5) = 0 IF NO NEW ERROR.
01606  M01S01361.qdump   +++|*                     = MESSAGE ADDRESS IF ERROR RETURNING FILE.
01607  M01S01362.qdump   +++|*
01608  M01S01363.qdump   +++|*         USES   X - 1, 4, 5, 6, 7.
01609  M01S01364.qdump   +++|*                A - 1, 4, 5, 6, 7.
01610  M01S01365.qdump   +++|*
01611  M01S01366.qdump   +++|*         CALLS  RTF.
Line S01367 Modification History
M01 (Added by) qdump
M02 (Updated by) ns2340
Seq #  *Modification Id* Act 
----------------------------+
01612  M02S01367.ns2340  ---|
01613  M01S01368.qdump   +++|*
01614  M01S01369.qdump   +++|*         MACROS MOVE.
01615  M01S01370.qdump   +++|
01616  M01S01371.qdump   +++| CUF      SUBR               ENTRY/EXIT
01617  M01S01372.qdump   +++|          SX6    X5+         SAVE ERROR ADDRESS
01618  M01S01373.qdump   +++|          SA6    CUFA
01619  M01S01374.qdump   +++|          SA1    AQFB
01620  M01S01375.qdump   +++|          NZ     X1,CUF1     IF NOT ATTACHING ERROR
01621  M01S01376.qdump   +++|          SA5    T+3         *OUT*
01622  M01S01377.qdump   +++|          MOVE   QFEWL,X5,IQFE
01623  M01S01378.qdump   +++|          SX7    X5+QFEWL    UPDATE *OUT* POINTER
01624  M01S01379.qdump   +++|          SA7    A5
01625  M01S01380.qdump   +++|          BX5    X5-X5       CLEAR ERROR
01626  M01S01381.qdump   +++|          EQ     CUF2        RESET ERROR ADDRESS
01627  M01S01382.qdump   +++|
01628  M01S01383.qdump   +++| CUF1     RJ     RTF         RETURN QUEUE FILE TO SOURCE DEVICE
01629  M01S01384.qdump   +++| CUF2     SA4    CUFA        RESET ERROR ADDRESS
01630  M01S01385.qdump   +++|          SA1    DSPB
01631  M01S01386.qdump   +++|          NZ     X1,CUFX     IF DUMPING ACTIVE
01632  M01S01387.qdump   +++|          SA1    IGCT        INCREMENT IGNORED COUNT
01633  M01S01388.qdump   +++|          SX6    X1+B1
01634  M01S01389.qdump   +++|          SA6    A1
01635  M01S01390.qdump   +++|          EQ     CUFX        RETURN
01636  M01S01391.qdump   +++|
01637  M01S01392.qdump   +++| CUFA     CON    0           ERROR ADDRESS
01638  M01S01393.qdump   +++| DFD      SPACE  4,20
01639  M01S01394.qdump   +++|**        DFD - DUMP QUEUED FILE DATA.
01640  M01S01395.qdump   +++|*
01641  M01S01396.qdump   +++|*         COPY ONE QUEUED FILE FROM THE SOURCE DEVICE TO THE
01642  M01S01397.qdump   +++|*         DUMP FILE.
01643  M01S01398.qdump   +++|*
01644  M01S01399.qdump   +++|*         ENTRY  (X0) = NUMBER OF WORDS CURRENTLY IN BUFFER.
01645  M01S01400.qdump   +++|*                (DFBS) = DUMP FILE BLOCK SIZE.
01646  M01S01401.qdump   +++|*                (DACW) = QDUMP DATA CONTROL WORD SKELETON.
01647  M01S01402.qdump   +++|*                (ERCW) = QDUMP DUMP ERRORS CONTROL WORD SKELETON.
01648  M01S01403.qdump   +++|*
01649  M01S01404.qdump   +++|*         EXIT   (X5) = 0 IF NO ERROR.
01650  M01S01405.qdump   +++|*                     .LT. 0, SKIP CURRENT FILE.
01651  M01S01406.qdump   +++|*                     .GT. 0, *K* DISPLAY MESSAGE ADDRESS.
01652  M01S01407.qdump   +++|*
Line S01408 Modification History
M01 (Added by) qdump
M02 (Updated by) qdump4
Seq #  *Modification Id* Act 
----------------------------+
01653  M02S01408.qdump4  ---|*         USES   A - 0, 1, 2, 3, 5, 6, 7.
01654  M01S00030.qdump4  +++|*         USES   X - ALL.
01655  M01S00031.qdump4  +++|*                A - 0, 1, 2, 3, 5, 6, 7.
01656  M01S01409.qdump   +++|*                B - 6.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/qdump.txt · Last modified: by 127.0.0.1