Deck FILES

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.files   +++|          IDENT  FILES,FILES
00002  M00S00002.files   +++|          ABS
00003  M00S00003.files   +++|          SST
00004  M00S00004.files   +++|          SYSCOM B1
00005  M00S00005.files   +++|          ENTRY  BKSP

Line S00001 Modification History
`M01` (Added by)	`files2`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.files2  +++|          ENTRY  BKSPRU
00007  M00S00006.files   +++|          ENTRY  COMMON
00008  M00S00007.files   +++|          ENTRY  EVICT
00009  M00S00008.files   +++|          ENTRY  LOCK
00010  M00S00009.files   +++|          ENTRY  PRIMARY
00011  M00S00010.files   +++|          ENTRY  RENAME
00012  M00S00011.files   +++|          ENTRY  SKIPEI
00013  M00S00012.files   +++|          ENTRY  SKIPF
00014  M00S00013.files   +++|          ENTRY  SKIPFB
00015  M00S00014.files   +++|          ENTRY  SKIPR
00016  M00S00015.files   +++|          ENTRY  UNLOCK
00017  M00S00016.files   +++|          ENTRY  WRITEF
00018  M00S00017.files   +++|          ENTRY  WRITER

Line S00001 Modification History
`M01` (Added by)	`ns2402`

Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00001.ns2402  +++|          ENTRY  NPC=
00020  M00S00018.files   +++|          ENTRY  RFL=
00021  M00S00019.files   +++|*COMMENT  FILES - LOCAL FILE MANIPULATOR.

Line S00020 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00020.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00024  M00S00021.files   +++|          TITLE  FILES - LOCAL FILE MANIPULATOR.
00025  M00S00022.files   +++|          SPACE  4
00026  M00S00023.files   +++|***       FILES - LOCAL FILE MANIPULATOR.
00027  M00S00024.files   +++|*         G. R. MANSFIELD.  70/11/25.
00028  M00S00025.files   +++|          SPACE  4
00029  M00S00026.files   +++|***              FILES PROCESSES LOCAL FILE FUNCTIONS FOR A JOB AS
00030  M00S00027.files   +++|*         LISTED BELOW.  NUMERIC ARGUMENTS, EXCEPT SKIPR EOR LEVEL AND
00031  M00S00028.files   +++|*         SETID ID CODE, ARE ASSUMED DECIMAL, BUT A TRAILING RADIX OF
00032  M00S00029.files   +++|*         *D* OR *B* MAY BE USED.
00033  M00S00030.files   +++|          SPACE  4
00034  M00S00031.files   +++|***       DAYFILE MESSAGES.
00035  M00S00032.files   +++|*
00036  M00S00033.files   +++|*
00037  M00S00034.files   +++|*         * ERROR IN FILE ARGUMENTS.* = AN ARGUMENT TO A FILE
00038  M00S00035.files   +++|*                FUNCTON WAS ILLEGAL.

Line S00036 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00036.files1  ---|          SPACE  4
00040  M01S00037.files1  ---|***       OPERATOR MESSAGES.
00041  M01S00038.files1  ---|*
00042  M01S00039.files1  ---|*
00043  M01S00040.files1  ---|*         NONE.
00044  M00S00041.files   +++|          SPACE  4
00045  M00S00042.files   +++|*CALL     COMCCMD
00046  M00S00043.files   +++|*CALL     COMCMAC

Line S00001 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00001.files1  +++|*CALL     COMSDSP
00048  M00S00044.files   +++|*CALL     COMSJIO

Line S00045 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00049  M01S00045.files1  ---|          SPACE  4,10
00050  M01S00046.files1  ---|*         *DSP* FLAG BIT EQUIVALENCES.
00051  M01S00047.files1  ---|
00052  M01S00048.files1  ---|
00053  M01S00049.files1  ---| FRCS     EQU    2           ROUTE TO CENTRAL SITE
00054  M01S00050.files1  ---| FRTI     EQU    4           TID OR FM/UN
00055  M01S00051.files1  ---| FRDC     EQU    20B         DISPOSITION CODE
00056  M01S00052.files1  ---| FREC     EQU    200B        EXTERNAL CHARACTERISTICS

