{$A+,B-,D+,E-,F-,G-,I-,L+,N-,O-,P-,Q-,R-,S-,T-,V+,X+,Y+}
{$M 16384,0,65535}
unit flprglob;

interface

const
  CurDrive:byte=1;
  numsectors:byte=9;
  numtracks:byte=40;
  numheads:byte=2;
  sectorsize:word=512;
  cursector:word=0;
  secdisplaylinelength=64; {must be multiple of 8!  32, 64 are pretty much only ones}
  sectorbuffer:pointer=nil;
  trackbuffer:pointer=nil;
  tracksize:word=0;

type
  boot_structure = record
    jmp_instruction     : array[1..3] of byte;
    oem_name            : array[1..8] of char;
    bytes_per_sector    : word;
    sectors_per_cluster : byte;
    reserved_sectors    : word;
    fat_copies          : byte;
    root_entries        : word;
    total_sectors       : word;
    media_descriptor    : byte;
    sectors_per_fat     : word;
    sectors_per_track   : word;
    number_of_heads     : word;
    hidden_sectors      : word;
    total_sector_fixed  : array[1..2] of word;
    drive_number        : byte;
    reserved            : byte;
    ext_boot_sig        : byte;
    serial_number       : array[1..2] of word;
    volume_name         : array[1..11] of char;
    file_system_id      : array[1..8] of char;
    boot_program_code   : array[1..450] of char;
    signature_bytes     : array[1..2] of byte;
  end;

implementation

end.