Common COMCCVI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comccvi +++|          CTEXT  COMCCVI - USER CONTROL LIMIT FORMULAE.
00002  M00S00002.comccvi +++| COMCCVI  SPACE  4

Line S00003 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00003.ns2484  ---|          BASE   MIXED

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.ns2484  +++|          BASE   DECIMAL
00005  M00S00004.comccvi +++|          IF     -DEF,QUAL$,1
00006  M00S00005.comccvi +++|          QUAL   COMCCVI

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00006.comccvi +++| COMCCVI  SPACE  4
00009  M00S00007.comccvi +++|***       COMCCVI - USER CONTROL LIMIT FORMULAE.
00010  M00S00008.comccvi +++|*         R. A. JAPS.        74/09/24.
00011  M00S00009.comccvi +++| COMCCVI  SPACE  4
00012  M00S00010.comccvi +++|***       COMCCVI DEFINES THE FORMULAE FOR CONVERTING FROM AN INDEX
00013  M00S00011.comccvi +++|*         VALUE INTO THE ACTUAL LIMIT VALUE FOR THE FOLLOWING SYSTEM
00014  M00S00012.comccvi +++|*         RESOURCES OR ACTIVITIES THAT INSTALLATIONS MAY CONTROL -
00015  M00S00013.comccvi +++|*                DT   NUMBER OF DETACHED JOBS
00016  M00S00014.comccvi +++|*                DB   DEFERRED BATCH JOBS
00017  M00S00015.comccvi +++|*                TL   TIME LIMIT (UNITS OF 10B)
00018  M00S00016.comccvi +++|*                CM   FIELD LENGTH
00019  M00S00017.comccvi +++|*                PT   UNITS PLOTTED
00020  M00S00018.comccvi +++|*                CP   CARDS PUNCHED
00021  M00S00019.comccvi +++|*                LP   LINES PRINTED
00022  M00S00020.comccvi +++|*                MS   MASS STORAGE PRUS
00023  M00S00021.comccvi +++|*                DF   DAYFILE MESSAGES
00024  M00S00022.comccvi +++|*                CC   CONTROLCARD STATMENTS