Line S00002 Modification History
`M01` (Added by)	`ns2402`

Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00002.ns2402  +++|          SPACE  4,10
00058  M01S00003.ns2402  +++|*         SPECIAL ENTRY POINT.
00059  M01S00004.ns2402  +++|
00060  M01S00005.ns2402  +++| NPC=     EQU    0           FORCE OPERATING SYSTEM PARAMETER FORMAT
00061  M00S00053.files   +++|          TITLE  MULTI FILE PROCESSOR.
00062  M00S00054.files   +++| FILES    SPACE  4
00063  M00S00055.files   +++|**        FILES - MULTI FILE PROCESSOR.
00064  M00S00056.files   +++|*         ENTRY  (B5) = PROCESSOR ADDRESS.
00065  M00S00057.files   +++|
00066  M00S00058.files   +++|
00067  M00S00059.files   +++|          ORG    150B
00068  M00S00060.files   +++| FILES    SA5    2+B6        SET FILE NAME
00069  M00S00061.files   +++|          BX6    X5
00070  M00S00062.files   +++|          SB6    B6+B1
00071  M00S00063.files   +++|          SA6    F
00072  M00S00064.files   +++|          JP     B5          PROCESS OPERATION
00073  M00S00065.files   +++|
00074  M00S00066.files   +++| FIL1     NE     B6,B7,FILES LOOP FOR ALL FILES
00075  M00S00067.files   +++| FIL2     SA1    JOPR        CHECK FOR *DIS* CALL
00076  M00S00068.files   +++|          LX1    59-19
00077  M00S00069.files   +++|          NG     X1,FIL4     IF *DIS* CALL
00078  M00S00070.files   +++|          CONTROL CCDR,RSS
00079  M00S00071.files   +++|          SA1    PGNR
00080  M00S00072.files   +++|          ZR     X1,FIL4     IF NO CONTROL CARD
00081  M00S00073.files   +++|          SA2    FILES-1     FIRST ENTRY NAME
00082  M00S00074.files   +++|          MX0    42
00083  M00S00075.files   +++|          BX1    X0*X1
00084  M00S00076.files   +++| FIL3     NG     X2,FIL4     IF END OF ENTRY NAMES
00085  M00S00077.files   +++|          BX3    X0*X2
00086  M00S00078.files   +++|          BX6    X3-X1
00087  M00S00079.files   +++|          SB2    X2
00088  M00S00080.files   +++|          SA2    A2-B1
00089  M00S00081.files   +++|          NZ     X6,FIL3     IF NO MATCH
00090  M00S00082.files   +++|          CONTROL CCDR       ADVANCE CONTROL CARD
00091  M00S00083.files   +++|          SA3    PGNR
00092  M00S00084.files   +++|          SA1    F+1         CLEAR FET STATUS
00093  M00S00085.files   +++|          ZR     X3,ERR1     IF CONTROL STATEMENT LIMIT
00094  M00S00086.files   +++|          MX2    -24
00095  M00S00087.files   +++|          BX6    -X2*X1
00096  M00S00088.files   +++|          SA6    A1
00097  M00S00089.files   +++|          JP     B2          PROCESS CALL
00098  M00S00090.files   +++| FIL4     ENDRUN
00099  M00S00091.files   +++|          TITLE  FUNCTION PROCESSORS.
00100  M00S00092.files   +++| ASSIGN   SPACE  4
00101  M00S00093.files   +++| BKSP     SPACE  4
00102  M00S00094.files   +++|***       BKSP   (F,N,M)
00103  M00S00095.files   +++|*         BACKSPACE N RECORDS ON FILE F
00104  M00S00096.files   +++|*         WITH FILE MODE *M*.
00105  M00S00097.files   +++|
00106  M00S00098.files   +++|
00107  M00S00099.files   +++| BKSP     SB2    -1          PROCESS F,X,M ARGUMENTS
00108  M00S00100.files   +++|          RJ     ARG

Line S00001 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00109  M01S00001.274l797 +++|          OPEN   F,READNR,R
00110  M00S00101.files   +++|          SKIPB  F,X0,R
00111  M00S00102.files   +++|          EQ     SKF2        RESET FILE MODE

Line S00002 Modification History
`M01` (Added by)	`files2`

Seq #  *Modification Id* Act 
----------------------------+
00112  M01S00002.files2  +++| BKSPRU   SPACE  4,5
00113  M01S00003.files2  +++|***       BKSPRU (F,N,M)
00114  M01S00004.files2  +++|*
00115  M01S00005.files2  +++|*         BACKSPACE N PHYSICAL RECORD UNITS ON FILE *F*
00116  M01S00006.files2  +++|*         WITH FILE MODE *M*.
00117  M01S00007.files2  +++|
00118  M01S00008.files2  +++|
00119  M01S00009.files2  +++| BKSPRU   SB2    -1          PROCESS F,N,M ARGUMENTS
00120  M01S00010.files2  +++|          RJ     ARG
00121  M01S00011.files2  +++|          OPEN   F,READNR,R
00122  M01S00012.files2  +++|          BKSPRU F,X0,R
00123  M01S00013.files2  +++|          EQ     SKF2        RESET FILE MODE
00124  M00S00103.files   +++| COMMON   SPACE  4
00125  M00S00104.files   +++|***       COMMON (F1,F2,...,FN)
00126  M00S00105.files   +++|*         FOR FILES FN, THE FOLLOWING OPERATION IS PERFORMED.
00127  M00S00106.files   +++|*         IF FILE FN IS NOT ASSIGNED TO THE JOB, *COMMON* FILE FN
00128  M00S00107.files   +++|*         IS ASSIGNED TO THE JOB.
00129  M00S00108.files   +++|*         IF FILE FN IS ALREADY ASSIGNED TO THE JOB, NO ACTION IS
00130  M00S00109.files   +++|*         TAKEN.
00131  M00S00110.files   +++|
00132  M00S00111.files   +++|
00133  M00S00112.files   +++| COMMON   SB2    1           CHECK SINGLE ARGUMENTS
00134  M00S00113.files   +++|          RJ     ARG
00135  M00S00114.files   +++|          SB5    COM         SET COMMON ENTRY
00136  M00S00115.files   +++|          EQ     FILES
00137  M00S00116.files   +++|
00138  M00S00117.files   +++| COM      ASSIGN F
00139  M00S00118.files   +++|          EQ     FIL1

