Deck QLOAD

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.qload   +++|          IDENT  QLOAD1,FWA,QLOAD,01,00
00002  M00S00002.qload   +++|          ABS
00003  M00S00003.qload   +++|          SST
00004  M00S00004.qload   +++|          SYSCOM B1
00005  M00S00005.qload   +++| VR1$     SET    1           *COMSSSE* CONTAINS VERSION 1 EQUIVALENCES
00006  M00S00006.qload   +++|*COMMENT  QLOAD - QUEUE LOAD PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1976.

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.qload   +++|          TITLE  QLOAD - QUEUE LOAD PROCESSOR.
00010  M00S00009.qload   +++|          SPACE  4
00011  M00S00010.qload   +++|***       QLOAD - QUEUE LOAD PROCESSOR.
00012  M00S00011.qload   +++|*
00013  M00S00012.qload   +++|*         S. L. BETH         76/02/23.
00014  M00S00013.qload   +++|          SPACE  4
00015  M00S00014.qload   +++|***       *QLOAD* WILL PROCESS DUMP TAPES GENERATED BY *QDUMP* OR
00016  M00S00015.qload   +++|*         TAPES PRODUCED BY OTHER UTILITIES USING THE SAME FORMAT.
00017  M00S00016.qload   +++|*         QUEUES WILL BE SELECTIVELY LOADED UNDER THE GUIDANCE OF
00018  M00S00017.qload   +++|*         PARAMETER INPUT. *QLOAD* MAY ALSO BE USED TO LIST THE
00019  M00S00018.qload   +++|*         CONTENTS OF A DUMP TAPE WITHOUT LOADING ANY FILES.
00020  M00S00019.qload   +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00020.ns2127  ---|***       *QLOAD* MAY BE CALLED THROUGH *QFSP* OF BY CONTROL STATEMENT.

Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00001.ns2127  +++|***       *QLOAD* MAY BE CALLED THROUGH *QFSP* OR BY CONTROL STATEMENT.
00023  M00S00021.qload   +++|*         THE FOLLOWING PARAMETERS ARE VALID.
00024  M00S00022.qload   +++|*
00025  M00S00023.qload   +++|*         MI = MACHINE IDENTIFICATION.
00026  M00S00024.qload   +++|*         DF = DESTINATION FAMILY NAME (MUST BE ENTERED).
00027  M00S00025.qload   +++|*                FOR ACTIVE LOADS *DF* MAY BE SET TO *ALL*.
00028  M00S00026.qload   +++|*                FOR INACTIVE LOADS *DF* HAS TO BE A SPECIFIC FAMILY.
00029  M00S00027.qload   +++|*         DD = DESTINATION DEVICE NUMBER (REQUIRED IF *DF* NOT *ALL*).
00030  M00S00028.qload   +++|*         FU = FAMILY NAME FOR USER INDEX.
00031  M00S00029.qload   +++|*         UI = USER INDEX RANGE (0 - 377777B).
00032  M00S00030.qload   +++|*         DA = DATE RANGE (751112-751118) OR ALL (DA=ALL).
00033  M00S00031.qload   +++|*         FS = FILE SIZE RANGE IN PRUS/10B (0 - 777777B).
00034  M00S00032.qload   +++|*         JSN = JOB SEQUENCE NUMBER, UP TO FIVE MAY BE ENTERED.

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00001.ns21000 +++|*         LD = LOGICAL IDENTIFIER (3 ALPHANUMERIC CHARACTERS).
00036  M00S00033.qload   +++|*         ID = RANGE OF FILE ID-S TO PROCESS.

Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00001.ns22000 +++|*         LA = LOWER SECURITY ACCESS LEVEL (1-7 CHARACTERS).
00038  M01S00002.ns22000 +++|*         UA = UPPER SECURITY ACCESS LEVEL (1-7 CHARACTERS).
00039  M00S00034.qload   +++|*         I  = ALTERNATE DIRECTIVE INPUT FILE. THIS IS A CONTROL
00040  M00S00035.qload   +++|*                STATEMENT PARAMETER SPECIFYING WHAT FILE SHOULD
00041  M00S00036.qload   +++|*                BE READ FOR INPUT DIRECTIVES.  THESE DIRECTIVES
00042  M00S00037.qload   +++|*                CONSIST OF ANY VALID K-DISPLAY INPUT OR COMMANDS.
00043  M00S00038.qload   +++|*                THESE DIRECTIVES WILL BE PROCESSED AFTER THE
00044  M00S00039.qload   +++|*                CONTROL STATEMENT DIRECTIVES BUT BEFORE ANY
00045  M00S00040.qload   +++|*                K-DISPLAY INPUT IS ACCEPTED.
00046  M00S00041.qload   +++|*         L = OUTPUT FILE NAME.
00047  M00S00042.qload   +++|*         FN = LOAD FILE NAME.
00048  M00S00043.qload   +++|*         FC = FORMS CODE FOR OUTPUT FILES.
00049  M00S00044.qload   +++|*         TF = FAMILY FOR REMOTE BATCH TERMINAL.
00050  M00S00045.qload   +++|*         TUI = USER INDEX FOR REMOTE BATCH TERMINAL.
00051  M00S00046.qload   +++|*              TUI = XXXXXX-YYYYYY MEANS TO PROCESS ALL INDEXES IN
00052  M00S00047.qload   +++|*                    THE RANGE XXXXXX TO YYYYYY.  YYYYYY IS OPTIONAL.
00053  M00S00048.qload   +++|*                    (0 - 377777B ALLOWED.)
00054  M00S00049.qload   +++|*         DS = DEVICE SELECTION CRITERIA FOR OUTPUT FILES.
00055  M00S00050.qload   +++|*              (DS=DV-EX) SELECTION BASED ON DEVICE CODES AND ON
00056  M00S00051.qload   +++|*              EXTERNAL CHARACTERISTICS.
00057  M00S00052.qload   +++|*              (DS=DV) SELECTION BASED ON DEVICE CODES ONLY.
00058  M00S00053.qload   +++|*         NF = NUMBER OF MEDIA FILES TO SKIP.
00059  M00S00054.qload   +++|*         SC = NUMBER OF QUEUED FILES TO SKIP.
00060  M00S00055.qload   +++|*         OP = OPTION, INACTIVE OR ACTIVE.

Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00056.ns22000 ---|*         OT=DT, ORIGIN AND DISPOSITION TYPE SELECTION.
00062  M01S00057.ns22000 ---|*         *OT* MAY BE ANY OF THE FOLLOWING.

Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00003.ns22000 +++|*         DS=DT,  FILE DESTINATION AND DISPOSTION TYPE SELECTION.
00064  M01S00004.ns22000 +++|*         *DS* MAY BE ANY OF THE FOLLOWING.
00065  M00S00058.qload   +++|*                BC - SELECT LOCAL BATCH FILES BY DISPOSITION TYPE.
00066  M00S00059.qload   +++|*                RB - SELECT REMOTE BATCH FILES BY DISPOSITION TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00060.ns22000 ---|*                SY - SELECT SYSTEM ORIGIN FILES BY DISPOSITION TYPE.
00068  M00S00061.qload   +++|*         *DT* MAY BE ANY OF THE FOLLOWING.
00069  M00S00062.qload   +++|*                IN - INPUT.
00070  M00S00063.qload   +++|*                PL - PLOT.
00071  M00S00064.qload   +++|*                PH - PUNCH.
00072  M00S00065.qload   +++|*                PR - ANY PRINTER.
00073  M00S00066.qload   +++|*                P2 - 512 PRINTER.
00074  M00S00067.qload   +++|*                LR - 580-12 PRINTER.
00075  M00S00068.qload   +++|*                LS - 580-16 PRINTER.
00076  M00S00069.qload   +++|*                LT - 580-20 PRINTER.

Seq #  *Modification Id* Act 
----------------------------+
00077  M01S00001.241l630 +++|*                LX - 5870 NON-IMPACT PRINTER.
00078  M01S00002.241l630 +++|*                LY - 5970 NON-IMPACT PRINTER.
00079  M00S00070.qload   +++|*                PRINT - ALL PRINT TYPES.
00080  M00S00071.qload   +++|*                WT - WAIT QUEUE.
00081  M00S00072.qload   +++|*                ALL - ALL DISPOSITION TYPES.
00082  M00S00073.qload   +++|*                NONE - NO DISPOSITION TYPES ALLOWED.
00083  M00S00074.qload   +++|*                SF - INSTALLATION DEFINED TYPE.
00084  M00S00075.qload   +++|*         PO=X, PROCESSING OPTION.
00085  M00S00076.qload   +++|*         X MAY BE ANY COMBINATION OF THE FOLLOWING.

Seq #  *Modification Id* Act 
----------------------------+
00086  M01S00077.qload3  ---|*                E - ERRORED FILE PROCESSING.
00087  M01S00078.qload3  ---|*                F - FAMILY ORDINAL TABLE PROCESSING.
00088  M01S00079.qload3  ---|*                N - NO K-DISPLAY.
00089  M01S00080.qload3  ---|*                R - REWIND LOAD FILE.

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00001.qload3  +++|*                N - NO K-DISPLAY OPTION.
00091  M01S00002.qload3  +++|*                R - REWIND LOAD FILE FLAG.
00092  M01S00003.qload3  +++|*                E - ERRORED FILES PROCESSING FLAG.
00093  M01S00004.qload3  +++|*                F - FAMILY ORDINAL TABLE PROCESSING FLAG.
00094  M01S00005.qload3  +++|*                K - FORCE K-DISPLAY ON ERROR RETURN.
00095  M01S00006.qload3  +++|*                L - LID TABLE PROCESSING FLAG.

Seq #  *Modification Id* Act 
----------------------------+
00096  M01S00001.ns2330  +++|*                I - IF SPECIFIED, INACTIVE INPUT QUEUE FILES WILL BE
00097  M01S00002.ns2330  +++|*                    ACTIVATED WHEN THE OWNER FAMILY IS NOT PRESENT.

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00001.ns2490  +++|*                U - IF SPECIFIED, UNCONDITIONALLY LOAD FILES WITHIN
00099  M01S00002.ns2490  +++|*                    SECURITY RESTRAINTS AND SYSTEM FILE INTEGRITY.
00100  M00S00081.qload   +++|*
00101  M00S00082.qload   +++|*         DEFAULT VALUES.
00102  M00S00083.qload   +++|*
00103  M00S00084.qload   +++|*         MI = CURRENT MACHINE VALUE.
00104  M00S00085.qload   +++|*         DF = ALL.
00105  M00S00086.qload   +++|*         DD = ALL.
00106  M00S00087.qload   +++|*         FU = 0.
00107  M00S00088.qload   +++|*         UI = 0 - 377777B.
00108  M00S00089.qload   +++|*         DA = LAST FIVE DAYS.
00109  M00S00090.qload   +++|*         FS = 0 - 777777B.

Seq #  *Modification Id* Act 
----------------------------+
00110  M01S00091.qload3  ---|*         JN = 0.
00111  M01S00092.qload3  ---|*         ID = 0 - 77.

Seq #  *Modification Id* Act 
----------------------------+
00112  M01S00002.ns21000 +++|*         JSN = NOT SPECIFIED.
00113  M01S00003.ns21000 +++|*         LD = NOT SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
00114  M01S00007.qload3  +++|*         ID = 0 - 77.

Seq #  *Modification Id* Act 
----------------------------+
00115  M01S00005.ns22000 +++|*         LA = NOT SPECIFIED.
00116  M01S00006.ns22000 +++|*         UA = NOT SPECIFIED.
00117  M00S00093.qload   +++|*         I = NONE.
00118  M00S00094.qload   +++|*         L = OUTPUT.
00119  M00S00095.qload   +++|*         FN = QFILES.
00120  M00S00096.qload   +++|*         FC = NOT SPECIFIED.
00121  M00S00097.qload   +++|*         TID = 0.
00122  M00S00098.qload   +++|*         DS = NOT SPECIFIED.
00123  M00S00099.qload   +++|*         NF = 0.
00124  M00S00100.qload   +++|*         SC = 0.
00125  M00S00101.qload   +++|*         OP = A.

Seq #  *Modification Id* Act 
----------------------------+
00126  M01S00102.ns22000 ---|*         OT = ALL.

Seq #  *Modification Id* Act 
----------------------------+
00127  M01S00007.ns22000 +++|*         DR = ALL.

Seq #  *Modification Id* Act 
----------------------------+
00128  M01S00103.qload3  ---|*         FT = ALL.
00129  M01S00104.qload3  ---|*         R = NOT SELECTED.
00130  M01S00105.qload3  ---|*         E = NOT SELECTED.

Seq #  *Modification Id* Act 
----------------------------+
00131  M01S00008.qload3  +++|*         DT = ALL.
00132  M01S00009.qload3  +++|*         PO = NONE SELECTED.
00133  M00S00106.qload   +++|          SPACE  4
00134  M00S00107.qload   +++|***       OPERATOR/DAYFILE MESSAGES.
00135  M00S00108.qload   +++|*
00136  M00S00109.qload   +++|*         * ACTIVE LOAD NOT ALLOWED.* THE DEVICE SELECTED FOR
00137  M00S00110.qload   +++|*                THE ACTIVE LOAD IS REMOVABLE AND THE LOAD IS
00138  M00S00111.qload   +++|*                NOT ALLOWED. SELECT ANOTHER DEVICE AND RETRY THE LOAD.
00139  M00S00112.qload   +++|*
00140  M00S00113.qload   +++|*         * CANNOT ATTACH *IQFT* FILE.* AN ATTEMPT TO ACCESS THE *IQFT*
00141  M00S00114.qload   +++|*                FILE ON THE DESTINATION DEVICE FAILED. CHECK FOR
00142  M00S00115.qload   +++|*                OTHER UTILITIES ACCESSING THE FILE. WHEN THE FILE
00143  M00S00116.qload   +++|*                IS FREE RETRY THE QLOAD OPERATION.
00144  M00S00117.qload   +++|*
00145  M00S00118.qload   +++|*         * DESTINATION DEVICE ERROR.* AN UNRECOVERABLE ERROR OCCURED
00146  M00S00119.qload   +++|*                WHEN WRITING TO THE DESTINATION DEVICE. CHECK THE
00147  M00S00120.qload   +++|*                OUTPUT FILE FOR THE FILES THAT WERE PROCESSED.
00148  M00S00121.qload   +++|*
00149  M00S00122.qload   +++|*         * DESTINATION DEVICE REQUIRED.* FOR AN INACTIVE LOAD THE
00150  M00S00123.qload   +++|*                (FAMILY AND DEVICE NUMBER) OR THE PACKNAM OF
00151  M00S00124.qload   +++|*                THE DESTINATION DEVICE MUST BE SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00001.qload9  ---|*
00153  M02S00002.qload9  ---|*         * DSP RETURNED ERROR XXB.*
00154  M02S00003.qload9  ---|*                *DSP* RETURNED ERROR CODE *XX*.  CHECK OUTPUT TO
00155  M02S00004.qload9  ---|*                DETERMINE WHICH FILES WERE NOT LOADED.
00156  M00S00125.qload   +++|*
00157  M00S00126.qload   +++|*         * ERROR FILE LIMIT.* THE NUMBER OF ERROR FILES CREATED HAS
00158  M00S00127.qload   +++|*                EXCEEDED THE UPPER LIMIT OR AN URECOVERABLE ERROR
00159  M00S00128.qload   +++|*                OCCURED WHILE ATEMPTING TO CREATE THE ERROR FILE.
00160  M00S00129.qload   +++|*                CHECK THE OUTPUT FOR FILES PROCESSED.
00161  M00S00130.qload   +++|*
00162  M00S00131.qload   +++|*         * FILE NAME CONFLICT.* THE NAMES OF THE OUTPUT, LOAD OR
00163  M00S00132.qload   +++|*                *IQFT* FILE CONFLICT. CHANGE THE NAME OF THE LOAD
00164  M00S00133.qload   +++|*                OR OUTPUT FILE AND RETRY THE OPERATION.

