Deck MFILES

11 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.mfiles  +++|          IDENT  MFILES,FETS
00002  M01S00002.mfiles  +++|          ABS
00003  M01S00003.mfiles  +++|          SST
00004  M01S00004.mfiles  +++|          ENTRY  CLEAR
00005  M01S00005.mfiles  +++|          ENTRY  OUT
00006  M01S00001.ns22000 +++|          ENTRY  OVWRITE
00007  M01S00006.mfiles  +++|          ENTRY  RETURN
00008  M01S00007.mfiles  +++|          ENTRY  REWIND
00009  M01S00008.mfiles  +++|          ENTRY  SETFS
00010  M01S00009.mfiles  +++|          ENTRY  UNLOAD
00011  M01S00001.ns2402  +++|          ENTRY  NPC=
00012  M01S00010.mfiles  +++|          ENTRY  RFL=
00013  M01S00011.mfiles  +++|          ENTRY  SSM=
00014  M01S00012.mfiles  +++|          SYSCOM B1
00015  M01S00013.mfiles  +++|          TITLE  MFILES - MULTIPLE FILE PROCESSOR.
00016  M01S00014.mfiles  +++|*COMMENT  MFILES - MULTIPLE FILE PROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00015.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.
00018  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00019  M01S00016.mfiles  +++|          SPACE  4,10
00020  M01S00017.mfiles  +++|*****     MFILES - MULTIPLE FILE PROCESSOR.
00021  M01S00018.mfiles  +++|*
00022  M01S00019.mfiles  +++|*         A.    SKJOLDEBRAND.     75/09/07.
00023  M01S00020.mfiles  +++|*         H. G. VARNIS.           79/01/02.
00024  M01S00021.mfiles  +++|*
00025  M01S00022.mfiles  +++|*         *MFILES* REQUESTS THAT CERTAIN OPERATIONS BE PERFORMED ON A
00026  M01S00023.mfiles  +++|*         SUBSET OF FILES ASSIGNED TO A JOB.
00027  M01S00024.mfiles  +++| MFILES   SPACE  4,30
00028  M01S00025.mfiles  +++|***       *MFILES* REQUESTS THAT CERTAIN OPERATIONS BE PERFORMED ON A
00029  M01S00026.mfiles  +++|*         SUBSET OF FILES ASSIGNED TO A JOB.  THE SUBSET IS DEFINED BY

Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00027.v23l617 ---|*         THE CONTROL STATEMENT AS FOLLOWS:
00031  M01S00001.v23l617 +++|*         THE COMMAND AS FOLLOWS:
00032  M01S00028.mfiles  +++|*
00033  M01S00029.mfiles  +++|*         FORMAT    FORMAT                   SUBSET
00034  M01S00030.mfiles  +++|*          CODE
00035  M01S00031.mfiles  +++|*
00036  M01S00032.mfiles  +++|*            0  NAME.                   ALL FILES
00037  M01S00033.mfiles  +++|*            1  NAME(*)                 ALL FILES
00038  M01S00034.mfiles  +++|*            2  NAME(*,LFN1,...,LFNN)   ALL FILES EXCEPT LFN1,...,LFNN
00039  M01S00035.mfiles  +++|*            3  NAME(LFN1,...,LFNN)     FILES LFN1,...,LFNN
00040  M01S00036.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00037.ns22000 ---|*         LEGAL CONTROL STATEMENT NAMES ARE *CLEAR*, *OUT*, *RETURN*,

Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00038.ns22000 ---|*         *REWIND*, *SETFS* AND *UNLOAD*.  OPERATIONS AND ALLOWED

Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00039.ns22000 ---|*         FORMATS ARE GIVEN BY THE FOLLOWING TABLE.

Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00002.v23l617 ---|*         LEGAL CONTROL STATEMENT NAMES ARE *CLEAR*, *OUT*, *OVWRITE*,
00045  M01S00002.v23l617 +++|*         LEGAL COMMAND NAMES ARE *CLEAR*, *OUT*, *OVWRITE*,
00046  M01S00003.ns22000 +++|*         *RETURN*, *REWIND*, *SETFS*, AND *UNLOAD*.  OPERATIONS AND
00047  M01S00004.ns22000 +++|*         ALLOWED FORMATS ARE GIVEN BY THE FOLLOWING TABLE.
00048  M01S00040.mfiles  +++|*
00049  M01S00041.mfiles  +++|*                                                  0   1   2   3
00050  M01S00042.mfiles  +++|*                                                 --- --- --- ---
00051  M01S00043.mfiles  +++|*         CLEAR    RELEASE FILE FROM JOB           X   X   X   -
00052  M01S00044.mfiles  +++|*         OUT      RELEASE FILE TO OUTPUT QUEUE    X   X   X   -
00053  M01S00005.ns22000 +++|*         OVWRITE  OVERWRITE FILES                 -   X   X   X
00054  M01S00045.mfiles  +++|*         RETURN   RELEASE FILE FROM JOB           -   X   X   X
00055  M01S00046.mfiles  +++|*         REWIND   POSITION FILE AT BOI            -   X   X   X
00056  M01S00047.mfiles  +++|*         SETFS    SET FILE STATUS                 -   X   X   X
00057  M01S00048.mfiles  +++|*         UNLOAD   RELEASE FILE FROM JOB           -   X   X   X
00058  M01S00049.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00050.v23l617 ---|*         WHERE:  X = FORMAT ALLOWED FOR THIS CONTROL STATEMENT.

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00051.v23l617 ---|*                 - = FORMAT NOT ALLOWED FOR THIS CONTROL STATEMENT.
00061  M01S00003.v23l617 +++|*         WHERE:  X = FORMAT ALLOWED FOR THIS COMMAND.
00062  M01S00004.v23l617 +++|*                 - = FORMAT NOT ALLOWED FOR THIS COMMAND.
00063  M01S00052.mfiles  +++|*
00064  M01S00053.mfiles  +++|*
00065  M01S00054.mfiles  +++|*         NOTES:
00066  M01S00055.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00056.v23l617 ---|*         1.     THE *CLEAR* AND *RETURN* CONTROL STATEMENTS PRODUCE
00068  M01S00005.v23l617 +++|*         1.     THE *CLEAR* AND *RETURN* COMMANDS PRODUCE
00069  M01S00057.mfiles  +++|*                IDENTICAL OPERATIONS ON THE FILES TO WHICH THEY REFER.

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00058.v23l617 ---|*                THEY DIFFER ONLY IN ALLOWED CONTROL STATEMENT FORMATS.
00071  M01S00006.v23l617 +++|*                THEY DIFFER ONLY IN ALLOWED COMMAND FORMATS.
00072  M01S00059.mfiles  +++| MFILES   SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00060.v23l617 ---|***       CONTROL CARD CALL.
00074  M01S00007.v23l617 +++|***       THE COMMAND.
00075  M01S00061.mfiles  +++|*
00076  M01S00062.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00063.274l797 ---|*         CLEAR.             RETURNS ALL FILES EXCEPT FOR FILES

Seq #  *Modification Id* Act 
----------------------------+
00078  M03S00064.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00001.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.
00080  M01S00001.274l797 +++|*         CLEAR.             RETURNS ALL FILES EXCEPT FOR FILES WITH
00081  M01S00002.274l797 +++|*                            *CBST*, *CKST* OR *NDST* STATUS, AND
00082  M01S00003.274l797 +++|*                            THE OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00083  M01S00065.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00084  M02S00066.274l797 ---|*         CLEAR(*)           RETURNS ALL FILES EXCEPT FOR FILES

Seq #  *Modification Id* Act 
----------------------------+
00085  M03S00067.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00002.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.
00087  M01S00004.274l797 +++|*         CLEAR/OP=O.        RETURNS ALL OPTICAL DISK FILES AND THE
00088  M01S00005.274l797 +++|*                            OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00089  M01S00068.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00069.274l797 ---|*         CLEAR(*,LFN1,...,LFNN)       RETURNS ALL FILES EXCEPT

Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00070.274l797 ---|*                            FOR FILES LFN1,...,LFNN AND FILES

Seq #  *Modification Id* Act 
----------------------------+
00092  M03S00071.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00003.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.
00094  M01S00006.274l797 +++|*         CLEAR(*)           RETURNS ALL FILES EXCEPT FOR FILES WITH
00095  M01S00007.274l797 +++|*                            *CBST*, *CKST* OR *NDST* STATUS, AND
00096  M01S00008.274l797 +++|*                            THE OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00097  M01S00009.274l797 +++|*
00098  M01S00010.274l797 +++|*         CLEAR(*/OP=O)      RETURNS ALL OPTICAL DISK FILES AND THE
00099  M01S00011.274l797 +++|*                            OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00100  M01S00012.274l797 +++|*
00101  M01S00013.274l797 +++|*         CLEAR(*,LFN1,...,LFNN)       RETURNS ALL FILES EXCEPT FOR
00102  M01S00014.274l797 +++|*                            FILES LFN1,...,LFNN, FILES WITH *CBST*,
00103  M01S00015.274l797 +++|*                            *CKST* OR *NDST* STATUS, AND THE OPTICAL
00104  M01S00016.274l797 +++|*                            DISK CONTROL FILE *ZZZZZOD*.
00105  M01S00072.mfiles  +++|*
00106  M01S00073.mfiles  +++|*
00107  M01S00074.mfiles  +++|*         OUT.               RELEASES TO THE OUTPUT QUEUE ALL
00108  M01S00075.mfiles  +++|*                            FILES OF TYPE *QFFT* AND ALL FILES
00109  M01S00076.mfiles  +++|*                            WITH THE SPECIAL NAMES *OUTPUT*,
00110  M01S00077.mfiles  +++|*                            *PUNCH*, *PUNCHB*, AND *P8*.
00111  M01S00078.mfiles  +++|*
00112  M01S00079.mfiles  +++|*         OUT(*)             SAME AS *OUT.*
00113  M01S00080.mfiles  +++|*
00114  M01S00081.mfiles  +++|*         OUT(*/OP=X)        SAME AS *OUT.* USING THE OPTION *X*.
00115  M01S00082.mfiles  +++|*                            THIS FORM IS USED ONLY BY THE SYSTEM
00116  M01S00083.mfiles  +++|*                            DURING JOB TERMINATION PROCESSING.
00117  M01S00084.mfiles  +++|*                            THE POSSIBLE VALUES OF THE OPTION
00118  M01S00085.mfiles  +++|*                            *X* AND THEIR MEANINGS ARE SHOWN
00119  M01S00086.mfiles  +++|*                            BELOW.
00120  M01S00087.mfiles  +++|*
00121  M01S00088.mfiles  +++|*                            E         PERFORM END-OF-JOB ROUTING.

Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00089.ns2010  ---|*

Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00090.ns2010  ---|*                            Q         QUEUE FILES REGARDLESS

Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00091.ns2010  ---|*                                      OF USER VALIDATION LIMITS.
00125  M01S00092.mfiles  +++|*
00126  M01S00093.mfiles  +++|*         OUT(*,LFN1,...,LFNN)         SAME AS *OUT* WITH THE
00127  M01S00094.mfiles  +++|*                            EXCEPTION OF FILES LFN1,...,LFNN.
00128  M01S00095.mfiles  +++|*
00129  M01S00006.ns22000 +++|*
00130  M01S00007.ns22000 +++|*         OVWRITE,*.         OVERWRITE ALL MASS STORAGE FILES EXCEPT

Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00008.mfile1  ---|*                            FOR READ ONLY FILES.
00132  M01S00001.mfile1  +++|*                            FOR FILES NOT IN WRITE MODE.
00133  M01S00009.ns22000 +++|*
00134  M01S00010.ns22000 +++|*         OVWRITE,*/OP=OPTIONS.        OVERWRITE ALL MASS STORAGE FILES

Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00011.mfile1  ---|*                            EXCEPT FOR READ ONLY FILES WITH THE

Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00012.mfile1  ---|*                            FOLLOWING OPTIONS.
00137  M01S00002.mfile1  +++|*                            EXCEPT FOR FILES NOT IN WRITE MODE WITH
00138  M01S00003.mfile1  +++|*                            THE FOLLOWING OPTIONS.
00139  M01S00013.ns22000 +++|*                            Z - OVERWRITE THE FILE WITH BINARY ZEROES.
00140  M01S00014.ns22000 +++|*                                BOTH THE Z AND THE X OPTIONS CANNOT
00141  M01S00015.ns22000 +++|*                                BE SIMULTANEOUSLY SELECTED.  THIS IS
00142  M01S00016.ns22000 +++|*                                THE DEFAULT VALUE.
00143  M01S00017.ns22000 +++|*
00144  M01S00018.ns22000 +++|*                            X - OVERWRITE THE FILE FIRST WITH BINARY
00145  M01S00019.ns22000 +++|*                                ZEROS, THEN WITH BINARY ONES, THEN
00146  M01S00020.ns22000 +++|*                                WITH A PATTERN OF ALTERNATING BINARY
00147  M01S00021.ns22000 +++|*                                ONES AND ZEROS.
00148  M01S00022.ns22000 +++|*
00149  M01S00023.ns22000 +++|*                            R - RETURN ALL FILES PROCESSED AFTER
00150  M01S00024.ns22000 +++|*                                COMPLETION.
00151  M01S00025.ns22000 +++|*
00152  M01S00026.ns22000 +++|*         OVWRITE,*,LFN1,...,LFNN/OP=OPTIONS.
00153  M01S00027.ns22000 +++|*                            OVERWRITE ALL MASS STORAGE FILES EXCEPT

Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00028.mfile1  ---|*                            FOR READ ONLY FILES AND FILES LFN1,..,LFNN

Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00029.mfile1  ---|*                            USING SELECTED OPTIONS.
00156  M01S00004.mfile1  +++|*                            FOR FILES NOT IN WRITE MODE AND FILES
00157  M01S00005.mfile1  +++|*                            LFN1,...LFNN USING SELECTED OPTIONS.
00158  M01S00030.ns22000 +++|*
00159  M01S00031.ns22000 +++|*         OVWRITE,LFN1,...,LFNN/OP=OPTIONS.
00160  M01S00032.ns22000 +++|*                            OVERWRITE FILES LFN1,...,LFNN USING
00161  M01S00033.ns22000 +++|*                            SELECTED OPTIONS.  NON-MASS STORAGE FILES

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00034.mfile1  ---|*                            AND READ-ONLY FILES WILL BE IGNORED.
00163  M01S00006.mfile1  +++|*                            AND FILES NOT IN WRITE MODE WILL BE
00164  M01S00007.mfile1  +++|*                            IGNORED.
00165  M01S00035.ns22000 +++|*
00166  M01S00096.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00097.274l797 ---|*         RETURN(*)          RETURNS ALL FILES EXCEPT FOR FILES