Line S00119 Modification History
`M01` (Removed by)	`files2`

Seq #  *Modification Id* Act 
----------------------------+
00140  M01S00119.files2  ---|          LOC    0
00141  M01S00120.files2  ---|          VFD    12/2HPR,12/,12/2HPR,3/0,3/,18/FRDC
00142  M01S00121.files2  ---|          VFD    12/2HPH,12/,12/2HPH,3/0,3/,18/FRDC
00143  M01S00122.files2  ---|          VFD    12/2HPB,12/,12/2HPB,3/0,3/,18/FRDC
00144  M01S00123.files2  ---|          VFD    12/2HP8,12/,12/2HP8,3/0,3/,18/FRDC
00145  M01S00124.files2  ---|          VFD    12/2HP9,12/,12/2HPH,3/P9FR,3/,18/FREC+FRDC
00146  M01S00125.files2  ---|          CON    0           END OF TABLE
00147  M01S00126.files2  ---|          LOC    *O
00148  M00S00127.files   +++| EVICT    SPACE  4
00149  M00S00128.files   +++|***       EVICT(F1,F2,...,FN)
00150  M00S00129.files   +++|*         EVICT FILES FN.
00151  M00S00130.files   +++|
00152  M00S00131.files   +++|
00153  M00S00132.files   +++| EVICT    SB2    1           CHECK SINGLE ARGUMENTS
00154  M00S00133.files   +++|          RJ     ARG
00155  M00S00134.files   +++|          SB5    EVI         SET EVICT ENTRY
00156  M00S00135.files   +++|          JP     FILES
00157  M00S00136.files   +++|
00158  M00S00137.files   +++| EVI      EVICT  A6,R
00159  M00S00138.files   +++|          JP     FIL1        PROCESS NEXT FILE
00160  M00S00139.files   +++| LOCK     SPACE  4
00161  M00S00140.files   +++|***       LOCK (F1,F2,...,FN)
00162  M00S00141.files   +++|*         LOCK FILES FN.
00163  M00S00142.files   +++|
00164  M00S00143.files   +++|
00165  M00S00144.files   +++| LOCK     SB2    1           CHECK SINGLE ARGUMENTS
00166  M00S00145.files   +++|          RJ     ARG
00167  M00S00146.files   +++|          SB5    LCK         SET LOCK ENTRY
00168  M00S00147.files   +++|          EQ     FILES
00169  M00S00148.files   +++|
00170  M00S00149.files   +++| LCK      LOCK   A6,R
00171  M00S00150.files   +++|          EQ     FIL1        PROCESS NEXT FILE
00172  M00S00151.files   +++| PRIMARY  SPACE  4,2
00173  M00S00152.files   +++|***       PRIMARY (F)
00174  M00S00153.files   +++|*         MAKE FILE F USER S NEW PRIMARY FILE.
00175  M00S00154.files   +++|
00176  M00S00155.files   +++|
00177  M00S00156.files   +++| PRIMARY  SB2    1           CHECK SINGLE ARGUMENT
00178  M00S00157.files   +++|          RJ     ARG
00179  M00S00158.files   +++|          NE     B1,B7,ERR   IF MORE THAN 1 ARGUMENT SPECIFIED
00180  M00S00159.files   +++|          SB5    PRI
00181  M00S00160.files   +++|          EQ     FILES
00182  M00S00161.files   +++|
00183  M00S00162.files   +++| PRI      PRIMARY F
00184  M00S00163.files   +++|          EQ     FIL1
00185  M00S00164.files   +++| RENAME   SPACE  4
00186  M00S00165.files   +++|***       RENAME (N1=F1,N2=F2,...,NI=FI)
00187  M00S00166.files   +++|*         RENAME FILES FN TO NN.
00188  M00S00167.files   +++|*         IF FILE NN WAS PREVIOUSLY DEFINED, THAT FILE WILL BE DROPPED
00189  M00S00168.files   +++|*         FROM THE JOB.
00190  M00S00169.files   +++|
00191  M00S00170.files   +++|
00192  M00S00171.files   +++| RENAME   SB2    2           CHECK EQUIVALENCED ARGUMENTS
00193  M00S00172.files   +++|          RJ     ARG
00194  M00S00173.files   +++|          SB6    B1          BEGIN WITH SECOND NAME
00195  M00S00174.files   +++|          SB7    B7+B1
00196  M00S00175.files   +++|          SB5    REN         SET RENAME ENTRY
00197  M00S00176.files   +++|          EQ     FILES
00198  M00S00177.files   +++|
00199  M00S00178.files   +++| REN      SA4    A6          SAVE OLD NAME
00200  M00S00179.files   +++|          SA1    A5-B1       SET NEW NAME
00201  M00S00180.files   +++|          BX7    X1
00202  M00S00181.files   +++|          SA7    A6
00203  M00S00182.files   +++|          SA1    F           SET NEW NAME
00204  M00S00183.files   +++|          BX6    X4          SET OLD NAME
00205  M00S00184.files   +++|          LX7    X1
00206  M00S00185.files   +++|          SA6    A1
00207  M00S00186.files   +++|          SA7    F+6
00208  M00S00187.files   +++|          RENAME A6,,R
00209  M00S00188.files   +++|          SB6    B6+B1
00210  M00S00189.files   +++|          EQ     FIL1        PROCESS NEXT FILE
00211  M00S00190.files   +++| SKIPEI   SPACE  4
00212  M00S00191.files   +++|***       SKIPEI (F)
00213  M00S00192.files   +++|*         SKIP TO END OF INFORMATION ON FILE F (MASS STORAGE ONLY).
00214  M00S00193.files   +++|
00215  M00S00194.files   +++|
00216  M00S00195.files   +++| SKIPEI   SB2    B0          PROCESS F,X ARGUMENTS
00217  M00S00196.files   +++|          RJ     ARG
00218  M00S00197.files   +++|          NZ     B7,ERR      ERROR IF MORE THAN 1 ARGUMENT

