Common COMCCVI

8 Modifications

Source

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

Line S00003 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00003  M02S00003.ns2484  ---|          BASE   MIXED
00004  M01S00001.ns2484  +++|          BASE   DECIMAL
00005  M01S00004.comccvi +++|          IF     -DEF,QUAL$,1
00006  M01S00005.comccvi +++|          QUAL   COMCCVI
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00006.comccvi +++| COMCCVI  SPACE  4
00009  M01S00007.comccvi +++|***       COMCCVI - USER CONTROL LIMIT FORMULAE.
00010  M01S00008.comccvi +++|*         R. A. JAPS.        74/09/24.
00011  M01S00009.comccvi +++| COMCCVI  SPACE  4
00012  M01S00010.comccvi +++|***       COMCCVI DEFINES THE FORMULAE FOR CONVERTING FROM AN INDEX
00013  M01S00011.comccvi +++|*         VALUE INTO THE ACTUAL LIMIT VALUE FOR THE FOLLOWING SYSTEM
00014  M01S00012.comccvi +++|*         RESOURCES OR ACTIVITIES THAT INSTALLATIONS MAY CONTROL -
00015  M01S00013.comccvi +++|*                DT   NUMBER OF DETACHED JOBS
00016  M01S00014.comccvi +++|*                DB   DEFERRED BATCH JOBS
00017  M01S00015.comccvi +++|*                TL   TIME LIMIT (UNITS OF 10B)
00018  M01S00016.comccvi +++|*                CM   FIELD LENGTH
00019  M01S00017.comccvi +++|*                PT   UNITS PLOTTED
00020  M01S00018.comccvi +++|*                CP   CARDS PUNCHED
00021  M01S00019.comccvi +++|*                LP   LINES PRINTED
00022  M01S00020.comccvi +++|*                MS   MASS STORAGE PRUS
00023  M01S00021.comccvi +++|*                DF   DAYFILE MESSAGES
00024  M01S00022.comccvi +++|*                CC   CONTROLCARD STATMENTS

Line S00023 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00023.252l678 ---|*                EC   ECS FIELD LENTGH
00026  M01S00001.252l678 +++|*                EC   EXTENDED MEMORY FIELD LENGTH
00027  M01S00024.comccvi +++|*                SL   SRU LIMIT (UNITS OF 10B)
00028  M01S00025.comccvi +++|*                DS   DIRECT ACCESS FILE SIZE
00029  M01S00026.comccvi +++|*                FS   INDIRECT ACCESS FILE SIZE
00030  M01S00027.comccvi +++|*                CS   CUMULATIVE FILE SIZE
00031  M01S00028.comccvi +++|*                FC   PERMANENT FILE COUNT
00032  M01S00029.comccvi +++|*
00033  M01S00030.comccvi +++|*
00034  M01S00031.comccvi +++|*         THE FORMULA WILL BE ASSEMBLED IF XXI$ IS DEFINED IN THE
00035  M01S00032.comccvi +++|*         CALLING PROGRAM, WHERE XX IS ONE OF THE LIMIT MNEMONICS.
00036  M01S00033.comccvi +++|*         FOR EXAMPLE, THE DEFINITION NFI$ WILL CAUSE THE FORMULA
00037  M01S00034.comccvi +++|*         FOR THE NUMBER OF LOCAL FILES TO BE ASSEMBLED.
00038  M01S00035.comccvi +++|*
00039  M01S00036.comccvi +++|*         ALL FORMULAE HAVE THE FOLLOWING ENTRY/EXIT CONDITIONS.
00040  M01S00037.comccvi +++|*
00041  M01S00038.comccvi +++|*         ENTRY  (X1) = INDEX VALUE RIGHT JUSTIFIED.
00042  M01S00039.comccvi +++|*
00043  M01S00040.comccvi +++|*         EXIT   (X1) = LIMIT VALUE.
00044  M01S00041.comccvi +++|*                (X1) .LT. 0,  IF VALUE IS UNLIMITED.
00045  M01S00042.comccvi +++|*
00046  M01S00043.comccvi +++|*         USES   X - 0, 1, 2.
00047  M01S00044.comccvi +++|*                A - 1.
00048  M01S00002.ns2484  +++|*                B - 2.
00049  M01S00045.comccvi +++|*
00050  M01S00046.comccvi +++|*
00051  M01S00047.comccvi +++|*         NOTE - THIS COMMON DECK REQUIRES THAT *COMSACC* AND *COMSPFM*
00052  M01S00048.comccvi +++|*         BE PRESENT SO THAT LIMIT BASE CONSTANTS AND PERMANENT FILE
00053  M01S00049.comccvi +++|*         CONSTANTS ARE AVAILABLE.
00054  M01S00050.comccvi +++| CCI      SPACE  4,3
00055  M01S00051.comccvi +++|**        CCI - CONTROL CARD STATMENTS.
00056  M01S00052.comccvi +++|*