Seq #  *Modification Id* Act 
----------------------------+
00165  M01S00008.ns22000 +++|*
00166  M01S00009.ns22000 +++|*         * FILE NOT ALLOWED ON EQUIPMENT.*
00167  M01S00010.ns22000 +++|*                THE REQUESTED EQUIPMENT DID NOT HAVE THE REQUIRED
00168  M01S00011.ns22000 +++|*                ACCESS LEVEL FOR THE QUEUED FILE.
00169  M00S00134.qload   +++|*
00170  M00S00135.qload   +++|*         * FOT FULL - FILES IGNORED.* - SOME OF THE QUEUED FILES
00171  M00S00136.qload   +++|*                WERE NOT PROCESSED BECAUSE THERE WAS NO FOT ENTRY FOR
00172  M00S00137.qload   +++|*                THE CREATION AND/OR THE DESTINATION FAMILY AND THE
00173  M00S00138.qload   +++|*                FOT WAS FULL (MESSAGE ISSUED BY *COMCVQF*).

Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00004.ns21000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00175  M01S00001.271l716 +++|*         * INACTIVE LOAD NOT ALLOWED.* THE DEVICE SELECTED FOR
00176  M01S00002.271l716 +++|*                THE INACTIVE LOAD IS REMOVABLE AND THE LOAD IS NOT
00177  M01S00003.271l716 +++|*                ALLOWED.  SELECT ANOTHER DEVICE AND RETRY THE LOAD.
00178  M01S00004.271l716 +++|*
00179  M01S00005.271l716 +++|*         * IQFT NOT FOUND.* NO IQFT FILE WAS FOUND ON THE SELECTED
00180  M01S00006.271l716 +++|*                DEVICE.  THE DEVICE SHOULD BE INITIALIZED DUE TO THE
00181  M01S00007.271l716 +++|*                INDETERMINATE STATE THAT IT IS IN.
00182  M01S00008.271l716 +++|*
00183  M01S00009.271l716 +++|*         * LDLIST OPERATION COMPLETE.* INFORMATIVE MESSAGE.
00184  M01S00010.271l716 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00005.v23l617 ---|*         * LID TABLE FULL - FILES IGNORED.* SOME OF THE QUEUED FILES

Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00001.v23l617 +++|*         * LID NOT ADDED - FILES IGNORED.*  SOME OF THE QUEUED FILES

Seq #  *Modification Id* Act 
----------------------------+
00187  M01S00006.ns21000 +++|*                WERE NOT PROCESSED BECAUSE THERE WAS NO LID TABLE
00188  M01S00007.ns21000 +++|*                ENTRY FOR THE LID ASSOCIATED WITH THE FILES AND THE

Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00008.v23l617 ---|*                LID COULD NOT BE ADDED BECAUSE THE LID TABLE WAS
00190  M02S00009.v23l617 ---|*                FULL (MESSAGE ISSUED BY *COMCVQF*).

Seq #  *Modification Id* Act 
----------------------------+
00191  M01S00002.v23l617 +++|*                LID COULD NOT BE ADDED BECAUSE ALL LID SLOTS FOR THE

Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00003.271l716 ---|*                HOST PID WERE ALREADY OCCUPIED BY OTHER LIDS.

Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00139.271l716 ---|*
00194  M01S00140.271l716 ---|*         * LDLIST OPERATION COMPLETE.* INFORMATIVE MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
00195  M01S00011.271l716 +++|*                HOST PID WERE ALREADY OCCUPIED BY OTHER LIDS
00196  M01S00012.271l716 +++|*                (MESSAGE ISSUED BY *COMCVQF*).

Seq #  *Modification Id* Act 
----------------------------+
00197  M01S00141.ns21000 ---|*
00198  M01S00142.ns21000 ---|*         * *LFM* ERROR ON ERRNNN FILE.* DURING THE FILE RENAME ,
00199  M01S00143.ns21000 ---|*                LOCK AND COMMON SEQUENCE WHILE SAVING THE ERROR FILE
00200  M01S00144.ns21000 ---|*                AN *LFM* ERROR OCCURED. RETRY THE LOAD OPERATION.
00201  M00S00145.qload   +++|*
00202  M00S00146.qload   +++|*         * LOAD FILE MISPOSITIONED.* A FILE POSITION FUNCTION
00203  M00S00147.qload   +++|*                OR FILE READ INDICATED AN ATTEMPT TO POSITION
00204  M00S00148.qload   +++|*                BEYOND *EOI* OR THE CONTROL WORD READ WAS NOT
00205  M00S00149.qload   +++|*                THE EXPECTED CONTROL WORD. REWIND THE LOAD FILE
00206  M00S00150.qload   +++|*                AND RETRY THE OPERATION.
00207  M00S00151.qload   +++|*
00208  M00S00152.qload   +++|*         * LOAD FILE POSITION LOST.* DURING THE WRITE ERROR RECOVERY
00209  M00S00153.qload   +++|*                SEQUENCE THE POSITION ON THE LOAD FILE WAS LOST. CHECK
00210  M00S00154.qload   +++|*                THE OUTPUT FILE FOR THE LIST OF FILES THAT WERE LOADED.
00211  M00S00155.qload   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00212  M01S00013.271l716 +++|*         * LOAD RECORD FORMAT IN ERROR.*
00213  M01S00014.271l716 +++|*                THE FILE DATA MAY NOT BE INTACT, SINCE A LOAD RECORD
00214  M01S00015.271l716 +++|*                FORMAT ERROR WAS ENCOUNTERED WHEN THE FILE WAS LOADED.
00215  M01S00016.271l716 +++|*                THE FILE IS SKIPPED, UNLESS ERROR PROCESSING IS
00216  M01S00017.271l716 +++|*                SELECTED.
00217  M01S00018.271l716 +++|*
00218  M01S00019.271l716 +++|*         * MASS STORAGE ERROR DURING DUMP.*
00219  M01S00020.271l716 +++|*                THE FILE DATA MAY NOT BE INTACT, SINCE A MASS STORAGE
00220  M01S00021.271l716 +++|*                ERROR WAS ENCOUNTERED WHEN THE FILE WAS DUMPED.
00221  M01S00022.271l716 +++|*                THE FILE IS SKIPPED, UNLESS ERROR PROCESSING IS
00222  M01S00023.271l716 +++|*                SELECTED.
00223  M01S00024.271l716 +++|*
00224  M00S00156.qload   +++|*         * NO OUTPUT FILE PRESENT.* THE OUT COMMAND WAS ENTERED

Seq #  *Modification Id* Act 
----------------------------+
00225  M01S00157.qload3  ---|*                ANY *QLOAD* COULD NOT FIND AND OUTPUT FILE TO RELEASE.

Seq #  *Modification Id* Act 
----------------------------+
00226  M01S00010.qload3  +++|*                AND *QLOAD* COULD NOT FIND AN OUTPUT FILE TO RELEASE.
00227  M00S00158.qload   +++|*
00228  M00S00159.qload   +++|*         * OUTPUT FILE RELEASED.* INFORMATIVE MESSAGE.
00229  M00S00160.qload   +++|*
00230  M00S00161.qload   +++|*         * PREMATURE *EOF* ENCOUNTERED.* WHILE PROCESSING THE LOAD
00231  M00S00162.qload   +++|*                FILE AN *EOF* WAS ENCOUNTERED BEFORE IT WAS EXPECTED.
00232  M00S00163.qload   +++|*                NOTIFY ANALYST TO INVESTIGATE THE FORMAT OF THE
00233  M00S00164.qload   +++|*                LOAD TAPE.
00234  M00S00165.qload   +++|*
00235  M00S00166.qload   +++|*         * QFT LIMIT ON LOAD.*  THE CALCULATED QFT THRESHOLD HAS
00236  M00S00167.qload   +++|*                BEEN REACHED. CONSULT LISTING TO DETERMINE WHICH
00237  M00S00168.qload   +++|*                FILES WERE NOT LOADED.
00238  M00S00169.qload   +++|*
00239  M00S00170.qload   +++|*         * QFT FULL DETECTED BY QFM.*  *QFM* RETURNED QFT FULL
00240  M00S00171.qload   +++|*                STATUS WHEN CALLED TO ASSIGN A FILE TO MASS
00241  M00S00172.qload   +++|*                STORAGE. CHECK THE OUTPUT TO DETERMINE WHICH FILES
00242  M00S00173.qload   +++|*                WERE NOT PROCESSED.

Seq #  *Modification Id* Act 
----------------------------+
00243  M01S00010.ns21000 +++|*
00244  M01S00011.ns21000 +++|*         * *QFM* ERROR ON ERRNNN FILE.* *QFM* RETURNED AN ERROR
00245  M01S00012.ns21000 +++|*                (OTHER THAN DUPLICATE FILE NAME) WHEN CALLED TO
00246  M01S00013.ns21000 +++|*                CONVERT THE FILE TO A COMMON FILE AFTER AN ERROR.
00247  M01S00014.ns21000 +++|*                CHECK THE OUTPUT TO DETERMINE WHICH FILES WERE
00248  M01S00015.ns21000 +++|*                PROCESSED.
00249  M00S00174.qload   +++|*
00250  M00S00175.qload   +++|*         * QLOAD ABORTED.* THE OPERATOR DROPPED THE JOB OR THE
00251  M00S00176.qload   +++|*                JOB WAS ABORTED FOR A SYSTEM ERROR. IF NOT
00252  M00S00177.qload   +++|*                OPERATOR DROP CHECK DAYFILE FOR CAUSE.
00253  M00S00178.qload   +++|*
00254  M00S00179.qload   +++|*         * QLOAD OPERATION COMPLETE.* INFORMATIVE MESSAGE.
00255  M00S00180.qload   +++|*
00256  M00S00181.qload   +++|*         * QLOAD TERMINATED.* QLOAD HAD ABORTED AND THE ABORT
00257  M00S00182.qload   +++|*                PROCESSING WAS TERMINATED BY THE OPERATOR OR DUE
00258  M00S00183.qload   +++|*                TO A SYSTEM ERROR. CHECK THE DAYFILE FOR CAUSE.
00259  M00S00184.qload   +++|*
00260  M00S00185.qload   +++|*         * QUEUE FILE ASSIGN ERROR.* AN ATTEMPT TO FORCE A DEVICE
00261  M00S00186.qload   +++|*                ASSIGNMENT FOR THE QUEUE FILE BEING LOADED RESULTED
00262  M00S00187.qload   +++|*                IN THE DEVICE BEING ASSIGNED TO THE WRONG EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
00263  M01S00001.ns2099  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00002.271l716 ---|*         * IQFT NOT FOUND.* NO IQFT FILE WAS FOUND ON THE SELECTED
00265  M02S00003.271l716 ---|*                DEVICE.  THE DEVICE SHOULD BE INITIALIZED DUE TO THE
00266  M02S00004.271l716 ---|*                INDETERMINATE STATE THAT IT IS IN.

Seq #  *Modification Id* Act 
----------------------------+
00267  M01S00025.271l716 +++|*         * READ PARITY ERROR ON LOAD FILE.*
00268  M01S00026.271l716 +++|*                THE FILE DATA MAY NOT BE INTACT, SINCE A READ PARITY
00269  M01S00027.271l716 +++|*                ERROR WAS ENCOUNTERED WHEN THE FILE WAS LOADED.  THE
00270  M01S00028.271l716 +++|*                FILE IS SKIPPED, UNLESS ERROR PROCESSING IS SELECTED.

Seq #  *Modification Id* Act 
----------------------------+
00271  M01S00188.qload1  ---|*
00272  M01S00189.qload1  ---|*         * UNKNOWN VER.1 SYSTEM SECTOR TYPE.* AN ATTEMPT WAS MADE
00273  M01S00190.qload1  ---|*                TO LOAD A VERSION ONE QUEUE FILE THAT WAS NOT INPUT,
00274  M01S00191.qload1  ---|*                PRINT, OR PUNCH.
00275  M01S00192.qload1  ---|*
00276  M01S00193.qload1  ---|*         * UNKNOWN VER.1 QUEUE PRIORITY.   * AN ATTEMPT WAS MADE
00277  M01S00194.qload1  ---|*                TO LOAD A VERSION ONE INPUT FILE WITH AN UNKNOWN
00278  M01S00195.qload1  ---|*                PRIORITY.
00279  M00S00196.qload   +++|          SPACE  4
00280  M00S00197.qload   +++|**        MESSAGES ISSUED TO DAYFILE ONLY.
00281  M00S00198.qload   +++|*
00282  M00S00199.qload   +++|*
00283  M00S00200.qload   +++|*         * QLOAD -  NNNN FILES IGNORED.*
00284  M00S00201.qload   +++|*
00285  M00S00202.qload   +++|*         * QLOAD -  NNNN ACTIVE FILES LOADED.*
00286  M00S00203.qload   +++|*
00287  M00S00204.qload   +++|*         * QLOAD -  NNNN INACTIVE FILES LOADED.*
00288  M00S00205.qload   +++|*
00289  M00S00206.qload   +++|*         * QLOAD -  NNNN FILES LISTED.*
00290  M00S00207.qload   +++|*
00291  M00S00208.qload   +++|*         * QLOAD -  NNNN ERRXXX FILES CREATED.*
00292  M00S00209.qload   +++|*
00293  M00S00210.qload   +++|*         *** PROCESSING DUMP FILE. ***
00294  M00S00211.qload   +++|*         DUMPNAM        DATE,TIME.
00295  M00S00212.qload   +++|*
00296  M00S00213.qload   +++|*         THE TWO LINES IDENTIFYING THE DUMP TAPE BEING PROCCESSED
00297  M00S00214.qload   +++|*         WILL BE ISSUED WHEN THE DUMP HEADER FIELD IS ENCOUNTERED.
00298  M00S00215.qload   +++|*         THE FILE POSITIONING REQUESTS MAY POSITION THE FILE BEYOND
00299  M00S00216.qload   +++|*         THIS POINT IN WHICH CASE THE MESSAGE WILL NOT BE ISSUED.
00300  M00S00217.qload   +++|          SPACE  4
00301  M00S00218.qload   +++|**        COMMON DECKS (DEFINITIONS).
00302  M00S00219.qload   +++|
00303  M00S00220.qload   +++|
00304  M00S00221.qload   +++|*CALL     COMCMAC
00305  M00S00222.qload   +++|*CALL     COMCCMD
00306  M00S00223.qload   +++|          LIST   X
00307  M00S00224.qload   +++|*CALL     COMSIOQ
00308  M00S00225.qload   +++|*CALL     COMSJIO
00309  M00S00226.qload   +++|*CALL     COMSQFS

Seq #  *Modification Id* Act 
----------------------------+
00310  M01S00016.ns21000 +++|*CALL     COMSSFM
00311  M00S00227.qload   +++|          LIST   -X

Seq #  *Modification Id* Act 
----------------------------+
00312  M01S00012.ns22000 +++|*CALL     COMSMLS

Seq #  *Modification Id* Act 
----------------------------+
00313  M01S00004.v23l617 +++|*CALL     COMSMSC

Seq #  *Modification Id* Act 
----------------------------+
00314  M02S00013.ns2217  ---|*CALL     COMSSCD
00315  M00S00228.qload   +++|*CALL     COMSSSE
00316  M00S00229.qload   +++|*CALL     COMSSSJ
00317  M00S00230.qload   +++|          QUAL   COMS1DS

Seq #  *Modification Id* Act 
----------------------------+
00318  M01S00231.v23l617 ---|*CALL     COMS1DS
00319  M00S00232.qload   +++|          QUAL   *
00320  M00S00233.qload   +++|*CALL     COMSDSP