Line S00002 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00219  M01S00002.274l797 +++|          OPEN   F,READNR,R
00220  M00S00198.files   +++|          SKIPEI F,R
00221  M00S00199.files   +++|          EQ     FIL2
00222  M00S00200.files   +++| SKIPF    SPACE  4
00223  M00S00201.files   +++|***       SKIPF  (F,N,M)
00224  M00S00202.files   +++|*         SKIP N FILES FORWARD ON FILE F.
00225  M00S00203.files   +++|*         WITH FILE MODE *M*.
00226  M00S00204.files   +++|
00227  M00S00205.files   +++|
00228  M00S00206.files   +++| SKIPF    SB2    -1          PROCESS F,X,M ARGUMENTS
00229  M00S00207.files   +++|          RJ     ARG

Line S00003 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00230  M01S00003.274l797 +++|          OPEN   F,READNR,R
00231  M00S00208.files   +++| SKF1     SKIPFF F,X0,R
00232  M00S00209.files   +++| SKF2     SA1    F           RESET FILE MODE
00233  M00S00210.files   +++|          SX4    3
00234  M00S00211.files   +++|          MX0    42
00235  M00S00212.files   +++|          BX6    X0*X1
00236  M00S00213.files   +++|          BX6    X6+X4
00237  M00S00214.files   +++|          SA6    A1
00238  M00S00215.files   +++|          EQ     FIL2
00239  M00S00216.files   +++| SKIPFB   SPACE  4
00240  M00S00217.files   +++|***       SKIPFB (F,N,M)
00241  M00S00218.files   +++|*         SKIP N FILES BACKWARD ON FILE F.
00242  M00S00219.files   +++|*         WITH FILE MODE *M*.
00243  M00S00220.files   +++|
00244  M00S00221.files   +++|
00245  M00S00222.files   +++| SKIPFB   SB2    -1          PROCESS F,X,M ARGUMENTS
00246  M00S00223.files   +++|          RJ     ARG

Line S00004 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00247  M01S00004.274l797 +++|          OPEN   F,READNR,R
00248  M00S00224.files   +++| SKB1     SKIPFB F,X0,R
00249  M00S00225.files   +++|          EQ     SKF2
00250  M00S00226.files   +++| SKIPR    SPACE  4
00251  M00S00227.files   +++|***       SKIPR  (F,N,L,M)
00252  M00S00228.files   +++|*         SKIP N RECORDS FORWARD ON FILE F.
00253  M00S00229.files   +++|*         WITH EOR LEVEL *L*, ASSUMED OCTAL, AND/OR FILE MODE *M*.
00254  M00S00230.files   +++|
00255  M00S00231.files   +++|

Line S00232 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00256  M01S00232.files1  ---| SKIPR    SB2    -1          PROCESS F,X,L,M ARGUMENTS

Line S00002 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00257  M01S00002.files1  +++| SKIPR    SB2    -2          PROCESS F,X,L,M ARGUMENTS
00258  M00S00233.files   +++|          RJ     ARG