Line S00053 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00053.ns2388  ---|*         FORMULA IS -  (I * 20B) + KCCI
00058  M01S00001.ns2388  +++|*         FORMULA IS -  (I * 100B) + KCCI
00059  M01S00054.comccvi +++|
00060  M01S00055.comccvi +++|
00061  M01S00056.comccvi +++| CCI      IF     DEF,CCI$
00062  M01S00057.comccvi +++|

Line S00058 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00058.ns2388  ---| CCI1     LX1    4           SET VALUE
00064  M01S00002.ns2388  +++| CCI1     LX1    6           SET VALUE
00065  M01S00059.comccvi +++|          SX2    KCCI
00066  M01S00060.comccvi +++|          IX1    X1+X2
00067  M01S00061.comccvi +++|
00068  M01S00062.comccvi +++| CCI      SUBR               ENTRY/EXIT
00069  M01S00063.comccvi +++|          MX0    -6
00070  M01S00064.comccvi +++|          BX1    -X0*X1

Line S00065 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00065.ns2484  ---|          SX2    X1-77
00072  M01S00003.ns2484  +++|          SX2    X1-77B
00073  M01S00066.comccvi +++|          NZ     X2,CCI1     IF NOT UNLIMITED
00074  M01S00067.comccvi +++|          SX1    -1
00075  M01S00068.comccvi +++|          EQ     CCIX        RETURN
00076  M01S00069.comccvi +++|
00077  M01S00070.comccvi +++| CCI      ENDIF
00078  M01S00071.comccvi +++| CMI      SPACE  4,3
00079  M01S00072.comccvi +++|**        CMI - CM FIELD LENGTH.
00080  M01S00073.comccvi +++|*
00081  M01S00074.comccvi +++|*         FORMULA IS -  (I * 40B) + KCMI
00082  M01S00075.comccvi +++|
00083  M01S00076.comccvi +++|
00084  M01S00077.comccvi +++| CMI      IF     DEF,CMI$
00085  M01S00078.comccvi +++|
00086  M01S00079.comccvi +++| CMI1     LX1    5           SET VALUE
00087  M01S00080.comccvi +++|          SX2    KCMI
00088  M01S00081.comccvi +++|          IX1    X1+X2
00089  M01S00082.comccvi +++|
00090  M01S00083.comccvi +++| CMI      SUBR               ENTRY/EXIT
00091  M01S00084.comccvi +++|          MX0    -6
00092  M01S00085.comccvi +++|          BX1    -X0*X1

Line S00086 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00086.ns2484  ---|          SX2    X1-77
00094  M01S00004.ns2484  +++|          SX2    X1-77B
00095  M01S00087.comccvi +++|          NZ     X2,CMI1     IF NOT UNLIMITED
00096  M01S00088.comccvi +++|          SX1    -1
00097  M01S00089.comccvi +++|          EQ     CMIX        RETURN
00098  M01S00090.comccvi +++|
00099  M01S00091.comccvi +++| CMI      ENDIF
00100  M01S00092.comccvi +++| CPI      SPACE  4,3
00101  M01S00093.comccvi +++|**        CPI - CARDS PUNCHED.
00102  M01S00094.comccvi +++|*
00103  M01S00095.comccvi +++|*         FORMULA IS -  (I * 100B) + KCPI
00104  M01S00096.comccvi +++|
00105  M01S00097.comccvi +++|
00106  M01S00098.comccvi +++| CPI      IF     DEF,CPI$
00107  M01S00099.comccvi +++|
00108  M01S00100.comccvi +++| CPI1     LX1    6           SET VALUE
00109  M01S00101.comccvi +++|          SX2    KCPI
00110  M01S00102.comccvi +++|          IX1    X1+X2
00111  M01S00103.comccvi +++|
00112  M01S00104.comccvi +++| CPI      SUBR               ENTRY/EXIT
00113  M01S00105.comccvi +++|          MX0    -6
00114  M01S00106.comccvi +++|          BX1    -X0*X1

Line S00107 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00107.ns2484  ---|          SX2    X1-77
00116  M01S00005.ns2484  +++|          SX2    X1-77B
00117  M01S00108.comccvi +++|          NZ     X2,CPI1     IF NOT UNLIMITED
00118  M01S00109.comccvi +++|          SX1    -1
00119  M01S00110.comccvi +++|          EQ     CPIX        RETURN
00120  M01S00111.comccvi +++|
00121  M01S00112.comccvi +++| CPI      ENDIF
00122  M01S00113.comccvi +++| CSI      SPACE  4,3
00123  M01S00114.comccvi +++|**        CSI - CUMULATIVE FILE SIZE.
00124  M01S00115.comccvi +++|*
00125  M01S00116.comccvi +++|*         VALUE FOUND BY TABLE LOOK-UP METHOD.
00126  M01S00117.comccvi +++|
00127  M01S00118.comccvi +++|
00128  M01S00119.comccvi +++| CSI      IF     DEF,CSI$
00129  M01S00120.comccvi +++|
00130  M01S00121.comccvi +++| CSI      SUBR               ENTRY/EXIT
00131  M01S00122.comccvi +++|          MX0    -3
00132  M01S00123.comccvi +++|          BX1    -X0*X1
00133  M01S00124.comccvi +++|          SA1    X1+THCS
00134  M01S00125.comccvi +++|          EQ     CSIX        RETURN
00135  M01S00126.comccvi +++|
00136  M01S00127.comccvi +++|
00137  M01S00128.comccvi +++|**        THCS - EQUIVALENCE TABLE FOR CUMULATIVE NUMBER OF
00138  M01S00129.comccvi +++|*         SECTORS FOR ALL INDIRECT ACCESS FILES.
00139  M01S00130.comccvi +++|
00140  M01S00131.comccvi +++| THCS     BSS    0
00141  M01S00132.comccvi +++|          LOC    0
00142  M01S00133.comccvi +++|          CON    0

