path: root/fpcsrc/rtl/amiga/m68k/execf.inc

{
    This file is part of the Free Pascal run time library.
    Copyright (c) 2006 Karoly Balogh

    exec functions (V40) for Amiga/PowerPC

    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.

 **********************************************************************}

function Supervisor(userFunction: Pointer location 'a5'): Cardinal;
SysCall AOS_ExecBase 030;

procedure InitCode(startClass: Cardinal location 'd0';
                   version   : Cardinal location 'd1');
SysCall AOS_ExecBase 072;

procedure InitStruct(initTable: Pointer  location 'a1';
                     memory   : Pointer  location 'a2';
                     size     : Cardinal location 'd0');
SysCall AOS_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 AOS_ExecBase 084;

procedure MakeFunctions(target       : Pointer location 'a0';
                        functionArray: Pointer location 'a1';
                        funcDispBase : Pointer location 'a2');
SysCall AOS_ExecBase 090;

function FindResident(name: PChar location 'a1'): PResident;
SysCall AOS_ExecBase 096;

function InitResident(resident: PResident location 'a1';
                      segList : Cardinal  location 'd1'): Pointer;
SysCall AOS_ExecBase 102;

procedure Alert(alertNum: Cardinal location 'd7');
SysCall AOS_ExecBase 108;

procedure Debug(flags: Cardinal location 'd0');
SysCall AOS_ExecBase 114;

procedure Disable;
SysCall AOS_ExecBase 120;

procedure Enable;
SysCall AOS_ExecBase 126;

procedure Forbid;
SysCall AOS_ExecBase 132;

procedure Permit;
SysCall AOS_ExecBase 138;

function SetSR(newSR: Cardinal location 'd0';
               mask : Cardinal location 'd1'): Cardinal;
SysCall AOS_ExecBase 144;

function SuperState : Pointer;
SysCall AOS_ExecBase 150;

procedure UserState(sysStack: Pointer location 'd0');
SysCall AOS_ExecBase 156;

function SetIntVector(intNumber: LongInt    location 'd0';
                      interrupt: PInterrupt location 'a1'): PInterrupt;
SysCall AOS_ExecBase 162;

procedure AddIntServer(intNumber: LongInt    location 'd0';
                       interrupt: PInterrupt location 'a1');
SysCall AOS_ExecBase 168;

procedure RemIntServer(intNumber: LongInt    location 'd0';
                       interrupt: PInterrupt location 'a1');
SysCall AOS_ExecBase 174;

procedure Cause(interrupt: PInterrupt location 'a1');
SysCall AOS_ExecBase 180;

function Allocate(freeList: PMemHeader location 'a0';
                  byteSize: Cardinal   location 'd0'): Pointer;
SysCall AOS_ExecBase 186;

procedure Deallocate(freeList   : PMemHeader location 'a0';
                     memoryBlock: Pointer    location 'a1';
                     byteSize   : Cardinal   location 'd0');
SysCall AOS_ExecBase 192;

{ * Name changed to avoid conflict with heap manager... * }
function execAllocMem(byteSize    : Cardinal location 'd0';
                      requirements: Cardinal location 'd1'): Pointer;
SysCall AOS_ExecBase 198;

function AllocAbs(byteSize: Cardinal location 'd0';
                  location: Pointer  location 'a1'): Pointer;
SysCall AOS_ExecBase 204;

{ * Name changed to avoid conflict with heap manager... * }
procedure execFreeMem(memoryBlock: Pointer  location 'a1';
                      byteSize   : Cardinal location 'd0');
SysCall AOS_ExecBase 210;

function AvailMem(requirements: Cardinal location 'd1'): Cardinal;
SysCall AOS_ExecBase 216;

function AllocEntry(entry: PMemList location 'a0'): PMemList;
SysCall AOS_ExecBase 222;

procedure FreeEntry(entry: PMemList location 'a0');
SysCall AOS_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 AOS_ExecBase 234;