Line S00005 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00259  M01S00005.274l797 +++|          BX4    X7          SAVE LEVEL NUMBER
00260  M01S00006.274l797 +++|          OPEN   F,READNR,R
00261  M01S00007.274l797 +++|          BX7    X4          RESTORE LEVEL NUMBER
00262  M00S00234.files   +++| SKR1     SX2    F
00263  M00S00235.files   +++|          LX0    18
00264  M00S00236.files   +++|          BX2    X2+X0
00265  M00S00237.files   +++|          LX7    14
00266  M00S00238.files   +++|          SX6    240B
00267  M00S00239.files   +++|          BX7    X7+X6
00268  M00S00240.files   +++|          MX6    60
00269  M00S00241.files   +++|          BX7    X7-X6
00270  M00S00242.files   +++|          RJ     =XCIO=
00271  M00S00243.files   +++|          EQ     SKF2
00272  M00S00244.files   +++| UNLOCK   SPACE  4
00273  M00S00245.files   +++|***       UNLOCK (F1,F2,...,FN)
00274  M00S00246.files   +++|*         UNLOCK FILES FN.
00275  M00S00247.files   +++|
00276  M00S00248.files   +++|
00277  M00S00249.files   +++| UNLOCK   SB2    1           CHECK SINGLE ARGUMENTS
00278  M00S00250.files   +++|          RJ     ARG
00279  M00S00251.files   +++|          SB5    ULK         SET LOCK ENTRY
00280  M00S00252.files   +++|          EQ     FILES
00281  M00S00253.files   +++|
00282  M00S00254.files   +++| ULK      UNLOCK A6,R
00283  M00S00255.files   +++|          EQ     FIL1        PROCESS NEXT FILE
00284  M00S00256.files   +++| WRITEF   SPACE  4
00285  M00S00257.files   +++|***       WRITEF(F,N)
00286  M00S00258.files   +++|*         WRITE N FILE MARKS ON FILE F.
00287  M00S00259.files   +++|
00288  M00S00260.files   +++|
00289  M00S00261.files   +++| WRITEF   SB2    B0          PROCESS F,X ARGUMENTS
00290  M00S00262.files   +++|          RJ     ARG
00291  M00S00263.files   +++| WRF1     WRITEF F,R
00292  M00S00264.files   +++|          SX0    X0-1
00293  M00S00265.files   +++|          NZ     X0,WRF1     LOOP FOR ALL FILES
00294  M00S00266.files   +++|          EQ     FIL2
00295  M00S00267.files   +++| WRITER   SPACE  4
00296  M00S00268.files   +++|***       WRITER (F,N)
00297  M00S00269.files   +++|*         WRITE N EMPTY RECORDS ON FILE F.
00298  M00S00270.files   +++|
00299  M00S00271.files   +++|
00300  M00S00272.files   +++| WRITER   SB2    B0          PROCESS F,X ARGUMENTS
00301  M00S00273.files   +++|          RJ     ARG
00302  M00S00274.files   +++| WRR1     WRITER F,R
00303  M00S00275.files   +++|          SX0    X0-1
00304  M00S00276.files   +++|          NZ     X0,WRR1     LOOP FOR ALL RECORDS
00305  M00S00277.files   +++|          EQ     FIL2
00306  M00S00278.files   +++|          TITLE  SUBROUTINES.
00307  M00S00279.files   +++| AMO      SPACE  4
00308  M00S00280.files   +++| ARG      SPACE  4
00309  M00S00281.files   +++|**        ARG - PROCESS ARGUMENTS.
00310  M00S00282.files   +++|*

Line S00283 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00311  M01S00283.files1  ---|*         ENTRY  (B2) = -1   IF F,X,L,M FORM
00312  M01S00284.files1  ---|*                (B2) = 0    IF F,X FORM
00313  M01S00285.files1  ---|*                (B2) = 1 IF SINGLE VALUE ARGUMENT
00314  M01S00286.files1  ---|*                (B2) = 2 IF EQUIVALENCED ARGUMENT

Line S00003 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00315  M01S00003.files1  +++|*         ENTRY  (B2) = -2 IF F,X,L,M FORM.
00316  M01S00004.files1  +++|*                (B2) = -1 IF F,X,M FORM.
00317  M01S00005.files1  +++|*                (B2) = 0 IF F,X FORM.
00318  M01S00006.files1  +++|*                (B2) = 1 IF SINGLE VALUE ARGUMENT.
00319  M01S00007.files1  +++|*                (B2) = 2 IF EQUIVALENCED ARGUMENT.
00320  M00S00287.files   +++|*

Line S00288 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00321  M01S00288.files1  ---|*         EXIT   (B1) = 1
00322  M01S00289.files1  ---|*                (B6) = 0
00323  M01S00290.files1  ---|*                (B7) = ARGUMENT COUNT

Line S00008 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00324  M01S00008.files1  +++|*         EXIT   (B1) = 1.
00325  M01S00009.files1  +++|*                (B6) = 0.
00326  M01S00010.files1  +++|*                (B7) = ARGUMENT COUNT.
00327  M01S00011.files1  +++|*                (X0) = COUNT OF FILES OR RECORDS.
00328  M01S00012.files1  +++|*                (X7) = LEVEL NUMBER.
00329  M01S00013.files1  +++|*
00330  M01S00014.files1  +++|*         CALLS  DXB.
00331  M00S00291.files   +++|
00332  M00S00292.files   +++|
00333  M00S00293.files   +++| ARG      PS     0           ENTRY/EXIT
00334  M00S00294.files   +++|          SB1    1           (B1) = CONSTANT 1
00335  M00S00295.files   +++|          SA1    ACTR        CHECK ARGUMENT COUNT
00336  M00S00296.files   +++|          SB3    X1

