<<==============================================================        00010000
                                                                        00012000
                        INCDISC1 - B5                                   00014000
                                                                        00016000
                Disc information include file                           00018000
                                                                        00020000
==============================================================>>        00022000
                                                                        00024000
                                                                        00026000
<< *********************** Disc Label *********************** >>        00028000
                                                                        00030000
DEFINE disc'label'address = 0D#;  << Sector address of disc label >>    00032000
                                                                        00034000
<< Offsets into the disc label >>                                       00036000
                                                                        00038000
EQUATE disc'lab'type'word = %6;      << Type/subtype word           >>  00040000
EQUATE disc'lab'cold'load'id = %7;   << Cold load ID word           >>  00042000
EQUATE disc'lab'gen'index = %7;      << generation index, pv        >>  00044000
EQUATE disc'lab'volume'name = %12;   << Volume name (4 words)       >>  00046000
EQUATE disc'lab'init'date = %16;     << initial date                >>  00048000
EQUATE disc'lab'dirbase = %17;       << Directory base              >>  00050000
EQUATE disc'lab'dirsize =%20;        << Directory size (sectors)    >>  00052000
EQUATE disc'lab'accnt'name = %21;    << account name(4 wds), pv     >>  00054000
EQUATE disc'lab'group'name = %25;    << group name(4 wds), pv       >>  00056000
EQUATE disc'lab'set = %31;           << vol set name(4 wds), pv     >>  00058000
EQUATE disc'lab'dfs'map'ok = 121;    << Flag to indicate free       >>  00060000
                                     << space map is ok or damaged  >>  00062000
EQUATE disc'lab'dt'check'sum = 122;  << DT check sum                >>  00064000
EQUATE disc'lab'dirty'dt'flag = 123; << DT dirty flag               >>  00066000
EQUATE disc'lab'dt'high = 124;       << High order DT address       >>  00068000
EQUATE disc'lab'dt'low = 125;        << Low order DT address        >>  00070000
EQUATE disc'lab'map'high = 126;      << High order free space map   >>  00072000
                                     << address                     >>  00074000
EQUATE disc'lab'map'low = 127;       << low order free space map    >>  00076000
                                     << address                     >>  00078000
                                                                        00080000
                                                                        00082000
<< Fields in disc'lab'type'word >>                                      00084000
                                                                        00086000
DEFINE disc'lab'type = (6:6)#;      << Disc type         >>             00088000
DEFINE disc'lab'subtype = (12:4)#;  << Disc subtype      >>             00090000
DEFINE disc'lab'mv = (1:1)#;        << master volume, pv >>             00092000
DEFINE disc'lab'sc = (0:1)#;        << scratch volume    >>             00094000
DEFINE disc'lab'sr = (2:1)#;        << serial volume     >>             00096000
                                                                        00098000
                                                                        00100000
<< Disc type values >>                                                  00102000
                                                                        00104000
EQUATE mh'disc'type = 0;       << Moving head disc type >>              00106000
EQUATE fh'disc'type = 1;       << Fixed head disc type  >>              00108000
EQUATE floppy'disc'type = 2;   << Floppy disc type      >>              00110000
EQUATE cs'80'type = 3;         << Command set '80 type  >>              00112000
                                                                        00114000
                                                                        00116000
<< Fixed head disc subtype values >>                                    00118000
                                                                        00120000
EQUATE num'fh'disc'subtypes = 3;  << Number of FH disc subtypes >>      00122000
                                                                        00124000
EQUATE st'2660'2m = 1;   << 2660 - 2 megabyte >>                        00126000
EQUATE st'2660'4m = 2;   << 2660 - 4 megabyte >>                        00128000
                                                                        00130000
                                                                        00132000
<< Moving head disc subtype values >>                                   00134000
                                                                        00136000
EQUATE num'mh'disc'subtypes = 13;  << Number of MH disc subtypes >>     00138000
                                                                        00140000
