Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comblbl +++|
00002 M01S00002.comblbl +++|# COMBLBL - CARTRIDGE LABEL DESCRIPTION. #
00003 M01S00003.comblbl +++| CONTROL NOLIST;
00004 M01S00004.comblbl +++| CONTROL IFEQ LISTCON,1;
00005 M01S00005.comblbl +++| CONTROL LIST;
00006 M01S00006.comblbl +++| CONTROL FI;
00007 M01S00007.comblbl +++| BEGIN # COMBLBL #
00008 M01S00008.comblbl +++|
00009 M01S00009.comblbl +++|#
00010 M01S00010.comblbl +++|*** COMBLBL - CARTRIDGE LABEL DESCRIPTION.
00011 M01S00011.comblbl +++|*
00012 M01S00012.comblbl +++|* COMBLBL CONTAINS THE CARTRIDGE LABEL FIELDS DESCRIPTION. IT
00013 M01S00013.comblbl +++|* SETS UP A BASED ARRAY DESCRIBING ALL THE FIELDS IN A
00014 M01S00014.comblbl +++|* SCRATCH LABEL AND A FAMILY LABEL. THE ENTIRE LABEL IS
00015 M01S00015.comblbl +++|* IS RETURNED TO SSEXEC (*TLABLEN* WORDS) WHEN REQUESTED, BUT
00016 M01S00016.comblbl +++|* SSEXEC RETURNS ONLY A PORTION OF THIS (*LABLEN* WORDS) TO A
00017 M01S00017.comblbl +++|* UTILITY.
00018 M01S00018.comblbl +++|#
00019 M01S00019.comblbl +++|
00020 M01S00020.comblbl +++|
00021 M01S00021.comblbl +++| DEF LABLEN #22#; # LENGTH OF CARTRIDGE LABEL #
00022 M01S00022.comblbl +++| DEF LABLENB #165#; # 8 - BIT BYTE LABEL LENGHT #
00023 M01S00023.comblbl +++|
00024 M01S00024.comblbl +++| COMMON BLBLCOM;
00025 M01S00025.comblbl +++|
00026 M01S00026.comblbl +++| BEGIN # BLBLCOM #
00027 M01S00027.comblbl +++|
00028 M01S00028.comblbl +++| BASED
00029 M01S00029.comblbl +++| ARRAY LABEL$CART [0:0] P(LABLEN);
00030 M01S00030.comblbl +++| BEGIN
00031 M01S00031.comblbl +++| ITEM LAB$ALL C(00,00,220); # TOTAL LABEL #
00032 M01S00032.comblbl +++| ITEM LAB$W1 U(00,00,60); # LABEL WORD 1 DESCRIPTION #
00033 M01S00033.comblbl +++| ITEM LAB$CSN U(00,00,60); # FIRST 7.5 BYTES OF CSN #
00034 M01S00034.comblbl +++| ITEM LAB$CSNA U(00,00,32); # FIRST 4 BYTES OF CSN #
00035 M01S00035.comblbl +++| ITEM LAB$CSNB U(00,32,28); # NEXT 3.5 BYTES OF CSN #
00036 M01S00036.comblbl +++| ITEM LAB$W2 U(01,00,60); # LABEL WORD 2 DESCRIPTION #
00037 M01S00037.comblbl +++| ITEM LAB$CSN1 U(01,00,36); # NEXT 4.5 BYTES OF CSN #
00038 M01S00038.comblbl +++| ITEM LAB$CSN1A U(01,00,20); # NEXT 2.5 BYTES OF CSN #
00039 M01S00039.comblbl +++| ITEM LAB$CSN1B U(01,20,16); # LAST 2 BYTES OF CSN #
00040 M01S00040.comblbl +++| ITEM LAB$CLF U(01,36,08); # CARTRIDGE LABEL FORMAT #
00041 M01S00041.comblbl +++| ITEM LAB$CARTTP U(01,44,08); # CARTRIDGE TYPE #
00042 M01S00042.comblbl +++| ITEM LAB$RCORD U(01,52,08); # BYTE RECORDING DENSITY #
00043 M01S00043.comblbl +++| ITEM LAB$W3 U(02,00,60); # LABEL WORD 3 DESCRIPTION #
00044 M01S00044.comblbl +++| ITEM LAB$RCORD1 U(02,00,08); # STRIPE RECORDING DENSILY #
00045 M01S00045.comblbl +++| ITEM LAB$SM$ID U(02,08,32); # STORAGE MODULE ID NUMBER #
00046 M01S00046.comblbl +++| ITEM LAB$Y U(02,40,08); # CELL ADDRESS Y COORDINATE #
00047 M01S00047.comblbl +++| ITEM LAB$Z U(02,48,08); # CELL ADDRESS Z COORDINATE #
00048 M01S00048.comblbl +++| ITEM LAB$HOSTID U(02,56,04); # HOST ID - NOT USED BY CDC #
00049 M01S00049.comblbl +++| ITEM LAB$W4 U(03,00,60); # LABEL WORD 4 DESCRIPTION #
00050 M01S00050.comblbl +++| ITEM LAB$HASTID U(03,00,44); # HOST ID - NOT USED BY CDC #
00051 M01S00051.comblbl +++| ITEM LAB$DE$DT U(03,44,16); # DATE/TIME - NOT USED #
00052 M01S00052.comblbl +++| ITEM LAB$W5 U(04,00,60); # LABEL WORD 5 DESCRIPTION #
00053 M01S00053.comblbl +++| ITEM LAB$DE$DT1 U(04,00,32); # DATE/TIME - NOT USED #
00054 M01S00054.comblbl +++| ITEM LAB$LU$DT U(04,32,28); # DATE/TIME - NOT USED #
00055 M01S00055.comblbl +++| ITEM LAB$W6 U(05,00,60); # LABEL WORD 6 DESCRIPTION #
00056 M01S00056.comblbl +++| ITEM LAB$LU$DT1 U(05,00,20); # DATE/TIME - NOT USED #
00057 M01S00057.comblbl +++| ITEM LAB$STRD U(05,20,32); # STRIPES READ #
00058 M01S00058.comblbl +++| ITEM LAB$STWR U(05,52,08); # STRIPES WRITTEN #
00059 M01S00059.comblbl +++| ITEM LAB$W7 U(06,00,60); # LABEL WORD 7 DESCRIPTION #
00060 M01S00060.comblbl +++| ITEM LAB$STWR1 U(06,00,24); # STRIPES WRITTEN #
00061 M01S00061.comblbl +++| ITEM LAB$SRDE U(06,24,32); # SOFT READ ERRORS #
00062 M01S00062.comblbl +++| ITEM LAB$SWRE U(06,54,04); # SOFT WRITE ERRORS #
00063 M01S00063.comblbl +++| ITEM LAB$W8 U(07,00,60); # LABEL WORD 8 DESCRIPTION #
00064 M01S00064.comblbl +++| ITEM LAB$SWRE1 U(07,00,28); # SOFT WRITE ERRORS #
00065 M01S00065.comblbl +++| ITEM LAB$HRDE U(07,28,16); # HARD READ ERRORS #
00066 M01S00066.comblbl +++| ITEM LAB$STDM U(07,44,16); # STRIPES DEMARKED #
00067 M01S00067.comblbl +++| ITEM LAB$W9 U(08,00,60); # LABEL WORD 9 DESCRIPTION #
00068 M01S00068.comblbl +++| ITEM LAB$CRLD U(08,00,16); # CARTRIDGE LOADS #
00069 M01S00069.comblbl +++| ITEM LAB$LDER U(08,16,16); # LOAD ERRORS #
00070 M01S00070.comblbl +++| ITEM LAB$RES1 U(08,32,28); # RESERVED #
00071 M01S00071.comblbl +++| ITEM LAB$RES2 U(09,00,60); # RESERVED #
00072 M01S00072.comblbl +++| ITEM LAB$W19 U(18,00,60); # LABEL WORD 19 DESCRIPTION #
00073 M01S00073.comblbl +++| ITEM LAB$CSNT C(18,00,10); # TOTAL CSN #
00074 M01S00074.comblbl +++| ITEM LAB$CCOD C(18,00,02); # CARTRIDGE IDENTIFIER LETTER #
00075 M01S00075.comblbl +++| ITEM LAB$CSND C(18,12,08); # CARTRIDGE SERIAL NUMBER #
00076 M01S00076.comblbl +++| ITEM LAB$W20 U(19,00,60); # LABEL WORD 20 DESCRIPTION #
00077 M01S00077.comblbl +++| ITEM LAB$RES3 U(19,00,18); # RESERVED #
00078 M01S00078.comblbl +++| ITEM LAB$FMLY C(19,18,07); # FAMILY NAME #
00079 M01S00079.comblbl +++| ITEM LAB$W21 U(20,00,60); # LABEL WORD 21 DESCRIPTION #
00080 M01S00080.comblbl +++| ITEM LAB$SF U(20,00,03); # SUB-FAMILY #
00081 M01S00081.comblbl +++| ITEM LAB$RES4 U(20,03,03); # RESERVED #
00082 M01S00082.comblbl +++| ITEM LAB$ASBERR U(20,06,12); # ERROR CODE FOR SSDEBUG #
00083 M01S00083.comblbl +++| ITEM LAB$SMID C(20,18,01); # STORAGE MODULE ID #
00084 M01S00084.comblbl +++| ITEM LAB$DTTM U(20,24,36); # CARTRIDGE DATE/TIME #
00085 M01S00085.comblbl +++|
00086 M01S00086.comblbl +++| END
00087 M01S00087.comblbl +++|
00088 M01S00088.comblbl +++| ARRAY OSVERSION [0:0] S(2); # *OS* VERSION #
00089 M01S00089.comblbl +++| BEGIN
00090 M01S00090.comblbl +++| ITEM OSVERSWRD1 U(00,00,60); # WORD ONE OF VERSION #
00091 M01S00091.comblbl +++| ITEM OSVERSWRD2 U(01,00,60); # WORD TWO OF VERSION #
00092 M01S00092.comblbl +++| END
00093 M01S00093.comblbl +++|
00094 M01S00094.comblbl +++| END # BLBLCOM #
00095 M01S00095.comblbl +++|
00096 M01S00096.comblbl +++| END # COMBLBL #
00097 M01S00097.comblbl +++|
00098 M01S00098.comblbl +++| CONTROL LIST;