cdc:nos2.source:opl.opl871:common:comtmvd
Common COMTMVD
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comtmvd +++| # 00002 M00S00002.comtmvd +++| CTEXT COMTMVD - *SSMOVE* DIRECTIVE PARAMETERS. 00003 M00S00003.comtmvd +++| # 00004 M00S00004.comtmvd +++| 00005 M00S00005.comtmvd +++| CONTROL NOLIST; 00006 M00S00006.comtmvd +++| CONTROL IFEQ LISTCON,1; 00007 M00S00007.comtmvd +++| CONTROL LIST; 00008 M00S00008.comtmvd +++| CONTROL FI; 00009 M00S00009.comtmvd +++| 00010 M00S00010.comtmvd +++| BEGIN # COMTMVD # 00011 M00S00011.comtmvd +++| # 00012 M00S00012.comtmvd +++|*** COMTMVD - *SSMOVE* DIRECTIVE PARAMETERS. 00013 M00S00013.comtmvd +++|* DISCUSS FUNCTION.. 00014 M00S00014.comtmvd +++| 00015 M00S00015.comtmvd +++| 00016 M00S00016.comtmvd +++| 00017 M00S00017.comtmvd +++| 00018 M00S00018.comtmvd +++| # 00019 M00S00019.comtmvd +++| # 00020 M00S00020.comtmvd +++|* *COMPASS*+*SYMPL* DEFINITIONS. 00021 M00S00021.comtmvd +++| # 00022 M00S00022.comtmvd +++| 00023 M00S00023.comtmvd +++|
| Line S00024 Modification History | |
|---|---|
M01 (Removed by) | mse0017 |
Seq # *Modification Id* Act ----------------------------+ 00024 M01S00024.mse0017 ---|#MXINDX #DEF# 4 # MXINDX #4#; # MAX PARAMS ANY DIRECTIVE #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | mse0017 |
Seq # *Modification Id* Act ----------------------------+ 00025 M01S00001.mse0017 +++|#MXINDX #DEF# 5 # MXINDX #5#; # MAX PARAMS ANY DIRECTIVE # 00026 M00S00025.comtmvd +++|#NUMDIR #DEF# 7 # NUMDIR #7#; #NUMBER OF DIRECTIVES # 00027 M00S00026.comtmvd +++| 00028 M00S00027.comtmvd +++|#SMMG #DEF# 1 # SMMG #1#; # MASTER GOAL # 00029 M00S00028.comtmvd +++|#SMSG #DEF# 2 # SMSG #2#; # SECONDARY GOAL # 00030 M00S00029.comtmvd +++|#SMP1 #DEF# 3 # SMP1 #3#; # SITE PARAMETER 1 # 00031 M00S00030.comtmvd +++|#SMP2 #DEF# 4 # SMP2 #4#; # SITE PARAMETER 2 # 00032 M00S00031.comtmvd +++|#SMMX #DEF# 4 # SMMX #4#; # MAXIMUM SM INDEX # 00033 M00S00032.comtmvd +++| 00034 M00S00033.comtmvd +++|#SFFN #DEF# 1 # SFFN #1#; # FILE NAME # 00035 M00S00034.comtmvd +++|#SFUIX #DEF# 2 # SFUI #2#; # USER INDEX # 00036 M00S00035.comtmvd +++|#SFPO #DEF# 3 # SFPO #3#; # PROCESSING OPTION # 00037 M00S00036.comtmvd +++|#SFPC #DEF# 4 # SFPC #4#; # PRIVATE CARTRIDGE ID # 00038 M00S00037.comtmvd +++|#SFMX #DEF# 4 # SFMX #4#; # MAXIMUM SF INDEX # 00039 M00S00038.comtmvd +++| 00040 M00S00039.comtmvd +++|#FRMN #DEF# 1 # FRMN #1#; # MINIMUM SIZE # 00041 M00S00040.comtmvd +++|#FRMX #DEF# 2 # FRMX #2#; # MAXIMUM SIZE # 00042 M00S00041.comtmvd +++|#FRDD #DEF# 3 # FRDD #3#; # DELTA TIME (DAYS) # 00043 M00S00042.comtmvd +++|#FRTH #DEF# 4 # FRTH #4#; # THRESHOLD # 00044 M00S00043.comtmvd +++|#FRMXX #DEF# 4 # FRMXX #4#; # MAXIMUM FR INDEX # 00045 M00S00044.comtmvd +++| 00046 M00S00045.comtmvd +++|#WMAG #DEF# 1 # WMAG #1#; # AGE # 00047 M00S00046.comtmvd +++|#WMLN #DEF# 2 # WMLN #2#; # LENGTH # 00048 M00S00047.comtmvd +++|#WMAC #DEF# 3 # WMAC #3#; # ACCESS COUNT # 00049 M00S00048.comtmvd +++|#WMMXX #DEF# 3 # WMMXX #3#; # MAXIMUM WM INDEX # 00050 M00S00049.comtmvd +++| 00051 M00S00050.comtmvd +++|#WAAG #DEF# 1 # WAAG #1#; # AGE # 00052 M00S00051.comtmvd +++|#WALN #DEF# 2 # WALN #2#; # LENGTH # 00053 M00S00052.comtmvd +++|#WAAC #DEF# 3 # WAAC #3#; # ACCESS COUNT # 00054 M00S00053.comtmvd +++|#WADV #DEF# 4 # WADV #4#; # DIVISOR # 00055 M00S00054.comtmvd +++|#WAMX #DEF# 4 # WAMX #4#; # MAXIMUM WA INDEX # 00056 M00S00055.comtmvd +++| # 00057 M00S00056.comtmvd +++| 00058 M00S00057.comtmvd +++| 00059 M00S00058.comtmvd +++| MACRO TQARG,KEY,SEC,INDX 00060 M00S00059.comtmvd +++| IFOK IFLE INDX,MXINDX 00061 M00S00060.comtmvd +++| KEY ARG SEC,TQBUFP+INDX,400B 00062 M00S00061.comtmvd +++| IFOK ELSE 00063 M00S00062.comtmvd +++| 2 ERR IF INDX TOO BIG 00064 M00S00063.comtmvd +++| IFOK ENDIF 00065 M00S00064.comtmvd +++| ENDM 00066 M00S00065.comtmvd +++| 00067 M00S00066.comtmvd +++| 00068 M00S00067.comtmvd +++| TQ MACRO 00069 M00S00068.comtmvd +++| IA ARG -SEC,TQBUF 00070 M00S00069.comtmvd +++| DA ARG -SEC,TQBUF+1 00071 M00S00070.comtmvd +++| RL ARG -SEC,TQBUF+2 00072 M00S00071.comtmvd +++| DS ARG -SEC,TQBUF+3 00073 M00S00072.comtmvd +++| ENDM 00074 M00S00073.comtmvd +++| 00075 M00S00074.comtmvd +++| 00076 M00S00075.comtmvd +++| 00077 M00S00076.comtmvd +++|* PARAMETER LIST FOR THE *PR* DIRECTIVE. 00078 M00S00077.comtmvd +++| 00079 M00S00078.comtmvd +++| 00080 M00S00079.comtmvd +++| PRARG BSS 0 00081 M00S00080.comtmvd +++| TQ 00082 M00S00081.comtmvd +++| PR TQARG -IGNORE,0 00083 M00S00082.comtmvd +++| L TQARG IGNORE,RSLK 00084 M00S00083.comtmvd +++| D TQARG IGNORE,RSDS 00085 M00S00084.comtmvd +++| M TQARG IGNORE,RSMS 00086 M00S00085.comtmvd +++| N TQARG IGNORE,RSNP 00087 M01S00002.mse0017 +++| T TQARG IGNORE,RSTP 00088 M00S00086.comtmvd +++| ARG END OF PARAMETERS. 00089 M00S00087.comtmvd +++| 00090 M00S00088.comtmvd +++| 00091 M00S00089.comtmvd +++|* PARAMETER LIST FOR THE *BR* DIRECTIVE. 00092 M00S00090.comtmvd +++| 00093 M00S00091.comtmvd +++| 00094 M00S00092.comtmvd +++| BRARG BSS 0 00095 M00S00093.comtmvd +++| TQ 00096 M00S00094.comtmvd +++| BR TQARG -IGNORE,0 00097 M00S00095.comtmvd +++| N TQARG IGNORE,BRNO 00098 M00S00096.comtmvd +++| Y TQARG IGNORE,BRAL 00099 M00S00097.comtmvd +++| MD TQARG IGNORE,BRMD 00100 M00S00098.comtmvd +++| ARG END OF PARAMETER LIST. 00101 M00S00099.comtmvd +++| 00102 M00S00100.comtmvd +++| 00103 M00S00101.comtmvd +++|* PARAMETER LIST FOR THE *SM* DIRECTIVE. 00104 M00S00102.comtmvd +++| 00105 M00S00103.comtmvd +++| 00106 M00S00104.comtmvd +++| SMARG BSS 0 00107 M00S00105.comtmvd +++| TQ 00108 M00S00106.comtmvd +++| SM TQARG -IGNORE,0 00109 M00S00107.comtmvd +++| MG TQARG IGNORE,SMMG 00110 M00S00108.comtmvd +++| SG TQARG IGNORE,SMSG 00111 M00S00109.comtmvd +++| P1 TQARG IGNORE,SMP1 00112 M00S00110.comtmvd +++| P2 TQARG IGNORE,SMP2 00113 M00S00111.comtmvd +++| ARG END OF PARAMETER LIST. 00114 M00S00112.comtmvd +++| 00115 M00S00113.comtmvd +++| 00116 M00S00114.comtmvd +++|* PARAMETER LIST FOR THE *FR* DIRECTIVE. 00117 M00S00115.comtmvd +++| 00118 M00S00116.comtmvd +++| 00119 M00S00117.comtmvd +++| FRARG BSS 0 00120 M00S00118.comtmvd +++| TQ 00121 M00S00119.comtmvd +++| FR TQARG -IGNORE,0 00122 M00S00120.comtmvd +++| MN TQARG IGNORE,FRMN 00123 M00S00121.comtmvd +++| MX TQARG IGNORE,FRMX 00124 M00S00122.comtmvd +++| DD TQARG IGNORE,FRDD 00125 M00S00123.comtmvd +++| TH TQARG IGNORE,FRTH 00126 M00S00124.comtmvd +++| ARG END OF PARAMETER LIST. 00127 M00S00125.comtmvd +++| 00128 M00S00126.comtmvd +++| 00129 M00S00127.comtmvd +++|* PARAMETER LIST FOR THE *WM* DIRECTIVE. 00130 M00S00128.comtmvd +++| 00131 M00S00129.comtmvd +++| 00132 M00S00130.comtmvd +++| WMARG BSS 0 00133 M00S00131.comtmvd +++| TQ 00134 M00S00132.comtmvd +++| WM TQARG -IGNORE,0 00135 M00S00133.comtmvd +++| AG TQARG IGNORE,WMAG 00136 M00S00134.comtmvd +++| LN TQARG IGNORE,WMLN 00137 M00S00135.comtmvd +++| AC TQARG IGNORE,WMAC 00138 M00S00136.comtmvd +++| ARG END OF PARAMETER LIST. 00139 M00S00137.comtmvd +++| 00140 M00S00138.comtmvd +++| 00141 M00S00139.comtmvd +++|* PARAMETER LIST FOR THE *WA* DIRECTIVE. 00142 M00S00140.comtmvd +++| 00143 M00S00141.comtmvd +++| 00144 M00S00142.comtmvd +++| WAARG BSS 0 00145 M00S00143.comtmvd +++| TQ 00146 M00S00144.comtmvd +++| WA TQARG -IGNORE,0 00147 M00S00145.comtmvd +++| AG TQARG IGNORE,WAAG 00148 M00S00146.comtmvd +++| LN TQARG IGNORE,WALN 00149 M00S00147.comtmvd +++| AC TQARG IGNORE,WAAC 00150 M00S00148.comtmvd +++| DV TQARG IGNORE,WADV 00151 M00S00149.comtmvd +++| ARG END OF PARAMETER LIST. 00152 M00S00150.comtmvd +++| 00153 M00S00151.comtmvd +++| 00154 M00S00152.comtmvd +++|* PARAMETER LIST FOR THE *SF* DIRECTIVE. 00155 M00S00153.comtmvd +++| 00156 M00S00154.comtmvd +++| 00157 M00S00155.comtmvd +++| SFARG BSS 0 00158 M00S00156.comtmvd +++| TQ 00159 M00S00157.comtmvd +++| SF TQARG -IGNORE,0 00160 M00S00158.comtmvd +++| FN TQARG IGNORE,SFFN 00161 M00S00159.comtmvd +++| UI TQARG IGNORE,SFUIX 00162 M00S00160.comtmvd +++| PO TQARG IGNORE,SFPO 00163 M00S00161.comtmvd +++| PC TQARG IGNORE,SFPC 00164 M00S00162.comtmvd +++| ARG END OF PARAMETER LIST. 00165 M00S00163.comtmvd +++| 00166 M00S00164.comtmvd +++| 00167 M00S00165.comtmvd +++| 00168 M00S00166.comtmvd +++| 00169 M00S00167.comtmvd +++| 00170 M00S00168.comtmvd +++| 00171 M00S00169.comtmvd +++| SEC DATA 1 00172 M00S00170.comtmvd +++| IGNORE DATA 0 00173 M00S00171.comtmvd +++| 00174 M00S00172.comtmvd +++| 00175 M00S00173.comtmvd +++| TQBUF BSS 0 00176 M00S00174.comtmvd +++| BSS 4 FOR THE T(I/D) AND Q(A/B) PARAMETERS. 00177 M00S00175.comtmvd +++| TQBUFP BSS 1 FOR THE DIRECTIVE KEYWORD 00178 M00S00176.comtmvd +++| BSS MXINDX HOLDS PARAMETER VALUES 00179 M00S00177.comtmvd +++| 00180 M00S00178.comtmvd +++| 00181 M00S00179.comtmvd +++|* TEXT LINES FOR THE *SSMOVE* REPORT. 00182 M00S00180.comtmvd +++| 00183 M00S00181.comtmvd +++| FRTEXT DATA 20HFILE REQUIREMENTS 00184 M00S00182.comtmvd +++| WMTEXT DATA 20HWEIGHT MULTIPLIER 00185 M00S00183.comtmvd +++| WATEXT DATA 20HWEIGHT ADDER 00186 M00S00184.comtmvd +++| PRTEXT DATA 20HPREFERRED RESIDENCE 00187 M00S00185.comtmvd +++| BRTEXT DATA 20HBACKUP REQUIREMENT 00188 M00S00186.comtmvd +++| SMTEXT DATA 20HSITE MANAGEMENT 00189 M00S00187.comtmvd +++| 00190 M00S00188.comtmvd +++| USE /TMVDCOM/ 00191 M00S00189.comtmvd +++| 00192 M00S00190.comtmvd +++| TQPTR BSS 0 00193 M00S00191.comtmvd +++| VFD 12/2L,, 00194 M00S00192.comtmvd +++| VFD 18/TQBUFP+1 LOCATION OF FIRST PARAMETER 00195 M00S00193.comtmvd +++| VFD 12/MXINDX+5 LENGTH OF TOTAL TQ ARRAY 00196 M00S00194.comtmvd +++| VFD 18/TQBUF 00197 M00S00195.comtmvd +++| VFD 60/0 00198 M00S00196.comtmvd +++| 00199 M00S00197.comtmvd +++| SF BSS 0 00200 M00S00198.comtmvd +++| VFD 12/2LSF KEYWORD 00201 M00S00199.comtmvd +++| VFD 18/SFVAL PARM VALUE TABLE ADDRESS 00202 M00S00200.comtmvd +++| VFD 12/SFMX MAXIMUM INDEX 00203 M00S00201.comtmvd +++| VFD 18/SFARG ADDRESS OF ARG TABLE 00204 M00S00202.comtmvd +++| VFD 60/0 ADDRESS OF TEXT LINE 00205 M00S00203.comtmvd +++| 00206 M00S00204.comtmvd +++| FR BSS 0 KEYWORD 00207 M00S00205.comtmvd +++| VFD 12/2LFR 00208 M00S00206.comtmvd +++| VFD 18/FRVAL PARM VALUE TABLE ADDRESS 00209 M00S00207.comtmvd +++| VFD 12/FRMXX MAXIMUM INDEX 00210 M00S00208.comtmvd +++| VFD 18/FRARG ADDRESS OF ARG TABLE 00211 M00S00209.comtmvd +++| VFD 60/FRTEXT ADDRESS OF TEXT LINE 00212 M00S00210.comtmvd +++| 00213 M00S00211.comtmvd +++| WM BSS 0 00214 M00S00212.comtmvd +++| VFD 12/2LWM KEYWORD 00215 M00S00213.comtmvd +++| VFD 18/WMVAL PARM VALUE TABLE ADDRESS 00216 M00S00214.comtmvd +++| VFD 12/WMMXX MAXIMUM INDEX 00217 M00S00215.comtmvd +++| VFD 18/WMARG ADDRESS OF ARG TABLE 00218 M00S00216.comtmvd +++| VFD 60/WMTEXT ADDRESS OF TEXT LINE 00219 M00S00217.comtmvd +++| 00220 M00S00218.comtmvd +++| WA BSS 0 00221 M00S00219.comtmvd +++| VFD 12/2LWA KEYWORD 00222 M00S00220.comtmvd +++| VFD 18/WAVAL PARM VALUE TABLE ADDRESS 00223 M00S00221.comtmvd +++| VFD 12/WAMX MAXIMUM INDEX 00224 M00S00222.comtmvd +++| VFD 18/WAARG ADDRESS OF ARG TABLE 00225 M00S00223.comtmvd +++| VFD 60/WATEXT ADDRESS OF TEXT LINE 00226 M00S00224.comtmvd +++| 00227 M00S00225.comtmvd +++| PR BSS 0 KEYWORD 00228 M00S00226.comtmvd +++| VFD 12/2LPR 00229 M00S00227.comtmvd +++| VFD 18/PRVAL PARM VALUE TABLE ADDRESS 00230 M00S00228.comtmvd +++| VFD 12/RSMX MAXIMUM INDEX 00231 M00S00229.comtmvd +++| VFD 18/PRARG ADDRESS OF ARG TABLE 00232 M00S00230.comtmvd +++| VFD 60/PRTEXT ADDRESS OF TEXT LINE 00233 M00S00231.comtmvd +++| 00234 M00S00232.comtmvd +++| BR BSS 0 00235 M00S00233.comtmvd +++| VFD 12/2LBR KEYWORD 00236 M00S00234.comtmvd +++| VFD 18/BRVAL PARM VALUE TABLE ADDRESS 00237 M00S00235.comtmvd +++| VFD 12/BRMX MAXIMUM INDEX 00238 M00S00236.comtmvd +++| VFD 18/BRARG ADDRESS OF ARG TABLE 00239 M00S00237.comtmvd +++| VFD 60/BRTEXT ADDRESS OF TEXT LINE 00240 M00S00238.comtmvd +++| 00241 M00S00239.comtmvd +++| SM BSS 0 00242 M00S00240.comtmvd +++| VFD 12/2LSM KEYWORD 00243 M00S00241.comtmvd +++| VFD 18/SMVAL PARM VALUE TABLE ADDRESS 00244 M00S00242.comtmvd +++| VFD 12/SMMX MAXIMUM INDEX 00245 M00S00243.comtmvd +++| VFD 18/SMARG ADDRESS OF ARG TABLE 00246 M00S00244.comtmvd +++| VFD 60/SMTEXT ADDRESS OF TEXT LINE 00247 M00S00245.comtmvd +++| 00248 M00S00246.comtmvd +++| SFVAL BSS 4*SFMX *SF* PARAMETER VALUES 00249 M00S00247.comtmvd +++| FRVAL BSS 4*FRMXX *FR* PARAMETER VALUES 00250 M00S00248.comtmvd +++| PRVAL BSS 4*RSMX *PR* PARAMETER VALUES 00251 M00S00249.comtmvd +++| BRVAL BSS 4*BRMX *BR* PARAMETER VALUES 00252 M00S00250.comtmvd +++| SMVAL BSS 4*SMMX *SM* PARAMETER VALUES 00253 M00S00251.comtmvd +++| WAVAL BSS 4*WAMX *WA* PARAMETER VALUES 00254 M00S00252.comtmvd +++| WMVAL BSS 4*WMMXX *WM* PARAMETER VALUES 00255 M00S00253.comtmvd +++| 00256 M00S00254.comtmvd +++| USE * 00257 M00S00255.comtmvd +++| 00258 M00S00256.comtmvd +++| # 00259 M00S00257.comtmvd +++| 00260 M00S00258.comtmvd +++| 00261 M00S00259.comtmvd +++| # 00262 M00S00260.comtmvd +++| COL 12 FORCE *COMPASS* TO IGNORE *SYMPL* CODE 00263 M00S00261.comtmvd +++| # 00264 M00S00262.comtmvd +++| 00265 M00S00263.comtmvd +++| 00266 M00S00264.comtmvd +++| # 00267 M00S00265.comtmvd +++|*** *SYMPL* DEFINITIONS OF THE COMMON BLOCK *TMVDCOM* 00268 M00S00266.comtmvd +++| # 00269 M00S00267.comtmvd +++| 00270 M00S00268.comtmvd +++| COMMON TMVDCOM; 00271 M00S00269.comtmvd +++| 00272 M00S00270.comtmvd +++| BEGIN # TMVDCOM # 00273 M00S00271.comtmvd +++| # 00274 M00S00272.comtmvd +++|* ARRAY WHICH HAS POINTERS TO THE *ARG* TABLE FOR EACH DIRECTIVE. 00275 M00S00273.comtmvd +++| # 00276 M00S00274.comtmvd +++| 00277 M00S00275.comtmvd +++| ARRAY ARGP [0:NUMDIR] S(2); 00278 M00S00276.comtmvd +++| BEGIN 00279 M00S00277.comtmvd +++| ITEM ARG$KEY C(00,00,02); # DIRECTIVE KEY # 00280 M00S00278.comtmvd +++| ITEM ARG$VAL U(00,12,18); # PARAMETER VALUES # 00281 M00S00279.comtmvd +++| ITEM ARG$MX U(00,30,12); # MAXIMUM INDEX # 00282 M00S00280.comtmvd +++| ITEM ARG$TAB U(00,42,18); # LOC(*ARG* TABLE) # 00283 M00S00281.comtmvd +++| ITEM ARG$TEXT U(01,42,18); # LOC(*TEXT LINE*) # 00284 M00S00282.comtmvd +++| END 00285 M00S00283.comtmvd +++| 00286 M00S00284.comtmvd +++| 00287 M00S00285.comtmvd +++| # 00288 M00S00286.comtmvd +++|* THE FOLLOWING ARRAYS CONTAIN DEFAULT VALUES FOR EACH 00289 M00S00287.comtmvd +++|* OF THE PARAMETERS FOR EACH DIRECTIVE. 00290 M00S00288.comtmvd +++|* EACH ARRAY ITEM IS ACCESSED BY REFERENCING 00291 M00S00289.comtmvd +++|* KEY$VAL[T,Q,PAR] 00292 M00S00290.comtmvd +++|* KEY = KEYWORD FOR THE DIRECTIVE. 00293 M00S00291.comtmvd +++|* PAR = INDEX FOR THE PARAMETER. 00294 M00S00292.comtmvd +++|* T = FILE TYPE (1=INDIRECT, 2=DIRECT). 00295 M00S00293.comtmvd +++|* Q = ACTION TYPE (1=ARCHIVE, 2=BACKUP). 00296 M00S00294.comtmvd +++| # 00297 M00S00295.comtmvd +++| 00298 M00S00296.comtmvd +++| ARRAY SFVAL [1:2,1:2,1:SFMX] S(1); 00299 M00S00297.comtmvd +++| BEGIN 00300 M00S00298.comtmvd +++| ITEM SF$VAL I(00,00,60)=[ ## # DEFAULT VALUES BELOW # 00301 M00S00299.comtmvd +++| ## 00302 M00S00300.comtmvd +++| ]; 00303 M00S00301.comtmvd +++| END 00304 M00S00302.comtmvd +++| 00305 M00S00303.comtmvd +++| 00306 M00S00304.comtmvd +++| ARRAY FRVAL [1:2,1:2,1:FRMXX] S(1); 00307 M00S00305.comtmvd +++| BEGIN 00308 M00S00306.comtmvd +++| ITEM FR$VAL I(00,00,60)=[ ## # DEFAULT VALUES BELOW # 00309 M00S00307.comtmvd +++| [ [DS$FR$MN] [RL$FR$MN] ] 00310 M00S00308.comtmvd +++| [ [DS$FR$MX] [RL$FR$MX] ] 00311 M00S00309.comtmvd +++| [ [DS$FR$DD] [RL$FR$DD] ] 00312 M00S00310.comtmvd +++| [ [DS$FR$TH] [RL$FR$TH] ] 00313 M00S00311.comtmvd +++| ]; 00314 M00S00312.comtmvd +++| END 00315 M00S00313.comtmvd +++| 00316 M00S00314.comtmvd +++| 00317 M00S00315.comtmvd +++| 00318 M00S00316.comtmvd +++| ARRAY PRVAL [1:2,1:2,1:RSMX] S(1); 00319 M00S00317.comtmvd +++| BEGIN 00320 M00S00318.comtmvd +++| ITEM PR$VAL I(00,00,60)=[ ## # DEFAULT VALUES FOLLOW # 00321 M00S00319.comtmvd +++| [ [DS$PR$L ] [RL$PR$L ] ] 00322 M00S00320.comtmvd +++| [ [DS$PR$D ] [RL$PR$D ] ] 00323 M00S00321.comtmvd +++| [ [DS$PR$M ] [RL$PR$M ] ] 00324 M00S00322.comtmvd +++| [ [DS$PR$N ] [RL$PR$N ] ] 00325 M01S00003.mse0017 +++| [ [DS$PR$T ] [RL$PR$T ] ] 00326 M00S00323.comtmvd +++| ]; 00327 M00S00324.comtmvd +++| END 00328 M00S00325.comtmvd +++| 00329 M00S00326.comtmvd +++| 00330 M00S00327.comtmvd +++| ARRAY BRVAL [1:2,1:2,1:BRMX] S(1); 00331 M00S00328.comtmvd +++| BEGIN 00332 M00S00329.comtmvd +++| ITEM BR$VAL I(00,00,60)=[ ## # DEFAULT VALUES BELOW # 00333 M00S00330.comtmvd +++| [ [DS$BR$N ] [RL$BR$N ] ] 00334 M00S00331.comtmvd +++| [ [DS$BR$Y ] [RL$BR$Y ] ] 00335 M00S00332.comtmvd +++| [ [DS$BR$MD] [RL$BR$MD] ] 00336 M00S00333.comtmvd +++| ]; 00337 M00S00334.comtmvd +++| END 00338 M00S00335.comtmvd +++| 00339 M00S00336.comtmvd +++| 00340 M00S00337.comtmvd +++| ARRAY SMVAL [1:2,1:2,1:SMMX] S(1); 00341 M00S00338.comtmvd +++| BEGIN 00342 M00S00339.comtmvd +++| ITEM SM$VAL I(00,00,60)=[ ## # DEFAULT VALUES BELOW # 00343 M00S00340.comtmvd +++| [ [DS$SM$MG] [RL$SM$MG] ] 00344 M00S00341.comtmvd +++| [ [DS$SM$SG] [RL$SM$SG] ] 00345 M00S00342.comtmvd +++| [ [DS$SM$P1] [RL$SM$P1] ] 00346 M00S00343.comtmvd +++| [ [DS$SM$P2] [RL$SM$P2] ] 00347 M00S00344.comtmvd +++| ]; 00348 M00S00345.comtmvd +++| END 00349 M00S00346.comtmvd +++| 00350 M00S00347.comtmvd +++| 00351 M00S00348.comtmvd +++| ARRAY WAVAL [1:2,1:2,1:WAMX] S(1); 00352 M00S00349.comtmvd +++| BEGIN 00353 M00S00350.comtmvd +++| ITEM WA$VAL I(00,00,60)=[ ## # DEFAULT VALUES BELOW # 00354 M00S00351.comtmvd +++| [ [DS$WA$AG] [RL$WA$AG] ] 00355 M00S00352.comtmvd +++| [ [DS$WA$LN] [RL$WA$LN] ] 00356 M00S00353.comtmvd +++| [ [DS$WA$AC] [RL$WA$AC] ] 00357 M00S00354.comtmvd +++| [ [DS$WA$DV] [RL$WA$DV] ] 00358 M00S00355.comtmvd +++| ]; 00359 M00S00356.comtmvd +++| END 00360 M00S00357.comtmvd +++| 00361 M00S00358.comtmvd +++| 00362 M00S00359.comtmvd +++| ARRAY WMVAL [1:2,1:2,1:WMMXX] S(1); 00363 M00S00360.comtmvd +++| BEGIN 00364 M00S00361.comtmvd +++| ITEM WM$VAL I(00,00,60)=[ ## # DEFAULT VALUES BELOW # 00365 M00S00362.comtmvd +++| [ [DS$WM$AG] [RL$WM$AG] ] 00366 M00S00363.comtmvd +++| [ [DS$WM$LN] [RL$WM$LN] ] 00367 M00S00364.comtmvd +++| [ [DS$WM$AC] [RL$WM$AC] ] 00368 M00S00365.comtmvd +++| ]; 00369 M00S00366.comtmvd +++| END 00370 M00S00367.comtmvd +++| 00371 M00S00368.comtmvd +++| 00372 M00S00369.comtmvd +++| END # TMVDCOM # 00373 M00S00370.comtmvd +++| 00374 M00S00371.comtmvd +++| END # COMTMVD # 00375 M00S00372.comtmvd +++| # 00376 M00S00373.comtmvd +++| COL 30 RESUME NORMAL *COMPASS* 00377 M00S00374.comtmvd +++| ENDX # 00378 M00S00375.comtmvd +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comtmvd.txt · Last modified: (external edit)