Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.compcvi +++| CTEXT COMPCVI - CONVERT VALIDATION INDICES.
00002 M01S00002.compcvi +++| COMPCVI SPACE 4
00003 M01S00003.compcvi +++| BASE MIXED
00004 M01S00004.compcvi +++| IF -DEF,QUAL$,1
00005 M01S00005.compcvi +++| QUAL COMPCVI
| Line S00006 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M01S00007.compcvi +++| COMPCVI SPACE 4
00009 M01S00008.compcvi +++|*** COMPCVI - CONVERT VALIDATION INDICES.
00010 M01S00009.compcvi +++|* M. E. MADDEN. 74/10/02.
00011 M01S00010.compcvi +++| COMPCVI SPACE 4
00012 M01S00011.compcvi +++|*** COMPCVI DEFINES THE FORMULAE FOR CONVERTING FROM AN INDEX
00013 M01S00012.compcvi +++|* VALUE INTO THE ACTUAL LIMIT VALUE FOR THE FOLLOWING SYSTEM
00014 M01S00013.compcvi +++|* RESOURCES OR ACTIVITIES THAT INSTALLATIONS MAY CONTROL -
00015 M01S00014.compcvi +++|* DB DEFERRED BATCH JOBS
00016 M01S00015.compcvi +++|* DT DETACHED JOBS
00017 M01S00016.compcvi +++|* TL TIME LIMIT (UNITS OF 10B)
00018 M01S00017.compcvi +++|* CM FIELD LENGTH
00019 M01S00018.compcvi +++|* PT UNITS PLOTTED
00020 M01S00019.compcvi +++|* CP CARDS PUNCHED
00021 M01S00020.compcvi +++|* LP LINES PRINTED
00022 M01S00021.compcvi +++|* MS MASS STORAGE PRUS
00023 M01S00022.compcvi +++|* DF DAYFILE MESSAGES
00024 M01S00023.compcvi +++|* CC CONTROL STATEMENTS
| Line S00024 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00025 M02S00024.252l678 ---|* EC ECS FIELD LENGTH
00026 M01S00001.252l678 +++|* EC EXTENDED MEMORY FIELD LENGTH
00027 M01S00025.compcvi +++|* SL SRU LIMIT (UNITS OF 10B)
00028 M01S00026.compcvi +++|*
00029 M01S00027.compcvi +++|*
00030 M01S00028.compcvi +++|* THE FORMULA WILL BE ASSEMBLED IF XXI$ IS DEFINED IN THE
00031 M01S00029.compcvi +++|* CALLING PROGRAM, WHERE XX IS ONE OF THE LIMIT NMEMONICS.
00032 M01S00030.compcvi +++|* FOR EXAMPLE, THE DEFINITION OF MSI$ WILL CAUSE THE FORMULA
00033 M01S00031.compcvi +++|* FOR THE NUMBER OF MASS STORAGE PRUS TO BE ASSEMBLED.
00034 M01S00032.compcvi +++|*
00035 M01S00033.compcvi +++|* INCLUDED WITHIN THIS COMMON DECK IS A PROCEDURE FOR
00036 M01S00034.compcvi +++|* CONVERTING THE INDEX VALUES INTO COUNTING LIMITS FOR THE
00037 M01S00035.compcvi +++|* *ACLW* CONTROL POINT WORD.
00038 M01S00036.compcvi +++|* THE SELECTION OF CLI$ WILL ASSEMBLE THIS FORMULA AS WELL AS
00039 M01S00037.compcvi +++|* THE FORMULAE FOR MS, DF, CC, AND DT.
00040 M01S00038.compcvi +++|*
00041 M01S00039.compcvi +++|* ALL FORMULAE HAVE THE FOLLOWING ENTRY/EXIT CONDITIONS.
00042 M01S00040.compcvi +++|*
00043 M01S00041.compcvi +++|* ENTRY (A) = INDEX VALUE.
00044 M01S00042.compcvi +++|*
00045 M01S00043.compcvi +++|* EXIT (A) = LIMIT VALUE.
00046 M01S00002.252l678 +++|*
00047 M01S00003.252l678 +++|* USES CM - CM+4. (*ECI* ONLY)
00048 M01S00044.compcvi +++|*
| Line S00045 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2463 |
Seq # *Modification Id* Act
----------------------------+
00049 M02S00045.ns2463 ---|* NOTE - THIS COMMON DECK REQUIRES THAT *COMSACC* ALSO BE
| Line S00046 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2463 |
Seq # *Modification Id* Act
----------------------------+
00050 M02S00046.ns2463 ---|* PRESENT SO THAT LIMIT BASE CONSTANTS ARE AVAILABLE.
00051 M01S00001.ns2463 +++|* NOTE - THIS COMMON DECK REQUIRES THAT *COMSACC* AND *COMSMSC*
00052 M01S00002.ns2463 +++|* ALSO BE PRESENT SO THAT LIMIT BASE CONSTANTS ARE AVAILABLE.
00053 M01S00047.compcvi +++| CLI SPACE 4
00054 M01S00048.compcvi +++|** CLI - CONVERT INDEX VALUES INTO COUNTING LIMITS.
00055 M01S00049.compcvi +++|*
00056 M01S00050.compcvi +++|* ENTRY (A) = ADDRESS OF LIMIT INDICES.
00057 M01S00051.compcvi +++|*
00058 M01S00052.compcvi +++|* EXIT COUNTING LIMITS WRITTEN INTO ADDRESS SUPPLIED ON ENTRY.
00059 M01S00053.compcvi +++|*
00060 M01S00054.compcvi +++|* USES CM - CM+4, T1.
00061 M01S00055.compcvi +++|*
00062 M01S00056.compcvi +++|* CALLS CCI, DFI, MSI.
00063 M01S00057.compcvi +++|
00064 M01S00058.compcvi +++|
00065 M01S00059.compcvi +++| CLI IF DEF,CLI$
00066 M01S00060.compcvi +++| CCI$ SET 1
00067 M01S00061.compcvi +++| DFI$ SET 1
00068 M01S00062.compcvi +++| DTI$ SET 1
00069 M01S00063.compcvi +++| MSI$ SET 1
00070 M01S00064.compcvi +++|
00071 M01S00065.compcvi +++|
00072 M01S00066.compcvi +++| CLI SUBR ENTRY/EXIT
00073 M01S00067.compcvi +++| STD T1 SAVE ADDRESS OF INDEX WORD
00074 M01S00068.compcvi +++| STM CLIA
00075 M01S00069.compcvi +++| LDM 4,T1 CONVERT MASS STORAGE
00076 M01S00070.compcvi +++| RJM MSI
00077 M01S00071.compcvi +++| STD CM+4
00078 M01S00072.compcvi +++| SHN -14
00079 M01S00073.compcvi +++| STD CM+3
00080 M01S00074.compcvi +++| LDM 3,T1 SET DETACH JOB INDEX
00081 M01S00075.compcvi +++| SCN 77
00082 M01S00076.compcvi +++| RAD CM+3
00083 M01S00077.compcvi +++| LDM 4,T1 CONVERT CONTROL STATEMENTS
00084 M01S00078.compcvi +++| RJM CCI
00085 M01S00079.compcvi +++| STD CM+2
00086 M01S00080.compcvi +++| LDM 3,T1 CONVERT DAYFILE MESSAGES
00087 M01S00081.compcvi +++| RJM DFI
00088 M01S00082.compcvi +++| STD CM+1
| Line S00083 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2463 |
Seq # *Modification Id* Act
----------------------------+
00089 M02S00083.ns2463 ---| LDN 0
00090 M01S00003.ns2463 +++| LDK EPRL ERROR PROCESSING LIMIT
00091 M01S00084.compcvi +++| STD CM
00092 M01S00085.compcvi +++| LDD MA WRITE CONVERTED VALUES
00093 M01S00086.compcvi +++| CWD CM
00094 M01S00087.compcvi +++| CRM **,ON
00095 M01S00088.compcvi +++| CLIA EQU *-1
00096 M01S00089.compcvi +++| LJM CLIX RETURN
00097 M01S00090.compcvi +++| CLI ENDIF
00098 M01S00091.compcvi +++| CCI SPACE 4
00099 M01S00092.compcvi +++|** CCI - CONTROL STATEMENTS.
00100 M01S00093.compcvi +++|*
| Line S00094 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2388 |
Seq # *Modification Id* Act
----------------------------+
00101 M02S00094.ns2388 ---|* FORMULA IS - (I * 20B) + KCCI
00102 M01S00001.ns2388 +++|* FORMULA IS - (I * 100B) + KCCI
00103 M01S00095.compcvi +++|*
00104 M01S00096.compcvi +++|* ENTRY (A) = 6-BITS INDEX * 100
00105 M01S00097.compcvi +++|
00106 M01S00098.compcvi +++| CCI IF DEF,CCI$
00107 M01S00099.compcvi +++|
00108 M01S00100.compcvi +++| CCI1 LCN 0
00109 M01S00101.compcvi +++|
00110 M01S00102.compcvi +++| CCI SUBR ENTRY/EXIT
00111 M01S00103.compcvi +++| SHN -6
00112 M01S00104.compcvi +++| LMN 77
00113 M01S00105.compcvi +++| ZJN CCI1 IF UNLIMITED
00114 M01S00106.compcvi +++| LMN 77
| Line S00107 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2388 |
Seq # *Modification Id* Act
----------------------------+
00115 M02S00107.ns2388 ---| SHN 4
00116 M01S00002.ns2388 +++| SHN 6
00117 M01S00108.compcvi +++| ADC KCCI
00118 M01S00109.compcvi +++| UJN CCIX RETURN
00119 M01S00110.compcvi +++|
00120 M01S00111.compcvi +++| CCI ENDIF
00121 M01S00112.compcvi +++| CMI SPACE 4
00122 M01S00113.compcvi +++|** CMI - FIELD LENGTH.
00123 M01S00114.compcvi +++|*
00124 M01S00115.compcvi +++|* FORMULA IS - (I * 40B) + KCMI
00125 M01S00116.compcvi +++|*
00126 M01S00117.compcvi +++|* ENTRY (A) = 6-BITS INDEX * 100
00127 M01S00118.compcvi +++|
00128 M01S00119.compcvi +++| CMI IF DEF,CMI$
00129 M01S00120.compcvi +++|
00130 M01S00121.compcvi +++| CMI1 LDC 3777-MNFL SET MAXIMUM FIELD LENGTH ALLOWED
00131 M01S00122.compcvi +++|
00132 M01S00123.compcvi +++| CMI SUBR ENTRY/EXIT
00133 M01S00124.compcvi +++| SHN -6
00134 M01S00125.compcvi +++| LPN 77
00135 M01S00126.compcvi +++| LMN 77
00136 M01S00127.compcvi +++| ZJN CMI1 IF UNLIMITED
00137 M01S00128.compcvi +++| LMN 77
00138 M01S00129.compcvi +++| SHN 5
00139 M01S00130.compcvi +++| ADC KCMI
00140 M01S00131.compcvi +++| UJN CMIX RETURN
00141 M01S00132.compcvi +++|
00142 M01S00133.compcvi +++| CMI ENDIF
00143 M01S00134.compcvi +++| CPI SPACE 4
00144 M01S00135.compcvi +++|** CPI - CARDS PUNCHED.
00145 M01S00136.compcvi +++|*
00146 M01S00137.compcvi +++|* FORMULA IS - (I * 100B) + KCPI
00147 M01S00138.compcvi +++|*
00148 M01S00139.compcvi +++|* ENTRY (A) = 6-BITS INDEX * 100
00149 M01S00140.compcvi +++|
00150 M01S00141.compcvi +++| CPI IF DEF,CPI$
00151 M01S00142.compcvi +++|
00152 M01S00143.compcvi +++| CPI1 LCN 0
00153 M01S00144.compcvi +++|
00154 M01S00145.compcvi +++| CPI SUBR ENTRY/EXIT
00155 M01S00146.compcvi +++| LPN 77
00156 M01S00147.compcvi +++| LMN 77
00157 M01S00148.compcvi +++| ZJN CPI1 IF UNLIMITED
00158 M01S00149.compcvi +++| LMN 77
00159 M01S00150.compcvi +++| SHN 6
00160 M01S00151.compcvi +++| ADC KCPI
00161 M01S00152.compcvi +++| UJN CPIX RETURN
00162 M01S00153.compcvi +++|
00163 M01S00154.compcvi +++| CPI ENDIF
00164 M01S00155.compcvi +++| DBI SPACE 4
00165 M01S00156.compcvi +++|** DBI - DEFERRED BATCH JOBS.
00166 M01S00157.compcvi +++|*
| Line S00158 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2484 |
Seq # *Modification Id* Act
----------------------------+
00167 M02S00158.ns2484 ---|* FORMULA IS - (I * 2B)
00168 M01S00001.ns2484 +++|* FORMULA IS - (2 ** I)
00169 M01S00001.ns2554 +++|* EXCEPTION - ENTRY OF ZERO RETURNS ZERO.
00170 M01S00159.compcvi +++|*
00171 M01S00160.compcvi +++|* ENTRY (A) = 3-BITS INDEX * 100
00172 M01S00161.compcvi +++|
00173 M01S00162.compcvi +++| DBI IF DEF,DBI$
00174 M01S00163.compcvi +++|
00175 M01S00164.compcvi +++| DBI1 LCN 0
00176 M01S00165.compcvi +++|
00177 M01S00166.compcvi +++| DBI SUBR ENTRY/EXIT
00178 M01S00167.compcvi +++| SHN -3
00179 M01S00168.compcvi +++| LPN 7
00180 M01S00002.ns2484 +++| ZJN DBIX IF INDEX EQUALS ZERO
00181 M01S00169.compcvi +++| LMN 7
00182 M01S00170.compcvi +++| ZJN DBI1 IF UNLIMITED
00183 M01S00171.compcvi +++| LMN 7
| Line S00172 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2484 |
Seq # *Modification Id* Act
----------------------------+
00184 M02S00172.ns2484 ---| SHN 1
| Line S00173 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2484 |
Seq # *Modification Id* Act
----------------------------+
00185 M02S00173.ns2484 ---| UJN DBIX RETURN
00186 M01S00003.ns2484 +++| ADD TH
00187 M01S00004.ns2484 +++| STM DBIA
00188 M01S00005.ns2484 +++| LDN 1
00189 M01S00006.ns2484 +++| DBIA SHN 1 (SHIFT INDEX)
00190 M01S00007.ns2484 +++| UJN DBIX RETURN
00191 M01S00174.compcvi +++|
00192 M01S00175.compcvi +++| DBI ENDIF
00193 M01S00176.compcvi +++| DFI SPACE 4
00194 M01S00177.compcvi +++|** DFI - DAYFILE MESSAGES.
00195 M01S00178.compcvi +++|*
| Line S00179 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2388 |
Seq # *Modification Id* Act
----------------------------+
00196 M02S00179.ns2388 ---|* FORMULA IS - (I * 20B) + KDFI
00197 M01S00003.ns2388 +++|* FORMULA IS - (I * 100B) + KDFI
00198 M01S00180.compcvi +++|*
00199 M01S00181.compcvi +++|* ENTRY (A) = 6-BITS INDEX * 100
00200 M01S00182.compcvi +++|
00201 M01S00183.compcvi +++| DFI IF DEF,DFI$
00202 M01S00184.compcvi +++|
00203 M01S00185.compcvi +++| DFI1 LCN 0
00204 M01S00186.compcvi +++|
00205 M01S00187.compcvi +++| DFI SUBR ENTRY/EXIT
00206 M01S00188.compcvi +++| LPN 77
00207 M01S00189.compcvi +++| LMN 77
00208 M01S00190.compcvi +++| ZJN DFI1 IF UNLIMITED
00209 M01S00191.compcvi +++| LMN 77
| Line S00192 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2388 |
Seq # *Modification Id* Act
----------------------------+
00210 M02S00192.ns2388 ---| SHN 4
00211 M01S00004.ns2388 +++| SHN 6
00212 M01S00193.compcvi +++| ADC KDFI
00213 M01S00194.compcvi +++| UJN DFIX RETURN
00214 M01S00195.compcvi +++|
00215 M01S00196.compcvi +++| DFI ENDIF
00216 M01S00197.compcvi +++| DTI SPACE 4,10
00217 M01S00198.compcvi +++|** DTI - NUMBER OF DETACHED JOBS.
00218 M01S00199.compcvi +++|*
00219 M01S00200.compcvi +++|* FORMULA IS - (I + KDTI).
00220 M01S00201.compcvi +++|*
00221 M01S00202.compcvi +++|* ENTRY (A) = 6-BITS INDEX * 100B.
00222 M01S00203.compcvi +++|
00223 M01S00204.compcvi +++|
00224 M01S00205.compcvi +++| DTI IF DEF,DTI$
00225 M01S00206.compcvi +++|
00226 M01S00207.compcvi +++| DTI1 LCN 0
00227 M01S00208.compcvi +++|
00228 M01S00209.compcvi +++| DTI SUBR ENTRY/EXIT
00229 M01S00210.compcvi +++| SHN -6
00230 M01S00211.compcvi +++| LMN 77
00231 M01S00212.compcvi +++| ZJN DTI1 IF UNLIMITED
00232 M01S00213.compcvi +++| LMN 77
00233 M01S00214.compcvi +++| ADK KDTI
00234 M01S00215.compcvi +++| UJN DTIX RETURN
00235 M01S00216.compcvi +++|
00236 M01S00217.compcvi +++| DTI ENDIF
00237 M01S00218.compcvi +++| ECI SPACE 4
| Line S00219 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2184 |
Seq # *Modification Id* Act
----------------------------+
00238 M02S00219.ns2184 ---|** ECI - ECS FIELD LENGTH IN 1000B WORD BLOCKS.
| Line S00001 Modification History |
M01 (Added by) | ns2184 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00239 M02S00001.252l678 ---|** ECI - ECS FIELD LENGTH IN *UEBS* WORD BLOCKS.
00240 M01S00004.252l678 +++|** ECI - EXTENDED MEMORY FIELD LENGTH IN *UEBS* WORD BLOCKS.
00241 M01S00220.compcvi +++|*
00242 M01S00221.compcvi +++|* FORMULA IS - (I * 20B) + KECI
00243 M01S00222.compcvi +++|*
00244 M01S00223.compcvi +++|* ENTRY (A) = 6-BIT INDEX.
00245 M01S00224.compcvi +++|
00246 M01S00225.compcvi +++| ECI IF DEF,ECI$
00247 M01S00226.compcvi +++|
| Line S00227 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | pcvi1 |
Seq # *Modification Id* Act
----------------------------+
00248 M02S00227.pcvi1 ---| ECI1 LCN 0
00249 M01S00001.pcvi1 +++| ECI1 LDC 3777
00250 M01S00228.compcvi +++|
00251 M01S00229.compcvi +++| ECI SUBR ENTRY/EXIT
00252 M01S00005.252l678 +++| STD T0
00253 M01S00006.252l678 +++| LDK MEFL GET USER EM SHIFT COUNT
00254 M01S00007.252l678 +++| CRD CM
00255 M01S00008.252l678 +++| LDD CM+2
00256 M01S00009.252l678 +++| SHN -11
00257 M01S00010.252l678 +++| LMC SHNI+77
00258 M01S00011.252l678 +++| STM ECIA
00259 M01S00012.252l678 +++| LDD T0
00260 M01S00230.compcvi +++| LPN 77
00261 M01S00231.compcvi +++| LMN 77
00262 M01S00232.compcvi +++| ZJN ECI1 IF UNLIMITED
00263 M01S00233.compcvi +++| LMN 77
00264 M01S00234.compcvi +++| SHN 4 I*20B
00265 M01S00235.compcvi +++| ADC KECI
| Line S00002 Modification History |
M01 (Added by) | ns2184 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
00266 M02S00002.252l678 ---| SHN -UESF
00267 M01S00013.252l678 +++| ECIA SHN -0
00268 M01S00014.252l678 +++|* SHN -UESC
00269 M01S00236.compcvi +++| UJN ECIX RETURN
00270 M01S00237.compcvi +++|
00271 M01S00238.compcvi +++| ECI ENDIF
00272 M01S00239.compcvi +++| LPI SPACE 4
00273 M01S00240.compcvi +++|** LPI - LINES PRINTED.
00274 M01S00241.compcvi +++|*
00275 M01S00242.compcvi +++|* FORMULA IS - (I * 2000B) + KLPI
00276 M01S00243.compcvi +++|*
00277 M01S00244.compcvi +++|* ENTRY (A) = 6-BITS INDEX * 100
00278 M01S00245.compcvi +++|
00279 M01S00246.compcvi +++| LPI IF DEF,LPI$
00280 M01S00247.compcvi +++|
00281 M01S00248.compcvi +++| LPI1 LCN 0
00282 M01S00249.compcvi +++|
00283 M01S00250.compcvi +++| LPI SUBR ENTRY/EXIT
00284 M01S00251.compcvi +++| LPN 77
00285 M01S00252.compcvi +++| LMN 77
00286 M01S00253.compcvi +++| ZJN LPI1 IF UNLIMITED
00287 M01S00254.compcvi +++| LMN 77
00288 M01S00255.compcvi +++| SHN 12
00289 M01S00256.compcvi +++| ADC KLPI
00290 M01S00257.compcvi +++| UJN LPIX RETURN
00291 M01S00258.compcvi +++|
00292 M01S00259.compcvi +++| LPI ENDIF
00293 M01S00260.compcvi +++| MSI SPACE 4
00294 M01S00261.compcvi +++|** MSI - MASS STORAGE PRUS.
00295 M01S00262.compcvi +++|*
00296 M01S00263.compcvi +++|* FORMULA IS - (I * 10000B) + KMSI
00297 M01S00264.compcvi +++|*
00298 M01S00265.compcvi +++|* ENTRY (A) = 6-BITS INDEX * 100
00299 M01S00266.compcvi +++|
00300 M01S00267.compcvi +++| MSI IF DEF,MSI$
00301 M01S00268.compcvi +++|
00302 M01S00269.compcvi +++| MSI1 LCN 0
00303 M01S00270.compcvi +++|
00304 M01S00271.compcvi +++| MSI SUBR ENTRY/EXIT
00305 M01S00272.compcvi +++| LPN 77
00306 M01S00273.compcvi +++| LMN 77
00307 M01S00274.compcvi +++| ZJN MSI1 IF UNLIMITED
00308 M01S00275.compcvi +++| LMN 77
00309 M01S00276.compcvi +++| SHN 14
00310 M01S00277.compcvi +++| ADC KMSI
00311 M01S00278.compcvi +++| UJN MSIX RETURN
00312 M01S00279.compcvi +++|
00313 M01S00280.compcvi +++| MSI ENDIF
00314 M01S00281.compcvi +++| PTI SPACE 4,10
00315 M01S00282.compcvi +++|** PTI - UNITS PLOTTED.
00316 M01S00283.compcvi +++|*
00317 M01S00284.compcvi +++|* FORMULA IS - ( I * 2000B ) + KPTI
00318 M01S00285.compcvi +++|*
00319 M01S00286.compcvi +++|* ENTRY (A) = 6-BITS INDEX * 100.
00320 M01S00287.compcvi +++|
00321 M01S00288.compcvi +++|
00322 M01S00289.compcvi +++| PTI IF DEF,PTI$
00323 M01S00290.compcvi +++|
00324 M01S00291.compcvi +++| PTI1 LCN 0
00325 M01S00292.compcvi +++|
00326 M01S00293.compcvi +++| PTI SUBR ENTRY/EXIT
00327 M01S00294.compcvi +++| LPN 77
00328 M01S00295.compcvi +++| LMN 77
00329 M01S00296.compcvi +++| ZJN PTI1 IF UNLIMITED
00330 M01S00297.compcvi +++| LMN 77
00331 M01S00298.compcvi +++| SHN 12
00332 M01S00299.compcvi +++| ADC KPTI
00333 M01S00300.compcvi +++| UJN PTIX RETURN
00334 M01S00301.compcvi +++|
00335 M01S00302.compcvi +++| PTI ENDIF
00336 M01S00303.compcvi +++|
00337 M01S00304.compcvi +++| SLI SPACE 4
00338 M01S00305.compcvi +++|** SLI - SRU LIMIT.
00339 M01S00306.compcvi +++|*
| Line S00307 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2484 |
Seq # *Modification Id* Act
----------------------------+
00340 M02S00307.ns2484 ---|* FORMULA IS - (I * 100B) + KSLI
| Line S00008 Modification History |
M01 (Added by) | ns2484 |
M02 (Updated by) | ns2484a |
Seq # *Modification Id* Act
----------------------------+
00341 M02S00008.ns2484a ---|* FORMULA IS - (I * 1000B) + KSLI
| Line S00001 Modification History |
M01 (Added by) | ns2484a |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
00342 M02S00001.ns2516 ---|* FORMULA IS - (I * 100B) + KSLI
00343 M01S00001.ns2516 +++|* FORMULA IS - (I**2)*10B + KSLI
00344 M01S00308.compcvi +++|*
00345 M01S00309.compcvi +++|* ENTRY (A) = 6-BITS INDEX.
00346 M01S00001.ns2516b +++|* IF (A) .GE. 73B, SET UNLIMITED.
00347 M01S00310.compcvi +++|*
00348 M01S00311.compcvi +++|* EXIT (A) = LIMIT VALUE/10B.
00349 M01S00002.ns2516b +++|* .LT. 0 IF UNLIMITED.
00350 M01S00002.ns2516 +++|*
00351 M01S00003.ns2516 +++|* USES T1, T2, T3.
00352 M01S00312.compcvi +++|
00353 M01S00313.compcvi +++| SLI IF DEF,SLI$
00354 M01S00314.compcvi +++|
00355 M01S00315.compcvi +++| SLI1 LCN 0
00356 M01S00316.compcvi +++|
00357 M01S00317.compcvi +++| SLI SUBR ENTRY/EXIT
00358 M01S00318.compcvi +++| LPN 77
| Line S00319 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2516b |
Seq # *Modification Id* Act
----------------------------+
00359 M02S00319.ns2516b ---| LMN 77
| Line S00320 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2516b |
Seq # *Modification Id* Act
----------------------------+
00360 M02S00320.ns2516b ---| ZJN SLI1 IF UNLIMITED
| Line S00321 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2516b |
Seq # *Modification Id* Act
----------------------------+
00361 M02S00321.ns2516b ---| LMN 77
00362 M01S00003.ns2516b +++| SBN 73
00363 M01S00004.ns2516b +++| PJN SLI1 IF UNLIMITED
00364 M01S00005.ns2516b +++| ADN 73
| Line S00322 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2484 |
Seq # *Modification Id* Act
----------------------------+
00365 M02S00322.ns2484 ---| SHN 6
| Line S00009 Modification History |
M01 (Added by) | ns2484 |
M02 (Updated by) | ns2484a |
Seq # *Modification Id* Act
----------------------------+
00366 M02S00009.ns2484a ---| SHN 11
| Line S00002 Modification History |
M01 (Added by) | ns2484a |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
00367 M02S00002.ns2516 ---| SHN 6
| Line S00323 Modification History |
M01 (Added by) | compcvi |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act
----------------------------+
00368 M02S00323.ns2516 ---| ADC KSLI
00369 M01S00004.ns2516 +++| STD T1
00370 M01S00005.ns2516 +++| STD T3
00371 M01S00006.ns2516 +++| LDN 0
00372 M01S00007.ns2516 +++| STD T2 INITIALIZE COLLECTOR
00373 M01S00008.ns2516 +++| SLI2 LDD T3
00374 M01S00009.ns2516 +++| ZJN SLI4 IF THROUGH SQUARING
00375 M01S00010.ns2516 +++| SHN -1+22
00376 M01S00011.ns2516 +++| STD T3
00377 M01S00012.ns2516 +++| PJN SLI3 IF NO SUM TO ADD TO COLLECTOR
00378 M01S00013.ns2516 +++| LDD T1
00379 M01S00014.ns2516 +++| RAD T2
00380 M01S00015.ns2516 +++| SLI3 LDD T1
00381 M01S00016.ns2516 +++| RAD T1
00382 M01S00017.ns2516 +++| UJN SLI2 CHECK NEXT PLACE
00383 M01S00018.ns2516 +++|
00384 M01S00019.ns2516 +++| SLI4 LDD T2
00385 M01S00020.ns2516 +++| SHN 3
00386 M01S00021.ns2516 +++| ADK KSLI
00387 M01S00324.compcvi +++| UJN SLIX RETURN
00388 M01S00325.compcvi +++|
00389 M01S00326.compcvi +++| SLI ENDIF
00390 M01S00327.compcvi +++| TLI SPACE 4
00391 M01S00328.compcvi +++|** TLI - TIME LIMIT.
00392 M01S00329.compcvi +++|*
00393 M01S00330.compcvi +++|* FORMULA IS - (I * 100B) + KTLI
00394 M01S00331.compcvi +++|*
00395 M01S00332.compcvi +++|* ENTRY (A) = 6-BITS INDEX * 100
00396 M01S00333.compcvi +++|*
00397 M01S00334.compcvi +++|* EXIT (A) = LIMIT VALUE/10B.
00398 M01S00335.compcvi +++|
00399 M01S00336.compcvi +++| TLI IF DEF,TLI$
00400 M01S00337.compcvi +++|
00401 M01S00338.compcvi +++| TLI1 LCN 0
00402 M01S00339.compcvi +++|
00403 M01S00340.compcvi +++| TLI SUBR ENTRY/EXIT
00404 M01S00341.compcvi +++| SHN -6
00405 M01S00342.compcvi +++| LPN 77
00406 M01S00343.compcvi +++| LMN 77
00407 M01S00344.compcvi +++| ZJN TLI1 IF UNLIMITED
00408 M01S00345.compcvi +++| LMN 77
00409 M01S00346.compcvi +++| SHN 6
00410 M01S00347.compcvi +++| ADC KTLI
00411 M01S00348.compcvi +++| UJN TLIX RETURN
00412 M01S00349.compcvi +++|
00413 M01S00350.compcvi +++| TLI ENDIF
00414 M01S00351.compcvi +++| SPACE 4
00415 M01S00352.compcvi +++| BASE *
00416 M01S00353.compcvi +++| QUAL$ IF -DEF,QUAL$
00417 M01S00354.compcvi +++| QUAL *
00418 M01S00355.compcvi +++| CLI$ IF DEF,CLI$
00419 M01S00356.compcvi +++| CLI EQU /COMPCVI/CLI
00420 M01S00357.compcvi +++| CLI$ ENDIF
00421 M01S00358.compcvi +++| CCI$ IF DEF,CCI$
00422 M01S00359.compcvi +++| CCI EQU /COMPCVI/CCI
00423 M01S00360.compcvi +++| CCI$ ENDIF
00424 M01S00361.compcvi +++| CMI$ IF DEF,CMI$
00425 M01S00362.compcvi +++| CMI EQU /COMPCVI/CMI
00426 M01S00363.compcvi +++| CMI$ ENDIF
00427 M01S00364.compcvi +++| CPI$ IF DEF,CPI$
00428 M01S00365.compcvi +++| CPI EQU /COMPCVI/CPI
00429 M01S00366.compcvi +++| CPI$ ENDIF
00430 M01S00367.compcvi +++| DBI$ IF DEF,DBI$
00431 M01S00368.compcvi +++| DBI EQU /COMPCVI/DBI
00432 M01S00369.compcvi +++| DBI$ ENDIF
00433 M01S00370.compcvi +++| DFI$ IF DEF,DFI$
00434 M01S00371.compcvi +++| DFI EQU /COMPCVI/DFI
00435 M01S00372.compcvi +++| DFI$ ENDIF
00436 M01S00373.compcvi +++| DTI$ IF DEF,DTI$
00437 M01S00374.compcvi +++| DTI EQU /COMPCVI/DTI
00438 M01S00375.compcvi +++| DTI$ ENDIF
00439 M01S00376.compcvi +++| ECI$ IF DEF,ECI$
00440 M01S00377.compcvi +++| ECI EQU /COMPCVI/ECI
00441 M01S00378.compcvi +++| ECI$ ENDIF
00442 M01S00379.compcvi +++| LPI$ IF DEF,LPI$
00443 M01S00380.compcvi +++| LPI EQU /COMPCVI/LPI
00444 M01S00381.compcvi +++| LPI$ ENDIF
00445 M01S00382.compcvi +++| MSI$ IF DEF,MSI$
00446 M01S00383.compcvi +++| MSI EQU /COMPCVI/MSI
00447 M01S00384.compcvi +++| MSI$ ENDIF
00448 M01S00385.compcvi +++| PTI$ IF DEF,PTI$
00449 M01S00386.compcvi +++| PTI EQU /COMPCVI/PTI
00450 M01S00387.compcvi +++| PTI$ ENDIF
00451 M01S00388.compcvi +++| SLI$ IF DEF,SLI$
00452 M01S00389.compcvi +++| SLI EQU /COMPCVI/SLI
00453 M01S00390.compcvi +++| SLI$ ENDIF
00454 M01S00391.compcvi +++| TLI$ IF DEF,TLI$
00455 M01S00392.compcvi +++| TLI EQU /COMPCVI/TLI
00456 M01S00393.compcvi +++| TLI$ ENDIF
00457 M01S00394.compcvi +++| QUAL$ ENDIF
00458 M01S00395.compcvi +++| ENDX