Line S00297 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00337  M01S00297.files1  ---|          ZR     B3,ERR

Line S00015 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00338  M01S00015.files1  +++|          ZR     B3,ERR      IF NO ARGUMENTS
00339  M00S00298.files   +++|          SB7    X1
00340  M00S00299.files   +++|          MX0    42

Line S00300 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00341  M01S00300.files1  ---|          SA5    B1+B1       FIRST ARGUMENT

Line S00016 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00342  M01S00016.files1  +++|          SA5    ARGR        GET FIRST ARGUMENT
00343  M00S00301.files   +++|          SB6    B0

Line S00302 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00344  M01S00302.files1  ---|          SX2    B1
00345  M01S00303.files1  ---|          SB4    3
00346  M01S00304.files1  ---|          SB5    B1          PRESET SPECIAL FORM INDICATOR
00347  M01S00305.files1  ---|          SX6    B0
00348  M01S00306.files1  ---|          GE     B2,ARG0     IF NOT F,X,L,M FORM
00349  M01S00307.files1  ---|          SX6    B1
00350  M01S00308.files1  ---|          EQ     ARG3
00351  M01S00309.files1  ---| ARG0     NZ     B2,ARG1     IF NOT F,X FORM
00352  M01S00310.files1  ---|
00353  M01S00311.files1  ---|*         PROCESS F,X ARGUMENT FORM.
00354  M01S00312.files1  ---|
00355  M01S00313.files1  ---| ARG3     SX7    X5-1R=
00356  M01S00314.files1  ---|          ZR     X7,ERR      ERROR IF EQUIVALENCE FORM

Line S00017 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00357  M01S00017.files1  +++|          SX2    1
00358  M01S00018.files1  +++|          SX6    B2+
00359  M01S00019.files1  +++|          ZR     B2,ARG1     IF F,X FORM
00360  M01S00020.files1  +++|          PL     B2,ARG8     IF SINGLE VALUE OR EQUIVALENCED ARGUMENT
00361  M01S00021.files1  +++|
00362  M01S00022.files1  +++|*         PROCESS F,X OR F,X,M OR F,X,L,M ARGUMENT FORM.
00363  M01S00023.files1  +++|
00364  M01S00024.files1  +++| ARG1     SA6    ARGA        SAVE ARGUMENT FORM
00365  M01S00025.files1  +++|          SX7    X5-1R=
00366  M01S00026.files1  +++|          ZR     X7,ERR      IF EQUIVALENCED ARGUMENT
00367  M00S00315.files   +++|          SX2    3           STORE FILE NAME
00368  M00S00316.files   +++|          BX7    X5+X2
00369  M00S00317.files   +++|          SX0    B1          PRESET COUNT = 1

Line S00318 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00370  M01S00318.files1  ---|          SB7    B7-B1
00371  M01S00319.files1  ---|          SA7    F

Line S00027 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00372  M01S00027.files1  +++|          SA7    F           SET FILE NAME IN FET
00373  M01S00028.files1  +++|          SB7    B7-B1
00374  M00S00320.files   +++|          BX7    X7-X7       SET LEVEL TO ZERO
00375  M00S00321.files   +++|          ZR     B7,ARG      RETURN IF 1 ARGUMENT

Line S00322 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00376  M01S00322.files1  ---|          ZR     X6,ARG3.5   IF NOT F,X,L,M FORM
00377  M01S00323.files1  ---|          SA6    ARGA
00378  M01S00324.files1  ---|          EQ     ARG3.6
00379  M01S00325.files1  ---| ARG3.5   NE     B7,B1,ERR   IF MORE THAN 2 ARGUMENTS
00380  M01S00326.files1  ---| ARG3.6   SA5    A5+B1       CONVERT COUNT

Line S00029 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00381  M01S00029.files1  +++|          NZ     B2,ARG2     IF NOT F,X FORM
00382  M01S00030.files1  +++|          NE     B7,B1,ERR   IF MORE THAN 2 ARGUMENTS
00383  M01S00031.files1  +++| ARG2     SA5    A5+B1       GET SECOND ARGUMENT
00384  M00S00327.files   +++|          MX0    42          CHECK FOR DEFAULT COUNT
00385  M00S00328.files   +++|          SX6    B1          SET DEFAULT COUNT OF 1
00386  M00S00329.files   +++|          BX2    X0*X5

Line S00330 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00387  M01S00330.files1  ---|          ZR     X2,ARG3.61  IF COUNT NOT SPECIFIED
00388  M01S00331.files1  ---|          SB7    B1          ASSUME DECIMAL BASE

Line S00032 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00389  M01S00032.files1  +++|          ZR     X2,ARG3     IF COUNT NOT SPECIFIED
00390  M01S00033.files1  +++|          SB7    1           ASSUME DECIMAL BASE
00391  M00S00332.files   +++|          RJ     DXB

Line S00333 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00392  M01S00333.files1  ---|          NZ     X4,ERR
00393  M01S00334.files1  ---|          ZR     X6,ERR      ERROR IF ZERO
00394  M01S00335.files1  ---| ARG3.61  BX0    X6          SET COUNT