Seq #  *Modification Id* Act 
----------------------------+
00321  M01S00001.ns2217  +++| SCLASS   SPACE  4,15
00322  M01S00002.ns2217  +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00323  M01S00003.ns2217  +++|*
00324  M01S00004.ns2217  +++|*         SCLASS NM,MN,DF,ST,TX
00325  M01S00005.ns2217  +++|*
00326  M01S00006.ns2217  +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00327  M01S00007.ns2217  +++|*                *MN* = TWO CHARACTER MNEMONIC.
00328  M01S00008.ns2217  +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00329  M01S00009.ns2217  +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00330  M01S00010.ns2217  +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00331  M01S00011.ns2217  +++|*
00332  M01S00012.ns2217  +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00333  M01S00013.ns2217  +++|*                THIS MACRO.
00334  M01S00014.ns2217  +++|
00335  M01S00015.ns2217  +++|
00336  M01S00016.ns2217  +++|          PURGMAC SCLASS
00337  M01S00017.ns2217  +++|
00338  M01S00018.ns2217  +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00339  M01S00019.ns2217  +++| .SCL     RMT
00340  M01S00020.ns2217  +++| NM     VFD    48/0,12/2R_MN  TX
00341  M01S00021.ns2217  +++| .SCL     RMT
00342  M01S00022.ns2217  +++| SCLASS   ENDM
00343  M01S00023.ns2217  +++|
00344  M01S00024.ns2217  +++|
00345  M01S00025.ns2217  +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00346  M01S00026.ns2217  +++|*CALL     COMSSCD
00347  M00S00234.qload   +++|          EJECT
00348  M00S00235.qload   +++|          TITLE  QLOAD - CONSTANTS, COUNTERS, FETS, TABLES.
00349  M00S00236.qload   +++|*         CONSTANTS.
00350  M00S00237.qload   +++|
00351  M00S00238.qload   +++|
00352  M00S00239.qload   +++| BUFL     EQU    1001B       OUTPUT BUFFER LENGTH
00353  M00S00240.qload   +++| IBUFL    EQU    1001B       *IQFT* BUFFER LENGTH
00354  M00S00241.qload   +++| SBUFL    EQU    2041B       SCRATCH BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00355  M01S00242.ns21000 ---| SSBFL    EQU    100B        SYSTEM SECTOR BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00017.ns21000 +++| SSBFL    EQU    200B        SYSTEM INFORMATION BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00357  M01S00243.274l797 ---| TBUFL    EQU    4011B       TAPE BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00358  M01S00001.274l797 +++| TBUFL    EQU    20041B      TAPE BUFFER LENGTH
00359  M00S00244.qload   +++| WBUFL    EQU    102B        LENGTH OF WORKING BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00360  M01S00245.ns2127  ---| FRDC     EQU    20B         *DSP* DISPOSITION CODE FLAG
00361  M00S00246.qload   +++| TACF     EQU    FOTA        TABLE OF ACTIVE CREATION FAMILIES (*VIE*)

Seq #  *Modification Id* Act 
----------------------------+
00362  M01S00014.ns22000 +++| LINE     EQU    TPPA+PPLN   LINE NUMBER
00363  M01S00015.ns22000 +++| PDFE     EQU    TPPA+PPPD   PRINT DENSITY FORMAT EFFECTOR
00364  M00S00247.qload   +++|          SPACE  4
00365  M00S00248.qload   +++|*         INDICATORS AND COUNTERS.
00366  M00S00249.qload   +++|
00367  M00S00250.qload   +++|
00368  M00S00251.qload   +++|          ORG    OVLA
00369  M00S00252.qload   +++| FWA      BSS    0
00370  M00S00253.qload   +++| ABTE     CON    0           ABORT AT END OF LIST FLAG
00371  M00S00254.qload   +++| ABTI     CON    0           ABORT PROCESSING, 0 = SKIP FILE

Seq #  *Modification Id* Act 
----------------------------+
00372  M01S00016.ns22000 +++| ALEF     CON    0           ACCESS LEVEL ERROR FLAG
00373  M00S00255.qload   +++| DEVN     CON    0           FAMILY/DEVICE NUMBER
00374  M00S00256.qload   +++| DSPC     CON    0           FILE DISPOSITION CODE
00375  M00S00257.qload   +++| DWIQ     CON    0           NON ZERO IF DATA WRITTEN ON *IQFT* FILE
00376  M00S00258.qload   +++| EOR      CON    0           NON ZERO IF *EOR* ENCOUNTERED
00377  M00S00259.qload   +++| ERRF     CON    0           NON ZERO IF ERROR IN CURRENT FILE
00378  M00S00260.qload   +++| ERTP     CON    0           FILE ERROR TYPE
00379  M00S00261.qload   +++| FILE     CON    0           QUEUE FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00380  M01S00262.ns22000 ---| LINE     CON    0           LINE NUMBER FOR OUTPUT
00381  M00S00263.qload   +++| LIST     CON    0           NON ZERO IF LIST OPTION
00382  M00S00264.qload   +++| TRMM     CON    0           ADDRESS OF TERMINATION MESSAGE
00383  M00S00265.qload   +++| QLIM     CON    0           QFT LIMIT FOR ACTIVE LOAD

Seq #  *Modification Id* Act 
----------------------------+
00384  M01S00266.ns22000 ---| QUTP     CON    0           QUEUE TYPE
00385  M00S00267.qload   +++|
00386  M00S00268.qload   +++|*         CONTROL WORD POINTERS AND COPY CONTROLS.
00387  M00S00269.qload   +++|
00388  M00S00270.qload   +++| ASSF     CON    0           INDICATES THE FILE IS ASSIGNED TO DISK
00389  M00S00271.qload   +++| CQCW     CON    0           CURRENT QUEUE CONTROL WORD
00390  M00S00272.qload   +++| CTCW     CON    0           CURRENT TAPE CONTROL WORD
00391  M00S00273.qload   +++| CTLO     CON    0           BUFFER LOCATION OF CURRENT CONTROL WORD
00392  M00S00274.qload   +++| LEVL     CON    0           RECORD LEVEL NUMBER
00393  M00S00275.qload   +++| NTCW     CON    0           WORDS TO NEXT TAPE CONTROL WORD
00394  M00S00276.qload   +++| NQCW     CON    0           WORD TO NEXT QUEUE CONTROL WORD
00395  M00S00277.qload   +++| WDSX     CON    0           WORDS IN TRANSFER BUFFER
00396  M00S00278.qload   +++|          SPACE  4
00397  M00S00279.qload   +++|*         FILE DISPOSITION COUNTS AND ERROR FILE COUNT.
00398  M00S00280.qload   +++|
00399  M00S00281.qload   +++|
00400  M00S00282.qload   +++| FLDS     BSSZ   4
00401  M00S00283.qload   +++| EFCT     CON    0           ERROR FILE COUNT
00402  M00S00284.qload   +++| FLDSL    EQU    *-FLDS
00403  M00S00285.qload   +++|          SPACE  4
00404  M00S00286.qload   +++|*         IQFT ENTRY FOR CURRENT LOAD FILE.
00405  M00S00287.qload   +++|
00406  M00S00288.qload   +++|
00407  M00S00289.qload   +++| IQFE     BSS    QFEWL
00408  M00S00290.qload   +++| OLDN     BSS    1           OLD QUEUE FILE NAME
00409  M00S00291.qload   +++|          SPACE  4
00410  M00S00292.qload   +++|*         ROUTE PARAMETER BLOCK.
00411  M00S00293.qload   +++|
00412  M00S00294.qload   +++|

Seq #  *Modification Id* Act 
----------------------------+
00413  M01S00295.ns22000 ---| ROTB     BSS    6
00414  M01S00296.ns22000 ---| ROTBL    EQU    *-ROTB

Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00017.ns2127  ---| ROTB     BSS    EPBL

Seq #  *Modification Id* Act 
----------------------------+
00416  M01S00002.ns2127  +++| ROTB     BSSZ   EPBL
00417  M00S00297.qload   +++|          SPACE  4
00418  M00S00298.qload   +++|*         FETS.
00419  M00S00299.qload   +++|
00420  M00S00300.qload   +++|
00421  M00S00301.qload   +++| IQ       BSS    0
00422  M00S00302.qload   +++| NIQ      BSS    0           IQFT FILE
00423  M00S00303.qload   +++| "RFIQ"   RFILEB IBUF,IBUFL,EPR,(FET=8)
00424  M00S00304.qload   +++|
00425  M00S00305.qload   +++|
00426  M00S00306.qload   +++| O        BSS    0           OUTPUT FILE
00427  M00S00307.qload   +++| OUTPUT   FILEB  OBUF,BUFL,(FET=7)
00428  M00S00308.qload   +++|
00429  M00S00309.qload   +++|
00430  M00S00310.qload   +++| S        BSS    0           SCRATCH FILE
00431  M00S00311.qload   +++| "RFSC"   FILEB  SBUF,SBUFL,EPR,(FET=8)
00432  M00S00312.qload   +++|
00433  M00S00313.qload   +++|
00434  M00S00314.qload   +++| T        BSS    0           LOAD FILE
00435  M00S00315.qload   +++| TAPE     FILEB  TBUF,TBUFL,EPR,LBL
00436  M00S00316.qload   +++|          BSS    1
00437  M00S00317.qload   +++|
00438  M00S00318.qload   +++|
00439  M00S00319.qload   +++| Q        BSS    0           *FET* FOR *QFM* CALLS
00440  M00S00320.qload   +++| QCALLS   FILEB  IQFE,QFEWL+1,(FET=8)
00441  M00S00321.qload   +++|

Seq #  *Modification Id* Act 
----------------------------+
00442  M01S00322.ns21000 ---| C        BSS    0           SYSTEM SECTOR FOR *CQFF* *QFM* FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
00443  M01S00018.ns21000 +++| C        BSS    0           SYSTEM INFORMATION (SYSTEM/EOI SECTORS)
00444  M00S00323.qload   +++| CFILE    FILEB  SSBF,SSBFL+1,(FET=8)
00445  M00S00324.qload   +++|          SPACE  4
00446  M00S00325.qload   +++|**        TRANSFER TABLES.
00447  M00S00326.qload   +++|*
00448  M00S00327.qload   +++|*         THE FOLLOWING TABLES ARE USED BY ROUTINE *PTT* (CALLED BY
00449  M00S00328.qload   +++|*         *RSS*) TO TRANSFER NOS VERSION ONE SYSTEM SECTOR FIELDS TO
00450  M00S00329.qload   +++|*         THEIR PROPER PLACE IN A NOS VERSION TWO SYSTEM SECTOR.  THE
00451  M00S00330.qload   +++|*         THREE TABLES ARE *INTB* WHICH CONTAINS INPUT DEPENDENT
00452  M00S00331.qload   +++|*         SYSTEM SECTOR TRANSFER DATA, *OTTB*, WHICH CONTAINS
00453  M00S00332.qload   +++|*         OUTPUT DEPENDENT SYSTEM SECTOR TRANSFER DATA, AND *IOTB*
00454  M00S00333.qload   +++|*         WHICH CONTAINS TRANSFER DATA THAT IS FOR BOTH INPUT AND
00455  M00S00334.qload   +++|*         OUTPUT SYSTEM SECTORS.  TABLES END WITH A ZERO WORD.
00456  M00S00335.qload   +++|*
00457  M00S00336.qload   +++|*T        12/0, 12/DFM, 12/DAD, 12/SFM, 12/SAD.

Figure

00458  M00S00337.qload   +++|*
00459  M00S00338.qload   +++|*         DFM =  DESTINATION FIELD MASK, NUMBER OF BITS IN FIELD.
00460  M00S00339.qload   +++|*         DAD =  DESTINATION ADDRESS FROM *COMSSSE*.
00461  M00S00340.qload   +++|*         SFM =  SOURCE FIELD MASK, NUMBER OF BITS IN FIELD.
00462  M00S00341.qload   +++|*         SAD =  SOURCE ADDRESS FROM *COMSSSE*.
00463  M00S00342.qload   +++|
00464  M00S00343.qload   +++| OTTB     VFD    12/0,12/24,12/RASS,12/24,12//NOSV1/RASS
00465  M00S00344.qload   +++|          VFD    12/0,12/12,12/LCSS,12/12,12//NOSV1/LCSS
00466  M00S00345.qload   +++|          VFD    12/0,12/12,12/RCSS,12/12,12//NOSV1/RCSS
00467  M00S00346.qload   +++|          VFD    12/0,12/24,12/RTSS,12/24,12//NOSV1/RTSS
00468  M00S00347.qload   +++|          VFD    12/0,12/12,12/SCSS,12/12,12//NOSV1/SCSS
00469  M00S00348.qload   +++|          VFD    12/0,12/12,12/RBSS,12/12,12//NOSV1/RBSS
00470  M00S00349.qload   +++|          VFD    12/0,12/12,12/IOSS+19,12/12,12//NOSV1/FCSS
00471  M00S00350.qload   +++|          VFD    60/0
00472  M00S00351.qload   +++|
00473  M00S00352.qload   +++| INTB     VFD    12/0,12/12,12/JCSS,12/12,12//NOSV1/JCSS
00474  M00S00353.qload   +++|          VFD    12/0,12/12,12/JESS,12/12,12//NOSV1/JESS
00475  M00S00354.qload   +++|          VFD    12/0,12/24,12/CRSS,12/24,12//NOSV1/CRSS
00476  M00S00355.qload   +++|          VFD    12/0,12/48,12/TNSS,12/48,12//NOSV1/TNSS
00477  M00S00356.qload   +++|          VFD    60/0
00478  M00S00357.qload   +++|
00479  M00S00358.qload   +++| IOTB     VFD    12/0,12/12,12/EQSS,12/12,12//NOSV1/EQSS
00480  M00S00359.qload   +++|          VFD    12/0,12/12,12/FTSS,12/12,12//NOSV1/FTSS
00481  M00S00360.qload   +++|          VFD    12/0,12/12,12/NSSS,12/12,12//NOSV1/NSSS
00482  M00S00361.qload   +++|          VFD    12/0,12/60,12/DTSS,12/60,12//NOSV1/DTSS
00483  M00S00362.qload   +++|          VFD    12/0,12/12,12/FGSS,12/12,12//NOSV1/FRSS+4
00484  M00S00363.qload   +++|          VFD    12/0,12/12,12/RMSS,12/12,12//NOSV1/QFSS
00485  M00S00364.qload   +++|          VFD    12/0,12/12,12/CMSS,12/12,12//NOSV1/MISS
00486  M00S00365.qload   +++|          VFD    12/0,12/60,12/DASS,12/60,12//NOSV1/DASS
00487  M00S00366.qload   +++|          VFD    12/0,12/48,12/FDSS,12/48,12//NOSV1/FDSS
00488  M00S00367.qload   +++|          VFD    12/0,12/60,12/ACSS,12/60,12//NOSV1/ACSS
00489  M00S00368.qload   +++|          VFD    12/0,12/60,12/OASS,12/60,12//NOSV1/ACSS
00490  M00S00369.qload   +++|          VFD    12/0,12/12,12/DCSS,12/12,12//NOSV1/DVSS
00491  M00S00370.qload   +++|          VFD    12/0,12/36,12/CDSS+2,12/36,12//NOSV1/CDSS+2
00492  M00S00371.qload   +++|          VFD    12/0,12/60,12/JNSS,12/60,12//NOSV1/JNSS
00493  M00S00372.qload   +++|          VFD    12/0,12/48,12/FMSS,12/48,12//NOSV1/FMSS
00494  M00S00373.qload   +++|          VFD    12/0,12/48,12/FOSS,12/48,12//NOSV1/FMSS
00495  M00S00374.qload   +++|          VFD    12/0,12/12,12/IOSS+5,12/12,12//NOSV1/EQSS
00496  M00S00375.qload   +++|          VFD    12/0,12/12,12/IOSS+6,12/12,12//NOSV1/FTSS
00497  M00S00376.qload   +++|          VFD    12/0,12/24,12/IOSS+16,12/24,12//NOSV1/DISS
00498  M00S00377.qload   +++|          VFD    12/0,12/12,12/IOSS+17,12/12,12//NOSV1/DISS+1
00499  M00S00378.qload   +++|          VFD    60/0
00500  M00S00379.qload   +++|          TITLE  MAIN LOOP.
00501  M00S00380.qload   +++|**        QLOAD - MAIN LOOP.
00502  M00S00381.qload   +++|*
00503  M00S00382.qload   +++|*         ENTRY  PARAMETERS PROCESSED BY *QFSP*.
00504  M00S00383.qload   +++|*
00505  M00S00384.qload   +++|*         EXIT   (X2) = K-DISPLAY CONTROL.
00506  M00S00385.qload   +++|*                (X5) = TERMINATING MESSAGE.
00507  M00S00386.qload   +++|
00508  M00S00387.qload   +++|
00509  M00S00388.qload   +++| QLOAD    SUBR               ENTRY/EXIT
00510  M00S00389.qload   +++|          RJ     PRS         PRESET FILES
00511  M00S00390.qload   +++|          NZ     B7,ERR      IF ERROR IN PARAMETERS
00512  M00S00391.qload   +++|          SA5    TARA+ARFC   SET FUNCTION
00513  M00S00392.qload   +++|          SX5    X5-3        CHECK FOR OUT
00514  M00S00393.qload   +++|          ZR     X5,OUT      IF OUT REQUEST
00515  M00S00394.qload   +++|          RJ     PLF         POSITION LOAD FILE
00516  M00S00395.qload   +++|          NZ     B7,ERR      IF PROCESSING ERROR

