User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comcvdt

Common COMCVDT

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcvdt +++|          CTEXT  COMCVDT - VALIDATE AND CONVERT DATE AND TIME.
00002  M01S00002.comcvdt +++|          SPACE  4,10
00003  M01S00003.comcvdt +++|          IF     -DEF,QUAL$
00004  M01S00004.comcvdt +++|          QUAL   COMCVDT
00005  M01S00005.comcvdt +++|          ENDIF
00006  M01S00006.comcvdt +++|          BASE   D
Line S00007 Modification History
M01 (Added by) comcvdt
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1982.
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.comcvdt +++| VDT      SPACE  4,10
00010  M01S00009.comcvdt +++|***       COMCVDT - VALIDATE AND CONVERT DATE AND TIME.
00011  M01S00010.comcvdt +++|*
00012  M01S00011.comcvdt +++|*         M. S. PESCHMAN.    82/09/20.
00013  M01S00012.comcvdt +++|          SPACE  4,10
Line S00013 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00014  M02S00013.ns2628  ---|***       VDT WILL CONVERT A SUPPLIED DISPLAY CODED DATE OR TIME TO A
Line S00014 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00014.ns2628  ---|*         BINARY VALUE AND CHECK THE VALIDITY OF THE ENTRY.
Line S00015 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00015.ns2628  ---| VDT      SPACE  4,25
00017  M01S00001.ns2628  +++|***       *VDT* CONVERTS A DISPLAY CODED DATE OR TIME TO PACKED FORMAT.
00018  M01S00002.ns2628  +++|*         A STATUS IS RETURNED INDICATING WHETHER THE SPECIFIED DATE OR
00019  M01S00003.ns2628  +++|*         TIME IS BEFORE OR AFTER A DEFINED BASE DATE AND TIME.
00020  M01S00004.ns2628  +++|*
00021  M01S00005.ns2628  +++|*         THE BASE DATE AND TIME WILL BE SET TO THE CURRENT DATE AND
00022  M01S00006.ns2628  +++|*         TIME ON THE FIRST CALL TO *VDT* IF NOT PRESET BY THE CALLER.
00023  M01S00007.ns2628  +++| VDT      SPACE  4,35
00024  M01S00016.comcvdt +++|**        VDT - CONVERT DATE AND TIME.
00025  M01S00017.comcvdt +++|*
00026  M01S00018.comcvdt +++|*         ENTRY  (X1) = DATE YYMMDD OR TIME HHMMSS, LEFT JUSTIFIED.
00027  M01S00008.ns2628  +++|*                (X2) = 0 IF TO CONVERT DATE.
00028  M01S00019.comcvdt +++|*                (X2) = 1 IF TO CONVERT TIME.
Line S00020 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00020.ns2628  ---|*                (X2) = 0 IF TO CONVERT DATE.
00030  M01S00009.ns2628  +++|*                (VDTA) = 0 IF TO USE CURRENT SYSTEM DATE AND TIME AS
00031  M01S00010.ns2628  +++|*                           BASE.
00032  M01S00011.ns2628  +++|*                (VDTA) = PACKED FORMAT BASE DATE AND TIME IF .NE. 0.
00033  M01S00021.comcvdt +++|*
Line S00022 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00022.ns2628  ---|*         EXIT   (X6) = DATE OR TIME IN 18 BIT FORMAT.
Line S00023 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00023.ns2628  ---|*                (X6) .LT. 0 IF ERROR IN CONVERSION.
Line S00024 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00024.ns2628  ---|*                (X1) .LT. 0 IF DATE OR TIME EARLIER THAN PRESENT.
Line S00025 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00025.ns2628  ---|*                (X1) .GE. 0 IF DATE OR TIME LATER THAN PRESENT.
00038  M01S00012.ns2628  +++|*         EXIT   (X6) = DATE OR TIME IN 18 BIT PACKED FORMAT.
00039  M01S00013.ns2628  +++|*                (X6) .LT. 0 IF ERROR IN DATE OR TIME ENTRY.
00040  M01S00014.ns2628  +++|*                (X1) .LT. 0 IF DATE OR TIME EARLIER THAN BASE DATE AND
00041  M01S00015.ns2628  +++|*                     TIME.
00042  M01S00016.ns2628  +++|*                (X1) .GE. 0 IF DATE OR TIME LATER THAN BASE DATE AND
00043  M01S00017.ns2628  +++|*                     TIME.
00044  M01S00018.ns2628  +++|*                (VDTA) = BASE DATE AND TIME.
00045  M01S00026.comcvdt +++|*
00046  M01S00027.comcvdt +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
00047  M01S00028.comcvdt +++|*                A - 1, 2, 4, 6, 7.
00048  M01S00029.comcvdt +++|*                B - 6, 7.
00049  M01S00030.comcvdt +++|*
00050  M01S00031.comcvdt +++|*         CALLS  DXB.
00051  M01S00019.ns2628  +++|*
00052  M01S00020.ns2628  +++|*         MACROS PDATE.
00053  M01S00032.comcvdt +++|*
00054  M01S00033.comcvdt +++|*         NOTES  THE FOLLOWING RULES ARE USED TO DETERMINE THE
00055  M01S00034.comcvdt +++|*                VALIDITY OF THE ENTERED DATE OR TIME.
00056  M01S00035.comcvdt +++|*
00057  M01S00036.comcvdt +++|*                1. YEAR MUST BE IN THE RANGE 1970 - 2033.  THE LAST
00058  M01S00037.comcvdt +++|*                   TWO DIGITS ARE USED, I.E. *12* FOR 2012.
00059  M01S00038.comcvdt +++|*                2. SIX DISPLAY CODE DIGITS MUST BE ENTERED.
00060  M01S00039.comcvdt +++|*                3. THE YEAR 2000 IS A LEAP YEAR.
00061  M01S00040.comcvdt +++|*
00062  M01S00041.comcvdt +++|*         XREF   COMCDXB.
00063  M01S00042.comcvdt +++|
00064  M01S00043.comcvdt +++|
00065  M01S00044.comcvdt +++| VDT      SUBR               ENTRY/EXIT
00066  M01S00045.comcvdt +++|
Line S00046 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00046.ns2628  ---|*         SAVE INPUT PARAMETERS.
00068  M01S00021.ns2628  +++|*         SAVE INPUT PARAMETERS AND GET CURRENT PACKED DATE AND TIME IF
00069  M01S00022.ns2628  +++|*         REQUIRED.
00070  M01S00047.comcvdt +++|
Line S00048 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00048.ns2628  ---|          BX6    X6-X6       CLEAR ASSEMBLY AREA
Line S00049 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00049.ns2628  ---|          SA6    VDTA
Line S00050 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00050.ns2628  ---|          BX6    X1          SAVE DISPLAY DATE OR TIME TO CONVERT
Line S00051 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00051.ns2628  ---|          SA6    VDTB
00075  M01S00023.ns2628  +++|          BX7    X1          SAVE DATE OR TIME ENTRY
00076  M01S00052.comcvdt +++|          BX6    X2          SAVE DATE/TIME FLAG
Line S00053 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00053.ns2628  ---|          SA6    A6+B1
Line S00054 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00054.ns2628  ---|          MX7    -24
Line S00055 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00055.ns2628  ---|          BX2    -X7*X1
00080  M01S00024.ns2628  +++|          SA7    VDTB
00081  M01S00025.ns2628  +++|          SA6    VDTC
00082  M01S00026.ns2628  +++|          SA1    VDTA
00083  M01S00027.ns2628  +++|          NZ     X1,VDT0.1   IF BASE DATE AND TIME PRESENT
00084  M01S00028.ns2628  +++|          PDATE  VDTA        GET CURRENT PACKED DATE AND TIME
00085  M01S00029.ns2628  +++| VDT0.1   BX6    X6-X6       CLEAR ASSEMBLY AREA
00086  M01S00030.ns2628  +++|          SA6    VDTF
00087  M01S00031.ns2628  +++|          MX6    -24
00088  M01S00032.ns2628  +++|          BX2    -X6*X7
00089  M01S00056.comcvdt +++|          NZ     X2,VDT2     IF NOT ZERO FILLED
Line S00057 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00057.ns2628  ---|          MX7    6
Line S00058 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00058.ns2628  ---|          LX7    -30
Line S00059 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00059.ns2628  ---|          BX7    X7*X1
Line S00060 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00060.ns2628  ---|          ZR     X7,VDT2     IF SIXTH CHARACTER NOT PRESENT
Line S00061 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00094  M02S00061.ns2628  ---|          SB6    MASKTL-1
00095  M01S00033.ns2628  +++|          MX6    6
00096  M01S00034.ns2628  +++|          LX6    -30
00097  M01S00035.ns2628  +++|          BX6    X6*X7
00098  M01S00036.ns2628  +++|          ZR     X6,VDT2     IF SIXTH CHARACTER NOT PRESENT
00099  M01S00037.ns2628  +++|          SB6    VDTHL-1
00100  M01S00062.comcvdt +++|
00101  M01S00063.comcvdt +++|*         CONVERT 2 DIGIT PORTION OF DATE OR TIME.
00102  M01S00064.comcvdt +++|
Line S00065 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00065.ns2628  ---| VDT1     SA1    MASKT+B6    GET MASK
00104  M01S00038.ns2628  +++| VDT1     SA1    VDTH+B6     GET MASK
00105  M01S00066.comcvdt +++|          SA4    VDTB        GET DATE OR TIME
00106  M01S00067.comcvdt +++|          BX5    X1*X4
00107  M01S00068.comcvdt +++|          SX2    12          FIGURE SHIFT COUNT
00108  M01S00069.comcvdt +++|          SX3    B6
00109  M01S00070.comcvdt +++|          IX3    X3*X2
00110  M01S00071.comcvdt +++|          SB7    X3
00111  M01S00072.comcvdt +++|          LX5    B7,X5
00112  M01S00073.comcvdt +++|          ZR     X5,VDT2     IF NO VALUE SPECIFIED
00113  M01S00074.comcvdt +++|          SB7    B1          SET DECIMAL CONVERSION
00114  M01S00075.comcvdt +++|          RJ     DXB         CONVERT NUMBER
00115  M01S00076.comcvdt +++|          ZR     X4,VDT3     IF NO CONVERSION ERROR
00116  M01S00077.comcvdt +++| VDT2     SX6    -B1         SET ERROR CONDITION
00117  M01S00078.comcvdt +++|          EQ     VDTX        RETURN
00118  M01S00079.comcvdt +++|
00119  M01S00080.comcvdt +++| VDT3     SA2    VDTC
00120  M01S00081.comcvdt +++|          NZ     X2,VDT5     IF PROCESSING TIME
00121  M01S00082.comcvdt +++|          NZ     B6,VDT5     IF NOT CONVERTING YEAR
00122  M01S00083.comcvdt +++|
00123  M01S00084.comcvdt +++|*         CALCULATE YEAR BIAS.
00124  M01S00085.comcvdt +++|
00125  M01S00086.comcvdt +++|          SX6    X6-70
00126  M01S00087.comcvdt +++|          PL     X6,VDT4     IF YEAR IN 1970-1999 RANGE
00127  M01S00088.comcvdt +++|          SX6    X6-34+70
00128  M01S00089.comcvdt +++|          PL     X6,VDT2     IF YEAR ABOVE 2033
00129  M01S00090.comcvdt +++|          SX6    X6+30+34
00130  M01S00091.comcvdt +++|
00131  M01S00092.comcvdt +++|*         CHECK FOR LEAP YEAR.
00132  M01S00093.comcvdt +++|
00133  M01S00094.comcvdt +++| VDT4     MX1    -2
00134  M01S00095.comcvdt +++|          SX7    X6+2
00135  M01S00096.comcvdt +++|          BX7    -X1*X7
00136  M01S00097.comcvdt +++|          SA7    VDTD        SAVE LEAP YEAR FLAG
00137  M01S00098.comcvdt +++|          EQ     VDT6        ADD DIGITS TO ASSEMBLY
00138  M01S00099.comcvdt +++|
00139  M01S00100.comcvdt +++|*         VALIDATE VALUE IN LEGAL RANGE.
00140  M01S00101.comcvdt +++|
00141  M01S00102.comcvdt +++| VDT5     MX7    -30
00142  M01S00103.comcvdt +++|          SA1    VDTG+B6     GET MAXIMUM VALUE WORD
00143  M01S00104.comcvdt +++|          SX3    30
00144  M01S00105.comcvdt +++|          IX2    X2*X3
00145  M01S00106.comcvdt +++|          SB7    X2
00146  M01S00107.comcvdt +++|          LX1    B7          POSITION WORD FOR DATE OR TIME
00147  M01S00108.comcvdt +++|          BX1    -X7*X1      MAXIMUM VALUE
00148  M01S00109.comcvdt +++|          IX4    X1-X6
00149  M01S00110.comcvdt +++|          NG     X4,VDT2     IF ILLEGAL VALUE
00150  M01S00111.comcvdt +++|
00151  M01S00112.comcvdt +++|*         ADD CONVERTED DIGITS TO ASSEMBLY.
00152  M01S00113.comcvdt +++|
Line S00114 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00114.ns2628  ---| VDT6     SA1    VDTA        GET ASSEMBLY
00154  M01S00039.ns2628  +++| VDT6     SA1    VDTF        GET ASSEMBLY
00155  M01S00115.comcvdt +++|          LX1    54
00156  M01S00116.comcvdt +++|          BX6    X1+X6
00157  M01S00117.comcvdt +++|          SA6    A1
00158  M01S00118.comcvdt +++|          SB6    B6-B1
00159  M01S00119.comcvdt +++|          PL     B6,VDT1     IF MORE TO CONVERT
00160  M01S00120.comcvdt +++|          LX6    12          SAVE TOTAL ASSEMBLY
Line S00121 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00121.ns2628  ---|          SA6    VDTA
00162  M01S00040.ns2628  +++|          SA6    VDTF
00163  M01S00122.comcvdt +++|          SA2    VDTC        GET TIME/DATE INDICATOR
00164  M01S00123.comcvdt +++|          MX7    -6
00165  M01S00124.comcvdt +++|          NZ     X2,VDT7     IF PROCESSING TIME
00166  M01S00125.comcvdt +++|
00167  M01S00126.comcvdt +++|*         VALIDATE DATE.
00168  M01S00127.comcvdt +++|
00169  M01S00128.comcvdt +++|          BX3    -X7*X6      DAY
00170  M01S00129.comcvdt +++|          ZR     X3,VDT2     IF ZERO DAY ENTERED
00171  M01S00130.comcvdt +++|          LX6    -6
00172  M01S00131.comcvdt +++|          BX1    -X7*X6      MONTH
00173  M01S00132.comcvdt +++|          ZR     X1,VDT2     IF ZERO MONTH ENTERED
00174  M01S00133.comcvdt +++|          SA4    VDTE+X1     GET DAYS FROM MONTH TABLE
00175  M01S00134.comcvdt +++|          IX2    X4-X3
00176  M01S00135.comcvdt +++|          PL     X2,VDT7     IF LEGAL DAY
00177  M01S00136.comcvdt +++|          SA4    VDTD        GET LEAP YEAR INDICATOR
00178  M01S00137.comcvdt +++|          NZ     X4,VDT2     IF NOT LEAP YEAR
00179  M01S00138.comcvdt +++|          SX6    X1-2
00180  M01S00139.comcvdt +++|          NZ     X6,VDT2     IF MONTH NOT FEBRUARY
00181  M01S00140.comcvdt +++|          SX1    X3-29
00182  M01S00141.comcvdt +++|          NZ     X1,VDT2     IF ILLEGAL NUMBER OF DAYS
00183  M01S00142.comcvdt +++|
00184  M01S00143.comcvdt +++|*         SET REPLY.
00185  M01S00144.comcvdt +++|
Line S00145 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00145.ns2628  ---| VDT7     PDATE  VDTF        GET CURRENT PACKED DATE AND TIME
Line S00146 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00146.ns2628  ---|          SA2    VDTF
Line S00147 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00188  M02S00147.ns2628  ---|          SA1    VDTA        PACKED INPUT
00189  M01S00041.ns2628  +++| VDT7     SA2    VDTA
00190  M01S00042.ns2628  +++|          SA1    VDTF        PACKED INPUT
00191  M01S00148.comcvdt +++|          MX7    -18
00192  M01S00149.comcvdt +++|          SA4    VDTC
00193  M01S00150.comcvdt +++|          NZ     X4,VDT8     IF PROCESSING TIME
00194  M01S00151.comcvdt +++|          AX2    18
00195  M01S00152.comcvdt +++| VDT8     BX2    -X7*X2
00196  M01S00153.comcvdt +++|          BX6    X1
00197  M01S00154.comcvdt +++|          IX1    X6-X2       SUBTRACT INPUT VALUE FROM CURRENT VALUE
00198  M01S00155.comcvdt +++|          EQ     VDTX        RETURN
00199  M01S00156.comcvdt +++|
Line S00157 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00157.ns2628  ---| VDTA     CON    0           ASSEMBLY AREA
Line S00158 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00158.ns2628  ---| VDTB     CON    0           DISPLAY HOLD
Line S00159 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00159.ns2628  ---| VDTC     CON    0           ENTRY CONDITION HOLD
00203  M01S00043.ns2628  +++|
00204  M01S00044.ns2628  +++| VDTA     CON    0           BASE PACKED DATE AND TIME
00205  M01S00045.ns2628  +++| VDTB     CON    0           DATE OR TIME ENTRY
00206  M01S00046.ns2628  +++| VDTC     CON    0           DATE/TIME FLAG
00207  M01S00160.comcvdt +++| VDTD     CON    0           LEAP YEAR INDICATOR
00208  M01S00161.comcvdt +++|
00209  M01S00162.comcvdt +++| VDTE     BSS    1           TABLE OF DAYS IN A MONTH
00210  M01S00163.comcvdt +++|          CON    31          JANUARY
00211  M01S00164.comcvdt +++|          CON    28          FEBRUARY
00212  M01S00165.comcvdt +++|          CON    31          MARCH
00213  M01S00166.comcvdt +++|          CON    30          APRIL
00214  M01S00167.comcvdt +++|          CON    31          MAY
00215  M01S00168.comcvdt +++|          CON    30          JUNE
00216  M01S00169.comcvdt +++|          CON    31          JULY
00217  M01S00170.comcvdt +++|          CON    31          AUGUST
00218  M01S00171.comcvdt +++|          CON    30          SEPTEMBER
00219  M01S00172.comcvdt +++|          CON    31          OCTOBER
00220  M01S00173.comcvdt +++|          CON    30          NOVEMBER
00221  M01S00174.comcvdt +++|          CON    31          DECEMBER
Line S00175 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00175.ns2628  ---| VDTF     CON    1           CURRENT PACKED DATE AND TIME
00223  M01S00047.ns2628  +++|
00224  M01S00048.ns2628  +++| VDTF     CON    0           ASSEMBLY AREA
00225  M01S00176.comcvdt +++|
00226  M01S00177.comcvdt +++| VDTG     BSS    0           TABLE OF MAXIMUM VALUES
00227  M01S00178.comcvdt +++|          VFD    30/23,30/99 HOUR/YEAR
00228  M01S00179.comcvdt +++|          VFD    30/59,30/12 MINUTE/MONTH
00229  M01S00180.comcvdt +++|          VFD    30/59,30/31 SECOND/DAY
00230  M01S00181.comcvdt +++|
Line S00182 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00231  M02S00182.ns2628  ---| MASKT    BSS    0           MASK TABLE
00232  M01S00049.ns2628  +++| VDTH     BSS    0           MASK TABLE
00233  M01S00183.comcvdt +++|          VFD    12/7777B,48/0
00234  M01S00184.comcvdt +++|          VFD    12/0,12/7777B,36/0
00235  M01S00185.comcvdt +++|          VFD    24/0,12/7777B,24/0
Line S00186 Modification History
M01 (Added by) comcvdt
M02 (Updated by) ns2628
Seq #  *Modification Id* Act 
----------------------------+
00236  M02S00186.ns2628  ---| MASKTL   EQU    *-MASKT
00237  M01S00050.ns2628  +++| VDTHL    EQU    *-VDTH
00238  M01S00187.comcvdt +++|          SPACE  4,10
00239  M01S00188.comcvdt +++|          BASE   *
00240  M01S00189.comcvdt +++| QUAL$    IF     -DEF,QUAL$
00241  M01S00190.comcvdt +++|          QUAL   *
00242  M01S00191.comcvdt +++| VDT      EQU    /COMCVDT/VDT
00243  M01S00051.ns2628  +++| VDTA     EQU    /COMCVDT/VDTA
00244  M01S00192.comcvdt +++| QUAL$    ENDIF
00245  M01S00193.comcvdt +++| VDT      ENDX
cdc/nos2.source/opl.opl871/common/comcvdt.txt ยท Last modified: by 127.0.0.1