procedure AddHead(list: PList location 'a0';
                  node: PNode location 'a1');
SysCall AOS_ExecBase 240;

procedure AddTail(list: PList location 'a0';
                  node: PNode location 'a1');
SysCall AOS_ExecBase 246;

procedure Remove(node: PNode location 'a1');
SysCall AOS_ExecBase 252;

function RemHead(list: PList location 'a0'): PNode;
SysCall AOS_ExecBase 258;

function RemTail(list: PList location 'a0'): PNode;
SysCall AOS_ExecBase 264;

procedure Enqueue(list: PList location 'a0';
                  node: PNode location 'a1');
SysCall AOS_ExecBase 270;

function FindName(list: PList location 'a0';
                  name: PChar location 'a1'): PNode;
SysCall AOS_ExecBase 276;

function AddTask(task   : PTask   location 'a1';
                 initPC : Pointer location 'a2';
                 finalPC: Pointer location 'a3'): Pointer;
SysCall AOS_ExecBase 282;

procedure RemTask(task: PTask location 'a1');
SysCall AOS_ExecBase 288;

function FindTask(name: PChar location 'a1'): PTask;
SysCall AOS_ExecBase 294;

function SetTaskPri(task    : PTask   location 'a1';
                    priority: LongInt location 'd0'): ShortInt;
SysCall AOS_ExecBase 300;

function SetSignal(newSignals: Cardinal location 'd0';
                   signalSet : Cardinal location 'd1'): Cardinal;
SysCall AOS_ExecBase 306;

function SetExcept(newSignals: Cardinal location 'd0';
                   signalSet : Cardinal location 'd1'): Cardinal;
SysCall AOS_ExecBase 312;

function Wait(signalSet: Cardinal location 'd0'): Cardinal;
SysCall AOS_ExecBase 318;

procedure Signal(task     : PTask    location 'a1';
                 signalSet: Cardinal location 'd0');
SysCall AOS_ExecBase 324;

function AllocSignal(signalNum: LongInt location 'd0'): ShortInt;
SysCall AOS_ExecBase 330;

procedure FreeSignal(signalNum: LongInt location 'd0');
SysCall AOS_ExecBase 336;

function AllocTrap(trapNum: LongInt location 'd0'): LongInt;
SysCall AOS_ExecBase 342;

procedure FreeTrap(trapNum: LongInt location 'd0');
SysCall AOS_ExecBase 348;

procedure AddPort(port: PMsgPort location 'a1');
SysCall AOS_ExecBase 354;

procedure RemPort(port: PMsgPort location 'a1');
SysCall AOS_ExecBase 360;

procedure PutMsg(port   : PMsgPort location 'a0';
                 message: PMessage location 'a1');
SysCall AOS_ExecBase 366;

function GetMsg(port: PMsgPort location 'a0'): PMessage;
SysCall AOS_ExecBase 372;

procedure ReplyMsg(message : PMessage location 'a1');
SysCall AOS_ExecBase 378;

function WaitPort(port: PMsgPort location 'a0'): PMessage;
SysCall AOS_ExecBase 384;

function FindPort(name: PChar location 'a1'): PMsgPort;
SysCall AOS_ExecBase 390;

procedure AddLibrary(libHandle: PLibrary location 'a1');
SysCall AOS_ExecBase 396;

procedure RemLibrary(libHandle: PLibrary location 'a1');
SysCall AOS_ExecBase 402;

function OldOpenLibrary(libName: PChar location 'a1'): PLibrary;
SysCall AOS_ExecBase 408;

procedure CloseLibrary(libHandle: PLibrary location 'a1');
SysCall AOS_ExecBase 414;

function SetFunction(libHandle  : PLibrary location 'a1';
                     funcOffset : LongInt  location 'a0';
                     newFunction: Pointer  location 'd0'): Pointer;
SysCall AOS_ExecBase 420;

