cdc:nos2.source:opl.opl871:common:combmct
Common COMBMCT
0 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.combmct +++| 00002 M01S00002.combmct +++|# COMBMCT - M860 CATALOG TABLES. # 00003 M01S00003.combmct +++| CONTROL NOLIST; 00004 M01S00004.combmct +++| CONTROL IFEQ LISTCON,1; 00005 M01S00005.combmct +++| CONTROL LIST; 00006 M01S00006.combmct +++| CONTROL FI; 00007 M01S00007.combmct +++| BEGIN # COMBMCT # 00008 M01S00008.combmct +++| 00009 M01S00009.combmct +++|# 00010 M01S00010.combmct +++|*** COMBMCT - M860 CATALOG TABLES. 00011 M01S00011.combmct +++|* 00012 M01S00012.combmct +++|* COMBMCT CONTAINS THE DEFINITION OF THE FILE AND 00013 M01S00013.combmct +++|* CARTRIDGE TABLE, THE ALLOCATION SUMMARAY TABLE, AND THE 00014 M01S00014.combmct +++|* PREAMBLE IN THE M860 CATALOG. 00015 M01S00015.combmct +++|* 00016 M01S00016.combmct +++|* NOTE - COMDECK *COMBFAS* MUST BE CALLED PRIOR TO *COMBMCT*. 00017 M01S00017.combmct +++|# 00018 M01S00018.combmct +++| 00019 M01S00019.combmct +++| 00020 M01S00020.combmct +++|# 00021 M01S00021.combmct +++|* M860 CATALOG. 00022 M01S00022.combmct +++|# 00023 M01S00023.combmct +++| 00024 M01S00024.combmct +++|# 00025 M01S00025.combmct +++|* FILE AND CARTRIDGE TABLE (FCT). 00026 M01S00026.combmct +++|# 00027 M01S00027.combmct +++| 00028 M01S00028.combmct +++| DEF FCTENTL #975#; # *FCT* ENTRY LENGTH # 00029 M01S00029.combmct +++| DEF NOCLF #2#; # NO. OF CLF PER *FCT* WORD # 00030 M01S00030.combmct +++| 00031 M01S00031.combmct +++| STATUS CHAINCON # CHAIN CONTROL # 00032 M01S00032.combmct +++| MIDDLE, 00033 M01S00033.combmct +++| FIRST, 00034 M01S00034.combmct +++| LAST, 00035 M01S00035.combmct +++| ONLY; 00036 M01S00036.combmct +++| 00037 M01S00037.combmct +++| BASED 00038 M01S00038.combmct +++| ARRAY FCT [0:0] P(FCTENTL); # *FCT* ENTRY DESCRIPTION # 00039 M01S00039.combmct +++| BEGIN 00040 M01S00040.combmct +++| ITEM FCT$1ST U(00,00,60); # REFERENCE TO WORD ONE # 00041 M01S00041.combmct +++| ITEM FCT$CSND C(00,00,08); # VSN OF CARTRIDGE # 00042 M01S00042.combmct +++| ITEM FCT$CSNI I(00,00,48); # VSN IN INTEGER # 00043 M01S00043.combmct +++| ITEM FCT$CCOD C(00,48,02); # CARTRIDGE MAKER IDENT # 00044 M01S00044.combmct +++| ITEM FCT$Y U(01,00,06); # VERTICAL COORDINATE # 00045 M01S00045.combmct +++| ITEM FCT$Z U(01,06,06); # HORIZONTAL COORDINATE # 00046 M01S00046.combmct +++| ITEM FCT$FAULF U(01,12,15); # START OF LARGE FREE AU # 00047 M01S00047.combmct +++| ITEM FCT$FAUSF U(01,27,15); # START OF SMALL FREE AU # 00048 M01S00048.combmct +++| ITEM FCT$FLGS U(01,42,06); # FLAGS # 00049 M01S00049.combmct +++| ITEM FCT$IAF B(01,42,01); # INHIBIT ALLOCATION FLAG # 00050 M01S00050.combmct +++| ITEM FCT$LCF B(01,43,01); # LOST CARTRIDGE FLAG # 00051 M01S00051.combmct +++| ITEM FCT$EEF B(01,44,01); # EXCESSIVE ERROR FLAG # 00052 M01S00052.combmct +++| ITEM FCT$FCF B(01,45,01); # FREE CARTRIDGE FLAG # 00053 M01S00053.combmct +++| ITEM FCT$SEF B(01,46,01); # SFMCAT LINKAGE ERROR FLAG # 00054 M01S00054.combmct +++| ITEM FCT$FREE2 U(01,47,01); # UNUSED # 00055 M01S00055.combmct +++| ITEM FCT$ORD U(01,48,12); # *FCT* ORDINAL # 00056 M01S00056.combmct +++| ITEM FCT$ALLOCL U(02,00,12); # ALL OCL LINK FIELDS # 00057 M01S00057.combmct +++| ITEM FCT$OCL U(02,00,04); # FIRST OFF CARTRIDGE LINK # 00058 M01S00058.combmct +++| ITEM FCT$OCL1 U(02,04,04); # SECOND OFF CARTRIDGE LINK # 00059 M01S00059.combmct +++| ITEM FCT$OCL2 U(02,08,04); # THIRD OFF CARTRIDGE LINK # 00060 M01S00060.combmct +++| ITEM FCT$FTST U(02,12,06); # FIRST USABLE STRIPE # 00061 M01S00061.combmct +++| ITEM FCT$SPAU U(02,18,06); # STRIPES IN EACH AU # 00062 M01S00062.combmct +++| ITEM FCT$PRUS U(02,24,05); # PRU'S WRITTEN PER STRIPE # 00063 M01S00063.combmct +++| ITEM FCT$AVOT U(02,29,14); # MAXIMUM AU ON CARTRIDGE # 00064 M01S00064.combmct +++| ITEM FCT$CDP U(02,43,14); # CARTRIDGE DIVISION POINT # 00065 M01S00065.combmct +++| ITEM FCT$OCLF U(02,57,03); # RESERVED ON EACH OCL FIELD # 00066 M01S00066.combmct +++| ITEM FCT$CSNE U(03,00,60); # VSN IN EBCDIC # 00067 M01S00067.combmct +++| ITEM FCT$CSNE1 U(04,00,36); # VSN IN EBCDIC # 00068 M01S00068.combmct +++| ITEM FCT$FREE3 U(04,36,12); # UNUSED # 00069 M01S00069.combmct +++| ITEM FCT$FLAWS U(04,48,12); # FLAW COUNT # 00070 M01S00070.combmct +++| ITEM FCT$STRD U(05,00,30); # NUMBER OF STRIPES READ # 00071 M01S00071.combmct +++| ITEM FCT$STWR U(05,30,30); # NUMBER OF STRIPES WRITTEN # 00072 M01S00072.combmct +++| ITEM FCT$SRDE U(06,00,30); # NUMBER OF SOFT READ ERRORS # 00073 M01S00073.combmct +++| ITEM FCT$SWRE U(06,30,30); # NUMBER OF SOFT WRITE ERRORS # 00074 M01S00074.combmct +++| ITEM FCT$HRDE U(07,00,15); # NUMBER HARD READ ERRORS # 00075 M01S00075.combmct +++| ITEM FCT$STDM U(07,15,15); # NUMBER OF DEMARKED STRIPES # 00076 M01S00076.combmct +++| ITEM FCT$CRLD U(07,30,15); # NUMBER OF CARTRIDGE LOADS # 00077 M01S00077.combmct +++| ITEM FCT$LDER U(07,45,15); # NUMBER OF CARTRIDGE LOAD ERRORS 00078 M01S00078.combmct +++| # 00079 M01S00079.combmct +++| ITEM FCT$CLF U(08,00,60); # AU'S WORDS (8 - 974) # 00080 M01S00080.combmct +++| END 00081 M01S00081.combmct +++| 00082 M01S00082.combmct +++|# 00083 M01S00083.combmct +++|* A SPECIFIC OFF CARTRIDGE LINK FIELD IN *FCT$ALLOCL* CAN BE 00084 M01S00084.combmct +++|* ACCESSED VIA THE *FCT$OCLNK* DEFINITION BELOW. 00085 M01S00085.combmct +++|# 00086 M01S00086.combmct +++| 00087 M01S00087.combmct +++| DEF FCT$OCLNK(N) #B<4*(N)-4,4>FCT$ALLOCL[0] #; 00088 M01S00088.combmct +++| 00089 M01S00089.combmct +++|# 00090 M01S00090.combmct +++|** *FCT* ITEMS CAN BE ACCESSED WITH ORDINAL N USING *FCT$WD * 00091 M01S00091.combmct +++|* AND *FCT$WP* FOR *I* AND *J* RESPECTIVELY. 00092 M01S00092.combmct +++|# 00093 M01S00093.combmct +++| 00094 M01S00094.combmct +++| 00095 M01S00095.combmct +++| # CARTIDGE LINK FIELD GROUP FOR 00096 M01S00096.combmct +++| INITIALIZATION # 00097 M01S00097.combmct +++| 00098 M01S00098.combmct +++| DEF FCT$CLFG (I,J) #B<(J)*30,30> FCT$CLF[(I)]#; 00099 M01S00099.combmct +++| 00100 M01S00100.combmct +++| # FLAGS FOR CARTRIDGE LINK FIELDS 00101 M01S00101.combmct +++| # 00102 M01S00102.combmct +++| DEF FCT$FLGS1 (I,J) #B<(J)*30,07>FCT$CLF[(I)]#; 00103 M01S00103.combmct +++| 00104 M01S00104.combmct +++| # FREE / BUSY FLAG, IF FLAG NOT 00105 M01S00105.combmct +++| SET, AU IS NOT ALLOCATED YET # 00106 M01S00106.combmct +++| 00107 M01S00107.combmct +++| DEF FCT$FBF (I,J) #B<(J)*30,01> FCT$CLF[(I)]#; 00108 M01S00108.combmct +++| 00109 M01S00109.combmct +++| # UNUSED # 00110 M01S00110.combmct +++| 00111 M01S00111.combmct +++| DEF FCT$FREESF (I,J) #B<(J)*30+1,01> FCT$CLF[(I)]#; 00112 M01S00112.combmct +++| 00113 M01S00113.combmct +++| # AU CONFLICT FLAG # 00114 M01S00114.combmct +++| 00115 M01S00115.combmct +++| DEF FCT$AUCF (I,J) #B<(J)*30+2,01> FCT$CLF[(I)]#; 00116 M01S00116.combmct +++| 00117 M01S00117.combmct +++| # FROZEN CHAIN FLAG # 00118 M01S00118.combmct +++| 00119 M01S00119.combmct +++| DEF FCT$FRCF (I,J) #B<(J)*30+3,01> FCT$CLF[(I)]#; 00120 M01S00120.combmct +++| 00121 M01S00121.combmct +++| # START FRAGMENT FLAG # 00122 M01S00122.combmct +++| 00123 M01S00123.combmct +++| DEF FCT$SFF (I,J) #B<(J)*30+4,01> FCT$CLF[(I)]#; 00124 M01S00124.combmct +++| 00125 M01S00125.combmct +++| # FLAWED AU FLAG # 00126 M01S00126.combmct +++| 00127 M01S00127.combmct +++| DEF FCT$FAUF (I,J) #B<(J)*30+5,01> FCT$CLF[(I)]#; 00128 M01S00128.combmct +++| 00129 M01S00129.combmct +++| # CONTINUATION FLAG # 00130 M01S00130.combmct +++| 00131 M01S00131.combmct +++| DEF FCT$CAUF (I,J) #B<(J)*30+6,01> FCT$CLF[(I)]#; 00132 M01S00132.combmct +++| 00133 M01S00133.combmct +++| # IDENTIFIES CARTRIDGE CONTAINING 00134 M01S00134.combmct +++| NEXT VOLUME # 00135 M01S00135.combmct +++| DEF FCT$CLKOCL (I,J) #B<(J)*30+7,02> FCT$CLF[(I)]#; 00136 M01S00136.combmct +++| 00137 M01S00137.combmct +++| # CHAIN CONTROL INDICATES THAT 00138 M01S00138.combmct +++| THIS SET OF AUS IS # 00139 M01S00139.combmct +++| # MIDDLE (0), FIRST (1), 00140 M01S00140.combmct +++| LAST(2), ONLY (3) # 00141 M01S00141.combmct +++| # OF VOLUME OR VOLUMES. # 00142 M01S00142.combmct +++| 00143 M01S00143.combmct +++| DEF FCT$CC (I,J) #B<(J)*30+9,02> FCT$CLF[(I)]#; 00144 M01S00144.combmct +++| 00145 M01S00145.combmct +++| # NO. OF AUS FOLLOWING FIRST 00146 M01S00146.combmct +++| ACCESSED AU # 00147 M01S00147.combmct +++| 00148 M01S00148.combmct +++| DEF FCT$LEN (I,J) #B<(J)*30+11,07> FCT$CLF[(I)]#; 00149 M01S00149.combmct +++| 00150 M01S00150.combmct +++| # ORDINAL OF FIRST AU OF NEXT 00151 M01S00151.combmct +++| VOLUME. # 00152 M01S00152.combmct +++| 00153 M01S00153.combmct +++| DEF FCT$LINK (I,J) #B<(J)*30+18,12> FCT$CLF[(I)]#; 00154 M01S00154.combmct +++| 00155 M01S00155.combmct +++| # *FCT* INDEX INTO A TABLE WORD # 00156 M01S00156.combmct +++| 00157 M01S00157.combmct +++| DEF FCT$WD (N) #((N)/NOCLF)#; 00158 M01S00158.combmct +++| 00159 M01S00159.combmct +++| # CLF WORD POSITION # 00160 M01S00160.combmct +++| 00161 M01S00161.combmct +++| DEF FCT$WP (N) #((N)-(((N)/NOCLF)*NOCLF))#; 00162 M01S00162.combmct +++| 00163 M01S00163.combmct +++| DEF SETFCTX (N) #FWD = (N)/2; 00164 M01S00164.combmct +++| FPS = (N) - 2*FWD; 00165 M01S00165.combmct +++| #; 00166 M01S00166.combmct +++| 00167 M01S00167.combmct +++|# 00168 M01S00168.combmct +++|* AVAILABLE AU TABLE (ALLOCATION SUMMARY TABLE). 00169 M01S00169.combmct +++|# 00170 M01S00170.combmct +++| 00171 M01S00171.combmct +++| 00172 M01S00172.combmct +++| DEF ASTENTW #2#; # NO. OF AST WORDS PER ENTRY # 00173 M01S00173.combmct +++| DEF ASTENTL #624#; # *AST* ENTRY LENGTH # 00174 M01S00174.combmct +++| 00175 M01S00175.combmct +++| 00176 M01S00176.combmct +++| STATUS ASTENSTAT 00177 M01S00177.combmct +++| UNASS$CUB, 00178 M01S00178.combmct +++| UNASS$CART, 00179 M01S00179.combmct +++| ASS$CART; 00180 M01S00180.combmct +++| 00181 M01S00181.combmct +++| 00182 M01S00182.combmct +++| BASED 00183 M01S00183.combmct +++| ARRAY AST [15:15] S(ASTENTW); # *AST* ENTRY DESCRIPTION # 00184 M01S00184.combmct +++| BEGIN 00185 M01S00185.combmct +++| ITEM AST$1ST U(00,00,60); # AST WORD 1 # 00186 M01S00186.combmct +++| ITEM AST$NAME C(00,00,06); # NAME OF *AST* # 00187 M01S00187.combmct +++| ITEM AST$SM C(00,36,01); # STORAGE MODULE ID # 00188 M01S00188.combmct +++| ITEM AST$PCI U(00,00,09); # PRIVATE CARTRIDGE # 00189 M01S00189.combmct +++| ITEM AST$STAT U(00,09,03); # *AST* ENTRY STATUS # 00190 M01S00190.combmct +++| ITEM AST$FCTX U(00,12,12); # *FCT* INDEX # 00191 M01S00191.combmct +++| ITEM AST$GR U(00,12,08); # GROUP # 00192 M01S00192.combmct +++| ITEM AST$GRT U(00,20,04); # CARTRIDGE WITHIN A GROUP # 00193 M01S00193.combmct +++| ITEM AST$FLAGS U(00,24,06); # FLAGS # 00194 M01S00194.combmct +++| ITEM AST$AAF B(00,24,01); # ALLOCATION AUTHORIZED # 00195 M01S00195.combmct +++| ITEM AST$NOCLF B(00,25,01); # NO OFF CARTRIDGE LINK # 00196 M01S00196.combmct +++| ITEM AST$FREE U(00,30,30); # UNUSED # 00197 M01S00197.combmct +++| 00198 M01S00198.combmct +++| ITEM AST$2ND U(01,00,60); # AST WORD 2 # 00199 M01S00199.combmct +++| ITEM AST$AULF U(01,00,12); # TOTAL AUS AVAILABLE LARGE FILES 00200 M01S00200.combmct +++| # 00201 M01S00201.combmct +++| ITEM AST$AUSF U(01,12,12); # TOTAL AUS AVAILABLE SMALL FILES 00202 M01S00202.combmct +++| # 00203 M01S00203.combmct +++| ITEM AST$FLAWS U(01,24,12); # FLAW COUNT # 00204 M01S00204.combmct +++| ITEM AST$FREE1 U(01,36,24); # UNUSED # 00205 M01S00205.combmct +++| END 00206 M01S00206.combmct +++| 00207 M01S00207.combmct +++| 00208 M01S00208.combmct +++|# 00209 M01S00209.combmct +++|* CATALOG PREAMBLE. 00210 M01S00210.combmct +++|# 00211 M01S00211.combmct +++| 00212 M01S00212.combmct +++| DEF PRMFCTL (N) #(PRM$ENTRC[(N)]*FCTENTL)#; # *FCT* LENGTH # 00213 M01S00213.combmct +++| 00214 M01S00214.combmct +++| # *AST* LENGTH # 00215 M01S00215.combmct +++| DEF PRMASTL (N) #(PRM$ENTRC[N]*ASTENTW) #; 00216 M01S00216.combmct +++| 00217 M01S00217.combmct +++| COMMON BMCTCOM; 00218 M01S00218.combmct +++| 00219 M01S00219.combmct +++| BEGIN # BMCTCOM # 00220 M01S00220.combmct +++| # $$ # 00221 M01S00221.combmct +++| ITEM $$BMCT$$ C(20) = "****** COMBMCT *****"; 00222 M01S00222.combmct +++| # $$ # 00223 M01S00223.combmct +++| 00224 M01S00224.combmct +++| ITEM FPS U; # *FCT* POSITION INDEX # 00225 M01S00225.combmct +++| ITEM FWD U; # *FCT* WORD INDEX # 00226 M01S00226.combmct +++| 00227 M01S00227.combmct +++| BASED 00228 M01S00228.combmct +++| ARRAY PREAMBLE [0:MAXSM] S(3); # M860 CATALOG PREAMBLE # 00229 M01S00229.combmct +++| BEGIN 00230 M01S00230.combmct +++| 00231 M01S00231.combmct +++|# 00232 M01S00232.combmct +++|* PREAMBLE HEADER. 00233 M01S00233.combmct +++|# 00234 M01S00234.combmct +++| 00235 M01S00235.combmct +++| ITEM PRM$FAM C(00,00,07); # FAMILY NAME # 00236 M01S00236.combmct +++| ITEM PRM$SUBF U(00,42,06); # SUBFAMILY DESIGNATOR # 00237 M01S00237.combmct +++| ITEM PRM$FREE U(00,48,09); # UNUSED # 00238 M01S00238.combmct +++| ITEM PRM$ID U(00,57,03); # M860-ID # 00239 M01S00239.combmct +++| ITEM PRM$FREE1 U(01,00,60); # UNUSED # 00240 M01S00240.combmct +++| ITEM PRM$FREE1A U(02,00,60); # UNUSED # 00241 M01S00241.combmct +++| 00242 M01S00242.combmct +++|# 00243 M01S00243.combmct +++|* PREAMBLE SUBCATALOG ENTRIES. 00244 M01S00244.combmct +++|# 00245 M01S00245.combmct +++| 00246 M01S00246.combmct +++| ITEM PRM$SCW1 I(00,00,60); # SUBCATALOG ENTRY WORD # 00247 M01S00247.combmct +++| ITEM PRM$SMID U(00,00,06); # SM ID # 00248 M01S00248.combmct +++| ITEM PRM$ENTRC U(00,06,12); # NUMBER OF FCT/AST ENTRIES # 00249 M01S00249.combmct +++| ITEM PRM$FCTLOC U(00,18,15); # PRU NUMBER OF FCT # 00250 M01S00250.combmct +++| ITEM PRM$ASTLOC U(00,33,15); # PRU NUMBER OF AST # 00251 M01S00251.combmct +++| 00252 M01S00252.combmct +++| ITEM PRM$SCW2 I(01,00,60); # SUBCATALOG ENTRY WORD 2 # 00253 M01S00253.combmct +++| ITEM PRM$FREE2 U(01,00,19); # UNUSED # 00254 M01S00254.combmct +++| ITEM PRM$PDATE U(01,19,41); # LAST PURGE OF ORPHAN FILES # 00255 M01S00255.combmct +++| 00256 M01S00256.combmct +++| ITEM PRM$SCW3 U(02,00,60); # SUBCATALOG ENTRY WORD 3 # 00257 M01S00257.combmct +++| ITEM PRM$MXAUS U(02,00,12); # AU FOR SHORT FILES # 00258 M01S00258.combmct +++| ITEM PRM$MXAUL U(02,12,12); # AU FOR LONG FILES # 00259 M01S00259.combmct +++| ITEM PRM$MXAUGR U(02,24,18); # AU IN ONE GROUP # 00260 M01S00260.combmct +++| ITEM PRM$FREE3 U(02,42,18); # UNUSED # 00261 M01S00261.combmct +++| END 00262 M01S00262.combmct +++| 00263 M01S00263.combmct +++| END # BMCTCOM # 00264 M01S00264.combmct +++| 00265 M01S00265.combmct +++| END # COMBMCT # 00266 M01S00266.combmct +++| 00267 M01S00267.combmct +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/combmct.txt · Last modified: by 127.0.0.1