<<==============================================================        00010000
                                                                        00012000
                        INCDISC2 - B6                                   00014000
                                                                        00016000
              Disc information arrays include file                      00018000
                                                                        00020000
==============================================================>>        00022000
                                                                        00024000
                                                                        00026000
<< If compiled with X7 ON then the arrays are allocated PB relative,    00028000
   (for use in a procedure), if X7 is OFF then the arrays are           00030000
   allocated DB relative (for use as a global).                     >>  00032000
                                                                        00034000
                                                                        00036000
$IF X7=ON  << DEFINE ARRAYS TO BE PB RELATIVE >>                        00038000
   DEFINE loc = =PB#;                                                   00040000
$IF X7=OFF << DEFINE ARRAYS TO BE DB RELATIVE >>                        00042000
   DEFINE loc = #;                                                      00044000
$IF                                                                     00046000
                                                                        00048000
                                                                        00050000
<< Moving head disc info arrays >>                                      00052000
                                                                        00054000
INTEGER ARRAY mh'default'log'pack'size (0:num'mh'disc'subtypes-1)       00056000
    loc := 200, 200, 200, 400, 400, 400, 400, 120, 815, 815, 400,       00058000
    400, 400;                                                           00060000
                                                                        00062000
INTEGER ARRAY mh'max'log'pack'size (0:num'mh'disc'subtypes-1)           00064000
   loc := 203, 203, 203, 406, 411, 411, 411, 125, 823, 823, 411,        00066000
   411, 411;                                                            00068000
                                                                        00070000
INTEGER ARRAY mh'tracks'per'cylinder (0:num'mh'disc'subtypes-1)         00072000
   loc := 1, 1, 2, 20, 2, 1, 3, 3, 5, 9, 2, 2, 4;                       00074000
                                                                        00076000
INTEGER ARRAY mh'sectors'per'track (0:num'mh'disc'subtypes-1)           00078000
 loc := 48, 48, 48, 23, 48, 48, 48, 48, 48, 64, 48, 48, 48;             00080000
                                                                        00082000
INTEGER ARRAY mh'starting'head'number (0:num'mh'disc'subtypes-1)        00084000
   loc := 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0;                        00086000
                                                                        00088000
INTEGER ARRAY mh'track'multiplier (0:num'mh'disc'subtypes-1)            00090000
   loc := 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1;                        00092000
                                                                        00094000
                                                                        00096000
<< Fixed head disc info array >>                                        00098000
                                                                        00100000
INTEGER ARRAY fh'log'pack'size (0:num'fh'disc'subtypes-1)               00102000
   loc := 128, 256, 512;                                                00104000
                                                                        00106000
EQUATE fh'sectors'per'track = 32;                                       00108000
EQUATE fh'tracks'per'cylinder = 1;                                      00110000
EQUATE fh'starting'head'number = 0;                                     00112000
EQUATE fh'track'multiplier = 1;                                         00114000
                                                                        00116000
                                                                        00118000
<< Floppy disc info >>                                                  00120000
                                                                        00122000
EQUATE fp'default'log'pack'size = 65;                                   00124000
EQUATE fp'max'log'pack'size = 67;                                       00126000
EQUATE fp'sectors'per'track = 30;                                       00128000
EQUATE fp'single'tracks'per'cylinder = 1;                               00130000
EQUATE fp'double'tracks'per'cylinder = 2;                               00132000
EQUATE fp'starting'head'number = 0;                                     00134000
EQUATE fp'track'multiplier = 1;                                         00136000
                                                                        00138000
                                                                        00140000
<<==============================================================        00142000
                                                                        00144000
                        End of INCDISC2                                 00146000
                                                                        00148000
==============================================================>>        00150000