Seq #  *Modification Id* Act 
----------------------------+
00168  M03S00098.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00004.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.
00170  M01S00017.274l797 +++|*         RETURN(*)          RETURNS ALL FILES EXCEPT FOR FILES WITH
00171  M01S00018.274l797 +++|*                            *CBST*, *CKST* OR *NDST* STATUS, AND
00172  M01S00019.274l797 +++|*                            THE OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00173  M01S00099.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00100.274l797 ---|*         RETURN(*,LFN1,...,LFNN)      RETURNS ALL FILES EXCEPT

Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00101.274l797 ---|*                            FOR FILES LFN1,...,LFNN AND FILES

Seq #  *Modification Id* Act 
----------------------------+
00176  M03S00102.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00005.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.
00178  M01S00020.274l797 +++|*         RETURN(*/OP=O)     RETURNS ALL OPTICAL DISK FILES AND THE
00179  M01S00021.274l797 +++|*                            OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00180  M01S00103.mfiles  +++|*
00181  M01S00022.274l797 +++|*         RETURN(*,LFN1,...,LFNN)      RETURNS ALL FILES EXCEPT FOR
00182  M01S00023.274l797 +++|*                            FILES LFN1,...,LFNN, FILES WITH *CBST*,
00183  M01S00024.274l797 +++|*                            *CKST* OR *NDST* STATUS, AND THE OPTICAL
00184  M01S00025.274l797 +++|*                            DISK CONTROL FILE *ZZZZZOD*.
00185  M01S00026.274l797 +++|*
00186  M01S00104.mfiles  +++|*         RETURN(LFN1,...LFNN)         RETURNS FILES LFN1,...,LFNN.
00187  M01S00027.274l797 +++|*                            WILL *NOT* RETURN THE OPTICAL DISK
00188  M01S00028.274l797 +++|*                            CONTROL FILE *ZZZZZOD*.
00189  M01S00105.mfiles  +++|*
00190  M01S00106.mfiles  +++|*
00191  M01S00107.mfiles  +++|*         REWIND(*)          REWINDS ALL FILES.
00192  M01S00108.mfiles  +++|*
00193  M01S00109.mfiles  +++|*         REWIND(*,LFN1,...,LFNN)      REWINDS ALL FILES EXCEPT
00194  M01S00110.mfiles  +++|*                            FOR FILES LFN1,...,LFNN.
00195  M01S00111.mfiles  +++|*
00196  M01S00112.mfiles  +++|*         REWIND(LFN1,...,LFNN)        REWINDS FILES LFN1,...LFNN.
00197  M01S00113.mfiles  +++|*
00198  M01S00114.mfiles  +++|*
00199  M01S00115.mfiles  +++|*         SETFS(*/FS=S)      SET FILE STATUS *S* ON ALL FILES.
00200  M01S00116.mfiles  +++|*
00201  M01S00117.mfiles  +++|*         SETFS(*,LFN1,...,LFNN/FS=S)  SET FILE STATUS *S* ON ALL FILES
00202  M01S00118.mfiles  +++|*                            EXCEPT FILES LFN1,...,LFNN.
00203  M01S00119.mfiles  +++|*
00204  M01S00120.mfiles  +++|*         SETFS(LFN1,...,LFNN/FS=S)    SET FILE STATUS *S* ON FILES
00205  M01S00121.mfiles  +++|*                            LFN1,....,LFNN.
00206  M01S00122.mfiles  +++|*
00207  M01S00123.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00208  M02S00124.274l797 ---|*         UNLOAD(*)          UNLOADS ALL FILES EXCEPT FOR FILES

Seq #  *Modification Id* Act 
----------------------------+
00209  M03S00125.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00210  M02S00006.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.
00211  M01S00029.274l797 +++|*         UNLOAD(*)          UNLOADS ALL FILES EXCEPT FOR FILES WITH
00212  M01S00030.274l797 +++|*                            *CBST*, *CKST* OR *NDST* STATUS, AND
00213  M01S00031.274l797 +++|*                            THE OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00214  M01S00126.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00127.274l797 ---|*         UNLOAD(*,LFN1,...,LFNN)      UNLOADS ALL FILES EXCEPT

Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00128.274l797 ---|*                            FOR FILES LFN1,...,LFNN AND FILES

Seq #  *Modification Id* Act 
----------------------------+
00217  M03S00129.274l797 ---|*                            WITH *NDST* STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00218  M02S00007.274l797 ---|*                            WITH *CBST*, *CKST* OR *NDST* STATUS.
00219  M01S00032.274l797 +++|*         UNLOAD(*/OP=O)     UNLOADS ALL OPTICAL DISK FILES AND THE
00220  M01S00033.274l797 +++|*                            OPTICAL DISK CONTROL FILE *ZZZZZOD*.
00221  M01S00130.mfiles  +++|*
00222  M01S00034.274l797 +++|*         UNLOAD(*,LFN1,...,LFNN)      UNLOADS ALL FILES EXCEPT FOR
00223  M01S00035.274l797 +++|*                            FILES LFN1,...,LFNN, FILES WITH *CBST*,
00224  M01S00036.274l797 +++|*                            *CKST* OR *NDST* STATUS, AND THE OPTICAL
00225  M01S00037.274l797 +++|*                            DISK CONTROL FILE *ZZZZZOD*.
00226  M01S00038.274l797 +++|*
00227  M01S00131.mfiles  +++|*         UNLOAD(LFN1,...,LFNN)        UNLOADS FILES LFN1,...LFNN.
00228  M01S00039.274l797 +++|*                            WILL *NOT* UNLOAD THE OPTICAL DISK
00229  M01S00040.274l797 +++|*                            CONTROL FILE *ZZZZZOD*.
00230  M01S00132.mfiles  +++|          SPACE  4,10
00231  M01S00133.mfiles  +++|***       DAYFILE MESSAGES.
00232  M01S00134.mfiles  +++|*
00233  M01S00135.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00234  M02S00136.v23l617 ---|*         * ERROR IN ARGUMENTS.* = AN INVALID ARGUMENT OR FORMAT

Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00137.v23l617 ---|*                WAS USED ON THE CONTROL STATEMENT.  COMPARE THE

