cdc:nos2.source:opl.opl871:common:comblbl
Common COMBLBL
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comblbl +++| 00002 M00S00002.comblbl +++|# COMBLBL - CARTRIDGE LABEL DESCRIPTION. # 00003 M00S00003.comblbl +++| CONTROL NOLIST; 00004 M00S00004.comblbl +++| CONTROL IFEQ LISTCON,1; 00005 M00S00005.comblbl +++| CONTROL LIST; 00006 M00S00006.comblbl +++| CONTROL FI; 00007 M00S00007.comblbl +++| BEGIN # COMBLBL # 00008 M00S00008.comblbl +++| 00009 M00S00009.comblbl +++|# 00010 M00S00010.comblbl +++|*** COMBLBL - CARTRIDGE LABEL DESCRIPTION. 00011 M00S00011.comblbl +++|* 00012 M00S00012.comblbl +++|* COMBLBL CONTAINS THE CARTRIDGE LABEL FIELDS DESCRIPTION. IT 00013 M00S00013.comblbl +++|* SETS UP A BASED ARRAY DESCRIBING ALL THE FIELDS IN A 00014 M00S00014.comblbl +++|* SCRATCH LABEL AND A FAMILY LABEL. THE ENTIRE LABEL IS 00015 M00S00015.comblbl +++|* IS RETURNED TO SSEXEC (*TLABLEN* WORDS) WHEN REQUESTED, BUT 00016 M00S00016.comblbl +++|* SSEXEC RETURNS ONLY A PORTION OF THIS (*LABLEN* WORDS) TO A 00017 M00S00017.comblbl +++|* UTILITY. 00018 M00S00018.comblbl +++|# 00019 M00S00019.comblbl +++| 00020 M00S00020.comblbl +++| 00021 M00S00021.comblbl +++| DEF LABLEN #22#; # LENGTH OF CARTRIDGE LABEL # 00022 M00S00022.comblbl +++| DEF LABLENB #165#; # 8 - BIT BYTE LABEL LENGHT # 00023 M00S00023.comblbl +++| 00024 M00S00024.comblbl +++| COMMON BLBLCOM; 00025 M00S00025.comblbl +++| 00026 M00S00026.comblbl +++| BEGIN # BLBLCOM # 00027 M00S00027.comblbl +++| 00028 M00S00028.comblbl +++| BASED 00029 M00S00029.comblbl +++| ARRAY LABEL$CART [0:0] P(LABLEN); 00030 M00S00030.comblbl +++| BEGIN 00031 M00S00031.comblbl +++| ITEM LAB$ALL C(00,00,220); # TOTAL LABEL # 00032 M00S00032.comblbl +++| ITEM LAB$W1 U(00,00,60); # LABEL WORD 1 DESCRIPTION # 00033 M00S00033.comblbl +++| ITEM LAB$CSN U(00,00,60); # FIRST 7.5 BYTES OF CSN # 00034 M00S00034.comblbl +++| ITEM LAB$CSNA U(00,00,32); # FIRST 4 BYTES OF CSN # 00035 M00S00035.comblbl +++| ITEM LAB$CSNB U(00,32,28); # NEXT 3.5 BYTES OF CSN # 00036 M00S00036.comblbl +++| ITEM LAB$W2 U(01,00,60); # LABEL WORD 2 DESCRIPTION # 00037 M00S00037.comblbl +++| ITEM LAB$CSN1 U(01,00,36); # NEXT 4.5 BYTES OF CSN # 00038 M00S00038.comblbl +++| ITEM LAB$CSN1A U(01,00,20); # NEXT 2.5 BYTES OF CSN # 00039 M00S00039.comblbl +++| ITEM LAB$CSN1B U(01,20,16); # LAST 2 BYTES OF CSN # 00040 M00S00040.comblbl +++| ITEM LAB$CLF U(01,36,08); # CARTRIDGE LABEL FORMAT # 00041 M00S00041.comblbl +++| ITEM LAB$CARTTP U(01,44,08); # CARTRIDGE TYPE # 00042 M00S00042.comblbl +++| ITEM LAB$RCORD U(01,52,08); # BYTE RECORDING DENSITY # 00043 M00S00043.comblbl +++| ITEM LAB$W3 U(02,00,60); # LABEL WORD 3 DESCRIPTION # 00044 M00S00044.comblbl +++| ITEM LAB$RCORD1 U(02,00,08); # STRIPE RECORDING DENSILY # 00045 M00S00045.comblbl +++| ITEM LAB$SM$ID U(02,08,32); # STORAGE MODULE ID NUMBER # 00046 M00S00046.comblbl +++| ITEM LAB$Y U(02,40,08); # CELL ADDRESS Y COORDINATE # 00047 M00S00047.comblbl +++| ITEM LAB$Z U(02,48,08); # CELL ADDRESS Z COORDINATE # 00048 M00S00048.comblbl +++| ITEM LAB$HOSTID U(02,56,04); # HOST ID - NOT USED BY CDC # 00049 M00S00049.comblbl +++| ITEM LAB$W4 U(03,00,60); # LABEL WORD 4 DESCRIPTION # 00050 M00S00050.comblbl +++| ITEM LAB$HASTID U(03,00,44); # HOST ID - NOT USED BY CDC # 00051 M00S00051.comblbl +++| ITEM LAB$DE$DT U(03,44,16); # DATE/TIME - NOT USED # 00052 M00S00052.comblbl +++| ITEM LAB$W5 U(04,00,60); # LABEL WORD 5 DESCRIPTION # 00053 M00S00053.comblbl +++| ITEM LAB$DE$DT1 U(04,00,32); # DATE/TIME - NOT USED # 00054 M00S00054.comblbl +++| ITEM LAB$LU$DT U(04,32,28); # DATE/TIME - NOT USED # 00055 M00S00055.comblbl +++| ITEM LAB$W6 U(05,00,60); # LABEL WORD 6 DESCRIPTION # 00056 M00S00056.comblbl +++| ITEM LAB$LU$DT1 U(05,00,20); # DATE/TIME - NOT USED # 00057 M00S00057.comblbl +++| ITEM LAB$STRD U(05,20,32); # STRIPES READ # 00058 M00S00058.comblbl +++| ITEM LAB$STWR U(05,52,08); # STRIPES WRITTEN # 00059 M00S00059.comblbl +++| ITEM LAB$W7 U(06,00,60); # LABEL WORD 7 DESCRIPTION # 00060 M00S00060.comblbl +++| ITEM LAB$STWR1 U(06,00,24); # STRIPES WRITTEN # 00061 M00S00061.comblbl +++| ITEM LAB$SRDE U(06,24,32); # SOFT READ ERRORS # 00062 M00S00062.comblbl +++| ITEM LAB$SWRE U(06,54,04); # SOFT WRITE ERRORS # 00063 M00S00063.comblbl +++| ITEM LAB$W8 U(07,00,60); # LABEL WORD 8 DESCRIPTION # 00064 M00S00064.comblbl +++| ITEM LAB$SWRE1 U(07,00,28); # SOFT WRITE ERRORS # 00065 M00S00065.comblbl +++| ITEM LAB$HRDE U(07,28,16); # HARD READ ERRORS # 00066 M00S00066.comblbl +++| ITEM LAB$STDM U(07,44,16); # STRIPES DEMARKED # 00067 M00S00067.comblbl +++| ITEM LAB$W9 U(08,00,60); # LABEL WORD 9 DESCRIPTION # 00068 M00S00068.comblbl +++| ITEM LAB$CRLD U(08,00,16); # CARTRIDGE LOADS # 00069 M00S00069.comblbl +++| ITEM LAB$LDER U(08,16,16); # LOAD ERRORS # 00070 M00S00070.comblbl +++| ITEM LAB$RES1 U(08,32,28); # RESERVED # 00071 M00S00071.comblbl +++| ITEM LAB$RES2 U(09,00,60); # RESERVED # 00072 M00S00072.comblbl +++| ITEM LAB$W19 U(18,00,60); # LABEL WORD 19 DESCRIPTION # 00073 M00S00073.comblbl +++| ITEM LAB$CSNT C(18,00,10); # TOTAL CSN # 00074 M00S00074.comblbl +++| ITEM LAB$CCOD C(18,00,02); # CARTRIDGE IDENTIFIER LETTER # 00075 M00S00075.comblbl +++| ITEM LAB$CSND C(18,12,08); # CARTRIDGE SERIAL NUMBER # 00076 M00S00076.comblbl +++| ITEM LAB$W20 U(19,00,60); # LABEL WORD 20 DESCRIPTION # 00077 M00S00077.comblbl +++| ITEM LAB$RES3 U(19,00,18); # RESERVED # 00078 M00S00078.comblbl +++| ITEM LAB$FMLY C(19,18,07); # FAMILY NAME # 00079 M00S00079.comblbl +++| ITEM LAB$W21 U(20,00,60); # LABEL WORD 21 DESCRIPTION # 00080 M00S00080.comblbl +++| ITEM LAB$SF U(20,00,03); # SUB-FAMILY # 00081 M00S00081.comblbl +++| ITEM LAB$RES4 U(20,03,03); # RESERVED # 00082 M00S00082.comblbl +++| ITEM LAB$ASBERR U(20,06,12); # ERROR CODE FOR SSDEBUG # 00083 M00S00083.comblbl +++| ITEM LAB$SMID C(20,18,01); # STORAGE MODULE ID # 00084 M00S00084.comblbl +++| ITEM LAB$DTTM U(20,24,36); # CARTRIDGE DATE/TIME # 00085 M00S00085.comblbl +++| 00086 M00S00086.comblbl +++| END 00087 M00S00087.comblbl +++| 00088 M00S00088.comblbl +++| ARRAY OSVERSION [0:0] S(2); # *OS* VERSION # 00089 M00S00089.comblbl +++| BEGIN 00090 M00S00090.comblbl +++| ITEM OSVERSWRD1 U(00,00,60); # WORD ONE OF VERSION # 00091 M00S00091.comblbl +++| ITEM OSVERSWRD2 U(01,00,60); # WORD TWO OF VERSION # 00092 M00S00092.comblbl +++| END 00093 M00S00093.comblbl +++| 00094 M00S00094.comblbl +++| END # BLBLCOM # 00095 M00S00095.comblbl +++| 00096 M00S00096.comblbl +++| END # COMBLBL # 00097 M00S00097.comblbl +++| 00098 M00S00098.comblbl +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comblbl.txt · Last modified: by 127.0.0.1