home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / BootBlock.def < prev    next >
Text File  |  1996-07-29  |  819b  |  37 lines
  1. (*
  2. **    Cyclone Modula-2 Interface module:
  3. **    $VER: bootblock.h 36.6 (5.11.90)
  4. **    Includes Release 40.15
  5. **
  6. **    floppy BootBlock definition
  7. **
  8. **    (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  9. **        All Rights Reserved
  10. **
  11. **      Interface module by Marcel Timmermans
  12. **      (C) Copyright 1995-1996 Marcel Timmermans
  13. **          All Rights Reserved
  14. *)
  15.  
  16. (*$ Implementation- *)
  17. DEFINITION MODULE BootBlock; 
  18.  
  19. TYPE
  20.   BootBlock=RECORD
  21.     id:ARRAY [0..3] OF CHAR;    (* 4 character identifier *)
  22.     chksum:LONGINT;             (* boot block checksum (balance) *)
  23.     dosblock:LONGINT;           (* reserved for DOS patch *)       
  24.   END;
  25.  
  26. CONST
  27.   bootSects=2;                  (* 1K bootstrap *)
  28.  
  29.   idDos='DOS\o';
  30.   idKick='KICK';
  31.  
  32.   nameDos= 444F5300H;  (* 'DOS\0' *)
  33.   nameKick=4B49434BH;  (* 'KICK' *)  
  34.  
  35.  
  36. END BootBlock.
  37.