Seq #  *Modification Id* Act 
----------------------------+
00517  M01S00396.ns22000 ---| QDL1     RJ     GNF         GET NEXT LOAD FILE

Seq #  *Modification Id* Act 
----------------------------+
00518  M01S00018.ns22000 +++| QDL1     SX6    B0+         CLEAR ACCESS LEVEL ERROR FLAG
00519  M01S00019.ns22000 +++|          SA6    ALEF
00520  M01S00020.ns22000 +++|          RJ     GNF         GET NEXT LOAD FILE
00521  M00S00397.qload   +++|          NZ     B7,ERR      IF PROCESSING ERROR
00522  M00S00398.qload   +++|          MI     X1,QDL4     IF *EOF* ENCOUNTERED

Seq #  *Modification Id* Act 
----------------------------+
00523  M01S00399.qload1  ---|          NG     X4,QDL2     IF 5.5 (RHF) FILE TO BE SKIPPED

Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00001.qload1  +++|          NZ     X4,QDL2     IF VERSION ONE FILE TO SKIP
00525  M00S00400.qload   +++|          RJ     BIE         BUILD *IQFT* ENTRY
00526  M00S00401.qload   +++|          RJ     CFS         CHECK FILE SELECTION
00527  M00S00402.qload   +++|          SA4    ERRF        CHECK FOR ERROR SKIP
00528  M00S00403.qload   +++|          IX6    X1+X4
00529  M00S00404.qload   +++|          NZ     X6,QDL2     IF SKIP OR LIST
00530  M00S00405.qload   +++|
00531  M00S00406.qload   +++|*         LOAD THE QUEUE FILE.
00532  M00S00407.qload   +++|
00533  M00S00408.qload   +++|          RJ     CPY         COPY THE FILE

Seq #  *Modification Id* Act 
----------------------------+
00534  M01S00021.ns22000 +++|          SA1    ALEF
00535  M01S00022.ns22000 +++|          NZ     X1,QDL1.1   IF ACCESS LEVEL ERROR
00536  M00S00409.qload   +++|          NZ     B7,ERR      IF ERROR IN COPY
00537  M00S00410.qload   +++|          RJ     DSP         DISPOSE THE FILE
00538  M00S00411.qload   +++|          RJ     WIQ         WRITE *IQFT* ENTRY
00539  M00S00412.qload   +++|          EQ     QDL3        WRITE OUTPUT DATA
00540  M00S00413.qload   +++|
00541  M00S00414.qload   +++|*         SKIP QUEUED FILE.
00542  M00S00415.qload   +++|

Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00023.ns22000 +++| QDL1.1   SX1    X1-1
00544  M01S00024.ns22000 +++|          NZ     X1,QDL3     IF NO SKIP NEEDED
00545  M00S00416.qload   +++| QDL2     RJ     SQF         SKIP QUEUED FILE
00546  M00S00417.qload   +++|          NZ     B7,ERR      IF PROCESSING ERROR
00547  M00S00418.qload   +++| QDL3     RJ     WOL         WRITE OUTPUT LINE
00548  M00S00419.qload   +++|          EQ     QDL1        LOOP
00549  M00S00420.qload   +++|
00550  M00S00421.qload   +++| QDL4     RJ     CIQ         CLOSE *IQFT* FILE
00551  M00S00422.qload   +++|          RJ     ISM         ISSUE FILES PROCESSED MESSAGE
00552  M00S00423.qload   +++|          SA1    ABTE
00553  M00S00424.qload   +++|          NZ     X1,TRM      IF ABORT AT END OF LIST SET

Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00019.qload4  ---|          WRITER O           FLUSH OUTPUT BUFFER
00555  M00S00425.qload   +++|          SA5    TRMM        LOAD ADDRESS OF TERMINATION MESSAGE
00556  M00S00426.qload   +++|          MESSAGE X5
00557  M00S00427.qload   +++|          BX2    X2-X2       SET PRIMARY RIGHT SCREEN
00558  M00S00428.qload   +++|          JP     QLOADX      RETURN TO *QFSP*
00559  M00S00429.qload   +++|          SPACE  4
00560  M00S00430.qload   +++|**        ABORT PROCESSING.
00561  M00S00431.qload   +++|
00562  M00S00432.qload   +++|
00563  M00S00433.qload   +++| ABT      RJ     CIQ         CLOSE THE *IQFT* FILE
00564  M00S00434.qload   +++|          RECALL S
00565  M00S00435.qload   +++|          RETURN S
00566  M00S00436.qload   +++|          SX6    MES2        * QLOAD ABORTED.*
00567  M00S00437.qload   +++|          SA6    TRMM
00568  M00S00438.qload   +++|          MESSAGE X6
00569  M00S00439.qload   +++|          SX7    LSDP        SET TO LIST REMAINING FILES
00570  M00S00440.qload   +++|          SA7    DSPC
00571  M00S00441.qload   +++|          SA7    LIST
00572  M00S00442.qload   +++|          SA1    TARA+ARFC
00573  M00S00443.qload   +++|          PL     X1,ABT1     IF K-DISPLAY SELECTED
00574  M00S00444.qload   +++|          SX6    B1+         SET ABORT AT END OF LIST
00575  M00S00445.qload   +++|          SA6    ABTE
00576  M00S00446.qload   +++| ABT1     EREXIT TRM         SET NEW ABORT ADDRESS
00577  M00S00447.qload   +++|          SA5    ABTI        CHECK ABORT PROCESSING
00578  M00S00448.qload   +++|          ZR     X5,QDL2     IF FILE TO BE SKIPPED
00579  M00S00449.qload   +++|          BX7    X7-X7       CLEAR ABORT PROCESSING
00580  M00S00450.qload   +++|          SA7    A5
00581  M00S00451.qload   +++|          JP     QDL3        LIST REMAINING FILES
00582  M00S00452.qload   +++|          SPACE  4
00583  M00S00453.qload   +++|**        TERMINATE PROCESSING.
00584  M00S00454.qload   +++|
00585  M00S00455.qload   +++|
00586  M00S00456.qload   +++| TRM      SA1    PRSA        CHECK FOR *FL* ASSIGNED
00587  M00S00457.qload   +++|          ZR     X1,TRM1     IF *FL* NOT ASSIGNED
00588  M00S00458.qload   +++|          WRITER O           FLUSH OUTPUT FILE
00589  M00S00459.qload   +++| TRM1     SX5    MES19       * QLOAD TERMINATED.*
00590  M00S00460.qload   +++|          MESSAGE X5
00591  M00S00461.qload   +++|          ABORT              TERMINATE THE LOAD
00592  M00S00462.qload   +++|          SPACE  4
00593  M00S00463.qload   +++|**        ERROR PROCESSING.
00594  M00S00464.qload   +++|
00595  M00S00465.qload   +++|
00596  M00S00466.qload   +++| ERR      RJ     CIQ         CLOSE THE *IQFT* FILE
00597  M00S00467.qload   +++|          RETURN S
00598  M00S00468.qload   +++|          SA1    PRSA        CHECK FOR *FL* ASSIGNED
00599  M00S00469.qload   +++|          ZR     X1,ERR1     IF *FL* NOT ASSIGNED
00600  M00S00470.qload   +++|          RJ     ISM         ISSUE FILES PROCESSED MESSAGES

Seq #  *Modification Id* Act 
----------------------------+
00601  M01S00471.qload4  ---|          WRITER O           FLUSH THE OUTPUT FILE
00602  M00S00472.qload   +++| ERR1     SX5    B7          ISSUE MESSAGE
00603  M00S00473.qload   +++|          MESSAGE X5

Seq #  *Modification Id* Act 
----------------------------+
00604  M01S00474.qload10 ---|          BX2    X2-X2

Seq #  *Modification Id* Act 
----------------------------+
00605  M01S00001.qload10 +++|          SA1    TARA+ARFC
00606  M01S00002.qload10 +++|          PL     X1,ERR2     IF K-DISPLAY SELECTED

Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00003.qload12 ---|          ABORT

Seq #  *Modification Id* Act 
----------------------------+
00608  M01S00001.qload12 +++|          SB2    FLDSL
00609  M01S00002.qload12 +++| ERR1.1   SA1    B2+FLDS     CHECK FOR FILES PROCESSED
00610  M01S00003.qload12 +++|          NZ     X1,ERR1.2   IF FILES PROCESSED
00611  M01S00004.qload12 +++|          SB2    B2-B1
00612  M01S00005.qload12 +++|          PL     B2,ERR1.1   IF NOT END OF FILE COUNTS
00613  M01S00006.qload12 +++|          EQ     ERR2        DO NOT ABORT IF NO FILES WERE PROCESSED
00614  M01S00007.qload12 +++|
00615  M01S00008.qload12 +++| ERR1.2   ABORT

Seq #  *Modification Id* Act 
----------------------------+
00616  M01S00004.qload10 +++|
00617  M01S00005.qload10 +++| ERR2     BX2    X2-X2
00618  M00S00475.qload   +++|          JP     QLOADX      RETURN
00619  M00S00476.qload   +++|          SPACE  4
00620  M00S00477.qload   +++|**        PROCESS OUT COMMAND.
00621  M00S00478.qload   +++|
00622  M00S00479.qload   +++|
00623  M00S00480.qload   +++| OUT      STATUS O           CHECK IF OUTPUT PRESENT
00624  M00S00481.qload   +++|          SA5    O
00625  M00S00482.qload   +++|          MX0    -18
00626  M00S00483.qload   +++|          BX6    -X0*X5
00627  M00S00484.qload   +++|          AX6    1
00628  M00S00485.qload   +++|          NZ     X6,OUT1     IF FILE PRESENT
00629  M00S00486.qload   +++|          SX5    MES17       * NO OUTPUT FILE PRESENT.*
00630  M00S00487.qload   +++|          EQ     OUT2
00631  M00S00488.qload   +++|
00632  M00S00489.qload   +++| OUT1     SA2    O           GET FILE NAME
00633  M00S00490.qload   +++|          MX0    42
00634  M00S00491.qload   +++|          BX6    X0*X2
00635  M00S00492.qload   +++|          SA6    ROTB        *DSP* PARAMETER BLOCK
00636  M00S00493.qload   +++|          SA2    OUTA
00637  M00S00494.qload   +++|          BX6    X2
00638  M00S00495.qload   +++|          SA6    A6+B1
00639  M00S00496.qload   +++|          ROUTE  ROTB,RECALL
00640  M00S00497.qload   +++|          SX5    MES4        * OUTPUT FILE RELEASED.*
00641  M00S00498.qload   +++| OUT2     MESSAGE X5
00642  M00S00499.qload   +++|          BX2    X2-X2
00643  M00S00500.qload   +++|          JP     QLOADX      RETURN
00644  M00S00501.qload   +++|
00645  M00S00502.qload   +++|
00646  M00S00503.qload   +++| OUTA     VFD    24/0,12/2HPR,6/0,18/FRDC
00647  M00S00504.qload   +++|          TITLE   FIRST LEVEL SUBROUTINES.
00648  M00S00505.qload   +++| BIE      SPACE  4,20
00649  M00S00506.qload   +++|**        BIE - BUILD *IQFT* ENTRY.
00650  M00S00507.qload   +++|*
00651  M00S00508.qload   +++|*         ENTRY  (ROTB) = ROUTE BLOCK.
00652  M00S00509.qload   +++|*                (SSBF) = SYSTEM SECTOR FOR FILE IF IT EXISTS.
00653  M00S00510.qload   +++|*
00654  M00S00511.qload   +++|*         EXIT   (IQFE) = *IQFT* ENTRY.
00655  M00S00512.qload   +++|*                (OLDN) = OLD JSN FOR THE FILE.
00656  M00S00513.qload   +++|*                JSN SET AS FILENAME IN FET-S.

Seq #  *Modification Id* Act 
----------------------------+
00657  M01S00514.ns22000 ---|*                (QUTP) = QUEUE TYPE.
00658  M00S00515.qload   +++|*
00659  M00S00516.qload   +++|*         USES   X - 0, 5, 6, 7.
00660  M00S00517.qload   +++|*                A - 5, 6, 7.
00661  M00S00518.qload   +++|*                B - 6.
00662  M00S00519.qload   +++|*
00663  M00S00520.qload   +++|*         CALLS  CRB, GSF.
00664  M00S00521.qload   +++|
00665  M00S00522.qload   +++|
00666  M00S00523.qload   +++| BIE2     RJ     CRB         CONVERT ROUTE BLOCK TO AN *IQFT* ENTRY
00667  M00S00524.qload   +++|
00668  M00S00525.qload   +++| BIE      SUBR               ENTRY/EXIT
00669  M00S00526.qload   +++|          SA5    SSBF        CHECK IF SYSTEM SECTOR PRESENT
00670  M00S00527.qload   +++|          ZR     X5,BIE2     IF NO SYSTEM SECTOR
00671  M00S00528.qload   +++|          SB2    QFTE*5-1*5  SET NUMBER OF WORDS TO MOVE
00672  M00S00529.qload   +++|          SB3    QFTE-1
00673  M00S00530.qload   +++| BIE1     SX5    IOSS+B2     SET QFT ENTRY
00674  M00S00531.qload   +++|          RJ     GSF         GET SYSTEM SECTOR FIELD
00675  M00S00532.qload   +++|          SA6    IQFE+B3
00676  M00S00533.qload   +++|          SB2    B2-5
00677  M00S00534.qload   +++|          SB3    B3-B1
00678  M00S00535.qload   +++|          PL     B3,BIE1     IF MORE TO MOVE
00679  M00S00536.qload   +++|          MX0    24
00680  M00S00537.qload   +++|          BX7    X0*X6
00681  M00S00538.qload   +++|          SA7    OLDN        SAVE OLD JSN
00682  M00S00539.qload   +++|          SX5    B1
00683  M00S00540.qload   +++|          SA7    Q           SET NAME FOR *QFM* CALL
00684  M00S00541.qload   +++|          BX7    X7+X5
00685  M00S00542.qload   +++|          SA7    S           SET FILE NAME INTO FET