procedure SumLibrary(libHandle: PLibrary location 'a1');
SysCall AOS_ExecBase 426;

procedure AddDevice(device: PDevice location 'a1');
SysCall AOS_ExecBase 432;

procedure RemDevice(device: PDevice location 'a1');
SysCall AOS_ExecBase 438;

function OpenDevice(devName  : PChar      location 'a0';
                    numunit  : Cardinal   location 'd0';
                    ioRequest: pIORequest location 'a1';
                    flags    : Cardinal   location 'd1'): ShortInt;
SysCall AOS_ExecBase 444;

procedure CloseDevice(ioRequest: PIORequest location 'a1');
SysCall AOS_ExecBase 450;

function DoIO(ioRequest: PIORequest location 'a1'): ShortInt;
SysCall AOS_ExecBase 456;

procedure SendIO(ioRequest: PIORequest location 'a1');
SysCall AOS_ExecBase 462;

function CheckIO(ioRequest: PIORequest location 'a1'): PIORequest;
SysCall AOS_ExecBase 468;

function WaitIO(ioRequest: PIORequest location 'a1'): ShortInt;
SysCall AOS_ExecBase 474;

procedure AbortIO(ioRequest: PIORequest location 'a1');
SysCall AOS_ExecBase 480;

procedure AddResource(resource: Pointer location 'a1');
SysCall AOS_ExecBase 486;

procedure RemResource(resource: Pointer location 'a1');
SysCall AOS_ExecBase 492;

function OpenResource(resName: PChar location 'a1'): Pointer;
SysCall AOS_ExecBase 498;

procedure RawIOInit;
SysCall AOS_ExecBase 504;

function RawMayGetChar: Char;
SysCall AOS_ExecBase 510;

procedure RawPutChar(d0arg: Char location 'd0');
SysCall AOS_ExecBase 516;

function RawDoFmt(formatString: PChar   location 'a0';
                  dataStream  : Pointer location 'a1';
                  putChProc   : Pointer location 'a2';
                  putChData   : Pointer location 'a3'): Pointer;
SysCall AOS_ExecBase 522;

function GetCC: Cardinal;
SysCall AOS_ExecBase 528;

function TypeOfMem(address: Pointer location 'a1'): Cardinal;
SysCall AOS_ExecBase 534;

function Procure(sigSem: PSignalSemaphore  location 'a0';
                 bidMsg: PSemaphoreMessage location 'a1'): Cardinal;
SysCall AOS_ExecBase 540;

procedure Vacate(sigSem: PSignalSemaphore  location 'a0';
                 bidMsg: PSemaphoreMessage location 'a1');
SysCall AOS_ExecBase 546;

function OpenLibrary(libname: PChar    location 'a1';
                     libver : Cardinal location 'd0'): Pointer;
SysCall AOS_ExecBase 552;

procedure InitSemaphore(sigSem: PSignalSemaphore location 'a0');
SysCall AOS_ExecBase 558;

procedure ObtainSemaphore(sigSem: PSignalSemaphore location 'a0');
SysCall AOS_ExecBase 564;

procedure ReleaseSemaphore(sigSem: PSignalSemaphore location 'a0');
SysCall AOS_ExecBase 570;

function AttemptSemaphore(sigSem: PSignalSemaphore location 'a0'): Cardinal;
SysCall AOS_ExecBase 576;

procedure ObtainSemaphoreList(sigSem: PList location 'a0');
SysCall AOS_ExecBase 582;

procedure ReleaseSemaphoreList(sigSem: PList location 'a0');
SysCall AOS_ExecBase 588;

function FindSemaphore(sigSem: PChar location 'a1'): PSignalSemaphore;
SysCall AOS_ExecBase 594;

procedure AddSemaphore(sigSem: PSignalSemaphore location 'a1');
SysCall AOS_ExecBase 600;

procedure RemSemaphore(sigSem: PSignalSemaphore location 'a1');
SysCall AOS_ExecBase 606;