Seq #  *Modification Id* Act 
----------------------------+
00236  M02S00138.v23l617 ---|*                CONTROL STATEMENT USED WITH THE DOCUMENTED FORMATS.
00237  M01S00008.v23l617 +++|*         * ERROR IN ARGUMENTS.* = AN INCORRECT ARGUMENT OR FORMAT
00238  M01S00009.v23l617 +++|*                WAS USED ON THE COMMAND.  COMPARE THE
00239  M01S00010.v23l617 +++|*                COMMAND USED WITH THE DOCUMENTED FORMATS.
00240  M01S00139.mfiles  +++|*
00241  M01S00140.mfiles  +++|*         * FILE STATUS NOT SPECIFIED.* = A *SETFS* COMMAND WAS
00242  M01S00141.mfiles  +++|*                ISSUED WITH NO FILE STATUS SPECIFIED.
00243  M01S00142.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00143.v23l617 ---|*         * INVALID FILE STATUS.* = THE FILE STATUS SPECIFIED
00245  M01S00011.v23l617 +++|*         * INCORRECT FILE STATUS.* = THE FILE STATUS SPECIFIED
00246  M01S00144.mfiles  +++|*                ON A *SETFS* COMMAND WAS NOT VALID.
00247  M01S00145.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00146.v23l617 ---|*         * INVALID */* OPTION.* = AN INVALID CONTROL STATEMENT
00249  M01S00012.v23l617 +++|*         * INCORRECT */* OPTION.* = AN INCORRECT COMMAND
00250  M01S00147.mfiles  +++|*                OPTION WAS ENTERED FOLLOWING A */* SEPARATOR.
00251  M01S00148.mfiles  +++|*
00252  M01S00149.mfiles  +++|*         * NNN FILE(S) PROCESSED.* = NNN IS THE NUMBER OF FILES FOR
00253  M01S00150.mfiles  +++|*                WHICH THE FUNCTION WAS REQUESTED.
00254  M01S00151.mfiles  +++|*
00255  M01S00152.mfiles  +++|*         * XXXXXXX ROUTED.  JSN IS YYYY.* = XXXXXXX IS THE NAME
00256  M01S00153.mfiles  +++|*                OF THE FILE BEING ROUTED AND YYYY IS THE JSN WHICH
00257  M01S00154.mfiles  +++|*                WAS ASSIGNED TO THAT FILES QFT ENTRY.
00258  M01S00036.ns22000 +++|*
00259  M01S00037.ns22000 +++|*         * (FILENAME) NOT ON MASS STORAGE.* = THE NAMED FILE WAS NOT
00260  M01S00038.ns22000 +++|*                PROCESSED BECAUSE IT DOES NOT RESIDE ON MASS STORAGE.
00261  M01S00039.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00262  M02S00040.mfile1  ---|*         * (FILENAME) IS READ ONLY.* = THE NAMED FILE WAS NOT

Seq #  *Modification Id* Act 
----------------------------+
00263  M02S00041.mfile1  ---|*                PROCESSED BECAUSE IT HAS WRITE LOCKOUT STATUS SET.
00264  M01S00008.mfile1  +++|*         * (FILENAME) NOT IN WRITE MODE.* = THE NAMED FILE WAS NOT
00265  M01S00009.mfile1  +++|*                PROCESSED BECAUSE IT IS NOT IN WRITE MODE.
00266  M01S00155.mfiles  +++| MFILES   TITLE  CONSTANTS AND MACRO DEFINITIONS.
00267  M01S00156.mfiles  +++| MFILES   SPACE  4,10
00268  M01S00157.mfiles  +++|**        DEFINITION COMMON DECKS.
00269  M01S00158.mfiles  +++|
00270  M01S00159.mfiles  +++|
00271  M01S00160.mfiles  +++|*CALL     COMCMAC
00272  M01S00161.mfiles  +++|*CALL     COMCCMD
00273  M01S00001.mfile2  +++|*CALL     COMSDSP
00274  M01S00162.mfiles  +++|*CALL     COMSJCE
00275  M01S00163.mfiles  +++|*CALL     COMSLFD
00276  M01S00164.mfiles  +++|          SPACE  4,15
00277  M01S00165.mfiles  +++|**        MACRO DEFINITIONS.
00278  M01S00166.mfiles  +++| ACON     SPACE  4,10
00279  M01S00167.mfiles  +++|**        ACON - SET ARGUMENT CONTROL.
00280  M01S00168.mfiles  +++|*
00281  M01S00169.mfiles  +++|*         ACON   P,T
00282  M01S00170.mfiles  +++|*
00283  M01S00171.mfiles  +++|*         ENTRY  *P* = ARGUMENT PROCESSOR ADDRESS.
00284  M01S00172.mfiles  +++|*                *T* = ARGUMENT TABLE (*COMCARG* FORMAT) ADDRESS.
00285  M01S00173.mfiles  +++|*
00286  M01S00174.mfiles  +++|*         EXIT   24/0, 18/P, 18/T
00287  M01S00175.mfiles  +++|
00288  M01S00176.mfiles  +++|
00289  M01S00177.mfiles  +++|          PURGMAC ACON
00290  M01S00178.mfiles  +++| ACON     MACRO  P,T
00291  M01S00179.mfiles  +++|+         VFD    24/0,18/P,18/T
00292  M01S00180.mfiles  +++|          ENDM
00293  M01S00181.mfiles  +++| SCON     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00182.v23l617 ---|**        SCON - SET STATEMENT CONTROL.
00295  M01S00013.v23l617 +++|**        SCON - SET COMMAND CONTROL.
00296  M01S00183.mfiles  +++|*
00297  M01S00184.mfiles  +++|*         SCON   A,B,C,D,EXP,CF
00298  M01S00185.mfiles  +++|*
00299  M01S00186.mfiles  +++|*         ENTRY  *A* = 1 IF FORMAT 0 ALLOWED.
00300  M01S00187.mfiles  +++|*                *B* = 1 IF FORMAT 1 ALLOWED.
00301  M01S00188.mfiles  +++|*                *C* = 1 IF FORMAT 2 ALLOWED.
00302  M01S00189.mfiles  +++|*                *D* = 1 IF FORMAT 3 ALLOWED.
00303  M01S00190.mfiles  +++|*                *EXP* = ADDRESS OF FILE EXCLUSION PROCESSOR.
00304  M01S00191.mfiles  +++|*                *CF* = *CIO* FUNCTION CODE.
00305  M01S00192.mfiles  +++|
00306  M01S00193.mfiles  +++|
00307  M01S00194.mfiles  +++|          PURGMAC SCON
00308  M01S00195.mfiles  +++|
00309  M01S00196.mfiles  +++| SCON     MACRO  A,B,C,D,EXP,CF
00310  M01S00197.mfiles  +++|          VFD    1/A,1/B,1/C,1/D,20/0,18/EXP,18/CF
00311  M01S00198.mfiles  +++|          ENDM
00312  M01S00199.mfiles  +++| MFILES   SPACE  4,10
00313  M01S00200.mfiles  +++|****      INSTALLATION PARAMETERS.
00314  M01S00201.mfiles  +++|
00315  M01S00202.mfiles  +++|
00316  M01S00203.mfiles  +++| MNF      EQU    200B        FILES PROCESSED PER *GETFNT* CALL
00317  M01S00204.mfiles  +++|****
00318  M01S00205.mfiles  +++|          SPACE  4,10
00319  M01S00206.mfiles  +++|**        ASSEMBLY CONSTANTS.
00320  M01S00207.mfiles  +++|
00321  M01S00208.mfiles  +++|
00322  M01S00042.ns22000 +++| FMT0     EQU    0           FORMAT 0
00323  M01S00043.ns22000 +++| FMT1     EQU    1           FORMAT 1
00324  M01S00044.ns22000 +++| FMT2     EQU    2           FORMAT 2 (EXCLUSION FORMAT)
00325  M01S00045.ns22000 +++| FMT3     EQU    3           FORMAT 3 (INCLUSION FORMAT)
00326  M01S00209.mfiles  +++| FNTBL    EQU    2*MNF+2     *GETFNT* BUFFER SIZE
00327  M01S00210.mfiles  +++| PSBFL    EQU    1           LENGTH OF PSEUDO BUFFER FOR FETS
00328  M01S00211.mfiles  +++| FRDC     EQU    20B         *DSP* FLAG FOR DISPOSITION CODE
00329  M01S00212.mfiles  +++| MFILES   TITLE  TABLES AND DATA STORAGE.
00330  M01S00213.mfiles  +++|**        FETS.
00331  M01S00214.mfiles  +++|
00332  M01S00215.mfiles  +++|
00333  M01S00216.mfiles  +++|          ORG    110B
00334  M01S00217.mfiles  +++| FETS     BSS    0
00335  M01S00218.mfiles  +++| FET1     FILEB  PSBF,PSBFL,(FET=8)
00336  M01S00219.mfiles  +++| FET2     FILEB  PSBF,PSBFL,(FET=8)
00337  M01S00220.mfiles  +++| FET3     FILEB  PSBF,PSBFL,(FET=8)
00338  M01S00221.mfiles  +++| FETX     FILEB  PSBF,PSBFL,(FET=13)  *GETFNT* FET (MUST BE LAST FET)
00339  M01S00222.mfiles  +++|
00340  M01S00223.mfiles  +++| FETC     EQU    FETX+8      *GETFNT* CONTROL WORD ADDRESS
00341  M01S00224.mfiles  +++| FETL     EQU    FET2-FET1   FET LENGTH
00342  M01S00225.mfiles  +++| FETW     EQU    FETX-FETS   LENGTH OF FET BLOCK
00343  M01S00226.mfiles  +++| FETN     EQU    FETW/FETL+1 NUMBER OF FETS
00344  M01S00227.mfiles  +++|          SPACE  4,10
00345  M01S00228.mfiles  +++|**        RESERVED LOCATIONS.
00346  M01S00229.mfiles  +++|
00347  M01S00230.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00231.v23l617 ---| CSOC     CON    0           CONTROL STATEMENT OPTION COUNT
00349  M01S00014.v23l617 +++| CSOC     CON    0           COMMAND OPTION COUNT
00350  M01S00232.mfiles  +++| EOJS     CON    0           END-OF-JOB PROCESSING STATUS
00351  M01S00233.mfiles  +++| FICT     CON    0           FILE COUNT
00352  M01S00234.mfiles  +++| FLST     CON    0           FILE STATUS TO BE SET
00353  M01S00046.ns22000 +++| FRMT     CON    0           FORMAT CODE
00354  M01S00235.mfiles  +++| OPARG    CON    0           *OP=* ARGUMENT
00355  M01S00041.274l797 +++| OPOF     CON    0           *OP=O* PROCESSED FLAG
00356  M01S00047.ns22000 +++| OVWF     CON    0           *OVWRITE* OPTION FLAG
00357  M01S00001.ns2010  +++| NOJF     CON    1           *NOJT* TERMINATION FLAG
00358  M01S00042.274l797 +++| ZODF     CON    0           OPTICAL DISK CONTROL FILE FOUND FLAG
00359  M01S00236.mfiles  +++|          SPACE  4,10
00360  M01S00237.mfiles  +++|**        PRESERVED REGISTER STORAGE LOCATIONS.
00361  M01S00238.mfiles  +++|
00362  M01S00239.mfiles  +++|
00363  M01S00240.mfiles  +++| SVA3     CON    0           SAVE (A3)
00364  M01S00241.mfiles  +++| SVB2     CON    0           SAVE (B2)
00365  M01S00242.mfiles  +++| SVB3     CON    0           SAVE (B3)
00366  M01S00243.mfiles  +++| SVB4     CON    0           SAVE (B4)
00367  M01S00244.mfiles  +++|          SPACE  4,10
00368  M01S00245.mfiles  +++|**        *GETFNT* CONTROL WORD.
00369  M01S00246.mfiles  +++|
00370  M01S00247.mfiles  +++|
00371  M01S00248.mfiles  +++| GFCW     VFD    12/MNF,6/0,18/0,2/0,1/1,3/4,18/FNTB
00372  M01S00249.mfiles  +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00373  M02S00250.v23l617 ---|**        CONTROL STATEMENT CONTROL TABLE.
00374  M01S00015.v23l617 +++|**        COMMAND TABLE.
00375  M01S00251.mfiles  +++|
00376  M01S00252.mfiles  +++|
00377  M01S00253.mfiles  +++| TCSC     BSS    0                FWA OF CONTROL WORD TABLE
00378  M01S00254.mfiles  +++| CLCC     SCON   1,1,1,0,CPF,70B  CLEAR
00379  M01S00255.mfiles  +++| OUCC     SCON   1,1,1,0,COF,0B   OUT
00380  M01S00048.ns22000 +++| OVCC     SCON   0,1,1,1,CMS,244B OVWRITE
00381  M01S00049.ns22000 +++| OVCR     SCON   0,1,1,1,CMS,254B OVWRITE RETURN
00382  M01S00256.mfiles  +++| RTCC     SCON   0,1,1,1,CPF,70B  RETURN
00383  M01S00257.mfiles  +++| RWCC     SCON   0,1,1,1,0,50B    REWIND
00384  M01S00258.mfiles  +++| SFCC     SCON   0,1,1,1,CIF,0    SETFS
00385  M01S00259.mfiles  +++| UNCC     SCON   0,1,1,1,CPF,60B  UNLOAD
00386  M01S00260.mfiles  +++| TACW     SPACE  4,10
00387  M01S00261.mfiles  +++|**        TACW - TABLE OF ARGUMENT CONTROL WORDS.
00388  M01S00262.mfiles  +++|*
00389  M01S00263.mfiles  +++|*         THIS TABLE IS ADDRESSED USING THE OFFSET (*TACW*) FROM

Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00264.v23l617 ---|*         THE CORRESPONDING ENTRY IN THE CONTROL STATEMENT
00391  M01S00016.v23l617 +++|*         THE CORRESPONDING ENTRY IN THE COMMAND
00392  M01S00265.mfiles  +++|*         CONTROL WORD TABLE.
00393  M01S00266.mfiles  +++|
00394  M01S00267.mfiles  +++|
00395  M01S00268.mfiles  +++| TACW     EQU    *-TCSC      TABLE OFFSET FROM *TCSC*

Seq #  *Modification Id* Act 
----------------------------+
00396  M02S00269.274l797 ---|          ACON   0,0         CLEAR
00397  M01S00043.274l797 +++|          ACON   CAP,TOARG   CLEAR
00398  M01S00270.mfiles  +++|          ACON   OAP,TOARG   OUT
00399  M01S00050.ns22000 +++|          ACON   VAT,TOARG   OVWRITE
00400  M01S00051.ns22000 +++|          ACON   VAT,TOARG   OVWRITE RETURN

Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00271.274l797 ---|          ACON   0,0         RETURN
00402  M01S00044.274l797 +++|          ACON   CAP,TOARG   RETURN
00403  M01S00272.mfiles  +++|          ACON   0,0         REWIND
00404  M01S00273.mfiles  +++|          ACON   SAP,TSARG   SETFS

Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00274.274l797 ---|          ACON   0,0         UNLOAD
00406  M01S00045.274l797 +++|          ACON   CAP,TOARG   UNLOAD
00407  M01S00275.mfiles  +++| TDSP     SPACE  4,10
00408  M01S00276.mfiles  +++|**        TDSP - *DSP* PARAMETER BLOCK.
00409  M01S00277.mfiles  +++|
00410  M01S00278.mfiles  +++|
00411  M01S00279.mfiles  +++| TDSP     BSSZ   1

Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00280.mfile2  ---|          VFD    42/0,18/400000B  RETURN JSN TO CALLER
00413  M01S00002.mfile2  +++|          VFD    42/0,18/FRFN  RETURN JSN TO CALLER
00414  M01S00281.mfiles  +++|          BSSZ   5
00415  M01S00282.mfiles  +++| TSFN     SPACE  4,10
00416  M01S00283.mfiles  +++|**        TSFN - TABLE OF SPECIAL FILE NAMES.
00417  M01S00284.mfiles  +++|*
00418  M01S00285.mfiles  +++|*T        42/FILE NAME, 18/ 0

Figure

00419  M01S00286.mfiles  +++|
00420  M01S00287.mfiles  +++|
00421  M01S00288.mfiles  +++| TSFN     BSS    0           START OF TABLE
00422  M01S00289.mfiles  +++|          LOC    0
00423  M01S00290.mfiles  +++| OTPT     CON    0LOUTPUT
00424  M01S00291.mfiles  +++|          CON    0LPUNCH
00425  M01S00292.mfiles  +++|          CON    0LPUNCHB
00426  M01S00293.mfiles  +++|          CON    0LP8
00427  M01S00294.mfiles  +++|          CON    0           END OF TABLE
00428  M01S00295.mfiles  +++|          LOC    *O
00429  M01S00296.mfiles  +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00297.v23l617 ---| MFILES   TITLE  CONTROL STATEMENT ENTRY POINTS.
00431  M01S00017.v23l617 +++| MFILES   TITLE  COMMAND ENTRY POINTS.
00432  M01S00298.mfiles  +++|**        CLEAR.
00433  M01S00299.mfiles  +++|*
00434  M01S00300.mfiles  +++|*         RETURN FILES ASSIGNED TO A JOB.
00435  M01S00301.mfiles  +++|
00436  M01S00302.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00303.v23l617 ---| CLEAR    SB2    CLCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS
00438  M01S00018.v23l617 +++| CLEAR    SB2    CLCC        SET COMMAND WORD ADDRESS
00439  M01S00304.mfiles  +++|          EQ     MFP         ENTER MAIN ROUTINE
00440  M01S00305.mfiles  +++| OUT      SPACE  4,10
00441  M01S00306.mfiles  +++|**        OUT.
00442  M01S00307.mfiles  +++|*         OUT(.../OP=X)
00443  M01S00308.mfiles  +++|*
00444  M01S00309.mfiles  +++|*         RELEASE FILES ASSIGNED TO A JOB TO THE OUTPUT QUEUE.
00445  M01S00310.mfiles  +++|*         THE OPTION SPECIFIED BY *X* IS DESCRIBED BELOW.  IT
00446  M01S00311.mfiles  +++|*         IS VALID ONLY DURING JOB TERMINATION PROCESSING.
00447  M01S00312.mfiles  +++|*
00448  M01S00313.mfiles  +++|*                E           PERFORM END-OF-JOB ROUTING.
00449  M01S00314.mfiles  +++|*
00450  M01S00315.mfiles  +++|*                Q           QUEUE FILE REGARDLESS OF USER
00451  M01S00316.mfiles  +++|*                            VALIDATION LIMITS.
00452  M01S00317.mfiles  +++|
00453  M01S00318.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00319.v23l617 ---| OUT      SB2    OUCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS
00455  M01S00019.v23l617 +++| OUT      SB2    OUCC        SET COMMAND WORD ADDRESS
00456  M01S00320.mfiles  +++|          EQ     MFP         ENTER MAIN LOOP
00457  M01S00052.ns22000 +++| OVWRITE  SPACE  4,10
00458  M01S00053.ns22000 +++|**        OVWRITE.
00459  M01S00054.ns22000 +++|*
00460  M01S00055.ns22000 +++|*         OVERWRITE FILES.
00461  M01S00056.ns22000 +++|
00462  M01S00057.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00058.v23l617 ---| OVWRITE  SB2    OVCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS
00464  M01S00020.v23l617 +++| OVWRITE  SB2    OVCC        SET COMMAND WORD ADDRESS
00465  M01S00059.ns22000 +++|          EQ     MFP         ENTER MAIN ROUTINE
00466  M01S00321.mfiles  +++|          SPACE  4,10
00467  M01S00322.mfiles  +++|**        RETURN.
00468  M01S00323.mfiles  +++|*
00469  M01S00324.mfiles  +++|*         RETURN FILES ASSIGNED TO A JOB.
00470  M01S00325.mfiles  +++|
00471  M01S00326.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00327.v23l617 ---| RETURN   SB2    RTCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS
00473  M01S00021.v23l617 +++| RETURN   SB2    RTCC        SET COMMAND WORD ADDRESS
00474  M01S00328.mfiles  +++|          EQ     MFP         ENTER MAIN ROUTINE
00475  M01S00329.mfiles  +++|          SPACE  4,10
00476  M01S00330.mfiles  +++|**        REWIND.
00477  M01S00331.mfiles  +++|*
00478  M01S00332.mfiles  +++|*         REWIND FILES ASSIGNED TO A JOB.
00479  M01S00333.mfiles  +++|
00480  M01S00334.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00335.v23l617 ---| REWIND   SB2    RWCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS
00482  M01S00022.v23l617 +++| REWIND   SB2    RWCC        SET COMMAND WORD ADDRESS
00483  M01S00336.mfiles  +++|          EQ     MFP         ENTER MAIN ROUTINE
00484  M01S00337.mfiles  +++| SETFS    SPACE  4,10
00485  M01S00338.mfiles  +++|**        SETFS.
00486  M01S00339.mfiles  +++|*
00487  M01S00340.mfiles  +++|*         SET STATUS ON FILES ASSIGNED TO A JOB.
00488  M01S00341.mfiles  +++|
00489  M01S00342.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00343.v23l617 ---| SETFS    SB2    SFCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS
00491  M01S00023.v23l617 +++| SETFS    SB2    SFCC        SET COMMAND WORD ADDRESS
00492  M01S00344.mfiles  +++|          EQ     MFP         ENTER MAIN ROUTINE
00493  M01S00345.mfiles  +++|          SPACE  4,10
00494  M01S00346.mfiles  +++|**        UNLOAD.
00495  M01S00347.mfiles  +++|*
00496  M01S00348.mfiles  +++|*         UNLOAD FILES ASSIGNED TO A JOB.
00497  M01S00349.mfiles  +++|
00498  M01S00350.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00351.v23l617 ---| UNLOAD   SB2    UNCC        SET CONTROL STATEMENT CONTROL WORD ADDRESS
00500  M01S00024.v23l617 +++| UNLOAD   SB2    UNCC        SET COMMAND WORD ADDRESS
00501  M01S00352.mfiles  +++|*         EQ     MFP         ENTER MAIN ROUTINE
00502  M01S00353.mfiles  +++| MFILES   TITLE  MAIN PROGRAM.
00503  M01S00354.mfiles  +++| MFILES   SPACE  4,10
00504  M01S00355.mfiles  +++|**        RESERVED REGISTER USAGE.
00505  M01S00356.mfiles  +++|*
00506  M01S00357.mfiles  +++|*                (A3) = ADDRESS OF FIRST FILE NAME ARGUMENT.

Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00358.v23l617 ---|*                (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.
00508  M01S00025.v23l617 +++|*                (B2) = COMMAND WORD ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00359.ns22000 ---|*                (B4) = FORMAT CODE.
00510  M01S00360.mfiles  +++| MFP      SPACE  4,15
00511  M01S00361.mfiles  +++|**        MFP - MULTIPLE FILE PROCESSOR.
00512  M01S00362.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00363.ns22000 ---|*         CALLS  CIO=, GNF, IFC, PAF, PRS.

Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00060.v23l617 ---|*         ENTRY  (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.
00515  M01S00026.v23l617 +++|*         ENTRY  (B2) = COMMAND WORD ADDRESS.
00516  M01S00061.ns22000 +++|*
00517  M01S00062.ns22000 +++|*         USES   X - 4, 6, 7.
00518  M01S00063.ns22000 +++|*                A - 4, 6, 7.
00519  M01S00064.ns22000 +++|*
00520  M01S00065.ns22000 +++|*         CALLS  IFC, PAF, PRS.
00521  M01S00364.mfiles  +++|*
00522  M01S00365.mfiles  +++|*         MACROS ENDRUN, GETFNT, RECALL.
00523  M01S00366.mfiles  +++|
00524  M01S00367.mfiles  +++|
00525  M01S00368.mfiles  +++| MFP      BSS    0           ENTRY
00526  M01S00369.mfiles  +++|          RJ     PRS         PRESET

Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00370.ns22000 ---|          SB5    B4-3

Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00371.ns22000 ---|          ZR     B5,MFP4     IF NOT EXCLUSION FORM (FORMAT 3)

Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00372.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00530  M02S00373.ns22000 ---|*         OPERATE ON ALL BUT SPECIFIED FILES.

Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00374.ns22000 ---|
00532  M01S00375.mfiles  +++|          SA4    GFCW        PUT *GETFNT* CONTROL WORD IN FET
00533  M01S00376.mfiles  +++|          BX6    X4
00534  M01S00377.mfiles  +++|          SX7    B0
00535  M01S00378.mfiles  +++|          SA6    FETC
00536  M01S00379.mfiles  +++|          SA7    FNTB        SET INITIAL *GETFNT* CALL
00537  M01S00380.mfiles  +++| MFP1     GETFNT FETX
00538  M01S00381.mfiles  +++|          RJ     PAF         PROCESS ALL FILES
00539  M01S00382.mfiles  +++|          ZR     X1,MFP2     IF ALL FILES RETURNED IN BUFFER
00540  M01S00383.mfiles  +++|          RECALL FETX
00541  M01S00384.mfiles  +++|          EQ     MFP1        GET ANOTHER BUFFER OF FNT ENTRIES
00542  M01S00385.mfiles  +++|
00543  M01S00386.mfiles  +++|*         TERMINATE JOB.
00544  M01S00387.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00545  M02S00388.ns22000 ---| MFP2     RJ     IFC         ISSUE FILE COUNT MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00389.ns22000 ---| MFP3     ENDRUN

Seq #  *Modification Id* Act 
----------------------------+
00547  M02S00390.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00548  M02S00391.ns22000 ---|*         OPERATE ON SPECIFIED FILES ONLY.

Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00392.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00393.ns22000 ---| MFP4     ZR     X3,MFP3     IF END OF ARGUMENTS

Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00394.ns22000 ---|          RJ     GNF         GET NONBUSY FET

Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00395.ns22000 ---|          ZR     X2,MFP5     IF FILE ALREADY PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00396.ns22000 ---|          SX4    B1

Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00397.ns22000 ---|          SA5    B2

Seq #  *Modification Id* Act 
----------------------------+
00555  M02S00398.ns22000 ---|          BX7    X3+X4

Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00399.ns22000 ---|          SA7    X2          ENTER FET+0

Seq #  *Modification Id* Act 
----------------------------+
00557  M02S00400.ns22000 ---|          SB6    B2-SFCC

Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00401.ns22000 ---|          SX7    X5

Seq #  *Modification Id* Act 
----------------------------+
00559  M02S00402.ns22000 ---|          ZR     B6,MFP6     IF *SETFS* STATEMENT

Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00403.ns22000 ---|          RJ     CIO=        MAKE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00404.ns22000 ---| MFP5     SA3    A3+1        GET NEXT ARGUMENT

Seq #  *Modification Id* Act 
----------------------------+
00562  M02S00405.ns22000 ---|          EQ     MFP4        PROCESS NEXT ARGUMENT

Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00406.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00407.ns22000 ---| MFP6     SA1    FLST        SET FILE STATUS

Seq #  *Modification Id* Act 
----------------------------+
00565  M02S00408.ns22000 ---|          SETFS  X2,X1

Seq #  *Modification Id* Act 
----------------------------+
00566  M02S00409.ns22000 ---|          EQ     MFP5        PROCESS NEXT FILE
00567  M01S00066.ns22000 +++| MFP2     SA4    FRMT        GET FORMAT CODE
00568  M01S00067.ns22000 +++|          SX4    X4-FMT3
00569  M01S00068.ns22000 +++|          ZR     X4,MFP3     IF FORMAT 3
00570  M01S00069.ns22000 +++|          RJ     IFC         ISSUE FILE COUNT MESSAGE
00571  M01S00070.ns22000 +++| MFP3     ENDRUN
00572  M01S00410.mfiles  +++|          TITLE  SUBROUTINES.
00573  M01S00411.mfiles  +++| ABT      SPACE  4,10
00574  M01S00412.mfiles  +++|**        ABT - ISSUE MESSAGE AND ABORT.
00575  M01S00413.mfiles  +++|*
00576  M01S00414.mfiles  +++|*         ENTRY  (X2) = MESSAGE ADDRESS.
00577  M01S00415.mfiles  +++|*
00578  M01S00416.mfiles  +++|*         MACROS ABORT, MESSAGE.
00579  M01S00417.mfiles  +++|
00580  M01S00418.mfiles  +++|
00581  M01S00419.mfiles  +++| ABT      BSS    0           ENTRY
00582  M01S00420.mfiles  +++|          MESSAGE  X2,3
00583  M01S00421.mfiles  +++|          ABORT              ABORT CONTROL POINT
00584  M01S00422.mfiles  +++| CFN      SPACE  4,20
00585  M01S00423.mfiles  +++|**        CFN - CHECK FILE NAME FOR EXCLUSION.
00586  M01S00424.mfiles  +++|*
00587  M01S00425.mfiles  +++|*         *CFN* CHECKS AN ARGUMENT LIST FOR THE PRESENCE OF THE FILE
00588  M01S00426.mfiles  +++|*         NAME GIVEN BY AN FNT ENTRY.  DEPENDING ON THE CONTROL

Seq #  *Modification Id* Act 
----------------------------+
00589  M02S00427.v23l617 ---|*         STATEMENT, OTHER EXCLUSION TESTS MAY BE MADE.
00590  M01S00027.v23l617 +++|*         COMMAND, OTHER EXCLUSION TESTS MAY BE MADE.
00591  M01S00428.mfiles  +++|*
00592  M01S00429.mfiles  +++|*         ENTRY  (X1) = FNT ENTRY.
00593  M01S00430.mfiles  +++|*                (X3) = FILE NAME.
00594  M01S00431.mfiles  +++|*                (A1) = ADDRESS OF FNT ENTRY IN *GETFNT* BUFFER.
00595  M01S00432.mfiles  +++|*                (A3) = ADDRESS OF FIRST ARGUMENT.

Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00433.v23l617 ---|*                (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.
00597  M01S00028.v23l617 +++|*                (B2) = COMMAND WORD ADDRESS.
00598  M01S00434.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00435.ns22000 ---|*         EXIT   (X0) = FILE NAME MASK.

Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00436.ns22000 ---|*                (X6) = 0 IF FILE TO BE EXCLUDED.
00601  M01S00071.ns22000 +++|*         EXIT   (X6) = 0 IF FILE TO BE EXCLUDED.
00602  M01S00437.mfiles  +++|*                (X6) .NE. 0 IF FILE NOT TO BE EXCLUDED.
00603  M01S00438.mfiles  +++|*
00604  M01S00439.mfiles  +++|*         USES   X - 0, 4, 6.
00605  M01S00440.mfiles  +++|*                A - 4.
00606  M01S00441.mfiles  +++|*                B - 7.
00607  M01S00442.mfiles  +++|*
00608  M01S00443.mfiles  +++|*         CALLS  IRJ.
00609  M01S00072.ns22000 +++|*
00610  M01S00073.ns22000 +++|*         NOTE   EXCLUSION PROCESSOR SUBROUTINES MUST NOT DESTROY
00611  M01S00074.ns22000 +++|*                REGISTERS A3, X3, B2, B3, OR B4.
00612  M01S00444.mfiles  +++|
00613  M01S00445.mfiles  +++|
00614  M01S00446.mfiles  +++| CFN      SUBR               ENTRY/EXIT
00615  M01S00447.mfiles  +++|          SA4    B2          GET EXCLUSION PROCESSOR ADDRESS
00616  M01S00448.mfiles  +++|          MX0    -18
00617  M01S00449.mfiles  +++|          AX4    18
00618  M01S00450.mfiles  +++|          BX4    -X0*X4
00619  M01S00451.mfiles  +++|          ZR     X4,CFN1     IF NO EXCLUSION PROCESSOR DEFINED
00620  M01S00452.mfiles  +++|          SB7    X4+         SET PROCESSOR ADDRESS
00621  M01S00453.mfiles  +++|          RJ     IRJ         EXECUTE EXCLUSION PROCESSOR
00622  M01S00454.mfiles  +++|          ZR     X6,CFNX     IF FILE TO BE EXCLUDED

Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00455.ns22000 ---| CFN1     SA4    A3+         READ FIRST FILE NAME ARGUMENT

Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00456.ns22000 ---| CFN2     ZR     X4,CFNX     IF END OF ARGUMENT LIST
00625  M01S00075.ns22000 +++| CFN1     SA4    FRMT        GET FORMAT CODE
00626  M01S00076.ns22000 +++|          SB7    X4-FMT3
00627  M01S00077.ns22000 +++|          SA4    A3+         READ FIRST FILE NAME ARGUMENT
00628  M01S00078.ns22000 +++| CFN2     ZR     X4,CFN3     IF END OF ARGUMENT LIST
00629  M01S00457.mfiles  +++|          BX6    X4-X3

Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00458.ns22000 ---|          ZR     X6,CFNX     IF FOUND

Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00459.ns22000 ---|          SA4    A4+1        NEXT ARGUMENT

Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00460.ns22000 ---|          EQ     CFN2        CHECK NEXT ARGUMENT
00633  M01S00079.ns22000 +++|          SA4    A4+B1       READ NEXT ARGUMENT
00634  M01S00080.ns22000 +++|          NZ     X6,CFN2     IF NOT FOUND
00635  M01S00081.ns22000 +++|
00636  M01S00082.ns22000 +++|*         THE FILE NAME WAS FOUND AS ONE OF THE ARGUMENTS SPECIFIED
00637  M01S00083.ns22000 +++|*         (EITHER FORMAT 2 OR FORMAT 3 WAS USED).  AN ADDITIONAL CHECK
00638  M01S00084.ns22000 +++|*         IS REQUIRED TO DETERMINE IF THE FILE IS TO BE INCLUDED
00639  M01S00085.ns22000 +++|*         OR EXCLUDED FROM PROCESSING.  IF THE INCLUSION FORMAT
00640  M01S00086.ns22000 +++|*         (FORMAT 3) WAS SPECIFIED, THE FILE WILL NOT BE EXCLUDED.
00641  M01S00087.ns22000 +++|
00642  M01S00088.ns22000 +++|          NZ     B7,CFNX     IF NOT FORMAT 3
00643  M01S00089.ns22000 +++|          SX6    B1+         SET FILE NOT EXCLUDED
00644  M01S00090.ns22000 +++|          EQ     CFNX        RETURN
00645  M01S00091.ns22000 +++|
00646  M01S00092.ns22000 +++|*         THE FILE NAME DID NOT MATCH ANY OF THE ARGUMENTS SPECIFIED.
00647  M01S00093.ns22000 +++|*         A CHECK MUST BE MADE TO DETERMINE IF THE FILE SHOULD
00648  M01S00094.ns22000 +++|*         BE EXCLUDED OR INCLUDED BY THE PROCESSING TYPE SPECIFIED.
00649  M01S00095.ns22000 +++|*         IF THE INCLUSION FORMAT (FORMAT 3) WAS SPECIFIED, THE
00650  M01S00096.ns22000 +++|*         FILE WILL BE EXCLUDED.
00651  M01S00097.ns22000 +++|
00652  M01S00098.ns22000 +++| CFN3     NZ     B7,CFNX     IF NOT FORMAT 3
00653  M01S00099.ns22000 +++|          SX6    B0+         SET FILE EXCLUDED
00654  M01S00100.ns22000 +++|          EQ     CFNX        RETURN
00655  M01S00461.mfiles  +++| CIF      SPACE  4,10
00656  M01S00462.mfiles  +++|**        CIF - CHECK FOR INPUT* FILE.
00657  M01S00463.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00464.ns22000 ---|*         ENTRY  (X0) = FILE NAME MASK.

Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00465.ns22000 ---|*                (X1) = FNT ENTRY.
00660  M01S00101.ns22000 +++|*         ENTRY  (X1) = FNT ENTRY.
00661  M01S00466.mfiles  +++|*
00662  M01S00467.mfiles  +++|*         EXIT   (X6) = 0 IF FILE IS INPUT*.
00663  M01S00468.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00469.ns22000 ---|*         USES   X - 4, 6, 7.
00665  M01S00102.ns22000 +++|*         USES   X - 0, 4, 6, 7.
00666  M01S00470.mfiles  +++|*                A - 4.
00667  M01S00471.mfiles  +++|
00668  M01S00472.mfiles  +++|
00669  M01S00473.mfiles  +++| CIF      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00670  M02S00474.ns22000 ---|          BX7    X0*X1
00671  M01S00475.mfiles  +++|          SA4    =6LINPUT*
00672  M01S00103.ns22000 +++|          MX0    42
00673  M01S00104.ns22000 +++|          BX7    X0*X1
00674  M01S00476.mfiles  +++|          BX6    X4-X7
00675  M01S00477.mfiles  +++|          EQ     CIFX        RETURN
00676  M01S00105.ns22000 +++| CMS      SPACE  4,15
00677  M01S00106.ns22000 +++|**        CMS - CHECK FOR MASS STORAGE AND READ ONLY FILE.
00678  M01S00107.ns22000 +++|*
00679  M01S00108.ns22000 +++|*         ENTRY  (X1) = FNT ENTRY.
00680  M01S00010.mfile1  +++|*                (A1) = ADDRESS OF FNT ENTRY IN *GETFNT* BUFFER.
00681  M01S00109.ns22000 +++|*                (X3) = FILE NAME.
00682  M01S00110.ns22000 +++|*                (A3) = ADDRESS OF FIRST ARGUMENT.
00683  M01S00111.ns22000 +++|*
00684  M01S00112.ns22000 +++|*         EXIT   (X6) = 0 IF FILE TO BE EXCLUDED.
00685  M01S00113.ns22000 +++|*
00686  M01S00114.ns22000 +++|*         USES   X - 0, 1, 4, 6.
00687  M01S00115.ns22000 +++|*                A - 4.
00688  M01S00116.ns22000 +++|*                B - 2, 3, 5.
00689  M01S00117.ns22000 +++|*
00690  M01S00118.ns22000 +++|*         CALLS  CIF, RSR, SNM, SVR.
00691  M01S00119.ns22000 +++|*
00692  M01S00120.ns22000 +++|*         MACROS MESSAGE.
00693  M01S00121.ns22000 +++|
00694  M01S00122.ns22000 +++|
00695  M01S00123.ns22000 +++| CMS      SUBR               ENTRY/EXIT
00696  M01S00124.ns22000 +++|          MX0    2
00697  M01S00125.ns22000 +++|          LX0    14-59
00698  M01S00126.ns22000 +++|          BX6    X0*X1
00699  M01S00127.ns22000 +++|          SB5    -CMSA       MESSAGE TEXT
00700  M01S00128.ns22000 +++|          NZ     X6,CMS1     IF FILE NOT MASS STORAGE
00701  M01S00129.ns22000 +++|          RJ     CIF
00702  M01S00130.ns22000 +++|          ZR     X6,CMSX     IF INPUT* FILE

Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00131.mfile1  ---|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
00704  M02S00132.mfile1  ---|          LX6    59-12

Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00133.mfile1  ---|          PL     X6,CMSX     IF NOT A READ ONLY FILE
00706  M01S00011.mfile1  +++|          SA4    A1+B1       CHECK FOR WRITE MODE
00707  M01S00012.mfile1  +++|          MX0    -4
00708  M01S00013.mfile1  +++|          SX6    B1+         SET FILE INCLUDED
00709  M01S00014.mfile1  +++|          LX4    -4
00710  M01S00015.mfile1  +++|          BX4    -X0*X4
00711  M01S00016.mfile1  +++|          SB5    X4
00712  M01S00017.mfile1  +++|          EQ     B5,B1,CMSX  IF FILE IN WRITE MODE
00713  M01S00134.ns22000 +++|          SB5    -CMSB       MESSAGE TEXT
00714  M01S00135.ns22000 +++|
00715  M01S00136.ns22000 +++|*         SEARCH ARGUMENT LIST FOR MATCHING FILE NAME TO DETERMINE
00716  M01S00137.ns22000 +++|*         IF WARNING MESSAGE SHOULD BE ISSUED.
00717  M01S00138.ns22000 +++|
00718  M01S00139.ns22000 +++| CMS1     SA4    A3+         READ FIRST FILE NAME ARGUMENT
00719  M01S00140.ns22000 +++| CMS2     ZR     X4,CMS3     IF END OF ARGUMENT LIST
00720  M01S00141.ns22000 +++|          BX0    X4-X3
00721  M01S00142.ns22000 +++|          SA4    A4+B1       READ NEXT ARGUMENT
00722  M01S00143.ns22000 +++|          NZ     X0,CMS2     IF NOT FOUND
00723  M01S00144.ns22000 +++|          SA4    FRMT        GET FORMAT CODE
00724  M01S00145.ns22000 +++|          SX4    X4-FMT3
00725  M01S00146.ns22000 +++|          NZ     X4,CMS3     IF NOT FORMAT 3
00726  M01S00147.ns22000 +++|
00727  M01S00148.ns22000 +++|*         ISSUE WARNING MESSAGE AND EXCLUDE FILE.
00728  M01S00149.ns22000 +++|
00729  M01S00150.ns22000 +++|          RJ     SVR         SAVE REGISTERS
00730  M01S00151.ns22000 +++|          SB2    1R+         SET SEARCH CHARACTER
00731  M01S00152.ns22000 +++|          SB3    CMSC        MESSAGE ASSEMBLY BUFFER
00732  M01S00153.ns22000 +++|          MX0    42
00733  M01S00154.ns22000 +++|          BX1    X0*X1       FILE NAME
00734  M01S00155.ns22000 +++|          RJ     SNM         SET NAME IN MESSAGE
00735  M01S00156.ns22000 +++|          MESSAGE  CMSC,3,R
00736  M01S00157.ns22000 +++|          RJ     RSR         RESTORE REGISTERS
00737  M01S00158.ns22000 +++| CMS3     SX6    B0+         EXCLUDE FILE
00738  M01S00159.ns22000 +++|          EQ     CMSX        RETURN
00739  M01S00160.ns22000 +++|
00740  M01S00161.ns22000 +++| CMSA     DATA   C* +++++++ NOT ON MASS STORAGE.*

Seq #  *Modification Id* Act 
----------------------------+
00741  M02S00162.mfile1  ---| CMSB     DATA   C* +++++++ IS READ ONLY.*
00742  M01S00018.mfile1  +++| CMSB     DATA   C* +++++++ NOT IN WRITE MODE.*
00743  M01S00163.ns22000 +++| CMSC     BSS    4           ASSEMBLY BUFFER
00744  M01S00046.274l797 +++| COC      SPACE  4,10
00745  M01S00047.274l797 +++|**        COC - CHECK FOR OPTICAL CONTROL FILE *ZZZZZOD*.
00746  M01S00048.274l797 +++|*
00747  M01S00049.274l797 +++|*         ENTRY  (X1) = FNT ENTRY.
00748  M01S00050.274l797 +++|*
00749  M01S00051.274l797 +++|*         EXIT   (X6) = 0 IF FILE IS ZZZZZOD.
00750  M01S00052.274l797 +++|*
00751  M01S00053.274l797 +++|*         USES   X - 0, 4, 6, 7.
00752  M01S00054.274l797 +++|*                A - 4.
00753  M01S00055.274l797 +++|
00754  M01S00056.274l797 +++|
00755  M01S00057.274l797 +++| COC      SUBR               ENTRY/EXIT
00756  M01S00058.274l797 +++|          MX0    2
00757  M01S00059.274l797 +++|          LX0    14-59
00758  M01S00060.274l797 +++|          BX6    X0*X1
00759  M01S00061.274l797 +++|          NZ     X6,COCX     IF FILE NOT MASS STORAGE
00760  M01S00062.274l797 +++|          SA4    =7LZZZZZOD
00761  M01S00063.274l797 +++|          MX0    42
00762  M01S00064.274l797 +++|          BX7    X0*X1
00763  M01S00065.274l797 +++|          BX6    X4-X7
00764  M01S00066.274l797 +++|          EQ     COCX        RETURN
00765  M01S00478.mfiles  +++| COF      SPACE  4,20
00766  M01S00479.mfiles  +++|**        COF - CHECK IF OUTPUT FILE.
00767  M01S00480.mfiles  +++|*
00768  M01S00481.mfiles  +++|*         *COF* CHECKS TO SEE IF THE GIVEN FILE SHOULD BE
00769  M01S00482.mfiles  +++|*         ROUTED TO THE OUTPUT QUEUE.  THE CRITERIA USED
00770  M01S00483.mfiles  +++|*         FOR SELECTION ARE -
00771  M01S00484.mfiles  +++|*
00772  M01S00485.mfiles  +++|*                (1)  FILE TYPE IS *QFFT*.
00773  M01S00486.mfiles  +++|*                (2)  FILE IS A LOCAL FILE (FILE TYPE *LOFT*) AND
00774  M01S00487.mfiles  +++|*                     HAS A SPECIAL NAME, *OUTPUT*, *PUNCH*, *P8*,
00775  M01S00488.mfiles  +++|*                     OR *PUNCHB*.
00776  M01S00489.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00777  M02S00490.ns22000 ---|*         ENTRY  (X0) = FILE NAME MASK.

Seq #  *Modification Id* Act 
----------------------------+
00778  M02S00491.ns22000 ---|*                (X1) = FNT ENTRY.
00779  M01S00164.ns22000 +++|*         ENTRY  (X1) = FNT ENTRY.
00780  M01S00492.mfiles  +++|*                (X3) = FILE NAME.
00781  M01S00493.mfiles  +++|*
00782  M01S00494.mfiles  +++|*         EXIT   (X6) = NONZERO IF FILE TO BE ROUTED TO QUEUE.
00783  M01S00495.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00784  M02S00496.ns22000 ---|*         USES   X - 2, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00497.ns22000 ---|*                A - 2, 4, 6, 7.
00786  M01S00165.ns22000 +++|*         USES   X - 4, 6, 7.
00787  M01S00166.ns22000 +++|*                A - 4.
00788  M01S00498.mfiles  +++|*                B - 6.
00789  M01S00499.mfiles  +++|
00790  M01S00500.mfiles  +++|
00791  M01S00501.mfiles  +++| COF      SUBR               ENTRY/EXIT
00792  M01S00502.mfiles  +++|
00793  M01S00503.mfiles  +++|*         CHECK FILE TYPE.
00794  M01S00504.mfiles  +++|
00795  M01S00505.mfiles  +++|          BX4    X1          CHECK FNT PARAMETERS
00796  M01S00506.mfiles  +++|          MX6    -2
00797  M01S00507.mfiles  +++|          AX4    13
00798  M01S00508.mfiles  +++|          BX6    -X6*X4
00799  M01S00509.mfiles  +++|          NZ     X6,COF3     IF NOT MASS STORAGE FILE
00800  M01S00510.mfiles  +++|          BX4    X1          CHECK FILE TYPE
00801  M01S00511.mfiles  +++|          MX6    -6
00802  M01S00512.mfiles  +++|          AX4    6
00803  M01S00513.mfiles  +++|          BX7    -X6*X4
00804  M01S00514.mfiles  +++|          SB6    X7-QFFT
00805  M01S00515.mfiles  +++|          ZR     B6,COF1.1   IF QUEUED FILE
00806  M01S00516.mfiles  +++|          SB6    X7-LOFT
00807  M01S00517.mfiles  +++|          NZ     B6,COF3     IF NOT LOCAL FILE
00808  M01S00002.ns2010  +++|          SA4    NOJF        CHECK TERMINATION OPTION FLAG
00809  M01S00003.ns2010  +++|          ZR     X4,COF3     IF NOT ROUTING *SPECIAL NAME* LOCAL FILES
00810  M01S00518.mfiles  +++|
00811  M01S00519.mfiles  +++|*         CHECK FOR SPECIAL FILE NAMES.
00812  M01S00520.mfiles  +++|
00813  M01S00521.mfiles  +++| COF1     SA4    TSFN+B6     READ TABLE ENTRY
00814  M01S00522.mfiles  +++|          ZR     X4,COF3     IF END OF TABLE
00815  M01S00523.mfiles  +++|          BX7    X4-X3       COMPARE FILE NAMES
00816  M01S00524.mfiles  +++|          SB6    B6+B1       ADVANCE TABLE INDEX
00817  M01S00525.mfiles  +++|          NZ     X7,COF1     IF NO MATCH
00818  M01S00526.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00527.274l797 ---|*         PROCESS END-OF JOB FILE ROUTING.
00820  M01S00067.274l797 +++|*         PROCESS END-OF-JOB FILE ROUTING.
00821  M01S00528.mfiles  +++|
00822  M01S00529.mfiles  +++| COF1.1   SA4    EOJS        CHECK FOR END-OF-JOB PROCESSING
00823  M01S00530.mfiles  +++|          ZR     X4,COF2     IF NOT END-OF-JOB
00824  M01S00531.mfiles  +++|          BX7    -X6*X1      CHECK FILE STATUS
00825  M01S00532.mfiles  +++|          SX7    X7-SOST
00826  M01S00533.mfiles  +++|          ZR     X7,COF2     IF *SOST* STATUS
00827  M01S00004.ns2010  +++|          SA4    NOJF        CHECK TERMINATION OPTION FLAG
00828  M01S00005.ns2010  +++|          ZR     X4,COF2     IF ROUTING ANY QUEUED FILE
00829  M01S00534.mfiles  +++|          SA4    TSFN+OTPT   CHECK FILE NAME
00830  M01S00535.mfiles  +++|          BX7    X3-X4

Seq #  *Modification Id* Act 
----------------------------+
00831  M02S00536.ns2257  ---|          ZR     X7,COF3     IF FILE NAME = *OUTPUT*
00832  M01S00001.ns2257  +++|          NZ     X7,COF2     IF FILE NAME .NE. *OUTPUT*
00833  M01S00002.ns2257  +++|          BX4    X1          CHECK IF *OUTPUT* IS LOCKED
00834  M01S00003.ns2257  +++|          LX4    59-12
00835  M01S00004.ns2257  +++|          PL     X4,COF3     IF *OUTPUT* IS NOT LOCKED
00836  M01S00537.mfiles  +++|
00837  M01S00538.mfiles  +++|*         RETURN STATUS TO ROUTE FILE.
00838  M01S00539.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00839  M02S00540.ns22000 ---| COF2     SX6    B1          (X6) STATUS = ROUTE FILE
00840  M01S00167.ns22000 +++| COF2     SX6    B1+
00841  M01S00541.mfiles  +++|          EQ     COFX        RETURN
00842  M01S00542.mfiles  +++|
00843  M01S00543.mfiles  +++|*         RETURN STATUS TO IGNORE FILE.
00844  M01S00544.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
00845  M02S00545.ns22000 ---| COF3     SX6    B0          (X6) STATUS = DO NOT ROUTE FILE
00846  M01S00168.ns22000 +++| COF3     SX6    B0+
00847  M01S00546.mfiles  +++|          EQ     COFX        RETURN
00848  M01S00547.mfiles  +++|
00849  M01S00548.mfiles  +++| CPF      SPACE  4,10
00850  M01S00549.mfiles  +++|**        CPF - CHECK FOR PROTECTED FILE.
00851  M01S00550.mfiles  +++|*
00852  M01S00551.mfiles  +++|*         ENTRY  (X1) = FNT ENTRY.
00853  M01S00169.ns22000 +++|*                (X3) = FILE NAME.
00854  M01S00170.ns22000 +++|*                (A3) = ADDRESS OF FIRST ARGUMENT.
00855  M01S00552.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00553.ns22000 ---|*         EXIT   (X6) = 0 IF PROTECTED FILE.
00857  M01S00171.ns22000 +++|*         EXIT   (X6) = 0 IF PROTECTED FILE TO BE EXCLUDED.
00858  M01S00554.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00859  M02S00555.ns22000 ---|*         USES   X - 4, 6.
00860  M01S00172.ns22000 +++|*         USES   X - 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00173.274l797 ---|*                A - 4.
00862  M01S00068.274l797 +++|*                A - 4, 7.
00863  M01S00174.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00864  M02S00175.274l797 ---|*         CALLS  CIF.
00865  M01S00069.274l797 +++|*         CALLS  COC, CIF, RSR, SVR.
00866  M01S00070.274l797 +++|*
00867  M01S00071.274l797 +++|*         MACROS FILINFO.
00868  M01S00556.mfiles  +++|
00869  M01S00072.274l797 +++|
00870  M01S00073.274l797 +++| CPF5     SX7    X4+         SET CONTROL FILE FOUND FLAG IF *OP=O*
00871  M01S00074.274l797 +++|          SA7    ZODF
00872  M01S00557.mfiles  +++|
00873  M01S00558.mfiles  +++| CPF      SUBR               ENTRY/EXIT
00874  M01S00176.ns22000 +++|          RJ     CIF
00875  M01S00177.ns22000 +++|          ZR     X6,CPFX     IF INPUT* FILE
00876  M01S00075.274l797 +++|          RJ     COC         CHECK FOR OPTICAL CONTROL FILE
00877  M01S00076.274l797 +++|          SA4    OPOF
00878  M01S00077.274l797 +++|          ZR     X6,CPF5     IF OPTICAL CONTROL FILE
00879  M01S00078.274l797 +++|          NZ     X4,CPF4     IF *OP=O* SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00559.ns2102  ---|          MX4    -6          CHECK IF *NDST* STATUS SET ON FILE
00881  M01S00008.ns2102  +++|          MX4    -6          CHECK IF *CBST*, *CKST* OR *NDST* STATUS
00882  M01S00560.mfiles  +++|          BX4    -X4*X1
00883  M01S00009.ns2102  +++|          SX6    X4-CBST

Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00010.ns22000 ---|          ZR     X6,CPFX     IF CHECKPOINT FILE
00885  M01S00178.ns22000 +++|          ZR     X6,CPF1     IF CHECKPOINT FILE
00886  M01S00011.ns2102  +++|          SX6    X4-CKST

Seq #  *Modification Id* Act 
----------------------------+
00887  M02S00012.ns22000 ---|          ZR     X6,CPFX     IF CHECKPOINT FILE
00888  M01S00179.ns22000 +++|          ZR     X6,CPF1     IF CHECKPOINT FILE
00889  M01S00561.mfiles  +++|          SX6    X4-NDST
00890  M01S00180.ns22000 +++|          NZ     X6,CPFX     IF NOT NO-AUTO-DROP STATUS
00891  M01S00181.ns22000 +++|
00892  M01S00182.ns22000 +++|*         IT IS A PROTECTED FILE.  SEARCH THE ARGUMENT LIST FOR
00893  M01S00183.ns22000 +++|*         MATCHING FILE NAME.  IF A MATCH IS FOUND AND INCLUSION
00894  M01S00184.ns22000 +++|*         PROCESSING (FORMAT 3) HAS BEEN SELECTED, RETURN (X6)
00895  M01S00185.ns22000 +++|*         NON-ZERO SO THAT THE FILE WILL BE PROCESSED.  OTHERWISE,
00896  M01S00186.ns22000 +++|*         RETURN (X6) = 0 SO THAT THE FILE WILL BE EXCLUDED.
00897  M01S00187.ns22000 +++|
00898  M01S00188.ns22000 +++| CPF1     SA4    A3+         READ FIRST FILE NAME ARGUMENT
00899  M01S00189.ns22000 +++| CPF2     ZR     X4,CPFX     IF END OF ARGUMENT LIST
00900  M01S00190.ns22000 +++|          BX7    X4-X3
00901  M01S00191.ns22000 +++|          SA4    A4+B1       READ NEXT ARGUMENT
00902  M01S00192.ns22000 +++|          NZ     X7,CPF2     IF NOT FOUND
00903  M01S00193.ns22000 +++|          SA4    FRMT        GET FORMAT CODE

Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00194.274l797 ---|          SX4    X4-FMT3

Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00195.274l797 ---|          NZ     X4,CPFX     IF NOT FORMAT 3
00906  M01S00079.274l797 +++|          SX4    X4-FMT3     CHECK FOR FORMAT 3
00907  M01S00080.274l797 +++| CPF3     NZ     X4,CPFX     IF FILE TO BE EXCLUDED
00908  M01S00196.ns22000 +++|          SX6    B1+         PROCESS THE FILE
00909  M01S00562.mfiles  +++|          EQ     CPFX        RETURN
00910  M01S00081.274l797 +++|
00911  M01S00082.274l797 +++|*         *OP=O* SPECIFIED - CHECK FOR OPTICAL DISK FILE.
00912  M01S00083.274l797 +++|
00913  M01S00084.274l797 +++| CPF4     SA4    CPFA        SET UP *FILINFO* PARAMETER BLOCK
00914  M01S00085.274l797 +++|          MX6    42
00915  M01S00086.274l797 +++|          BX7    X6*X1
00916  M01S00087.274l797 +++|          BX6    -X6*X4
00917  M01S00088.274l797 +++|          BX7    X6+X7
00918  M01S00089.274l797 +++|          SA7    A4+
00919  M01S00090.274l797 +++|          RJ     SVR         SAVE REGISTERS
00920  M01S00091.274l797 +++|          FILINFO  CPFA      GET FILE INFORMATION
00921  M01S00092.274l797 +++|          RJ     RSR         RESTORE REGISTERS
00922  M01S00093.274l797 +++|          SA4    CPFA+1
00923  M01S00094.274l797 +++|          BX6    X6-X6       SET TO EXCLUDE FILE IF NOT OPTICAL DISK
00924  M01S00095.274l797 +++|          AX4    48
00925  M01S00096.274l797 +++|          SX4    X4-2ROD
00926  M01S00097.274l797 +++|          EQ     CPF3        EXCLUDE FILE UNLESS ON OPTICAL DISK
00927  M01S00098.274l797 +++|
00928  M01S00099.274l797 +++| CPFA     VFD    42/0,6/5,12/1  *FILINFO* PARAMETER BLOCK
00929  M01S00100.274l797 +++|          BSSZ   5
00930  M01S00563.mfiles  +++| GNF      SPACE  4,20
00931  M01S00564.mfiles  +++|**        GNF - GET NONBUSY FET.
00932  M01S00565.mfiles  +++|*
00933  M01S00566.mfiles  +++|*         *GNF* DETERMINES WHETHER ANY FET IN THE SET OF FETS IS
00934  M01S00567.mfiles  +++|*         CURRENTLY BUSY WITH THE GIVEN FILE AND IF NONE IS, RETURNS
00935  M01S00568.mfiles  +++|*         THE ADDRESS OF A NONBUSY FET.
00936  M01S00569.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00570.ns22000 ---|*         ENTRY  (X0) = 42 BIT FILE NAME MASK.

Seq #  *Modification Id* Act 
----------------------------+
00938  M02S00571.ns22000 ---|*                (X3) = FILE NAME TO LOOK FOR.
00939  M01S00197.ns22000 +++|*         ENTRY  (X3) = FILE NAME TO LOOK FOR.

Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00572.ns22000 ---|*                (B5) = 0 IF INCLUSION TYPE CONTROL STATEMENT.
00941  M01S00573.mfiles  +++|*
00942  M01S00574.mfiles  +++|*         EXIT   (X2) = 0 IF A FET IS BUSY WITH THE FILE.
00943  M01S00575.mfiles  +++|*                (X2) = ADDRESS OF A NONBUSY FET OTHERWISE.
00944  M01S00576.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00945  M02S00577.ns22000 ---|*         USES   X - 1, 2.
00946  M01S00198.ns22000 +++|*         USES   X - 0, 1, 2.
00947  M01S00578.mfiles  +++|*                A - 1.

Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00579.ns22000 ---|*                B - 7.
00949  M01S00199.ns22000 +++|*                B - 5, 7.
00950  M01S00580.mfiles  +++|*
00951  M01S00581.mfiles  +++|*         MACROS RECALL.
00952  M01S00582.mfiles  +++|
00953  M01S00583.mfiles  +++|
00954  M01S00584.mfiles  +++| GNF2     SX2    A1+         SAVE ADDRESS OF NONBUSY FET
00955  M01S00585.mfiles  +++|          NZ     B5,GNFX     IF EXCLUSION FORM
00956  M01S00586.mfiles  +++| GNF3     SA1    A1+FETL
00957  M01S00587.mfiles  +++|          SB7    A1-FETX-1
00958  M01S00588.mfiles  +++|          NG     B7,GNF1     IF NOT PAST END OF FETS
00959  M01S00589.mfiles  +++|          NZ     X2,GNFX     IF NONBUSY FET FOUND
00960  M01S00590.mfiles  +++|          RECALL FETS
00961  M01S00591.mfiles  +++|
00962  M01S00592.mfiles  +++| GNF      SUBR               ENTRY/EXIT
00963  M01S00200.ns22000 +++|          SA1    FRMT        GET FORMAT CODE
00964  M01S00201.ns22000 +++|          SB5    X1-FMT3
00965  M01S00593.mfiles  +++|          SA1    FETS

Seq #  *Modification Id* Act 
----------------------------+
00966  M02S00594.ns22000 ---|          SX2    B0+
00967  M01S00202.ns22000 +++|          MX0    42
00968  M01S00203.ns22000 +++|          BX2    X2-X2
00969  M01S00595.mfiles  +++| GNF1     LX1    59-0
00970  M01S00596.mfiles  +++|          NG     X1,GNF2     IF NOT BUSY
00971  M01S00597.mfiles  +++|          LX1    1           RESTORE X1
00972  M01S00598.mfiles  +++|          NZ     B5,GNF3     IF EXCLUSION FORM
00973  M01S00599.mfiles  +++|          BX1    X0*X1
00974  M01S00600.mfiles  +++|          BX1    X1-X3
00975  M01S00601.mfiles  +++|          NZ     X1,GNF3     IF NOT A FILE NAME MATCH
00976  M01S00602.mfiles  +++|          SX2    B0+
00977  M01S00603.mfiles  +++|          EQ     GNFX        RETURN
00978  M01S00604.mfiles  +++| IFC      SPACE  4,15
00979  M01S00605.mfiles  +++|**        IFC - ISSUE FILE COUNT MESSAGE.
00980  M01S00606.mfiles  +++|*
00981  M01S00607.mfiles  +++|*         ENTRY  (FICT) = FILE COUNT.
00982  M01S00608.mfiles  +++|*
00983  M01S00609.mfiles  +++|*         EXIT   MESSAGE ISSUED.
00984  M01S00610.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00611.ns22000 ---|*         USES   X - 1, 2, 3, 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00612.ns22000 ---|*                A - 1, 3, 6.
00987  M01S00204.ns22000 +++|*         USES   X - 1, 2, 6.
00988  M01S00205.ns22000 +++|*                A - 1, 6.
00989  M01S00613.mfiles  +++|*
00990  M01S00614.mfiles  +++|*         CALLS  CDD.
00991  M01S00615.mfiles  +++|*
00992  M01S00616.mfiles  +++|*         MACROS MESSAGE.
00993  M01S00617.mfiles  +++|
00994  M01S00618.mfiles  +++|
00995  M01S00619.mfiles  +++| IFC      SUBR               ENTRY/EXIT
00996  M01S00620.mfiles  +++|          SA1    FICT        GET FILE COUNT
00997  M01S00621.mfiles  +++|          SX2    IFCA        ASSUME NO FILES
00998  M01S00622.mfiles  +++|          ZR     X1,IFC1     IF NO FILES PROCESSED
00999  M01S00623.mfiles  +++|          SX6    X1-1        CHECK FILE COUNT
01000  M01S00624.mfiles  +++|          SX2    IFCB
01001  M01S00625.mfiles  +++|          ZR     X6,IFC1     IF ONE FILE PROCESSED
01002  M01S00626.mfiles  +++|          RJ     CDD         CONVERT TO DECIMAL
01003  M01S00627.mfiles  +++|          SA1    IFCC        MERGE FILE COUNT WITH MESSAGE
01004  M01S00628.mfiles  +++|          MX2    24
01005  M01S00629.mfiles  +++|          LX6    36
01006  M01S00630.mfiles  +++|          BX1    -X2*X1
01007  M01S00631.mfiles  +++|          BX6    X2*X6
01008  M01S00632.mfiles  +++|          BX6    X6+X1
01009  M01S00633.mfiles  +++|          SA6    A1
01010  M01S00634.mfiles  +++|          SX2    A1          SET MESSAGE ADDRESS
01011  M01S00635.mfiles  +++| IFC1     MESSAGE X2,3       ISSUE DAYFILE MESSAGE
01012  M01S00636.mfiles  +++|          EQ     IFCX        RETURN
01013  M01S00637.mfiles  +++|
01014  M01S00638.mfiles  +++| IFCA     DATA   C* NO FILES PROCESSED.*
01015  M01S00639.mfiles  +++| IFCB     DATA   C* 1 FILE PROCESSED.*
01016  M01S00640.mfiles  +++| IFCC     DATA   C* 000 FILES PROCESSED.*
01017  M01S00641.mfiles  +++| IRJ      SPACE  4,15
01018  M01S00642.mfiles  +++|**        IRJ - INDEX RETURN JUMP.
01019  M01S00643.mfiles  +++|*
01020  M01S00644.mfiles  +++|*         EXECUTES A RETURN JUMP TO (B7).
01021  M01S00645.mfiles  +++|*
01022  M01S00646.mfiles  +++|*         ENTRY  (B7) = BRANCH ADDRESS.
01023  M01S00647.mfiles  +++|*
01024  M01S00648.mfiles  +++|*         EXIT   TO (B7)+1.
01025  M01S00649.mfiles  +++|*                JUMP INSTRUCTION TO RETURN LOCATION IN ((B7)).
01026  M01S00650.mfiles  +++|*
01027  M01S00651.mfiles  +++|*         USES   X - 5, 6.
01028  M01S00652.mfiles  +++|*                A - 5, 6.
01029  M01S00653.mfiles  +++|
01030  M01S00654.mfiles  +++|
01031  M01S00655.mfiles  +++| IRJ      SUBR               ENTRY/EXIT
01032  M01S00656.mfiles  +++|          SA5    IRJ         READ RETURN INSTRUCTION
01033  M01S00657.mfiles  +++|          BX6    X5          SET RETURN IN CALLED ROUTINE
01034  M01S00658.mfiles  +++|          SA6    B7
01035  M01S00659.mfiles  +++|          JP     B7+1        ENTER CALLED ROUTINE
01036  M01S00660.mfiles  +++| PAF      SPACE  4,20
01037  M01S00661.mfiles  +++|**        PAF - PROCESS ALL FILES.
01038  M01S00662.mfiles  +++|*
01039  M01S00663.mfiles  +++|*         *PAF* REQUESTS AN OPERATION FOR EACH FILE IN THE SET OF
01040  M01S00664.mfiles  +++|*         FNT ENTRIES EXCEPT THOSE THAT ARE EXCLUDED.
01041  M01S00665.mfiles  +++|*
01042  M01S00666.mfiles  +++|*         ENTRY  (A3) = ADDRESS OF THE FIRST ARGUMENT.

Seq #  *Modification Id* Act 
----------------------------+
01043  M02S00667.v23l617 ---|*                (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.
01044  M01S00029.v23l617 +++|*                (B2) = COMMAND WORD ADDRESS.
01045  M01S00668.mfiles  +++|*
01046  M01S00669.mfiles  +++|*         EXIT   (X1) = 0 IF ALL FILES RETURNED IN THE BUFFER.
01047  M01S00670.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00671.ns22000 ---|*         USES   X - 0, 1, 2, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00206.274l797 ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00672.274l797 ---|*                A - 1, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
01051  M03S00673.274l797 ---|*                B - 3, 4.

Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00207.274l797 ---|*                B - 2, 3, 4, 5, 6.
01053  M01S00101.274l797 +++|*         USES   X - 0, 1, 3.
01054  M01S00102.274l797 +++|*                A - 1, 3.
01055  M01S00103.274l797 +++|*                B - 3, 4.
01056  M01S00674.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00675.274l797 ---|*         CALLS  CFN, CIO=, GNF, RSR, SNM, SVR.

Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00676.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00677.274l797 ---|*         MACROS MESSAGE, ROUTE, SETFS.
01060  M01S00104.274l797 +++|*         CALLS  CFN, POF.
01061  M01S00678.mfiles  +++|
01062  M01S00105.274l797 +++|
01063  M01S00106.274l797 +++| PAF3     SA1    ZODF
01064  M01S00107.274l797 +++|          ZR     X1,PAFX     IF NOT PROCESSING OPTICAL CONTROL FILE
01065  M01S00108.274l797 +++|          SA3    =7LZZZZZOD
01066  M01S00109.274l797 +++|          RJ     POF         PROCESS ONE FILE
01067  M01S00110.274l797 +++|*         SX1    0           (*POF* EXIT CONDITION)
01068  M01S00679.mfiles  +++|
01069  M01S00680.mfiles  +++| PAF      SUBR               ENTRY/EXIT
01070  M01S00681.mfiles  +++|          SB4    FNTBL-1     END OF *GETFNT* BUFFER
01071  M01S00682.mfiles  +++|          SB3    B1

Seq #  *Modification Id* Act 
----------------------------+
01072  M02S00683.ns22000 ---| PAF1     MX0    42

Seq #  *Modification Id* Act 
----------------------------+
01073  M02S00684.ns22000 ---|          SA1    B3+FNTB     GET FNT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01074  M02S00685.ns22000 ---|          ZR     X1,PAFX     IF END OF ENTRIES
01075  M01S00208.ns22000 +++| PAF1     SA1    B3+FNTB     GET FNT ENTRY
01076  M01S00209.ns22000 +++|          MX0    42
01077  M01S00686.mfiles  +++|          BX3    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
01078  M02S00210.274l797 ---|          ZR     X1,PAFX     IF END OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01079  M02S00687.274l797 ---|          RJ     CFN         CHECK FILE NAME FOR EXCLUSION
01080  M01S00111.274l797 +++|          ZR     X1,PAF3     IF END OF ENTRIES
01081  M01S00112.274l797 +++|          RJ     CFN         CHECK FILE NAME FOR EXCLUSION
01082  M01S00113.274l797 +++|          ZR     X6,PAF2     IF FILE TO BE EXCLUDED
01083  M01S00114.274l797 +++|          RJ     POF         PROCESS ONE FILE
01084  M01S00115.274l797 +++| PAF2     SB3    B3+2
01085  M01S00116.274l797 +++|          NE     B3,B4,PAF1  IF MORE FNT ENTRIES
01086  M01S00117.274l797 +++|          SX1    B1+
01087  M01S00118.274l797 +++|          EQ     PAFX        RETURN
01088  M01S00119.274l797 +++| POF      SPACE  4,20
01089  M01S00120.274l797 +++|**        POF - PROCESS ONE FILE.
01090  M01S00121.274l797 +++|*
01091  M01S00122.274l797 +++|*         *PAF* REQUESTS AN OPERATION FOR ONE FILE.
01092  M01S00123.274l797 +++|*
01093  M01S00124.274l797 +++|*         ENTRY  (X3) = NAME OF FILE TO BE PROCESSED.
01094  M01S00125.274l797 +++|*                (B2) = COMMAND WORD ADDRESS.
01095  M01S00126.274l797 +++|*
01096  M01S00127.274l797 +++|*         EXIT   SPECIFIED FILE PROCESSED AS REQUESTED.
01097  M01S00128.274l797 +++|*                (X1) = 0.
01098  M01S00129.274l797 +++|*
01099  M01S00130.274l797 +++|*         USES   X - 0, 1, 2, 4, 6, 7.
01100  M01S00131.274l797 +++|*                A - 1, 4, 6, 7.
01101  M01S00132.274l797 +++|*                B - 2, 3, 5, 6.
01102  M01S00133.274l797 +++|*
01103  M01S00134.274l797 +++|*         CALLS  CIO=, GNF, RSR, SNM, SVR.
01104  M01S00135.274l797 +++|*
01105  M01S00136.274l797 +++|*         MACROS MESSAGE, ROUTE, SETFS.
01106  M01S00137.274l797 +++|
01107  M01S00138.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
01108  M02S00688.ns22000 ---|          ZR     X6,PAF2     IF FILE TO BE EXCLUDED

Seq #  *Modification Id* Act 
----------------------------+
01109  M02S00211.274l797 ---|          ZR     X6,PAF6     IF FILE TO BE EXCLUDED

Seq #  *Modification Id* Act 
----------------------------+
01110  M02S00689.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
01111  M02S00690.274l797 ---|*         PROCESS *CIO* FUNCTION.

Seq #  *Modification Id* Act 
----------------------------+
01112  M02S00691.274l797 ---|
01113  M01S00139.274l797 +++| POF      SUBR               ENTRY/EXIT
01114  M01S00692.mfiles  +++|          SB6    B2-OUCC

Seq #  *Modification Id* Act 
----------------------------+
01115  M02S00693.ns22000 ---|          ZR     B6,PAF1.1   IF *OUT* STATEMENT

Seq #  *Modification Id* Act 
----------------------------+
01116  M02S00212.274l797 ---|          ZR     B6,PAF4     IF *OUT* COMMAND
01117  M01S00140.274l797 +++|          ZR     B6,POF3     IF *OUT* COMMAND
01118  M01S00694.mfiles  +++|          SA4    B2          GET *CIO* CODE
01119  M01S00695.mfiles  +++|          SX7    X4
01120  M01S00696.mfiles  +++|          RJ     GNF         GET NONBUSY FET

Seq #  *Modification Id* Act 
----------------------------+
01121  M02S00697.ns22000 ---|          ZR     X2,PAF2     IF FILE ALREADY DONE

Seq #  *Modification Id* Act 
----------------------------+
01122  M02S00213.274l797 ---|          ZR     X2,PAF6     IF FILE ALREADY DONE
01123  M01S00141.274l797 +++|          ZR     X2,POF5     IF FILE ALREADY DONE
01124  M01S00698.mfiles  +++|          SX4    B1
01125  M01S00699.mfiles  +++|          BX6    X3+X4
01126  M01S00700.mfiles  +++|          SA6    X2+
01127  M01S00701.mfiles  +++|          SB6    B2-SFCC

Seq #  *Modification Id* Act 
----------------------------+
01128  M02S00702.ns22000 ---|          ZR     B6,PAF1.0   IF *SETFS* STATEMET

Seq #  *Modification Id* Act 
----------------------------+
01129  M02S00703.ns22000 ---|          RJ     CIO=        MAKE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00704.ns22000 ---|          EQ     PAF1.2      INCREMENT FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00214.274l797 ---|          ZR     B6,PAF3     IF *SETFS* COMMAND
01132  M01S00142.274l797 +++|          ZR     B6,POF2     IF *SETFS* COMMAND
01133  M01S00215.ns22000 +++|          SB6    B2-OVCC

Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00216.274l797 ---|          NZ     B6,PAF2     IF NOT *OVWRITE* COMMAND
01135  M01S00143.274l797 +++|          NZ     B6,POF1     IF NOT *OVWRITE* COMMAND
01136  M01S00217.ns22000 +++|          SA1    OVWF        OPTIONAL PARAMETER INDICATOR
01137  M01S00218.ns22000 +++|          LX1    18-0
01138  M01S00219.ns22000 +++|          BX2    X1+X2       COMBINE OPTIONAL PARAMETER WITH FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
01139  M02S00220.274l797 ---| PAF2     RJ     CIO=        MAKE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01140  M02S00221.274l797 ---|          EQ     PAF5        INCREMENT FILE COUNT
01141  M01S00705.mfiles  +++|
01142  M01S00144.274l797 +++|*         PROCESS *CIO* FUNCTION.
01143  M01S00145.274l797 +++|
01144  M01S00146.274l797 +++| POF1     RJ     CIO=        MAKE REQUEST
01145  M01S00147.274l797 +++|          EQ     POF4        INCREMENT FILE COUNT
01146  M01S00148.274l797 +++|
01147  M01S00706.mfiles  +++|*         PROCESS  *LFM* REQUEST.
01148  M01S00707.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
01149  M02S00708.ns22000 ---| PAF1.0   SA1    FLST        SET FILE STATUS

Seq #  *Modification Id* Act 
----------------------------+
01150  M02S00222.274l797 ---| PAF3     SA1    FLST        SET FILE STATUS
01151  M01S00149.274l797 +++| POF2     SA1    FLST        SET FILE STATUS
01152  M01S00709.mfiles  +++|          SETFS  X2,X1

Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00710.ns22000 ---|          EQ     PAF1.2      INCREMENT FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01154  M02S00223.274l797 ---|          EQ     PAF5        INCREMENT FILE COUNT
01155  M01S00150.274l797 +++|          EQ     POF4        INCREMENT FILE COUNT
01156  M01S00711.mfiles  +++|
01157  M01S00712.mfiles  +++|*         PROCESS *DSP* FUNCTION.
01158  M01S00713.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
01159  M02S00714.ns22000 ---| PAF1.1   BX7    X3          SET FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
01160  M02S00224.274l797 ---| PAF4     BX7    X3          SET FILE NAME
01161  M01S00151.274l797 +++| POF3     BX7    X3          SET FILE NAME
01162  M01S00715.mfiles  +++|          MX0    42
01163  M01S00716.mfiles  +++|          BX1    X0*X7
01164  M01S00717.mfiles  +++|          SA7    TDSP
01165  M01S00718.mfiles  +++|          RJ     SVR         SAVE REGISTERS
01166  M01S00719.mfiles  +++|          SB2    1R=         SET SCAN PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
01167  M02S00720.274l797 ---|          SB5    -PAFA       SET STENCIL ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01168  M02S00721.274l797 ---|          SB3    PAFB        SET ASSEMBLY BUFFER ADDRESS
01169  M01S00152.274l797 +++|          SB5    -POFA       SET STENCIL ADDRESS
01170  M01S00153.274l797 +++|          SB3    POFB        SET ASSEMBLY BUFFER ADDRESS
01171  M01S00722.mfiles  +++|          RJ     SNM         SET NAME IN MESSAGE
01172  M01S00723.mfiles  +++|          ROUTE  TDSP,RECALL
01173  M01S00724.mfiles  +++|          MX0    24
01174  M01S00725.mfiles  +++|          SA1    TDSP        GET JSN RETURNED
01175  M01S00726.mfiles  +++|          BX1    X0*X1
01176  M01S00727.mfiles  +++|          SB2    1R+         SET SCAN PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
01177  M02S00728.274l797 ---|          SB5    PAFB        SET *PAFB* AS ASSEMBLY BUFFER
01178  M01S00154.274l797 +++|          SB5    POFB        SET *POFB* AS ASSEMBLY BUFFER
01179  M01S00729.mfiles  +++|          RJ     SNM         SET NAME IN MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01180  M02S00730.274l797 ---|          MESSAGE  PAFB,0,RECALL  SEND MESSAGE TO USER DAYFILE
01181  M01S00155.274l797 +++|          MESSAGE  POFB,0,RECALL  SEND MESSAGE TO USER DAYFILE
01182  M01S00731.mfiles  +++|          RJ     RSR         RESTORE REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
01183  M02S00732.ns22000 ---| PAF1.2   SA1    FICT        INCREMENT FILE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01184  M02S00225.274l797 ---| PAF5     SA1    FICT        INCREMENT FILE COUNT
01185  M01S00156.274l797 +++| POF4     SA1    FICT        INCREMENT FILE COUNT
01186  M01S00733.mfiles  +++|          SX6    X1+B1
01187  M01S00734.mfiles  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
01188  M02S00735.ns22000 ---| PAF2     SB3    B3+2

Seq #  *Modification Id* Act 
----------------------------+
01189  M02S00226.274l797 ---| PAF6     SB3    B3+2

Seq #  *Modification Id* Act 
----------------------------+
01190  M02S00736.274l797 ---|          NE     B3,B4,PAF1  IF MORE FNT ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
01191  M02S00737.274l797 ---|          SX1    B1+

Seq #  *Modification Id* Act 
----------------------------+
01192  M02S00738.274l797 ---|          EQ     PAFX        RETURN
01193  M01S00157.274l797 +++| POF5     SX1    B0+
01194  M01S00158.274l797 +++|          EQ     POFX        RETURN
01195  M01S00739.mfiles  +++|

Seq #  *Modification Id* Act 
----------------------------+
01196  M02S00740.274l797 ---| PAFA     DATA   C* ======= ROUTED.  JSN IS ++++. *

Seq #  *Modification Id* Act 
----------------------------+
01197  M02S00741.274l797 ---| PAFB     DATA   C* ======= ROUTED.  JSN IS ++++. *

Seq #  *Modification Id* Act 
----------------------------+
01198  M02S00742.274l797 ---|
01199  M01S00159.274l797 +++| POFA     DATA   C* ======= ROUTED.  JSN IS ++++. *
01200  M01S00160.274l797 +++| POFB     DATA   C* ======= ROUTED.  JSN IS ++++. *
01201  M01S00743.mfiles  +++| RSR      SPACE  4,10
01202  M01S00744.mfiles  +++|**        RSR - RESTORE RESERVED REGISTERS.
01203  M01S00745.mfiles  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01204  M02S00746.ns22000 ---|*         RESTORES THE CONTENTS OF X3, A3, B2, AND B4.
01205  M01S00227.ns22000 +++|*         RESTORES THE CONTENTS OF X3, A3, B2, B3, AND B4.
01206  M01S00747.mfiles  +++|*
01207  M01S00748.mfiles  +++|*         ENTRY  (SVA3)   = (A3).
01208  M01S00749.mfiles  +++|*                ((SVA3)) = (X3).
01209  M01S00750.mfiles  +++|*                (SVB2)   = (B2).
01210  M01S00751.mfiles  +++|*                (SVB4)   = (B4).

Seq #  *Modification Id* Act 
----------------------------+
01211  M02S00752.ns22000 ---|*                (SVB3) = (B3).
01212  M01S00228.ns22000 +++|*                (SVB3)   = (B3).
01213  M01S00229.ns22000 +++|*
01214  M01S00230.ns22000 +++|*         USES   X - 3.
01215  M01S00231.ns22000 +++|*                A - 3.
01216  M01S00232.ns22000 +++|*                B - 2, 3, 4.
01217  M01S00753.mfiles  +++|
01218  M01S00754.mfiles  +++|
01219  M01S00755.mfiles  +++| RSR      SUBR               ENTRY/EXIT

Proceed to Part 1