Seq #  *Modification Id* Act 
----------------------------+
00686  M01S00543.ns22000 ---|          MX0    -3
00687  M01S00544.ns22000 ---|          AX6    9
00688  M01S00545.ns22000 ---|          BX7    -X0*X6
00689  M01S00546.ns22000 ---|          SA7    QUTP        SAVE QUEUE TYPE
00690  M00S00547.qload   +++|          SX5    FLSS        GET FILE LENGTH
00691  M00S00548.qload   +++|          RJ     GSF
00692  M00S00549.qload   +++|          MX0    24
00693  M00S00550.qload   +++|          BX6    X0*X6
00694  M00S00551.qload   +++|          SA6    IQFE+8
00695  M00S00552.qload   +++|          SX5    DTSS        GET DATE AND TIME
00696  M00S00553.qload   +++|          RJ     GSF
00697  M00S00554.qload   +++|          SA5    IQFE+8
00698  M00S00555.qload   +++|          MX0    -36
00699  M00S00556.qload   +++|          BX6    -X0*X6
00700  M00S00557.qload   +++|          BX6    X5+X6
00701  M00S00558.qload   +++|          SA6    A5
00702  M00S00559.qload   +++|          SX5    FMSS        GET FAMILY NAME
00703  M00S00560.qload   +++|          RJ     GSF
00704  M00S00561.qload   +++|          MX0    42
00705  M00S00562.qload   +++|          BX6    X0*X6
00706  M00S00563.qload   +++|          SA6    IQFE+9
00707  M00S00564.qload   +++|          SX5    CMSS        GET CREATION MACHINE ID
00708  M00S00565.qload   +++|          RJ     GSF
00709  M00S00566.qload   +++|          SA5    IQFE+9
00710  M00S00567.qload   +++|          MX0    12
00711  M00S00568.qload   +++|          BX6    X0*X6
00712  M00S00569.qload   +++|          LX6    12
00713  M00S00570.qload   +++|          BX6    X5+X6
00714  M00S00571.qload   +++|          SA6    A5
00715  M00S00572.qload   +++|          MX0    42
00716  M00S00573.qload   +++|          SX5    FDSS        GET DESTINATION FAMILY NAME
00717  M00S00574.qload   +++|          RJ     GSF         GET SYSTEM SECTOR FIELD
00718  M00S00575.qload   +++|          MX0    60
00719  M00S00576.qload   +++|          SA6    IQFE+10
00720  M00S00577.qload   +++|          SX5    ACSS        GET CREATION UN/UI
00721  M00S00578.qload   +++|          RJ     GSF
00722  M00S00579.qload   +++|          SA6    IQFE+11
00723  M00S00580.qload   +++|          MX0    42
00724  M00S00581.qload   +++|          SX5    FOSS        GET OWNER FAMILY NAME
00725  M00S00582.qload   +++|          RJ     GSF
00726  M00S00583.qload   +++|          SA6    IQFE+12
00727  M00S00584.qload   +++|          JP     BIEX        RETURN
00728  M00S00585.qload   +++| CIQ      SPACE  4,20
00729  M00S00586.qload   +++|**        CIQ - CLOSE THE *IQFT* FILE.
00730  M00S00587.qload   +++|*
00731  M00S00588.qload   +++|*         ENTRY  (DWIQ) = 0 IF NO DATA WRITTEN TO THE *IQFT* FILE.
00732  M00S00589.qload   +++|*
00733  M00S00590.qload   +++|*         USES   A - 5, 6.
00734  M00S00591.qload   +++|*                X - 3, 5, 6.
00735  M00S00592.qload   +++|*
00736  M00S00593.qload   +++|*         CALLS  RAF.
00737  M00S00594.qload   +++|
00738  M00S00595.qload   +++|
00739  M00S00596.qload   +++| CIQ      SUBR               ENTRY/EXIT
00740  M00S00597.qload   +++|          SA5    DWIQ        CHECK FOR FILE WRITTEN
00741  M00S00598.qload   +++|          ZR     X5,CIQ1     IF NO DATA WRITTEN
00742  M00S00599.qload   +++|          BX6    X6-X6       CLEAR DATA WRITTEN FLAG
00743  M00S00600.qload   +++|          SA6    A5
00744  M00S00601.qload   +++|          WRITER NIQ,R       FLUSH THE BUFFER
00745  M00S00602.qload   +++| CIQ1     SX3    NIQ         RELEASE THE *IQFT* FILE
00746  M00S00603.qload   +++|          RJ     RAF
00747  M00S00604.qload   +++|          JP     CIQX        RETURN
00748  M00S00605.qload   +++| CFS      SPACE  4,20
00749  M00S00606.qload   +++|**        CFS - CHECK FILE SELECTION.
00750  M00S00607.qload   +++|*
00751  M00S00608.qload   +++|*         ENTRY  (IQFE - IQFE+QFEWL) = IQFT ENTRY.
00752  M00S00609.qload   +++|*                (LIST) .NE. 0, IF LISTING FILES.
00753  M00S00610.qload   +++|*
00754  M00S00611.qload   +++|*         EXIT   (X1) = 0, IF NO ERRORS.
00755  M00S00612.qload   +++|*
00756  M00S00613.qload   +++|*         ERROR  (DSPC) = *IGDP* IF FILE IGNORED.
00757  M00S00614.qload   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00758  M01S00615.ns21000 ---|*         USES   X - 1, 6.
00759  M01S00616.ns21000 ---|*                A - 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
00760  M02S00020.ns22000 ---|*         USES   X - 1, 3, 4, 6.
00761  M02S00021.ns22000 ---|*                A - 1, 3, 6.

Seq #  *Modification Id* Act 
----------------------------+
00762  M01S00617.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00763  M02S00618.ns22000 ---|*         CALLS  VIE.

Seq #  *Modification Id* Act 
----------------------------+
00764  M02S00022.ns22000 ---|*         CALLS  CLD, VIE.

Seq #  *Modification Id* Act 
----------------------------+
00765  M01S00025.ns22000 +++|*         USES   X - 1, 2, 3, 4, 6.
00766  M01S00026.ns22000 +++|*                A - 1, 2, 3, 6.
00767  M01S00027.ns22000 +++|*                B - 2.
00768  M01S00028.ns22000 +++|*
00769  M01S00029.ns22000 +++|*         CALLS  CAF, CLD, VIE.
00770  M00S00619.qload   +++|
00771  M00S00620.qload   +++|
00772  M00S00621.qload   +++| CFS      SUBR               ENTRY/EXIT
00773  M00S00622.qload   +++|          SA1    LIST
00774  M00S00623.qload   +++|          NZ     X1,CFSX     IF LISTING FILES

Seq #  *Modification Id* Act 
----------------------------+
00775  M01S00023.ns21000 +++|          SA3    IQFE+2      CHECK LOGICAL IDENTIFIER
00776  M01S00024.ns21000 +++|          SX4    B1+         SET CHECK FOR LID IN TABLE
00777  M01S00025.ns21000 +++|          RJ     CLD
00778  M01S00026.ns21000 +++|          NZ     X3,CFS1     IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00030.ns22000 +++|          SB2    B1+         FORCE CHECK OF ORIGIN TYPE ACCESS LIMITS
00780  M01S00031.ns22000 +++|          SA2    TARA+ARLA   GET ACCESS LEVEL LIMITS
00781  M01S00032.ns22000 +++|          SA1    TARA+ARUA
00782  M01S00033.ns22000 +++|          SA3    IQFE+INSQ   SET ADDRESS OF QFT ENTRY
00783  M01S00034.ns22000 +++|          RJ     CAF         CHECK ACCESS LEVEL OF FILE
00784  M01S00035.ns22000 +++|          NZ     X1,CFS1     IF FILE NOT SELECTED
00785  M00S00624.qload   +++|          SA1    TARA+AROP   SET ACTIVATE/INACTIVATE REQUEST
00786  M00S00625.qload   +++|          BX6    X1
00787  M00S00626.qload   +++|          RJ     VIE         VALIDATE IQFT ENTRY
00788  M00S00627.qload   +++|          ZR     X1,CFSX     IF FILE SELECTED

Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00628.ns21000 ---|          SX6    IGDP        SET FILE IGNORED

Seq #  *Modification Id* Act 
----------------------------+
00790  M01S00027.ns21000 +++| CFS1     SX6    IGDP        SET FILE IGNORED
00791  M00S00629.qload   +++|          SA6    DSPC
00792  M00S00630.qload   +++|          SX1    B1+         INDICATE ERROR
00793  M00S00631.qload   +++|          EQ     CFSX        RETURN
00794  M00S00632.qload   +++| CPY      SPACE  4,20
00795  M00S00633.qload   +++|**        CPY - COPY FILE.
00796  M00S00634.qload   +++|*
00797  M00S00635.qload   +++|*         ENTRY  (CQCW) = CURRENT QUEUE CONTROL WORD.
00798  M00S00636.qload   +++|*                (NTCW) = WORDS TO NEXT TAPE CONTROL WORD.
00799  M00S00637.qload   +++|*                (NQCW) = WORDS TO NEXT QUEUE CONTROL WORD.
00800  M00S00638.qload   +++|*                (SSBF) = SYSTEM SECTOR.
00801  M00S00639.qload   +++|*                (ROTB) = ROUTE BLOCK.
00802  M00S00640.qload   +++|*
00803  M00S00641.qload   +++|*         EXIT   (B7) = 0 IF FILE TO BE LOADED.
00804  M00S00642.qload   +++|*                (B7) = ERROR MESSAGE ADDRESS IF ERROR OCCURED.
00805  M00S00643.qload   +++|*                (ERRF) = 0 IF NO ERROR IN FILE.
00806  M00S00644.qload   +++|*
00807  M00S00645.qload   +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
00808  M00S00646.qload   +++|*                B - 5, 6, 7.
00809  M00S00647.qload   +++|*                X - ALL.
00810  M00S00648.qload   +++|*
00811  M00S00649.qload   +++|*         CALLS  ASF, PCW, GCW, CWE, AQF.
00812  M00S00650.qload   +++|
00813  M00S00651.qload   +++|
00814  M00S00652.qload   +++| CPY      SUBR               ENTRY/EXIT
00815  M00S00653.qload   +++|          SA1    C+1         REWIND FET
00816  M00S00654.qload   +++|          SX6    X1
00817  M00S00655.qload   +++|          SX7    B0          CLEAR WORD COUNT
00818  M00S00656.qload   +++|          SA6    A1+1
00819  M00S00657.qload   +++|          SA5    CQCW        CHECK CURRENT CONTROL WORD
00820  M00S00658.qload   +++|          SA7    ASSF        CLEAR FILE ASSIGNED TO MASS STORAGE
00821  M00S00659.qload   +++|          SA6    A6+1
00822  M00S00660.qload   +++|          SA7    WDSX
00823  M00S00661.qload   +++|          NZ     X5,CPY1     IF WORKING ON CURRENT WORD
00824  M00S00662.qload   +++|          RJ     GCW         GET NEXT CONTROL WORD
00825  M00S00663.qload   +++| CPY1     SA1    WDSX        CHECK WORDS IN BUFFER
00826  M00S00664.qload   +++|          SA2    NTCW        LOAD BLOCK SIZE
00827  M00S00665.qload   +++|          SA3    NQCW        FIELD SIZE
00828  M00S00666.qload   +++|          SX4    64
00829  M00S00667.qload   +++|          IX5    X4-X1       WORDS NEEDED TO FILL COPY BLOCK
00830  M00S00668.qload   +++|          IX6    X2-X5       COMPARE BLOCK SIZE
00831  M00S00669.qload   +++|          IX7    X3-X5       COMPARE FIELD SIZE
00832  M00S00670.qload   +++|          MI     X6,CPY4     IF SHORT MEDIA DATA BLOCK
00833  M00S00671.qload   +++|          MI     X7,CPY6     IF SHORT FIELD
00834  M00S00672.qload   +++|
00835  M00S00673.qload   +++|*         COPY DATA.
00836  M00S00674.qload   +++|
00837  M00S00675.qload   +++|          SA6    A2          UPDATE COUNTS
00838  M00S00676.qload   +++|          SA7    A3
00839  M00S00677.qload   +++|          BX6    X4          SET WORDS IN BLOCK
00840  M00S00678.qload   +++|          SA6    A1
00841  M00S00679.qload   +++|          READW  T,WBUF+1+X1,X5  FILL COPY BLOCK
00842  M00S00680.qload   +++|          SA1    NQCW        CHECK FOR POSSIBLE *EOR* FIELD
00843  M00S00681.qload   +++|          SX7    B0+         CLEAR LEVEL NUMBER
00844  M00S00682.qload   +++|          SA7    LEVL
00845  M00S00683.qload   +++|          NZ     X1,CPY2     IF NOT POSSIBLE *EOR* FIELD
00846  M00S00684.qload   +++|          SA1    CQCW        CHECK IF *EOR* BLOCK
00847  M00S00685.qload   +++|          SA2    EOR         CHECK IF LAST BLOCK
00848  M00S00686.qload   +++|          SA3    NTCW
00849  M00S00687.qload   +++|          MX0    -3
00850  M00S00688.qload   +++|          AX1    9
00851  M00S00689.qload   +++|          NZ     X3,CPY1.1   IF DATA REMAINING IN RECORD
00852  M00S00690.qload   +++|          NZ     X2,CPY5     IF *EOR* MEDIA BLOCK
00853  M00S00691.qload   +++| CPY1.1   BX7    -X0*X1
00854  M00S00692.qload   +++|          NZ     X7,CPY7     IF *EOR* OR *EOF* FIELD
00855  M00S00693.qload   +++| CPY2     SA1    ASSF        CHECK IF FILE ASSIGNED
00856  M00S00694.qload   +++|          NZ     X1,CPY3     IF FILE ASSIGNED
00857  M00S00695.qload   +++|          RJ     ASF         ASSIGN FILE TO DISK
00858  M00S00696.qload   +++|          NZ     B7,CPYX     IF FILE NOT ASSIGNED
00859  M00S00697.qload   +++| CPY3     SB5    B1          INDICATE NOT AT END OF RECORD
00860  M00S00698.qload   +++|          RJ     CWE         CHECK WRITE ERRORS
00861  M00S00699.qload   +++|          NZ     B7,CPYX     IF UNRECOVERABLE ERROR
00862  M00S00700.qload   +++|          NZ     B6,CPY1     IF WRITE ERROR RECOPY FILE
00863  M00S00701.qload   +++|          SA1    WDSX        SET UP CONTROL WORDS
00864  M00S00702.qload   +++|          SX2    5
00865  M00S00703.qload   +++|          SX3    64
00866  M00S00704.qload   +++|          IX6    X1*X2
00867  M00S00705.qload   +++|          LX3    36
00868  M00S00706.qload   +++|          BX6    X3+X6
00869  M00S00707.qload   +++|          BX7    X7-X7       CLEAR WORD COUNT
00870  M00S00708.qload   +++|          SA2    LEVL
00871  M00S00709.qload   +++|          SA6    WBUF
00872  M00S00710.qload   +++|          SA7    A1
00873  M00S00711.qload   +++|          BX6    X2
00874  M00S00712.qload   +++|          SA6    WBUF+1+X1   SET LEVEL NUMBER
00875  M00S00713.qload   +++|          WRITEW S,WBUF,X1+2  WRITE DATA
00876  M00S00714.qload   +++|          EQ     CPY1        LOOP
00877  M00S00715.qload   +++|
00878  M00S00716.qload   +++|*         PROCESS SHORT MEDIA DATA BLOCK.
00879  M00S00717.qload   +++|
00880  M00S00718.qload   +++| CPY4     IX7    X3-X2       FIELD - BLOCK LENGTH
00881  M00S00719.qload   +++|          MI     X7,CPY6     IF FIELD IS SHORTER
00882  M00S00720.qload   +++|          BX6    X6-X6       UPDATE COUNTS
00883  M00S00721.qload   +++|          SA6    A2
00884  M00S00722.qload   +++|          SA7    A3          WORDS REMAINING IN FIELD
00885  M00S00723.qload   +++|          IX6    X1+X2       INCREMENT BUFFER WORD COUNT
00886  M00S00724.qload   +++|          SA6    A1
00887  M00S00725.qload   +++|          ZR     X2,CPY5     IF END OF MEDIA BLOCK
00888  M00S00726.qload   +++|          READW  T,WBUF+1+X1,X2  READ TO END OF BLOCK
00889  M00S00727.qload   +++| CPY5     READO  T           SKIP TRAILING CONTROL WORD
00890  M00S00728.qload   +++|          SA4    EOR
00891  M00S00729.qload   +++|          NZ     X4,CPY11    IF *EOR* BLOCK
00892  M00S00730.qload   +++|          RJ     PCW         PROCESS NEXT BLOCK
00893  M00S00731.qload   +++|          PL     X1,CPY1     IF NOT *EOF*
00894  M00S00732.qload   +++|          SB7    MES20       * PREMATURE *EOF* ENCOUNTERED.*
00895  M00S00733.qload   +++|          EQ     CPYX        RETURN
00896  M00S00734.qload   +++|
00897  M00S00735.qload   +++|*         PROCESS SHORT FIELD.
00898  M00S00736.qload   +++|
00899  M00S00737.qload   +++| CPY6     IX6    X2-X3       BLOCK - FIELD LENGTH
00900  M00S00738.qload   +++|          MI     X6,CPY4     IF BLOCK SHORTER
00901  M00S00739.qload   +++|          SA6    A2          UPDATE COUNTS - WORDS IN BLOCK
00902  M00S00740.qload   +++|          IX7    X1+X3
00903  M00S00741.qload   +++|          SA7    A1          WORDS IN BUFFER
00904  M00S00742.qload   +++|          ZR     X3,CPY7     IF END OF FIELD
00905  M00S00743.qload   +++|          READW  T,WBUF+1+X1,X3  READ TO END OF FIELD
00906  M00S00744.qload   +++| CPY7     SA1    CQCW        CHECK IF EOR BLOCK
00907  M00S00745.qload   +++|          MX0    -3
00908  M00S00746.qload   +++|          AX1    9
00909  M00S00747.qload   +++|          BX7    -X0*X1
00910  M00S00748.qload   +++|          SX6    17B
00911  M00S00749.qload   +++|          SX7    X7-1
00912  M00S00750.qload   +++|          MI     X7,CPY9     IF NOT *EOR*
00913  M00S00751.qload   +++|          NZ     X7,CPY8     IF *EOF*
00914  M00S00752.qload   +++|
00915  M00S00753.qload   +++|*         GET LEVEL NUMBER.
00916  M00S00754.qload   +++|
00917  M00S00755.qload   +++|          SA1    WDSX
00918  M00S00756.qload   +++|          SA2    WBUF+1-1+X1 LAST WORD READ IS LEVEL NUMBER
00919  M00S00757.qload   +++|          SX7    X1-1        DECREMENT WORD COUNT
00920  M00S00758.qload   +++|          BX6    X2
00921  M00S00759.qload   +++|          SA7    A1
00922  M00S00760.qload   +++| CPY8     LX6    -12         SET LEVEL NUMBER
00923  M00S00761.qload   +++|          SA6    LEVL
00924  M00S00762.qload   +++|          RJ     GCW         GET NEXT CONTROL WORD
00925  M00S00763.qload   +++|          SB7    B6-2
00926  M00S00764.qload   +++|          ZR     B6,CPY2     IF DATA BLOCK
00927  M00S00765.qload   +++|          ZR     B7,CPY2     IF DAYFILE
00928  M00S00766.qload   +++|          EQ     CPY10       POSSIBLE ERROR ON DUMP
00929  M00S00767.qload   +++|
00930  M00S00768.qload   +++| CPY9     RJ     GCW         GET NEXT CONTROL WORD
00931  M00S00769.qload   +++|          SB7    B6-2
00932  M00S00770.qload   +++|          ZR     B6,CPY1     IF DATA
00933  M00S00771.qload   +++|          ZR     B7,CPY1     IF DAYFILE
00934  M00S00772.qload   +++|          NE     B7,B1,CPY10 IF NOT *NOS* FIELD
00935  M00S00773.qload   +++|          NE     B5,B1,CPY10 IF NOT END OF VOLUME
00936  M00S00774.qload   +++|          READO  T           SKIP TRAILING CONTROL WORD
00937  M00S00775.qload   +++|          RJ     PCW         PROCESS NEXT BLOCK
00938  M00S00776.qload   +++|          PL     X1,CPY9     IF NOT *EOF*
00939  M00S00777.qload   +++|          SB7    MES20       * PREMATURE *EOF* ENCOUNTERED.*
00940  M00S00778.qload   +++|          EQ     CPYX        RETURN
00941  M00S00779.qload   +++|
00942  M00S00780.qload   +++|*         CHECK FOR ERROR WHEN FILE DUMPED.
00943  M00S00781.qload   +++|