Line S00134 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00134.ns2484  ---|          CON    CSRNG1*100

Line S00135 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00135.ns2484  ---|          CON    CSRNG2*100

Line S00136 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00136.ns2484  ---|          CON    CSRNG3*100

Line S00137 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00137.ns2484  ---|          CON    CSRNG4*100

Line S00138 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00138.ns2484  ---|          CON    CSRNG5*100

Line S00139 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00139.ns2484  ---|          CON    CSRNG6*100
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  M01S00140.comccvi +++|          CON    -1
00156  M01S00141.comccvi +++|          LOC    *O
00157  M01S00142.comccvi +++|
00158  M01S00143.comccvi +++| CSI      ENDIF
00159  M01S00144.comccvi +++| DBI      SPACE  4,3
00160  M01S00145.comccvi +++|**        DBI - DEFERRED BATCH JOB.
00161  M01S00146.comccvi +++|*

Line S00147 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00147.ns2484  ---|*         FORMULA IS -  (I * 2)
00163  M01S00012.ns2484  +++|*         FORMULA IS -  (2 ** I)
00164  M01S00001.ns2554  +++|*         EXCEPTION - ENTRY OF ZERO RETURNS ZERO.
00165  M01S00148.comccvi +++|
00166  M01S00149.comccvi +++|
00167  M01S00150.comccvi +++| DBI      IF     DEF,DBI$
00168  M01S00151.comccvi +++|
00169  M01S00152.comccvi +++| DBI      SUBR               ENTRY/EXIT
00170  M01S00153.comccvi +++|          MX0    -3
00171  M01S00154.comccvi +++|          BX1    -X0*X1
00172  M01S00013.ns2484  +++|          ZR     X1,DBIX     IF ZERO INDEX
00173  M01S00014.ns2484  +++|          SB2    X1
00174  M01S00155.comccvi +++|          SX2    X1-7

Line S00156 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00156.ns2484  ---|          LX1    1           SET VALUE
00176  M01S00015.ns2484  +++|          SX1    1
00177  M01S00016.ns2484  +++|          LX1    B2,X1       SET VALUE
00178  M01S00157.comccvi +++|          NZ     X2,DBIX     IF NOT UNLIMITED
00179  M01S00158.comccvi +++|          SX1    -1
00180  M01S00159.comccvi +++|          EQ     DBIX        RETURN
00181  M01S00160.comccvi +++|
00182  M01S00161.comccvi +++| DBI      ENDIF
00183  M01S00162.comccvi +++| DFI      SPACE  4,3
00184  M01S00163.comccvi +++|**        DFI - DAYFILE MESSAGES.
00185  M01S00164.comccvi +++|*

Line S00165 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00165.ns2388  ---|*         FORMULA IS -  (I * 20B) + KDFI
00187  M01S00003.ns2388  +++|*         FORMULA IS -  (I * 100B) + KDFI
00188  M01S00166.comccvi +++|
00189  M01S00167.comccvi +++|
00190  M01S00168.comccvi +++| DFI      IF     DEF,DFI$
00191  M01S00169.comccvi +++|

Line S00170 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00170.ns2388  ---| DFI1     LX1    4           SET VALUE
00193  M01S00004.ns2388  +++| DFI1     LX1    6           SET VALUE
00194  M01S00171.comccvi +++|          SX2    KDFI
00195  M01S00172.comccvi +++|          IX1    X1+X2
00196  M01S00173.comccvi +++|
00197  M01S00174.comccvi +++| DFI      SUBR               ENTRY/EXIT
00198  M01S00175.comccvi +++|          MX0    -6
00199  M01S00176.comccvi +++|          BX1    -X0*X1

