home *** CD-ROM | disk | FTP | other *** search
Modula Definition | 1988-11-06 | 299 b | 21 lines |
- (* $M- *)
- DEFINITION MODULE BootBlock;
-
- FROM SYSTEM IMPORT CAST;
-
- TYPE
- BootBlock=RECORD
- id:ARRAY [0..3] OF CHAR;
- chkSum:LONGINT;
- dosBlock:LONGINT;
- END;
-
- CONST
- bootSects=2;
- idDos=CAST(LONGINT,'DOS ')-ORD(' ');
- idKick=CAST(LONGINT,'KICK');
- nameDos='DOS';
- nameKick='KICK';
-
- END BootBlock.
-