Seq #  *Modification Id* Act 
----------------------------+
00944  M01S00782.241l630 ---| CPY10    SX7    MSER

Seq #  *Modification Id* Act 
----------------------------+
00945  M01S00003.241l630 +++| CPY10    SX7    DMER
00946  M00S00783.qload   +++|          SB6    B6-7
00947  M00S00784.qload   +++|          ZR     B6,CPY16    IF ERROR WHEN DUMPED
00948  M00S00785.qload   +++|

Seq #  *Modification Id* Act 
----------------------------+
00949  M01S00786.ns22000 ---|*         PRCESS END OF LOAD FILE.

Seq #  *Modification Id* Act 
----------------------------+
00950  M01S00036.ns22000 +++|*         PROCESS END OF LOAD FILE.
00951  M00S00787.qload   +++|
00952  M00S00788.qload   +++| CPY11    SA1    ASSF        CHECK IF FILE ASSIGNED
00953  M00S00789.qload   +++|          NZ     X1,CPY12    IF FILE ASSIGNED
00954  M00S00790.qload   +++|          RJ     ASF         ASSIGN FILE TO CORRECT DEVICE

Seq #  *Modification Id* Act 
----------------------------+
00955  M01S00791.ns22000 ---|          NZ     B7,CPYX     IF ERROR IN ASSIGN

Seq #  *Modification Id* Act 
----------------------------+
00956  M01S00037.ns22000 +++|          SA1    ALEF
00957  M01S00038.ns22000 +++|          ZR     X1,CPY10.1  IF NOT ACCESS LEVEL ERROR
00958  M01S00039.ns22000 +++|          SX6    X1+1        INDICATE NO SKIP NEEDED
00959  M01S00040.ns22000 +++|          SA6    A1
00960  M01S00041.ns22000 +++| CPY10.1  NZ     B7,CPYX     IF ERROR IN ASSIGN
00961  M00S00792.qload   +++| CPY12    SA1    WDSX        DECREMENT WORD COUNT
00962  M00S00793.qload   +++|          SX6    17B
00963  M00S00794.qload   +++|          NZ     X1,CPY13    IF NOT EMPTY FIELD
00964  M00S00795.qload   +++|          SX1    X1+1
00965  M00S00796.qload   +++| CPY13    SA2    WBUF+1-1+X1 LAST WORD READ IS LEVEL NUMBER
00966  M00S00797.qload   +++|          SX3    5
00967  M00S00798.qload   +++|          SA4    CQCW        CHECK FIELD TYPE
00968  M00S00799.qload   +++|          MX0    -3
00969  M00S00800.qload   +++|          AX4    9
00970  M00S00801.qload   +++|          SX1    X1-1
00971  M00S00802.qload   +++|          IX3    X3*X1       BYTE COUNT
00972  M00S00803.qload   +++|          BX4    -X0*X4      QUEUE FIELD TYPE
00973  M00S00804.qload   +++|          SX7    64          PRU SIZE
00974  M00S00805.qload   +++|          SX4    X4-1
00975  M00S00806.qload   +++|          LX7    36
00976  M00S00807.qload   +++|          BX7    X7+X3       CONTROL WORD
00977  M00S00808.qload   +++|          SA7    WBUF
00978  M00S00809.qload   +++|          MI     X4,CPY15    IF NOT *EOR*
00979  M00S00810.qload   +++|          NZ     X4,CPY14    IF *EOF* FIELD
00980  M00S00811.qload   +++|          BX6    X2
00981  M00S00812.qload   +++| CPY14    LX6    -12
00982  M00S00813.qload   +++|          SA6    A2
00983  M00S00814.qload   +++| CPY15    WRITEW S,WBUF,X1+2 WRITE LAST BLOCK OF DATA
00984  M00S00815.qload   +++|          SA1    NTCW
00985  M00S00816.qload   +++|          SA2    NQCW
00986  M00S00817.qload   +++|          IX3    X1+X2
00987  M00S00818.qload   +++|          SX7    FMER        SET ERROR CODE
00988  M00S00819.qload   +++|          ZR     X3,CPY17    IF ALL WORD COUNTS ARE ZERO
00989  M00S00820.qload   +++|
00990  M00S00821.qload   +++|*         CHECK ERROR PROCESSING SELECTION.
00991  M00S00822.qload   +++|
00992  M00S00823.qload   +++| CPY16    SA7    ERTP        SET ERROR TYPE
00993  M00S00824.qload   +++|          RJ     SQF         POSITION TO END OF QUEUE FILE
00994  M00S00825.qload   +++|          SA2    TARA+ARFC   CHECK ERROR PROCESSING
00995  M00S00826.qload   +++|          LX2    59-57
00996  M00S00827.qload   +++|          MI     X2,CPY17    IF ERROR PROCESSING SELECTED
00997  M00S00828.qload   +++|          SA7    ERRF        SET TO IGNORE FILE
00998  M00S00829.qload   +++|          SB7    B0          CLEAR ERROR INDICATION
00999  M00S00830.qload   +++|          JP     CPYX        RETURN
01000  M00S00831.qload   +++|
01001  M00S00832.qload   +++| CPY17    WRITECW S,R        FLUSH THE WRITE BUFFER
01002  M00S00833.qload   +++|          SB5    B0          INDICATE AT END OF RECORD
01003  M00S00834.qload   +++|          RJ     CWE         CHECK FOR WRITE ERROR
01004  M00S00835.qload   +++|          NZ     B7,CPYX     IF UNRECOVERABLE ERROR
01005  M00S00836.qload   +++|          NZ     B6,CPY1     IF RECOPY REQUIRED
01006  M00S00837.qload   +++|          JP     CPYX        RETURN
01007  M00S00838.qload   +++| DSP      SPACE  4,20
01008  M00S00839.qload   +++|**        DSP - DISPOSE THE QUEUE FILE.
01009  M00S00840.qload   +++|*
01010  M00S00841.qload   +++|*         ENTRY  (ROTB) = ROUTE BLOCK FOR THE FILE.
01011  M00S00842.qload   +++|*                (IQFE) = *IQFT* ENTRY FOR THE FILE.
01012  M00S00843.qload   +++|*                (ERRF) = 0 IF FILE NOT TO BE IGNORED.
01013  M00S00844.qload   +++|*                (QLIM) = QFT LIMIT.
01014  M00S00845.qload   +++|*
01015  M00S00846.qload   +++|*         EXIT   FILE DISPOSED TO THE PROPER QUEUE.
01016  M00S00847.qload   +++|*                (DSPC) = FILE DISPOSITION CODE.
01017  M00S00848.qload   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01018  M01S00849.qload8  ---|*         USES   A - 1, 4, 5, 6, 7.
01019  M01S00850.qload8  ---|*                X - 0, 1, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01020  M01S00001.qload8  +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.
01021  M01S00002.qload8  +++|*                A - 1, 2, 4, 5, 6, 7.
01022  M00S00851.qload   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01023  M01S00852.ns21000 ---|*         MACROS QCALL, RETURN, ROUTE.

Seq #  *Modification Id* Act 
----------------------------+
01024  M01S00028.ns21000 +++|*         MACROS QCALL, RETURN, REWIND, ROUTE.
01025  M00S00853.qload   +++|
01026  M00S00854.qload   +++|
01027  M00S00855.qload   +++| DSP4     SA1    Q+1         SET UP *FET* FOR *QFM* CALL
01028  M00S00856.qload   +++|          SX6    X1+QFEWL
01029  M00S00857.qload   +++|          SX7    X1+
01030  M00S00858.qload   +++|          SA6    A1+B1
01031  M00S00859.qload   +++|          SA7    A6+B1
01032  M00S00860.qload   +++|          SA1    Q           SET FET COMPLETE
01033  M00S00861.qload   +++|          SX6    B1+
01034  M00S00862.qload   +++|          BX6    X1+X6
01035  M00S00863.qload   +++|          SA6    A1
01036  M00S00864.qload   +++|          QCALL  RIQF,Q      RELEASE TO THE INACTIVE QUEUE
01037  M00S00865.qload   +++|          SX6    INDP        SET DISPOSITION *INACTIVE*
01038  M00S00866.qload   +++|          SA6    DSPC
01039  M00S00867.qload   +++| DSP5     SX7    B0+         CLEAR ALTERNATE ABORT PROCESSING
01040  M00S00868.qload   +++|          SA7    ABTI
01041  M00S00869.qload   +++|
01042  M00S00870.qload   +++| DSP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01043  M01S00871.ns21000 ---|          SA4    QLIM        DECREMENT QFT LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01044  M01S00029.ns21000 +++|          SA4    GNFC        CHECK FOR EOI SECTOR TO WRITE
01045  M01S00030.ns21000 +++|          NZ     X4,DSP0     IF NO EOI TO WRITE

Seq #  *Modification Id* Act 
----------------------------+
01046  M01S00001.qload7  +++|          SA4    C+1         SET FET POSITION TO EOI DATA
01047  M01S00002.qload7  +++|          SX7    X4+200B
01048  M01S00003.qload7  +++|          SX6    X4+100B
01049  M01S00004.qload7  +++|          SA7    C+2
01050  M01S00005.qload7  +++|          SA6    C+3

Seq #  *Modification Id* Act 
----------------------------+
01051  M01S00031.ns21000 +++|          QCALL  QWEF,C      WRITE EOI SECTOR
01052  M01S00032.ns21000 +++| DSP0     SA4    QLIM        DECREMENT QFT LIMIT
01053  M00S00872.qload   +++|          SA5    ERRF        CHECK FILE ERROR FLAG
01054  M00S00873.qload   +++|          SX7    IGDP        SET FILE *IGNORED*
01055  M00S00874.qload   +++|          SX6    X4-1
01056  M00S00875.qload   +++|          SA7    ABTI        SET ALTERNATE ABORT PROCESSING
01057  M00S00876.qload   +++|          ZR     X5,DSP2     IF FILE NOT IGNORED
01058  M00S00877.qload   +++| DSP1     SA7    DSPC
01059  M00S00878.qload   +++|          RETURN S,R         RELEASE THE FILE SPACE
01060  M00S00879.qload   +++|          EQ     DSP5        RETURN
01061  M00S00880.qload   +++|
01062  M00S00881.qload   +++|*         PROCESS ACTIVE QUEUE FILE.
01063  M00S00882.qload   +++|
01064  M00S00883.qload   +++| DSP2     SA5    TARA+AROP   CHECK THE LOAD OPTION
01065  M00S00884.qload   +++|          ZR     X5,DSP4     IF INACTIVE LOAD
01066  M00S00885.qload   +++|          NG     X6,DSP3     IF QFT LIMIT REACHED
01067  M00S00886.qload   +++|          SA4    ROTB        CLEAR COMPLETION BIT
01068  M00S00887.qload   +++|          SA6    QLIM        SET NEW QFT LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01069  M01S00888.qload8  ---|          SA5    A4+B1       CLEAR CENTRAL SITE AND DEFERRED ROUTE BITS

Seq #  *Modification Id* Act 
----------------------------+
01070  M01S00003.qload8  +++|          SX7    B0+         PRESET PRIORITY TO ZERO
01071  M01S00004.qload8  +++|          SA5    A4+1        CLEAR CENTRAL SITE AND DEFERRED ROUTE BITS
01072  M01S00005.qload8  +++|          SA7    ROTB+3
01073  M00S00889.qload   +++|          MX0    59
01074  M00S00890.qload   +++|          BX7    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
01075  M01S00006.qload8  +++|          SA2    IQFE+ENTQ   CHECK FOR ZERO PRIORITY FILE
01076  M01S00007.qload8  +++|          MX4    -24
01077  M01S00008.qload8  +++|          BX2    -X4*X2
01078  M01S00009.qload8  +++|          ZR     X2,DSP2.0   IF ZERO PRIORITY FILE
01079  M00S00891.qload   +++|          LX5    -9          CLEAR PRIORITY FLAG
01080  M00S00892.qload   +++|          BX5    X0*X5
01081  M00S00893.qload   +++|          LX5    9

Seq #  *Modification Id* Act 
----------------------------+
01082  M01S00894.qload8  ---|          MX0    58

Seq #  *Modification Id* Act 
----------------------------+
01083  M01S00010.qload8  +++| DSP2.0   MX0    58
01084  M00S00895.qload   +++|          BX6    X0*X5

Seq #  *Modification Id* Act 
----------------------------+
01085  M01S00005.ns2137  +++|          SX1    FREP        SELECT ERROR PROCESSING
01086  M01S00006.ns2137  +++|          BX6    X1+X6
01087  M00S00896.qload   +++|          SA6    A5
01088  M00S00897.qload   +++|          SA7    A4

Seq #  *Modification Id* Act 
----------------------------+
01089  M01S00042.ns22000 +++|          SA1    A4+7
01090  M01S00043.ns22000 +++|          SX6    EFSP        SET SUBSYSTEM PROCESSING BIT
01091  M01S00044.ns22000 +++|          BX6    X1+X6
01092  M01S00045.ns22000 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
01093  M01S00033.ns21000 +++|          REWIND S,R         REPOSITION FILE TO *BOI*
01094  M00S00898.qload   +++|          ROUTE  ROTB,RECALL RELEASE TO ACTIVE QUEUE

Seq #  *Modification Id* Act 
----------------------------+
01095  M01S00899.ns2137  ---|          SX6    ACDP        SET DISPOSITION *ACTIVE*

Seq #  *Modification Id* Act 
----------------------------+
01096  M01S00007.ns2137  +++|          SA1    ROTB        CHECK FOR ERROR
01097  M01S00008.ns2137  +++|          MX0    -6
01098  M01S00009.ns2137  +++|          AX1    12
01099  M01S00010.ns2137  +++|          BX2    -X0*X1
01100  M01S00011.ns2137  +++|          ZR     X2,DSP2.3   IF NO ERROR
01101  M01S00012.ns2137  +++|          SX3    X2-/ERR/EC11  CHECK ERROR RETURNED

Seq #  *Modification Id* Act 
----------------------------+
01102  M02S00013.251l664 ---|          SX4    X2-/ERR/EC44

Seq #  *Modification Id* Act 
----------------------------+
01103  M01S00014.ns2137  +++|          ZR     X3,DSP2.2   IF UNDEFINED SERVICE CLASS
01104  M01S00015.ns2137  +++|          SX3    X2-/ERR/EC45