Line S00177 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00177.ns2484  ---|          SX2    X1-77
00201  M01S00017.ns2484  +++|          SX2    X1-77B
00202  M01S00178.comccvi +++|          NZ     X2,DFI1     IF NOT UNLIMITED
00203  M01S00179.comccvi +++|          SX1    -1
00204  M01S00180.comccvi +++|          EQ     DFIX        RETURN
00205  M01S00181.comccvi +++|
00206  M01S00182.comccvi +++| DFI      ENDIF
00207  M01S00183.comccvi +++| DSI      SPACE  4,3
00208  M01S00184.comccvi +++|**        DSI - DIRECT ACCESS FILE SIZE.
00209  M01S00185.comccvi +++|*
00210  M01S00186.comccvi +++|*         VALUE FOUND BY TABLE LOOK-UP METHOD.
00211  M01S00187.comccvi +++|
00212  M01S00188.comccvi +++|
00213  M01S00189.comccvi +++| DSI      IF DEF,DSI$
00214  M01S00190.comccvi +++|
00215  M01S00191.comccvi +++| DSI      SUBR               ENTRY/EXIT
00216  M01S00192.comccvi +++|          MX0    -3
00217  M01S00193.comccvi +++|          BX1    -X0*X1
00218  M01S00194.comccvi +++|          SA1    X1+THDS
00219  M01S00195.comccvi +++|          EQ     DSIX        RETURB
00220  M01S00196.comccvi +++|
00221  M01S00197.comccvi +++|
00222  M01S00198.comccvi +++|**        THDS - EQUIVALENCE TABLE FOR MAXIMUM NUMBER OF SECTORS
00223  M01S00199.comccvi +++|*         FOR ANY SINGLE DIRECT ACCESS PERMANENT FILE.
00224  M01S00200.comccvi +++|
00225  M01S00201.comccvi +++| THDS     BSS    0
00226  M01S00202.comccvi +++|          LOC    0
00227  M01S00203.comccvi +++|          CON    0

Line S00204 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00204.ns2484  ---|          CON    DSRNG1*100

Line S00205 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00229  M02S00205.ns2484  ---|          CON    DSRNG2*100

Line S00206 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00230  M02S00206.ns2484  ---|          CON    DSRNG3*100

Line S00207 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00231  M02S00207.ns2484  ---|          CON    DSRNG4*100

Line S00208 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00232  M02S00208.ns2484  ---|          CON    DSRNG5*100

Line S00209 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00233  M02S00209.ns2484  ---|          CON    DSRNG6*100
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  M01S00210.comccvi +++|          CON    -1
00241  M01S00211.comccvi +++|          LOC    *O
00242  M01S00212.comccvi +++|
00243  M01S00213.comccvi +++| DSI      ENDIF
00244  M01S00214.comccvi +++|**        DTI - NUMBER OF DETACHED JOBS.
00245  M01S00215.comccvi +++|*
00246  M01S00216.comccvi +++|*         FORMULA IS - (I + KDTI).
00247  M01S00217.comccvi +++|
00248  M01S00218.comccvi +++|
00249  M01S00219.comccvi +++| DTI      IF     DEF,DTI$
00250  M01S00220.comccvi +++|
00251  M01S00221.comccvi +++| DTI1     SX2    KDTI        ADD VALUE
00252  M01S00222.comccvi +++|          IX1    X1+X2
00253  M01S00223.comccvi +++|
00254  M01S00224.comccvi +++| DTI      SUBR               ENTRY/EXIT
00255  M01S00225.comccvi +++|          MX0    -6
00256  M01S00226.comccvi +++|          BX1    -X0*X1
00257  M01S00227.comccvi +++|          SX2    X1-77B
00258  M01S00228.comccvi +++|          NZ     X2,DTI1     IF NOT UNLIMITED
00259  M01S00229.comccvi +++|          SX1    -1
00260  M01S00230.comccvi +++|          EQ     DTIX        RETURN
00261  M01S00231.comccvi +++|
00262  M01S00232.comccvi +++| DTI      ENDIF
00263  M01S00233.comccvi +++| ECI      SPACE  4,3

Line S00234 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00234.252l678 ---|**        ECI - ECS FIELD LENGTH IN 1000B WORD BLOCKS.
00265  M01S00002.252l678 +++|**        ECI - EXTENDED MEMORY FIELD LENGTH IN 1000B WORD BLOCKS.
00266  M01S00235.comccvi +++|*
00267  M01S00236.comccvi +++|*         FORMULA IS - (I * 20B) + KECI
00268  M01S00237.comccvi +++|
00269  M01S00238.comccvi +++|
00270  M01S00239.comccvi +++| ECI      IF     DEF,ECI$
00271  M01S00240.comccvi +++|
00272  M01S00241.comccvi +++| ECI1     LX1    4           SET VALUE
00273  M01S00242.comccvi +++|          SX2    KECI
00274  M01S00243.comccvi +++|          IX1    X1+X2
00275  M01S00244.comccvi +++|
00276  M01S00245.comccvi +++| ECI      SUBR               ENTRY/EXIT
00277  M01S00246.comccvi +++|          MX0    -6
00278  M01S00247.comccvi +++|          BX1    -X0*X1