function SumKickData: Cardinal;
SysCall AOS_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 AOS_ExecBase 618;

procedure CopyMem(source: Pointer  location 'a0';
                  dest  : Pointer  location 'a1';
                  size  : Cardinal location 'd0');
SysCall AOS_ExecBase 624;

procedure CopyMemQuick(source: Pointer  location 'a0';
                       dest  : Pointer  location 'a1';
                       size  : Cardinal location 'd0');
SysCall AOS_ExecBase 630;

procedure CacheClearU;
SysCall AOS_ExecBase 636;

procedure CacheClearE(address: Pointer  location 'a0';
                      length : Cardinal location 'd0';
                      caches : Cardinal location 'd1');
SysCall AOS_ExecBase 642;

function CacheControl(cacheBits: Cardinal location 'd0';
                      cacheMask: Cardinal location 'd1'): Cardinal;
SysCall AOS_ExecBase 648;

function CreateIORequest(port: PMsgPort location 'a0';
                         size: Cardinal location 'd0'): Pointer;
SysCall AOS_ExecBase 654;

procedure DeleteIORequest(iorequest: Pointer location 'a0');
SysCall AOS_ExecBase 660;

function CreateMsgPort: PMsgPort;
SysCall AOS_ExecBase 666;

procedure DeleteMsgPort(port: PMsgPort location 'a0');
SysCall AOS_ExecBase 672;

procedure ObtainSemaphoreShared(sigSem: PSignalSemaphore location 'a0');
SysCall AOS_ExecBase 678;

function AllocVec(byteSize    : Cardinal location 'd0';
                  requirements: Cardinal location 'd1'): Pointer;
SysCall AOS_ExecBase 684;

procedure FreeVec(memoryBlock: Pointer location 'a1');
SysCall AOS_ExecBase 690;

function CreatePool(requirements: Cardinal location 'd0';
                    puddleSize  : Cardinal location 'd1';
                    threshSize  : Cardinal location 'd2'): Pointer;
SysCall AOS_ExecBase 696;

procedure DeletePool(poolHeader: Pointer location 'a0');
SysCall AOS_ExecBase 702;

function AllocPooled(poolHeader: Pointer  location 'a0';
                     memSize   : Cardinal location 'd0'): Pointer;
SysCall AOS_ExecBase 708;

function FreePooled(poolHeader: Pointer  location 'a0';
                    memory    : Pointer  location 'a1';
                    memSize   : Cardinal location 'd0'): Pointer;
SysCall AOS_ExecBase 714;

function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;
SysCall AOS_ExecBase 720;

procedure ColdReboot;
SysCall AOS_ExecBase 726;

procedure StackSwap(newStack: PStackSwapStruct location 'a0');
SysCall AOS_ExecBase 732;

function NewGetTaskAttrsA(Task    : PTask    location 'a0';
                          Data    : Pointer  location 'a1';
                          DataSize: Cardinal location 'd0';
                          TType   : Cardinal location 'd1';
                          Tags    : PTagItem location 'a2'): Cardinal;
SysCall AOS_ExecBase 738;

function NewSetTaskAttrsA(Task    : PTask    location 'a0';
                          Data    : Pointer  location 'a1';
                          DataSize: Cardinal location 'd0';
                          TType   : Cardinal location 'd1';
                          Tags    : PTagItem location 'a2'): Cardinal;
SysCall AOS_ExecBase 744;

function CachePreDMA(address   : Pointer  location 'a0';
                     var length: Cardinal location 'a1';
                     flags     : Cardinal location 'd0'): Pointer;
SysCall AOS_ExecBase 762;

procedure CachePostDMA(address   : Pointer  location 'a0';
                       var length: Cardinal location 'a1';
                       flags     : Cardinal location 'd0');
SysCall AOS_ExecBase 768;

procedure AddMemHandler(memhand: PInterrupt location 'a1');
SysCall AOS_ExecBase 774;