Line S00034 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00395  M01S00034.files1  +++|          NZ     X4,ERR      IF CONVERSION ERROR
00396  M01S00035.files1  +++|          ZR     X6,ERR      IF ZERO COUNT
00397  M01S00036.files1  +++| ARG3     BX0    X6          SET COUNT
00398  M00S00336.files   +++|          SA6    ARGB
00399  M00S00337.files   +++|          BX7    X7-X7       SET LEVEL TO ZERO
00400  M00S00338.files   +++|          MX2    42
00401  M00S00339.files   +++|          BX3    X2*X6
00402  M00S00340.files   +++|          NZ     X3,ERR      IF TOO LARGE

Line S00341 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00403  M01S00341.files1  ---|          SA1    ARGA        CHECK IF F,X,L,M FORM
00404  M01S00342.files1  ---|          ZR     X1,ARG      IF NOT

Line S00037 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00405  M01S00037.files1  +++|          SA3    ARGA
00406  M01S00038.files1  +++|          ZR     X3,ARG      IF F,X FORM
00407  M00S00343.files   +++|          SA1    ACTR

Line S00344 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00408  M01S00344.files1  ---|          SX2    X1-5

Line S00039 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00409  M01S00039.files1  +++|          SX3    X3+1
00410  M01S00040.files1  +++|          NG     X3,ARG4     IF F,X,L,M FORM
00411  M01S00041.files1  +++|          SX2    X1-4
00412  M01S00042.files1  +++|          PL     X2,ERR      IF MORE THAN 3 ARGUMENTS
00413  M01S00043.files1  +++|          EQ     ARG5        CONTINUE TO PROCESS
00414  M01S00044.files1  +++|
00415  M01S00045.files1  +++| ARG4     SX2    X1-5
00416  M00S00345.files   +++|          PL     X2,ERR      IF MORE THAN 4 ARGUMENTS

Line S00346 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00417  M01S00346.files1  ---|          SX2    X1-2

Line S00046 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00418  M01S00046.files1  +++| ARG5     SX2    X1-2
00419  M00S00347.files   +++|          ZR     X2,ARG      IF ONLY 2 ARGUMENTS

Line S00348 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00420  M01S00348.files1  ---|          SA5    4           GET THIRD ARGUMENT
00421  M01S00349.files1  ---|          SB7    B0          SET OCTAL MODE

Line S00047 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00422  M01S00047.files1  +++|          SA5    A5+B1       GET THIRD ARGUMENT
00423  M01S00048.files1  +++|          SB7    B0          SET OCTAL MODE
00424  M00S00350.files   +++|          RJ     DXB
00425  M00S00351.files   +++|          SA2    ARGB        RESET COUNT

Line S00352 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00426  M01S00352.files1  ---|          SX0    X2
00427  M01S00353.files1  ---|          NZ     X4,ARG3.65  IF CONVERSION ERROR

Line S00049 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00428  M01S00049.files1  +++|          SX0    X2+
00429  M01S00050.files1  +++|          NZ     X4,ARG6     IF CONVERSION ERROR
00430  M00S00354.files   +++|          MX4    -4
00431  M00S00355.files   +++|          BX7    -X4*X6
00432  M00S00356.files   +++|          SA1    ACTR
00433  M00S00357.files   +++|          SX1    X1-4
00434  M00S00358.files   +++|          NG     X1,ARG      IF ONLY THREE ARGUMENTS

Line S00359 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00435  M01S00359.files1  ---|          SA5    5           GET FOURTH ARGUMENT
00436  M01S00360.files1  ---| ARG3.65  SA5    A5

Line S00051 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00437  M01S00051.files1  +++|          SA5    A5+1        GET FOURTH ARGUMENT
00438  M01S00052.files1  +++| ARG6     SA5    A5+
00439  M00S00361.files   +++|          SX4    1LC
00440  M00S00362.files   +++|          LX4    42
00441  M00S00363.files   +++|          IX4    X5-X4

Line S00364 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00442  M01S00364.files1  ---|          ZR     X4,ARG3.7   IF CODED
00443  M01S00365.files1  ---|          SX4    B1          BINARY
00444  M01S00366.files1  ---| ARG3.7   LX4    1           SET MODE BIT IN FET

Line S00053 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00445  M01S00053.files1  +++|          ZR     X4,ARG7     IF CODED
00446  M01S00054.files1  +++|          SX4    1LB
00447  M01S00055.files1  +++|          LX4    42
00448  M01S00056.files1  +++|          IX4    X5-X4
00449  M01S00057.files1  +++|          NZ     X4,ERR      IF NOT BINARY
00450  M01S00058.files1  +++|          SX4    B1+         BINARY
00451  M01S00059.files1  +++| ARG7     LX4    1           SET MODE BIT IN FET
00452  M00S00367.files   +++|          SA1    F
00453  M00S00368.files   +++|          SX2    B1+B1
00454  M00S00369.files   +++|          BX6    -X2*X1
00455  M00S00370.files   +++|          BX6    X6+X4
00456  M00S00371.files   +++|          SA6    A1+
00457  M00S00372.files   +++|          EQ     ARG
00458  M00S00373.files   +++|
00459  M00S00374.files   +++|*         PROCESS MULTI FILE FORM.
00460  M00S00375.files   +++|