Line S00248 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00248.ns2484  ---|          SX2    X1-77
00280  M01S00024.ns2484  +++|          SX2    X1-77B
00281  M01S00249.comccvi +++|          NZ     X2,ECI1     IF NOT UNLIMITED
00282  M01S00250.comccvi +++|          SX1    -1
00283  M01S00251.comccvi +++|          EQ     ECIX        RETURN
00284  M01S00252.comccvi +++|
00285  M01S00253.comccvi +++| ECI      ENDIF
00286  M01S00254.comccvi +++| FCI      SPACE  4,3
00287  M01S00255.comccvi +++|**        FCI - PERMANENT FILE COUNT.
00288  M01S00256.comccvi +++|*
00289  M01S00257.comccvi +++|*         VALUE FOUND BY TABLE LOOK-UP METHOD.
00290  M01S00258.comccvi +++| FCI      IF     DEF,FCI$
00291  M01S00259.comccvi +++|
00292  M01S00260.comccvi +++| FCI      SUBR               ENTRY/EXIT
00293  M01S00261.comccvi +++|          MX0    -3
00294  M01S00262.comccvi +++|          BX1    -X0*X1
00295  M01S00263.comccvi +++|          SA1    X1+THFC
00296  M01S00264.comccvi +++|          EQ     FCIX        RETURN
00297  M01S00265.comccvi +++|
00298  M01S00266.comccvi +++|
00299  M01S00267.comccvi +++|**        THFC - EQUIVALENCE TABLE FOR MAXIMUM NUMBER OF INDIRECT
00300  M01S00268.comccvi +++|*                ACCESS PERMANENT FILES.
00301  M01S00269.comccvi +++|
00302  M01S00270.comccvi +++| THFC     BSS    0
00303  M01S00271.comccvi +++|          LOC    0
00304  M01S00272.comccvi +++|          CON    0

Line S00273 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00273.ns2484  ---|          CON    NFRNG1*10

Line S00274 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00274.ns2484  ---|          CON    NFRNG2*10

Line S00275 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00307  M02S00275.ns2484  ---|          CON    NFRNG3*10

Line S00276 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00308  M02S00276.ns2484  ---|          CON    NFRNG4*10

Line S00277 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00277.ns2484  ---|          CON    NFRNG5*10

Line S00278 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00278.ns2484  ---|          CON    NFRNG6*10
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  M01S00279.comccvi +++|          CON    -1
00318  M01S00280.comccvi +++|          LOC    *O
00319  M01S00281.comccvi +++|
00320  M01S00282.comccvi +++| FCI      ENDIF
00321  M01S00283.comccvi +++| FSI      SPACE  4,3
00322  M01S00284.comccvi +++|**        FSI - INDIRECT FILE SIZE.
00323  M01S00285.comccvi +++|*
00324  M01S00286.comccvi +++|*         VALUE FOUND BY TABLE LOOK-UP METHOD.
00325  M01S00287.comccvi +++|
00326  M01S00288.comccvi +++|
00327  M01S00289.comccvi +++| FSI      IF     DEF,FSI$
00328  M01S00290.comccvi +++|
00329  M01S00291.comccvi +++| FSI      SUBR               ENTRY/EXIT
00330  M01S00292.comccvi +++|          MX0    -3
00331  M01S00293.comccvi +++|          BX1    -X0*X1
00332  M01S00294.comccvi +++|          SA1    X1+THFS
00333  M01S00295.comccvi +++|          EQ     FSIX        RETURN
00334  M01S00296.comccvi +++|
00335  M01S00297.comccvi +++|
00336  M01S00298.comccvi +++|**        THFS - EQUVALENCE TABLE FOR MAXIMUM NUMBER OF SECTORS
00337  M01S00299.comccvi +++|*                FOR ANY SINGLE INDIRECT ACCESS FILE
00338  M01S00300.comccvi +++|
00339  M01S00301.comccvi +++| THFS     BSS    0
00340  M01S00302.comccvi +++|          LOC    0
00341  M01S00303.comccvi +++|          CON    0

Line S00304 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00304.ns2484  ---|          CON    FSRNG1*10

Line S00305 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00305.ns2484  ---|          CON    FSRNG2*10

Line S00306 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00306.ns2484  ---|          CON    FSRNG3*10

Line S00307 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00307.ns2484  ---|          CON    FSRNG4*10

Line S00308 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00308.ns2484  ---|          CON    FSRNG5*10

Line S00309 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00309.ns2484  ---|          CON    FSRNG6*10
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  M01S00310.comccvi +++|          CON    -1
00355  M01S00311.comccvi +++|          LOC    *O
00356  M01S00312.comccvi +++|
00357  M01S00313.comccvi +++| FSI      ENDIF
00358  M01S00314.comccvi +++| LPI      SPACE  4,3
00359  M01S00315.comccvi +++|**        LPI - LINES PRINTED.
00360  M01S00316.comccvi +++|*
00361  M01S00317.comccvi +++|*         FORMULA IS - (I * 2000B) + KLPI
00362  M01S00318.comccvi +++|
00363  M01S00319.comccvi +++|
00364  M01S00320.comccvi +++| LPI      IF     DEF,LPI$
00365  M01S00321.comccvi +++|

