home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / BootBlock.mod < prev    next >
Encoding:
Text File  |  1992-11-02  |  1.1 KB  |  36 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE BootBlock;   (* $Implementation- *)
  10.  
  11. IMPORT e   * := Exec,
  12.        sys * := SYSTEM;
  13.  
  14. TYPE
  15.  
  16.   BootBlockPtr * = UNTRACED POINTER TO BootBlock;
  17.   BootBlock * = STRUCT
  18.     id * : ARRAY 4 OF CHAR;          (* 4 character identifier *)
  19.     chkSum * : LONGINT;              (* boot block checksum (balance) *)
  20.     dosBlock * : LONGINT;            (* reserved for DOS patch *)
  21.   END;
  22.  
  23. CONST
  24.  
  25.   bootSects   * = 2;      (* 1K bootstrap *)
  26.  
  27.   idDos    * = 'DOS\o';
  28.   idKick   * = 'KICK';
  29.  
  30.   nameDos  * = sys.VAL(LONGINT,idDos);    (* 'DOS\0' *)
  31.   nameKick * = sys.VAL(LONGINT,idKick);   (* 'KICK' *)
  32.  
  33. END BootBlock.
  34.  
  35.  
  36.