<<==============================================================        00005000
                                                                        00010000
                        INCDISC2 - B6                                   00015000
                                                                        00020000
              Disc information arrays include file                      00025000
                                                                        00030000
==============================================================>>        00035000
                                                                        00040000
                                                                        00045000
<< If compiled with X7 ON then the arrays are allocated PB relative,    00050000
   (for use in a procedure), if X7 is OFF then the arrays are           00055000
   allocated DB relative (for use as a global).                     >>  00060000
                                                                        00065000
                                                                        00070000
$IF X7=ON  << DEFINE ARRAYS TO BE PB RELATIVE >>                        00075000
   DEFINE loc = =PB#;                                                   00080000
$IF X7=OFF << DEFINE ARRAYS TO BE DB RELATIVE >>                        00085000
   DEFINE loc = #;                                                      00090000
$IF                                                                     00095000
                                                                        00100000
                                                                        00105000
<< Moving head disc info arrays >>                                      00110000
                                                                        00115000
INTEGER ARRAY mh'default'log'pack'size (0:num'mh'disc'subtypes-1)       00120000
    loc := 200, 200, 200, 400, 400, 400, 400, 120, 815, 815, 400,       00125000
    400, 400;                                                           00130000
                                                                        00135000
INTEGER ARRAY mh'max'log'pack'size (0:num'mh'disc'subtypes-1)           00140000
   loc := 203, 203, 203, 406, 411, 411, 411, 125, 823, 823, 411,        00145000
   411, 411;                                                            00150000
                                                                        00155000
INTEGER ARRAY mh'tracks'per'cylinder (0:num'mh'disc'subtypes-1)         00160000
   loc := 1, 1, 2, 20, 2, 1, 3, 3, 5, 9, 2, 2, 4;                       00165000
                                                                        00170000
INTEGER ARRAY mh'sectors'per'track (0:num'mh'disc'subtypes-1)           00175000
 loc := 48, 48, 48, 23, 48, 48, 48, 48, 48, 64, 48, 48, 48;             00180000
                                                                        00185000
INTEGER ARRAY mh'starting'head'number (0:num'mh'disc'subtypes-1)        00190000
   loc := 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0;                        00195000
                                                                        00200000
INTEGER ARRAY mh'track'multiplier (0:num'mh'disc'subtypes-1)            00205000
   loc := 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1;                        00210000
                                                                        00215000
                                                                        00220000
<< Fixed head disc info array >>                                        00225000
                                                                        00230000
INTEGER ARRAY fh'log'pack'size (0:num'fh'disc'subtypes-1)               00235000
   loc := 128, 256, 512;                                                00240000
                                                                        00245000
EQUATE fh'sectors'per'track = 32;                                       00250000
EQUATE fh'tracks'per'cylinder = 1;                                      00255000
EQUATE fh'starting'head'number = 0;                                     00260000
EQUATE fh'track'multiplier = 1;                                         00265000
                                                                        00270000
                                                                        00275000
<< Floppy disc info >>                                                  00280000
                                                                        00285000
EQUATE fp'default'log'pack'size = 65;                                   00290000
EQUATE fp'max'log'pack'size = 67;                                       00295000
EQUATE fp'sectors'per'track = 30;                                       00300000
EQUATE fp'single'tracks'per'cylinder = 1;                               00305000
EQUATE fp'double'tracks'per'cylinder = 2;                               00310000
EQUATE fp'starting'head'number = 0;                                     00315000
EQUATE fp'track'multiplier = 1;                                         00320000
                                                                        00325000
                                                                        00330000
<<==============================================================        00335000
                                                                        00340000
                        End of INCDISC2                                 00345000
                                                                        00350000
==============================================================>>        00355000
