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