forked from KolibriOS/kolibrios
24 lines
359 B
ObjectPascal
24 lines
359 B
ObjectPascal
|
unit KOSTypes;
|
||
|
|
||
|
interface
|
||
|
|
||
|
type
|
||
|
TKosSign = array[0..7] of Byte;
|
||
|
TKosHeader = packed record
|
||
|
sign : TKOSSign;
|
||
|
version: DWord;
|
||
|
start : DWord;
|
||
|
size : DWord;
|
||
|
memory : DWord;
|
||
|
stack : DWord;
|
||
|
args : DWord;
|
||
|
path : DWord;
|
||
|
end;
|
||
|
|
||
|
const
|
||
|
KOS_SIGN: TKOSSign = ($4D, $45, $4E, $55, $45, $54, $30, $31);
|
||
|
|
||
|
implementation
|
||
|
|
||
|
end.
|