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