Line S00322 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00322.ns2484  ---| LPI1     LX1    12          SET VALUE
00367  M01S00037.ns2484  +++| LPI1     LX1    10          SET VALUE
00368  M01S00323.comccvi +++|          SX2    KLPI
00369  M01S00324.comccvi +++|          IX1    X1+X2
00370  M01S00325.comccvi +++|
00371  M01S00326.comccvi +++| LPI      SUBR               ENTRY/EXIT
00372  M01S00327.comccvi +++|          MX0    -6
00373  M01S00328.comccvi +++|          BX1    -X0*X1

Line S00329 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00374  M02S00329.ns2484  ---|          SX2    X1-77
00375  M01S00038.ns2484  +++|          SX2    X1-77B
00376  M01S00330.comccvi +++|          NZ     X2,LPI1     IF NOT UNLIMITED
00377  M01S00331.comccvi +++|          SX1    -1
00378  M01S00332.comccvi +++|          EQ     LPIX        RETURN
00379  M01S00333.comccvi +++|
00380  M01S00334.comccvi +++| LPI      ENDIF
00381  M01S00335.comccvi +++| MSI      SPACE  4,3
00382  M01S00336.comccvi +++|**        MSI - MASS STORAGE PRUS.
00383  M01S00337.comccvi +++|*
00384  M01S00338.comccvi +++|*         FORMULA IS -  (I * 10000B) + KMSI
00385  M01S00339.comccvi +++|
00386  M01S00340.comccvi +++|
00387  M01S00341.comccvi +++| MSI      IF     DEF,MSI$
00388  M01S00342.comccvi +++|

Line S00343 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00343.ns2484  ---| MSI1     LX1    14          SET VALUE
00390  M01S00039.ns2484  +++| MSI1     LX1    12          SET VALUE
00391  M01S00344.comccvi +++|          SX2    KMSI
00392  M01S00345.comccvi +++|          IX1    X1+X2
00393  M01S00346.comccvi +++|
00394  M01S00347.comccvi +++| MSI      SUBR               ENTRY/EXIT
00395  M01S00348.comccvi +++|          MX0    -6
00396  M01S00349.comccvi +++|          BX1    -X0*X1

Line S00350 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00350.ns2484  ---|          SX2    X1-77
00398  M01S00040.ns2484  +++|          SX2    X1-77B
00399  M01S00351.comccvi +++|          NZ     X2,MSI1     IF NOT UNLIMITED
00400  M01S00352.comccvi +++|          SX1    -1
00401  M01S00353.comccvi +++|          EQ     MSIX        RETURN
00402  M01S00354.comccvi +++|
00403  M01S00355.comccvi +++| MSI      ENDIF
00404  M01S00356.comccvi +++| PTI      SPACE  4,10
00405  M01S00357.comccvi +++|**        PTI - UNITS PLOTTED.
00406  M01S00358.comccvi +++|*
00407  M01S00359.comccvi +++|*         FORMULA IS - ( I * 2000B ) + KPTI
00408  M01S00360.comccvi +++|
00409  M01S00361.comccvi +++|
00410  M01S00362.comccvi +++| PTI      IF     DEF,PTI$
00411  M01S00363.comccvi +++|

Line S00364 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00364.ns2484  ---| PTI1     LX1    12          SET VALUE
00413  M01S00041.ns2484  +++| PTI1     LX1    10          SET VALUE
00414  M01S00365.comccvi +++|          SX2    KPTI
00415  M01S00366.comccvi +++|          IX1    X1+X2
00416  M01S00367.comccvi +++|
00417  M01S00368.comccvi +++| PTI      SUBR               ENTRY/EXIT
00418  M01S00369.comccvi +++|          MX0    -6
00419  M01S00370.comccvi +++|          BX1    -X0*X1
00420  M01S00371.comccvi +++|          SX2    X1-77B
00421  M01S00372.comccvi +++|          NZ     X2,PTI1     IF NOT UNLIMITED
00422  M01S00373.comccvi +++|          SX1    -1
00423  M01S00374.comccvi +++|          EQ     PTIX        RETURN
00424  M01S00375.comccvi +++|
00425  M01S00376.comccvi +++| PTI      ENDIF
00426  M01S00377.comccvi +++| SLI      SPACE  4,3
00427  M01S00378.comccvi +++|**        SLI - SRU LIMIT.
00428  M01S00379.comccvi +++|*

Line S00380 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00001.ns2516  ---|*         FORMULA IS -  (I * 100B) + KSLI
00432  M01S00001.ns2516  +++|*         FORMULA IS -  ((I**2)*10B) + KSLI
00433  M01S00381.comccvi +++|*
00434  M01S00382.comccvi +++|*         EXIT   (X1) = LIMIT VALUE/10B.
00435  M01S00383.comccvi +++|
00436  M01S00384.comccvi +++|
00437  M01S00385.comccvi +++| SLI      IF     DEF,SLI$
00438  M01S00386.comccvi +++|

