cdc:nos2.source:opl.opl871:common:combmct
Common COMBMCT
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.combmct +++| 00002 M00S00002.combmct +++|# COMBMCT - M860 CATALOG TABLES. # 00003 M00S00003.combmct +++| CONTROL NOLIST; 00004 M00S00004.combmct +++| CONTROL IFEQ LISTCON,1; 00005 M00S00005.combmct +++| CONTROL LIST; 00006 M00S00006.combmct +++| CONTROL FI; 00007 M00S00007.combmct +++| BEGIN # COMBMCT # 00008 M00S00008.combmct +++| 00009 M00S00009.combmct +++|# 00010 M00S00010.combmct +++|*** COMBMCT - M860 CATALOG TABLES. 00011 M00S00011.combmct +++|* 00012 M00S00012.combmct +++|* COMBMCT CONTAINS THE DEFINITION OF THE FILE AND 00013 M00S00013.combmct +++|* CARTRIDGE TABLE, THE ALLOCATION SUMMARAY TABLE, AND THE 00014 M00S00014.combmct +++|* PREAMBLE IN THE M860 CATALOG. 00015 M00S00015.combmct +++|* 00016 M00S00016.combmct +++|* NOTE - COMDECK *COMBFAS* MUST BE CALLED PRIOR TO *COMBMCT*. 00017 M00S00017.combmct +++|# 00018 M00S00018.combmct +++| 00019 M00S00019.combmct +++| 00020 M00S00020.combmct +++|# 00021 M00S00021.combmct +++|* M860 CATALOG. 00022 M00S00022.combmct +++|# 00023 M00S00023.combmct +++| 00024 M00S00024.combmct +++|# 00025 M00S00025.combmct +++|* FILE AND CARTRIDGE TABLE (FCT). 00026 M00S00026.combmct +++|# 00027 M00S00027.combmct +++| 00028 M00S00028.combmct +++| DEF FCTENTL #975#; # *FCT* ENTRY LENGTH # 00029 M00S00029.combmct +++| DEF NOCLF #2#; # NO. OF CLF PER *FCT* WORD # 00030 M00S00030.combmct +++| 00031 M00S00031.combmct +++| STATUS CHAINCON # CHAIN CONTROL # 00032 M00S00032.combmct +++| MIDDLE, 00033 M00S00033.combmct +++| FIRST, 00034 M00S00034.combmct +++| LAST, 00035 M00S00035.combmct +++| ONLY; 00036 M00S00036.combmct +++| 00037 M00S00037.combmct +++| BASED 00038 M00S00038.combmct +++| ARRAY FCT [0:0] P(FCTENTL); # *FCT* ENTRY DESCRIPTION # 00039 M00S00039.combmct +++| BEGIN 00040 M00S00040.combmct +++| ITEM FCT$1ST U(00,00,60); # REFERENCE TO WORD ONE # 00041 M00S00041.combmct +++| ITEM FCT$CSND C(00,00,08); # VSN OF CARTRIDGE # 00042 M00S00042.combmct +++| ITEM FCT$CSNI I(00,00,48); # VSN IN INTEGER # 00043 M00S00043.combmct +++| ITEM FCT$CCOD C(00,48,02); # CARTRIDGE MAKER IDENT # 00044 M00S00044.combmct +++| ITEM FCT$Y U(01,00,06); # VERTICAL COORDINATE # 00045 M00S00045.combmct +++| ITEM FCT$Z U(01,06,06); # HORIZONTAL COORDINATE # 00046 M00S00046.combmct +++| ITEM FCT$FAULF U(01,12,15); # START OF LARGE FREE AU # 00047 M00S00047.combmct +++| ITEM FCT$FAUSF U(01,27,15); # START OF SMALL FREE AU # 00048 M00S00048.combmct +++| ITEM FCT$FLGS U(01,42,06); # FLAGS # 00049 M00S00049.combmct +++| ITEM FCT$IAF B(01,42,01); # INHIBIT ALLOCATION FLAG # 00050 M00S00050.combmct +++| ITEM FCT$LCF B(01,43,01); # LOST CARTRIDGE FLAG # 00051 M00S00051.combmct +++| ITEM FCT$EEF B(01,44,01); # EXCESSIVE ERROR FLAG # 00052 M00S00052.combmct +++| ITEM FCT$FCF B(01,45,01); # FREE CARTRIDGE FLAG # 00053 M00S00053.combmct +++| ITEM FCT$SEF B(01,46,01); # SFMCAT LINKAGE ERROR FLAG # 00054 M00S00054.combmct +++| ITEM FCT$FREE2 U(01,47,01); # UNUSED # 00055 M00S00055.combmct +++| ITEM FCT$ORD U(01,48,12); # *FCT* ORDINAL # 00056 M00S00056.combmct +++| ITEM FCT$ALLOCL U(02,00,12); # ALL OCL LINK FIELDS # 00057 M00S00057.combmct +++| ITEM FCT$OCL U(02,00,04); # FIRST OFF CARTRIDGE LINK # 00058 M00S00058.combmct +++| ITEM FCT$OCL1 U(02,04,04); # SECOND OFF CARTRIDGE LINK # 00059 M00S00059.combmct +++| ITEM FCT$OCL2 U(02,08,04); # THIRD OFF CARTRIDGE LINK # 00060 M00S00060.combmct +++| ITEM FCT$FTST U(02,12,06); # FIRST USABLE STRIPE # 00061 M00S00061.combmct +++| ITEM FCT$SPAU U(02,18,06); # STRIPES IN EACH AU # 00062 M00S00062.combmct +++| ITEM FCT$PRUS U(02,24,05); # PRU'S WRITTEN PER STRIPE # 00063 M00S00063.combmct +++| ITEM FCT$AVOT U(02,29,14); # MAXIMUM AU ON CARTRIDGE # 00064 M00S00064.combmct +++| ITEM FCT$CDP U(02,43,14); # CARTRIDGE DIVISION POINT # 00065 M00S00065.combmct +++| ITEM FCT$OCLF U(02,57,03); # RESERVED ON EACH OCL FIELD # 00066 M00S00066.combmct +++| ITEM FCT$CSNE U(03,00,60); # VSN IN EBCDIC # 00067 M00S00067.combmct +++| ITEM FCT$CSNE1 U(04,00,36); # VSN IN EBCDIC # 00068 M00S00068.combmct +++| ITEM FCT$FREE3 U(04,36,12); # UNUSED # 00069 M00S00069.combmct +++| ITEM FCT$FLAWS U(04,48,12); # FLAW COUNT # 00070 M00S00070.combmct +++| ITEM FCT$STRD U(05,00,30); # NUMBER OF STRIPES READ # 00071 M00S00071.combmct +++| ITEM FCT$STWR U(05,30,30); # NUMBER OF STRIPES WRITTEN # 00072 M00S00072.combmct +++| ITEM FCT$SRDE U(06,00,30); # NUMBER OF SOFT READ ERRORS # 00073 M00S00073.combmct +++| ITEM FCT$SWRE U(06,30,30); # NUMBER OF SOFT WRITE ERRORS # 00074 M00S00074.combmct +++| ITEM FCT$HRDE U(07,00,15); # NUMBER HARD READ ERRORS # 00075 M00S00075.combmct +++| ITEM FCT$STDM U(07,15,15); # NUMBER OF DEMARKED STRIPES # 00076 M00S00076.combmct +++| ITEM FCT$CRLD U(07,30,15); # NUMBER OF CARTRIDGE LOADS # 00077 M00S00077.combmct +++| ITEM FCT$LDER U(07,45,15); # NUMBER OF CARTRIDGE LOAD ERRORS 00078 M00S00078.combmct +++| # 00079 M00S00079.combmct +++| ITEM FCT$CLF U(08,00,60); # AU'S WORDS (8 - 974) # 00080 M00S00080.combmct +++| END 00081 M00S00081.combmct +++| 00082 M00S00082.combmct +++|# 00083 M00S00083.combmct +++|* A SPECIFIC OFF CARTRIDGE LINK FIELD IN *FCT$ALLOCL* CAN BE 00084 M00S00084.combmct +++|* ACCESSED VIA THE *FCT$OCLNK* DEFINITION BELOW. 00085 M00S00085.combmct +++|# 00086 M00S00086.combmct +++| 00087 M00S00087.combmct +++| DEF FCT$OCLNK(N) #B<4*(N)-4,4>FCT$ALLOCL[0] #; 00088 M00S00088.combmct +++| 00089 M00S00089.combmct +++|# 00090 M00S00090.combmct +++|** *FCT* ITEMS CAN BE ACCESSED WITH ORDINAL N USING *FCT$WD * 00091 M00S00091.combmct +++|* AND *FCT$WP* FOR *I* AND *J* RESPECTIVELY. 00092 M00S00092.combmct +++|# 00093 M00S00093.combmct +++| 00094 M00S00094.combmct +++| 00095 M00S00095.combmct +++| # CARTIDGE LINK FIELD GROUP FOR 00096 M00S00096.combmct +++| INITIALIZATION # 00097 M00S00097.combmct +++| 00098 M00S00098.combmct +++| DEF FCT$CLFG (I,J) #B<(J)*30,30> FCT$CLF[(I)]#; 00099 M00S00099.combmct +++| 00100 M00S00100.combmct +++| # FLAGS FOR CARTRIDGE LINK FIELDS 00101 M00S00101.combmct +++| # 00102 M00S00102.combmct +++| DEF FCT$FLGS1 (I,J) #B<(J)*30,07>FCT$CLF[(I)]#; 00103 M00S00103.combmct +++| 00104 M00S00104.combmct +++| # FREE / BUSY FLAG, IF FLAG NOT 00105 M00S00105.combmct +++| SET, AU IS NOT ALLOCATED YET # 00106 M00S00106.combmct +++| 00107 M00S00107.combmct +++| DEF FCT$FBF (I,J) #B<(J)*30,01> FCT$CLF[(I)]#; 00108 M00S00108.combmct +++| 00109 M00S00109.combmct +++| # UNUSED # 00110 M00S00110.combmct +++| 00111 M00S00111.combmct +++| DEF FCT$FREESF (I,J) #B<(J)*30+1,01> FCT$CLF[(I)]#; 00112 M00S00112.combmct +++| 00113 M00S00113.combmct +++| # AU CONFLICT FLAG # 00114 M00S00114.combmct +++| 00115 M00S00115.combmct +++| DEF FCT$AUCF (I,J) #B<(J)*30+2,01> FCT$CLF[(I)]#; 00116 M00S00116.combmct +++| 00117 M00S00117.combmct +++| # FROZEN CHAIN FLAG # 00118 M00S00118.combmct +++| 00119 M00S00119.combmct +++| DEF FCT$FRCF (I,J) #B<(J)*30+3,01> FCT$CLF[(I)]#; 00120 M00S00120.combmct +++| 00121 M00S00121.combmct +++| # START FRAGMENT FLAG # 00122 M00S00122.combmct +++| 00123 M00S00123.combmct +++| DEF FCT$SFF (I,J) #B<(J)*30+4,01> FCT$CLF[(I)]#; 00124 M00S00124.combmct +++| 00125 M00S00125.combmct +++| # FLAWED AU FLAG # 00126 M00S00126.combmct +++| 00127 M00S00127.combmct +++| DEF FCT$FAUF (I,J) #B<(J)*30+5,01> FCT$CLF[(I)]#; 00128 M00S00128.combmct +++| 00129 M00S00129.combmct +++| # CONTINUATION FLAG # 00130 M00S00130.combmct +++| 00131 M00S00131.combmct +++| DEF FCT$CAUF (I,J) #B<(J)*30+6,01> FCT$CLF[(I)]#; 00132 M00S00132.combmct +++| 00133 M00S00133.combmct +++| # IDENTIFIES CARTRIDGE CONTAINING 00134 M00S00134.combmct +++| NEXT VOLUME # 00135 M00S00135.combmct +++| DEF FCT$CLKOCL (I,J) #B<(J)*30+7,02> FCT$CLF[(I)]#; 00136 M00S00136.combmct +++| 00137 M00S00137.combmct +++| # CHAIN CONTROL INDICATES THAT 00138 M00S00138.combmct +++| THIS SET OF AUS IS # 00139 M00S00139.combmct +++| # MIDDLE (0), FIRST (1), 00140 M00S00140.combmct +++| LAST(2), ONLY (3) # 00141 M00S00141.combmct +++| # OF VOLUME OR VOLUMES. # 00142 M00S00142.combmct +++| 00143 M00S00143.combmct +++| DEF FCT$CC (I,J) #B<(J)*30+9,02> FCT$CLF[(I)]#; 00144 M00S00144.combmct +++| 00145 M00S00145.combmct +++| # NO. OF AUS FOLLOWING FIRST 00146 M00S00146.combmct +++| ACCESSED AU # 00147 M00S00147.combmct +++| 00148 M00S00148.combmct +++| DEF FCT$LEN (I,J) #B<(J)*30+11,07> FCT$CLF[(I)]#; 00149 M00S00149.combmct +++| 00150 M00S00150.combmct +++| # ORDINAL OF FIRST AU OF NEXT 00151 M00S00151.combmct +++| VOLUME. # 00152 M00S00152.combmct +++| 00153 M00S00153.combmct +++| DEF FCT$LINK (I,J) #B<(J)*30+18,12> FCT$CLF[(I)]#; 00154 M00S00154.combmct +++| 00155 M00S00155.combmct +++| # *FCT* INDEX INTO A TABLE WORD # 00156 M00S00156.combmct +++| 00157 M00S00157.combmct +++| DEF FCT$WD (N) #((N)/NOCLF)#; 00158 M00S00158.combmct +++| 00159 M00S00159.combmct +++| # CLF WORD POSITION # 00160 M00S00160.combmct +++| 00161 M00S00161.combmct +++| DEF FCT$WP (N) #((N)-(((N)/NOCLF)*NOCLF))#; 00162 M00S00162.combmct +++| 00163 M00S00163.combmct +++| DEF SETFCTX (N) #FWD = (N)/2; 00164 M00S00164.combmct +++| FPS = (N) - 2*FWD; 00165 M00S00165.combmct +++| #; 00166 M00S00166.combmct +++| 00167 M00S00167.combmct +++|# 00168 M00S00168.combmct +++|* AVAILABLE AU TABLE (ALLOCATION SUMMARY TABLE). 00169 M00S00169.combmct +++|# 00170 M00S00170.combmct +++| 00171 M00S00171.combmct +++| 00172 M00S00172.combmct +++| DEF ASTENTW #2#; # NO. OF AST WORDS PER ENTRY # 00173 M00S00173.combmct +++| DEF ASTENTL #624#; # *AST* ENTRY LENGTH # 00174 M00S00174.combmct +++| 00175 M00S00175.combmct +++| 00176 M00S00176.combmct +++| STATUS ASTENSTAT 00177 M00S00177.combmct +++| UNASS$CUB, 00178 M00S00178.combmct +++| UNASS$CART, 00179 M00S00179.combmct +++| ASS$CART; 00180 M00S00180.combmct +++| 00181 M00S00181.combmct +++| 00182 M00S00182.combmct +++| BASED 00183 M00S00183.combmct +++| ARRAY AST [15:15] S(ASTENTW); # *AST* ENTRY DESCRIPTION # 00184 M00S00184.combmct +++| BEGIN 00185 M00S00185.combmct +++| ITEM AST$1ST U(00,00,60); # AST WORD 1 # 00186 M00S00186.combmct +++| ITEM AST$NAME C(00,00,06); # NAME OF *AST* # 00187 M00S00187.combmct +++| ITEM AST$SM C(00,36,01); # STORAGE MODULE ID # 00188 M00S00188.combmct +++| ITEM AST$PCI U(00,00,09); # PRIVATE CARTRIDGE # 00189 M00S00189.combmct +++| ITEM AST$STAT U(00,09,03); # *AST* ENTRY STATUS # 00190 M00S00190.combmct +++| ITEM AST$FCTX U(00,12,12); # *FCT* INDEX # 00191 M00S00191.combmct +++| ITEM AST$GR U(00,12,08); # GROUP # 00192 M00S00192.combmct +++| ITEM AST$GRT U(00,20,04); # CARTRIDGE WITHIN A GROUP # 00193 M00S00193.combmct +++| ITEM AST$FLAGS U(00,24,06); # FLAGS # 00194 M00S00194.combmct +++| ITEM AST$AAF B(00,24,01); # ALLOCATION AUTHORIZED # 00195 M00S00195.combmct +++| ITEM AST$NOCLF B(00,25,01); # NO OFF CARTRIDGE LINK # 00196 M00S00196.combmct +++| ITEM AST$FREE U(00,30,30); # UNUSED # 00197 M00S00197.combmct +++| 00198 M00S00198.combmct +++| ITEM AST$2ND U(01,00,60); # AST WORD 2 # 00199 M00S00199.combmct +++| ITEM AST$AULF U(01,00,12); # TOTAL AUS AVAILABLE LARGE FILES 00200 M00S00200.combmct +++| # 00201 M00S00201.combmct +++| ITEM AST$AUSF U(01,12,12); # TOTAL AUS AVAILABLE SMALL FILES 00202 M00S00202.combmct +++| # 00203 M00S00203.combmct +++| ITEM AST$FLAWS U(01,24,12); # FLAW COUNT # 00204 M00S00204.combmct +++| ITEM AST$FREE1 U(01,36,24); # UNUSED # 00205 M00S00205.combmct +++| END 00206 M00S00206.combmct +++| 00207 M00S00207.combmct +++| 00208 M00S00208.combmct +++|# 00209 M00S00209.combmct +++|* CATALOG PREAMBLE. 00210 M00S00210.combmct +++|# 00211 M00S00211.combmct +++| 00212 M00S00212.combmct +++| DEF PRMFCTL (N) #(PRM$ENTRC[(N)]*FCTENTL)#; # *FCT* LENGTH # 00213 M00S00213.combmct +++| 00214 M00S00214.combmct +++| # *AST* LENGTH # 00215 M00S00215.combmct +++| DEF PRMASTL (N) #(PRM$ENTRC[N]*ASTENTW) #; 00216 M00S00216.combmct +++| 00217 M00S00217.combmct +++| COMMON BMCTCOM; 00218 M00S00218.combmct +++| 00219 M00S00219.combmct +++| BEGIN # BMCTCOM # 00220 M00S00220.combmct +++| # $$ # 00221 M00S00221.combmct +++| ITEM $$BMCT$$ C(20) = "****** COMBMCT *****"; 00222 M00S00222.combmct +++| # $$ # 00223 M00S00223.combmct +++| 00224 M00S00224.combmct +++| ITEM FPS U; # *FCT* POSITION INDEX # 00225 M00S00225.combmct +++| ITEM FWD U; # *FCT* WORD INDEX # 00226 M00S00226.combmct +++| 00227 M00S00227.combmct +++| BASED 00228 M00S00228.combmct +++| ARRAY PREAMBLE [0:MAXSM] S(3); # M860 CATALOG PREAMBLE # 00229 M00S00229.combmct +++| BEGIN 00230 M00S00230.combmct +++| 00231 M00S00231.combmct +++|# 00232 M00S00232.combmct +++|* PREAMBLE HEADER. 00233 M00S00233.combmct +++|# 00234 M00S00234.combmct +++| 00235 M00S00235.combmct +++| ITEM PRM$FAM C(00,00,07); # FAMILY NAME # 00236 M00S00236.combmct +++| ITEM PRM$SUBF U(00,42,06); # SUBFAMILY DESIGNATOR # 00237 M00S00237.combmct +++| ITEM PRM$FREE U(00,48,09); # UNUSED # 00238 M00S00238.combmct +++| ITEM PRM$ID U(00,57,03); # M860-ID # 00239 M00S00239.combmct +++| ITEM PRM$FREE1 U(01,00,60); # UNUSED # 00240 M00S00240.combmct +++| ITEM PRM$FREE1A U(02,00,60); # UNUSED # 00241 M00S00241.combmct +++| 00242 M00S00242.combmct +++|# 00243 M00S00243.combmct +++|* PREAMBLE SUBCATALOG ENTRIES. 00244 M00S00244.combmct +++|# 00245 M00S00245.combmct +++| 00246 M00S00246.combmct +++| ITEM PRM$SCW1 I(00,00,60); # SUBCATALOG ENTRY WORD # 00247 M00S00247.combmct +++| ITEM PRM$SMID U(00,00,06); # SM ID # 00248 M00S00248.combmct +++| ITEM PRM$ENTRC U(00,06,12); # NUMBER OF FCT/AST ENTRIES # 00249 M00S00249.combmct +++| ITEM PRM$FCTLOC U(00,18,15); # PRU NUMBER OF FCT # 00250 M00S00250.combmct +++| ITEM PRM$ASTLOC U(00,33,15); # PRU NUMBER OF AST # 00251 M00S00251.combmct +++| 00252 M00S00252.combmct +++| ITEM PRM$SCW2 I(01,00,60); # SUBCATALOG ENTRY WORD 2 # 00253 M00S00253.combmct +++| ITEM PRM$FREE2 U(01,00,19); # UNUSED # 00254 M00S00254.combmct +++| ITEM PRM$PDATE U(01,19,41); # LAST PURGE OF ORPHAN FILES # 00255 M00S00255.combmct +++| 00256 M00S00256.combmct +++| ITEM PRM$SCW3 U(02,00,60); # SUBCATALOG ENTRY WORD 3 # 00257 M00S00257.combmct +++| ITEM PRM$MXAUS U(02,00,12); # AU FOR SHORT FILES # 00258 M00S00258.combmct +++| ITEM PRM$MXAUL U(02,12,12); # AU FOR LONG FILES # 00259 M00S00259.combmct +++| ITEM PRM$MXAUGR U(02,24,18); # AU IN ONE GROUP # 00260 M00S00260.combmct +++| ITEM PRM$FREE3 U(02,42,18); # UNUSED # 00261 M00S00261.combmct +++| END 00262 M00S00262.combmct +++| 00263 M00S00263.combmct +++| END # BMCTCOM # 00264 M00S00264.combmct +++| 00265 M00S00265.combmct +++| END # COMBMCT # 00266 M00S00266.combmct +++| 00267 M00S00267.combmct +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/combmct.txt · Last modified: (external edit)