User Tools

Site Tools


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

Deck FILES

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.files   +++|          IDENT  FILES,FILES
00002  M01S00002.files   +++|          ABS
00003  M01S00003.files   +++|          SST
00004  M01S00004.files   +++|          SYSCOM B1
00005  M01S00005.files   +++|          ENTRY  BKSP
00006  M01S00001.files2  +++|          ENTRY  BKSPRU
00007  M01S00006.files   +++|          ENTRY  COMMON
00008  M01S00007.files   +++|          ENTRY  EVICT
00009  M01S00008.files   +++|          ENTRY  LOCK
00010  M01S00009.files   +++|          ENTRY  PRIMARY
00011  M01S00010.files   +++|          ENTRY  RENAME
00012  M01S00011.files   +++|          ENTRY  SKIPEI
00013  M01S00012.files   +++|          ENTRY  SKIPF
00014  M01S00013.files   +++|          ENTRY  SKIPFB
00015  M01S00014.files   +++|          ENTRY  SKIPR
00016  M01S00015.files   +++|          ENTRY  UNLOCK
00017  M01S00016.files   +++|          ENTRY  WRITEF
00018  M01S00017.files   +++|          ENTRY  WRITER
00019  M01S00001.ns2402  +++|          ENTRY  NPC=
00020  M01S00018.files   +++|          ENTRY  RFL=
00021  M01S00019.files   +++|*COMMENT  FILES - LOCAL FILE MANIPULATOR.
Line S00020 Modification History
M01 (Added by) files
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00020.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00023  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00024  M01S00021.files   +++|          TITLE  FILES - LOCAL FILE MANIPULATOR.
00025  M01S00022.files   +++|          SPACE  4
00026  M01S00023.files   +++|***       FILES - LOCAL FILE MANIPULATOR.
00027  M01S00024.files   +++|*         G. R. MANSFIELD.  70/11/25.
00028  M01S00025.files   +++|          SPACE  4
00029  M01S00026.files   +++|***              FILES PROCESSES LOCAL FILE FUNCTIONS FOR A JOB AS
00030  M01S00027.files   +++|*         LISTED BELOW.  NUMERIC ARGUMENTS, EXCEPT SKIPR EOR LEVEL AND
00031  M01S00028.files   +++|*         SETID ID CODE, ARE ASSUMED DECIMAL, BUT A TRAILING RADIX OF
00032  M01S00029.files   +++|*         *D* OR *B* MAY BE USED.
00033  M01S00030.files   +++|          SPACE  4
00034  M01S00031.files   +++|***       DAYFILE MESSAGES.
00035  M01S00032.files   +++|*
00036  M01S00033.files   +++|*
00037  M01S00034.files   +++|*         * ERROR IN FILE ARGUMENTS.* = AN ARGUMENT TO A FILE
00038  M01S00035.files   +++|*                FUNCTON WAS ILLEGAL.
Line S00036 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00036.files1  ---|          SPACE  4
Line S00037 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00037.files1  ---|***       OPERATOR MESSAGES.
Line S00038 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00038.files1  ---|*
Line S00039 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00039.files1  ---|*
Line S00040 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00040.files1  ---|*         NONE.
00044  M01S00041.files   +++|          SPACE  4
00045  M01S00042.files   +++|*CALL     COMCCMD
00046  M01S00043.files   +++|*CALL     COMCMAC
00047  M01S00001.files1  +++|*CALL     COMSDSP
00048  M01S00044.files   +++|*CALL     COMSJIO
Line S00045 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00045.files1  ---|          SPACE  4,10
Line S00046 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00046.files1  ---|*         *DSP* FLAG BIT EQUIVALENCES.
Line S00047 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00047.files1  ---|
Line S00048 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00048.files1  ---|
Line S00049 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00049.files1  ---| FRCS     EQU    2           ROUTE TO CENTRAL SITE
Line S00050 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00050.files1  ---| FRTI     EQU    4           TID OR FM/UN
Line S00051 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00051.files1  ---| FRDC     EQU    20B         DISPOSITION CODE
Line S00052 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00052.files1  ---| FREC     EQU    200B        EXTERNAL CHARACTERISTICS
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  M01S00053.files   +++|          TITLE  MULTI FILE PROCESSOR.
00062  M01S00054.files   +++| FILES    SPACE  4
00063  M01S00055.files   +++|**        FILES - MULTI FILE PROCESSOR.
00064  M01S00056.files   +++|*         ENTRY  (B5) = PROCESSOR ADDRESS.
00065  M01S00057.files   +++|
00066  M01S00058.files   +++|
00067  M01S00059.files   +++|          ORG    150B
00068  M01S00060.files   +++| FILES    SA5    2+B6        SET FILE NAME
00069  M01S00061.files   +++|          BX6    X5
00070  M01S00062.files   +++|          SB6    B6+B1
00071  M01S00063.files   +++|          SA6    F
00072  M01S00064.files   +++|          JP     B5          PROCESS OPERATION
00073  M01S00065.files   +++|
00074  M01S00066.files   +++| FIL1     NE     B6,B7,FILES LOOP FOR ALL FILES
00075  M01S00067.files   +++| FIL2     SA1    JOPR        CHECK FOR *DIS* CALL
00076  M01S00068.files   +++|          LX1    59-19
00077  M01S00069.files   +++|          NG     X1,FIL4     IF *DIS* CALL
00078  M01S00070.files   +++|          CONTROL CCDR,RSS
00079  M01S00071.files   +++|          SA1    PGNR
00080  M01S00072.files   +++|          ZR     X1,FIL4     IF NO CONTROL CARD
00081  M01S00073.files   +++|          SA2    FILES-1     FIRST ENTRY NAME
00082  M01S00074.files   +++|          MX0    42
00083  M01S00075.files   +++|          BX1    X0*X1
00084  M01S00076.files   +++| FIL3     NG     X2,FIL4     IF END OF ENTRY NAMES
00085  M01S00077.files   +++|          BX3    X0*X2
00086  M01S00078.files   +++|          BX6    X3-X1
00087  M01S00079.files   +++|          SB2    X2
00088  M01S00080.files   +++|          SA2    A2-B1
00089  M01S00081.files   +++|          NZ     X6,FIL3     IF NO MATCH
00090  M01S00082.files   +++|          CONTROL CCDR       ADVANCE CONTROL CARD
00091  M01S00083.files   +++|          SA3    PGNR
00092  M01S00084.files   +++|          SA1    F+1         CLEAR FET STATUS
00093  M01S00085.files   +++|          ZR     X3,ERR1     IF CONTROL STATEMENT LIMIT
00094  M01S00086.files   +++|          MX2    -24
00095  M01S00087.files   +++|          BX6    -X2*X1
00096  M01S00088.files   +++|          SA6    A1
00097  M01S00089.files   +++|          JP     B2          PROCESS CALL
00098  M01S00090.files   +++| FIL4     ENDRUN
00099  M01S00091.files   +++|          TITLE  FUNCTION PROCESSORS.
00100  M01S00092.files   +++| ASSIGN   SPACE  4
00101  M01S00093.files   +++| BKSP     SPACE  4
00102  M01S00094.files   +++|***       BKSP   (F,N,M)
00103  M01S00095.files   +++|*         BACKSPACE N RECORDS ON FILE F
00104  M01S00096.files   +++|*         WITH FILE MODE *M*.
00105  M01S00097.files   +++|
00106  M01S00098.files   +++|
00107  M01S00099.files   +++| BKSP     SB2    -1          PROCESS F,X,M ARGUMENTS
00108  M01S00100.files   +++|          RJ     ARG
00109  M01S00001.274l797 +++|          OPEN   F,READNR,R
00110  M01S00101.files   +++|          SKIPB  F,X0,R
00111  M01S00102.files   +++|          EQ     SKF2        RESET FILE MODE
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  M01S00103.files   +++| COMMON   SPACE  4
00125  M01S00104.files   +++|***       COMMON (F1,F2,...,FN)
00126  M01S00105.files   +++|*         FOR FILES FN, THE FOLLOWING OPERATION IS PERFORMED.
00127  M01S00106.files   +++|*         IF FILE FN IS NOT ASSIGNED TO THE JOB, *COMMON* FILE FN
00128  M01S00107.files   +++|*         IS ASSIGNED TO THE JOB.
00129  M01S00108.files   +++|*         IF FILE FN IS ALREADY ASSIGNED TO THE JOB, NO ACTION IS
00130  M01S00109.files   +++|*         TAKEN.
00131  M01S00110.files   +++|
00132  M01S00111.files   +++|
00133  M01S00112.files   +++| COMMON   SB2    1           CHECK SINGLE ARGUMENTS
00134  M01S00113.files   +++|          RJ     ARG
00135  M01S00114.files   +++|          SB5    COM         SET COMMON ENTRY
00136  M01S00115.files   +++|          EQ     FILES
00137  M01S00116.files   +++|
00138  M01S00117.files   +++| COM      ASSIGN F
00139  M01S00118.files   +++|          EQ     FIL1
Line S00119 Modification History
M01 (Added by) files
M02 (Updated by) files2
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00119.files2  ---|          LOC    0
Line S00120 Modification History
M01 (Added by) files
M02 (Updated by) files2
Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00120.files2  ---|          VFD    12/2HPR,12/,12/2HPR,3/0,3/,18/FRDC
Line S00121 Modification History
M01 (Added by) files
M02 (Updated by) files2
Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00121.files2  ---|          VFD    12/2HPH,12/,12/2HPH,3/0,3/,18/FRDC
Line S00122 Modification History
M01 (Added by) files
M02 (Updated by) files2
Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00122.files2  ---|          VFD    12/2HPB,12/,12/2HPB,3/0,3/,18/FRDC
Line S00123 Modification History
M01 (Added by) files
M02 (Updated by) files2
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00123.files2  ---|          VFD    12/2HP8,12/,12/2HP8,3/0,3/,18/FRDC
Line S00124 Modification History
M01 (Added by) files
M02 (Updated by) files2
Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00124.files2  ---|          VFD    12/2HP9,12/,12/2HPH,3/P9FR,3/,18/FREC+FRDC
Line S00125 Modification History
M01 (Added by) files
M02 (Updated by) files2
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00125.files2  ---|          CON    0           END OF TABLE
Line S00126 Modification History
M01 (Added by) files
M02 (Updated by) files2
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00126.files2  ---|          LOC    *O
00148  M01S00127.files   +++| EVICT    SPACE  4
00149  M01S00128.files   +++|***       EVICT(F1,F2,...,FN)
00150  M01S00129.files   +++|*         EVICT FILES FN.
00151  M01S00130.files   +++|
00152  M01S00131.files   +++|
00153  M01S00132.files   +++| EVICT    SB2    1           CHECK SINGLE ARGUMENTS
00154  M01S00133.files   +++|          RJ     ARG
00155  M01S00134.files   +++|          SB5    EVI         SET EVICT ENTRY
00156  M01S00135.files   +++|          JP     FILES
00157  M01S00136.files   +++|
00158  M01S00137.files   +++| EVI      EVICT  A6,R
00159  M01S00138.files   +++|          JP     FIL1        PROCESS NEXT FILE
00160  M01S00139.files   +++| LOCK     SPACE  4
00161  M01S00140.files   +++|***       LOCK (F1,F2,...,FN)
00162  M01S00141.files   +++|*         LOCK FILES FN.
00163  M01S00142.files   +++|
00164  M01S00143.files   +++|
00165  M01S00144.files   +++| LOCK     SB2    1           CHECK SINGLE ARGUMENTS
00166  M01S00145.files   +++|          RJ     ARG
00167  M01S00146.files   +++|          SB5    LCK         SET LOCK ENTRY
00168  M01S00147.files   +++|          EQ     FILES
00169  M01S00148.files   +++|
00170  M01S00149.files   +++| LCK      LOCK   A6,R
00171  M01S00150.files   +++|          EQ     FIL1        PROCESS NEXT FILE
00172  M01S00151.files   +++| PRIMARY  SPACE  4,2
00173  M01S00152.files   +++|***       PRIMARY (F)
00174  M01S00153.files   +++|*         MAKE FILE F USER S NEW PRIMARY FILE.
00175  M01S00154.files   +++|
00176  M01S00155.files   +++|
00177  M01S00156.files   +++| PRIMARY  SB2    1           CHECK SINGLE ARGUMENT
00178  M01S00157.files   +++|          RJ     ARG
00179  M01S00158.files   +++|          NE     B1,B7,ERR   IF MORE THAN 1 ARGUMENT SPECIFIED
00180  M01S00159.files   +++|          SB5    PRI
00181  M01S00160.files   +++|          EQ     FILES
00182  M01S00161.files   +++|
00183  M01S00162.files   +++| PRI      PRIMARY F
00184  M01S00163.files   +++|          EQ     FIL1
00185  M01S00164.files   +++| RENAME   SPACE  4
00186  M01S00165.files   +++|***       RENAME (N1=F1,N2=F2,...,NI=FI)
00187  M01S00166.files   +++|*         RENAME FILES FN TO NN.
00188  M01S00167.files   +++|*         IF FILE NN WAS PREVIOUSLY DEFINED, THAT FILE WILL BE DROPPED
00189  M01S00168.files   +++|*         FROM THE JOB.
00190  M01S00169.files   +++|
00191  M01S00170.files   +++|
00192  M01S00171.files   +++| RENAME   SB2    2           CHECK EQUIVALENCED ARGUMENTS
00193  M01S00172.files   +++|          RJ     ARG
00194  M01S00173.files   +++|          SB6    B1          BEGIN WITH SECOND NAME
00195  M01S00174.files   +++|          SB7    B7+B1
00196  M01S00175.files   +++|          SB5    REN         SET RENAME ENTRY
00197  M01S00176.files   +++|          EQ     FILES
00198  M01S00177.files   +++|
00199  M01S00178.files   +++| REN      SA4    A6          SAVE OLD NAME
00200  M01S00179.files   +++|          SA1    A5-B1       SET NEW NAME
00201  M01S00180.files   +++|          BX7    X1
00202  M01S00181.files   +++|          SA7    A6
00203  M01S00182.files   +++|          SA1    F           SET NEW NAME
00204  M01S00183.files   +++|          BX6    X4          SET OLD NAME
00205  M01S00184.files   +++|          LX7    X1
00206  M01S00185.files   +++|          SA6    A1
00207  M01S00186.files   +++|          SA7    F+6
00208  M01S00187.files   +++|          RENAME A6,,R
00209  M01S00188.files   +++|          SB6    B6+B1
00210  M01S00189.files   +++|          EQ     FIL1        PROCESS NEXT FILE
00211  M01S00190.files   +++| SKIPEI   SPACE  4
00212  M01S00191.files   +++|***       SKIPEI (F)
00213  M01S00192.files   +++|*         SKIP TO END OF INFORMATION ON FILE F (MASS STORAGE ONLY).
00214  M01S00193.files   +++|
00215  M01S00194.files   +++|
00216  M01S00195.files   +++| SKIPEI   SB2    B0          PROCESS F,X ARGUMENTS
00217  M01S00196.files   +++|          RJ     ARG
00218  M01S00197.files   +++|          NZ     B7,ERR      ERROR IF MORE THAN 1 ARGUMENT
00219  M01S00002.274l797 +++|          OPEN   F,READNR,R
00220  M01S00198.files   +++|          SKIPEI F,R
00221  M01S00199.files   +++|          EQ     FIL2
00222  M01S00200.files   +++| SKIPF    SPACE  4
00223  M01S00201.files   +++|***       SKIPF  (F,N,M)
00224  M01S00202.files   +++|*         SKIP N FILES FORWARD ON FILE F.
00225  M01S00203.files   +++|*         WITH FILE MODE *M*.
00226  M01S00204.files   +++|
00227  M01S00205.files   +++|
00228  M01S00206.files   +++| SKIPF    SB2    -1          PROCESS F,X,M ARGUMENTS
00229  M01S00207.files   +++|          RJ     ARG
00230  M01S00003.274l797 +++|          OPEN   F,READNR,R
00231  M01S00208.files   +++| SKF1     SKIPFF F,X0,R
00232  M01S00209.files   +++| SKF2     SA1    F           RESET FILE MODE
00233  M01S00210.files   +++|          SX4    3
00234  M01S00211.files   +++|          MX0    42
00235  M01S00212.files   +++|          BX6    X0*X1
00236  M01S00213.files   +++|          BX6    X6+X4
00237  M01S00214.files   +++|          SA6    A1
00238  M01S00215.files   +++|          EQ     FIL2
00239  M01S00216.files   +++| SKIPFB   SPACE  4
00240  M01S00217.files   +++|***       SKIPFB (F,N,M)
00241  M01S00218.files   +++|*         SKIP N FILES BACKWARD ON FILE F.
00242  M01S00219.files   +++|*         WITH FILE MODE *M*.
00243  M01S00220.files   +++|
00244  M01S00221.files   +++|
00245  M01S00222.files   +++| SKIPFB   SB2    -1          PROCESS F,X,M ARGUMENTS
00246  M01S00223.files   +++|          RJ     ARG
00247  M01S00004.274l797 +++|          OPEN   F,READNR,R
00248  M01S00224.files   +++| SKB1     SKIPFB F,X0,R
00249  M01S00225.files   +++|          EQ     SKF2
00250  M01S00226.files   +++| SKIPR    SPACE  4
00251  M01S00227.files   +++|***       SKIPR  (F,N,L,M)
00252  M01S00228.files   +++|*         SKIP N RECORDS FORWARD ON FILE F.
00253  M01S00229.files   +++|*         WITH EOR LEVEL *L*, ASSUMED OCTAL, AND/OR FILE MODE *M*.
00254  M01S00230.files   +++|
00255  M01S00231.files   +++|
Line S00232 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00256  M02S00232.files1  ---| SKIPR    SB2    -1          PROCESS F,X,L,M ARGUMENTS
00257  M01S00002.files1  +++| SKIPR    SB2    -2          PROCESS F,X,L,M ARGUMENTS
00258  M01S00233.files   +++|          RJ     ARG
00259  M01S00005.274l797 +++|          BX4    X7          SAVE LEVEL NUMBER
00260  M01S00006.274l797 +++|          OPEN   F,READNR,R
00261  M01S00007.274l797 +++|          BX7    X4          RESTORE LEVEL NUMBER
00262  M01S00234.files   +++| SKR1     SX2    F
00263  M01S00235.files   +++|          LX0    18
00264  M01S00236.files   +++|          BX2    X2+X0
00265  M01S00237.files   +++|          LX7    14
00266  M01S00238.files   +++|          SX6    240B
00267  M01S00239.files   +++|          BX7    X7+X6
00268  M01S00240.files   +++|          MX6    60
00269  M01S00241.files   +++|          BX7    X7-X6
00270  M01S00242.files   +++|          RJ     =XCIO=
00271  M01S00243.files   +++|          EQ     SKF2
00272  M01S00244.files   +++| UNLOCK   SPACE  4
00273  M01S00245.files   +++|***       UNLOCK (F1,F2,...,FN)
00274  M01S00246.files   +++|*         UNLOCK FILES FN.
00275  M01S00247.files   +++|
00276  M01S00248.files   +++|
00277  M01S00249.files   +++| UNLOCK   SB2    1           CHECK SINGLE ARGUMENTS
00278  M01S00250.files   +++|          RJ     ARG
00279  M01S00251.files   +++|          SB5    ULK         SET LOCK ENTRY
00280  M01S00252.files   +++|          EQ     FILES
00281  M01S00253.files   +++|
00282  M01S00254.files   +++| ULK      UNLOCK A6,R
00283  M01S00255.files   +++|          EQ     FIL1        PROCESS NEXT FILE
00284  M01S00256.files   +++| WRITEF   SPACE  4
00285  M01S00257.files   +++|***       WRITEF(F,N)
00286  M01S00258.files   +++|*         WRITE N FILE MARKS ON FILE F.
00287  M01S00259.files   +++|
00288  M01S00260.files   +++|
00289  M01S00261.files   +++| WRITEF   SB2    B0          PROCESS F,X ARGUMENTS
00290  M01S00262.files   +++|          RJ     ARG
00291  M01S00263.files   +++| WRF1     WRITEF F,R
00292  M01S00264.files   +++|          SX0    X0-1
00293  M01S00265.files   +++|          NZ     X0,WRF1     LOOP FOR ALL FILES
00294  M01S00266.files   +++|          EQ     FIL2
00295  M01S00267.files   +++| WRITER   SPACE  4
00296  M01S00268.files   +++|***       WRITER (F,N)
00297  M01S00269.files   +++|*         WRITE N EMPTY RECORDS ON FILE F.
00298  M01S00270.files   +++|
00299  M01S00271.files   +++|
00300  M01S00272.files   +++| WRITER   SB2    B0          PROCESS F,X ARGUMENTS
00301  M01S00273.files   +++|          RJ     ARG
00302  M01S00274.files   +++| WRR1     WRITER F,R
00303  M01S00275.files   +++|          SX0    X0-1
00304  M01S00276.files   +++|          NZ     X0,WRR1     LOOP FOR ALL RECORDS
00305  M01S00277.files   +++|          EQ     FIL2
00306  M01S00278.files   +++|          TITLE  SUBROUTINES.
00307  M01S00279.files   +++| AMO      SPACE  4
00308  M01S00280.files   +++| ARG      SPACE  4
00309  M01S00281.files   +++|**        ARG - PROCESS ARGUMENTS.
00310  M01S00282.files   +++|*
Line S00283 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00311  M02S00283.files1  ---|*         ENTRY  (B2) = -1   IF F,X,L,M FORM
Line S00284 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00312  M02S00284.files1  ---|*                (B2) = 0    IF F,X FORM
Line S00285 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00313  M02S00285.files1  ---|*                (B2) = 1 IF SINGLE VALUE ARGUMENT
Line S00286 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00314  M02S00286.files1  ---|*                (B2) = 2 IF EQUIVALENCED ARGUMENT
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  M01S00287.files   +++|*
Line S00288 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00288.files1  ---|*         EXIT   (B1) = 1
Line S00289 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00322  M02S00289.files1  ---|*                (B6) = 0
Line S00290 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00323  M02S00290.files1  ---|*                (B7) = ARGUMENT COUNT
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  M01S00291.files   +++|
00332  M01S00292.files   +++|
00333  M01S00293.files   +++| ARG      PS     0           ENTRY/EXIT
00334  M01S00294.files   +++|          SB1    1           (B1) = CONSTANT 1
00335  M01S00295.files   +++|          SA1    ACTR        CHECK ARGUMENT COUNT
00336  M01S00296.files   +++|          SB3    X1
Line S00297 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00337  M02S00297.files1  ---|          ZR     B3,ERR
00338  M01S00015.files1  +++|          ZR     B3,ERR      IF NO ARGUMENTS
00339  M01S00298.files   +++|          SB7    X1
00340  M01S00299.files   +++|          MX0    42
Line S00300 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00300.files1  ---|          SA5    B1+B1       FIRST ARGUMENT
00342  M01S00016.files1  +++|          SA5    ARGR        GET FIRST ARGUMENT
00343  M01S00301.files   +++|          SB6    B0
Line S00302 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00302.files1  ---|          SX2    B1
Line S00303 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00303.files1  ---|          SB4    3
Line S00304 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00304.files1  ---|          SB5    B1          PRESET SPECIAL FORM INDICATOR
Line S00305 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00305.files1  ---|          SX6    B0
Line S00306 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00306.files1  ---|          GE     B2,ARG0     IF NOT F,X,L,M FORM
Line S00307 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00307.files1  ---|          SX6    B1
Line S00308 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00308.files1  ---|          EQ     ARG3
Line S00309 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00309.files1  ---| ARG0     NZ     B2,ARG1     IF NOT F,X FORM
Line S00310 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00310.files1  ---|
Line S00311 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00311.files1  ---|*         PROCESS F,X ARGUMENT FORM.
Line S00312 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00312.files1  ---|
Line S00313 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00313.files1  ---| ARG3     SX7    X5-1R=
Line S00314 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00314.files1  ---|          ZR     X7,ERR      ERROR IF EQUIVALENCE FORM
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  M01S00315.files   +++|          SX2    3           STORE FILE NAME
00368  M01S00316.files   +++|          BX7    X5+X2
00369  M01S00317.files   +++|          SX0    B1          PRESET COUNT = 1
Line S00318 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00318.files1  ---|          SB7    B7-B1
Line S00319 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00371  M02S00319.files1  ---|          SA7    F
00372  M01S00027.files1  +++|          SA7    F           SET FILE NAME IN FET
00373  M01S00028.files1  +++|          SB7    B7-B1
00374  M01S00320.files   +++|          BX7    X7-X7       SET LEVEL TO ZERO
00375  M01S00321.files   +++|          ZR     B7,ARG      RETURN IF 1 ARGUMENT
Line S00322 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00322.files1  ---|          ZR     X6,ARG3.5   IF NOT F,X,L,M FORM
Line S00323 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00323.files1  ---|          SA6    ARGA
Line S00324 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00324.files1  ---|          EQ     ARG3.6
Line S00325 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00379  M02S00325.files1  ---| ARG3.5   NE     B7,B1,ERR   IF MORE THAN 2 ARGUMENTS
Line S00326 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00380  M02S00326.files1  ---| ARG3.6   SA5    A5+B1       CONVERT COUNT
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  M01S00327.files   +++|          MX0    42          CHECK FOR DEFAULT COUNT
00385  M01S00328.files   +++|          SX6    B1          SET DEFAULT COUNT OF 1
00386  M01S00329.files   +++|          BX2    X0*X5
Line S00330 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00330.files1  ---|          ZR     X2,ARG3.61  IF COUNT NOT SPECIFIED
Line S00331 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00331.files1  ---|          SB7    B1          ASSUME DECIMAL BASE
00389  M01S00032.files1  +++|          ZR     X2,ARG3     IF COUNT NOT SPECIFIED
00390  M01S00033.files1  +++|          SB7    1           ASSUME DECIMAL BASE
00391  M01S00332.files   +++|          RJ     DXB
Line S00333 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00333.files1  ---|          NZ     X4,ERR
Line S00334 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00334.files1  ---|          ZR     X6,ERR      ERROR IF ZERO
Line S00335 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00335.files1  ---| ARG3.61  BX0    X6          SET COUNT
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  M01S00336.files   +++|          SA6    ARGB
00399  M01S00337.files   +++|          BX7    X7-X7       SET LEVEL TO ZERO
00400  M01S00338.files   +++|          MX2    42
00401  M01S00339.files   +++|          BX3    X2*X6
00402  M01S00340.files   +++|          NZ     X3,ERR      IF TOO LARGE
Line S00341 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00341.files1  ---|          SA1    ARGA        CHECK IF F,X,L,M FORM
Line S00342 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00342.files1  ---|          ZR     X1,ARG      IF NOT
00405  M01S00037.files1  +++|          SA3    ARGA
00406  M01S00038.files1  +++|          ZR     X3,ARG      IF F,X FORM
00407  M01S00343.files   +++|          SA1    ACTR
Line S00344 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00344.files1  ---|          SX2    X1-5
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  M01S00345.files   +++|          PL     X2,ERR      IF MORE THAN 4 ARGUMENTS
Line S00346 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00346.files1  ---|          SX2    X1-2
00418  M01S00046.files1  +++| ARG5     SX2    X1-2
00419  M01S00347.files   +++|          ZR     X2,ARG      IF ONLY 2 ARGUMENTS
Line S00348 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00348.files1  ---|          SA5    4           GET THIRD ARGUMENT
Line S00349 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00349.files1  ---|          SB7    B0          SET OCTAL MODE
00422  M01S00047.files1  +++|          SA5    A5+B1       GET THIRD ARGUMENT
00423  M01S00048.files1  +++|          SB7    B0          SET OCTAL MODE
00424  M01S00350.files   +++|          RJ     DXB
00425  M01S00351.files   +++|          SA2    ARGB        RESET COUNT
Line S00352 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00352.files1  ---|          SX0    X2
Line S00353 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00353.files1  ---|          NZ     X4,ARG3.65  IF CONVERSION ERROR
00428  M01S00049.files1  +++|          SX0    X2+
00429  M01S00050.files1  +++|          NZ     X4,ARG6     IF CONVERSION ERROR
00430  M01S00354.files   +++|          MX4    -4
00431  M01S00355.files   +++|          BX7    -X4*X6
00432  M01S00356.files   +++|          SA1    ACTR
00433  M01S00357.files   +++|          SX1    X1-4
00434  M01S00358.files   +++|          NG     X1,ARG      IF ONLY THREE ARGUMENTS
Line S00359 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00359.files1  ---|          SA5    5           GET FOURTH ARGUMENT
Line S00360 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00360.files1  ---| ARG3.65  SA5    A5
00437  M01S00051.files1  +++|          SA5    A5+1        GET FOURTH ARGUMENT
00438  M01S00052.files1  +++| ARG6     SA5    A5+
00439  M01S00361.files   +++|          SX4    1LC
00440  M01S00362.files   +++|          LX4    42
00441  M01S00363.files   +++|          IX4    X5-X4
Line S00364 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00364.files1  ---|          ZR     X4,ARG3.7   IF CODED
Line S00365 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00365.files1  ---|          SX4    B1          BINARY
Line S00366 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00366.files1  ---| ARG3.7   LX4    1           SET MODE BIT IN FET
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  M01S00367.files   +++|          SA1    F
00453  M01S00368.files   +++|          SX2    B1+B1
00454  M01S00369.files   +++|          BX6    -X2*X1
00455  M01S00370.files   +++|          BX6    X6+X4
00456  M01S00371.files   +++|          SA6    A1+
00457  M01S00372.files   +++|          EQ     ARG
00458  M01S00373.files   +++|
00459  M01S00374.files   +++|*         PROCESS MULTI FILE FORM.
00460  M01S00375.files   +++|
Line S00376 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00376.files1  ---| ARG1     EQ     B2,B1,ARG2  IF SINGLE ARGUMENT REQUESTED
00462  M01S00060.files1  +++| ARG8     EQ     B2,B1,ARG9  IF SINGLE ARGUMENT REQUESTED
00463  M01S00377.files   +++|          SX7    X5-1R=
00464  M01S00378.files   +++|          NZ     X7,ERR      ERROR IF NO EQUIVALENCE
00465  M01S00379.files   +++|          BX6    X0*X5
00466  M01S00380.files   +++|          IX7    X6+X2       ADD COMPLETE BIT
00467  M01S00381.files   +++|          ZR     X6,ERR      ERROR IF BLANK NAME
Line S00382 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00382.files1  ---|          SA7    A5
Line S00383 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00383.files1  ---|          SB3    B3-B1       NEXT ARGUMENT
00470  M01S00061.files1  +++|          SA7    A5+
00471  M01S00062.files1  +++|          SB3    B3-1        NEXT ARGUMENT
00472  M01S00384.files   +++|          SA5    A5+B1
00473  M01S00385.files   +++|          BX5    X0*X5
Line S00386 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00386.files1  ---| ARG2     ZR     X5,ERR      ERROR IF BLANK NAME
00475  M01S00063.files1  +++| ARG9     ZR     X5,ERR      IF BLANK NAME
00476  M01S00387.files   +++|          BX7    X5+X2       ADD COMPLETE BIT
00477  M01S00388.files   +++|          SA7    A5
00478  M01S00389.files   +++|          SB3    B3-B1       DECREMENT ARGUMENT COUNT
00479  M01S00390.files   +++|          SA5    A5+B1       NEXT ARGUMENT
Line S00391 Modification History
M01 (Added by) files
M02 (Updated by) files1
Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00391.files1  ---|          NZ     B3,ARG1     LOOP FOR ALL ARGUMENTS
00481  M01S00064.files1  +++|          NZ     B3,ARG8     IF MORE ARGUMENTS TO PROCESS
00482  M01S00392.files   +++|          EQ     ARG         RETURN
00483  M01S00393.files   +++|
00484  M01S00394.files   +++|
00485  M01S00395.files   +++| ARGA     CON    0           FORM OF ARGUMENTS FLAG
00486  M01S00396.files   +++| ARGB     CON    0           COUNT HOLD
00487  M01S00397.files   +++| ERR      SPACE  4
00488  M01S00398.files   +++|**        ERR - PROCESS ARGUMENT ERROR.
00489  M01S00399.files   +++|
00490  M01S00400.files   +++|
00491  M01S00401.files   +++| ERR      BSS    0
00492  M01S00402.files   +++|          MESSAGE (=C* ERROR IN FILE ARGUMENTS.*)
00493  M01S00403.files   +++| ERR1     ABORT
00494  M01S00404.files   +++| FET      SPACE  4
00495  M01S00008.274l797 +++| ODEBL    EQU    20B         OPTICAL DISK EXTENSION BUFFER LENGTH
00496  M01S00405.files   +++| F        BSS    0
Line S00406 Modification History
M01 (Added by) files
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00406.274l797 ---| FILE     FILEB  BUF,BUFL,(FET=8)
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  M01S00407.files   +++|
00507  M01S00408.files   +++| BUF      BSS    0
00508  M01S00409.files   +++| BUFL     EQU    1
00509  M01S00410.files   +++|          SPACE  4
00510  M01S00411.files   +++|*CALL     COMCCIO
00511  M01S00412.files   +++|*CALL     COMCDXB
00512  M01S00413.files   +++|*CALL     COMCLFM
00513  M01S00414.files   +++|*CALL     COMCSYS
00514  M01S00415.files   +++|          USE    //
00515  M01S00416.files   +++| RFL=     BSS    0
00516  M01S00417.files   +++|          SPACE  4
00517  M01S00418.files   +++|          END
cdc/nos2.source/opl.opl871/deck/files.txt · Last modified: by 127.0.0.1