Line S00387 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00002.ns2516  ---| SLI1     LX1    6           SET VALUE
00442  M01S00002.ns2516  +++| SLI1     IX1    X1*X1       SET VALUE
00443  M01S00003.ns2516  +++|          LX1    3
00444  M01S00388.comccvi +++|          SX2    KSLI
00445  M01S00389.comccvi +++|          IX1    X1+X2
00446  M01S00390.comccvi +++|
00447  M01S00391.comccvi +++| SLI      SUBR               ENTRY/EXIT
00448  M01S00392.comccvi +++|          MX0    -6
00449  M01S00393.comccvi +++|          BX1    -X0*X1

Line S00394 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

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

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

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

Line S00395 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2516b`

Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00395.ns2516b ---|          NZ     X2,SLI1     IF NOT UNLIMITED
00453  M01S00001.ns2516b +++|          SX2    X1-73B
00454  M01S00002.ns2516b +++|          NG     X2,SLI1     IF NOT UNLIMITED
00455  M01S00396.comccvi +++|          SX1    -1
00456  M01S00397.comccvi +++|          EQ     SLIX        RETURN
00457  M01S00398.comccvi +++|
00458  M01S00399.comccvi +++| SLI      ENDIF
00459  M01S00400.comccvi +++| TLI      SPACE  4,3
00460  M01S00401.comccvi +++|**        TLI - TIME LIMIT.
00461  M01S00402.comccvi +++|*
00462  M01S00403.comccvi +++|*         FORMULA IS -  (I * 100B) + KTLI
00463  M01S00404.comccvi +++|*
00464  M01S00405.comccvi +++|*         EXIT   (X1) = LIMIT VALUE/10B.
00465  M01S00406.comccvi +++|
00466  M01S00407.comccvi +++|
00467  M01S00408.comccvi +++| TLI      IF     DEF,TLI$
00468  M01S00409.comccvi +++|
00469  M01S00410.comccvi +++| TLI1     LX1    6           SET VALUE
00470  M01S00411.comccvi +++|          SX2    KTLI
00471  M01S00412.comccvi +++|          IX1    X1+X2
00472  M01S00413.comccvi +++|
00473  M01S00414.comccvi +++| TLI      SUBR               ENTRY/EXIT
00474  M01S00415.comccvi +++|          MX0    -6
00475  M01S00416.comccvi +++|          BX1    -X0*X1

Line S00417 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2484`

Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00417.ns2484  ---|          SX2    X1-77
00477  M01S00045.ns2484  +++|          SX2    X1-77B
00478  M01S00418.comccvi +++|          NZ     X2,TLI1     IF NOT UNLIMITED
00479  M01S00419.comccvi +++|          SX1    -1
00480  M01S00420.comccvi +++|          EQ     TLIX        RETURN
00481  M01S00421.comccvi +++|
00482  M01S00422.comccvi +++| TLI      ENDIF
00483  M01S00423.comccvi +++|          SPACE  4
00484  M01S00424.comccvi +++|          BASE   *
00485  M01S00425.comccvi +++| QUAL$    IF     -DEF,QUAL$
00486  M01S00426.comccvi +++|          QUAL   *
00487  M01S00427.comccvi +++| CCI$     IF     DEF,CCI$
00488  M01S00428.comccvi +++| CCI      EQU    /COMCCVI/CCI
00489  M01S00429.comccvi +++| CCI$     ENDIF
00490  M01S00430.comccvi +++| CMI$     IF     DEF,CMI$
00491  M01S00431.comccvi +++| CMI      EQU    /COMCCVI/CMI
00492  M01S00432.comccvi +++| CMI$     ENDIF
00493  M01S00433.comccvi +++| CPI$     IF     DEF,CPI$
00494  M01S00434.comccvi +++| CPI      EQU    /COMCCVI/CPI
00495  M01S00435.comccvi +++| CPI$     ENDIF
00496  M01S00436.comccvi +++| CSI$     IF     DEF,CSI$
00497  M01S00437.comccvi +++| CSI      EQU    /COMCCVI/CSI
00498  M01S00438.comccvi +++| CSI$     ENDIF
00499  M01S00439.comccvi +++| DBI$     IF     DEF,DBI$
00500  M01S00440.comccvi +++| DBI      EQU    /COMCCVI/DBI
00501  M01S00441.comccvi +++| DBI$     ENDIF
00502  M01S00442.comccvi +++| DFI$     IF     DEF,DFI$
00503  M01S00443.comccvi +++| DFI      EQU    /COMCCVI/DFI
00504  M01S00444.comccvi +++| DFI$     ENDIF
00505  M01S00445.comccvi +++| DSI$     IF     DEF,DSI$
00506  M01S00446.comccvi +++| DSI      EQU    /COMCCVI/DSI
00507  M01S00447.comccvi +++| DSI$     ENDIF
00508  M01S00448.comccvi +++| DTI$     IF     DEF,DTI$
00509  M01S00449.comccvi +++| DTI      EQU    /COMCCVI/DTI
00510  M01S00450.comccvi +++| DTI$     ENDIF
00511  M01S00451.comccvi +++| ECI$     IF     DEF,ECI$
00512  M01S00452.comccvi +++| ECI      EQU    /COMCCVI/ECI
00513  M01S00453.comccvi +++| ECI$     ENDIF
00514  M01S00454.comccvi +++| FCI$     IF     DEF,FCI$
00515  M01S00455.comccvi +++| FCI      EQU    /COMCCVI/FCI
00516  M01S00456.comccvi +++| FCI$     ENDIF
00517  M01S00457.comccvi +++| FSI$     IF     DEF,FSI$
00518  M01S00458.comccvi +++| FSI      EQU    /COMCCVI/FSI
00519  M01S00459.comccvi +++| FSI$     ENDIF
00520  M01S00460.comccvi +++| LPI$     IF     DEF,LPI$
00521  M01S00461.comccvi +++| LPI      EQU    /COMCCVI/LPI
00522  M01S00462.comccvi +++| LPI$     ENDIF
00523  M01S00463.comccvi +++| MSI$     IF     DEF,MSI$
00524  M01S00464.comccvi +++| MSI      EQU    /COMCCVI/MSI
00525  M01S00465.comccvi +++| MSI$     ENDIF
00526  M01S00466.comccvi +++| PTI$     IF     DEF,PTI$
00527  M01S00467.comccvi +++| PTI      EQU    /COMCCVI/PTI
00528  M01S00468.comccvi +++| PTI$     ENDIF
00529  M01S00469.comccvi +++| TLI$     IF     DEF,TLI$
00530  M01S00470.comccvi +++| TLI      EQU    /COMCCVI/TLI
00531  M01S00471.comccvi +++| TLI$     ENDIF
00532  M01S00472.comccvi +++| SLI$     IF     DEF,SLI$
00533  M01S00473.comccvi +++| SLI      EQU    /COMCCVI/SLI
00534  M01S00474.comccvi +++| SLI$     ENDIF
00535  M01S00475.comccvi +++| QUAL$    ENDIF
00536  M01S00476.comccvi +++|          ENDX
00537  M01S00014.comccvi +++|COMCCVL

