cdc:nos2.source:opl.opl871:common:compcvi
Common COMPCVI
11 Modifications
Source
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
cdc/nos2.source/opl.opl871/common/compcvi.txt · Last modified: by 127.0.0.1