User Tools

Site Tools


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