Seq #  *Modification Id* Act 
----------------------------+
01105  M02S00016.251l664 ---|          ZR     X4,DSP2.2   IF INVALID SERVICE CLASS
01106  M02S00017.251l664 ---|          ZR     X3,DSP2.2   IF INVALID CREATOR FAMILY/USER

Seq #  *Modification Id* Act 
----------------------------+
01107  M01S00001.251l664 +++|          ZR     X3,DSP2.2   IF INCORRECT SERVICE CLASS

Seq #  *Modification Id* Act 
----------------------------+
01108  M02S00018.qload9  ---|
01109  M02S00019.qload9  ---|*         RETURN ERROR CODE TO DAYFILE.
01110  M02S00020.qload9  ---|
01111  M02S00021.qload9  ---| DSP2.1   BX1    X2
01112  M02S00022.qload9  ---|          RJ     COD         CONVERT OCTAL NUMBER TO DISPLAY CODE
01113  M02S00023.qload9  ---|          SA1    MES25+2     ADD TO MESSAGE
01114  M02S00024.qload9  ---|          MX0    12
01115  M02S00025.qload9  ---|          BX6    X0*X4
01116  M02S00026.qload9  ---|          BX1    -X0*X1
01117  M02S00027.qload9  ---|          BX6    X1+X6
01118  M02S00028.qload9  ---|          SA6    A1+
01119  M02S00029.qload9  ---|          SX6    MES25       * DSP RETURNED ERROR XXB.*
01120  M02S00030.qload9  ---|          EQ     DSP3.1      SKIP REMAINING FILES

Seq #  *Modification Id* Act 
----------------------------+
01121  M01S00001.qload9  +++| DSP2.1   SX7    IGDP        SET FILE IGNORED
01122  M01S00002.qload9  +++|          EQ     DSP1        RETURN CURRENT FILE

Seq #  *Modification Id* Act 
----------------------------+
01123  M01S00031.ns2137  +++|
01124  M01S00032.ns2137  +++|*         RETRY ROUTING OF FILE.
01125  M01S00033.ns2137  +++|
01126  M01S00034.ns2137  +++| DSP2.2   BX6    X0*X1       RESET FILE NAME IN BLOCK
01127  M01S00035.ns2137  +++|          LX6    12
01128  M01S00036.ns2137  +++|          SA6    A1
01129  M01S00037.ns2137  +++|          SA1    A1+B1       CLEAR SERVICE CLASS FLAG
01130  M01S00038.ns2137  +++|          MX0    59
01131  M01S00039.ns2137  +++|          LX1    -20
01132  M01S00040.ns2137  +++|          BX6    X0*X1
01133  M01S00041.ns2137  +++|          LX6    20
01134  M01S00042.ns2137  +++|          SA6    A1+
01135  M01S00043.ns2137  +++|          SX7    EFSP+EFSC   FORCE ORIGIN DEFAULT SERVICE CLASS
01136  M01S00044.ns2137  +++|          SA7    ROTB+7
01137  M01S00045.ns2137  +++|          ROUTE  ROTB,RECALL RETRY FILE ROUTING
01138  M01S00046.ns2137  +++|          SA1    ROTB        CHECK FOR ERROR
01139  M01S00047.ns2137  +++|          AX1    12
01140  M01S00048.ns2137  +++|          MX0    -6
01141  M01S00049.ns2137  +++|          BX2    -X0*X1
01142  M01S00050.ns2137  +++|          NZ     X2,DSP2.1   IF ERROR
01143  M01S00051.ns2137  +++| DSP2.3   SX6    ACDP        SET DISPOSITION *ACTIVE*
01144  M00S00900.qload   +++|          SA6    DSPC
01145  M00S00901.qload   +++|          EQ     DSP5        RETURN
01146  M00S00902.qload   +++|
01147  M00S00903.qload   +++| DSP3     SX6    MES11       * QFT LIMIT ON LOAD.*

Seq #  *Modification Id* Act 
----------------------------+
01148  M01S00904.ns2137  ---|          SA6    TRMM

Seq #  *Modification Id* Act 
----------------------------+
01149  M01S00052.ns2137  +++| DSP3.1   SA6    TRMM
01150  M00S00905.qload   +++|          SX7    LSDP        LIST REMAINING FILES
01151  M00S00906.qload   +++|          SA7    LIST
01152  M00S00907.qload   +++|          EQ     DSP1        RETURN CURRENT FILE
01153  M00S00908.qload   +++| GNF      SPACE  4,20
01154  M00S00909.qload   +++|**        GNF - GET NEXT QUEUED FILE.
01155  M00S00910.qload   +++|*
01156  M00S00911.qload   +++|*         ENTRY  LOAD FILE POSITIONED TO THE START OF A QUEUED FILE.
01157  M00S00912.qload   +++|*
01158  M00S00913.qload   +++|*         EXIT   ROUTE BLOCK COPIED TO *ROTB*.
01159  M00S00914.qload   +++|*                SYSTEM SECTOR COPIED TO *SSBF*.
01160  M00S00915.qload   +++|*                (CQCW) = CURRENT QUEUE CONTROL WORD.
01161  M00S00916.qload   +++|*                (NQCW) = WORDS TO NEXT CONTROL WORD.
01162  M00S00917.qload   +++|*                (B7) = ADDRESS OF ERROR MESSAGE.
01163  M00S00918.qload   +++|*                (B7) = 0 IF NO ERRORS.
01164  M00S00919.qload   +++|*                (X1) = NEGATIVE IF *EOF* ENCOUNTERED.

Seq #  *Modification Id* Act 
----------------------------+
01165  M01S00920.qload1  ---|*                (X4) = NEGATIVE, IF 5.5 (RHF) FILE TO BE SKIPPED.

Seq #  *Modification Id* Act 
----------------------------+
01166  M01S00002.qload1  +++|*                (X4) = NONZERO, IF VERSION ONE FILE TO SKIP.
01167  M00S00921.qload   +++|*
01168  M00S00922.qload   +++|*         USES   X - 1, 3, 4, 6.
01169  M00S00923.qload   +++|*                A - 3, 6.
01170  M00S00924.qload   +++|*                B - 2, 4, 6, 7.
01171  M00S00925.qload   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01172  M01S00926.ns21000 ---|*         CALLS  GCW, PCW, RSF, RSS.

Seq #  *Modification Id* Act 
----------------------------+
01173  M01S00034.ns21000 +++|*         CALLS  GCW, PCW, RES, RSF, RSS.
01174  M00S00927.qload   +++|*
01175  M00S00928.qload   +++|*         MACROS MESSAGE, READO, SKIPFF.
01176  M00S00929.qload   +++|
01177  M00S00930.qload   +++|
01178  M00S00931.qload   +++| GNF10    SB7    MES3        * LOAD FILE MISPOSITIONED.*
01179  M00S00932.qload   +++|
01180  M00S00933.qload   +++| GNF      SUBR               ENTRY/EXIT
01181  M00S00934.qload   +++| GNF1     RJ     PCW         PROCESS CONTROL WORD
01182  M00S00935.qload   +++|          MI     X1,GNFX     IF *EOF* ENCOUNTERED
01183  M00S00936.qload   +++|          RJ     GCW         GET NEXT QUEUE CONTROL WORD
01184  M00S00937.qload   +++| GNF2     SX4    B6-1
01185  M00S00938.qload   +++|          NZ     X4,GNF8     IF NOT ROUTE BLOCK
01186  M00S00939.qload   +++|          SB4    ROTB        COPY ROUTE BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01187  M01S00940.ns22000 ---|          SX3    ROTBL

Seq #  *Modification Id* Act 
----------------------------+
01188  M02S00046.ns2127  ---|          SX3    EPBL

Seq #  *Modification Id* Act 
----------------------------+
01189  M01S00003.ns2127  +++|          SA3    NQCW
01190  M00S00941.qload   +++|          RJ     RSF
01191  M00S00942.qload   +++|          NZ     B7,GNFX     IF ERROR ENCOUNTERED
01192  M00S00943.qload   +++|          JP     B6+GNF3     PROCESS CONTROL BYTE
01193  M00S00944.qload   +++|
01194  M00S00945.qload   +++| GNF3     BSS    0
01195  M00S00946.qload   +++|          LOC    0
01196  M00S00947.qload   +++|          EQ     GNF6        IF DATA FIELD
01197  M00S00948.qload   +++|+         EQ     GNF10       IF ROUTE BLOCK
01198  M00S00949.qload   +++|+         EQ     GNF6        IF DAYFILE
01199  M00S00950.qload   +++|+         EQ     GNF4        IF *NOS* SYSTEM FIELD
01200  M00S00951.qload   +++|+         EQ     GNF5        IF *NOS/BE* FIELD
01201  M00S00952.qload   +++|+         EQ     GNF5        IF SCOPE 2 FIELD
01202  M00S00953.qload   +++|+         EQ     GNF8        IF DUMP HEADER FIELD
01203  M00S00954.qload   +++|+         EQ     GNF10       IF ERROR BLOCK
01204  M00S00955.qload   +++|          LOC    *O
01205  M00S00956.qload   +++|
01206  M00S00957.qload   +++| GNF4     EQ     B5,B1,GNF9  IF END OF VOLUME

Seq #  *Modification Id* Act 
----------------------------+
01207  M01S00958.ns21000 ---|          SB4    SSBF        COPY SYSTEM SECTOR
01208  M01S00959.ns21000 ---|          SX3    SSBFL

Seq #  *Modification Id* Act 
----------------------------+
01209  M01S00035.ns21000 +++|          SB4    SSBF        COPY SYSTEM INFORMATION
01210  M01S00036.ns21000 +++|          SA3    NQCW        GET NUMBER OF WORDS TO COPY
01211  M01S00037.ns21000 +++|          SX6    X3-SSBFL    SAVE LENGTH OF SYSTEM INFORMATION
01212  M01S00038.ns21000 +++|          SA6    GNFC
01213  M00S00960.qload   +++|          RJ     RSF
01214  M00S00961.qload   +++|          NZ     B7,GNFX     IF ERROR ENCOUNTERED

Seq #  *Modification Id* Act 
----------------------------+
01215  M01S00962.ns21000 ---|          NG     X1,GNFX     IF *EOF* ENCOUNTERED
01216  M00S00963.qload   +++|          SA3    SSBF        GET SYSTEM SECTOR TYPE
01217  M00S00964.qload   +++|          MX6    -6
01218  M00S00965.qload   +++|          AX3    6
01219  M00S00966.qload   +++|          BX6    -X6*X3

Seq #  *Modification Id* Act 
----------------------------+
01220  M01S00967.qload1  ---|          BX4    X4-X4

Seq #  *Modification Id* Act 
----------------------------+
01221  M02S00003.qload4  ---|          SX4    B0          CLEAR VERSION ONE FILE TO SKIP

Seq #  *Modification Id* Act 
----------------------------+
01222  M01S00001.qload4  +++|          BX4    X4-X4       CLEAR VERSION ONE FILE TO SKIP
01223  M00S00968.qload   +++|          SX3    X6-ROFT
01224  M00S00969.qload   +++|          PL     X3,GNFX     IF VERSION TWO SYSTEM SECTOR

Seq #  *Modification Id* Act 
----------------------------+
01225  M01S00970.qload1  ---|          SX3    X6-5        HARDCODED VERSION ONE VALUE, *S1FT*
01226  M01S00971.qload1  ---|          SX4    -1          SET 5.5 (RHF) FILE TO BE SKIPPED
01227  M01S00972.qload1  ---|          ZR     X3,GNFX     IF RHF FILE
01228  M00S00973.qload   +++|          RJ     RSS         REFORMAT VERSION ONE SYSTEM SECTOR

Seq #  *Modification Id* Act 
----------------------------+
01229  M01S00974.qload1  ---|          SX1    B0          SET *EOF* NOT ENCOUNTERED
01230  M01S00975.qload1  ---|          SX4    B0          CLEAR * 5.5 (RHF) FILE TO BE SKIPPED *

Seq #  *Modification Id* Act 
----------------------------+
01231  M02S00004.qload2  ---|          SX1    B0+         CLEAR *EOF* ENCOUNTERED

Seq #  *Modification Id* Act 
----------------------------+
01232  M01S00039.ns21000 +++|          NZ     X4,GNFX     IF VERSION ONE FILE TO BE SKIPPED
01233  M01S00040.ns21000 +++|          SA3    GNFC        CHECK FOR EOI SECTOR TO REFORMAT
01234  M01S00041.ns21000 +++|          NZ     X3,GNFX     IF NO EOI TO REFORMAT
01235  M01S00042.ns21000 +++|          RJ     RES         REFORMAT EOI SECTOR

Seq #  *Modification Id* Act 
----------------------------+
01236  M02S00043.qload4  ---|          SB7    B0+         CLEAR ERROR ENCOUNTERED
01237  M02S00044.qload4  ---|          BX1    X1-X1       CLEAR *EOF* ENCOUNTERED
01238  M02S00045.qload4  ---|          BX4    X4-X4       CLEAR VERSION ONE FILE TO SKIP

Seq #  *Modification Id* Act 
----------------------------+
01239  M02S00001.qload4  ---|          BX1    X1-X1       CLEAR *EOF* ENCOUNTERED
01240  M02S00002.qload4  ---|          SB7    B0          CLEAR ERROR ENCOUNTERED
01241  M00S00976.qload   +++|          EQ     GNFX        RETURN
01242  M00S00977.qload   +++|
01243  M00S00978.qload   +++| GNF5     SA3    T           SET LEVEL 17 INTO FET
01244  M00S00979.qload   +++|          MX6    4
01245  M00S00980.qload   +++|          LX6    18
01246  M00S00981.qload   +++|          BX3    -X6*X3
01247  M00S00982.qload   +++|          BX6    X6+X3
01248  M00S00983.qload   +++|          SA6    A3
01249  M00S00984.qload   +++|          SKIPFF A3,1,R      SKIP TO *EOF*
01250  M00S00985.qload   +++|          SA3    T
01251  M00S00986.qload   +++|          LX3    59-9
01252  M00S00987.qload   +++|          MX1    1           SET *EOF* ENCOUNTERED
01253  M00S00988.qload   +++|          NG     X3,GNF10    IF *EOI* ENCOUNTERED

Seq #  *Modification Id* Act 
----------------------------+
01254  M01S00989.qload1  ---|          SX4    B0+         CLEAR * 5.5 (RHF) FILE TO BE SKIPPED *

Seq #  *Modification Id* Act 
----------------------------+
01255  M02S00005.qload4  ---|          SX4    B0+         CLEAR VERSION ONE FILE TO SKIP
01256  M00S00990.qload   +++|          EQ     GNFX        RETURN
01257  M00S00991.qload   +++|
01258  M00S00992.qload   +++| GNF6     BX6    X6-X6       CLEAR *SSBF*
01259  M00S00993.qload   +++|          SB7    B0          CLEAR ERROR STATUS
01260  M00S00994.qload   +++|          SB2    SSBF+SSBFL-1
01261  M00S00995.qload   +++|          SA6    SSBF
01262  M00S00996.qload   +++| GNF7     SA6    A6+B1
01263  M00S00997.qload   +++|          SB6    A6-B2
01264  M00S00998.qload   +++|          MI     B6,GNF7     IF NOT END OF BUFFER

Seq #  *Modification Id* Act 
----------------------------+
01265  M01S00002.qload4  +++|          BX4    X4-X4       CLEAR VERSION ONE FILE TO SKIP

Seq #  *Modification Id* Act 
----------------------------+
01266  M01S00999.qload1  ---|          SX4    B0          CLEAR * 5.5 (RHF) FILE TO BE SKIPPED *
01267  M00S01000.qload   +++|          EQ     GNFX        RETURN
01268  M00S01001.qload   +++|
01269  M00S01002.qload   +++| GNF8     SB2    B6-3        CHECK IF *NOS* FIELD
01270  M00S01003.qload   +++|          SB6    B6-6        CHECK IF HEADER FIELD
01271  M00S01004.qload   +++|          SB4    GNFB        COPY HEADER FIELD TO MESSAGE AREA
01272  M00S01005.qload   +++|          ZR     B2,GNF4     IF *NOS* FIELD
01273  M00S01006.qload   +++|          NZ     B6,GNF10    IF NOT HEADER FIELD
01274  M00S01007.qload   +++|          SX3    4
01275  M00S01008.qload   +++|          RJ     RSF         READ SKIP FIELD
01276  M00S01009.qload   +++|          MESSAGE GNFA       *** PROCESSING DUMP FILE. ***
01277  M00S01010.qload   +++|          MESSAGE GNFB       *DUMPNAM     DATE, TIME.*
01278  M00S01011.qload   +++|          NZ     B7,GNFX     IF ERROR ENCOUNTERED
01279  M00S01012.qload   +++|          EQ     GNF2        PROCESS NEXT RECORD
01280  M00S01013.qload   +++|
01281  M00S01014.qload   +++|*         PROCEED TO NEXT REEL.
01282  M00S01015.qload   +++|
01283  M00S01016.qload   +++| GNF9     READO  T           SKIP TRAILING CONTROL WORD
01284  M00S01017.qload   +++|          EQ     GNF1        PROCESS NEXT BLOCK
01285  M00S01018.qload   +++|
01286  M00S01019.qload   +++| GNFA     DATA   C$*** PROCESSING DUMP FILE. ***$
01287  M00S01020.qload   +++| GNFB     BSS    5