Line S37973 Modification History
`M01` (Yanked) (Updated by)	`@004863`
`M02` (Yanked) (Updated by)	`@008398`
`M03` (Yanked) (Updated by)	`@012501`
`M04` (Yanked) (Updated by)	`@049151`

Seq #  *Modification Id* Act 
----------------------------+
00538  M04S37973.@049151 ---|
00539  M01S00005.comccvi +++|          BASE   D

Line S00006 Modification History
`M01` (Added by)	`comccvi`
`M02` (Updated by)	`ns2388`

Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00006.ns2388  ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1977.
00541  M01S00001.ns2388  +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00542  M01S00007.comccvi +++|          SPACE  4
00543  M01S00008.comccvi +++|***       CVL - COMMON VALIDATION INTERFACE PROCESSOR.
00544  M01S00009.comccvi +++|*         R. E. DENNIS.      77/02/07.
00545  M01S00010.comccvi +++|          SPACE  4
00546  M01S00011.comccvi +++|***              CVL CALLS THE PP PROGRAM *CVL* TO PERFORM VALIDATON
00547  M01S00012.comccvi +++|*         OF ON-LINE DIAGNOSTIC USERS AND EQUIPMENT TO BE TESTED.
00548  M01S00013.comccvi +++|*
00549  M01S00014.comccvi +++|*         ENTRY  (X1) = ADDRESS OF PARAMETER BLOCK.
00550  M01S00015.comccvi +++|*                (X2) = REQUEST.
00551  M01S00016.comccvi +++|*
00552  M01S00017.comccvi +++|*         USES   X - 1, 2, 6.
00553  M01S00018.comccvi +++|*
00554  M01S00019.comccvi +++|*         CALLS  SYS=.
00555  M01S00020.comccvi +++|
00556  M01S00021.comccvi +++|
00557  M01S00022.comccvi +++| CVL1     RJ     =XSYS=      MAKE RA+1 CALL
00558  M01S00023.comccvi +++|
00559  M01S00024.comccvi +++| CVL=     PS                 ENTRY/EXIT
00560  M01S00025.comccvi +++|          MX6    -18         POSITION PARAMETER BLOCK ADDRESS
00561  M01S00026.comccvi +++|          BX1    -X6*X1
00562  M01S00027.comccvi +++|          LX2    18
00563  M01S00028.comccvi +++|          SX6    4RCVLP/16   SET *CVL* CALL
00564  M01S00029.comccvi +++|          BX1    X2+X1       MERGE REQUEST
00565  M01S00030.comccvi +++|          LX6    40
00566  M01S00031.comccvi +++|          BX6    X6+X1
00567  M01S00032.comccvi +++|          EQ     CVL1        MAKE CALL
00568  M01S00033.comccvi +++|          SPACE  4,10
00569  M01S00034.comccvi +++|          BASE   *
00570  M01S00035.comccvi +++| QUAL$    IF     -DEF,QUAL$
00571  M01S00036.comccvi +++|          QUAL   *
00572  M01S00037.comccvi +++| CVL=     EQU    /COMCCVL/CVL=
00573  M01S00038.comccvi +++| QUAL$    ENDIF
00574  M01S00039.comccvi +++|          ENDX