Line S00376 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00461  M01S00376.files1  ---| ARG1     EQ     B2,B1,ARG2  IF SINGLE ARGUMENT REQUESTED

Line S00060 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00462  M01S00060.files1  +++| ARG8     EQ     B2,B1,ARG9  IF SINGLE ARGUMENT REQUESTED
00463  M00S00377.files   +++|          SX7    X5-1R=
00464  M00S00378.files   +++|          NZ     X7,ERR      ERROR IF NO EQUIVALENCE
00465  M00S00379.files   +++|          BX6    X0*X5
00466  M00S00380.files   +++|          IX7    X6+X2       ADD COMPLETE BIT
00467  M00S00381.files   +++|          ZR     X6,ERR      ERROR IF BLANK NAME

Line S00382 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00468  M01S00382.files1  ---|          SA7    A5
00469  M01S00383.files1  ---|          SB3    B3-B1       NEXT ARGUMENT

Line S00061 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00470  M01S00061.files1  +++|          SA7    A5+
00471  M01S00062.files1  +++|          SB3    B3-1        NEXT ARGUMENT
00472  M00S00384.files   +++|          SA5    A5+B1
00473  M00S00385.files   +++|          BX5    X0*X5

Line S00386 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00474  M01S00386.files1  ---| ARG2     ZR     X5,ERR      ERROR IF BLANK NAME

Line S00063 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00475  M01S00063.files1  +++| ARG9     ZR     X5,ERR      IF BLANK NAME
00476  M00S00387.files   +++|          BX7    X5+X2       ADD COMPLETE BIT
00477  M00S00388.files   +++|          SA7    A5
00478  M00S00389.files   +++|          SB3    B3-B1       DECREMENT ARGUMENT COUNT
00479  M00S00390.files   +++|          SA5    A5+B1       NEXT ARGUMENT

Line S00391 Modification History
`M01` (Removed by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00480  M01S00391.files1  ---|          NZ     B3,ARG1     LOOP FOR ALL ARGUMENTS

Line S00064 Modification History
`M01` (Added by)	`files1`

Seq #  *Modification Id* Act 
----------------------------+
00481  M01S00064.files1  +++|          NZ     B3,ARG8     IF MORE ARGUMENTS TO PROCESS
00482  M00S00392.files   +++|          EQ     ARG         RETURN
00483  M00S00393.files   +++|
00484  M00S00394.files   +++|
00485  M00S00395.files   +++| ARGA     CON    0           FORM OF ARGUMENTS FLAG
00486  M00S00396.files   +++| ARGB     CON    0           COUNT HOLD
00487  M00S00397.files   +++| ERR      SPACE  4
00488  M00S00398.files   +++|**        ERR - PROCESS ARGUMENT ERROR.
00489  M00S00399.files   +++|
00490  M00S00400.files   +++|
00491  M00S00401.files   +++| ERR      BSS    0
00492  M00S00402.files   +++|          MESSAGE (=C* ERROR IN FILE ARGUMENTS.*)
00493  M00S00403.files   +++| ERR1     ABORT
00494  M00S00404.files   +++| FET      SPACE  4

Line S00008 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00008.274l797 +++| ODEBL    EQU    20B         OPTICAL DISK EXTENSION BUFFER LENGTH
00496  M00S00405.files   +++| F        BSS    0

Line S00406 Modification History
`M01` (Removed by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00497  M01S00406.274l797 ---| FILE     FILEB  BUF,BUFL,(FET=8)

Line S00009 Modification History
`M01` (Added by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00498  M01S00009.274l797 +++|FILE      FILEB  BUF,BUFL,(FET=10)
00499  M01S00010.274l797 +++|          ORG    F+11B
00500  M01S00011.274l797 +++|          VFD    36/,6/ODEBL,18/FODEB POINTER TO *OD* EXT. BUFFER
00501  M01S00012.274l797 +++|          ORG    F+10
00502  M01S00013.274l797 +++|
00503  M01S00014.274l797 +++|*         OPTICAL DISK EXTENSION BUFFER.
00504  M01S00015.274l797 +++|
00505  M01S00016.274l797 +++| FODEB    BSSZ   ODEBL
00506  M00S00407.files   +++|
00507  M00S00408.files   +++| BUF      BSS    0
00508  M00S00409.files   +++| BUFL     EQU    1
00509  M00S00410.files   +++|          SPACE  4
00510  M00S00411.files   +++|*CALL     COMCCIO
00511  M00S00412.files   +++|*CALL     COMCDXB
00512  M00S00413.files   +++|*CALL     COMCLFM
00513  M00S00414.files   +++|*CALL     COMCSYS
00514  M00S00415.files   +++|          USE    //
00515  M00S00416.files   +++| RFL=     BSS    0
00516  M00S00417.files   +++|          SPACE  4
00517  M00S00418.files   +++|          END