Seq #  *Modification Id* Act 
----------------------------+
01288  M01S00046.ns21000 +++| GNFC     BSS    1           EOI PRESENT FLAG
01289  M00S01021.qload   +++| ISM      SPACE  4,20
01290  M00S01022.qload   +++|**        ISM - ISSUE FILES LOADED MESSAGE.
01291  M00S01023.qload   +++|*
01292  M00S01024.qload   +++|*         ENTRY  (FLDS) = FILE DISPOSITION COUNTS.
01293  M00S01025.qload   +++|*                (EFCT) = ERROR FILE COUNT.
01294  M00S01026.qload   +++|*
01295  M00S01027.qload   +++|*         EXIT   OUTPUT FILE FLUSHED.
01296  M00S01028.qload   +++|*
01297  M00S01029.qload   +++|*         USES   A - 1, 2, 6.
01298  M00S01030.qload   +++|*                B - 3, 6.
01299  M00S01031.qload   +++|*                X - 0, 1, 2, 6.
01300  M00S01032.qload   +++|*
01301  M00S01033.qload   +++|*         CALLS  CDD.
01302  M00S01034.qload   +++|
01303  M00S01035.qload   +++|
01304  M00S01036.qload   +++| ISM      SUBR               ENTRY/EXIT
01305  M00S01037.qload   +++|          SB6    B0+         CLEAR MESSAGE INDEX
01306  M00S01038.qload   +++| IMS1     SA1    FLDS+B6     GET DISPOSITION COUNT
01307  M00S01039.qload   +++|          SB6    B6+B1       INCREMENT INDEX
01308  M00S01040.qload   +++|          SB3    B6-FLDSL-1
01309  M00S01041.qload   +++|          ZR     B3,IMS2     IF END OF MESSAGES
01310  M00S01042.qload   +++|          ZR     X1,IMS1     IF EMPTY COUNT
01311  M00S01043.qload   +++|          RJ     CDD         CONVERT COUNT TO DECIMAL DISPLAY CODE
01312  M00S01044.qload   +++|          SA2    IMSA-1+B6   MERGE COUNT WITH MESSAGE
01313  M00S01045.qload   +++|          SA1    X2+B1
01314  M00S01046.qload   +++|          MX0    -24
01315  M00S01047.qload   +++|          BX6    -X0*X6
01316  M00S01048.qload   +++|          LX0    -24
01317  M00S01049.qload   +++|          BX1    X0*X1
01318  M00S01050.qload   +++|          LX6    -24
01319  M00S01051.qload   +++|          BX6    X6+X1
01320  M00S01052.qload   +++|          SA6    A1
01321  M00S01053.qload   +++|          MESSAGE X2
01322  M00S01054.qload   +++|          EQ     IMS1        LOOP TO END OF MESSAGES
01323  M00S01055.qload   +++|
01324  M00S01056.qload   +++| IMS2     WRITER O,R         FLUSH OUTPUT FILE
01325  M00S01057.qload   +++|          JP     ISMX        RETURN
01326  M00S01058.qload   +++|
01327  M00S01059.qload   +++|*         THE FOLLOWING TABLES ARE ORDER DEPENDENT.
01328  M00S01060.qload   +++|
01329  M00S01061.qload   +++| IMSA     CON    IMSB
01330  M00S01062.qload   +++|          CON    IMSC
01331  M00S01063.qload   +++|          CON    IMSD
01332  M00S01064.qload   +++|          CON    IMSE
01333  M00S01065.qload   +++|          CON    IMSF
01334  M00S01066.qload   +++|
01335  M00S01067.qload   +++| IMSB     DATA   C* QLOAD -  NNNN FILES IGNORED.*
01336  M00S01068.qload   +++| IMSC     DATA   C* QLOAD -  NNNN ACTIVE FILES LOADED.*
01337  M00S01069.qload   +++| IMSD     DATA   C* QLOAD -  NNNN INACTIVE FILES LOADED.*
01338  M00S01070.qload   +++| IMSE     DATA   C* QLOAD -  NNNN FILES LISTED.*
01339  M00S01071.qload   +++| IMSF     DATA   C* QLOAD -  NNNN ERRXXX FILES CREATED.*
01340  M00S01072.qload   +++| PLF      SPACE  4,15
01341  M00S01073.qload   +++|**        PLF - POSITION LOAD FILE.
01342  M00S01074.qload   +++|*
01343  M00S01075.qload   +++|*         ENTRY  LOAD FILE ASSIGNED TO JOB.
01344  M00S01076.qload   +++|*
01345  M00S01077.qload   +++|*         EXIT   LOAD FILE POSITION TO SELECTED POSITION.
01346  M00S01078.qload   +++|*                (B7) = ERROR MESSAGE ADDRESS.
01347  M00S01079.qload   +++|*                (B7) = 0 IF NO ERROR OCURRED.
01348  M00S01080.qload   +++|*
01349  M00S01081.qload   +++|*         USES   A - 4, 5, 6.
01350  M00S01082.qload   +++|*                B - 7.
01351  M00S01083.qload   +++|*                X - 0, 4, 5, 6.
01352  M00S01084.qload   +++|
01353  M00S01085.qload   +++|
01354  M00S01086.qload   +++| PLF4     SB7    MES3        * LOAD FILE MISPOSITIONED.*
01355  M00S01087.qload   +++|
01356  M00S01088.qload   +++| PLF      SUBR               ENTRY/EXIT
01357  M00S01089.qload   +++|          SA5    TARA+ARFC   CHECK FOR REWIND
01358  M00S01090.qload   +++|          LX5    59-58
01359  M00S01091.qload   +++|          PL     X5,PLF1     IF REWIND NOT SELECTED
01360  M00S01092.qload   +++|          REWIND T,R
01361  M00S01093.qload   +++| PLF1     SA5    TARA+ARNF   CHECK FILE SKIP COUNT
01362  M00S01094.qload   +++|          ZR     X5,PLF2     IF NO FILE COUNT
01363  M00S01095.qload   +++|          SA4    T           SET LEVEL NUMBER
01364  M00S01096.qload   +++|          MX0    4
01365  M00S01097.qload   +++|          LX0    18
01366  M00S01098.qload   +++|          BX6    X4+X0
01367  M00S01099.qload   +++|          SA6    A4
01368  M00S01100.qload   +++|          SKIPFF A4,X5,R     SKIP FILE COUNT
01369  M00S01101.qload   +++|          SA5    T           CHECK RESPONSE
01370  M00S01102.qload   +++|          LX5    59-9
01371  M00S01103.qload   +++|          MI     X5,PLF4     IF INCORRECT POSITION
01372  M00S01104.qload   +++| PLF2     SA5    TARA+ARSC   CHECK SECTOR COUNT
01373  M00S01105.qload   +++|          SA4    T           CLEAR LEVEL NUMBER
01374  M00S01106.qload   +++|          ZR     X5,PLF3     IF SKIP COUNT NOT SPECIFIED
01375  M00S01107.qload   +++|          MX0    4
01376  M00S01108.qload   +++|          SX5    X5+B1       SKIP HEADER RECORD
01377  M00S01109.qload   +++|          LX0    18
01378  M00S01110.qload   +++|          BX6    -X0*X4
01379  M00S01111.qload   +++|          SA6    A4
01380  M00S01112.qload   +++|          SKIPF  A4,X5,R     SKIP RECORD COUNT
01381  M00S01113.qload   +++|          SA5    T           CHECK RESPONSE
01382  M00S01114.qload   +++|          BX6    X5
01383  M00S01115.qload   +++|          LX5    59-9
01384  M00S01116.qload   +++|          MI     X5,PLF4     IF *EOI*
01385  M00S01117.qload   +++| PLF3     READCW T,17B       INITIALIZE READ
01386  M00S01118.qload   +++|          SB7    B0          CLEAR ERROR
01387  M00S01119.qload   +++|          JP     PLFX        RETURN
01388  M00S01120.qload   +++| PRS      SPACE  2,20
01389  M00S01121.qload   +++|**        PRS - PRESET FILES AND CONTROL.
01390  M00S01122.qload   +++|*
01391  M00S01123.qload   +++|*         ENTRY  PARAMETERS PROCESSED BY *QFSP*.
01392  M00S01124.qload   +++|*
01393  M00S01125.qload   +++|*         EXIT   CONTROL BLOCKS CLEARED.
01394  M00S01126.qload   +++|*                FILES INTIALIZED.
01395  M00S01127.qload   +++|*                CONTROL FLAGS PRESET.
01396  M00S01128.qload   +++|*                (B7) = ERROR MESSAGE ADDRESS.
01397  M00S01129.qload   +++|*                (B7) = 0 IF NO ERROR.
01398  M00S01130.qload   +++|*
01399  M00S01131.qload   +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
01400  M00S01132.qload   +++|*                A - 1, 2, 3, 5, 6, 7.
01401  M00S01133.qload   +++|*                B - 5, 6, 7.
01402  M00S01134.qload   +++|*
01403  M00S01135.qload   +++|*         CALLS  PIQ, SFN, SQL.
01404  M00S01136.qload   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01405  M01S01137.qload3  ---|*         MACROS CLOCK, DATE, EREXIT, MEMORY, WRITE.

Seq #  *Modification Id* Act 
----------------------------+
01406  M01S00011.qload3  +++|*         MACROS CLOCK, DATE, EREXIT, MEMORY, SETFS, WRITE.
01407  M00S01138.qload   +++|
01408  M00S01139.qload   +++|

Seq #  *Modification Id* Act 
----------------------------+
01409  M01S01140.ns21000 ---| PRS9     SA2    X3+TEQA     CHECK FOR REMOVABLE DEVICE
01410  M01S01141.ns21000 ---|          ZR     X3,PRS10    IF EQUIPMENT NOT SPECIFIED
01411  M01S01142.ns21000 ---|          LX2    59-1
01412  M01S01143.ns21000 ---|          SB7    MES6        * ACTIVE LOAD NOT ALLOWED.*
01413  M01S01144.ns21000 ---|          MI     X2,PRSX     IF REMOVABLE DEVICE
01414  M01S01145.ns21000 ---| PRS10    RJ     SQL         SET QFT LIMIT
01415  M01S01146.ns21000 ---|          BX6    X6-X6       CLEAR FOT FULL FLAG
01416  M01S01147.ns21000 ---|          SA6    FOTF
01417  M01S01148.ns21000 ---|          SB7    B0          CLEAR ERROR INDICATOR

Seq #  *Modification Id* Act 
----------------------------+
01418  M01S00047.ns21000 +++| PRS5     SA2    X3+TEQA     CHECK FOR REMOVABLE DEVICE
01419  M01S00048.ns21000 +++|          ZR     X3,PRS6     IF EQUIPMENT NOT SPECIFIED
01420  M01S00049.ns21000 +++|          LX2    59-1
01421  M01S00050.ns21000 +++|          SB7    MES6        * ACTIVE LOAD NOT ALLOWED.*
01422  M01S00051.ns21000 +++|          NG     X2,PRSX     IF REMOVABLE DEVICE
01423  M01S00052.ns21000 +++| PRS6     RJ     SQL         SET QFT LIMIT
01424  M01S00053.ns21000 +++|          SB7    B0+         CLEAR ERROR INDICATOR
01425  M01S00054.ns21000 +++|          SX6    B0+         CLEAR FOT AND LID TABLE FULL FLAGS
01426  M01S00055.ns21000 +++|          SA6    FOTF
01427  M01S00056.ns21000 +++|          SA6    LTFL
01428  M00S01149.qload   +++|
01429  M00S01150.qload   +++| PRS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01430  M01S00047.ns22000 +++|          SX7    99999
01431  M01S00048.ns22000 +++|          SA7    LINE        FORCE PAGE EJECT
01432  M01S00049.ns22000 +++|          SX6    B1
01433  M00S01151.qload   +++|          BX7    X7-X7       CLEAR CONTROL BLOCK
01434  M00S01152.qload   +++|          SA7    FWA

Seq #  *Modification Id* Act 
----------------------------+
01435  M01S01153.ns22000 ---|          SB6    ROTB+ROTBL-1

Seq #  *Modification Id* Act 
----------------------------+
01436  M01S00050.ns22000 +++|          SB6    ROTB+EPBL-1
01437  M01S00051.ns22000 +++|          SA6    PDFE+1      ENABLE PRINT DENSITY CONTROL
01438  M00S01154.qload   +++| PRS1     SA7    A7+B1
01439  M00S01155.qload   +++|          SB5    A7-B6
01440  M00S01156.qload   +++|          MI     B5,PRS1     IF NOT END OF BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01441  M01S01157.ns21000 ---|          SA7    SSBF        CLEAR SYSTEM SECTOR BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01442  M01S00057.ns21000 +++|          SA7    SSBF        CLEAR SYSTEM INFORMATION BUFFER
01443  M00S01158.qload   +++|          SB6    SSBF+SSBFL-1
01444  M00S01159.qload   +++| PRS2     SA7    A7+B1
01445  M00S01160.qload   +++|          SB5    A7-B6
01446  M00S01161.qload   +++|          MI     B5,PRS2     IF NOT END OF BLOCK

Seq #  *Modification Id* Act 
----------------------------+
01447  M01S01162.ns22000 ---|          MX7    1           INITIALIZE HEADER ROUTINE
01448  M01S01163.ns22000 ---|          SX6    B1          RESET PAGE COUNT
01449  M00S01164.qload   +++|          SA1    T+1         CLEAR ERROR PROCESSING BIT

Seq #  *Modification Id* Act 
----------------------------+
01450  M01S01165.ns22000 ---|          SA7    LINE
01451  M01S01166.ns22000 ---|          SA6    WPHA

Seq #  *Modification Id* Act 
----------------------------+
01452  M01S00052.ns22000 +++|          SA6    WPHA        RESET PAGE COUNT
01453  M00S01167.qload   +++|          LX6    44
01454  M00S01168.qload   +++|          BX6    -X6*X1
01455  M00S01169.qload   +++|          SA5    TARA+ARFC   SET LIST CONTROL
01456  M00S01170.qload   +++|          SA6    T+1
01457  M00S01171.qload   +++|          SX6    MES1        * QLOAD OPERATION COMPLETE.*
01458  M00S01172.qload   +++|          SX7    X5
01459  M00S01173.qload   +++|          SA7    LIST
01460  M00S01174.qload   +++|          ZR     X7,PRS3     IF *QLOAD*
01461  M00S01175.qload   +++|          SX7    LSDP        SET LIST DISPOSITION
01462  M00S01176.qload   +++|          SX6    MES5        * LDLIST OPERATION COMPLETE.*
01463  M00S01177.qload   +++|          SA7    DSPC
01464  M00S01178.qload   +++| PRS3     SA6    TRMM        SET TERMINATION MESSAGE
01465  M00S01179.qload   +++|          EREXIT ABT         SET ERROR EXIT ADDRESS
01466  M00S01180.qload   +++|
01467  M00S01181.qload   +++|*         SET OUTPUT FILE NAME.
01468  M00S01182.qload   +++|
01469  M00S01183.qload   +++|          SA1    TARA+ARLL   GET FILE NAME
01470  M00S01184.qload   +++|          SX6    B1          CLEAR BUSY STATUS
01471  M00S01185.qload   +++|          BX6    X6+X1
01472  M00S01186.qload   +++|          SA6    O
01473  M00S01187.qload   +++|          WRITE  O,*         PRESET WRITE FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
01474  M01S00012.qload3  +++|          SETFS  O,0         PRESERVE OUTPUT FILE

Proceed to Part 1