Amiga: syscall-fied exec and intuition.library units

git-svn-id: trunk@28584 -

packages/amunits/src/coreunits/exec.pas

@@ -1181,136 +1181,136 @@ CONST
 
 
 
-PROCEDURE AbortIO(ioRequest : pIORequest);
-PROCEDURE AddDevice(device : pDevice);
-PROCEDURE AddHead(list : pList; node : pNode);
-PROCEDURE AddIntServer(intNumber : LONGINT; interrupt_ : pInterrupt);
-PROCEDURE AddLibrary(lib : pLibrary);
-PROCEDURE AddMemHandler(memhand : pInterrupt);
-PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; const name : pCHAR);
-PROCEDURE AddPort(port : pMsgPort);
-PROCEDURE AddResource(resource : POINTER);
-PROCEDURE AddSemaphore(sigSem : pSignalSemaphore);
-PROCEDURE AddTail(list : pList; node : pNode);
-FUNCTION AddTask(task : pTask;const initPC : POINTER;const finalPC : POINTER) : POINTER;
-PROCEDURE Alert(alertNum : ULONG);
-FUNCTION AllocAbs(byteSize : ULONG; location : POINTER) : POINTER;
-FUNCTION Allocate(freeList : pMemHeader; byteSize : ULONG) : POINTER;
-FUNCTION AllocEntry(entry : pMemList) : pMemList;
-FUNCTION AllocMem(byteSize : ULONG; requirements : ULONG) : POINTER;
-FUNCTION AllocPooled(poolHeader : POINTER; memSize : ULONG) : POINTER;
-FUNCTION AllocSignal(signalNum : LONGINT) : shortint;
-FUNCTION AllocTrap(trapNum : LONGINT) : LONGINT;
-FUNCTION AllocVec(byteSize : ULONG; requirements : ULONG) : POINTER;
-FUNCTION AttemptSemaphore(sigSem : pSignalSemaphore) : BOOLEAN;
-FUNCTION AttemptSemaphoreShared(sigSem : pSignalSemaphore) : ULONG;
-FUNCTION AvailMem(requirements : ULONG) : ULONG;
-PROCEDURE CacheClearE(address : POINTER; length : ULONG; caches : ULONG);
-PROCEDURE CacheClearU;
-FUNCTION CacheControl(cacheBits : ULONG; cacheMask : ULONG) : ULONG;
-PROCEDURE CachePostDMA(const address : POINTER; VAR length : ULONG; flags : ULONG);
-FUNCTION CachePreDMA(const address : POINTER; VAR length : ULONG; flags : ULONG) : POINTER;
-PROCEDURE Cause(interrupt_ : pInterrupt);
-FUNCTION CheckIO(ioRequest : pIORequest) : pIORequest;
-PROCEDURE ChildFree(tid : POINTER);
-PROCEDURE ChildOrphan(tid : POINTER);
-PROCEDURE ChildStatus(tid : POINTER);
-PROCEDURE ChildWait(tid : POINTER);
-PROCEDURE CloseDevice(ioRequest : pIORequest);
-PROCEDURE CloseLibrary(lib : pLibrary);
-PROCEDURE ColdReboot;
-PROCEDURE CopyMem(const source : POINTER; dest : POINTER; size : ULONG);
-PROCEDURE CopyMemQuick(const source : POINTER; dest : POINTER; size : ULONG);
-FUNCTION CreateIORequest(const port : pMsgPort; size : ULONG) : POINTER;
-FUNCTION CreateMsgPort : pMsgPort;
-FUNCTION CreatePool(requirements : ULONG; puddleSize : ULONG; threshSize : ULONG) : POINTER;
-PROCEDURE Deallocate(freeList : pMemHeader; memoryBlock : POINTER; byteSize : ULONG);
-PROCEDURE Debug(flags : ULONG);
-PROCEDURE DeleteIORequest(iorequest : POINTER);
-PROCEDURE DeleteMsgPort(port : pMsgPort);
-PROCEDURE DeletePool(poolHeader : POINTER);
-PROCEDURE Disable;
-FUNCTION DoIO(ioRequest : pIORequest) : shortint;
-PROCEDURE Enable;
-PROCEDURE Enqueue(list : pList; node : pNode);
-PROCEDURE ExecFreeMem(memoryBlock : POINTER; byteSize : ULONG);
-PROCEDURE ExecInsert(list : pList; node : pNode; pred : pNode);
-FUNCTION FindName(list : pList; const name : pCHAR) : pNode;
-FUNCTION FindPort(const name : pCHAR) : pMsgPort;
-FUNCTION FindResident(const name : pCHAR) : pResident;
-FUNCTION FindSemaphore(const sigSem : pCHAR) : pSignalSemaphore;
-FUNCTION FindTask(const name : pCHAR) : pTask;
-PROCEDURE Forbid;
-PROCEDURE FreeEntry(entry : pMemList);
-PROCEDURE FreePooled(poolHeader : POINTER; memory : POINTER; memSize : ULONG);
-PROCEDURE FreeSignal(signalNum : LONGINT);
-PROCEDURE FreeTrap(trapNum : LONGINT);
-PROCEDURE FreeVec(memoryBlock : POINTER);
-FUNCTION GetCC : ULONG;
+PROCEDURE AbortIO(ioRequest : pIORequest location 'a1'); syscall _ExecBase 480;
+PROCEDURE AddDevice(device : pDevice location 'a1'); syscall _ExecBase 432;
+PROCEDURE AddHead(list : pList location 'a0'; node : pNode location 'a1'); syscall _ExecBase 240;
+PROCEDURE AddIntServer(intNumber : LONGINT location 'd0'; interrupt_ : pInterrupt location 'a1'); syscall _ExecBase 168;
+PROCEDURE AddLibrary(lib : pLibrary location 'a1'); syscall _ExecBase 396;
+PROCEDURE AddMemHandler(memhand : pInterrupt location 'a1'); syscall _ExecBase 774;
+PROCEDURE AddMemList(size : ULONG location 'd0'; attributes : ULONG location 'd1'; pri : LONGINT location 'd2'; base : POINTER location 'a0'; const name : pCHAR location 'a1'); syscall _ExecBase 618;
+PROCEDURE AddPort(port : pMsgPort location 'a1'); syscall _ExecBase 354;
+PROCEDURE AddResource(resource : POINTER location 'a1'); syscall _ExecBase 486;
+PROCEDURE AddSemaphore(sigSem : pSignalSemaphore location 'a1'); syscall _ExecBase 600;
+PROCEDURE AddTail(list : pList location 'a0'; node : pNode location 'a1'); syscall _ExecBase 246;
+FUNCTION AddTask(task : pTask location 'a1';const initPC : POINTER location 'a2';const finalPC : POINTER location 'a3') : POINTER; syscall _ExecBase 282;
+PROCEDURE Alert(alertNum : ULONG location 'd7'); syscall _ExecBase 108;
+FUNCTION AllocAbs(byteSize : ULONG location 'd0'; location : POINTER location 'a1') : POINTER; syscall _ExecBase 204;
+FUNCTION Allocate(freeList : pMemHeader location 'a0'; byteSize : ULONG location 'd0') : POINTER; syscall _ExecBase 186;
+FUNCTION AllocEntry(entry : pMemList location 'a0') : pMemList; syscall _ExecBase 222;
+FUNCTION AllocMem(byteSize : ULONG location 'd0'; requirements : ULONG location 'd1') : POINTER; syscall _ExecBase 198;
+FUNCTION AllocPooled(poolHeader : POINTER location 'a0'; memSize : ULONG location 'd0') : POINTER; syscall _ExecBase 708;
+FUNCTION AllocSignal(signalNum : LONGINT location 'd0') : shortint; syscall _ExecBase 330;
+FUNCTION AllocTrap(trapNum : LONGINT location 'd0') : LONGINT; syscall _ExecBase 342;
+FUNCTION AllocVec(byteSize : ULONG location 'd0'; requirements : ULONG location 'd1') : POINTER; syscall _ExecBase 684;
+FUNCTION AttemptSemaphore(sigSem : pSignalSemaphore location 'a0') : LongBool; syscall _ExecBase 576;
+FUNCTION AttemptSemaphoreShared(sigSem : pSignalSemaphore location 'a0') : ULONG; syscall _ExecBase 720;
+FUNCTION AvailMem(requirements : ULONG location 'd1') : ULONG; syscall _ExecBase 216;
+PROCEDURE CacheClearE(address : POINTER location 'a0'; length : ULONG location 'd0'; caches : ULONG location 'd1'); syscall _ExecBase 642;
+PROCEDURE CacheClearU; syscall _ExecBase 636;
+FUNCTION CacheControl(cacheBits : ULONG location 'd0'; cacheMask : ULONG location 'd1') : ULONG; syscall _ExecBase 648;
+PROCEDURE CachePostDMA(const address : POINTER location 'a0'; VAR length : ULONG location 'a1'; flags : ULONG location 'd0'); syscall _ExecBase 768;
+FUNCTION CachePreDMA(const address : POINTER location 'a0'; VAR length : ULONG location 'a1'; flags : ULONG location 'd1') : POINTER; syscall _ExecBase 762;
+PROCEDURE Cause(interrupt_ : pInterrupt location 'a1'); syscall _ExecBase 180;
+FUNCTION CheckIO(ioRequest : pIORequest location 'a1') : pIORequest; syscall _ExecBase 468;
+PROCEDURE ChildFree(tid : POINTER location 'd0'); syscall _ExecBase 738;
+PROCEDURE ChildOrphan(tid : POINTER location 'd0'); syscall _ExecBase 744;
+PROCEDURE ChildStatus(tid : POINTER location 'd0'); syscall _ExecBase 750;
+PROCEDURE ChildWait(tid : POINTER location 'd0'); syscall _ExecBase 756;
+PROCEDURE CloseDevice(ioRequest : pIORequest location 'a1'); syscall _ExecBase 450;
+PROCEDURE CloseLibrary(lib : pLibrary location 'a1'); syscall _ExecBase 414;
+PROCEDURE ColdReboot; syscall _ExecBase 726;
+PROCEDURE CopyMem(const source : POINTER location 'a0'; dest : POINTER location 'a1'; size : ULONG location 'd0'); syscall _ExecBase 624;
+PROCEDURE CopyMemQuick(const source : POINTER location 'a0'; dest : POINTER location 'a1'; size : ULONG location 'd0'); syscall _ExecBase 630;
+FUNCTION CreateIORequest(const port : pMsgPort location 'a0'; size : ULONG location 'd0') : POINTER; syscall _ExecBase 654;
+FUNCTION CreateMsgPort : pMsgPort; syscall _ExecBase 666;
+FUNCTION CreatePool(requirements : ULONG location 'd0'; puddleSize : ULONG location 'd1'; threshSize : ULONG location 'd2') : POINTER; syscall _ExecBase 696;
+PROCEDURE Deallocate(freeList : pMemHeader location 'a0'; memoryBlock : POINTER location 'a1'; byteSize : ULONG location 'd1'); syscall _ExecBase 192;
+PROCEDURE Debug(flags : ULONG location 'd0'); syscall _ExecBase 114;
+PROCEDURE DeleteIORequest(iorequest : POINTER location 'a0'); syscall _ExecBase 660;
+PROCEDURE DeleteMsgPort(port : pMsgPort location 'a0'); syscall _ExecBase 672;
+PROCEDURE DeletePool(poolHeader : POINTER location 'a0'); syscall _ExecBase 702;
+PROCEDURE Disable; syscall _ExecBase 120;
+FUNCTION DoIO(ioRequest : pIORequest location 'a1') : shortint; syscall _ExecBase 456;
+PROCEDURE Enable; syscall _ExecBase 126;
+PROCEDURE Enqueue(list : pList location 'a0'; node : pNode location 'a1'); syscall _ExecBase 270;
+PROCEDURE ExecFreeMem(memoryBlock : POINTER location 'a1'; byteSize : ULONG location 'd0'); syscall _ExecBase 210;
+PROCEDURE ExecInsert(list : pList location 'a0'; node : pNode location 'a1'; pred : pNode location 'a2'); syscall _ExecBase 234;
+FUNCTION FindName(list : pList location 'a0'; const name : pCHAR location 'a1') : pNode; syscall _ExecBase 276;
+FUNCTION FindPort(const name : pCHAR location 'a1') : pMsgPort; syscall _ExecBase 390;
+FUNCTION FindResident(const name : pCHAR location 'a1') : pResident; syscall _ExecBase 096;
+FUNCTION FindSemaphore(const sigSem : pCHAR location 'a1') : pSignalSemaphore; syscall _ExecBase 594;
+FUNCTION FindTask(const name : pCHAR location 'a1') : pTask; syscall _ExecBase 294;
+PROCEDURE Forbid; syscall _ExecBase 132;
+PROCEDURE FreeEntry(entry : pMemList location 'a0'); syscall _ExecBase 228;
+PROCEDURE FreePooled(poolHeader : POINTER location 'a0'; memory : POINTER location 'a1'; memSize : ULONG location 'd0'); syscall _ExecBase 714;
+PROCEDURE FreeSignal(signalNum : LONGINT location 'd0'); syscall _ExecBase 336;
+PROCEDURE FreeTrap(trapNum : LONGINT location 'd0'); syscall _ExecBase 348;
+PROCEDURE FreeVec(memoryBlock : POINTER location 'a1'); syscall _ExecBase 690;
+FUNCTION GetCC : ULONG; syscall _ExecBase 528;
 FUNCTION GetMsg(port : pMsgPort location 'a0') : pMessage; syscall _ExecBase 372;
