paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 08:12:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ some more emulinterface consts added

Browse Source 
git-svn-id: trunk@1833 -
This commit is contained in:
Károly Balogh 2005-11-27 06:51:01 +00:00
parent 548bf2f29f
commit 06ba490487
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/morphos/emuld.inc
View File

@ -16,6 +16,36 @@
**********************************************************************}
{ * 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