Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.2.0 ▾
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
exec.library interface unit for MorphOS/PowerPC
MorphOS port was done on a free Pegasos II/G4 machine
provided by 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.
**********************************************************************}
unit exec;
interface
var
ExecBase: Pointer;
{ Some types for classic Amiga and AROS compatibility }
type
STRPTR = PChar;
WSTRPTR = PWideChar;
ULONG = Longword;
LONG = Longint;
APTR = Pointer;
BPTR = Longint;
BSTR = Longint;
BOOL = Smallint; { I think this could be changed to WordBool (KB) }
UWORD = Word;
WORDBITS = Word;
LONGBITS = Longword;
PLONGBITS = ^LONGBITS;
UBYTE = Byte;
PULONG = ^Longword;
PAPTR = ^APTR;
PLONG = ^LONG;
// some AROS stuff
IPTR = PtrUInt;
SIPTR = PtrInt;
{ Some constants for classic Amiga and AROS compatibility }
const
LTrue : Longint = 1;
LFalse : Longint = 0;
{ * 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;
type
TEmulRegs = (regD0,regD1,regD2,regD3,regD4,regD5,regD6,regD7,regA0,regA1,regA2,regA3,regA4,regA5,regA6,regA7,regPC,regSR);
type
PEmulHandle = ^TEmulHandle;
TEmulHandle = packed record
reg: array[TEmulRegs] of LongWord; {* 0x00-0x44 68k emulation registers *}
SuperHandle: Pointer; {* 0x48 pointer to SuperHandle *}
_Type: ULONG; {* 0x4c EmulHandle type *}
Flags: ULONG; {* 0x50 Flags *}
EmulFunc: procedure; cdecl; {* 0x54 *}
EmulCallOS: function(EmulCaos: pointer): ULONG; cdecl; {* 0x58 *}
EmulCall68k: function(EmulCaos: pointer): ULONG; cdecl; {* 0x5c *}
EmulCallQuick68k: function(EmulCaos: pointer): ULONG; cdecl; {* 0x60 *}
EmulCallDirectOS: function(arg: LONG): ULONG; cdecl; {* 0x64 *}
EmulCallDirect68k: function(arg: Pointer): ULONG; cdecl; {* 0x68 *}
OldEmulHandle: PEmulHandle; {* 0x6c Here we record the previous EmulHandle *}
{ * TODO: but wait, there's more... * }
end;
function GetEmulHandle: PEmulHandle;
function REG_D0: DWord;
function REG_D1: DWord;
function REG_D2: DWord;
function REG_D3: DWord;
function REG_D4: DWord;
function REG_D5: DWord;
function REG_D6: DWord;
function REG_D7: DWord;
function REG_A0: Pointer;
function REG_A1: Pointer;
function REG_A2: Pointer;
function REG_A3: Pointer;
function REG_A4: Pointer;
function REG_A5: Pointer;
function REG_A6: Pointer;
function REG_A7: Pointer;
function REG_PC: Pointer;
function REG_SR: DWord;
{ * "dummy" definitions from utility, which we can't include here because it
* would create a circular dependency (KB) }
type
PTagItem = Pointer;
PHook = Pointer;
{ * exec node definitions (V50)
*********************************************************************
* }
type
PNode = ^TNode;
TNode = packed record
ln_Succ: PNode;
ln_Pred: PNode;
ln_Type: Byte;
ln_Pri : ShortInt;
ln_Name: PChar;
end;
type
PMinNode = ^TMinNode;
TMinNode = packed record
mln_Succ: PMinNode;
mln_Pred: PMinNode;
end;
const
NT_UNKNOWN = 0;
NT_TASK = 1;
NT_INTERRUPT = 2;
NT_DEVICE = 3;
NT_MSGPORT = 4;
NT_MESSAGE = 5;
NT_FREEMSG = 6;
NT_REPLYMSG = 7;
NT_RESOURCE = 8;
NT_LIBRARY = 9;
NT_MEMORY = 10;
NT_SOFTINT = 11;
NT_FONT = 12;
NT_PROCESS = 13;
NT_SEMAPHORE = 14;
NT_SIGNALSEM = 15;
NT_BOOTNODE = 16;
NT_KICKMEM = 17;
NT_GRAPHICS = 18;
NT_DEATHMESSAGE = 19;
NT_USER = 254;
NT_EXTENDED = 255;
{ * exec list definitions (V50)
*********************************************************************
* }
type
PList = ^TList;
TList = packed record
lh_Head : PNode;
lh_Tail : PNode;
lh_TailPred: PNode;
lh_Type : Byte;
lh_pad : Byte;
end;
type
PMinList = ^TMinList;
TMinList = packed record
mlh_Head : PMinNode;
mlh_Tail : PMinNode;
mlh_TailPred: PMinNode;
end;
{ * exec error definitions (V50)
*********************************************************************
* }
const
IOERR_OPENFAIL = -1;
IOERR_ABORTED = -2;
IOERR_NOCMD = -3;
IOERR_BADLENGTH = -4;
IOERR_BADADDRESS = -5;
IOERR_UNITBUSY = -6;
IOERR_SELFTEST = -7;
IOERR_NOMEMORY = -8;
{ * exec resident definitions (V50)
*********************************************************************
* }
type
PResident = ^TResident;
TResident = packed record
rt_MatchWord: Word;
rt_MatchTag : PResident;
rt_EndSkip : APTR;
rt_Flags : Byte;
rt_Version : Byte;
rt_Type : Byte;
rt_Pri : ShortInt;
rt_Name : PChar;
rt_IdString : PChar;
rt_Init : APTR;
// Only valid when RTF_EXTENDED is set
rt_Revision : Word; // Revision Entry
rt_Tags : PTagItem;
end;
const
RTC_MATCHWORD = $4AFC;
RTF_AUTOINIT = 1 Shl 7;
RTF_EXTENDED = 1 Shl 6; { * structure extension is valid * }
{ rt_Init points to a PPC function which must be defined as
function LIB_Init(MyLibBase: PLibrary, SegList: BPTR; SysBase: PExecBase): PLibrary;}
RTF_PPC = 1 Shl 3;
RTF_AFTERDOS = 1 Shl 2;
RTF_SINGLETASK = 1 Shl 1;
RTF_COLDSTART = 1 Shl 0;
RTW_NEVER = 0;
RTW_COLDSTART = 1;
{ * exec memory definitions (V50)
*********************************************************************
* }
type
PMemChunk = ^TMemChunk;
TMemChunk = packed record
mc_Next : PMemChunk;
mc_Bytes: LongWord;
end;
type
PMemHeader = ^TMemHeader;
TMemHeader = packed record
mh_Node : TNode;
mh_Attributes: Word;
mh_First : PMemChunk;
mh_Lower : APTR;
mh_Upper : APTR;
mh_Free : LongWord;
end;
type
PMemEntry = ^TMemEntry;
TMemEntry = packed record
me_Un: packed record
case Byte of
0 : (meu_Reqs: LongWord);
1 : (meu_Addr: APTR)
end;
me_Length: LongWord;
end;
type
PMemList = ^TMemList;
TMemList = packed record
ml_Node : TNode;
ml_NumEntries: Word;
ml_ME : array [0..0] of TMemEntry;
end;
const
MEMF_ANY = 0;
MEMF_PUBLIC = 1 Shl 0;
MEMF_CHIP = 1 Shl 1;
MEMF_FAST = 1 Shl 2;
MEMF_LOCAL = 1 Shl 8;
MEMF_24BITDMA = 1 Shl 9;
MEMF_KICK = 1 Shl 10;
MEMF_SWAP = 1 Shl 11; // Memory that can be swapped out to disk
MEMF_31BIT = 1 Shl 12; // Memory that is in <2GiB area (V51)
MEMF_CLEAR = 1 Shl 16;
MEMF_LARGEST = 1 Shl 17;
MEMF_REVERSE = 1 Shl 18;
MEMF_TOTAL = 1 Shl 19;
MEMF_SEM_PROTECTED = 1 Shl 20; // Pools: semaphore protection
MEMF_NO_EXPUNGE = 1 Shl 31;
MEM_BLOCKSIZE = 8;
MEM_BLOCKMASK = MEM_BLOCKSIZE - 1;
type
PMemHandlerData = ^TMemHandlerData;
TMemHandlerData = packed record
memh_RequestSize : LongWord;
memh_RequestFlags: LongWord;
memh_Flags : LongWord;
end;
const
MEMHF_RECYCLE = 1 Shl 0;
MEM_DID_NOTHING = 0;
MEM_ALL_DONE = -1;
MEM_TRY_AGAIN = 1;
type
TFreeBlocksData = record
fbd_NumBlocks: LongWord;
fbd_Blocks: array[0..0] of TMemEntry; // fbd_NumBlocks entries
end;
PFreeBlocksData = ^TFreeBlocksData;
{ * exec port definitions (V50)
*********************************************************************
* }
type
PMsgPort = ^TMsgPort;
TMsgPort = packed record
mp_Node : TNode;
mp_Flags : Byte;
mp_SigBit : Byte;
mp_SigTask: Pointer;
mp_MsgList: TList;
end;
const
PF_ACTION = 3;
PA_SIGNAL = 0;
PA_SOFTINT = 1;
PA_IGNORE = 2;
type
PMessage = ^TMessage;
TMessage = packed record
mn_Node : TNode;
mn_ReplyPort: PMsgPort;
mn_Length : Word;
end;
type
PTask = ^TTask;
PETask = ^TETask;
PTaskTrapMessage = ^TTaskTrapMessage;
TTask = packed record
tc_Node : TNode;
tc_Flags : Byte;
tc_State : Byte;
tc_IDNestCnt: ShortInt;
tc_TDNestCnt: ShortInt;
tc_SigAlloc : LongWord;
tc_SigWait : LongWord;
tc_SigRecvd : LongWord;
tc_SigExcept: LongWord;
{$IF 0}
tc_TrapAlloc: Word;
tc_TrapAble : Word;
{$ELSE}
tc_ETask: PETask;
{$ENDIF}
tc_ExceptData: APTR;
tc_ExceptCode: APTR;
tc_TrapData : APTR;
tc_TrapCode : APTR;
tc_SPReg : APTR;
tc_SPLower : APTR;
tc_SPUpper : APTR;
tc_Switch : Pointer; { *** OBSOLETE *** }
tc_Launch : Pointer; { *** OBSOLETE *** }
tc_MemEntry : TList;
tc_UserData : APTR;
end;
TETask = packed record
Message : TMessage;
Parent : PTask;
UniqueID : LongWord;
Children : TMinList;
TrapAlloc: Word;
TrapAble : Word;
Result1 : LongWord;
Result2 : Pointer;
MsgPort : TMsgPort;
{ * Don't touch!!!!!!!!!..there'll be an interface
* sooner than later.
* New Entries...most of the above entries
* are only their for structure compatability.
* They have no meaning as the OS never supported
* them.
* }
{ * A Task Pool for the task.
* }
MemPool: Pointer;
{ * PPC's Stack Lower Ptr
* The initial stack is allocated through
* AllocVec, so a FreeVec(ETask^.PPCSPLower);
* would work.
* If you use PPCStackSwap you must allocate
* your stack block with AllocVec();
* }
PPCSPLower: Pointer;
{ * PPC's Stack Upper Ptr
* }
PPCSPUpper : Pointer;
PPCRegFrame: Pointer;
PPCLibData : Pointer;
{ * On a PPC exception this msgport
* is sent an exception msg...
* the task is stopped until somebody
* wakes it up again.
* (asynchron exception interface)
* If this Port is NULL the message is
* sent to SysBase->ex_PPCTrapMsgPort.
* }
PPCTrapMsgPort: PMsgPort;
PPCTrapMessage: PTaskTrapMessage;
{ * This is undiscovered land...
* never assume a size of this structure
* }
end;
TTaskTrapMessage = packed record
Message: TMessage; // Message Header
Task: TTask; // connected Task
Version: LongWord; // version of the structure VERSION_TASKTRAPMESSAGE
TType: LongWord; // Exception Type
DAR: LongWord; // Exception Address Register
DSISR: LongWord; // Exception DSISR Reg
// This is undiscovered land... never assume a size of this structure
end;
type
PTaskInitExtension = ^TTaskInitExtension;
TTaskInitExtension = packed record
// Must be filled with TRAP_PPCTASK
Trap : Word;
Extension: Word; // Must be set to 0
Tags : Pointer;
end;
{ * This is normally in utility headers, but in Pascal that would
* cause a circular dependency, so have it duplicated here... (KB) }
const
TAG_USER = 1 Shl 31;
const
TASKTAG_DUMMY = TAG_USER + $100000;
TASKTAG_ERROR = TASKTAG_DUMMY + $0; // Ptr to an ULONG Errorfield where a better error description can be stored.
TASKTAG_CODETYPE = TASKTAG_DUMMY + $1; // Code type can be stored.
TASKTAG_PC = TASKTAG_DUMMY + $2; // Start PC code must be of TASKTAG_CODETYPE
TASKTAG_FINALPC = TASKTAG_DUMMY + $3; // Final PC code must be of TASKTAG_CODETYPE
TASKTAG_STACKSIZE = TASKTAG_DUMMY + $4; // Stacksize...Default 8192
TASKTAG_STACKSIZE_M68K = TASKTAG_DUMMY + $5; // Std Stacksize... Default(use the stack defined by tc_SPLower..tc_SPUpper)
TASKTAG_NAME = TASKTAG_DUMMY + $6; // specify task name, name is copied
TASKTAG_USERDATA = TASKTAG_DUMMY + $7; // tc_UserData
TASKTAG_PRI = TASKTAG_DUMMY + $8; // Task priority
TASKTAG_POOLPUDDLE = TASKTAG_DUMMY + $9; // Pool's Puddlesize
TASKTAG_POOLTHRESH = TASKTAG_DUMMY + $a; // Pool's ThreshSize
TASKTAG_PPC_ARG1 = TASKTAG_DUMMY + $10; // PPC First Argument..gpr3
TASKTAG_PPC_ARG2 = TASKTAG_DUMMY + $11; // PPC First Argument..gpr4
TASKTAG_PPC_ARG3 = TASKTAG_DUMMY + $12; // PPC First Argument..gpr5
TASKTAG_PPC_ARG4 = TASKTAG_DUMMY + $13; // PPC First Argument..gpr6
TASKTAG_PPC_ARG5 = TASKTAG_DUMMY + $14; // PPC First Argument..gpr7
TASKTAG_PPC_ARG6 = TASKTAG_DUMMY + $15; // PPC First Argument..gpr8
TASKTAG_PPC_ARG7 = TASKTAG_DUMMY + $16; // PPC First Argument..gpr9
TASKTAG_PPC_ARG8 = TASKTAG_DUMMY + $17; // PPC First Argument..gpr10
TASKTAG_STARTUPMSG = TASKTAG_DUMMY + $18; // Startup message to be passed to task/process, ReplyMsg'd at RemTask() ti_Data: PMessage
TASKTAG_TASKMSGPORT = TASKTAG_DUMMY + $19; // Create internal MsgPort for task/process, deleted at RemTask() ti_Data: PPMsgPort, can be nil
TASKTAG_FLAGS = TASKTAG_DUMMY + $1a; // Set unitial tc_Flags ti_Data: Byte
TASKTAG_TCBEXTRASIZE = TASKTAG_DUMMY + $1c; // Extra memory to allocate after task structure, the extra memory is cleared ti_Data: LongWord
const
CODETYPE_M68K = $0;
// System V4 ABI
CODETYPE_PPC = $1;
const
TASKERROR_OK = 0;
TASKERROR_NOMEMORY = 1;
{ * exec task definitions (V50)
*********************************************************************
* }
const
TB_PROCTIME = 0;
TB_ETASK = 3;
TB_STACKCHK = 4;
TB_EXCEPT = 5;
TB_SWITCH = 6;
TB_LAUNCH = 7;
TF_PROCTIME = 1 Shl TB_PROCTIME;
TF_ETASK = 1 Shl TB_ETASK;
TF_STACKCHK = 1 Shl TB_STACKCHK;
TF_EXCEPT = 1 Shl TB_EXCEPT;
TF_SWITCH = 1 Shl TB_SWITCH;
TF_LAUNCH = 1 Shl TB_LAUNCH;
TS_INVALID = 0;
TS_ADDED = 1;
TS_RUN = 2;
TS_READY = 3;
TS_WAIT = 4;
TS_EXCEPT = 5;
TS_REMOVED = 6;
SIGB_ABORT = 0;
SIGB_CHILD = 1;
SIGB_BLIT = 4;
SIGB_SINGLE = 4;
SIGB_INTUITION = 5;
SIGB_NET = 7;
SIGB_DOS = 8;
SIGF_ABORT = 1 Shl SIGB_ABORT;
SIGF_CHILD = 1 Shl SIGB_CHILD;
SIGF_BLIT = 1 Shl SIGB_BLIT;
SIGF_SINGLE = 1 Shl SIGB_SINGLE;
SIGF_INTUITION = 1 Shl SIGB_INTUITION;
SIGF_NET = 1 Shl SIGB_NET;
SIGF_DOS = 1 Shl SIGB_DOS;
// Added in exec 50.67
// Exec has now a more sophisticated 68k(emulation) trap management.
// In reality it's just a new system wide traphandler who sends logserver
// the msg and if this msg is replied it uses the new emulation state.
type
PTaskTrapMessage_68k = ^TTaskTrapMessage_68k;
TTaskTrapMessage_68k = packed record
Message: TMessage; // Message Header
Task: TTask; // connected Task
Version: LongWord; // version of the structure VERSION_TASKTRAPMESSAGE_68k
TType: LongWord; // Exception Type
Format: LongWord; // Exception Stackframe Format
Address: Pointer; // Hit Address
FLSW: LongWord;
MyEmulHandle: PEmulHandle;
end;
const
VERSION_TASKTRAPMESSAGE_68k = $0;
VERSION_TASKTRAPMESSAGE = $0;
{ *
* Stack swap structure as passed to StackSwap() and PPCStackSwap()
* }
type
PStackSwapStruct = ^TStackSwapStruct;
TStackSwapStruct = packed record
stk_Lower : APTR; // Lowest byte of stack
stk_Upper : LongWord; // Upper end of stack (size + Lowert)
stk_Pointer: APTR; // Stack pointer at switch point
end;
type
PPPCStackSwapArgs = ^TPPCStackSwapArgs;
TPPCStackSwapArgs = packed record
Args: Array[0..7] Of LongWord; // The C register arguments from gpr3..gpr11
end;
{ *
* NewGetTaskAttrsA(), NewSetTaskAttrsA() tags
* }
const
TASKINFOTYPE_ALLTASK = $0;
TASKINFOTYPE_NAME = $1;
TASKINFOTYPE_PRI = $2;
TASKINFOTYPE_TYPE = $3;
TASKINFOTYPE_STATE = $4;
TASKINFOTYPE_FLAGS = $5;
TASKINFOTYPE_SIGALLOC = $6;
TASKINFOTYPE_SIGWAIT = $7;
TASKINFOTYPE_SIGRECVD = $8;
TASKINFOTYPE_SIGEXCEPT = $9;
TASKINFOTYPE_EXCEPTDATA = $a;
TASKINFOTYPE_EXCEPTCODE = $b;
TASKINFOTYPE_TRAPDATA = $c;
TASKINFOTYPE_TRAPCODE = $d;
TASKINFOTYPE_STACKSIZE_M68K = $e;
TASKINFOTYPE_STACKSIZE = $f;
TASKINFOTYPE_USEDSTACKSIZE_M68K = $10;
TASKINFOTYPE_USEDSTACKSIZE = $11;
TASKINFOTYPE_TRAPMSGPORT = $12;
TASKINFOTYPE_STARTUPMSG = $13;
TASKINFOTYPE_TASKMSGPORT = $14;
TASKINFOTYPE_POOLPTR = $15;
TASKINFOTYPE_POOLMEMFLAGS = $16;
TASKINFOTYPE_POOLPUDDLESIZE = $17;
TASKINFOTYPE_POOLTHRESHSIZE = $18;
{ *
* Task Scheduler statistics (exec 50.42)
* }
TASKINFOTYPE_NICE = $19;
TASKINFOTYPE_AGETICKS = $1a;
TASKINFOTYPE_CPUTIME = $1b;
TASKINFOTYPE_LASTSECCPUTIME = $1c;
TASKINFOTYPE_RECENTCPUTIME = $1d;
TASKINFOTYPE_VOLUNTARYCSW = $1e;
TASKINFOTYPE_INVOLUNTARYCSW = $1f;
TASKINFOTYPE_LASTSECVOLUNTARYCSW = $20;
TASKINFOTYPE_LASTSECINVOLUNTARYCSW = $21;
// Added in exec 50.45
TASKINFOTYPE_LAUNCHTIMETICKS = $22;
TASKINFOTYPE_LAUNCHTIMETICKS1978 = $23;
TASKINFOTYPE_PID_CLI = $24;
// Added in exec 50.54
TASKINFOTYPE_SPLOWER = $26;
TASKINFOTYPE_SPUPPER = $27;
TASKINFOTYPE_SPLOWER_M68K = $28;
TASKINFOTYPE_SPUPPER_M68K = $29;
TASKINFOTYPE_NAMECOPY = $2a;
// Added in exec 50.63
TASKINFOTYPE_USERDATA = $2b; // Get/Set task tc_UserData (LongWord)
TASKINFOTYPE_RESURRECT_TASK = $2c; // Tag used to restart a suspended task (LongWord)
TASKINFOTYPE_EMULHANDLE = $2d; // Get/Set task emulhandle (APTR)
TASKINFOTYPE_EXCEPTIONCOUNT = $2e; // Get task exception count (LongWord)
TASKINFOTYPE_HITCOUNT = $2f; // Get task hit count (LongWord)
TASKINFOTYPE_MAXHITCOUNT = $30; // Get/Set task max hit count. If more hits happen the task is put to sleep. (LongWord)
TASKINFOTYPE_ALERTCOUNT = $31; // Get task alert count (LongWord)
TASKINFOTYPE_MAXALERTCOUNT = $32; // Get/Set task max alert count. If more alerts happen the task is put to sleep. (LongWord)
TASKINFOTYPE_PID = $33; // Get task unique ID. This ID is unique to every task. (LongWord)
TASKINFOTYPE_68K_NEWFRAME = $50;
TASKINFOTYPE_PPC_SRR0 = $100;
TASKINFOTYPE_PPC_SRR1 = $101;
TASKINFOTYPE_PPC_LR = $102;
TASKINFOTYPE_PPC_CTR = $103;
TASKINFOTYPE_PPC_CR = $104;
TASKINFOTYPE_PPC_XER = $105;
TASKINFOTYPE_PPC_GPR = $106;
TASKINFOTYPE_PPC_FPR = $107;
TASKINFOTYPE_PPC_FPSCR = $108;
TASKINFOTYPE_PPC_VSCR = $109;
TASKINFOTYPE_PPC_VMX = $10a;
TASKINFOTYPE_PPC_VSAVE = $10b;
TASKINFOTYPE_PPC_FRAME = $10c;
TASKINFOTYPE_PPC_FRAMESIZE = $10d;
TASKINFOTYPE_PPC_NEWFRAME = $10e;
TASKINFOTAG_DUMMY = (TAG_USER + $110000);
TASKINFOTAG_HOOK = (TASKINFOTAG_DUMMY + $0); // Used with TASKINFOTYPE_ALLTASK
TASKINFOTAG_REGSTART = (TASKINFOTAG_DUMMY + $1); // Used with TASKINFOTYPE_PPC_GPR,TASKINFOTYPE_PPC_FPR,TASKINFOTYPE_PPC_VMX to define the copy area
TASKINFOTAG_REGCOUNT = (TASKINFOTAG_DUMMY + $2); // Used with TASKINFOTYPE_PPC_GPR,TASKINFOTYPE_PPC_FPR,TASKINFOTYPE_PPC_VMX to define the copy area
{ *
* NewSetTaskAttrsA(..,@TaskFrame68k, sizeof(TTaskFrame68k), TASKINFOTYPE_68K_NEWFRAME,...);
* }
type
PTaskFrame68k = ^TTaskFrame68k;
TTaskFrame68k = packed record
PC: Pointer;
SR: Word;
Xn: Array[0..14] Of LongWord;
end;
{ *
* Don't depend on these
* }
const
DEFAULT_PPCSTACKSIZE = 32768;
DEFAULT_M68KSTACKSIZE = 2048;
DEFAULT_TASKPUDDLESIZE = 4096;
DEFAULT_TASKTHRESHSIZE = 4096;
PID_CURRENT = 0;
{ * exec alert definitions (V50)
*********************************************************************
* }
const
ACPU_BusErr = $80000002;
ACPU_AddressErr = $80000003;
ACPU_InstErr = $80000004;
ACPU_DivZero = $80000005;
ACPU_CHK = $80000006;
ACPU_TRAPV = $80000007;
ACPU_PrivErr = $80000008;
ACPU_Trace = $80000009;
ACPU_LineA = $8000000A;
ACPU_LineF = $8000000B;
ACPU_Format = $8000000E;
ACPU_Spurious = $80000018;
ACPU_AutoVec1 = $80000019;
ACPU_AutoVec2 = $8000001A;
ACPU_AutoVec3 = $8000001B;
ACPU_AutoVec4 = $8000001C;
ACPU_AutoVec5 = $8000001D;
ACPU_AutoVec6 = $8000001E;
ACPU_AutoVec7 = $8000001F;
AT_DeadEnd = $80000000;
AT_Recovery = $00000000;
AG_NoMemory = $00010000;
AG_MakeLib = $00020000;
AG_OpenLib = $00030000;
AG_OpenDev = $00040000;
AG_OpenRes = $00050000;
AG_IOError = $00060000;
AG_NoSignal = $00070000;
AG_BadParm = $00080000;
AG_CloseLib = $00090000;
AG_CloseDev = $000A0000;
AG_ProcCreate = $000B0000;
AG_MsgPortNotEmpty = $000C0000 { * V50 * };
AO_ExecLib = $00008001;
AO_GraphicsLib = $00008002;
AO_LayersLib = $00008003;
AO_Intuition = $00008004;
AO_MathLib = $00008005;
AO_DOSLib = $00008007;
AO_RAMLib = $00008008;
AO_IconLib = $00008009;
AO_ExpansionLib = $0000800A;
AO_DiskfontLib = $0000800B;
AO_UtilityLib = $0000800C;
AO_KeyMapLib = $0000800D;
AO_AudioDev = $00008010;
AO_ConsoleDev = $00008011;
AO_GamePortDev = $00008012;
AO_KeyboardDev = $00008013;
AO_TrackDiskDev = $00008014;
AO_TimerDev = $00008015;
AO_CIARsrc = $00008020;
AO_DiskRsrc = $00008021;
AO_MiscRsrc = $00008022;
AO_BootStrap = $00008030;
AO_Workbench = $00008031;
AO_DiskCopy = $00008032;
AO_GadTools = $00008033;
AO_Unknown = $00008035;
// exec.library
AN_ExecLib = $01000000;
AN_ExcptVect = $01000001;
AN_BaseChkSum = $01000002;
AN_LibChkSum = $01000003;
AN_MemCorrupt = $81000005;
AN_IntrMem = $81000006;
AN_InitAPtr = $01000007;
AN_SemCorrupt = $01000008;
AN_FreeTwice = $01000009;
AN_BogusExcpt = $8100000A;
AN_IOUsedTwice = $0100000B;
AN_MemoryInsane = $0100000C;
AN_IOAfterClose = $0100000D;
AN_StackProbe = $0100000E;
AN_BadFreeAddr = $0100000F;
AN_BadSemaphore = $01000010;
// graphics.library
AN_GraphicsLib = $02000000;
AN_GfxNoMem = $82010000;
AN_GfxNoMemMspc = $82010001;
AN_LongFrame = $82010006;
AN_ShortFrame = $82010007;
AN_TextTmpRas = $02010009;
AN_BltBitMap = $8201000A;
AN_RegionMemory = $8201000B;
AN_MakeVPort = $82010030;
AN_GfxNewError = $0200000C;
AN_GfxFreeError = $0200000D;
AN_GfxNoLCM = $82011234;
AN_ObsoleteFont = $02000401;
// layers.library
AN_LayersLib = $03000000;
AN_LayersNoMem = $83010000;
// intuition.library
AN_Intuition = $04000000;
AN_GadgetType = $84000001;
AN_BadGadget = $04000001;
AN_CreatePort = $84010002;
AN_ItemAlloc = $04010003;
AN_SubAlloc = $04010004;
AN_PlaneAlloc = $84010005;
AN_ItemBoxTop = $84000006;
AN_OpenScreen = $84010007;
AN_OpenScrnRast = $84010008;
AN_SysScrnType = $84000009;
AN_AddSWGadget = $8401000A;
AN_OpenWindow = $8401000B;
AN_BadState = $8400000C;
AN_BadMessage = $8400000D;
AN_WeirdEcho = $8400000E;
AN_NoConsole = $8400000F;
AN_NoISem = $04000010;
AN_ISemOrder = $04000011;
// math.library
AN_MathLib = $05000000;
// dos.library
AN_DOSLib = $07000000;
AN_StartMem = $07010001;
AN_EndTask = $07000002;
AN_QPktFail = $07000003;
AN_AsyncPkt = $07000004;
AN_FreeVec = $07000005;
AN_DiskBlkSeq = $07000006;
AN_BitMap = $07000007;
AN_KeyFree = $07000008;
AN_BadChkSum = $07000009;
AN_DiskError = $0700000A;
AN_KeyRange = $0700000B;
AN_BadOverlay = $0700000C;
AN_BadInitFunc = $0700000D;
AN_FileReclosed = $0700000E;
// ramlib.library
AN_RAMLib = $08000000;
AN_BadSegList = $08000001;
// icon.library
AN_IconLib = $09000000;
// expansion.library
AN_ExpansionLib = $0A000000;
AN_BadExpansionFree = $0A000001;
// diskfont.library
AN_DiskfontLib = $0B000000;
// audio.device
AN_AudioDev = $10000000;
// console.device
AN_ConsoleDev = $11000000;
AN_NoWindow = $11000001;
// gameport.device
AN_GamePortDev = $12000000;
// keyboard.device
AN_KeyboardDev = $13000000;
// trackdisk.device
AN_TrackDiskDev = $14000000;
AN_TDCalibSeek = $14000001;
AN_TDDelay = $14000002;
// timer.device
AN_TimerDev = $15000000;
AN_TMBadReq = $15000001;
AN_TMBadSupply = $15000002;
// cia.resource
AN_CIARsrc = $20000000;
// disk.resource
AN_DiskRsrc = $21000000;
AN_DRHasDisk = $21000001;
AN_DRIntNoAct = $21000002;
// misc.resource
AN_MiscRsrc = $22000000;
// bootstrap
AN_BootStrap = $30000000;
AN_BootError = $30000001;
// Workbench
AN_Workbench = $31000000;
AN_NoFonts = $B1000001;
AN_WBBadStartupMsg1 = $31000001;
AN_WBBadStartupMsg2 = $31000002;
AN_WBBadIOMsg = $31000003;
AN_WBReLayoutToolMenu = $B1010009;
// DiskCopy
AN_DiskCopy = $32000000;
// toolkit for Intuition
AN_GadTools = $33000000;
// System utility library
AN_UtilityLib = $34000000;
// For use by any application that needs it
AN_Unknown = $35000000;
type
TAlertMessage = packed record
Message: TMessage; // Message Header
Task: PTask; // connected Task
Version: LongWord; // version of the structure
ID: LongWord; // AlertID
// some more things following, do not assume size of structure
end;
const
VERSION_ALERTMESSAGE = 0;
{ * exec interrupt definitions (V50)
*********************************************************************
* }
type
PInterrupt = ^TInterrupt;
TInterrupt = packed record
is_Node: TNode;
is_Data: APTR;
is_Code: Pointer;
end;
PIntVector = ^TIntVector;
TIntVector = packed record
iv_Data: APTR;
iv_Code: Pointer;
iv_Node: PNode;
end;
PSoftIntList = ^TSoftIntList;
TSoftIntList = packed record
sh_List: TList;
sh_Pad: Word;
end;
const
SIH_PRIMASK = $f0;
INTB_NMI = 15;
INTF_NMI = 1 Shl INTB_NMI;
{ * exec semaphore definitions (V50)
*********************************************************************
* }
{ *
* Shouldn't be available public..
* }
type
PSemaphoreRequest = ^TSemaphoreRequest;
TSemaphoreRequest = packed record
sr_Link : TMinNode;
sr_Waiter: PTask;
end;
PSignalSemaphore = ^TSignalSemaphore;
TSignalSemaphore = packed record
ss_Link : TNode;
ss_NestCount : SmallInt;
ss_WaitQueue : TMinList;
ss_MultipleLink: TSemaphoreRequest;
ss_Owner : PTask;
ss_QueueCount : SmallInt;
end;
PSemaphoreMessage = ^TSemaphoreMessage;
TSemaphoreMessage = packed record
ssm_Message : TMessage;
ssm_Semaphore: PSignalSemaphore;
end;
const
SM_SHARED = 1;
SM_EXCLUSIVE = 0;
{ * exec machine definitions (V50)
*********************************************************************
* }
const
MACHINE_M68k = $0;
MACHINE_PPC = $1;
MACHINE_NO = $ffffffff;
{ * exec library definitions (V50)
*********************************************************************
* }
const
LIB_VECTSIZE = 6;
LIB_RESERVED = 4;
LIB_BASE = -LIB_VECTSIZE;
LIB_USERDEF = LIB_BASE - (LIB_RESERVED * LIB_VECTSIZE);
LIB_NONSTD = LIB_USERDEF;
LIB_OPEN = -6;
LIB_CLOSE = -12;
LIB_EXPUNGE = -18;
LIB_EXTFUNC = -24;
LIB_GETQUERYATTR = -24; { * LIBF_QUERY * }
type
PLibrary = ^TLibrary;
TLibrary = packed record
lib_Node : TNode;
lib_Flags : Byte;
lib_pad : Byte;
lib_NegSize : Word;
lib_PosSize : Word;
lib_Version : Word;
lib_Revision: Word;
lib_IdString: PChar;
lib_Sum : LongWord;
lib_OpenCnt : Word;
end;
const
LIBF_SUMMING = 1 Shl 0;
LIBF_CHANGED = 1 Shl 1;
LIBF_SUMUSED = 1 Shl 2;
LIBF_DELEXP = 1 Shl 3;
// private
LIBF_RAMLIB = 1 Shl 4;
// Needs to be set if the GetQueryAttr function is legal
LIBF_QUERYINFO = 1 Shl 5;
// The remaining bits are reserved and aren`t allowed to be touched
const
// NewSetFunction extensions
SETFUNCTAG_Dummy = TAG_USER +$01000000;
SETFUNCTAG_MACHINE = SETFUNCTAG_Dummy + $1; // Set the machine type of the function Default is 68k
SETFUNCTAG_TYPE = SETFUNCTAG_Dummy + $2; // Function type specifier
SETFUNCTAG_IDNAME = SETFUNCTAG_Dummy + $3; // ID String
SETFUNCTAG_DELETE = SETFUNCTAG_Dummy + $4; // Set to TRUE if the replaced function will never be used again.
SETFUNCTYPE_NORMAL = 0; // Save Emulation PPC Registers, Call Function, Restore Emulation PPC Registers, REG_D0 = Result
SETFUNCTYPE_QUICK = 1; // Call Function, Must use the global register settings of the emulation, REG_D0 = Result
{ Save Emulation PPC Registers, Call Function, Restore Emulation PPC Registers
No Result, Needed to replace functions like, forbid,obtainsemaphores which are
defined as trashing no registers}
SETFUNCTYPE_NORMALNR = 2;
{ Call Function, Must use the global register settings of the emulation
No Result, Needed to replace functions like forbid,obtainsemaphores which are
defined as trashing no registers }
SETFUNCTYPE_QUICKNR = 3;
SETFUNCTYPE_NORMALSR = 4;
SETFUNCTYPE_NORMALSRNR = 5;
SETFUNCTYPE_NORMALD0_D1 = 6;
SETFUNCTYPE_NORMALRESTORE = 7;
SETFUNCTYPE_SYSTEMV = 8;
SETFUNCTYPE_NORMALD0D1SR = 9;
SETFUNCTYPE_NORMALD0D1A0A1SR = 10;
// CreateLibrary extensions
LIBTAG_BASE = TAG_USER + $01000100;
LIBTAG_FUNCTIONINIT = LIBTAG_BASE+$0; // Function/Vector Array
LIBTAG_STRUCTINIT = LIBTAG_BASE+$1; // Struct Init
LIBTAG_LIBRARYINIT = LIBTAG_BASE+$2; // Library Init
LIBTAG_MACHINE = LIBTAG_BASE+$3; // Init Code Type
LIBTAG_BASESIZE = LIBTAG_BASE+$4; // Library Base Size
LIBTAG_SEGLIST = LIBTAG_BASE+$5; // SegList Ptr
LIBTAG_PRI = LIBTAG_BASE+$6; // Library Priority
LIBTAG_TYPE = LIBTAG_BASE+$7; // Library Type..Library,Device,Resource,whatever
LIBTAG_VERSION = LIBTAG_BASE+$8; // Library Version (LongWord)
LIBTAG_FLAGS = LIBTAG_BASE+$9; // Library Flags
LIBTAG_NAME = LIBTAG_BASE+$a; // Library Name
LIBTAG_IDSTRING = LIBTAG_BASE+$b; // Library IDString
{ AddDevice(),AddLibrary(),AddResource()..
depends on LibNode.ln_Type field which can be set by some Init function, Struct Scripts
or LIBTAG_TYPE. If you set LIBTAG_PUBLIC the library is added to the right system list.}
LIBTAG_PUBLIC = LIBTAG_BASE+$c;
LIBTAG_REVISION = (LIBTAG_BASE+$d); // Library Revision (LongWord)
LIBTAG_QUERYINFO = (LIBTAG_BASE+$e); // Library QueryInfo Flag (Boolean)
type
// Private don`t touch...floating design
PFuncEntry = ^TFuncEntry;
TFuncEntry = packed record
EmulLibEntry : TEmulLibEntry;
OldFunction : Pointer; { * Needed for bookkeeping * }
end;
PFuncOldEntry = ^TFuncOldEntry;
TFuncOldEntry = packed record
Command : Word;
FuncEntry: PFuncEntry;
end;
// EmulLibEntry.Extension
const
FUNCENTRYEXTF_LIBRARY = $1; // Entry created by the OS
FUNCENTRYEXTF_SETFUNCTION = $2; // Entry created by SetFunction, otherwise MakeFunction
{ *
* Functionarray first ULONG ID defines the format
* of the functionarray for MakeFunctions()/MakeLibrary().
*
* If there`s not such id the functionarray is a
* 32Bit 68k function ptr array.
* (LongWord) $ffffffff stops it
* }
{ * 68k 16bit relative functionarray ptrs
* (Word) $ffff stops it
* }
FUNCARRAY_16BIT_OLD = $ffffffff;
{ * PPC 32bit functionarray ptrs
* (ULONG) $ffff stops it
* }
FUNCARRAY_32BIT_NATIVE = $fffefffe;
{ * Starts a functionarray block.
* This way it`s possible to mix 68k and PPC
* function definitions.
* BASE:
* FUNCTIONARRAY_BEGIN
* FUNCARRAY_32BIT_NATIVE
* FUNC0
* FUNC1
* .
* FUNCn
* $ffffffff
* FUNCn+1 (No ID->32Bit 68k)
* FUNCn+2
* .
* FUNCm
* $ffffffff
* FUNCARRAY_16BIT_OLD
* FUNCm+1-BASE
* FUNCm+2-BASE
* .
* FUNCo-BASE
* $ffff
* FUNCTIONARRAY_END
* }
FUNCARRAY_BEGIN = $fffdfffd;
{ * Ends a functionarray block.
* }
FUNCARRAY_END = $fffcfffc;
{ * PPC 32bit Quick functionarray ptrs.
* These functions must comply to the emulation's
* register layout which is defined inside the
* emul/emulregs.h. That means the register layout
* MUST also be valid during interrupts/task switches.
* You can't just destroy A7(r31), SR or PC.
*
* You shouldn't use this for any normal code
* as there's no real reason to do so. If you
* really think you need to use it please ask
* us first on the dev mailinglist.
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_QUICK_NATIVE = $fffbfffb;
{ * PPC 32bit QuickNR(No Result) functionarray ptrs
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_QUICKNR_NATIVE = $fffafffa;
{ * PPC 32bit no result functionarray ptrs
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_NR_NATIVE = $fff9fff9;
{ * PPC 32bit SR functionarray ptrs
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_SR_NATIVE = $fff8fff8;
{ * PPC 32bit SR(no result) functionarray ptrs
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_SRNR_NATIVE = $fff7fff7;
{ * PPC 32bit D0_D1 functionarray ptrs
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_D0D1_NATIVE = $fff6fff6;
{ * PPC 32bit Restore1 functionarray ptrs
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_RESTORE_NATIVE = $fff5fff5;
{ * PPC 32bit SystemV ABI entry
* these function entries DON'T comply
* to the amiga register modell REG_D0-A6
* but comply to the PPC SystemV ABI so
* you can directly use PPC C Argument
* parsing. That way you're also not limited
* with the register count.
* Such library functions can't be used
* by 68k emulation, so you can only use
* them for new code.
* As we allow these new functions to be
* used with old functions we keep the
* 6 bytes function entry steps in the library.
* Layout is
*
* CODE_JMP, &FuncEntry ; Old Entry
* CODE_ILLEGAL, Function ; SystemV ABI Entry
*
*
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_SYSTEMV = $fff4fff4;
{ * PPC 32bit D0D1SR functionarray ptrs
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_D0D1SR_NATIVE = $fff3fff3;
{ * PPC 32bit D0D1A0A1SR functionarray ptrs
* (ULONG) $ffffffff stops it
* }
FUNCARRAY_32BIT_D0D1A0A1SR_NATIVE = $fff2fff2;
{ * exec device definitions (V50)
*********************************************************************
* }
type
PDevice = ^TDevice;
TDevice = packed record
dd_Library: TLibrary;
end;
type
PUnit = ^TUnit;
TUnit = packed record
unit_MsgPort: TMsgPort;
unit_flags : Byte;
unit_pad : Byte;
unit_OpenCnt: Word;
end;
const
UNITF_ACTIVE = 1 Shl 0;
UNITF_INTASK = 1 Shl 1;
{ * exec io definitions (V50)
*********************************************************************
* }
type
PIORequest = ^TIORequest;
TIORequest = packed record
io_Message: TMessage;
io_Device : PDevice;
io_Unit : PUnit;
io_Command: Word;
io_Flags : Byte;
io_Error : ShortInt;
end;
type
PIOStdReq = ^TIOStdReq;
TIOStdReq = packed record
io_Message: TMessage;
io_Device : PDevice;
io_Unit : PUnit;
io_Command: Word;
io_Flags : Byte;
io_Error : ShortInt;
io_Actual : DWord;
io_Length : DWord;
io_Data : Pointer;
io_Offset : DWord;
end;
const
DEV_BEGINIO = -30;
DEV_ABORTIO = -36;
IOB_QUICK = 0;
IOF_QUICK = 1 Shl IOB_QUICK;
CMD_INVALID = 0;
CMD_RESET = 1;
CMD_READ = 2;
CMD_WRITE = 3;
CMD_UPDATE = 4;
CMD_CLEAR = 5;
CMD_STOP = 6;
CMD_START = 7;
CMD_FLUSH = 8;
CMD_NONSTD = 9;
{ * exec include (V50)
*********************************************************************
* }
const
CPUTBSTACKTRACECOUNT = 16;
type
PExecBase = ^TExecBase;
TExecBase = packed record
LIbNode : TLibrary;
SoftVer : Word;
LowMemChkSum: SmallInt;
ChkBase : LongWord;
ColdCapture : APTR;
CoolCapture : APTR;
WarmCapture : APTR;
SysStkUpper : APTR;
SysStkLower : APTR;
MaxLocMem : LongWord;
DebugEntry : APTR;
DebugData : APTR;
AlertData : APTR;
MaxExtMem : APTR;
ChkSum : Word;
IntVects : Array[0..15] Of TIntVector;
ThisTask : PTask;
IdleCount : LongWord;
DispCount : LongWord;
Quantum : Word;
Elapsed : Word;
SysFlags : Word;
IDNestCnt : ShortInt;
TDNestCnt : ShortInt;
AttnFlags : Word;
AttnResched : Word;
ResModules : APTR;
TaskTrapCode : APTR;
TaskExceptCode: APTR;
TaskExitCode : APTR;
TaskSigAlloc : LongWord;
TaskTrapAlloc : Word;
MemList : TList;
ResourceList: TList;
DeviceList : TList;
IntrList : TList;
LibList : TList;
PortList : TList;
TaskReady : TList;
TaskWait : TList;
SoftInts : Array[0..4] Of TSoftIntList;
LastAlert : Array[0..3] Of LongInt;
VBlankFrequency : Byte;
PowerSupplyFrequency: Byte;
SemaphoreList : TList;
KickMemPtr : APTR;
KickTagPtr : APTR;
KickCheckSum : APTR;
ex_Pad0 : Word;
ex_LaunchPoint : LongWord;
ex_RamLibPrivate : APTR;
ex_EClockFrequency : LongWord;
ex_CacheControl : LongWord;
ex_TaskID : LongWord;
{ * New ABox Emulation Entries
* }
ex_EmulHandleSize : LongWord; { * PPC EmulHandleSize..*private* * }
ex_PPCTrapMsgPort : PMsgPort; { * PPC ABox Exception MsgPort..*private* * }
ex_Reserved1 : Array[0..2] Of LongWord;
ex_MMULock : APTR;
ex_PatchPool : APTR; { * PatchPool Ptr needed by SetFunction..*private* * }
ex_PPCTaskExitCode : APTR; { * PPC Task exit function * }
ex_DebugFlags : LongWord; { * Exec Debug Flags..*private* * }
ex_MemHandlers : TMinList;
ex_MemHandler : APTR;
end;
{ *
* Outdated 68k cpu informations
*
* }
const
AFB_68010 = 0;
AFB_68020 = 1;
AFB_68030 = 2;
AFB_68040 = 3;
AFB_68881 = 4;
AFB_68882 = 5;
AFB_FPU40 = 6;
AFB_68060 = 7;
AFB_PRIVATE = 15;
AFF_68010 = 1 Shl AFB_68010;
AFF_68020 = 1 Shl AFB_68020;
AFF_68030 = 1 Shl AFB_68030;
AFF_68040 = 1 Shl AFB_68040;
AFF_68881 = 1 Shl AFB_68881;
AFF_68882 = 1 Shl AFB_68882;
AFF_FPU40 = 1 Shl AFB_FPU40;
AFF_68060 = 1 Shl AFB_68060;
AFF_PRIVATE = 1 Shl AFB_PRIVATE;
{ *
* Outdated 68k cache functionality
* Mostly without function.
* }
const
CACRF_EnableI = 1 Shl 0;
CACRF_FreezeI = 1 Shl 1;
CACRF_ClearI = 1 Shl 3;
CACRF_IBE = 1 Shl 4;
CACRF_EnableD = 1 Shl 8;
CACRF_FreezeD = 1 Shl 9;
CACRF_ClearD = 1 Shl 11;
CACRF_DBE = 1 Shl 12;
CACRF_WriteAllocate = 1 Shl 13;
CACRF_EnableE = 1 Shl 30;
CACRF_CopyBack = 1 Shl 31;
DMA_Continue = 1 Shl 1;
DMA_NoModify = 1 Shl 2;
DMA_ReadFromRAM = 1 Shl 3;
SB_SAR = 15;
SB_TQE = 14;
SB_SINT = 13;
SF_SAR = 1 Shl SB_SAR;
SF_TQE = 1 Shl SB_TQE;
SF_SINT = 1 Shl SB_SINT;
{ ****** Debug Flags...(don`t depend on them) ********** }
const
EXECDEBUGF_INITRESIDENT = $1;
EXECDEBUGF_INITCODE = $2;
EXECDEBUGF_FINDRESIDENT = $4;
EXECDEBUGF_CREATELIBRARY = $10;
EXECDEBUGF_SETFUNCTION = $20;
EXECDEBUGF_NEWSETFUNCTION = $40;
EXECDEBUGF_CHIPRAM = $80;
EXECDEBUGF_ADDTASK = $100;
EXECDEBUGF_REMTASK = $200;
EXECDEBUGF_GETTASKATTR = $400;
EXECDEBUGF_SETTASKATTR = $800;
EXECDEBUGF_EXCEPTHANDLER = $1000;
EXECDEBUGF_ADDDOSNODE = $2000;
EXECDEBUGF_PCI = $4000;
EXECDEBUGF_RAMLIB = $8000;
EXECDEBUGF_NOLOGSERVER = $10000;
EXECDEBUGF_NOLOGWINDOW = $20000;
{ *
* "env:MorphOS/LogPath" contains the logfile path,
* If not specified it`s using "ram:.morphoslog"
* }
EXECDEBUGF_LOGFILE = $40000;
EXECDEBUGF_LOGKPRINTF = $80000;
{ * Memory Tracking Flags
* }
EXECDEBUGF_PERMMEMTRACK = $100000;
EXECDEBUGF_MEMTRACK = $200000;
{ * CyberGuardPPC Flags
* }
EXECDEBUGF_CYBERGUARDDEADLY = $400000;
{ * PPCLib Flags
* }
EXECDEBUGF_LOADSEG = $01000000;
EXECDEBUGF_UNLOADSEG = $02000000;
EXECDEBUGF_PPCSTART = $04000000;
{ * UserFlags
* }
{ *
* Enables debug output for cybergraphx
* }
const
EXECDEBUGF_CGXDEBUG = $08000000;
{ *
* Should be used to control user LibInit/DevInit Debug output
* }
EXECDEBUGF_INIT = $40000000;
{ *
* Should be used to control logging
* }
EXECDEBUGF_LOG = $80000000;
{ *
* Execbase list IDs
* }
EXECLIST_DEVICE = 0;
EXECLIST_INTERRUPT = 1;
EXECLIST_LIBRARY = 2;
EXECLIST_MEMHANDLER = 3;
EXECLIST_MEMHEADER = 4;
EXECLIST_PORT = 5;
EXECLIST_RESOURCE = 6;
EXECLIST_SEMAPHORE = 7;
EXECLIST_TASK = 8;
{ *
* Execnotify hook message
* }
type
PExecNotifyMessage = ^TExecNotifyMessage;
TExecNotifyMessage = packed record
MType : LongWord;
Flags : LongWord;
Extra : LongWord;
Extension: PTagItem;
end;
const
EXECNOTIFYF_REMOVE = 1 Shl 0; { * if clear, is ADD * }
EXECNOTIFYF_POST = 1 Shl 1; { * if clear, is PRE * }
{ *
* AddExecNodeTagList tags
* }
const
SAL_Dummy = TAG_USER + 1000;
SAL_Type = SAL_Dummy + 1;
SAL_Priority = SAL_Dummy + 2;
SAL_Name = SAL_Dummy + 3;
// exec rawfmt (V50)
RAWFMTFUNC_STRING = 0; // Used to act like sprintf
RAWFMTFUNC_SERIAL = 1; // Used to act like kprintf
RAWFMTFUNC_COUNT = 2; // Used to count the chars needed. PutChData = PLongWord to the counter
// exec system definitions (V50)
SYSTEMINFOTYPE_SYSTEM = $0;
SYSTEMINFOTYPE_MACHINE = $1;
SYSTEMINFOTYPE_PPC_CPUVERSION = $2;
SYSTEMINFOTYPE_PPC_CPUREVISION = $3;
SYSTEMINFOTYPE_PPC_CPUCLOCK = $4;
SYSTEMINFOTYPE_PPC_BUSCLOCK = $5;
SYSTEMINFOTYPE_PPC_ICACHEL1SIZE = $10;
SYSTEMINFOTYPE_PPC_ICACHEL1LINES = $11;
SYSTEMINFOTYPE_PPC_ICACHEL1LINESIZE = $12;
SYSTEMINFOTYPE_PPC_DCACHEL1SIZE = $13;
SYSTEMINFOTYPE_PPC_DCACHEL1LINES = $14;
SYSTEMINFOTYPE_PPC_DCACHEL1LINESIZE = $15;
SYSTEMINFOTYPE_PPC_CACHEL1TYPE = $16;
SYSTEMINFOTYPE_PPC_CACHEL1FLAGS = $17;
SYSTEMINFOTYPE_PPC_ICACHEL2SIZE = $20;
SYSTEMINFOTYPE_PPC_ICACHEL2LINES = $21;
SYSTEMINFOTYPE_PPC_ICACHEL2LINESIZE = $22;
SYSTEMINFOTYPE_PPC_DCACHEL2SIZE = $23;
SYSTEMINFOTYPE_PPC_DCACHEL2LINES = $24;
SYSTEMINFOTYPE_PPC_DCACHEL2LINESIZE = $25;
SYSTEMINFOTYPE_PPC_CACHEL2TYPE = $26;
SYSTEMINFOTYPE_PPC_CACHEL2FLAGS = $27;
SYSTEMINFOTYPE_PPC_ICACHEL3SIZE = $30;
SYSTEMINFOTYPE_PPC_ICACHEL3LINES = $31;
SYSTEMINFOTYPE_PPC_ICACHEL3LINESIZE = $32;
SYSTEMINFOTYPE_PPC_DCACHEL3SIZE = $33;
SYSTEMINFOTYPE_PPC_DCACHEL3LINES = $34;
SYSTEMINFOTYPE_PPC_DCACHEL3LINESIZE = $35;
SYSTEMINFOTYPE_PPC_CACHEL3TYPE = $36;
SYSTEMINFOTYPE_PPC_CACHEL3FLAGS = $37;
SYSTEMINFOTYPE_PPC_TLBENTRIES = $40;
SYSTEMINFOTYPE_PPC_TLBSETS = $41;
SYSTEMINFOTYPE_PPC_FPU = $50; // PowerPC has a FPU
SYSTEMINFOTYPE_PPC_ALTIVEC = $51; // PowerPC has an Altivec unit
SYSTEMINFOTYPE_PPC_PERFMONITOR = $52; // PowerPC has performance measurement cpu extension
SYSTEMINFOTYPE_PPC_DATASTREAM = $53; // PowerPC has datastream cpu extension.
SYSTEMINFOTYPE_PPC_RESERVATIONSIZE = $60; // Reservation Size
SYSTEMINFOTYPE_PPC_BUSTICKS = $61; // Bus Timer Ticks
SYSTEMINFOTYPE_PPC_CPUTEMP = $62; // CPU Temperature in 8.24 fixedpoint, degrees celcius
SYSTEMINFOTYPE_PPC_DABR = $63; // PowerPC has Data Address Breakpoint Register (DABR)
SYSTEMINFOTYPE_PAGESIZE = $100; // MMU Page Size
SYSTEMINFOTYPE_CPUCOUNT = $101; // Number of CPUs, doesn't mean they are all supported by exec
// Global Scheduler statistics = exec 50.42;
SYSTEMINFOTYPE_TBCLOCKFREQUENCY = $200;
SYSTEMINFOTYPE_UPTIMETICKS = $201;
SYSTEMINFOTYPE_LASTSECTICKS = $202;
SYSTEMINFOTYPE_RECENTTICKS = $203;
SYSTEMINFOTYPE_CPUTIME = $204;
SYSTEMINFOTYPE_LASTSECCPUTIME = $205;
SYSTEMINFOTYPE_RECENTCPUTIME = $206;
SYSTEMINFOTYPE_VOLUNTARYCSW = $207;
SYSTEMINFOTYPE_INVOLUNTARYCSW = $208;
SYSTEMINFOTYPE_LASTSECVOLUNTARYCSW = $209;
SYSTEMINFOTYPE_LASTSECINVOLUNTARYCSW = $20a;
SYSTEMINFOTYPE_LOADAVG1 = $20b;
SYSTEMINFOTYPE_LOADAVG2 = $20c;
SYSTEMINFOTYPE_LOADAVG3 = $20d;
// Added in exec 50.45
SYSTEMINFOTYPE_TASKSCREATED = $20e;
SYSTEMINFOTYPE_TASKSFINISHED = $20f;
SYSTEMINFOTYPE_LAUNCHTIMETICKS = $210;
SYSTEMINFOTYPE_LAUNCHTIMETICKS1978 = $211;
SYSTEMINFOTYPE_TASKSRUNNING = $212;
SYSTEMINFOTYPE_TASKSSLEEPING = $213;
// Added in exec 50.54
SYSTEMINFOTYPE_EMULHANDLESIZE = $217; // read only
SYSTEMINFOTYPE_EXCEPTIONMSGPORT = $218; // The system's global native exception handler's msgport. Is overruled by task's native exception handler msgports.
SYSTEMINFOTYPE_TASKEXITCODE = $219; // The system's global task exit code. Is overruled by a custom exitcode in task generation.
SYSTEMINFOTYPE_TASKEXITCODE_M68K = $21a; // The system's global 68k task exit code. Is overruled by a custom exitcode in task generation.
// Added in exec 50.58
SYSTEMINFOTYPE_EMULATION_START = $230; // emulation area start read only
SYSTEMINFOTYPE_EMULATION_SIZE = $231; // emulation area size read only
SYSTEMINFOTYPE_MODULE_START = $232; // module area address read only
SYSTEMINFOTYPE_MODULE_SIZE = $233; // module area size read only
// Added in exec 50.67
SYSTEMINFOTYPE_EXCEPTIONMSGPORT_68K = $234; // The system's global 68k exception handler's msgport.
// Is overruled by task's native exception 68k handler msgports
// and that's overruled by the task's 68k traphandler
SYSTEMINFOTYPE_ALERTMSGPORT = $235; // The system's global alert handler's msgport.
// Added in exec 50.68
SYSTEMINFOTYPE_VENDOR = $236; // The system vendor string
SYSTEMINFOTYPE_REVISION = $237; // The system revision string
// Added in exec 50.73
SYSTEMINFOTYPE_MAGIC1 = $238; // Magic fields in execbase
SYSTEMINFOTYPE_MAGIC2 = $239;
// Added in exec 51.3
SYSTEMINFOTYPE_MAXHITCOUNT = $23a;
// Added in exec 51.13
SYSTEMINFOTYPE_MAXALERTCOUNT = $23b;
// Added in exec 51.25
SYSTEMINFOTYPE_REGUSER = $23c;
{
Fills 'struct FreeBlocksData' structure, with each struct MemEntry
representing single free block. Normally all free blocks in all memory
headers are scanned, but SYSTEMINFOTAG_MEMHEADER can be used to limit
the scanning to a single memory header. If successfull,
NewGetSystemAttrs return TRUE, and then fbd_NumBlocks contains the
number of struct MemEntry entries filled.
You can also use SYSTEMINFOTAG_HOOK to have your custom hook called
rather than having array being filled. The hook is called within
Forbid() and the forbid must NOT be broken. The hook is called with:
A0 - PHook
A1 - PMemEntry
A2 - PMemHeader
The hook must return success/failure indicator, returning FALSE causes
the NewGetSystemAttrs call to abort instantly and return FALSE.
}
// Added in exec 51.32
SYSTEMINFOTYPE_FREEBLOCKS = $23d;
// Added in exec 51.38
SYSTEMINFOTYPE_CPUNAME = $23e; // CPU name as a string e.g. "603E", "7448", "970FX", "Unknown" read only
SYSTEMINFOTYPE_CPUFAMILYNAME = $23f; // CPU family name as a string e.g. "G1", "G2", "G4", "G5", "Unknown" read only
SYSTEMINFOTAG_DUMMY = TAG_USER + $112000;
SYSTEMINFOTAG_CPUINDEX = SYSTEMINFOTAG_DUMMY + $0;
SYSTEMINFOTAG_MEMHEADER = SYSTEMINFOTAG_DUMMY + $1;
SYSTEMINFOTAG_HOOK = SYSTEMINFOTAG_DUMMY + $2;
function Supervisor(userFunction: Pointer location 'a5'): Cardinal;
SysCall MOS_ExecBase 030;
procedure InitCode(startClass: Cardinal location 'd0';
version : Cardinal location 'd1');
SysCall MOS_ExecBase 072;
procedure InitStruct(initTable: Pointer location 'a1';
memory : Pointer location 'a2';
size : Cardinal location 'd0');
SysCall MOS_ExecBase 078;
function MakeLibrary(funcInit : Pointer location 'a0';
structInit: Pointer location 'a1';
libInit : Pointer location 'a2';
dataSize : Cardinal location 'd0';
segList : Cardinal location 'd1'): PLibrary;
SysCall MOS_ExecBase 084;
procedure MakeFunctions(target : Pointer location 'a0';
functionArray: Pointer location 'a1';
funcDispBase : Pointer location 'a2');
SysCall MOS_ExecBase 090;
function FindResident(name: PChar location 'a1'): PResident;
SysCall MOS_ExecBase 096;
function InitResident(resident: PResident location 'a1';
segList : Cardinal location 'd1'): Pointer;
SysCall MOS_ExecBase 102;
procedure Alert(alertNum: Cardinal location 'd7');
SysCall MOS_ExecBase 108;
procedure Debug(flags: Cardinal location 'd0');
SysCall MOS_ExecBase 114;
procedure Disable;
SysCall MOS_ExecBase 120;
procedure Enable;
SysCall MOS_ExecBase 126;
procedure Forbid;
SysCall MOS_ExecBase 132;
procedure Permit;
SysCall MOS_ExecBase 138;
function SetSR(newSR: Cardinal location 'd0';
mask : Cardinal location 'd1'): Cardinal;
SysCall MOS_ExecBase 144;
function SuperState : Pointer;
SysCall MOS_ExecBase 150;
procedure UserState(sysStack: Pointer location 'd0');
SysCall MOS_ExecBase 156;
function SetIntVector(intNumber: LongInt location 'd0';
interrupt: PInterrupt location 'a1'): PInterrupt;
SysCall MOS_ExecBase 162;
procedure AddIntServer(intNumber: LongInt location 'd0';
interrupt: PInterrupt location 'a1');
SysCall MOS_ExecBase 168;
procedure RemIntServer(intNumber: LongInt location 'd0';
interrupt: PInterrupt location 'a1');
SysCall MOS_ExecBase 174;
procedure Cause(interrupt: PInterrupt location 'a1');
SysCall MOS_ExecBase 180;
function Allocate(freeList: PMemHeader location 'a0';
byteSize: Cardinal location 'd0'): Pointer;
SysCall MOS_ExecBase 186;
procedure Deallocate(freeList : PMemHeader location 'a0';
memoryBlock: Pointer location 'a1';
byteSize : Cardinal location 'd0');
SysCall MOS_ExecBase 192;
{ * Name changed to avoid conflict with heap manager... * }
function execAllocMem(byteSize : Cardinal location 'd0';
requirements: Cardinal location 'd1'): Pointer;
SysCall MOS_ExecBase 198;
function AllocAbs(byteSize: Cardinal location 'd0';
location: Pointer location 'a1'): Pointer;
SysCall MOS_ExecBase 204;
{ * Name changed to avoid conflict with heap manager... * }
procedure execFreeMem(memoryBlock: Pointer location 'a1';
byteSize : Cardinal location 'd0');
SysCall MOS_ExecBase 210;
function AvailMem(requirements: Cardinal location 'd1'): Cardinal;
SysCall MOS_ExecBase 216;
function AllocEntry(entry: PMemList location 'a0'): PMemList;
SysCall MOS_ExecBase 222;
procedure FreeEntry(entry: PMemList location 'a0');
SysCall MOS_ExecBase 228;
{ * Name changed to avoid conflict with other System unit call... * }
procedure execInsert(list: PList location 'a0';
node: PNode location 'a1';
pred: PNode location 'a2');
SysCall MOS_ExecBase 234;
procedure AddHead(list: PList location 'a0';
node: PNode location 'a1');
SysCall MOS_ExecBase 240;
procedure AddTail(list: PList location 'a0';
node: PNode location 'a1');
SysCall MOS_ExecBase 246;
procedure Remove(node: PNode location 'a1');
SysCall MOS_ExecBase 252;
function RemHead(list: PList location 'a0'): PNode;
SysCall MOS_ExecBase 258;
function RemTail(list: PList location 'a0'): PNode;
SysCall MOS_ExecBase 264;
procedure Enqueue(list: PList location 'a0';
node: PNode location 'a1');
SysCall MOS_ExecBase 270;
function FindName(list: PList location 'a0';
name: PChar location 'a1'): PNode;
SysCall MOS_ExecBase 276;
function AddTask(task : PTask location 'a1';
initPC : Pointer location 'a2';
finalPC: Pointer location 'a3'): Pointer;
SysCall MOS_ExecBase 282;
procedure RemTask(task: PTask location 'a1');
SysCall MOS_ExecBase 288;
function FindTask(name: PChar location 'a1'): PTask;
SysCall MOS_ExecBase 294;
function SetTaskPri(task : PTask location 'a1';
priority: LongInt location 'd0'): ShortInt;
SysCall MOS_ExecBase 300;
function SetSignal(newSignals: Cardinal location 'd0';
signalSet : Cardinal location 'd1'): Cardinal;
SysCall MOS_ExecBase 306;
function SetExcept(newSignals: Cardinal location 'd0';
signalSet : Cardinal location 'd1'): Cardinal;
SysCall MOS_ExecBase 312;
function Wait(signalSet: Cardinal location 'd0'): Cardinal;
SysCall MOS_ExecBase 318;
procedure Signal(task : PTask location 'a1';
signalSet: Cardinal location 'd0');
SysCall MOS_ExecBase 324;
function AllocSignal(signalNum: LongInt location 'd0'): ShortInt;
SysCall MOS_ExecBase 330;
procedure FreeSignal(signalNum: LongInt location 'd0');
SysCall MOS_ExecBase 336;
function AllocTrap(trapNum: LongInt location 'd0'): LongInt;
SysCall MOS_ExecBase 342;
procedure FreeTrap(trapNum: LongInt location 'd0');
SysCall MOS_ExecBase 348;
procedure AddPort(port: PMsgPort location 'a1');
SysCall MOS_ExecBase 354;
procedure RemPort(port: PMsgPort location 'a1');
SysCall MOS_ExecBase 360;
procedure PutMsg(port : PMsgPort location 'a0';
message: PMessage location 'a1');
SysCall MOS_ExecBase 366;
function GetMsg(port: PMsgPort location 'a0'): PMessage;
SysCall MOS_ExecBase 372;
procedure ReplyMsg(message : PMessage location 'a1');
SysCall MOS_ExecBase 378;
function WaitPort(port: PMsgPort location 'a0'): PMessage;
SysCall MOS_ExecBase 384;
function FindPort(name: PChar location 'a1'): PMsgPort;
SysCall MOS_ExecBase 390;
procedure AddLibrary(libHandle: PLibrary location 'a1');
SysCall MOS_ExecBase 396;
procedure RemLibrary(libHandle: PLibrary location 'a1');
SysCall MOS_ExecBase 402;
function OldOpenLibrary(libName: PChar location 'a1'): PLibrary;
SysCall MOS_ExecBase 408;
procedure CloseLibrary(libHandle: PLibrary location 'a1');
SysCall MOS_ExecBase 414;
function SetFunction(libHandle : PLibrary location 'a1';
funcOffset : LongInt location 'a0';
newFunction: Pointer location 'd0'): Pointer;
SysCall MOS_ExecBase 420;
procedure SumLibrary(libHandle: PLibrary location 'a1');
SysCall MOS_ExecBase 426;
procedure AddDevice(device: PDevice location 'a1');
SysCall MOS_ExecBase 432;
procedure RemDevice(device: PDevice location 'a1');
SysCall MOS_ExecBase 438;
function OpenDevice(devName : PChar location 'a0';
numunit : Cardinal location 'd0';
ioRequest: pIORequest location 'a1';
flags : Cardinal location 'd1'): ShortInt;
SysCall MOS_ExecBase 444;
procedure CloseDevice(ioRequest: PIORequest location 'a1');
SysCall MOS_ExecBase 450;
function DoIO(ioRequest: PIORequest location 'a1'): ShortInt;
SysCall MOS_ExecBase 456;
procedure SendIO(ioRequest: PIORequest location 'a1');
SysCall MOS_ExecBase 462;
function CheckIO(ioRequest: PIORequest location 'a1'): PIORequest;
SysCall MOS_ExecBase 468;
function WaitIO(ioRequest: PIORequest location 'a1'): ShortInt;
SysCall MOS_ExecBase 474;
procedure AbortIO(ioRequest: PIORequest location 'a1');
SysCall MOS_ExecBase 480;
procedure AddResource(resource: Pointer location 'a1');
SysCall MOS_ExecBase 486;
procedure RemResource(resource: Pointer location 'a1');
SysCall MOS_ExecBase 492;
function OpenResource(resName: PChar location 'a1'): Pointer;
SysCall MOS_ExecBase 498;
procedure RawIOInit;
SysCall MOS_ExecBase 504;
function RawMayGetChar: Char;
SysCall MOS_ExecBase 510;
procedure RawPutChar(d0arg: Char location 'd0');
SysCall MOS_ExecBase 516;
function RawDoFmt(formatString: PChar location 'a0';
dataStream : Pointer location 'a1';
putChProc : Pointer location 'a2';
putChData : Pointer location 'a3'): Pointer;
SysCall MOS_ExecBase 522;
function GetCC: Cardinal;
SysCall MOS_ExecBase 528;
function TypeOfMem(address: Pointer location 'a1'): Cardinal;
SysCall MOS_ExecBase 534;
function Procure(sigSem: PSignalSemaphore location 'a0';
bidMsg: PSemaphoreMessage location 'a1'): Cardinal;
SysCall MOS_ExecBase 540;
procedure Vacate(sigSem: PSignalSemaphore location 'a0';
bidMsg: PSemaphoreMessage location 'a1');
SysCall MOS_ExecBase 546;
function OpenLibrary(libname: PChar location 'a1';
libver : Cardinal location 'd0'): Pointer;
SysCall MOS_ExecBase 552;
procedure InitSemaphore(sigSem: PSignalSemaphore location 'a0');
SysCall MOS_ExecBase 558;
procedure ObtainSemaphore(sigSem: PSignalSemaphore location 'a0');
SysCall MOS_ExecBase 564;
procedure ReleaseSemaphore(sigSem: PSignalSemaphore location 'a0');
SysCall MOS_ExecBase 570;
function AttemptSemaphore(sigSem: PSignalSemaphore location 'a0'): Cardinal;
SysCall MOS_ExecBase 576;
procedure ObtainSemaphoreList(sigSem: PList location 'a0');
SysCall MOS_ExecBase 582;
procedure ReleaseSemaphoreList(sigSem: PList location 'a0');
SysCall MOS_ExecBase 588;
function FindSemaphore(sigSem: PChar location 'a1'): PSignalSemaphore;
SysCall MOS_ExecBase 594;
procedure AddSemaphore(sigSem: PSignalSemaphore location 'a1');
SysCall MOS_ExecBase 600;
procedure RemSemaphore(sigSem: PSignalSemaphore location 'a1');
SysCall MOS_ExecBase 606;
function SumKickData: Cardinal;
SysCall MOS_ExecBase 612;
procedure AddMemList(size : Cardinal location 'd0';
attributes: Cardinal location 'd1';
pri : LongInt location 'd2';
base : Pointer location 'a0';
name : PChar location 'a1');
SysCall MOS_ExecBase 618;
procedure CopyMem(source: Pointer location 'a0';
dest : Pointer location 'a1';
size : Cardinal location 'd0');
SysCall MOS_ExecBase 624;
procedure CopyMemQuick(source: Pointer location 'a0';
dest : Pointer location 'a1';
size : Cardinal location 'd0');
SysCall MOS_ExecBase 630;
procedure CacheClearU;
SysCall MOS_ExecBase 636;
procedure CacheClearE(address: Pointer location 'a0';
length : Cardinal location 'd0';
caches : Cardinal location 'd1');
SysCall MOS_ExecBase 642;
function CacheControl(cacheBits: Cardinal location 'd0';
cacheMask: Cardinal location 'd1'): Cardinal;
SysCall MOS_ExecBase 648;
function CreateIORequest(port: PMsgPort location 'a0';
size: Cardinal location 'd0'): Pointer;
SysCall MOS_ExecBase 654;
procedure DeleteIORequest(iorequest: Pointer location 'a0');
SysCall MOS_ExecBase 660;
function CreateMsgPort: PMsgPort;
SysCall MOS_ExecBase 666;
procedure DeleteMsgPort(port: PMsgPort location 'a0');
SysCall MOS_ExecBase 672;
procedure ObtainSemaphoreShared(sigSem: PSignalSemaphore location 'a0');
SysCall MOS_ExecBase 678;
function AllocVec(byteSize : Cardinal location 'd0';
requirements: Cardinal location 'd1'): Pointer;
SysCall MOS_ExecBase 684;
procedure FreeVec(memoryBlock: Pointer location 'a1');
SysCall MOS_ExecBase 690;
function CreatePool(requirements: Cardinal location 'd0';
puddleSize : Cardinal location 'd1';
threshSize : Cardinal location 'd2'): Pointer;
SysCall MOS_ExecBase 696;
procedure DeletePool(poolHeader: Pointer location 'a0');
SysCall MOS_ExecBase 702;
function AllocPooled(poolHeader: Pointer location 'a0';
memSize : Cardinal location 'd0'): Pointer;
SysCall MOS_ExecBase 708;
function FreePooled(poolHeader: Pointer location 'a0';
memory : Pointer location 'a1';
memSize : Cardinal location 'd0'): Pointer;
SysCall MOS_ExecBase 714;
function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;
SysCall MOS_ExecBase 720;
procedure ColdReboot;
SysCall MOS_ExecBase 726;
procedure StackSwap(newStack: PStackSwapStruct location 'a0');
SysCall MOS_ExecBase 732;
function NewGetTaskAttrsA(Task : PTask location 'a0';
Data : APTR location 'a1';
DataSize: LongWord location 'd0';
TType : LongWord location 'd1';
Tags : PTagItem location 'a2'): LongWord;
SysCall MOS_ExecBase 738;
function NewSetTaskAttrsA(Task : PTask location 'a0';
Data : APTR location 'a1';
DataSize: LongWord location 'd0';
TType : LongWord location 'd1';
Tags : PTagItem location 'a2'): LongWord;
SysCall MOS_ExecBase 744;
function CachePreDMA(address : Pointer location 'a0';
var length: Cardinal location 'a1';
flags : Cardinal location 'd0'): Pointer;
SysCall MOS_ExecBase 762;
procedure CachePostDMA(address : Pointer location 'a0';
var length: Cardinal location 'a1';
flags : Cardinal location 'd0');
SysCall MOS_ExecBase 768;
procedure AddMemHandler(memhand: PInterrupt location 'a1');
SysCall MOS_ExecBase 774;
procedure RemMemHandler(memhand: PInterrupt location 'a1');
SysCall MOS_ExecBase 780;
function ObtainQuickVector(interruptCode: Pointer location 'a0'): Cardinal;
SysCall MOS_ExecBase 786;
function NewSetFunction(libHandle : PLibrary location 'a0';
newfunction: Pointer location 'a1';
offset : LongInt location 'd0';
tags : PTagItem location 'a2'): Pointer;
SysCall MOS_ExecBase 792;
function NewCreateLibrary(Tags: PTagItem location 'a0'): PLibrary;
SysCall MOS_ExecBase 798;
function NewPPCStackSwap(newStack : PStackSwapStruct location 'a0';
sfunction: Pointer location 'a1';
args : PPPCStackSwapArgs location 'a2'): Cardinal;
SysCall MOS_ExecBase 804;
function TaggedOpenLibrary(d0arg: LongInt location 'd0'): Pointer;
SysCall MOS_ExecBase 810;
function ReadGayle: Cardinal;
SysCall MOS_ExecBase 816;
function VNewRawDoFmt(FmtString: PChar;
PutChProc: Pointer;
PutChData: PChar;
args : PChar): PChar;
SysCall BaseSysV MOS_ExecBase 822;
procedure CacheFlushDataArea(Address: Pointer location 'a0';
Size : Cardinal location 'd0');
SysCall MOS_ExecBase 828;
procedure CacheInvalidInstArea(Address: Pointer location 'a0';
Size : Cardinal location 'd0');
SysCall MOS_ExecBase 834;
procedure CacheInvalidDataArea(Address: Pointer location 'a0';
Size : Cardinal location 'd0');
SysCall MOS_ExecBase 840;
procedure CacheFlushDataInstArea(Address: Pointer location 'a0';
Size : Cardinal location 'd0');
SysCall MOS_ExecBase 846;
procedure CacheTrashCacheArea(Address: Pointer location 'a0';
Size : Cardinal location 'd0');
SysCall MOS_ExecBase 852;
function AllocTaskPooled(Size: Cardinal location 'd0'): Pointer;
SysCall MOS_ExecBase 858;
procedure FreeTaskPooled(Address: Pointer location 'a1';
Size : Cardinal location 'd0');
SysCall MOS_ExecBase 864;
function AllocVecTaskPooled(Size: Cardinal location 'd0'): Pointer;
SysCall MOS_ExecBase 870;
procedure FreeVecTaskPooled(Address: Pointer location 'a1');
SysCall MOS_ExecBase 876;
procedure FlushPool(poolHeader: Pointer location 'a0');
SysCall MOS_ExecBase 882;
procedure FlushTaskPool;
SysCall MOS_ExecBase 888;
function AllocVecPooled(poolHeader: APTR location 'a0';
memSize : LongWord location 'd0'): Pointer;
SysCall MOS_ExecBase 894;
function FreeVecPooled(poolHeader: APTR location 'a0';
memory : APTR location 'd0'): Pointer;
SysCall MOS_ExecBase 900;
function NewGetSystemAttrsA(Data : Pointer location 'a0';
DataSize: Cardinal location 'd0';
TType : Cardinal location 'd1';
Tags : PTagItem location 'a1'): Cardinal;
SysCall MOS_ExecBase 906;
function NewSetSystemAttrsA(Data : Pointer location 'a0';
DataSize: Cardinal location 'd0';
TType : Cardinal location 'd1';
Tags : PTagItem location 'a1'): Cardinal;
SysCall MOS_ExecBase 912;
function NewCreateTaskA(Tags: PTagItem location 'a0'): PTask;
SysCall MOS_ExecBase 918;
function AllocateAligned(memHeader : pMemHeader;
byteSize : Cardinal;
alignSize : Cardinal;
alignOffset: Cardinal): Pointer;
SysCall BaseSysV MOS_ExecBase 930;
function AllocMemAligned(byteSize : Cardinal;
attributes : Cardinal;
alignSize : Cardinal;
alignOffset: Cardinal): Pointer;
SysCall BaseSysV MOS_ExecBase 936;
function AllocVecAligned(byteSize : Cardinal;
attributes : Cardinal;
alignSize : Cardinal;
alignOffset: Cardinal): Pointer;
SysCall BaseSysV MOS_ExecBase 942;
procedure AddExecNotify(hook: PHook);
SysCall BaseSysV MOS_ExecBase 948;
procedure RemExecNotify(hook: PHook);
SysCall BaseSysV MOS_ExecBase 954;
function FindExecNode(ttype: Cardinal location 'd0';
name : PChar location 'a0'): PNode;
SysCall MOS_ExecBase 960;
function AddExecNodeA(innode : Pointer location 'a0';
TagItems: PTagItem location 'a1'): Pointer;
SysCall MOS_ExecBase 966;
function AllocVecDMA(byteSize : Cardinal location 'd0';
requirements: Cardinal location 'd1'): Pointer;
SysCall MOS_ExecBase 972;
procedure FreeVecDMA(memoryBlock: Pointer location 'a1');
SysCall MOS_ExecBase 978;
function AllocPooledAligned(poolHeader : Pointer;
byteSize : Cardinal;
alignSize : Cardinal;
alignOffset: Cardinal): Pointer;
SysCall BaseSysV MOS_ExecBase 984;
function AddResident(resident: pResident location 'd0'): LongInt;
SysCall BaseSysV MOS_ExecBase 990;
function FindTaskByPID(processID: Cardinal): PTask;
SysCall BaseSysV MOS_ExecBase 996;
procedure DumpTaskState(Task: PTask location 'a0') syscall MOS_ExecBase 1026;
procedure AddExecNotifyType(Hook: PHook; Type_: LongInt); SysCall BaseSysV MOS_ExecBase 1030;
function ShutdownA(MyTags: PTagItem): LongWord; SysCall BaseSysV MOS_ExecBase 1036;
function AvailPool(PoolHeader: APTR; Flags: LongWord): LongWord; SysCall BaseSysV MOS_ExecBase 1048;
procedure PutMsgHead(Port: PMsgPort; Message: PMessage); SysCall BaseSysV MOS_ExecBase 1060;
function NewGetTaskPIDAttrsA(PID: LongWord location 'd0'; Data: APTR location 'a0'; DataSize: LongWord location 'd1'; Type_: LongWord location 'd2'; Tags: PTagItem location 'a1'): LongWord; SysCall MOS_ExecBase 1068;
function NewSetTaskPIDAttrsA(PID: LongWord location 'd0'; Data: APTR location 'a0'; DataSize: LongWord location 'd1'; Type_: LongWord location 'd2'; Tags: PTagItem location 'a1'): LongWord; SysCall MOS_ExecBase 1074;
function NewGetTaskAttrs(Task: PTask; Data: APTR; DataSize, TType: LongWord; const Tags: array of PtrUInt): LongWord; Inline;
function NewSetTaskAttrs(Task: PTask; Data: APTR; DataSize, TType: Cardinal; const Tags: array of PtrUInt): LongWord; Inline;
function NewCreateLibraryTags(const Tags: array of PtrUInt): PLibrary; inline;
function NewGetSystemAttrs(Data: APTR; DataSize, MyType: LongWord; const Tags: array of PtrUInt): LongWord;
function NewSetSystemAttrs(Data: APTR; DataSize, MyType: LongWord; const Tags: array of PtrUInt): LongWord;
function NewCreateTask(const Tags: array of PtrUInt): PTask; inline;
function AddExecNode(InNode: APTR; const Tags: array of PtrUInt): APTR; inline;
function NewGetTaskPIDAttrs(PID: LongWord; Data: APTR; DataSize, Type_: LongWord; const Tags: array of PtrUInt): LongWord; inline;
function NewSetTaskPIDAttrs(PID: LongWord; Data: APTR; DataSize, Type_: LongWord; const Tags: array of PtrUInt): LongWord; inline;
function CreateExtIO(const Mp: PMsgPort; Size: Integer): PIORequest;
procedure DeleteExtIO(ioReq: PIORequest);
implementation
function NewGetTaskAttrs(Task: PTask; Data: APTR; DataSize, TType: LongWord; const Tags: array of PtrUInt): LongWord; Inline;
begin
NewGetTaskAttrs := NewGetTaskAttrsA(Task, Data, DataSize, TType, @Tags);
end;
function NewSetTaskAttrs(Task: PTask; Data: APTR; DataSize, TType: LongWord; const Tags: array of DWord): LongWord; Inline;
begin
NewSetTaskAttrs := NewSetTaskAttrsA(Task, Data, DataSize, TType, @Tags);
end;
function NewCreateLibraryTags(const Tags: array of PtrUInt): PLibrary; inline;
begin
NewCreateLibraryTags := NewCreateLibrary(@Tags);
end;
function NewGetSystemAttrs(Data: APTR; DataSize: LongWord; MyType: LongWord; const Tags: array of PtrUInt): LongWord;
begin
NewGetSystemAttrs := NewGetSystemAttrsA(Data, DataSize, MyType, @Tags);
end;
function NewSetSystemAttrs(Data: APTR; DataSize: LongWord; MyType: LongWord; const Tags: array of PtrUInt): LongWord;
begin
NewSetSystemAttrs := NewSetSystemAttrsA(Data, DataSize, MyType, @Tags);
end;
function NewCreateTask(const Tags: array of PtrUInt): PTask; inline;
begin
NewCreateTask := NewCreateTaskA(@Tags);
end;
function AddExecNode(InNode: APTR; const Tags: array of PtrUInt): APTR; inline;
begin
AddExecNode := AddExecNodeA(InNode, @Tags);
end;
function NewGetTaskPIDAttrs(PID: LongWord; Data: APTR; DataSize: LongWord; Type_: LongWord; const Tags: array of PtrUInt): LongWord; inline;
begin
NewGetTaskPIDAttrs := NewGetTaskPIDAttrsA(PID, Data, DataSize, Type_, @Tags);
end;
function NewSetTaskPIDAttrs(PID: LongWord; Data: APTR; DataSize: LongWord; Type_: LongWord; const Tags: array of PtrUInt): LongWord; inline;
begin
NewSetTaskPIDAttrs := NewSetTaskPIDAttrsA(PID, Data, DataSize, Type_, @Tags);
end;
function GetEmulHandle: PEmulHandle; assembler; nostackframe;
asm
mr r3,r2
end;
function REG_D0: DWord; assembler; nostackframe;
asm
lwz r3,0(r2)
end;
function REG_D1: DWord; assembler; nostackframe;
asm
lwz r3,4(r2)
end;
function REG_D2: DWord; assembler; nostackframe;
asm
lwz r3,8(r2)
end;
function REG_D3: DWord; assembler; nostackframe;
asm
lwz r3,12(r2)
end;
function REG_D4: DWord; assembler; nostackframe;
asm
lwz r3,16(r2)
end;
function REG_D5: DWord; assembler; nostackframe;
asm
lwz r3,20(r2)
end;
function REG_D6: DWord; assembler; nostackframe;
asm
lwz r3,24(r2)
end;
function REG_D7: DWord; assembler; nostackframe;
asm
lwz r3,28(r2)
end;
function REG_A0: Pointer; assembler; nostackframe;
asm
lwz r3,32(r2)
end;
function REG_A1: Pointer; assembler; nostackframe;
asm
lwz r3,36(r2)
end;
function REG_A2: Pointer; assembler; nostackframe;
asm
lwz r3,40(r2)
end;
function REG_A3: Pointer; assembler; nostackframe;
asm
lwz r3,44(r2)
end;
function REG_A4: Pointer; assembler; nostackframe;
asm
lwz r3,48(r2)
end;
function REG_A5: Pointer; assembler; nostackframe;
asm
lwz r3,52(r2)
end;
function REG_A6: Pointer; assembler; nostackframe;
asm
lwz r3,56(r2)
end;
function REG_A7: Pointer; assembler; nostackframe;
asm
lwz r3,60(r2)
end;
function REG_PC: Pointer; assembler; nostackframe;
asm
lwz r3,64(r2)
end;
function REG_SR: DWord; assembler; nostackframe;
asm
lwz r3,68(r2)
end;
function CreateExtIO(const Mp: PMsgPort; Size: Integer): PIORequest;
begin
CreateExtIO := nil;
if not Assigned(mp) then
Exit;
CreateExtIO := System.AllocMem(Size);
if Assigned(CreateExtIO) then
begin
CreateExtIO^.io_Message.mn_Node.ln_Type := NT_REPLYMSG;
CreateExtIO^.io_Message.mn_ReplyPort := Mp;
CreateExtIO^.io_Message.mn_Length := Size;
end;
end;
procedure DeleteExtIO(ioReq: PIORequest);
begin
if Assigned(ioReq) then
begin
ioReq^.io_Message.mn_Node.ln_Type := Byte(-1);
ioReq^.io_Device := Pointer(-1);
ioReq^.io_Unit := Pointer(-1);
System.FreeMem(ioReq);
end;
end;
begin
ExecBase:=MOS_ExecBase;
end.