cdc:nos2.source:opl.opl871:common:comtvlx
Common COMTVLX
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comtvlx +++| 00002 M01S00002.comtvlx +++|# COMTVLX - *RDF*, *PFC* EXTRACT AND ZZZVALX FILE DESCRIPTIONS. # 00003 M01S00003.comtvlx +++| CONTROL NOLIST; 00004 M01S00004.comtvlx +++| CONTROL IFEQ LISTCON,1; 00005 M01S00005.comtvlx +++| CONTROL LIST; 00006 M01S00006.comtvlx +++| CONTROL FI; 00007 M01S00007.comtvlx +++| BEGIN # COMTVLX # 00008 M01S00008.comtvlx +++| 00009 M01S00009.comtvlx +++|# 00010 M01S00010.comtvlx +++|*** COMTVLX - *RDF*, PFCEXTRACT AND ZZZVALX FILE DESCRIPTIONS. 00011 M01S00011.comtvlx +++|* 00012 M01S00012.comtvlx +++|* COMTVLX DEFINES THE SYMBOLS, *FET-S* AND *I/O* BUFFERS FOR 00013 M01S00013.comtvlx +++|* THE FILES PROCESSED DURING THE PRESET PHASE OF *ASVAL*. 00014 M01S00014.comtvlx +++|* 00015 M01S00015.comtvlx +++|# 00016 M01S00016.comtvlx +++| 00017 M01S00017.comtvlx +++| 00018 M01S00018.comtvlx +++| DEF LRDFRB #64#; # *RDF* RECORD BUFFER LENGTH # 00019 M01S00019.comtvlx +++| DEF RDFMAXWC #64#; # MAX SIZE IN CONTROL WORD # 00020 M01S00020.comtvlx +++| 00021 M01S00021.comtvlx +++|# 00022 M01S00022.comtvlx +++|* *RDF* RECORD TYPES. 00023 M01S00023.comtvlx +++|# 00024 M01S00024.comtvlx +++| 00025 M01S00025.comtvlx +++| DEF RDFEOF #0#; # END OF FILE # 00026 M01S00026.comtvlx +++| DEF RDFHDRREC #1#; # HEADER RECORD # 00027 M01S00027.comtvlx +++| DEF RDFPFCREC #2#; # *PFC* EXTRACT RECORD # 00028 M01S00028.comtvlx +++| DEF RDFCATREC #3#; # M860 CATALOG RECORD # 00029 M01S00029.comtvlx +++| 00030 M01S00030.comtvlx +++| 00031 M01S00031.comtvlx +++| COMMON TVLXCOM; 00032 M01S00032.comtvlx +++| 00033 M01S00033.comtvlx +++| BEGIN # TVLXCOM COMMON BLOCK # 00034 M01S00034.comtvlx +++| #$$# 00035 M01S00035.comtvlx +++| ITEM $$TVLX$$ C(20) = "****** COMTVLX *****"; 00036 M01S00036.comtvlx +++| #$$# 00037 M01S00037.comtvlx +++| 00038 M01S00038.comtvlx +++| ITEM RDFHDROK B; # FLAG INDICATES HEADER RECORD OK 00039 M01S00039.comtvlx +++| # 00040 M01S00040.comtvlx +++| 00041 M01S00041.comtvlx +++|# 00042 M01S00042.comtvlx +++|* RELEASE DATA FILE (RDF) - (BUILT BY PFDUMP) CONTAINS A 00043 M01S00043.comtvlx +++|* HEADER, *PFC* RECORDS, AND M860 CATALOG RECORDS. EACH 00044 M01S00044.comtvlx +++|* DATA RECORD IS PRECEEDED BY A CONTROL WORD IDENTIFYING 00045 M01S00045.comtvlx +++|* THE DATA TYPE AND THE DATA LENGTH. 00046 M01S00046.comtvlx +++|# 00047 M01S00047.comtvlx +++| 00048 M01S00048.comtvlx +++| 00049 M01S00049.comtvlx +++| ITEM RDFFADR U; # *RDF* FILE *FET* ADDRESS # 00050 M01S00050.comtvlx +++| ITEM RDFBADR U; # *RDF* FILE BUFFER ADDRESS # 00051 M01S00051.comtvlx +++| 00052 M01S00052.comtvlx +++| ARRAY RDFFILE [0:0] S(SFETL); # *RDF* FILE *FET* # 00053 M01S00053.comtvlx +++| BEGIN 00054 M01S00054.comtvlx +++| ITEM RDFF$FET U(00,00,60); 00055 M01S00055.comtvlx +++| END 00056 M01S00056.comtvlx +++| 00057 M01S00057.comtvlx +++| ARRAY RDFBUF [0:0] S(LRDFBUF); # *RDF* FILE *CIO* BUFFER # 00058 M01S00058.comtvlx +++| BEGIN 00059 M01S00059.comtvlx +++| ITEM RDFF$BUFF U(00,00,60); 00060 M01S00060.comtvlx +++| END 00061 M01S00061.comtvlx +++| 00062 M01S00062.comtvlx +++|# 00063 M01S00063.comtvlx +++|* *RDF* FILE DATA RECORD AREA. 00064 M01S00064.comtvlx +++|# 00065 M01S00065.comtvlx +++| 00066 M01S00066.comtvlx +++| ARRAY RDFRECORD [0:0] S(LRDFRB); # *RDF* FILE RECORD # 00067 M01S00067.comtvlx +++| BEGIN 00068 M01S00068.comtvlx +++| 00069 M01S00069.comtvlx +++|# 00070 M01S00070.comtvlx +++|* *PFC* EXTRACT RECORD. 00071 M01S00071.comtvlx +++|# 00072 M01S00072.comtvlx +++| 00073 M01S00073.comtvlx +++| ITEM RDFR$PFN U(00,00,42); # *PFN* # 00074 M01S00074.comtvlx +++| ITEM RDFR$UI U(00,42,18); # USER INDEX # 00075 M01S00075.comtvlx +++| ITEM RDFR$SB U(00,57,03); # SUBFAMILY # 00076 M01S00076.comtvlx +++| ITEM RDFR$CREA U(01,24,36); # CREATION DATE # 00077 M01S00077.comtvlx +++| ITEM RDFR$DMDT U(02,24,36); # DATA MODIFICATION DT # 00078 M01S00078.comtvlx +++| ITEM RDFR$CMDT U(03,24,36); # CONTROL MODIFICATION DT # 00079 M01S00079.comtvlx +++| ITEM RDFR$D U(04,00,03); # DISK IMAGE FLAG # 00080 M01S00080.comtvlx +++| ITEM RDFR$UCDT U(04,24,36); # UTILITY CONTROL DT # 00081 M01S00081.comtvlx +++| ITEM RDFR$ASCF U(05,00,12); # ASC FLAGS # 00082 M01S00082.comtvlx +++| ITEM RDFR$FF U(05,06,01); # FLAG AFFRE # 00083 M01S00001.ssval2 +++| ITEM RDFR$AT U(05,18,06); # ALTERNATE TYPE # 00084 M01S00083.comtvlx +++| ITEM RDFR$ASA U(05,24,36); # ASA # 00085 M01S00084.comtvlx +++| ITEM RDFR$SM U(05,24,06); # *SM* ID # 00086 M01S00085.comtvlx +++| 00087 M01S00086.comtvlx +++|# 00088 M01S00087.comtvlx +++|* HEADER RECORD FIELDS. 00089 M01S00088.comtvlx +++|# 00090 M01S00089.comtvlx +++| 00091 M01S00090.comtvlx +++| ITEM RDFH$ID C(00,00,06); # ID IN HEADER # 00092 M01S00091.comtvlx +++| ITEM RDFH$FAM C(05,00,07); # FAMILY # 00093 M01S00092.comtvlx +++| END 00094 M01S00093.comtvlx +++| 00095 M01S00094.comtvlx +++|# 00096 M01S00095.comtvlx +++|* *RDF* FILE CONTROL WORD. 00097 M01S00096.comtvlx +++|# 00098 M01S00097.comtvlx +++| 00099 M01S00098.comtvlx +++| ARRAY RDFCTLWORD [0:0] S(1); # *RDF* FILE CONTROL WORD # 00100 M01S00099.comtvlx +++| BEGIN 00101 M01S00100.comtvlx +++| ITEM RDFC$DN U(00,00,60); # DEVICE NUMBER # 00102 M01S00101.comtvlx +++| ITEM RDFC$SF U(00,09,03); # SUBFAMILY NUMBER # 00103 M01S00102.comtvlx +++| ITEM RDFC$PDT U(00,12,36); # PACKED DATE-TIME # 00104 M01S00103.comtvlx +++| ITEM RDFC$TIME U(00,30,18); # PFDUMP TIME # 00105 M01S00104.comtvlx +++| ITEM RDFC$CTYP U(00,48,03); # CONTROL WORD TYPE # 00106 M01S00105.comtvlx +++| ITEM RDFC$WC U(00,51,09); # WORD COUNT TO NEXT # 00107 M01S00106.comtvlx +++| END 00108 M01S00107.comtvlx +++| 00109 M01S00108.comtvlx +++| 00110 M01S00109.comtvlx +++|# 00111 M01S00110.comtvlx +++|* *PFC* EXTRACT FILES - TO BUILD FILES (ONE PER SUBFAMILY) OF 00112 M01S00111.comtvlx +++|* *PFC* DATA EXTRACTED FROM THE *RDF* FILE OR A *PFC* 00113 M01S00112.comtvlx +++|* CATALOG. THE *PFC* EXTRACT RECORD IS WRITTEN FROM THE 00114 M01S00113.comtvlx +++|* ARRAY *EXTRECORD*. 00115 M01S00114.comtvlx +++|# 00116 M01S00115.comtvlx +++| 00117 M01S00116.comtvlx +++| ITEM PEXTFADR U; # *PFC* EXTRACT *FET* ADDRESS # 00118 M01S00117.comtvlx +++| ITEM PEXTBADR U; # *PFC* EXTRACT BUFFER ADDRESS # 00119 M01S00118.comtvlx +++| 00120 M01S00119.comtvlx +++| ARRAY PFCENAME [0:0] S(1); # *PFC* EXTRACT FILE NAME # 00121 M01S00120.comtvlx +++| BEGIN 00122 M01S00121.comtvlx +++| ITEM PFCE$LFN C(00,00,06) = [EXTLFN]; 00123 M01S00122.comtvlx +++| ITEM PFCE$LFNX U(00,36,06); # SUBFAMILY NUMBER IN *LFN* # 00124 M01S00123.comtvlx +++| END 00125 M01S00124.comtvlx +++| 00126 M01S00125.comtvlx +++| ARRAY PFCEXTN [0:7] S(SFETL); # PFCEXTN *FET* # 00127 M01S00126.comtvlx +++| BEGIN 00128 M01S00127.comtvlx +++| ITEM PFCE$FET U(00,00,60); 00129 M01S00128.comtvlx +++| END 00130 M01S00129.comtvlx +++| 00131 M01S00130.comtvlx +++| ARRAY PFCEBUF [0:7] S(LPFCEBUF); # PFCEXTN *CIO* BUFFER # 00132 M01S00131.comtvlx +++| BEGIN 00133 M01S00132.comtvlx +++| ITEM PFCE$BUF U(00,00,60); 00134 M01S00133.comtvlx +++| END 00135 M01S00134.comtvlx +++| 00136 M01S00135.comtvlx +++| 00137 M01S00136.comtvlx +++|# 00138 M01S00137.comtvlx +++|* ZZZVALX FILE - TO BUILD COPIES OF THE SFMCATS 00139 M01S00138.comtvlx +++|* FROM THE *RDF* FILE. THERE IS A SEPARATE M860 CATALOG FILE 00140 M01S00139.comtvlx +++|* FOR EACH SUBFAMILY. 00141 M01S00140.comtvlx +++|# 00142 M01S00141.comtvlx +++| 00143 M01S00142.comtvlx +++| ITEM ZVALFADR U; # ZZZVALX FILE *FET* ADDRESS # 00144 M01S00143.comtvlx +++| ITEM ZVALBADR U; # ZZZVALX FILE BUFFER ADDRESS # 00145 M01S00144.comtvlx +++| 00146 M01S00145.comtvlx +++| ARRAY ZZZVALX [0:0] S(SFETL); # ZZZVALX FILE *FET* # 00147 M01S00146.comtvlx +++| BEGIN 00148 M01S00147.comtvlx +++| ITEM ZZZV$FET U(00,00,60); 00149 M01S00148.comtvlx +++| ITEM ZZZV$LFNC C(00,00,07); # *LFN* # 00150 M01S00149.comtvlx +++| ITEM ZZZV$LFNX U(00,36,06); # UNIQUE *LFN* CHAR # 00151 M01S00150.comtvlx +++| END 00152 M01S00151.comtvlx +++| 00153 M01S00152.comtvlx +++| ARRAY ZZZVBUF [0:0] S(LZZZVBUF); # ZZZVALX *CIO* BUFFER # 00154 M01S00153.comtvlx +++| BEGIN 00155 M01S00154.comtvlx +++| ITEM ZZZV$BUF U(00,00,60); 00156 M01S00155.comtvlx +++| END 00157 M01S00156.comtvlx +++| 00158 M01S00157.comtvlx +++| END # TVLXCOM COMMON BLOCK # 00159 M01S00158.comtvlx +++| 00160 M01S00159.comtvlx +++| END # COMTVLX # 00161 M01S00160.comtvlx +++| 00162 M01S00161.comtvlx +++| CONTROL LIST; 00163 M01S00162.comtvlx +++|
cdc/nos2.source/opl.opl871/common/comtvlx.txt · Last modified: by 127.0.0.1