EQUATE up'7900 = 0;   << 7900 - upper platter     >>                    00142000
EQUATE lp'7900 = 1;   << 7900 - lower platter     >>                    00144000
EQUATE st'7900 = 2;   << 7900 - both platters     >>                    00146000
EQUATE st'2888 = 3;   << 2888                     >>                    00148000
EQUATE rp'7905 = 4;   << 7905 - removable platter >>                    00150000
EQUATE fp'7905 = 5;   << 7905 - fixed platter     >>                    00152000
EQUATE cm'7905 = 6;   << 7905 - cylinder mode     >>                    00154000
EQUATE sd'7905 = 7;   << 7905 - system disc mode  >>                    00156000
EQUATE st'7920 = 8;   << 7920                     >>                    00158000
EQUATE st'7925 = 9;   << 7925                     >>                    00160000
EQUATE rp'7906 = 10;  << 7906 - removable platter >>                    00162000
EQUATE fp'7906 = 11;  << 7906 - fixed platter     >>                    00164000
EQUATE st'7906 = 12;  << 7906 - both platters     >>                    00166000
                                                                        00168000
                                                                        00170000
<< Floppy disc subtype values >>                                        00172000
                                                                        00174000
EQUATE num'floppy'disc'subtypes = 1;  << Number of floppy subtypes >>   00176000
                                                                        00178000
EQUATE floppy'disc'subtype = 0;       << Floppy disc subtype >>         00180000
                                                                        00182000
                                                                        00184000
<< Command set '80 subtype values >>                                    00186000
                                                                        00188000
EQUATE num'cs'80'subtypes = 4;        << Number of CS'80 subtypes >>    00190000
                                                                        00192000
EQUATE st'9110 = 0; << HP 9110 (Linus) >>                               00194000
EQUATE st'7911 = 1; << HP 7911         >>                               00196000
EQUATE st'7912 = 2; << HP 7912         >>                               00198000
EQUATE st'7935 = 8; << HP 7935         >>                               00200000
                                                                        00202000
                                                                        00204000
<< ***************** Defective Tracks Table ***************** >>        00206000
                                                                        00208000
DEFINE dtt'disc'address = 1D#;                                          00210000
                                                                        00212000
<< Offsets into DTT >>                                                  00214000
                                                                        00216000
EQUATE dtt'number'of'entries = %0;     << Number of entries in DTT >>   00218000
EQUATE dtt'first'entry = %1;           << First entry in DTT       >>   00220000
EQUATE dtt'next'alt'track = %176;      << Next alternate track     >>   00222000
EQUATE dtt'logical'pack'size = %177;   << Logical pack size        >>   00224000
                                                                        00226000
                                                                        00228000
<< Info about entries in DTT >>                                         00230000
                                                                        00232000
EQUATE dtt'max'number'entries = 120;  << Max number of entries in DTT >>00234000
                                                                        00236000
DEFINE dtt'track'number = (0:14)#;    << Track number field in entry  >>00238000
DEFINE dtt'track'code = (14:2)#;      << Track code field in entry    >>00240000
                                                                        00242000
                                                                        00244000
<< Values of dtt'track'code >>                                          00246000
                                                                        00248000
EQUATE dtt'suspect = 0;      << Suspect track           >>              00250000
EQUATE dtt'suspect'alt = 1;  << suspect alternate track >>              00252000
EQUATE dtt'deleted = 2;      << Deleted track           >>              00254000
EQUATE dtt'reassigned = 3;   << Reassign track          >>              00256000
                                                                        00258000
                                                                        00260000
<< ***************** Defective Sectors Table ***************** >>       00262000
                                                                        00264000
DEFINE dsct'disc'address = 1D#;                                         00266000
                                                                        00268000
EQUATE dsct'number'of'entries = %0;    << Number of entries in dsct >>  00270000
EQUATE dsct'first'entry'index = %1;    << Index of first entry      >>  00272000
EQUATE dsct'offset'to'first'entry = %6;<< Offset to first entry,    >>  00274000
                                       << value of above            >>  00276000
EQUATE dsct'entry'size = %2;           << Index of word containing  >>  00278000
                                       << entry size.               >>  00280000
                                                                        00282000
EQUATE dsct'size'of'entry = 2;         << Size of entry in words    >>  00284000
EQUATE dsct'max'number'of'entries = 3; << Index of word containing  >>  00286000
                                       << max number of entries     >>  00288000
EQUATE dsct'max'entries = 61;          << Value of above            >>  00290000
                                                                        00292000
                                                                        00294000
<<==============================================================        00296000
                                                                        00298000
                        End of INCDISC1                                 00300000
                                                                        00302000
==============================================================>>        00304000
