cdc:nos2.source:opl.opl871:common:comtvlx
Common COMTVLX
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comtvlx +++| 00002 M00S00002.comtvlx +++|# COMTVLX - *RDF*, *PFC* EXTRACT AND ZZZVALX FILE DESCRIPTIONS. # 00003 M00S00003.comtvlx +++| CONTROL NOLIST; 00004 M00S00004.comtvlx +++| CONTROL IFEQ LISTCON,1; 00005 M00S00005.comtvlx +++| CONTROL LIST; 00006 M00S00006.comtvlx +++| CONTROL FI; 00007 M00S00007.comtvlx +++| BEGIN # COMTVLX # 00008 M00S00008.comtvlx +++| 00009 M00S00009.comtvlx +++|# 00010 M00S00010.comtvlx +++|*** COMTVLX - *RDF*, PFCEXTRACT AND ZZZVALX FILE DESCRIPTIONS. 00011 M00S00011.comtvlx +++|* 00012 M00S00012.comtvlx +++|* COMTVLX DEFINES THE SYMBOLS, *FET-S* AND *I/O* BUFFERS FOR 00013 M00S00013.comtvlx +++|* THE FILES PROCESSED DURING THE PRESET PHASE OF *ASVAL*. 00014 M00S00014.comtvlx +++|* 00015 M00S00015.comtvlx +++|# 00016 M00S00016.comtvlx +++| 00017 M00S00017.comtvlx +++| 00018 M00S00018.comtvlx +++| DEF LRDFRB #64#; # *RDF* RECORD BUFFER LENGTH # 00019 M00S00019.comtvlx +++| DEF RDFMAXWC #64#; # MAX SIZE IN CONTROL WORD # 00020 M00S00020.comtvlx +++| 00021 M00S00021.comtvlx +++|# 00022 M00S00022.comtvlx +++|* *RDF* RECORD TYPES. 00023 M00S00023.comtvlx +++|# 00024 M00S00024.comtvlx +++| 00025 M00S00025.comtvlx +++| DEF RDFEOF #0#; # END OF FILE # 00026 M00S00026.comtvlx +++| DEF RDFHDRREC #1#; # HEADER RECORD # 00027 M00S00027.comtvlx +++| DEF RDFPFCREC #2#; # *PFC* EXTRACT RECORD # 00028 M00S00028.comtvlx +++| DEF RDFCATREC #3#; # M860 CATALOG RECORD # 00029 M00S00029.comtvlx +++| 00030 M00S00030.comtvlx +++| 00031 M00S00031.comtvlx +++| COMMON TVLXCOM; 00032 M00S00032.comtvlx +++| 00033 M00S00033.comtvlx +++| BEGIN # TVLXCOM COMMON BLOCK # 00034 M00S00034.comtvlx +++| #$$# 00035 M00S00035.comtvlx +++| ITEM $$TVLX$$ C(20) = "****** COMTVLX *****"; 00036 M00S00036.comtvlx +++| #$$# 00037 M00S00037.comtvlx +++| 00038 M00S00038.comtvlx +++| ITEM RDFHDROK B; # FLAG INDICATES HEADER RECORD OK 00039 M00S00039.comtvlx +++| # 00040 M00S00040.comtvlx +++| 00041 M00S00041.comtvlx +++|# 00042 M00S00042.comtvlx +++|* RELEASE DATA FILE (RDF) - (BUILT BY PFDUMP) CONTAINS A 00043 M00S00043.comtvlx +++|* HEADER, *PFC* RECORDS, AND M860 CATALOG RECORDS. EACH 00044 M00S00044.comtvlx +++|* DATA RECORD IS PRECEEDED BY A CONTROL WORD IDENTIFYING 00045 M00S00045.comtvlx +++|* THE DATA TYPE AND THE DATA LENGTH. 00046 M00S00046.comtvlx +++|# 00047 M00S00047.comtvlx +++| 00048 M00S00048.comtvlx +++| 00049 M00S00049.comtvlx +++| ITEM RDFFADR U; # *RDF* FILE *FET* ADDRESS # 00050 M00S00050.comtvlx +++| ITEM RDFBADR U; # *RDF* FILE BUFFER ADDRESS # 00051 M00S00051.comtvlx +++| 00052 M00S00052.comtvlx +++| ARRAY RDFFILE [0:0] S(SFETL); # *RDF* FILE *FET* # 00053 M00S00053.comtvlx +++| BEGIN 00054 M00S00054.comtvlx +++| ITEM RDFF$FET U(00,00,60); 00055 M00S00055.comtvlx +++| END 00056 M00S00056.comtvlx +++| 00057 M00S00057.comtvlx +++| ARRAY RDFBUF [0:0] S(LRDFBUF); # *RDF* FILE *CIO* BUFFER # 00058 M00S00058.comtvlx +++| BEGIN 00059 M00S00059.comtvlx +++| ITEM RDFF$BUFF U(00,00,60); 00060 M00S00060.comtvlx +++| END 00061 M00S00061.comtvlx +++| 00062 M00S00062.comtvlx +++|# 00063 M00S00063.comtvlx +++|* *RDF* FILE DATA RECORD AREA. 00064 M00S00064.comtvlx +++|# 00065 M00S00065.comtvlx +++| 00066 M00S00066.comtvlx +++| ARRAY RDFRECORD [0:0] S(LRDFRB); # *RDF* FILE RECORD # 00067 M00S00067.comtvlx +++| BEGIN 00068 M00S00068.comtvlx +++| 00069 M00S00069.comtvlx +++|# 00070 M00S00070.comtvlx +++|* *PFC* EXTRACT RECORD. 00071 M00S00071.comtvlx +++|# 00072 M00S00072.comtvlx +++| 00073 M00S00073.comtvlx +++| ITEM RDFR$PFN U(00,00,42); # *PFN* # 00074 M00S00074.comtvlx +++| ITEM RDFR$UI U(00,42,18); # USER INDEX # 00075 M00S00075.comtvlx +++| ITEM RDFR$SB U(00,57,03); # SUBFAMILY # 00076 M00S00076.comtvlx +++| ITEM RDFR$CREA U(01,24,36); # CREATION DATE # 00077 M00S00077.comtvlx +++| ITEM RDFR$DMDT U(02,24,36); # DATA MODIFICATION DT # 00078 M00S00078.comtvlx +++| ITEM RDFR$CMDT U(03,24,36); # CONTROL MODIFICATION DT # 00079 M00S00079.comtvlx +++| ITEM RDFR$D U(04,00,03); # DISK IMAGE FLAG # 00080 M00S00080.comtvlx +++| ITEM RDFR$UCDT U(04,24,36); # UTILITY CONTROL DT # 00081 M00S00081.comtvlx +++| ITEM RDFR$ASCF U(05,00,12); # ASC FLAGS # 00082 M00S00082.comtvlx +++| ITEM RDFR$FF U(05,06,01); # FLAG AFFRE #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ssval2 |
Seq # *Modification Id* Act ----------------------------+ 00083 M01S00001.ssval2 +++| ITEM RDFR$AT U(05,18,06); # ALTERNATE TYPE # 00084 M00S00083.comtvlx +++| ITEM RDFR$ASA U(05,24,36); # ASA # 00085 M00S00084.comtvlx +++| ITEM RDFR$SM U(05,24,06); # *SM* ID # 00086 M00S00085.comtvlx +++| 00087 M00S00086.comtvlx +++|# 00088 M00S00087.comtvlx +++|* HEADER RECORD FIELDS. 00089 M00S00088.comtvlx +++|# 00090 M00S00089.comtvlx +++| 00091 M00S00090.comtvlx +++| ITEM RDFH$ID C(00,00,06); # ID IN HEADER # 00092 M00S00091.comtvlx +++| ITEM RDFH$FAM C(05,00,07); # FAMILY # 00093 M00S00092.comtvlx +++| END 00094 M00S00093.comtvlx +++| 00095 M00S00094.comtvlx +++|# 00096 M00S00095.comtvlx +++|* *RDF* FILE CONTROL WORD. 00097 M00S00096.comtvlx +++|# 00098 M00S00097.comtvlx +++| 00099 M00S00098.comtvlx +++| ARRAY RDFCTLWORD [0:0] S(1); # *RDF* FILE CONTROL WORD # 00100 M00S00099.comtvlx +++| BEGIN 00101 M00S00100.comtvlx +++| ITEM RDFC$DN U(00,00,60); # DEVICE NUMBER # 00102 M00S00101.comtvlx +++| ITEM RDFC$SF U(00,09,03); # SUBFAMILY NUMBER # 00103 M00S00102.comtvlx +++| ITEM RDFC$PDT U(00,12,36); # PACKED DATE-TIME # 00104 M00S00103.comtvlx +++| ITEM RDFC$TIME U(00,30,18); # PFDUMP TIME # 00105 M00S00104.comtvlx +++| ITEM RDFC$CTYP U(00,48,03); # CONTROL WORD TYPE # 00106 M00S00105.comtvlx +++| ITEM RDFC$WC U(00,51,09); # WORD COUNT TO NEXT # 00107 M00S00106.comtvlx +++| END 00108 M00S00107.comtvlx +++| 00109 M00S00108.comtvlx +++| 00110 M00S00109.comtvlx +++|# 00111 M00S00110.comtvlx +++|* *PFC* EXTRACT FILES - TO BUILD FILES (ONE PER SUBFAMILY) OF 00112 M00S00111.comtvlx +++|* *PFC* DATA EXTRACTED FROM THE *RDF* FILE OR A *PFC* 00113 M00S00112.comtvlx +++|* CATALOG. THE *PFC* EXTRACT RECORD IS WRITTEN FROM THE 00114 M00S00113.comtvlx +++|* ARRAY *EXTRECORD*. 00115 M00S00114.comtvlx +++|# 00116 M00S00115.comtvlx +++| 00117 M00S00116.comtvlx +++| ITEM PEXTFADR U; # *PFC* EXTRACT *FET* ADDRESS # 00118 M00S00117.comtvlx +++| ITEM PEXTBADR U; # *PFC* EXTRACT BUFFER ADDRESS # 00119 M00S00118.comtvlx +++| 00120 M00S00119.comtvlx +++| ARRAY PFCENAME [0:0] S(1); # *PFC* EXTRACT FILE NAME # 00121 M00S00120.comtvlx +++| BEGIN 00122 M00S00121.comtvlx +++| ITEM PFCE$LFN C(00,00,06) = [EXTLFN]; 00123 M00S00122.comtvlx +++| ITEM PFCE$LFNX U(00,36,06); # SUBFAMILY NUMBER IN *LFN* # 00124 M00S00123.comtvlx +++| END 00125 M00S00124.comtvlx +++| 00126 M00S00125.comtvlx +++| ARRAY PFCEXTN [0:7] S(SFETL); # PFCEXTN *FET* # 00127 M00S00126.comtvlx +++| BEGIN 00128 M00S00127.comtvlx +++| ITEM PFCE$FET U(00,00,60); 00129 M00S00128.comtvlx +++| END 00130 M00S00129.comtvlx +++| 00131 M00S00130.comtvlx +++| ARRAY PFCEBUF [0:7] S(LPFCEBUF); # PFCEXTN *CIO* BUFFER # 00132 M00S00131.comtvlx +++| BEGIN 00133 M00S00132.comtvlx +++| ITEM PFCE$BUF U(00,00,60); 00134 M00S00133.comtvlx +++| END 00135 M00S00134.comtvlx +++| 00136 M00S00135.comtvlx +++| 00137 M00S00136.comtvlx +++|# 00138 M00S00137.comtvlx +++|* ZZZVALX FILE - TO BUILD COPIES OF THE SFMCATS 00139 M00S00138.comtvlx +++|* FROM THE *RDF* FILE. THERE IS A SEPARATE M860 CATALOG FILE 00140 M00S00139.comtvlx +++|* FOR EACH SUBFAMILY. 00141 M00S00140.comtvlx +++|# 00142 M00S00141.comtvlx +++| 00143 M00S00142.comtvlx +++| ITEM ZVALFADR U; # ZZZVALX FILE *FET* ADDRESS # 00144 M00S00143.comtvlx +++| ITEM ZVALBADR U; # ZZZVALX FILE BUFFER ADDRESS # 00145 M00S00144.comtvlx +++| 00146 M00S00145.comtvlx +++| ARRAY ZZZVALX [0:0] S(SFETL); # ZZZVALX FILE *FET* # 00147 M00S00146.comtvlx +++| BEGIN 00148 M00S00147.comtvlx +++| ITEM ZZZV$FET U(00,00,60); 00149 M00S00148.comtvlx +++| ITEM ZZZV$LFNC C(00,00,07); # *LFN* # 00150 M00S00149.comtvlx +++| ITEM ZZZV$LFNX U(00,36,06); # UNIQUE *LFN* CHAR # 00151 M00S00150.comtvlx +++| END 00152 M00S00151.comtvlx +++| 00153 M00S00152.comtvlx +++| ARRAY ZZZVBUF [0:0] S(LZZZVBUF); # ZZZVALX *CIO* BUFFER # 00154 M00S00153.comtvlx +++| BEGIN 00155 M00S00154.comtvlx +++| ITEM ZZZV$BUF U(00,00,60); 00156 M00S00155.comtvlx +++| END 00157 M00S00156.comtvlx +++| 00158 M00S00157.comtvlx +++| END # TVLXCOM COMMON BLOCK # 00159 M00S00158.comtvlx +++| 00160 M00S00159.comtvlx +++| END # COMTVLX # 00161 M00S00160.comtvlx +++| 00162 M00S00161.comtvlx +++| CONTROL LIST; 00163 M00S00162.comtvlx +++|
cdc/nos2.source/opl.opl871/common/comtvlx.txt · Last modified: (external edit)