Line S00023 Modification History
`M01` (Removed by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00025  M01S00023.252l678 ---|*                EC   ECS FIELD LENTGH

Line S00001 Modification History
`M01` (Added by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00001.252l678 +++|*                EC   EXTENDED MEMORY FIELD LENGTH
00027  M00S00024.comccvi +++|*                SL   SRU LIMIT (UNITS OF 10B)
00028  M00S00025.comccvi +++|*                DS   DIRECT ACCESS FILE SIZE
00029  M00S00026.comccvi +++|*                FS   INDIRECT ACCESS FILE SIZE
00030  M00S00027.comccvi +++|*                CS   CUMULATIVE FILE SIZE
00031  M00S00028.comccvi +++|*                FC   PERMANENT FILE COUNT
00032  M00S00029.comccvi +++|*
00033  M00S00030.comccvi +++|*
00034  M00S00031.comccvi +++|*         THE FORMULA WILL BE ASSEMBLED IF XXI$ IS DEFINED IN THE
00035  M00S00032.comccvi +++|*         CALLING PROGRAM, WHERE XX IS ONE OF THE LIMIT MNEMONICS.
00036  M00S00033.comccvi +++|*         FOR EXAMPLE, THE DEFINITION NFI$ WILL CAUSE THE FORMULA
00037  M00S00034.comccvi +++|*         FOR THE NUMBER OF LOCAL FILES TO BE ASSEMBLED.
00038  M00S00035.comccvi +++|*
00039  M00S00036.comccvi +++|*         ALL FORMULAE HAVE THE FOLLOWING ENTRY/EXIT CONDITIONS.
00040  M00S00037.comccvi +++|*
00041  M00S00038.comccvi +++|*         ENTRY  (X1) = INDEX VALUE RIGHT JUSTIFIED.
00042  M00S00039.comccvi +++|*
00043  M00S00040.comccvi +++|*         EXIT   (X1) = LIMIT VALUE.
00044  M00S00041.comccvi +++|*                (X1) .LT. 0,  IF VALUE IS UNLIMITED.
00045  M00S00042.comccvi +++|*
00046  M00S00043.comccvi +++|*         USES   X - 0, 1, 2.
00047  M00S00044.comccvi +++|*                A - 1.

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

Seq #  *Modification Id* Act 
----------------------------+
00048  M01S00002.ns2484  +++|*                B - 2.
00049  M00S00045.comccvi +++|*
00050  M00S00046.comccvi +++|*
00051  M00S00047.comccvi +++|*         NOTE - THIS COMMON DECK REQUIRES THAT *COMSACC* AND *COMSPFM*
00052  M00S00048.comccvi +++|*         BE PRESENT SO THAT LIMIT BASE CONSTANTS AND PERMANENT FILE
00053  M00S00049.comccvi +++|*         CONSTANTS ARE AVAILABLE.
00054  M00S00050.comccvi +++| CCI      SPACE  4,3
00055  M00S00051.comccvi +++|**        CCI - CONTROL CARD STATMENTS.
00056  M00S00052.comccvi +++|*

Line S00053 Modification History
`M01` (Removed by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00053.ns2388  ---|*         FORMULA IS -  (I * 20B) + KCCI

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

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00001.ns2388  +++|*         FORMULA IS -  (I * 100B) + KCCI
00059  M00S00054.comccvi +++|
00060  M00S00055.comccvi +++|
00061  M00S00056.comccvi +++| CCI      IF     DEF,CCI$
00062  M00S00057.comccvi +++|

Line S00058 Modification History
`M01` (Removed by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00058.ns2388  ---| CCI1     LX1    4           SET VALUE

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

Seq #  *Modification Id* Act 
----------------------------+
00064  M01S00002.ns2388  +++| CCI1     LX1    6           SET VALUE
00065  M00S00059.comccvi +++|          SX2    KCCI
00066  M00S00060.comccvi +++|          IX1    X1+X2
00067  M00S00061.comccvi +++|
00068  M00S00062.comccvi +++| CCI      SUBR               ENTRY/EXIT
00069  M00S00063.comccvi +++|          MX0    -6
00070  M00S00064.comccvi +++|          BX1    -X0*X1

Line S00065 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00071  M01S00065.ns2484  ---|          SX2    X1-77

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

Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00003.ns2484  +++|          SX2    X1-77B
00073  M00S00066.comccvi +++|          NZ     X2,CCI1     IF NOT UNLIMITED
00074  M00S00067.comccvi +++|          SX1    -1
00075  M00S00068.comccvi +++|          EQ     CCIX        RETURN
00076  M00S00069.comccvi +++|
00077  M00S00070.comccvi +++| CCI      ENDIF
00078  M00S00071.comccvi +++| CMI      SPACE  4,3
00079  M00S00072.comccvi +++|**        CMI - CM FIELD LENGTH.
00080  M00S00073.comccvi +++|*
00081  M00S00074.comccvi +++|*         FORMULA IS -  (I * 40B) + KCMI
00082  M00S00075.comccvi +++|
00083  M00S00076.comccvi +++|
00084  M00S00077.comccvi +++| CMI      IF     DEF,CMI$
00085  M00S00078.comccvi +++|
00086  M00S00079.comccvi +++| CMI1     LX1    5           SET VALUE
00087  M00S00080.comccvi +++|          SX2    KCMI
00088  M00S00081.comccvi +++|          IX1    X1+X2
00089  M00S00082.comccvi +++|
00090  M00S00083.comccvi +++| CMI      SUBR               ENTRY/EXIT
00091  M00S00084.comccvi +++|          MX0    -6
00092  M00S00085.comccvi +++|          BX1    -X0*X1

Line S00086 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00093  M01S00086.ns2484  ---|          SX2    X1-77

Line S00004 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00094  M01S00004.ns2484  +++|          SX2    X1-77B
00095  M00S00087.comccvi +++|          NZ     X2,CMI1     IF NOT UNLIMITED
00096  M00S00088.comccvi +++|          SX1    -1
00097  M00S00089.comccvi +++|          EQ     CMIX        RETURN
00098  M00S00090.comccvi +++|
00099  M00S00091.comccvi +++| CMI      ENDIF
00100  M00S00092.comccvi +++| CPI      SPACE  4,3
00101  M00S00093.comccvi +++|**        CPI - CARDS PUNCHED.
00102  M00S00094.comccvi +++|*
00103  M00S00095.comccvi +++|*         FORMULA IS -  (I * 100B) + KCPI
00104  M00S00096.comccvi +++|
00105  M00S00097.comccvi +++|
00106  M00S00098.comccvi +++| CPI      IF     DEF,CPI$
00107  M00S00099.comccvi +++|
00108  M00S00100.comccvi +++| CPI1     LX1    6           SET VALUE
00109  M00S00101.comccvi +++|          SX2    KCPI
00110  M00S00102.comccvi +++|          IX1    X1+X2
00111  M00S00103.comccvi +++|
00112  M00S00104.comccvi +++| CPI      SUBR               ENTRY/EXIT
00113  M00S00105.comccvi +++|          MX0    -6
00114  M00S00106.comccvi +++|          BX1    -X0*X1

Line S00107 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00115  M01S00107.ns2484  ---|          SX2    X1-77

Line S00005 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00116  M01S00005.ns2484  +++|          SX2    X1-77B
00117  M00S00108.comccvi +++|          NZ     X2,CPI1     IF NOT UNLIMITED
00118  M00S00109.comccvi +++|          SX1    -1
00119  M00S00110.comccvi +++|          EQ     CPIX        RETURN
00120  M00S00111.comccvi +++|
00121  M00S00112.comccvi +++| CPI      ENDIF
00122  M00S00113.comccvi +++| CSI      SPACE  4,3
00123  M00S00114.comccvi +++|**        CSI - CUMULATIVE FILE SIZE.
00124  M00S00115.comccvi +++|*
00125  M00S00116.comccvi +++|*         VALUE FOUND BY TABLE LOOK-UP METHOD.
00126  M00S00117.comccvi +++|
00127  M00S00118.comccvi +++|
00128  M00S00119.comccvi +++| CSI      IF     DEF,CSI$
00129  M00S00120.comccvi +++|
00130  M00S00121.comccvi +++| CSI      SUBR               ENTRY/EXIT
00131  M00S00122.comccvi +++|          MX0    -3
00132  M00S00123.comccvi +++|          BX1    -X0*X1
00133  M00S00124.comccvi +++|          SA1    X1+THCS
00134  M00S00125.comccvi +++|          EQ     CSIX        RETURN
00135  M00S00126.comccvi +++|
00136  M00S00127.comccvi +++|
00137  M00S00128.comccvi +++|**        THCS - EQUIVALENCE TABLE FOR CUMULATIVE NUMBER OF
00138  M00S00129.comccvi +++|*         SECTORS FOR ALL INDIRECT ACCESS FILES.
00139  M00S00130.comccvi +++|
00140  M00S00131.comccvi +++| THCS     BSS    0
00141  M00S00132.comccvi +++|          LOC    0
00142  M00S00133.comccvi +++|          CON    0

Line S00134 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00143  M01S00134.ns2484  ---|          CON    CSRNG1*100
00144  M01S00135.ns2484  ---|          CON    CSRNG2*100
00145  M01S00136.ns2484  ---|          CON    CSRNG3*100
00146  M01S00137.ns2484  ---|          CON    CSRNG4*100
00147  M01S00138.ns2484  ---|          CON    CSRNG5*100
00148  M01S00139.ns2484  ---|          CON    CSRNG6*100

Line S00006 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00149  M01S00006.ns2484  +++|          CON    CSRNG1*100B
00150  M01S00007.ns2484  +++|          CON    CSRNG2*100B
00151  M01S00008.ns2484  +++|          CON    CSRNG3*100B
00152  M01S00009.ns2484  +++|          CON    CSRNG4*100B
00153  M01S00010.ns2484  +++|          CON    CSRNG5*100B
00154  M01S00011.ns2484  +++|          CON    CSRNG6*100B
00155  M00S00140.comccvi +++|          CON    -1
00156  M00S00141.comccvi +++|          LOC    *O
00157  M00S00142.comccvi +++|
00158  M00S00143.comccvi +++| CSI      ENDIF
00159  M00S00144.comccvi +++| DBI      SPACE  4,3
00160  M00S00145.comccvi +++|**        DBI - DEFERRED BATCH JOB.
00161  M00S00146.comccvi +++|*

Line S00147 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00162  M01S00147.ns2484  ---|*         FORMULA IS -  (I * 2)

Line S00012 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00163  M01S00012.ns2484  +++|*         FORMULA IS -  (2 ** I)

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

Seq #  *Modification Id* Act 
----------------------------+
00164  M01S00001.ns2554  +++|*         EXCEPTION - ENTRY OF ZERO RETURNS ZERO.
00165  M00S00148.comccvi +++|
00166  M00S00149.comccvi +++|
00167  M00S00150.comccvi +++| DBI      IF     DEF,DBI$
00168  M00S00151.comccvi +++|
00169  M00S00152.comccvi +++| DBI      SUBR               ENTRY/EXIT
00170  M00S00153.comccvi +++|          MX0    -3
00171  M00S00154.comccvi +++|          BX1    -X0*X1

Line S00013 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00172  M01S00013.ns2484  +++|          ZR     X1,DBIX     IF ZERO INDEX
00173  M01S00014.ns2484  +++|          SB2    X1
00174  M00S00155.comccvi +++|          SX2    X1-7

Line S00156 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00175  M01S00156.ns2484  ---|          LX1    1           SET VALUE

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

Seq #  *Modification Id* Act 
----------------------------+
00176  M01S00015.ns2484  +++|          SX1    1
00177  M01S00016.ns2484  +++|          LX1    B2,X1       SET VALUE
00178  M00S00157.comccvi +++|          NZ     X2,DBIX     IF NOT UNLIMITED
00179  M00S00158.comccvi +++|          SX1    -1
00180  M00S00159.comccvi +++|          EQ     DBIX        RETURN
00181  M00S00160.comccvi +++|
00182  M00S00161.comccvi +++| DBI      ENDIF
00183  M00S00162.comccvi +++| DFI      SPACE  4,3
00184  M00S00163.comccvi +++|**        DFI - DAYFILE MESSAGES.
00185  M00S00164.comccvi +++|*

Line S00165 Modification History
`M01` (Removed by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00165.ns2388  ---|*         FORMULA IS -  (I * 20B) + KDFI

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

Seq #  *Modification Id* Act 
----------------------------+
00187  M01S00003.ns2388  +++|*         FORMULA IS -  (I * 100B) + KDFI
00188  M00S00166.comccvi +++|
00189  M00S00167.comccvi +++|
00190  M00S00168.comccvi +++| DFI      IF     DEF,DFI$
00191  M00S00169.comccvi +++|

Line S00170 Modification History
`M01` (Removed by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00192  M01S00170.ns2388  ---| DFI1     LX1    4           SET VALUE

Line S00004 Modification History
`M01` (Added by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00004.ns2388  +++| DFI1     LX1    6           SET VALUE
00194  M00S00171.comccvi +++|          SX2    KDFI
00195  M00S00172.comccvi +++|          IX1    X1+X2
00196  M00S00173.comccvi +++|
00197  M00S00174.comccvi +++| DFI      SUBR               ENTRY/EXIT
00198  M00S00175.comccvi +++|          MX0    -6
00199  M00S00176.comccvi +++|          BX1    -X0*X1

Line S00177 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00200  M01S00177.ns2484  ---|          SX2    X1-77

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

Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00017.ns2484  +++|          SX2    X1-77B
00202  M00S00178.comccvi +++|          NZ     X2,DFI1     IF NOT UNLIMITED
00203  M00S00179.comccvi +++|          SX1    -1
00204  M00S00180.comccvi +++|          EQ     DFIX        RETURN
00205  M00S00181.comccvi +++|
00206  M00S00182.comccvi +++| DFI      ENDIF
00207  M00S00183.comccvi +++| DSI      SPACE  4,3
00208  M00S00184.comccvi +++|**        DSI - DIRECT ACCESS FILE SIZE.
00209  M00S00185.comccvi +++|*
00210  M00S00186.comccvi +++|*         VALUE FOUND BY TABLE LOOK-UP METHOD.
00211  M00S00187.comccvi +++|
00212  M00S00188.comccvi +++|
00213  M00S00189.comccvi +++| DSI      IF DEF,DSI$
00214  M00S00190.comccvi +++|
00215  M00S00191.comccvi +++| DSI      SUBR               ENTRY/EXIT
00216  M00S00192.comccvi +++|          MX0    -3
00217  M00S00193.comccvi +++|          BX1    -X0*X1
00218  M00S00194.comccvi +++|          SA1    X1+THDS
00219  M00S00195.comccvi +++|          EQ     DSIX        RETURB
00220  M00S00196.comccvi +++|
00221  M00S00197.comccvi +++|
00222  M00S00198.comccvi +++|**        THDS - EQUIVALENCE TABLE FOR MAXIMUM NUMBER OF SECTORS
00223  M00S00199.comccvi +++|*         FOR ANY SINGLE DIRECT ACCESS PERMANENT FILE.
00224  M00S00200.comccvi +++|
00225  M00S00201.comccvi +++| THDS     BSS    0
00226  M00S00202.comccvi +++|          LOC    0
00227  M00S00203.comccvi +++|          CON    0

Line S00204 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00204.ns2484  ---|          CON    DSRNG1*100
00229  M01S00205.ns2484  ---|          CON    DSRNG2*100
00230  M01S00206.ns2484  ---|          CON    DSRNG3*100
00231  M01S00207.ns2484  ---|          CON    DSRNG4*100
00232  M01S00208.ns2484  ---|          CON    DSRNG5*100
00233  M01S00209.ns2484  ---|          CON    DSRNG6*100

Line S00018 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00234  M01S00018.ns2484  +++|          CON    DSRNG1*100B
00235  M01S00019.ns2484  +++|          CON    DSRNG2*100B
00236  M01S00020.ns2484  +++|          CON    DSRNG3*100B
00237  M01S00021.ns2484  +++|          CON    DSRNG4*100B
00238  M01S00022.ns2484  +++|          CON    DSRNG5*100B
00239  M01S00023.ns2484  +++|          CON    DSRNG6*100B
00240  M00S00210.comccvi +++|          CON    -1
00241  M00S00211.comccvi +++|          LOC    *O
00242  M00S00212.comccvi +++|
00243  M00S00213.comccvi +++| DSI      ENDIF
00244  M00S00214.comccvi +++|**        DTI - NUMBER OF DETACHED JOBS.
00245  M00S00215.comccvi +++|*
00246  M00S00216.comccvi +++|*         FORMULA IS - (I + KDTI).
00247  M00S00217.comccvi +++|
00248  M00S00218.comccvi +++|
00249  M00S00219.comccvi +++| DTI      IF     DEF,DTI$
00250  M00S00220.comccvi +++|
00251  M00S00221.comccvi +++| DTI1     SX2    KDTI        ADD VALUE
00252  M00S00222.comccvi +++|          IX1    X1+X2
00253  M00S00223.comccvi +++|
00254  M00S00224.comccvi +++| DTI      SUBR               ENTRY/EXIT
00255  M00S00225.comccvi +++|          MX0    -6
00256  M00S00226.comccvi +++|          BX1    -X0*X1
00257  M00S00227.comccvi +++|          SX2    X1-77B
00258  M00S00228.comccvi +++|          NZ     X2,DTI1     IF NOT UNLIMITED
00259  M00S00229.comccvi +++|          SX1    -1
00260  M00S00230.comccvi +++|          EQ     DTIX        RETURN
00261  M00S00231.comccvi +++|
00262  M00S00232.comccvi +++| DTI      ENDIF
00263  M00S00233.comccvi +++| ECI      SPACE  4,3

Line S00234 Modification History
`M01` (Removed by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00264  M01S00234.252l678 ---|**        ECI - ECS FIELD LENGTH IN 1000B WORD BLOCKS.

Line S00002 Modification History
`M01` (Added by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00265  M01S00002.252l678 +++|**        ECI - EXTENDED MEMORY FIELD LENGTH IN 1000B WORD BLOCKS.
00266  M00S00235.comccvi +++|*
00267  M00S00236.comccvi +++|*         FORMULA IS - (I * 20B) + KECI
00268  M00S00237.comccvi +++|
00269  M00S00238.comccvi +++|
00270  M00S00239.comccvi +++| ECI      IF     DEF,ECI$
00271  M00S00240.comccvi +++|
00272  M00S00241.comccvi +++| ECI1     LX1    4           SET VALUE
00273  M00S00242.comccvi +++|          SX2    KECI
00274  M00S00243.comccvi +++|          IX1    X1+X2
00275  M00S00244.comccvi +++|
00276  M00S00245.comccvi +++| ECI      SUBR               ENTRY/EXIT
00277  M00S00246.comccvi +++|          MX0    -6
00278  M00S00247.comccvi +++|          BX1    -X0*X1

Line S00248 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00279  M01S00248.ns2484  ---|          SX2    X1-77

Line S00024 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00280  M01S00024.ns2484  +++|          SX2    X1-77B
00281  M00S00249.comccvi +++|          NZ     X2,ECI1     IF NOT UNLIMITED
00282  M00S00250.comccvi +++|          SX1    -1
00283  M00S00251.comccvi +++|          EQ     ECIX        RETURN
00284  M00S00252.comccvi +++|
00285  M00S00253.comccvi +++| ECI      ENDIF
00286  M00S00254.comccvi +++| FCI      SPACE  4,3
00287  M00S00255.comccvi +++|**        FCI - PERMANENT FILE COUNT.
00288  M00S00256.comccvi +++|*
00289  M00S00257.comccvi +++|*         VALUE FOUND BY TABLE LOOK-UP METHOD.
00290  M00S00258.comccvi +++| FCI      IF     DEF,FCI$
00291  M00S00259.comccvi +++|
00292  M00S00260.comccvi +++| FCI      SUBR               ENTRY/EXIT
00293  M00S00261.comccvi +++|          MX0    -3
00294  M00S00262.comccvi +++|          BX1    -X0*X1
00295  M00S00263.comccvi +++|          SA1    X1+THFC
00296  M00S00264.comccvi +++|          EQ     FCIX        RETURN
00297  M00S00265.comccvi +++|
00298  M00S00266.comccvi +++|
00299  M00S00267.comccvi +++|**        THFC - EQUIVALENCE TABLE FOR MAXIMUM NUMBER OF INDIRECT
00300  M00S00268.comccvi +++|*                ACCESS PERMANENT FILES.
00301  M00S00269.comccvi +++|
00302  M00S00270.comccvi +++| THFC     BSS    0
00303  M00S00271.comccvi +++|          LOC    0
00304  M00S00272.comccvi +++|          CON    0

Line S00273 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00305  M01S00273.ns2484  ---|          CON    NFRNG1*10
00306  M01S00274.ns2484  ---|          CON    NFRNG2*10
00307  M01S00275.ns2484  ---|          CON    NFRNG3*10
00308  M01S00276.ns2484  ---|          CON    NFRNG4*10
00309  M01S00277.ns2484  ---|          CON    NFRNG5*10
00310  M01S00278.ns2484  ---|          CON    NFRNG6*10

Line S00025 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00311  M01S00025.ns2484  +++|          CON    NFRNG1*10B
00312  M01S00026.ns2484  +++|          CON    NFRNG2*10B
00313  M01S00027.ns2484  +++|          CON    NFRNG3*10B
00314  M01S00028.ns2484  +++|          CON    NFRNG4*10B
00315  M01S00029.ns2484  +++|          CON    NFRNG5*10B
00316  M01S00030.ns2484  +++|          CON    NFRNG6*10B
00317  M00S00279.comccvi +++|          CON    -1
00318  M00S00280.comccvi +++|          LOC    *O
00319  M00S00281.comccvi +++|
00320  M00S00282.comccvi +++| FCI      ENDIF
00321  M00S00283.comccvi +++| FSI      SPACE  4,3
00322  M00S00284.comccvi +++|**        FSI - INDIRECT FILE SIZE.
00323  M00S00285.comccvi +++|*
00324  M00S00286.comccvi +++|*         VALUE FOUND BY TABLE LOOK-UP METHOD.
00325  M00S00287.comccvi +++|
00326  M00S00288.comccvi +++|
00327  M00S00289.comccvi +++| FSI      IF     DEF,FSI$
00328  M00S00290.comccvi +++|
00329  M00S00291.comccvi +++| FSI      SUBR               ENTRY/EXIT
00330  M00S00292.comccvi +++|          MX0    -3
00331  M00S00293.comccvi +++|          BX1    -X0*X1
00332  M00S00294.comccvi +++|          SA1    X1+THFS
00333  M00S00295.comccvi +++|          EQ     FSIX        RETURN
00334  M00S00296.comccvi +++|
00335  M00S00297.comccvi +++|
00336  M00S00298.comccvi +++|**        THFS - EQUVALENCE TABLE FOR MAXIMUM NUMBER OF SECTORS
00337  M00S00299.comccvi +++|*                FOR ANY SINGLE INDIRECT ACCESS FILE
00338  M00S00300.comccvi +++|
00339  M00S00301.comccvi +++| THFS     BSS    0
00340  M00S00302.comccvi +++|          LOC    0
00341  M00S00303.comccvi +++|          CON    0

Line S00304 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00342  M01S00304.ns2484  ---|          CON    FSRNG1*10
00343  M01S00305.ns2484  ---|          CON    FSRNG2*10
00344  M01S00306.ns2484  ---|          CON    FSRNG3*10
00345  M01S00307.ns2484  ---|          CON    FSRNG4*10
00346  M01S00308.ns2484  ---|          CON    FSRNG5*10
00347  M01S00309.ns2484  ---|          CON    FSRNG6*10

Line S00031 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00348  M01S00031.ns2484  +++|          CON    FSRNG1*10B
00349  M01S00032.ns2484  +++|          CON    FSRNG2*10B
00350  M01S00033.ns2484  +++|          CON    FSRNG3*10B
00351  M01S00034.ns2484  +++|          CON    FSRNG4*10B
00352  M01S00035.ns2484  +++|          CON    FSRNG5*10B
00353  M01S00036.ns2484  +++|          CON    FSRNG6*10B
00354  M00S00310.comccvi +++|          CON    -1
00355  M00S00311.comccvi +++|          LOC    *O
00356  M00S00312.comccvi +++|
00357  M00S00313.comccvi +++| FSI      ENDIF
00358  M00S00314.comccvi +++| LPI      SPACE  4,3
00359  M00S00315.comccvi +++|**        LPI - LINES PRINTED.
00360  M00S00316.comccvi +++|*
00361  M00S00317.comccvi +++|*         FORMULA IS - (I * 2000B) + KLPI
00362  M00S00318.comccvi +++|
00363  M00S00319.comccvi +++|
00364  M00S00320.comccvi +++| LPI      IF     DEF,LPI$
00365  M00S00321.comccvi +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00366  M01S00322.ns2484  ---| LPI1     LX1    12          SET VALUE

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

Seq #  *Modification Id* Act 
----------------------------+
00367  M01S00037.ns2484  +++| LPI1     LX1    10          SET VALUE
00368  M00S00323.comccvi +++|          SX2    KLPI
00369  M00S00324.comccvi +++|          IX1    X1+X2
00370  M00S00325.comccvi +++|
00371  M00S00326.comccvi +++| LPI      SUBR               ENTRY/EXIT
00372  M00S00327.comccvi +++|          MX0    -6
00373  M00S00328.comccvi +++|          BX1    -X0*X1

Line S00329 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00374  M01S00329.ns2484  ---|          SX2    X1-77

Line S00038 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00375  M01S00038.ns2484  +++|          SX2    X1-77B
00376  M00S00330.comccvi +++|          NZ     X2,LPI1     IF NOT UNLIMITED
00377  M00S00331.comccvi +++|          SX1    -1
00378  M00S00332.comccvi +++|          EQ     LPIX        RETURN
00379  M00S00333.comccvi +++|
00380  M00S00334.comccvi +++| LPI      ENDIF
00381  M00S00335.comccvi +++| MSI      SPACE  4,3
00382  M00S00336.comccvi +++|**        MSI - MASS STORAGE PRUS.
00383  M00S00337.comccvi +++|*
00384  M00S00338.comccvi +++|*         FORMULA IS -  (I * 10000B) + KMSI
00385  M00S00339.comccvi +++|
00386  M00S00340.comccvi +++|
00387  M00S00341.comccvi +++| MSI      IF     DEF,MSI$
00388  M00S00342.comccvi +++|

Line S00343 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00389  M01S00343.ns2484  ---| MSI1     LX1    14          SET VALUE

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

Seq #  *Modification Id* Act 
----------------------------+
00390  M01S00039.ns2484  +++| MSI1     LX1    12          SET VALUE
00391  M00S00344.comccvi +++|          SX2    KMSI
00392  M00S00345.comccvi +++|          IX1    X1+X2
00393  M00S00346.comccvi +++|
00394  M00S00347.comccvi +++| MSI      SUBR               ENTRY/EXIT
00395  M00S00348.comccvi +++|          MX0    -6
00396  M00S00349.comccvi +++|          BX1    -X0*X1

Line S00350 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00397  M01S00350.ns2484  ---|          SX2    X1-77

Line S00040 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00398  M01S00040.ns2484  +++|          SX2    X1-77B
00399  M00S00351.comccvi +++|          NZ     X2,MSI1     IF NOT UNLIMITED
00400  M00S00352.comccvi +++|          SX1    -1
00401  M00S00353.comccvi +++|          EQ     MSIX        RETURN
00402  M00S00354.comccvi +++|
00403  M00S00355.comccvi +++| MSI      ENDIF
00404  M00S00356.comccvi +++| PTI      SPACE  4,10
00405  M00S00357.comccvi +++|**        PTI - UNITS PLOTTED.
00406  M00S00358.comccvi +++|*
00407  M00S00359.comccvi +++|*         FORMULA IS - ( I * 2000B ) + KPTI
00408  M00S00360.comccvi +++|
00409  M00S00361.comccvi +++|
00410  M00S00362.comccvi +++| PTI      IF     DEF,PTI$
00411  M00S00363.comccvi +++|

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

Seq #  *Modification Id* Act 
----------------------------+
00412  M01S00364.ns2484  ---| PTI1     LX1    12          SET VALUE

Line S00041 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00413  M01S00041.ns2484  +++| PTI1     LX1    10          SET VALUE
00414  M00S00365.comccvi +++|          SX2    KPTI
00415  M00S00366.comccvi +++|          IX1    X1+X2
00416  M00S00367.comccvi +++|
00417  M00S00368.comccvi +++| PTI      SUBR               ENTRY/EXIT
00418  M00S00369.comccvi +++|          MX0    -6
00419  M00S00370.comccvi +++|          BX1    -X0*X1
00420  M00S00371.comccvi +++|          SX2    X1-77B
00421  M00S00372.comccvi +++|          NZ     X2,PTI1     IF NOT UNLIMITED
00422  M00S00373.comccvi +++|          SX1    -1
00423  M00S00374.comccvi +++|          EQ     PTIX        RETURN
00424  M00S00375.comccvi +++|
00425  M00S00376.comccvi +++| PTI      ENDIF
00426  M00S00377.comccvi +++| SLI      SPACE  4,3
00427  M00S00378.comccvi +++|**        SLI - SRU LIMIT.
00428  M00S00379.comccvi +++|*

Line S00380 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00429  M01S00380.ns2484  ---|*         FORMULA IS -  (I * 100B) + KSLI

Line S00042 Modification History
`M01` (Added by)	`ns2484`
`M02` (Removed by)	`ns2484a`

Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00042.ns2484a ---|*         FORMULA IS -  (I * 1000B) + KSLI

Line S00001 Modification History
`M01` (Added by)	`ns2484a`
`M02` (Removed by)	`ns2516`

Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00001.ns2516  ---|*         FORMULA IS -  (I * 100B) + KSLI

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

Seq #  *Modification Id* Act 
----------------------------+
00432  M01S00001.ns2516  +++|*         FORMULA IS -  ((I**2)*10B) + KSLI
00433  M00S00381.comccvi +++|*
00434  M00S00382.comccvi +++|*         EXIT   (X1) = LIMIT VALUE/10B.
00435  M00S00383.comccvi +++|
00436  M00S00384.comccvi +++|
00437  M00S00385.comccvi +++| SLI      IF     DEF,SLI$
00438  M00S00386.comccvi +++|

Line S00387 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00439  M01S00387.ns2484  ---| SLI1     LX1    6           SET VALUE

Line S00043 Modification History
`M01` (Added by)	`ns2484`
`M02` (Removed by)	`ns2484a`

Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00043.ns2484a ---| SLI1     LX1    9           SET VALUE

Line S00002 Modification History
`M01` (Added by)	`ns2484a`
`M02` (Removed by)	`ns2516`

Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00002.ns2516  ---| SLI1     LX1    6           SET VALUE

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

Seq #  *Modification Id* Act 
----------------------------+
00442  M01S00002.ns2516  +++| SLI1     IX1    X1*X1       SET VALUE
00443  M01S00003.ns2516  +++|          LX1    3
00444  M00S00388.comccvi +++|          SX2    KSLI
00445  M00S00389.comccvi +++|          IX1    X1+X2
00446  M00S00390.comccvi +++|
00447  M00S00391.comccvi +++| SLI      SUBR               ENTRY/EXIT
00448  M00S00392.comccvi +++|          MX0    -6
00449  M00S00393.comccvi +++|          BX1    -X0*X1

Line S00394 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00450  M01S00394.ns2484  ---|          SX2    X1-77

Line S00044 Modification History
`M01` (Added by)	`ns2484`
`M02` (Removed by)	`ns2516b`

Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00044.ns2516b ---|          SX2    X1-77B

Line S00395 Modification History
`M01` (Removed by)	`ns2516b`

Seq #  *Modification Id* Act 
----------------------------+
00452  M01S00395.ns2516b ---|          NZ     X2,SLI1     IF NOT UNLIMITED

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

Seq #  *Modification Id* Act 
----------------------------+
00453  M01S00001.ns2516b +++|          SX2    X1-73B
00454  M01S00002.ns2516b +++|          NG     X2,SLI1     IF NOT UNLIMITED
00455  M00S00396.comccvi +++|          SX1    -1
00456  M00S00397.comccvi +++|          EQ     SLIX        RETURN
00457  M00S00398.comccvi +++|
00458  M00S00399.comccvi +++| SLI      ENDIF
00459  M00S00400.comccvi +++| TLI      SPACE  4,3
00460  M00S00401.comccvi +++|**        TLI - TIME LIMIT.
00461  M00S00402.comccvi +++|*
00462  M00S00403.comccvi +++|*         FORMULA IS -  (I * 100B) + KTLI
00463  M00S00404.comccvi +++|*
00464  M00S00405.comccvi +++|*         EXIT   (X1) = LIMIT VALUE/10B.
00465  M00S00406.comccvi +++|
00466  M00S00407.comccvi +++|
00467  M00S00408.comccvi +++| TLI      IF     DEF,TLI$
00468  M00S00409.comccvi +++|
00469  M00S00410.comccvi +++| TLI1     LX1    6           SET VALUE
00470  M00S00411.comccvi +++|          SX2    KTLI
00471  M00S00412.comccvi +++|          IX1    X1+X2
00472  M00S00413.comccvi +++|
00473  M00S00414.comccvi +++| TLI      SUBR               ENTRY/EXIT
00474  M00S00415.comccvi +++|          MX0    -6
00475  M00S00416.comccvi +++|          BX1    -X0*X1

Line S00417 Modification History
`M01` (Removed by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00476  M01S00417.ns2484  ---|          SX2    X1-77

Line S00045 Modification History
`M01` (Added by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00477  M01S00045.ns2484  +++|          SX2    X1-77B
00478  M00S00418.comccvi +++|          NZ     X2,TLI1     IF NOT UNLIMITED
00479  M00S00419.comccvi +++|          SX1    -1
00480  M00S00420.comccvi +++|          EQ     TLIX        RETURN
00481  M00S00421.comccvi +++|
00482  M00S00422.comccvi +++| TLI      ENDIF
00483  M00S00423.comccvi +++|          SPACE  4
00484  M00S00424.comccvi +++|          BASE   *
00485  M00S00425.comccvi +++| QUAL$    IF     -DEF,QUAL$
00486  M00S00426.comccvi +++|          QUAL   *
00487  M00S00427.comccvi +++| CCI$     IF     DEF,CCI$
00488  M00S00428.comccvi +++| CCI      EQU    /COMCCVI/CCI
00489  M00S00429.comccvi +++| CCI$     ENDIF
00490  M00S00430.comccvi +++| CMI$     IF     DEF,CMI$
00491  M00S00431.comccvi +++| CMI      EQU    /COMCCVI/CMI
00492  M00S00432.comccvi +++| CMI$     ENDIF
00493  M00S00433.comccvi +++| CPI$     IF     DEF,CPI$
00494  M00S00434.comccvi +++| CPI      EQU    /COMCCVI/CPI
00495  M00S00435.comccvi +++| CPI$     ENDIF
00496  M00S00436.comccvi +++| CSI$     IF     DEF,CSI$
00497  M00S00437.comccvi +++| CSI      EQU    /COMCCVI/CSI
00498  M00S00438.comccvi +++| CSI$     ENDIF
00499  M00S00439.comccvi +++| DBI$     IF     DEF,DBI$
00500  M00S00440.comccvi +++| DBI      EQU    /COMCCVI/DBI
00501  M00S00441.comccvi +++| DBI$     ENDIF
00502  M00S00442.comccvi +++| DFI$     IF     DEF,DFI$
00503  M00S00443.comccvi +++| DFI      EQU    /COMCCVI/DFI
00504  M00S00444.comccvi +++| DFI$     ENDIF
00505  M00S00445.comccvi +++| DSI$     IF     DEF,DSI$
00506  M00S00446.comccvi +++| DSI      EQU    /COMCCVI/DSI
00507  M00S00447.comccvi +++| DSI$     ENDIF
00508  M00S00448.comccvi +++| DTI$     IF     DEF,DTI$
00509  M00S00449.comccvi +++| DTI      EQU    /COMCCVI/DTI
00510  M00S00450.comccvi +++| DTI$     ENDIF
00511  M00S00451.comccvi +++| ECI$     IF     DEF,ECI$
00512  M00S00452.comccvi +++| ECI      EQU    /COMCCVI/ECI
00513  M00S00453.comccvi +++| ECI$     ENDIF
00514  M00S00454.comccvi +++| FCI$     IF     DEF,FCI$
00515  M00S00455.comccvi +++| FCI      EQU    /COMCCVI/FCI
00516  M00S00456.comccvi +++| FCI$     ENDIF
00517  M00S00457.comccvi +++| FSI$     IF     DEF,FSI$
00518  M00S00458.comccvi +++| FSI      EQU    /COMCCVI/FSI
00519  M00S00459.comccvi +++| FSI$     ENDIF
00520  M00S00460.comccvi +++| LPI$     IF     DEF,LPI$
00521  M00S00461.comccvi +++| LPI      EQU    /COMCCVI/LPI
00522  M00S00462.comccvi +++| LPI$     ENDIF
00523  M00S00463.comccvi +++| MSI$     IF     DEF,MSI$
00524  M00S00464.comccvi +++| MSI      EQU    /COMCCVI/MSI
00525  M00S00465.comccvi +++| MSI$     ENDIF
00526  M00S00466.comccvi +++| PTI$     IF     DEF,PTI$
00527  M00S00467.comccvi +++| PTI      EQU    /COMCCVI/PTI
00528  M00S00468.comccvi +++| PTI$     ENDIF
00529  M00S00469.comccvi +++| TLI$     IF     DEF,TLI$
00530  M00S00470.comccvi +++| TLI      EQU    /COMCCVI/TLI
00531  M00S00471.comccvi +++| TLI$     ENDIF
00532  M00S00472.comccvi +++| SLI$     IF     DEF,SLI$
00533  M00S00473.comccvi +++| SLI      EQU    /COMCCVI/SLI
00534  M00S00474.comccvi +++| SLI$     ENDIF
00535  M00S00475.comccvi +++| QUAL$    ENDIF
00536  M00S00476.comccvi +++|          ENDX