<<==============================================================        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