procedure RemMemHandler(memhand: PInterrupt location 'a1');
SysCall AOS_ExecBase 780;

function ObtainQuickVector(interruptCode: Pointer location 'a0'): Cardinal;
SysCall AOS_ExecBase 786;

function NewSetFunction(libHandle  : PLibrary location 'a0';
                        newfunction: Pointer  location 'a1';
                        offset     : LongInt  location 'd0';
                        tags       : PTagItem location 'a2'): Pointer;
SysCall AOS_ExecBase 792;

function NewCreateLibrary(tags: PTagItem location 'a0'): PLibrary;
SysCall AOS_ExecBase 798;

function TaggedOpenLibrary(d0arg: LongInt location 'd0'): Pointer;
SysCall AOS_ExecBase 810;

function ReadGayle: Cardinal;
SysCall AOS_ExecBase 816;

procedure CacheFlushDataArea(Address: Pointer  location 'a0';
                             Size   : Cardinal location 'd0');
SysCall AOS_ExecBase 828;

procedure CacheInvalidInstArea(Address: Pointer  location 'a0';
                               Size   : Cardinal location 'd0');
SysCall AOS_ExecBase 834;

procedure CacheInvalidDataArea(Address: Pointer  location 'a0';
                               Size   : Cardinal location 'd0');
SysCall AOS_ExecBase 840;

procedure CacheFlushDataInstArea(Address: Pointer  location 'a0';
                                 Size   : Cardinal location 'd0');
SysCall AOS_ExecBase 846;

procedure CacheTrashCacheArea(Address: Pointer  location 'a0';
                              Size   : Cardinal location 'd0');
SysCall AOS_ExecBase 852;

function AllocTaskPooled(Size: Cardinal location 'd0'): Pointer;
SysCall AOS_ExecBase 858;

procedure FreeTaskPooled(Address: Pointer  location 'a1';
                         Size   : Cardinal location 'd0');
SysCall AOS_ExecBase 864;

function AllocVecTaskPooled(Size: Cardinal location 'd0'): Pointer;
SysCall AOS_ExecBase 870;

procedure FreeVecTaskPooled(Address: Pointer location 'a1');
SysCall AOS_ExecBase 876;

procedure FlushPool(poolHeader: Pointer location 'a0');
SysCall AOS_ExecBase 882;

procedure FlushTaskPool;
SysCall AOS_ExecBase 888;

function AllocVecPooled(poolHeader: Pointer  location 'a0';
                        memSize   : Cardinal location 'd0'): Pointer;
SysCall AOS_ExecBase 894;

function NewGetSystemAttrsA(Data    : Pointer  location 'a0';
                            DataSize: Cardinal location 'd0';
                            TType   : Cardinal location 'd1';
                            Tags    : PTagItem location 'a1'): Cardinal;
SysCall AOS_ExecBase 906;

function NewSetSystemAttrsA(Data    : Pointer  location 'a0';
                            DataSize: Cardinal location 'd0';
                            TType   : Cardinal location 'd1';
                            Tags    : PTagItem location 'a1'): Cardinal;
SysCall AOS_ExecBase 912;

function NewCreateTaskA(Tags: PTagItem location 'a0'): PTask;
SysCall AOS_ExecBase 918;


function FindExecNode(ttype: Cardinal location 'd0';
                      name : PChar    location 'a0'): PNode;
SysCall AOS_ExecBase 960;

function AddExecNodeA(innode  : Pointer  location 'a0';
                      TagItems: PTagItem location 'a1'): Pointer;
SysCall AOS_ExecBase 966;

function AllocVecDMA(byteSize    : Cardinal location 'd0';
                     requirements: Cardinal location 'd1'): Pointer;
SysCall AOS_ExecBase 972;

procedure FreeVecDMA(memoryBlock: Pointer location 'a1');
SysCall AOS_ExecBase 978;