blob: 068a9a6a177119927227fd1e3128fcf65ebb1351 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
{
This file is part of the Free Pascal run time library.
emulinterface definitions for MorphOS/PowerPC
Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved.
Free Pascal conversion
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{ * emulinterface consts from MorphOS SDK * }
const
TRAP_MASK = $00ff;
TRAP_AREA_START = $ff00; { * $ff00 .. $ffff area * }
TRAP_LIB = $ff00;
TRAP_LIB_QUICK = $ff01;
TRAP_LIBNR = $ff05;
TRAP_LIBNR_QUICK = $ff06;
TRAP_ISYNC = $ff0f;
TRAP_SYNC = $ff10;
TRAP_EIEIO = $ff11;
TRAP_LIBSR = $ff12;
TRAP_LIBSRNR = $ff13;
TRAP_LIBD0_D1 = $ff14;
TRAP_LIBRESTORE = $ff15;
TRAP_LIBD0D1SR = $ff17;
TRAP_LIBD0D1A0A1SR = $ff18;
const
EMULTAG_NAME = $0; { * Gives back a Name Ptr * }
EMULTAG_VERSION = $1; { * Gives back a Version * }
EMULTAG_REVISION = $2; { * Gives back a Revision * }
EMULTAG_OPCODETABLE = $3; { * Gives back the 16 Bit Opcodetable Ptr or NULL * }
EMULTAG_TYPE = $4; { * Gives back the emulation type * }
EMULTAG_EMULHANDLE = $5; { * Gives back the EmulHandle Ptr * }
EMULTAG_EMULHANDLESIZE = $6; { * Gives back the EmulHandle Size * }
EMULTAG_SUPERHANDLE = $7; { * Gives back the SuperHandle Ptr * }
EMULTAG_SUPERHANDLESIZE = $8; { * Gives back the SuperHandle Size * }
{ * emulinterface structures from MorphOS SDK * }
type
PEmulLibEntry = ^TEmulLibEntry;
TEmulLibEntry = packed record
Trap : Word;
Extension: Word; { * MUST be set to 0 if you create it by hand * }
Func : Pointer;
end;
|