-PROCEDURE InitCode(startClass : ULONG; version : ULONG);
-FUNCTION InitResident(const resident_ : pResident; segList : ULONG) : POINTER;
-PROCEDURE InitSemaphore(sigSem : pSignalSemaphore);
-PROCEDURE InitStruct(const initTable : POINTER; memory : POINTER; size : ULONG);
-PROCEDURE MakeFunctions(const target : POINTER;const functionArray : POINTER;const funcDispBase :pointer);
-FUNCTION MakeLibrary(const  funcInit : POINTER;const  structInit : POINTER; libInit : tPROCEDURE;dataSize : ULONG; segList : ULONG) : pLibrary;
-FUNCTION ObtainQuickVector(interruptCode : POINTER) : ULONG;
-PROCEDURE ObtainSemaphore(sigSem : pSignalSemaphore);
-PROCEDURE ObtainSemaphoreList(sigSem : pList);
-PROCEDURE ObtainSemaphoreShared(sigSem : pSignalSemaphore);
-FUNCTION OldOpenLibrary(const libName : pCHAR) : pLibrary;
-FUNCTION OpenDevice(const devName : pCHAR; unite : ULONG; ioRequest : pIORequest; flags : ULONG) : shortint;
-FUNCTION OpenLibrary(const libName : pCHAR; version : ULONG) : pLibrary;
-FUNCTION OpenResource(const resName : pCHAR) : POINTER;
-PROCEDURE Permit;
-FUNCTION Procure(sigSem : pSignalSemaphore; bidMsg : pSemaphoreMessage) : BOOLEAN;
-PROCEDURE PutMsg(port : pMsgPort; message : pMessage);
-function RawDoFmt(const formatString : pCHAR;const dataStream : POINTER; putChProc : tPROCEDURE; putChData : POINTER): pointer;
-PROCEDURE ReleaseSemaphore(sigSem : pSignalSemaphore);
-PROCEDURE ReleaseSemaphoreList(sigSem : pList);
-PROCEDURE RemDevice(device : pDevice);
-FUNCTION RemHead(list : pList) : pNode;
-PROCEDURE RemIntServer(intNumber : LONGINT; interrupt_ : pInterrupt);
-PROCEDURE RemLibrary(lib : pLibrary);
-PROCEDURE RemMemHandler(memhand : pInterrupt);
-PROCEDURE Remove(node : pNode);
-PROCEDURE RemPort(port : pMsgPort);
-PROCEDURE RemResource(resource : POINTER);
-PROCEDURE RemSemaphore(sigSem : pSignalSemaphore);
-FUNCTION RemTail(list : pList) : pNode;
-PROCEDURE RemTask(task : pTask);
+PROCEDURE InitCode(startClass : ULONG location 'd0'; version : ULONG location 'd1'); syscall _ExecBase 072;
+FUNCTION InitResident(const resident_ : pResident location 'a1'; segList : ULONG location 'd0') : POINTER; syscall _ExecBase 102;
+PROCEDURE InitSemaphore(sigSem : pSignalSemaphore location 'a0'); syscall _ExecBase 558;
+PROCEDURE InitStruct(const initTable : POINTER location 'a1'; memory : POINTER location 'a2'; size : ULONG location 'd0'); syscall _ExecBase 078;
+PROCEDURE MakeFunctions(const target : POINTER location 'a0';const functionArray : POINTER location 'a1';const funcDispBase :pointer location 'a2'); syscall _ExecBase 090;
+FUNCTION MakeLibrary(const  funcInit : POINTER location 'a0';const  structInit : POINTER location 'a1'; libInit : tPROCEDURE location 'a2';dataSize : ULONG location 'd0'; segList : ULONG location 'd0') : pLibrary; syscall _ExecBase 084;
+FUNCTION ObtainQuickVector(interruptCode : POINTER location 'a0') : ULONG; syscall _ExecBase 786;
+PROCEDURE ObtainSemaphore(sigSem : pSignalSemaphore location 'a0'); syscall _ExecBase 564;
+PROCEDURE ObtainSemaphoreList(sigSem : pList location 'a0'); syscall _ExecBase 582;
+PROCEDURE ObtainSemaphoreShared(sigSem : pSignalSemaphore location 'a0'); syscall _ExecBase 678;
+FUNCTION OldOpenLibrary(const libName : pCHAR location 'a1') : pLibrary; syscall _ExecBase 408;
+FUNCTION OpenDevice(const devName : pCHAR location 'a0'; unite : ULONG location 'd0'; ioRequest : pIORequest location 'a1'; flags : ULONG location 'd1') : shortint; syscall _ExecBase 444;
+FUNCTION OpenLibrary(const libName : pCHAR location 'a1'; version : ULONG location 'd0') : pLibrary; syscall _ExecBase 552;
+FUNCTION OpenResource(const resName : pCHAR location 'a1') : POINTER; syscall _ExecBase 498;
+PROCEDURE Permit; syscall _ExecBase 138;
+FUNCTION Procure(sigSem : pSignalSemaphore location 'a0'; bidMsg : pSemaphoreMessage location 'a1') : LongBool; syscall _ExecBase 540;
+PROCEDURE PutMsg(port : pMsgPort location 'a0'; message : pMessage location 'a1'); syscall _ExecBase 366;
+function RawDoFmt(const formatString : pCHAR location 'a0';const dataStream : POINTER location 'a1'; putChProc : tPROCEDURE location 'a2'; putChData : POINTER location 'a3'): pointer; syscall _ExecBase 522;
+PROCEDURE ReleaseSemaphore(sigSem : pSignalSemaphore location 'a0'); syscall _ExecBase 570;
+PROCEDURE ReleaseSemaphoreList(sigSem : pList location 'a0'); syscall _ExecBase 588;
+PROCEDURE RemDevice(device : pDevice location 'a1'); syscall _ExecBase 438;
+FUNCTION RemHead(list : pList location 'a0') : pNode; syscall _ExecBase 258;
+PROCEDURE RemIntServer(intNumber : LONGINT location 'd0'; interrupt_ : pInterrupt location 'a1'); syscall _ExecBase 174;
+PROCEDURE RemLibrary(lib : pLibrary location 'a1'); syscall _ExecBase 402;
+PROCEDURE RemMemHandler(memhand : pInterrupt location 'a1'); syscall _ExecBase 780;
+PROCEDURE Remove(node : pNode location 'a1'); syscall _ExecBase 252;
+PROCEDURE RemPort(port : pMsgPort location 'a1'); syscall _ExecBase 360;
+PROCEDURE RemResource(resource : POINTER location 'a1'); syscall _ExecBase 492;
+PROCEDURE RemSemaphore(sigSem : pSignalSemaphore location 'a1'); syscall _ExecBase 606;
+FUNCTION RemTail(list : pList location 'a0') : pNode; syscall _ExecBase 264;
+PROCEDURE RemTask(task : pTask location 'a1'); syscall _ExecBase 288;
 PROCEDURE ReplyMsg(message : pMessage location 'a1'); syscall _ExecBase 378;
-PROCEDURE SendIO(ioRequest : pIORequest);
-FUNCTION SetExcept(newSignals : ULONG; signalSet : ULONG) : ULONG;
-FUNCTION SetFunction(lib : pLibrary; funcOffset : LONGINT; newFunction : tPROCEDURE) : POINTER;
-FUNCTION SetIntVector(intNumber : LONGINT;const interrupt_ : pInterrupt) : pInterrupt;
-FUNCTION SetSignal(newSignals : ULONG; signalSet : ULONG) : ULONG;
-FUNCTION SetSR(newSR : ULONG; mask : ULONG) : ULONG;
-FUNCTION SetTaskPri(task : pTask; priority : LONGINT) : shortint;
-PROCEDURE Signal(task : pTask; signalSet : ULONG);
-PROCEDURE StackSwap(newStack : pStackSwapStruct);
-PROCEDURE SumKickData;
-PROCEDURE SumLibrary(lib : pLibrary);
-FUNCTION SuperState : POINTER;
-FUNCTION Supervisor(userFunction : tPROCEDURE) : ULONG;
-FUNCTION TypeOfMem(const address : POINTER) : ULONG;
-PROCEDURE UserState(sysStack : POINTER);
-PROCEDURE Vacate(sigSem : pSignalSemaphore; bidMsg : pSemaphoreMessage);
-FUNCTION Wait(signalSet : ULONG) : ULONG;
-FUNCTION WaitIO(ioRequest : pIORequest) : shortint;
+PROCEDURE SendIO(ioRequest : pIORequest location 'a1'); syscall _ExecBase 462;
+FUNCTION SetExcept(newSignals : ULONG location 'd0'; signalSet : ULONG location 'd1') : ULONG; syscall _ExecBase 312;
+FUNCTION SetFunction(lib : pLibrary location 'a1'; funcOffset : LONGINT location 'a0'; newFunction : tPROCEDURE location 'd0') : POINTER; syscall _ExecBase 420;
+FUNCTION SetIntVector(intNumber : LONGINT location 'd0';const interrupt_ : pInterrupt location 'a1') : pInterrupt; syscall _ExecBase 162;
+FUNCTION SetSignal(newSignals : ULONG location 'd0'; signalSet : ULONG location 'd1') : ULONG; syscall _ExecBase 306;
+FUNCTION SetSR(newSR : ULONG location 'd0'; mask : ULONG location 'd1') : ULONG; syscall _ExecBase 144;
+FUNCTION SetTaskPri(task : pTask location 'a1'; priority : LONGINT location 'd0') : shortint; syscall _ExecBase 300;
+PROCEDURE Signal(task : pTask location 'a1'; signalSet : ULONG location 'd0'); syscall _ExecBase 324;
+PROCEDURE StackSwap(newStack : pStackSwapStruct location 'a0'); syscall _ExecBase 732;
+PROCEDURE SumKickData; syscall _ExecBase 612;
+PROCEDURE SumLibrary(lib : pLibrary location 'a1'); syscall _ExecBase 426;
+FUNCTION SuperState : POINTER; syscall _ExecBase 150;
+FUNCTION Supervisor(userFunction : tPROCEDURE location 'a5') : ULONG; syscall _ExecBase 030;
+FUNCTION TypeOfMem(const address : POINTER location 'a1') : ULONG; syscall _ExecBase 534;
+PROCEDURE UserState(sysStack : POINTER location 'd0'); syscall _ExecBase 156;
+PROCEDURE Vacate(sigSem : pSignalSemaphore location 'a0'; bidMsg : pSemaphoreMessage location 'a1'); syscall _ExecBase 546;
+FUNCTION Wait(signalSet : ULONG location 'd0') : ULONG; syscall _ExecBase 318;
+FUNCTION WaitIO(ioRequest : pIORequest location 'a1') : shortint; syscall _ExecBase 474;
 FUNCTION WaitPort(port : pMsgPort location 'a0') : pMessage; syscall _ExecBase 384;
 
