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