<<==============================================================        00005000
                                                                        00010000
                        INCDISC1 - B5                                   00015000
                                                                        00020000
                Disc information include file                           00025000
                                                                        00030000
==============================================================>>        00035000
                                                                        00040000
                                                                        00045000
<< *********************** Disc Label *********************** >>        00050000
                                                                        00055000
DEFINE disc'label'address = 0D#;  << Sector address of disc label >>    00060000
                                                                        00065000
<< Offsets into the disc label >>                                       00070000
                                                                        00075000
EQUATE disc'lab'type'word = %6;      << Type/subtype word           >>  00080000
EQUATE disc'lab'cold'load'id = %7;   << Cold load ID word           >>  00085000
EQUATE disc'lab'gen'index = %7;      << generation index, pv        >>  00090000
EQUATE disc'lab'volume'name = %12;   << Volume name (4 words)       >>  00095000
EQUATE disc'lab'init'date = %16;     << initial date                >>  00100000
EQUATE disc'lab'dirbase = %17;       << Directory base              >>  00105000
EQUATE disc'lab'dirsize =%20;        << Directory size (sectors)    >>  00110000
EQUATE disc'lab'accnt'name = %21;    << account name(4 wds), pv     >>  00115000
EQUATE disc'lab'group'name = %25;    << group name(4 wds), pv       >>  00120000
EQUATE disc'lab'set = %31;           << vol set name(4 wds), pv     >>  00125000
EQUATE disc'lab'dfs'map'ok = 121;    << Flag to indicate free       >>  00130000
                                     << space map is ok or damaged  >>  00135000
EQUATE disc'lab'dt'check'sum = 122;  << DT check sum                >>  00140000
EQUATE disc'lab'dirty'dt'flag = 123; << DT dirty flag               >>  00145000
EQUATE disc'lab'dt'high = 124;       << High order DT address       >>  00150000
EQUATE disc'lab'dt'low = 125;        << Low order DT address        >>  00155000
EQUATE disc'lab'map'high = 126;      << High order free space map   >>  00160000
                                     << address                     >>  00165000
EQUATE disc'lab'map'low = 127;       << low order free space map    >>  00170000
                                     << address                     >>  00175000
                                                                        00180000
                                                                        00185000
<< Fields in disc'lab'type'word >>                                      00190000
                                                                        00195000
DEFINE disc'lab'type = (6:6)#;      << Disc type         >>             00200000
DEFINE disc'lab'subtype = (12:4)#;  << Disc subtype      >>             00205000
DEFINE disc'lab'mv = (1:1)#;        << master volume, pv >>             00210000
DEFINE disc'lab'sc = (0:1)#;        << scratch volume    >>             00215000
DEFINE disc'lab'sr = (2:1)#;        << serial volume     >>             00220000
                                                                        00225000
                                                                        00230000
<< Disc type values >>                                                  00235000
                                                                        00240000
EQUATE mh'disc'type = 0;       << Moving head disc type >>              00245000
EQUATE fh'disc'type = 1;       << Fixed head disc type  >>              00250000
EQUATE floppy'disc'type = 2;   << Floppy disc type      >>              00255000
EQUATE cs'80'type = 3;         << Command set '80 type  >>              00260000
                                                                        00265000
                                                                        00270000
<< Fixed head disc subtype values >>                                    00275000
                                                                        00280000
EQUATE num'fh'disc'subtypes = 3;  << Number of FH disc subtypes >>      00285000
                                                                        00290000
EQUATE st'2660'2m = 1;   << 2660 - 2 megabyte >>                        00295000
EQUATE st'2660'4m = 2;   << 2660 - 4 megabyte >>                        00300000
                                                                        00305000
                                                                        00310000
<< Moving head disc subtype values >>                                   00315000
                                                                        00320000
EQUATE num'mh'disc'subtypes = 13;  << Number of MH disc subtypes >>     00325000
                                                                        00330000
