1 {
2     This file is part of the Free Pascal run time library.
3 
4     A file in Amiga system run time library.
5     Copyright (c) 1998-2000 by Nils Sjoholm
6     member of the Amiga RTL development team.
7 
8     See the file COPYING.FPC, included in this distribution,
9     for details about the copyright.
10 
11     This program is distributed in the hope that it will be useful,
12     but WITHOUT ANY WARRANTY; without even the implied warranty of
13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14 
15  **********************************************************************}
16 
17 unit bootblock;
18 
19 INTERFACE
20 
21 type
22     pBootBlock = ^tBootBlock;
23     tBootBlock = record
24         bb_id           : Array [0..3] of Byte; { 4 character identifier }
25         bb_chksum       : Longint;              { boot block checksum (balance) }
26         bb_dosblock     : Longint;              { reserved for DOS patch }
27     end;
28 
29 const
30     BOOTSECTS   = 2;    { 1K bootstrap }
31 
32     BBID_DOS    : PChar = 'DOS';
33     BBID_KICK   : PChar = 'KICK';
34 
35     BBNAME_DOS  = $444F5300;    { DOS\0 as an Integer }
36     BBNAME_KICK = $4B49434B;    { KICK as an Integer }
37 
38 IMPLEMENTATION
39 
40 end.
41