-PROCEDURE NewMinList(minlist : pMinList);
-FUNCTION AVL_AddNode(root : ppAVLNode; node : pAVLNode; func : POINTER) : pAVLNode;
-FUNCTION AVL_RemNodeByAddress(root : ppAVLNode; node : pAVLNode) : pAVLNode;
-FUNCTION AVL_RemNodeByKey(root : ppAVLNode; key : POINTER; func : POINTER) : pAVLNode;
-FUNCTION AVL_FindNode(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode;
-FUNCTION AVL_FindPrevNodeByAddress(CONST node : pAVLNode) : pAVLNode;
-FUNCTION AVL_FindPrevNodeByKey(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode;
-FUNCTION AVL_FindNextNodeByAddress(CONST node : pAVLNode) : pAVLNode;
-FUNCTION AVL_FindNextNodeByKey(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode;
-FUNCTION AVL_FindFirstNode(CONST root : pAVLNode) : pAVLNode;
-FUNCTION AVL_FindLastNode(CONST root : pAVLNode) : pAVLNode;
+PROCEDURE NewMinList(minlist : pMinList location 'a0'); syscall _ExecBase 828;
+FUNCTION AVL_AddNode(root : ppAVLNode location 'a0'; node : pAVLNode location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 852;
+FUNCTION AVL_RemNodeByAddress(root : ppAVLNode location 'a0'; node : pAVLNode location 'a1') : pAVLNode; syscall _ExecBase 858;
+FUNCTION AVL_RemNodeByKey(root : ppAVLNode location 'a0'; key : POINTER location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 864;
+FUNCTION AVL_FindNode(CONST root : pAVLNode location 'a0'; key : POINTER location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 870;
+FUNCTION AVL_FindPrevNodeByAddress(CONST node : pAVLNode location 'a0') : pAVLNode; syscall _ExecBase 876;
+FUNCTION AVL_FindPrevNodeByKey(CONST root : pAVLNode location 'a0'; key : POINTER location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 882;
+FUNCTION AVL_FindNextNodeByAddress(CONST node : pAVLNode location 'a0') : pAVLNode; syscall _ExecBase 888;
+FUNCTION AVL_FindNextNodeByKey(CONST root : pAVLNode location 'a0'; key : POINTER location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 894;
+FUNCTION AVL_FindFirstNode(CONST root : pAVLNode location 'a0') : pAVLNode; syscall _ExecBase 900;
+FUNCTION AVL_FindLastNode(CONST root : pAVLNode location 'a0') : pAVLNode; syscall _ExecBase 906;
 
 PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; const name : String);
 FUNCTION FindName(list : pList; const name : String) : pNode;
@@ -1348,1527 +1348,6 @@ begin
          IsMsgPortEmpty := mp_MsgList.lh_TailPred = pNode(@mp_MsgList);
 end;
 
-PROCEDURE AbortIO(ioRequest : pIORequest);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L ioRequest,A1
-    MOVEA.L _ExecBase,A6
-    JSR -480(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddDevice(device : pDevice);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L device,A1
-    MOVEA.L _ExecBase,A6
-    JSR -432(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddHead(list : pList; node : pNode);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L list,A0
-    MOVEA.L node,A1
-    MOVEA.L _ExecBase,A6
-    JSR -240(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddIntServer(intNumber : LONGINT; interrupt_ : pInterrupt);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  intNumber,D0
-    MOVEA.L interrupt_,A1
-    MOVEA.L _ExecBase,A6
-    JSR -168(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddLibrary(lib : pLibrary);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L lib,A1
-    MOVEA.L _ExecBase,A6
-    JSR -396(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddMemHandler(memhand : pInterrupt);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L memhand,A1
-    MOVEA.L _ExecBase,A6
-    JSR -774(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; const name : pCHAR);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  size,D0
-    MOVE.L  attributes,D1
-    MOVE.L  pri,D2
-    MOVEA.L base,A0
-    MOVEA.L name,A1
-    MOVEA.L _ExecBase,A6
-    JSR -618(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddPort(port : pMsgPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L port,A1
-    MOVEA.L _ExecBase,A6
-    JSR -354(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddResource(resource : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L resource,A1
-    MOVEA.L _ExecBase,A6
-    JSR -486(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddSemaphore(sigSem : pSignalSemaphore);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A1
-    MOVEA.L _ExecBase,A6
-    JSR -600(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddTail(list : pList; node : pNode);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L list,A0
-    MOVEA.L node,A1
-    MOVEA.L _ExecBase,A6
-    JSR -246(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION AddTask(task : pTask;const initPC : POINTER;const finalPC : POINTER) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L task,A1
-    MOVEA.L initPC,A2
-    MOVEA.L finalPC,A3
-    MOVEA.L _ExecBase,A6
-    JSR -282(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE Alert(alertNum : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  alertNum,D7
-    MOVEA.L _ExecBase,A6
-    JSR -108(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION AllocAbs(byteSize : ULONG; location : POINTER) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  byteSize,D0
-    MOVEA.L location,A1
-    MOVEA.L _ExecBase,A6
-    JSR -204(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION Allocate(freeList : pMemHeader; byteSize : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L freeList,A0
-    MOVE.L  byteSize,D0
-    MOVEA.L _ExecBase,A6
-    JSR -186(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocEntry(entry : pMemList) : pMemList;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L entry,A0
-    MOVEA.L _ExecBase,A6
-    JSR -222(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocMem(byteSize : ULONG; requirements : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  byteSize,D0
-    MOVE.L  requirements,D1
-    MOVEA.L _ExecBase,A6
-    JSR -198(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocPooled(poolHeader : POINTER; memSize : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L poolHeader,A0
-    MOVE.L  memSize,D0
-    MOVEA.L _ExecBase,A6
-    JSR -708(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocSignal(signalNum : LONGINT) : shortint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  signalNum,D0
-    MOVEA.L _ExecBase,A6
-    JSR -330(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocTrap(trapNum : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  trapNum,D0
-    MOVEA.L _ExecBase,A6
-    JSR -342(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocVec(byteSize : ULONG; requirements : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  byteSize,D0
-    MOVE.L  requirements,D1
-    MOVEA.L _ExecBase,A6
-    JSR -684(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AttemptSemaphore(sigSem : pSignalSemaphore) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L _ExecBase,A6
-    JSR -576(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AttemptSemaphoreShared(sigSem : pSignalSemaphore) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L _ExecBase,A6
-    JSR -720(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AvailMem(requirements : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  requirements,D1
-    MOVEA.L _ExecBase,A6
-    JSR -216(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE CacheClearE(address : POINTER; length : ULONG; caches : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L address,A0
-    MOVE.L  length,D0
-    MOVE.L  caches,D1
-    MOVEA.L _ExecBase,A6
-    JSR -642(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE CacheClearU;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -636(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION CacheControl(cacheBits : ULONG; cacheMask : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  cacheBits,D0
-    MOVE.L  cacheMask,D1
-    MOVEA.L _ExecBase,A6
-    JSR -648(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE CachePostDMA(const address : POINTER; VAR length : ULONG; flags : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L address,A0
-    MOVEA.L length,A1
-    MOVE.L  flags,D0
-    MOVEA.L _ExecBase,A6
-    JSR -768(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION CachePreDMA(const address : POINTER; VAR length : ULONG; flags : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L address,A0
-    MOVEA.L length,A1
-    MOVE.L  flags,D0
-    MOVEA.L _ExecBase,A6
-    JSR -762(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE Cause(interrupt_ : pInterrupt);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L interrupt_,A1
-    MOVEA.L _ExecBase,A6
-    JSR -180(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION CheckIO(ioRequest : pIORequest) : pIORequest;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L ioRequest,A1
-    MOVEA.L _ExecBase,A6
-    JSR -468(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ChildFree(tid : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  tid,D0
-    MOVEA.L _ExecBase,A6
-    JSR -738(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ChildOrphan(tid : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  tid,D0
-    MOVEA.L _ExecBase,A6
-    JSR -744(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ChildStatus(tid : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  tid,D0
-    MOVEA.L _ExecBase,A6
-    JSR -750(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ChildWait(tid : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  tid,D0
-    MOVEA.L _ExecBase,A6
-    JSR -756(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE CloseDevice(ioRequest : pIORequest);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L ioRequest,A1
-    MOVEA.L _ExecBase,A6
-    JSR -450(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE CloseLibrary(lib : pLibrary);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L lib,A1
-    MOVEA.L _ExecBase,A6
-    JSR -414(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ColdReboot;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -726(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE CopyMem(const source : POINTER; dest : POINTER; size : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L source,A0
-    MOVEA.L dest,A1
-    MOVE.L  size,D0
-    MOVEA.L _ExecBase,A6
-    JSR -624(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE CopyMemQuick(const source : POINTER; dest : POINTER; size : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L source,A0
-    MOVEA.L dest,A1
-    MOVE.L  size,D0
-    MOVEA.L _ExecBase,A6
-    JSR -630(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION CreateIORequest(const port : pMsgPort; size : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L port,A0
-    MOVE.L  size,D0
-    MOVEA.L _ExecBase,A6
-    JSR -654(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CreateMsgPort : pMsgPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -666(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CreatePool(requirements : ULONG; puddleSize : ULONG; threshSize : ULONG) :
-POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  requirements,D0
-    MOVE.L  puddleSize,D1
-    MOVE.L  threshSize,D2
-    MOVEA.L _ExecBase,A6
-    JSR -696(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE Deallocate(freeList : pMemHeader; memoryBlock : POINTER; byteSize : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L freeList,A0
-    MOVEA.L memoryBlock,A1
-    MOVE.L  byteSize,D0
-    MOVEA.L _ExecBase,A6
-    JSR -192(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE Debug(flags : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  flags,D0
-    MOVEA.L _ExecBase,A6
-    JSR -114(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DeleteIORequest(iorequest : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L iorequest,A0
-    MOVEA.L _ExecBase,A6
-    JSR -660(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DeleteMsgPort(port : pMsgPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L port,A0
-    MOVEA.L _ExecBase,A6
-    JSR -672(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DeletePool(poolHeader : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L poolHeader,A0
-    MOVEA.L _ExecBase,A6
-    JSR -702(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE Disable;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -120(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION DoIO(ioRequest : pIORequest) : shortint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L ioRequest,A1
-    MOVEA.L _ExecBase,A6
-    JSR -456(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE Enable;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -126(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE Enqueue(list : pList; node : pNode);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L list,A0
-    MOVEA.L node,A1
-    MOVEA.L _ExecBase,A6
-    JSR -270(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ExecFreeMem(memoryBlock : POINTER; byteSize : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L memoryBlock,A1
-    MOVE.L  byteSize,D0
-    MOVEA.L _ExecBase,A6
-    JSR -210(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ExecInsert(list : pList; node : pNode; pred : pNode);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L list,A0
-    MOVEA.L node,A1
-    MOVEA.L pred,A2
-    MOVEA.L _ExecBase,A6
-    JSR -234(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION FindName(list : pList; const name : pCHAR) : pNode;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L list,A0
-    MOVEA.L name,A1
-    MOVEA.L _ExecBase,A6
-    JSR -276(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindPort(const name : pCHAR) : pMsgPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L name,A1
-    MOVEA.L _ExecBase,A6
-    JSR -390(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindResident(const name : pCHAR) : pResident;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L name,A1
-    MOVEA.L _ExecBase,A6
-    JSR -096(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindSemaphore(const sigSem : pCHAR) : pSignalSemaphore;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A1
-    MOVEA.L _ExecBase,A6
-    JSR -594(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindTask(const name : pCHAR) : pTask;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L name,A1
-    MOVEA.L _ExecBase,A6
-    JSR -294(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE Forbid;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -132(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeEntry(entry : pMemList);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L entry,A0
-    MOVEA.L _ExecBase,A6
-    JSR -228(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreePooled(poolHeader : POINTER; memory : POINTER; memSize : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L poolHeader,A0
-    MOVEA.L memory,A1
-    MOVE.L  memSize,D0
-    MOVEA.L _ExecBase,A6
-    JSR -714(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeSignal(signalNum : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  signalNum,D0
-    MOVEA.L _ExecBase,A6
-    JSR -336(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeTrap(trapNum : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  trapNum,D0
-    MOVEA.L _ExecBase,A6
-    JSR -348(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeVec(memoryBlock : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L memoryBlock,A1
-    MOVEA.L _ExecBase,A6
-    JSR -690(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION GetCC : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -528(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE InitCode(startClass : ULONG; version : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  startClass,D0
-    MOVE.L  version,D1
-    MOVEA.L _ExecBase,A6
-    JSR -072(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION InitResident(const resident_ : pResident; segList : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L resident_,A1
-    MOVE.L  segList,D1
-    MOVEA.L _ExecBase,A6
-    JSR -102(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE InitSemaphore(sigSem : pSignalSemaphore);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L _ExecBase,A6
-    JSR -558(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE InitStruct(const initTable : POINTER; memory : POINTER; size : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L initTable,A1
-    MOVEA.L memory,A2
-    MOVE.L  size,D0
-    MOVEA.L _ExecBase,A6
-    JSR -078(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE MakeFunctions(const target : POINTER;const functionArray : POINTER;const funcDispBase :pointer);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L target,A0
-    MOVEA.L functionArray,A1
-    MOVEA.L funcDispBase,A2
-    MOVEA.L _ExecBase,A6
-    JSR -090(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION MakeLibrary(const funcInit : POINTER;const structInit : POINTER; libInit : tPROCEDURE; dataSize : ULONG; segList : ULONG) : pLibrary;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L funcInit,A0
-    MOVEA.L structInit,A1
-    MOVEA.L libInit,A2
-    MOVE.L  dataSize,D0
-    MOVE.L  segList,D1
-    MOVEA.L _ExecBase,A6
-    JSR -084(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ObtainQuickVector(interruptCode : POINTER) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L interruptCode,A0
-    MOVEA.L _ExecBase,A6
-    JSR -786(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ObtainSemaphore(sigSem : pSignalSemaphore);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L _ExecBase,A6
-    JSR -564(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ObtainSemaphoreList(sigSem : pList);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L _ExecBase,A6
-    JSR -582(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ObtainSemaphoreShared(sigSem : pSignalSemaphore);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L _ExecBase,A6
-    JSR -678(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION OldOpenLibrary(const libName : pCHAR) : pLibrary;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L libName,A1
-    MOVEA.L _ExecBase,A6
-    JSR -408(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION OpenDevice(const devName : pCHAR; unite : ULONG; ioRequest : pIORequest;
-flags : ULONG) : shortint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L devName,A0
-    MOVE.L  unite,D0
-    MOVEA.L ioRequest,A1
-    MOVE.L  flags,D1
-    MOVEA.L _ExecBase,A6
-    JSR -444(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION OpenLibrary(const libName : pCHAR; version : ULONG) : pLibrary;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L libName,A1
-    MOVE.L  version,D0
-    MOVEA.L _ExecBase,A6
-    JSR -552(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION OpenResource(const resName : pCHAR) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L resName,A1
-    MOVEA.L _ExecBase,A6
-    JSR -498(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE Permit;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -138(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION Procure(sigSem : pSignalSemaphore; bidMsg : pSemaphoreMessage) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L bidMsg,A1
-    MOVEA.L _ExecBase,A6
-    JSR -540(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE PutMsg(port : pMsgPort; message : pMessage);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L port,A0
-    MOVEA.L message,A1
-    MOVEA.L _ExecBase,A6
-    JSR -366(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-function RawDoFmt(const formatString : pCHAR;const dataStream : POINTER; putChProc : tPROCEDURE; putChData : POINTER): pointer;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L formatString,A0
-    MOVEA.L dataStream,A1
-    MOVEA.L putChProc,A2
-    MOVEA.L putChData,A3
-    MOVEA.L _ExecBase,A6
-    JSR -522(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ReleaseSemaphore(sigSem : pSignalSemaphore);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L _ExecBase,A6
-    JSR -570(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ReleaseSemaphoreList(sigSem : pList);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L _ExecBase,A6
-    JSR -588(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RemDevice(device : pDevice);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L device,A1
-    MOVEA.L _ExecBase,A6
-    JSR -438(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION RemHead(list : pList) : pNode;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L list,A0
-    MOVEA.L _ExecBase,A6
-    JSR -258(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE RemIntServer(intNumber : LONGINT; interrupt_ : pInterrupt);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  intNumber,D0
-    MOVEA.L interrupt_,A1
-    MOVEA.L _ExecBase,A6
-    JSR -174(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RemLibrary(lib : pLibrary);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L lib,A1
-    MOVEA.L _ExecBase,A6
-    JSR -402(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RemMemHandler(memhand : pInterrupt);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L memhand,A1
-    MOVEA.L _ExecBase,A6
-    JSR -780(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE Remove(node : pNode);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L node,A1
-    MOVEA.L _ExecBase,A6
-    JSR -252(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RemPort(port : pMsgPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L port,A1
-    MOVEA.L _ExecBase,A6
-    JSR -360(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RemResource(resource : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L resource,A1
-    MOVEA.L _ExecBase,A6
-    JSR -492(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RemSemaphore(sigSem : pSignalSemaphore);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A1
-    MOVEA.L _ExecBase,A6
-    JSR -606(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION RemTail(list : pList) : pNode;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L list,A0
-    MOVEA.L _ExecBase,A6
-    JSR -264(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE RemTask(task : pTask);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L task,A1
-    MOVEA.L _ExecBase,A6
-    JSR -288(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-
-PROCEDURE SendIO(ioRequest : pIORequest);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L ioRequest,A1
-    MOVEA.L _ExecBase,A6
-    JSR -462(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SetExcept(newSignals : ULONG; signalSet : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  newSignals,D0
-    MOVE.L  signalSet,D1
-    MOVEA.L _ExecBase,A6
-    JSR -312(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetFunction(lib : pLibrary; funcOffset : LONGINT; newFunction : tPROCEDURE) :
-POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L lib,A1
-    MOVEA.L funcOffset,A0
-    MOVE.L  newFunction,D0
-    MOVEA.L _ExecBase,A6
-    JSR -420(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetIntVector(intNumber : LONGINT;const interrupt_ : pInterrupt) : pInterrupt;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  intNumber,D0
-    MOVEA.L interrupt_,A1
-    MOVEA.L _ExecBase,A6
-    JSR -162(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetSignal(newSignals : ULONG; signalSet : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  newSignals,D0
-    MOVE.L  signalSet,D1
-    MOVEA.L _ExecBase,A6
-    JSR -306(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetSR(newSR : ULONG; mask : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  newSR,D0
-    MOVE.L  mask,D1
-    MOVEA.L _ExecBase,A6
-    JSR -144(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetTaskPri(task : pTask; priority : LONGINT) : shortint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L task,A1
-    MOVE.L  priority,D0
-    MOVEA.L _ExecBase,A6
-    JSR -300(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE Signal(task : pTask; signalSet : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L task,A1
-    MOVE.L  signalSet,D0
-    MOVEA.L _ExecBase,A6
-    JSR -324(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE StackSwap(newStack : pStackSwapStruct);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L newStack,A0
-    MOVEA.L _ExecBase,A6
-    JSR -732(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SumKickData;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -612(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SumLibrary(lib : pLibrary);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L lib,A1
-    MOVEA.L _ExecBase,A6
-    JSR -426(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SuperState : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _ExecBase,A6
-    JSR -150(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION Supervisor(userFunction : tPROCEDURE) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L userFunction,A5
-    MOVEA.L _ExecBase,A6
-    JSR -030(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION TypeOfMem(const address : POINTER) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L address,A1
-    MOVEA.L _ExecBase,A6
-    JSR -534(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE UserState(sysStack : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  sysStack,D0
-    MOVEA.L _ExecBase,A6
-    JSR -156(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE Vacate(sigSem : pSignalSemaphore; bidMsg : pSemaphoreMessage);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sigSem,A0
-    MOVEA.L bidMsg,A1
-    MOVEA.L _ExecBase,A6
-    JSR -546(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION Wait(signalSet : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  signalSet,D0
-    MOVEA.L _ExecBase,A6
-    JSR -318(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION WaitIO(ioRequest : pIORequest) : shortint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L ioRequest,A1
-    MOVEA.L _ExecBase,A6
-    JSR -474(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE NewMinList(minlist : pMinList);
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L minlist,A0
-        MOVEA.L _ExecBase,A6
-        JSR     -828(A6)
-        MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION AVL_AddNode(root : ppAVLNode; node : pAVLNode; func : POINTER) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L root,A0
-        MOVEA.L node,A1
-        MOVEA.L func,A2
-        MOVEA.L _ExecBase,A6
-        JSR     -852(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AVL_RemNodeByAddress(root : ppAVLNode; node : pAVLNode) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L root,A0
-        MOVEA.L node,A1
-        MOVEA.L _ExecBase,A6
-        JSR     -858(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AVL_RemNodeByKey(root : ppAVLNode; key : POINTER; func : POINTER) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L root,A0
-        MOVEA.L key,A1
-        MOVEA.L func,A2
-        MOVEA.L _ExecBase,A6
-        JSR     -864(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AVL_FindNode(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L root,A0
-        MOVEA.L key,A1
-        MOVEA.L func,A2
-        MOVEA.L _ExecBase,A6
-        JSR     -870(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AVL_FindPrevNodeByAddress(CONST node : pAVLNode) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L node,A0
-        MOVEA.L _ExecBase,A6
-        JSR     -876(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AVL_FindPrevNodeByKey(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L root,A0
-        MOVEA.L key,A1
-        MOVEA.L func,A2
-        MOVEA.L _ExecBase,A6
-        JSR     -882(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AVL_FindNextNodeByAddress(CONST node : pAVLNode) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L node,A0
-        MOVEA.L _ExecBase,A6
-        JSR     -888(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AVL_FindNextNodeByKey(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L root,A0
-        MOVEA.L key,A1
-        MOVEA.L func,A2
-        MOVEA.L _ExecBase,A6
-        JSR     -894(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AVL_FindFirstNode(CONST root : pAVLNode) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L root,A0
-        MOVEA.L _ExecBase,A6
-        JSR     -900(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AVL_FindLastNode(CONST root : pAVLNode) : pAVLNode;
-BEGIN
-  ASM
-        MOVE.L  A6,-(A7)
-        MOVEA.L root,A0
-        MOVEA.L _ExecBase,A6
-        JSR     -906(A6)
-        MOVEA.L (A7)+,A6
-        MOVE.L  D0,@RESULT
-  END;
-END;
-
-
 PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; const name : String);
 BEGIN
     AddMemList(size,attributes,pri,base,pas2c(name));

packages/amunits/src/coreunits/intuition.pas

@@ -4067,127 +4067,127 @@ CONST
  *      uses this processing when activating a string gadget.
  }
 
-FUNCTION ActivateGadget(gadgets : pGadget; window : pWindow; requester : pRequester) : BOOLEAN;
-PROCEDURE ActivateWindow(window : pWindow);
-PROCEDURE AddClass(classPtr : pIClass);
-FUNCTION AddGadget(window : pWindow; gadget : pGadget; position : ULONG) : WORD;
-FUNCTION AddGList(window : pWindow; gadget : pGadget; position : ULONG; numGad : LONGINT; requester : pRequester) : WORD;
-FUNCTION AllocRemember(VAR rememberKey : pRemember; size : ULONG; flags : ULONG) : POINTER;
-FUNCTION AllocScreenBuffer(sc : pScreen; bm : pBitMap; flags : ULONG) : pScreenBuffer;
-FUNCTION AutoRequest(window : pWindow;const body : pIntuiText;const posText : pIntuiText;const negText : pIntuiText; pFlag : ULONG; nFlag : ULONG; width : ULONG; height : ULONG) : BOOLEAN;
-PROCEDURE BeginRefresh(window : pWindow);
-FUNCTION BuildEasyRequestArgs(window : pWindow;const easyStruct : pEasyStruct; idcmp : ULONG;const args : POINTER) : pWindow;
-FUNCTION BuildSysRequest(window : pWindow;const body : pIntuiText;const posText : pIntuiText;const negText : pIntuiText; flags : ULONG; width : ULONG; height : ULONG) : pWindow;
-FUNCTION ChangeScreenBuffer(sc : pScreen; sb : pScreenBuffer) : ULONG;
-PROCEDURE ChangeWindowBox(window : pWindow; left : LONGINT; top : LONGINT; width : LONGINT; height : LONGINT);
-FUNCTION ClearDMRequest(window : pWindow) : BOOLEAN;
-PROCEDURE ClearMenuStrip(window : pWindow);
-PROCEDURE ClearPointer(window : pWindow);
-PROCEDURE CloseScreen(screen : pScreen);
-PROCEDURE CloseWindow(window : pWindow);
-FUNCTION CloseWorkBench : BOOLEAN;
-PROCEDURE CurrentTime(VAR seconds : ULONG; VAR micros : ULONG);
-FUNCTION DisplayAlert(alertNumber : ULONG;const string_ : pCHAR; height : ULONG) : BOOLEAN;
-PROCEDURE DisplayBeep(screen : pScreen);
-PROCEDURE DisposeObject(obj : POINTER);
-FUNCTION DoGadgetMethodA(gad : pGadget; win : pWindow; req : pRequester; message : tMsg) : ULONG;
-FUNCTION DoubleClick(sSeconds : ULONG; sMicros : ULONG; cSeconds : ULONG; cMicros : ULONG) : BOOLEAN;
-PROCEDURE DrawBorder(rp : pRastPort;const border : pBorder; leftOffset : LONGINT; topOffset : LONGINT);
-PROCEDURE DrawImage(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT);
-PROCEDURE DrawImageState(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT; state : ULONG;const drawInfo : pDrawInfo);
-FUNCTION EasyRequestArgs(window : pWindow;const easyStruct : pEasyStruct; idcmpPtr : pULONG;const args : POINTER) : LONGINT;
-PROCEDURE EndRefresh(window : pWindow; complete : LONGINT);
-PROCEDURE EndRequest(requester : pRequester; window : pWindow);
-PROCEDURE EraseImage(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT);
-FUNCTION FreeClass(classPtr : pIClass) : BOOLEAN;
-PROCEDURE FreeRemember(VAR rememberKey : pRemember; reallyForget : LONGINT);
-PROCEDURE FreeScreenBuffer(sc : pScreen; sb : pScreenBuffer);
-PROCEDURE FreeScreenDrawInfo(screen : pScreen; drawInfo : pDrawInfo);
-PROCEDURE FreeSysRequest(window : pWindow);
-PROCEDURE GadgetMouse(gadget : pGadget; gInfo : pGadgetInfo; mousePoint : psmallint);
-FUNCTION GetAttr(attrID : ULONG; obj : POINTER; storagePtr : pULONG) : ULONG;
-PROCEDURE GetDefaultPubScreen(nameBuffer : pCHAR);
-FUNCTION GetDefPrefs(preferences : pPreferences; size : LONGINT) : pPreferences;
-FUNCTION GetPrefs(preferences : pPreferences; size : LONGINT) : pPreferences;
-FUNCTION GetScreenData(buffer : POINTER; size : ULONG; type_ : ULONG;const screen : pScreen) : BOOLEAN;
-FUNCTION GetScreenDrawInfo(screen : pScreen) : pDrawInfo;
-PROCEDURE HelpControl(win : pWindow; flags : ULONG);
-PROCEDURE InitRequester(requester : pRequester);
-FUNCTION IntuiTextLength(const iText : pIntuiText) : LONGINT;
-FUNCTION ItemAddress(const menuStrip : pMenu; menuNumber : ULONG) : pMenuItem;
-PROCEDURE LendMenus(fromwindow : pWindow; towindow : pWindow);
-FUNCTION LockIBase(dontknow : ULONG) : ULONG;
-FUNCTION LockPubScreen(const name : pCHAR) : pScreen;
-FUNCTION LockPubScreenList : pList;
-FUNCTION MakeClass(const classID : pCHAR;const superClassID : pCHAR;const superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass;
-FUNCTION MakeScreen(screen : pScreen) : LONGINT;
-FUNCTION ModifyIDCMP(window : pWindow; flags : ULONG) : BOOLEAN;
-PROCEDURE ModifyProp(gadget : pGadget; window : pWindow; requester : pRequester; flags : ULONG; horizPot : ULONG; vertPot : ULONG; horizBody : ULONG; vertBody : ULONG);
-PROCEDURE MoveScreen(screen : pScreen; dx : LONGINT; dy : LONGINT);
-PROCEDURE MoveWindow(window : pWindow; dx : LONGINT; dy : LONGINT);
-PROCEDURE MoveWindowInFrontOf(window : pWindow; behindWindow : pWindow);
-PROCEDURE NewModifyProp(gadget : pGadget; window : pWindow; requester : pRequester; flags : ULONG; horizPot : ULONG; vertPot : ULONG; horizBody : ULONG; vertBody : ULONG; numGad : LONGINT);
-FUNCTION NewObjectA(classPtr : pIClass;const classID : pCHAR;const tagList : pTagItem) : POINTER;
-FUNCTION NextObject(objectPtrPtr : POINTER) : POINTER;
-FUNCTION NextPubScreen(const screen : pScreen; namebuf : pCHAR) : pCHAR;
-FUNCTION ObtainGIRPort(gInfo : pGadgetInfo) : pRastPort;
-PROCEDURE OffGadget(gadget : pGadget; window : pWindow; requester : pRequester);
-PROCEDURE OffMenu(window : pWindow; menuNumber : ULONG);
-PROCEDURE OnGadget(gadget : pGadget; window : pWindow; requester : pRequester);
-PROCEDURE OnMenu(window : pWindow; menuNumber : ULONG);
+FUNCTION ActivateGadget(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2') : BOOLEAN syscall _IntuitionBase 462;
+PROCEDURE ActivateWindow(window : pWindow location 'a0'); syscall _IntuitionBase 450;
+PROCEDURE AddClass(classPtr : pIClass location 'a0'); syscall _IntuitionBase 684;
+FUNCTION AddGadget(window : pWindow location 'a0'; gadget : pGadget location 'a1'; position : ULONG location 'd0') : WORD; syscall _IntuitionBase 042;
+FUNCTION AddGList(window : pWindow location 'a0'; gadget : pGadget location 'a1'; position : ULONG location 'd0'; numGad : LONGINT location 'd1'; requester : pRequester location 'a2') : WORD; syscall _IntuitionBase 438;
+FUNCTION AllocRemember(var rememberKey : pRemember location 'a0'; size : ULONG location 'd0'; flags : ULONG location 'd1') : POINTER syscall _IntuitionBase 396;
+FUNCTION AllocScreenBuffer(sc : pScreen location 'a0'; bm : pBitMap location 'a1'; flags : ULONG location 'd0') : pScreenBuffer;  syscall _IntuitionBase 768;
+FUNCTION AutoRequest(window : pWindow location 'a0';const body : pIntuiText location 'a1';const posText : pIntuiText location 'a2';const negText : pIntuiText location 'a3'; pFlag : ULONG location 'd0'; nFlag : ULONG location 'd1'; width : ULONG location 'd2'; height : ULONG location 'd3') : BOOLEAN; syscall _IntuitionBase 348;
+PROCEDURE BeginRefresh(window : pWindow location 'a0'); syscall _IntuitionBase 354;
+FUNCTION BuildEasyRequestArgs(window : pWindow location 'a0';const easyStruct : pEasyStruct location 'a1'; idcmp : ULONG location 'd0';const args : POINTER location 'a3') : pWindow; syscall _IntuitionBase 594;
+FUNCTION BuildSysRequest(window : pWindow location 'a0';const body : pIntuiText location 'a1';const posText : pIntuiText location 'a2';const negText : pIntuiText location 'a3'; flags : ULONG location 'd0'; width : ULONG location 'd1'; height : ULONG location 'd2') : pWindow; syscall _IntuitionBase 360;
+FUNCTION ChangeScreenBuffer(sc : pScreen location 'a0'; sb : pScreenBuffer location 'a1') : ULONG; syscall _IntuitionBase 780;
+PROCEDURE ChangeWindowBox(window : pWindow location 'a0'; left : LONGINT location 'd0'; top : LONGINT location 'd1'; width : LONGINT location 'd2'; height : LONGINT location 'd3'); syscall _IntuitionBase 486;
+FUNCTION ClearDMRequest(window : pWindow location 'a0') : BOOLEAN; syscall _IntuitionBase 048;
+PROCEDURE ClearMenuStrip(window : pWindow location 'a0'); syscall _IntuitionBase 054;
+PROCEDURE ClearPointer(window : pWindow location 'a0'); syscall _IntuitionBase 060;
+PROCEDURE CloseScreen(screen : pScreen location 'a0'); syscall _IntuitionBase 066;
+PROCEDURE CloseWindow(window : pWindow location 'a0'); syscall _IntuitionBase 072;
+FUNCTION CloseWorkBench : BOOLEAN; syscall _IntuitionBase 078;
+PROCEDURE CurrentTime(VAR seconds : ULONG location 'a0'; VAR micros : ULONG location 'a1'); syscall _IntuitionBase 084;
+FUNCTION DisplayAlert(alertNumber : ULONG location 'd0';const string_ : pCHAR location 'a0'; height : ULONG location 'd1') : BOOLEAN; syscall _IntuitionBase 090;
+PROCEDURE DisplayBeep(screen : pScreen location 'a0'); syscall _IntuitionBase 096;
+PROCEDURE DisposeObject(obj : POINTER location 'a0'); syscall _IntuitionBase 642;
+FUNCTION DoGadgetMethodA(gad : pGadget location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; message : tMsg location 'a3') : ULONG; syscall _IntuitionBase 810;
+FUNCTION DoubleClick(sSeconds : ULONG location 'd0'; sMicros : ULONG location 'd1'; cSeconds : ULONG location 'd2'; cMicros : ULONG location 'd3') : BOOLEAN; syscall _IntuitionBase 102;
+PROCEDURE DrawBorder(rp : pRastPort location 'a0';const border : pBorder location 'a1'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'); syscall _IntuitionBase 108;
+PROCEDURE DrawImage(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'); syscall _IntuitionBase 114;
+PROCEDURE DrawImageState(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'; state : ULONG location 'd2';const drawInfo : pDrawInfo location 'a2'); syscall _IntuitionBase 618;
+FUNCTION EasyRequestArgs(window : pWindow location 'a0';const easyStruct : pEasyStruct location 'a1'; idcmpPtr : pULONG location 'a2';const args : POINTER location 'a3') : LONGINT; syscall _IntuitionBase 588;
+PROCEDURE EndRefresh(window : pWindow location 'a0'; complete : LONGINT location 'd0'); syscall _IntuitionBase 366;
+PROCEDURE EndRequest(requester : pRequester location 'a0'; window : pWindow location 'a1'); syscall _IntuitionBase 120;
+PROCEDURE EraseImage(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'); syscall _IntuitionBase 630;
+FUNCTION FreeClass(classPtr : pIClass location 'a0') : BOOLEAN; syscall _IntuitionBase 714;
+PROCEDURE FreeRemember(VAR rememberKey : pRemember location 'a0'; reallyForget : LONGINT location 'd0'); syscall _IntuitionBase 408;
+PROCEDURE FreeScreenBuffer(sc : pScreen location 'a0'; sb : pScreenBuffer location 'a1'); syscall _IntuitionBase 774;
+PROCEDURE FreeScreenDrawInfo(screen : pScreen location 'a0'; drawInfo : pDrawInfo location 'a1'); syscall _IntuitionBase 696;
+PROCEDURE FreeSysRequest(window : pWindow location 'a0'); syscall _IntuitionBase 372;
+PROCEDURE GadgetMouse(gadget : pGadget location 'a0'; gInfo : pGadgetInfo location 'a1'; mousePoint : psmallint location 'a2'); syscall _IntuitionBase 570;
+FUNCTION GetAttr(attrID : ULONG location 'd0'; obj : POINTER location 'a0'; storagePtr : pULONG location 'a1') : ULONG; syscall _IntuitionBase 654;
+PROCEDURE GetDefaultPubScreen(nameBuffer : pCHAR location 'a0'); syscall _IntuitionBase 582;
+FUNCTION GetDefPrefs(preferences : pPreferences location 'a0'; size : LONGINT location 'd0') : pPreferences; syscall _IntuitionBase 126;
+FUNCTION GetPrefs(preferences : pPreferences location 'a0'; size : LONGINT location 'd0') : pPreferences; syscall _IntuitionBase 132;
+FUNCTION GetScreenData(buffer : POINTER location 'a0'; size : ULONG location 'D0'; type_ : ULONG location 'd1';const screen : pScreen location 'a1') : BOOLEAN; syscall _IntuitionBase 426;
+FUNCTION GetScreenDrawInfo(screen : pScreen location 'a0') : pDrawInfo; syscall _IntuitionBase 690;
+PROCEDURE HelpControl(win : pWindow location 'a0'; flags : ULONG location 'd0'); syscall _IntuitionBase 828;
+PROCEDURE InitRequester(requester : pRequester location 'a0'); syscall _IntuitionBase 138;
+FUNCTION IntuiTextLength(const iText : pIntuiText location 'a0') : LONGINT; syscall _IntuitionBase 330;
+FUNCTION ItemAddress(const menuStrip : pMenu location 'a0'; menuNumber : ULONG location 'd0') : pMenuItem; syscall _IntuitionBase 144;
+PROCEDURE LendMenus(fromwindow : pWindow location 'a0'; towindow : pWindow location 'a1'); syscall _IntuitionBase 804;
+FUNCTION LockIBase(dontknow : ULONG location 'd0') : ULONG; syscall _IntuitionBase 414;
+FUNCTION LockPubScreen(const name : pCHAR location 'a0') : pScreen; syscall _IntuitionBase 510;
+FUNCTION LockPubScreenList : pList; syscall _IntuitionBase 522;
+FUNCTION MakeClass(const classID : pCHAR location 'a0';const superClassID : pCHAR location 'a1';const superClassPtr : pIClass location 'a2'; instanceSize : ULONG location 'd0'; flags : ULONG location 'd1') : pIClass; syscall _IntuitionBase 678;
+FUNCTION MakeScreen(screen : pScreen location 'a0') : LONGINT; syscall _IntuitionBase 378;
+FUNCTION ModifyIDCMP(window : pWindow location 'a0'; flags : ULONG location 'd0') : BOOLEAN; syscall _IntuitionBase 150;
+PROCEDURE ModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : ULONG location 'd0'; horizPot : ULONG location 'd1'; vertPot : ULONG location 'd2'; horizBody : ULONG location 'd3'; vertBody : ULONG location 'd4'); syscall _IntuitionBase 156;
+PROCEDURE MoveScreen(screen : pScreen location 'a0'; dx : LONGINT location 'd0'; dy : LONGINT location 'd1'); syscall _IntuitionBase 162;
+PROCEDURE MoveWindow(window : pWindow location 'a0'; dx : LONGINT location 'd0'; dy : LONGINT location 'd1'); syscall _IntuitionBase 168;
+PROCEDURE MoveWindowInFrontOf(window : pWindow location 'a0'; behindWindow : pWindow location 'a1'); syscall _IntuitionBase 480;
+PROCEDURE NewModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : ULONG location 'd0'; horizPot : ULONG location 'd1'; vertPot : ULONG location 'd2'; horizBody : ULONG location 'd3'; vertBody : ULONG location 'd4'; numGad : LONGINT location 'd5'); syscall _IntuitionBase 468;
+FUNCTION NewObjectA(classPtr : pIClass location 'a0';const classID : pCHAR location 'a1';const tagList : pTagItem location 'a2') : POINTER; syscall _IntuitionBase 636;
+FUNCTION NextObject(objectPtrPtr : POINTER location 'a0') : POINTER; syscall _IntuitionBase 666;
+FUNCTION NextPubScreen(const screen : pScreen location 'a0'; namebuf : pCHAR location 'a1') : pCHAR; syscall _IntuitionBase 534;
+FUNCTION ObtainGIRPort(gInfo : pGadgetInfo location 'a0') : pRastPort; syscall _IntuitionBase 558;
+PROCEDURE OffGadget(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'); syscall _IntuitionBase 174;
+PROCEDURE OffMenu(window : pWindow location 'a0'; menuNumber : ULONG location 'd0'); syscall _IntuitionBase 180;
+PROCEDURE OnGadget(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'); syscall _IntuitionBase 186;
+PROCEDURE OnMenu(window : pWindow location 'a0'; menuNumber : ULONG location 'd0'); syscall _IntuitionBase 192;
 FUNCTION OpenScreen(const newScreen : pNewScreen location 'a0') : pScreen; syscall _IntuitionBase 198;
 FUNCTION OpenScreenTagList(const newScreen : pNewScreen location 'a0'; const tagList : pTagItem location 'a1') : pScreen; syscall _IntuitionBase 612;
 FUNCTION OpenWindow(const newWindow : pNewWindow location 'a0') : pWindow; syscall _IntuitionBase 204;
-FUNCTION OpenWindowTagList(const newWindow : pNewWindow location 'a0'; const tagList : pTagItem location 'a1') : pWindow; syscall _Intuitionbase 606;
+FUNCTION OpenWindowTagList(const newWindow : pNewWindow location 'a0'; const tagList : pTagItem location 'a1') : pWindow; syscall _IntuitionBase 606;
 FUNCTION OpenWorkBench : ULONG; syscall _IntuitionBase 210;
-FUNCTION PointInImage(point : ULONG; image : pImage) : BOOLEAN;
-PROCEDURE PrintIText(rp : pRastPort;const iText : pIntuiText; left : LONGINT; top : LONGINT);
-FUNCTION PubScreenStatus(screen : pScreen; statusFlags : ULONG) : WORD;
-FUNCTION QueryOverscan(displayID : ULONG; rect : pRectangle; oScanType : LONGINT) : LONGINT;
-PROCEDURE RefreshGadgets(gadgets : pGadget; window : pWindow; requester : pRequester);
-PROCEDURE RefreshGList(gadgets : pGadget; window : pWindow; requester : pRequester; numGad : LONGINT);
-PROCEDURE RefreshWindowFrame(window : pWindow);
-PROCEDURE ReleaseGIRPort(rp : pRastPort);
-FUNCTION RemakeDisplay : LONGINT;
-PROCEDURE RemoveClass(classPtr : pIClass);
-FUNCTION RemoveGadget(window : pWindow; gadget : pGadget) : WORD;
-FUNCTION RemoveGList(remPtr : pWindow; gadget : pGadget; numGad : LONGINT) : WORD;
-PROCEDURE ReportMouse(flag : LONGINT; window : pWindow);
-FUNCTION Request(requester : pRequester; window : pWindow) : BOOLEAN;
-FUNCTION ResetMenuStrip(window : pWindow; menu : pMenu) : BOOLEAN;
-FUNCTION RethinkDisplay : LONGINT;
-PROCEDURE ScreenDepth(screen : pScreen; flags : ULONG; reserved : POINTER);
-PROCEDURE ScreenPosition(screen : pScreen; flags : ULONG; x1 : LONGINT; y1 : LONGINT; x2 : LONGINT; y2 : LONGINT);
-PROCEDURE ScreenToBack(screen : pScreen);
-PROCEDURE ScreenToFront(screen : pScreen);
-PROCEDURE ScrollWindowRaster(win : pWindow; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
-FUNCTION SetAttrsA(obj : POINTER;const tagList : pTagItem) : ULONG;
-PROCEDURE SetDefaultPubScreen(const name : pCHAR);
-FUNCTION SetDMRequest(window : pWindow; requester : pRequester) : BOOLEAN;
-FUNCTION SetEditHook(hook : pHook) : pHook;
-FUNCTION SetGadgetAttrsA(gadget : pGadget; window : pWindow; requester : pRequester;const tagList : pTagItem) : ULONG;
-FUNCTION SetMenuStrip(window : pWindow; menu : pMenu) : BOOLEAN;
-FUNCTION SetMouseQueue(window : pWindow; queueLength : ULONG) : LONGINT;
-PROCEDURE SetPointer(window : pWindow; pointer_ : pword; height : LONGINT; width : LONGINT; xOffset : LONGINT; yOffset : LONGINT);
-FUNCTION SetPrefs(const   preferences : pPreferences; size : LONGINT; inform : LONGINT) : pPreferences;
-FUNCTION SetPubScreenModes(modes : ULONG) : WORD;
-PROCEDURE SetWindowPointerA(win : pWindow;const taglist : pTagItem);
-PROCEDURE SetWindowTitles(window : pWindow;const windowTitle : pCHAR;const screenTitle : pCHAR);
-PROCEDURE ShowTitle(screen : pScreen; showIt : LONGINT);
-PROCEDURE SizeWindow(window : pWindow; dx : LONGINT; dy : LONGINT);
-FUNCTION SysReqHandler(window : pWindow; idcmpPtr : pULONG; waitInput : LONGINT) : LONGINT;
-FUNCTION TimedDisplayAlert(alertNumber : ULONG;const string_ : pCHAR; height : ULONG; time : ULONG) : BOOLEAN;
-PROCEDURE UnlockIBase(ibLock : ULONG);
-PROCEDURE UnlockPubScreen(const name : pCHAR; screen : pScreen);
-PROCEDURE UnlockPubScreenList;
-FUNCTION ViewAddress : pView;
-FUNCTION ViewPortAddress(const window : pWindow) : pViewPort;
-FUNCTION WBenchToBack : BOOLEAN;
-FUNCTION WBenchToFront : BOOLEAN;
-FUNCTION WindowLimits(window : pWindow; widthMin : LONGINT; heightMin : LONGINT; widthMax : ULONG; heightMax : ULONG) : BOOLEAN;
-PROCEDURE WindowToBack(window : pWindow);
-PROCEDURE WindowToFront(window : pWindow);
-PROCEDURE ZipWindow(window : pWindow);
+FUNCTION PointInImage(point : ULONG location 'd0'; image : pImage location 'a0') : BOOLEAN; syscall _IntuitionBase 624;
+PROCEDURE PrintIText(rp : pRastPort location 'a0';const iText : pIntuiText location 'a1'; left : LONGINT location 'd0'; top : LONGINT location 'd1'); syscall _IntuitionBase 216;
+FUNCTION PubScreenStatus(screen : pScreen location 'a0'; statusFlags : ULONG location 'd0') : WORD; syscall _IntuitionBase 552;
+FUNCTION QueryOverscan(displayID : ULONG location 'a0'; rect : pRectangle location 'a1'; oScanType : LONGINT location 'd0') : LONGINT; syscall _IntuitionBase 474;
+PROCEDURE RefreshGadgets(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'); syscall _IntuitionBase 222;
+PROCEDURE RefreshGList(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; numGad : LONGINT location 'd0'); syscall _IntuitionBase 432;
+PROCEDURE RefreshWindowFrame(window : pWindow location 'a0'); syscall _IntuitionBase 456;
+PROCEDURE ReleaseGIRPort(rp : pRastPort location 'a0'); syscall _IntuitionBase 564;
+FUNCTION RemakeDisplay : LONGINT; syscall _IntuitionBase 384;
+PROCEDURE RemoveClass(classPtr : pIClass location 'a0'); syscall _IntuitionBase 708;
+FUNCTION RemoveGadget(window : pWindow; gadget : pGadget) : WORD; syscall _IntuitionBase 228;
+FUNCTION RemoveGList(remPtr : pWindow location 'a0'; gadget : pGadget location 'a1'; numGad : LONGINT location 'd0') : WORD; syscall _IntuitionBase 444;
+PROCEDURE ReportMouse(flag : LONGINT location 'd0'; window : pWindow location 'a0'); syscall _IntuitionBase 234;
+FUNCTION Request(requester : pRequester location 'a0'; window : pWindow location 'a1') : BOOLEAN; syscall _IntuitionBase 240;
+FUNCTION ResetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : BOOLEAN; syscall _IntuitionBase 702;
+FUNCTION RethinkDisplay : LONGINT; syscall _IntuitionBase 390;
+PROCEDURE ScreenDepth(screen : pScreen location 'a0'; flags : ULONG location 'd0'; reserved : POINTER location 'a1'); syscall _IntuitionBase 786;
+PROCEDURE ScreenPosition(screen : pScreen location 'a0'; flags : ULONG location 'd0'; x1 : LONGINT location 'd1'; y1 : LONGINT location 'd2'; x2 : LONGINT location 'd3'; y2 : LONGINT location 'd4'); syscall _IntuitionBase 792;
+PROCEDURE ScreenToBack(screen : pScreen location 'a0'); syscall _IntuitionBase 246;
+PROCEDURE ScreenToFront(screen : pScreen location 'a0'); syscall _IntuitionBase 252;
+PROCEDURE ScrollWindowRaster(win : pWindow location 'a0'; dx : LONGINT location 'd0'; dy : LONGINT location 'd1'; xMin : LONGINT location 'd2'; yMin : LONGINT location 'd3'; xMax : LONGINT location 'd4'; yMax : LONGINT location 'd5'); syscall _IntuitionBase 798;
+FUNCTION SetAttrsA(obj : POINTER location 'a0';const tagList : pTagItem location 'a1') : ULONG; syscall _IntuitionBase 648;
+PROCEDURE SetDefaultPubScreen(const name : pCHAR location 'a0'); syscall _IntuitionBase 540;
+FUNCTION SetDMRequest(window : pWindow location 'a0'; requester : pRequester location 'a1') : BOOLEAN; syscall _IntuitionBase 258;
+FUNCTION SetEditHook(hook : pHook location 'a0') : pHook; syscall _IntuitionBase 492;
+FUNCTION SetGadgetAttrsA(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2';const tagList : pTagItem location 'a3') : ULONG; syscall _IntuitionBase 660;
+FUNCTION SetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : BOOLEAN; syscall _IntuitionBase 264;
+FUNCTION SetMouseQueue(window : pWindow location 'a0'; queueLength : ULONG location 'd0') : LONGINT; syscall _IntuitionBase 498;
+PROCEDURE SetPointer(window : pWindow location 'a0'; pointer_ : pword location 'a1'; height : LONGINT location 'd0'; width : LONGINT location 'd1'; xOffset : LONGINT location 'd2'; yOffset : LONGINT location 'd3'); syscall _IntuitionBase 270;
+FUNCTION SetPrefs(const   preferences : pPreferences location 'a0'; size : LONGINT location 'd0'; inform : LONGINT location 'd1') : pPreferences; syscall _IntuitionBase 324;
+FUNCTION SetPubScreenModes(modes : ULONG location 'd0') : WORD; syscall _IntuitionBase 546;
+PROCEDURE SetWindowPointerA(win : pWindow location 'a0';const taglist : pTagItem location 'a1'); syscall _IntuitionBase 816;
+PROCEDURE SetWindowTitles(window : pWindow location 'a0';const windowTitle : pCHAR location 'a1';const screenTitle : pCHAR location 'a2'); syscall _IntuitionBase 276;
+PROCEDURE ShowTitle(screen : pScreen location 'a0'; showIt : LONGINT location 'd0'); syscall _IntuitionBase 282;
+PROCEDURE SizeWindow(window : pWindow location 'a0'; dx : LONGINT location 'd0'; dy : LONGINT location 'd1'); syscall _IntuitionBase 288;
+FUNCTION SysReqHandler(window : pWindow location 'a0'; idcmpPtr : pULONG location 'a1'; waitInput : LONGINT location 'd0') : LONGINT; syscall _IntuitionBase 600;
+FUNCTION TimedDisplayAlert(alertNumber : ULONG location 'd0';const string_ : pCHAR location 'a0'; height : ULONG location 'd1'; time : ULONG location 'a1') : BOOLEAN; syscall _IntuitionBase 822;
+PROCEDURE UnlockIBase(ibLock : ULONG location 'a0'); syscall _IntuitionBase 420;
+PROCEDURE UnlockPubScreen(const name : pCHAR location 'a0'; screen : pScreen location 'a1'); syscall _IntuitionBase 516;
+PROCEDURE UnlockPubScreenList; syscall _IntuitionBase 528;
+FUNCTION ViewAddress : pView; syscall _IntuitionBase 294;
+FUNCTION ViewPortAddress(const window : pWindow location 'a0') : pViewPort; syscall _IntuitionBase 300;
+FUNCTION WBenchToBack : BOOLEAN; syscall _IntuitionBase 336;
+FUNCTION WBenchToFront : BOOLEAN; syscall _IntuitionBase 342;
+FUNCTION WindowLimits(window : pWindow location 'a0'; widthMin : LONGINT location 'd0'; heightMin : LONGINT location 'd1'; widthMax : ULONG location 'd2'; heightMax : ULONG location 'd3') : BOOLEAN; syscall _IntuitionBase 318;
+PROCEDURE WindowToBack(window : pWindow location 'a0'); syscall _IntuitionBase 306;
+PROCEDURE WindowToFront(window : pWindow location 'a0'); syscall _IntuitionBase 312;
+PROCEDURE ZipWindow(window : pWindow location 'a0'); syscall _IntuitionBase 504;
 
 { Intuition macros }
 function INST_DATA (cl: pIClass; o: p_Object): Pointer;
@@ -4328,1558 +4328,6 @@ begin
     SUBNUM := (n shr 11) and $1f
 end;
 
-FUNCTION ActivateGadget(gadgets : pGadget; window : pWindow; requester : pRequester) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gadgets,A0
-    MOVEA.L window,A1
-    MOVEA.L requester,A2
-    MOVEA.L _IntuitionBase,A6
-    JSR -462(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ActivateWindow(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -450(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE AddClass(classPtr : pIClass);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L classPtr,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -684(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION AddGadget(window : pWindow; gadget : pGadget; position : ULONG) : WORD;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L gadget,A1
-    MOVE.L  position,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -042(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AddGList(window : pWindow; gadget : pGadget; position : ULONG; numGad : LONGINT; requester : pRequester) : WORD;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L gadget,A1
-    MOVE.L  position,D0
-    MOVE.L  numGad,D1
-    MOVEA.L requester,A2
-    MOVEA.L _IntuitionBase,A6
-    JSR -438(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocRemember(VAR rememberKey : pRemember; size : ULONG; flags : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rememberKey,A0
-    MOVE.L  size,D0
-    MOVE.L  flags,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -396(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocScreenBuffer(sc : pScreen; bm : pBitMap; flags : ULONG) : pScreenBuffer;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sc,A0
-    MOVEA.L bm,A1
-    MOVE.L  flags,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -768(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AutoRequest(window : pWindow;const body : pIntuiText;const posText : pIntuiText;const negText : pIntuiText; pFlag : ULONG; nFlag : ULONG; width : ULONG; height : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L body,A1
-    MOVEA.L posText,A2
-    MOVEA.L negText,A3
-    MOVE.L  pFlag,D0
-    MOVE.L  nFlag,D1
-    MOVE.L  width,D2
-    MOVE.L  height,D3
-    MOVEA.L _IntuitionBase,A6
-    JSR -348(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE BeginRefresh(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -354(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION BuildEasyRequestArgs(window : pWindow;const easyStruct : pEasyStruct; idcmp : ULONG;const args : POINTER) : pWindow;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L easyStruct,A1
-    MOVE.L  idcmp,D0
-    MOVEA.L args,A3
-    MOVEA.L _IntuitionBase,A6
-    JSR -594(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION BuildSysRequest(window : pWindow;const body : pIntuiText;const posText : pIntuiText;const negText : pIntuiText; flags : ULONG; width : ULONG; height : ULONG) : pWindow;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L body,A1
-    MOVEA.L posText,A2
-    MOVEA.L negText,A3
-    MOVE.L  flags,D0
-    MOVE.L  width,D1
-    MOVE.L  height,D2
-    MOVEA.L _IntuitionBase,A6
-    JSR -360(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ChangeScreenBuffer(sc : pScreen; sb : pScreenBuffer) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sc,A0
-    MOVEA.L sb,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -780(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ChangeWindowBox(window : pWindow; left : LONGINT; top : LONGINT; width : LONGINT; height : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVE.L  left,D0
-    MOVE.L  top,D1
-    MOVE.L  width,D2
-    MOVE.L  height,D3
-    MOVEA.L _IntuitionBase,A6
-    JSR -486(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION ClearDMRequest(window : pWindow) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -048(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ClearMenuStrip(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -054(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ClearPointer(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -060(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE CloseScreen(screen : pScreen);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -066(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE CloseWindow(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -072(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION CloseWorkBench : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _IntuitionBase,A6
-    JSR -078(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE CurrentTime(VAR seconds : ULONG; VAR micros : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L seconds,A0
-    MOVEA.L micros,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -084(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION DisplayAlert(alertNumber : ULONG;const string_ : pCHAR; height : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  alertNumber,D0
-    MOVEA.L string_,A0
-    MOVE.L  height,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -090(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE DisplayBeep(screen : pScreen);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -096(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DisposeObject(obj : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L obj,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -642(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION DoGadgetMethodA(gad : pGadget; win : pWindow; req : pRequester; message : tMsg) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gad,A0
-    MOVEA.L win,A1
-    MOVEA.L req,A2
-    MOVEA.L message,A3
-    MOVEA.L _IntuitionBase,A6
-    JSR -810(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DoubleClick(sSeconds : ULONG; sMicros : ULONG; cSeconds : ULONG; cMicros : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  sSeconds,D0
-    MOVE.L  sMicros,D1
-    MOVE.L  cSeconds,D2
-    MOVE.L  cMicros,D3
-    MOVEA.L _IntuitionBase,A6
-    JSR -102(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE DrawBorder(rp : pRastPort;const border : pBorder; leftOffset : LONGINT; topOffset : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L border,A1
-    MOVE.L  leftOffset,D0
-    MOVE.L  topOffset,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -108(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DrawImage(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L image,A1
-    MOVE.L  leftOffset,D0
-    MOVE.L  topOffset,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -114(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DrawImageState(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT; state : ULONG;const drawInfo : pDrawInfo);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L image,A1
-    MOVE.L  leftOffset,D0
-    MOVE.L  topOffset,D1
-    MOVE.L  state,D2
-    MOVEA.L drawInfo,A2
-    MOVEA.L _IntuitionBase,A6
-    JSR -618(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION EasyRequestArgs(window : pWindow;const easyStruct : pEasyStruct; idcmpPtr : pULONG;const args : POINTER) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L easyStruct,A1
-    MOVEA.L idcmpPtr,A2
-    MOVEA.L args,A3
-    MOVEA.L _IntuitionBase,A6
-    JSR -588(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE EndRefresh(window : pWindow; complete : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVE.L  complete,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -366(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE EndRequest(requester : pRequester; window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L requester,A0
-    MOVEA.L window,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -120(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE EraseImage(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L image,A1
-    MOVE.L  leftOffset,D0
-    MOVE.L  topOffset,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -630(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION FreeClass(classPtr : pIClass) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L classPtr,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -714(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE FreeRemember(VAR rememberKey : pRemember; reallyForget : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rememberKey,A0
-    MOVE.L  reallyForget,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -408(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeScreenBuffer(sc : pScreen; sb : pScreenBuffer);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sc,A0
-    MOVEA.L sb,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -774(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeScreenDrawInfo(screen : pScreen; drawInfo : pDrawInfo);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVEA.L drawInfo,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -696(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeSysRequest(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -372(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE GadgetMouse(gadget : pGadget; gInfo : pGadgetInfo; mousePoint : psmallint);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gadget,A0
-    MOVEA.L gInfo,A1
-    MOVEA.L mousePoint,A2
-    MOVEA.L _IntuitionBase,A6
-    JSR -570(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION GetAttr(attrID : ULONG; obj : POINTER; storagePtr : pULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  attrID,D0
-    MOVEA.L obj,A0
-    MOVEA.L storagePtr,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -654(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE GetDefaultPubScreen(nameBuffer : pCHAR);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L nameBuffer,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -582(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION GetDefPrefs(preferences : pPreferences; size : LONGINT) : pPreferences;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L preferences,A0
-    MOVE.L  size,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -126(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetPrefs(preferences : pPreferences; size : LONGINT) : pPreferences;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L preferences,A0
-    MOVE.L  size,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -132(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetScreenData(buffer : POINTER; size : ULONG; type_ : ULONG;const screen : pScreen) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L buffer,A0
-    MOVE.L  size,D0
-    MOVE.L  type_,D1
-    MOVEA.L screen,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -426(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetScreenDrawInfo(screen : pScreen) : pDrawInfo;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -690(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE HelpControl(win : pWindow; flags : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L win,A0
-    MOVE.L  flags,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -828(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE InitRequester(requester : pRequester);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L requester,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -138(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION IntuiTextLength(const iText : pIntuiText) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L iText,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -330(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ItemAddress(const menuStrip : pMenu; menuNumber : ULONG) : pMenuItem;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L menuStrip,A0
-    MOVE.L  menuNumber,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -144(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE LendMenus(fromwindow : pWindow; towindow : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L fromwindow,A0
-    MOVEA.L towindow,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -804(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION LockIBase(dontknow : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dontknow,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -414(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION LockPubScreen(const name : pCHAR) : pScreen;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L name,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -510(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION LockPubScreenList : pList;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _IntuitionBase,A6
-    JSR -522(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION MakeClass(const  classID : pCHAR;const superClassID : pCHAR;const superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L classID,A0
-    MOVEA.L superClassID,A1
-    MOVEA.L superClassPtr,A2
-    MOVE.L  instanceSize,D0
-    MOVE.L  flags,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -678(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION MakeScreen(screen : pScreen): LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -378(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ModifyIDCMP(window : pWindow; flags : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVE.L  flags,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -150(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ModifyProp(gadget : pGadget; window : pWindow; requester : pRequester; flags : ULONG; horizPot : ULONG; vertPot : ULONG; horizBody : ULONG; vertBody : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gadget,A0
-    MOVEA.L window,A1
-    MOVEA.L requester,A2
-    MOVE.L  flags,D0
-    MOVE.L  horizPot,D1
-    MOVE.L  vertPot,D2
-    MOVE.L  horizBody,D3
-    MOVE.L  vertBody,D4
-    MOVEA.L _IntuitionBase,A6
-    JSR -156(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE MoveScreen(screen : pScreen; dx : LONGINT; dy : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVE.L  dx,D0
-    MOVE.L  dy,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -162(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE MoveWindow(window : pWindow; dx : LONGINT; dy : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVE.L  dx,D0
-    MOVE.L  dy,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -168(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE MoveWindowInFrontOf(window : pWindow; behindWindow : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L behindWindow,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -480(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE NewModifyProp(gadget : pGadget; window : pWindow; requester : pRequester; flags : ULONG; horizPot : ULONG; vertPot : ULONG; horizBody : ULONG; vertBody : ULONG; numGad : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gadget,A0
-    MOVEA.L window,A1
-    MOVEA.L requester,A2
-    MOVE.L  flags,D0
-    MOVE.L  horizPot,D1
-    MOVE.L  vertPot,D2
-    MOVE.L  horizBody,D3
-    MOVE.L  vertBody,D4
-    MOVE.L  numGad,D5
-    MOVEA.L _IntuitionBase,A6
-    JSR -468(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION NewObjectA(classPtr : pIClass;const classID : pCHAR;const tagList : pTagItem) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L classPtr,A0
-    MOVEA.L classID,A1
-    MOVEA.L tagList,A2
-    MOVEA.L _IntuitionBase,A6
-    JSR -636(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION NextObject(objectPtrPtr : POINTER) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L objectPtrPtr,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -666(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION NextPubScreen(const screen : pScreen; namebuf : pCHAR) : pCHAR;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVEA.L namebuf,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -534(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ObtainGIRPort(gInfo : pGadgetInfo) : pRastPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gInfo,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -558(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE OffGadget(gadget : pGadget; window : pWindow; requester : pRequester);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gadget,A0
-    MOVEA.L window,A1
-    MOVEA.L requester,A2
-    MOVEA.L _IntuitionBase,A6
-    JSR -174(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE OffMenu(window : pWindow; menuNumber : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVE.L  menuNumber,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -180(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE OnGadget(gadget : pGadget; window : pWindow; requester : pRequester);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gadget,A0
-    MOVEA.L window,A1
-    MOVEA.L requester,A2
-    MOVEA.L _IntuitionBase,A6
-    JSR -186(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE OnMenu(window : pWindow; menuNumber : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVE.L  menuNumber,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -192(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-
-FUNCTION PointInImage(point : ULONG; image : pImage) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  point,D0
-    MOVEA.L image,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -624(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE PrintIText(rp : pRastPort;const iText : pIntuiText; left : LONGINT; top : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L iText,A1
-    MOVE.L  left,D0
-    MOVE.L  top,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -216(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION PubScreenStatus(screen : pScreen; statusFlags : ULONG) : WORD;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVE.L  statusFlags,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -552(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION QueryOverscan(displayID : ULONG; rect : pRectangle; oScanType : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L displayID,A0
-    MOVEA.L rect,A1
-    MOVE.L  oScanType,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -474(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE RefreshGadgets(gadgets : pGadget; window : pWindow; requester : pRequester);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gadgets,A0
-    MOVEA.L window,A1
-    MOVEA.L requester,A2
-    MOVEA.L _IntuitionBase,A6
-    JSR -222(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RefreshGList(gadgets : pGadget; window : pWindow; requester : pRequester; numGad : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gadgets,A0
-    MOVEA.L window,A1
-    MOVEA.L requester,A2
-    MOVE.L  numGad,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -432(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RefreshWindowFrame(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -456(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ReleaseGIRPort(rp : pRastPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -564(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION RemakeDisplay : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _IntuitionBase,A6
-    JSR -384(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE RemoveClass(classPtr : pIClass);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L classPtr,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -708(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION RemoveGadget(window : pWindow; gadget : pGadget) : WORD;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L gadget,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -228(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION RemoveGList(remPtr : pWindow; gadget : pGadget; numGad : LONGINT) : WORD;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L remPtr,A0
-    MOVEA.L gadget,A1
-    MOVE.L  numGad,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -444(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ReportMouse(flag : LONGINT; window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  flag,D0
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -234(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION Request(requester : pRequester; window : pWindow) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L requester,A0
-    MOVEA.L window,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -240(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION ResetMenuStrip(window : pWindow; menu : pMenu) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L menu,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -702(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION RethinkDisplay : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _IntuitionBase,A6
-    JSR -390(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ScreenDepth(screen : pScreen; flags : ULONG; reserved : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVE.L  flags,D0
-    MOVEA.L reserved,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -786(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ScreenPosition(screen : pScreen; flags : ULONG; x1 : LONGINT; y1 : LONGINT; x2 : LONGINT; y2 : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVE.L  flags,D0
-    MOVE.L  x1,D1
-    MOVE.L  y1,D2
-    MOVE.L  x2,D3
-    MOVE.L  y2,D4
-    MOVEA.L _IntuitionBase,A6
-    JSR -792(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ScreenToBack(screen : pScreen);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -246(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ScreenToFront(screen : pScreen);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -252(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ScrollWindowRaster(win : pWindow; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L win,A1
-    MOVE.L  dx,D0
-    MOVE.L  dy,D1
-    MOVE.L  xMin,D2
-    MOVE.L  yMin,D3
-    MOVE.L  xMax,D4
-    MOVE.L  yMax,D5
-    MOVEA.L _IntuitionBase,A6
-    JSR -798(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SetAttrsA(obj : POINTER;const tagList : pTagItem) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L obj,A0
-    MOVEA.L tagList,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -648(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE SetDefaultPubScreen(const name : pCHAR);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L name,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -540(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SetDMRequest(window : pWindow; requester : pRequester) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L requester,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -258(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetEditHook(hook : pHook) : pHook;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L hook,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -492(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetGadgetAttrsA(gadget : pGadget; window : pWindow; requester : pRequester;const tagList : pTagItem) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gadget,A0
-    MOVEA.L window,A1
-    MOVEA.L requester,A2
-    MOVEA.L tagList,A3
-    MOVEA.L _IntuitionBase,A6
-    JSR -660(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetMenuStrip(window : pWindow; menu : pMenu) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L menu,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -264(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetMouseQueue(window : pWindow; queueLength : ULONG) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVE.L  queueLength,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -498(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE SetPointer(window : pWindow; pointer_ : pword; height : LONGINT; width : LONGINT; xOffset : LONGINT; yOffset : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L pointer_,A1
-    MOVE.L  height,D0
-    MOVE.L  width,D1
-    MOVE.L  xOffset,D2
-    MOVE.L  yOffset,D3
-    MOVEA.L _IntuitionBase,A6
-    JSR -270(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SetPrefs(const preferences : pPreferences; size : LONGINT; inform : LONGINT) : pPreferences;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L preferences,A0
-    MOVE.L  size,D0
-    MOVE.L  inform,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -324(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetPubScreenModes(modes : ULONG) : WORD;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  modes,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -546(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE SetWindowPointerA(win : pWindow;const taglist : pTagItem);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L win,A0
-    MOVEA.L taglist,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -816(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SetWindowTitles(window : pWindow;const windowTitle : pCHAR;const screenTitle : pCHAR);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L windowTitle,A1
-    MOVEA.L screenTitle,A2
-    MOVEA.L _IntuitionBase,A6
-    JSR -276(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ShowTitle(screen : pScreen; showIt : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L screen,A0
-    MOVE.L  showIt,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -282(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SizeWindow(window : pWindow; dx : LONGINT; dy : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVE.L  dx,D0
-    MOVE.L  dy,D1
-    MOVEA.L _IntuitionBase,A6
-    JSR -288(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SysReqHandler(window : pWindow; idcmpPtr : pULONG; waitInput : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L idcmpPtr,A1
-    MOVE.L  waitInput,D0
-    MOVEA.L _IntuitionBase,A6
-    JSR -600(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION TimedDisplayAlert(alertNumber : ULONG;const string_ : pCHAR; height : ULONG; time : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  alertNumber,D0
-    MOVEA.L string_,A0
-    MOVE.L  height,D1
-    MOVEA.L time,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -822(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE UnlockIBase(ibLock : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L ibLock,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -420(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE UnlockPubScreen(const name : pCHAR; screen : pScreen);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L name,A0
-    MOVEA.L screen,A1
-    MOVEA.L _IntuitionBase,A6
-    JSR -516(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE UnlockPubScreenList;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _IntuitionBase,A6
-    JSR -528(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION ViewAddress : pView;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _IntuitionBase,A6
-    JSR -294(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ViewPortAddress(const window : pWindow) : pViewPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -300(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION WBenchToBack : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _IntuitionBase,A6
-    JSR -336(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION WBenchToFront : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _IntuitionBase,A6
-    JSR -342(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION WindowLimits(window : pWindow; widthMin : LONGINT; heightMin : LONGINT; widthMax : ULONG; heightMax : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVE.L  widthMin,D0
-    MOVE.L  heightMin,D1
-    MOVE.L  widthMax,D2
-    MOVE.L  heightMax,D3
-    MOVEA.L _IntuitionBase,A6
-    JSR -318(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE WindowToBack(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -306(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE WindowToFront(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -312(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ZipWindow(window : pWindow);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L window,A0
-    MOVEA.L _IntuitionBase,A6
-    JSR -504(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-
 FUNCTION DisplayAlert(alertNumber : ULONG;const string_ : string; height : ULONG) : BOOLEAN;
 begin
       DisplayAlert := DisplayAlert(alertNumber,pas2c(string_),height);