home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source1.lha / source / amiga / BootBlock.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.3 KB  |  50 lines
  1. (***************************************************************************
  2.  
  3.      $RCSfile: BootBlock.mod $
  4.   Description: floppy BootBlock definition
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.5 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 02:39:55 $
  10.  
  11.   $VER: bootblock.h 36.6 (5.11.90)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. ***************************************************************************)
  22.  
  23. <* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
  24. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  25. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  26.  
  27. MODULE [2] BootBlock;
  28.  
  29. TYPE
  30.  
  31.   BootBlockPtr * = POINTER TO BootBlock;
  32.   BootBlock * = RECORD
  33.     id       * : ARRAY 4 OF CHAR;    (* 4 character identifier *)
  34.     chksum   * : LONGINT;            (* boot block checksum (balance) *)
  35.     dosblock * : LONGINT;            (* reserved for DOS patch *)
  36.   END; (* BootBlock *)
  37.  
  38. CONST
  39.  
  40.   bootSects    * = 2;       (* 1K bootstrap *)
  41.  
  42.   idDos        * = "DOS\0";
  43.   idKick       * = "KICK";
  44.  
  45.   nameDos      * = 444F5300H;      (* 'DOS\0' *)
  46.   nameKick     * = 4B49434BH;      (* 'KICK' *)
  47.  
  48.  
  49. END BootBlock.
  50.