EQUATE up'7900 = 0;   << 7900 - upper platter     >>                    00335000
EQUATE lp'7900 = 1;   << 7900 - lower platter     >>                    00340000
EQUATE st'7900 = 2;   << 7900 - both platters     >>                    00345000
EQUATE st'2888 = 3;   << 2888                     >>                    00350000
EQUATE rp'7905 = 4;   << 7905 - removable platter >>                    00355000
EQUATE fp'7905 = 5;   << 7905 - fixed platter     >>                    00360000
EQUATE cm'7905 = 6;   << 7905 - cylinder mode     >>                    00365000
EQUATE sd'7905 = 7;   << 7905 - system disc mode  >>                    00370000
EQUATE st'7920 = 8;   << 7920                     >>                    00375000
EQUATE st'7925 = 9;   << 7925                     >>                    00380000
EQUATE rp'7906 = 10;  << 7906 - removable platter >>                    00385000
EQUATE fp'7906 = 11;  << 7906 - fixed platter     >>                    00390000
EQUATE st'7906 = 12;  << 7906 - both platters     >>                    00395000
                                                                        00400000
                                                                        00405000
<< Floppy disc subtype values >>                                        00410000
                                                                        00415000
EQUATE num'floppy'disc'subtypes = 1;  << Number of floppy subtypes >>   00420000
                                                                        00425000
EQUATE floppy'disc'subtype = 0;       << Floppy disc subtype >>         00430000
                                                                        00435000
                                                                        00440000
<< Command set '80 subtype values >>                                    00445000
                                                                        00450000
EQUATE num'cs'80'subtypes = 7;        << Number of CS'80 subtypes >>    00455000
                                                                        00460000
EQUATE st'9110 = 0; << HP 9110 (Linus) >>                               00465000
EQUATE st'7911 = 1; << HP 7911         >>                               00470000
EQUATE st'7912 = 2; << HP 7912         >>                               00475000
EQUATE st'9144 = 3; << HP 9144(Buffalo)>>                      <<*8115>>00480000
EQUATE st'7914 = 4; << HP 7914         >>                               00485000
EQUATE st'7945 = 5; << HP 7945 (Falstaff) >>                   <<*8838>>00490000
EQUATE st'7935 = 8; << HP 7935         >>                               00495000
                                                                        00500000
                                                                        00505000
<< ***************** Defective Tracks Table ***************** >>        00510000
                                                                        00515000
DEFINE dtt'disc'address = 1D#;                                          00520000
                                                                        00525000
<< Offsets into DTT >>                                                  00530000
                                                                        00535000
EQUATE dtt'number'of'entries = %0;     << Number of entries in DTT >>   00540000
EQUATE dtt'first'entry = %1;           << First entry in DTT       >>   00545000
EQUATE dtt'next'alt'track = %176;      << Next alternate track     >>   00550000
EQUATE dtt'logical'pack'size = %177;   << Logical pack size        >>   00555000
                                                                        00560000
                                                                        00565000
<< Info about entries in DTT >>                                         00570000
                                                                        00575000
EQUATE dtt'max'number'entries = 120;  << Max number of entries in DTT >>00580000
                                                                        00585000
DEFINE dtt'track'number = (0:14)#;    << Track number field in entry  >>00590000
DEFINE dtt'track'code = (14:2)#;      << Track code field in entry    >>00595000
                                                                        00600000
                                                                        00605000
<< Values of dtt'track'code >>                                          00610000
                                                                        00615000
EQUATE dtt'suspect = 0;      << Suspect track           >>              00620000
EQUATE dtt'suspect'alt = 1;  << suspect alternate track >>              00625000
EQUATE dtt'deleted = 2;      << Deleted track           >>              00630000
EQUATE dtt'reassigned = 3;   << Reassign track          >>              00635000
                                                                        00640000
                                                                        00645000
<< ***************** Defective Sectors Table ***************** >>       00650000
                                                                        00655000
DEFINE dsct'disc'address = 1D#;                                         00660000
                                                                        00665000
EQUATE dsct'number'of'entries = %0;    << Number of entries in dsct >>  00670000
EQUATE dsct'first'entry'index = %1;    << Index of first entry      >>  00675000
EQUATE dsct'offset'to'first'entry = %6;<< Offset to first entry,    >>  00680000
                                       << value of above            >>  00685000
EQUATE dsct'entry'size = %2;           << Index of word containing  >>  00690000
                                       << entry size.               >>  00695000
                                                                        00700000
EQUATE dsct'size'of'entry = 2;         << Size of entry in words    >>  00705000
EQUATE dsct'max'number'of'entries = 3; << Index of word containing  >>  00710000
                                       << max number of entries     >>  00715000
EQUATE dsct'max'entries = 61;          << Value of above            >>  00720000
                                                                        00725000
                                                                        00730000
<<==============================================================        00735000
                                                                        00740000
                        End of INCDISC1                                 00745000
                                                                        00750000
==============================================================>>        00755000
