amunits: syscall-ified AGraphics, AmigaDos, Utility.library units

git-svn-id: trunk@28586 -

packages/amunits/src/coreunits/agraphics.pas

@@ -2248,162 +2248,162 @@ PROCEDURE AddVSprite(vSprite : pVSprite location 'a0'; rp : pRastPort location '
 FUNCTION AllocBitMap(sizex : ULONG location 'd0'; sizey : ULONG location 'd1'; depth : ULONG location 'd2'; flags : ULONG location 'd3'; const friend_bitmap : pBitMap location 'a0') : pBitMap; syscall GfxBase 918;
 FUNCTION AllocDBufInfo(vp : pViewPort location 'a0') : pDBufInfo; syscall GfxBase 966;
 FUNCTION AllocRaster(width : ULONG location 'd0'; height : ULONG location 'd1') : pCHAR; syscall GfxBase 492;
-FUNCTION AllocSpriteDataA(const bm : pBitMap;const tags : pTagItem) : pExtSprite;
-PROCEDURE AndRectRegion(region : pRegion;const rectangle : pRectangle);
-FUNCTION AndRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
-PROCEDURE Animate(anKey : ppAnimOb; rp : pRastPort);
-FUNCTION AreaDraw(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
-FUNCTION AreaEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT) : LONGINT;
-FUNCTION AreaEnd(rp : pRastPort) : LONGINT;
-FUNCTION AreaMove(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
-PROCEDURE AskFont(rp : pRastPort; textAttr : pTextAttr);
-FUNCTION AskSoftStyle(rp : pRastPort) : ULONG;
-FUNCTION AttachPalExtra(cm : pColorMap; vp : pViewPort) : LONGINT;
-FUNCTION AttemptLockLayerRom(layer : pLayer) : BOOLEAN;
-FUNCTION BestModeIDA(const tags : pTagItem) : ULONG;
-PROCEDURE BitMapScale(bitScaleArgs : pBitScaleArgs);
-FUNCTION BltBitMap(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destBitMap : pBitMap; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG; mask : ULONG; tempA : pCHAR) : LONGINT;
-PROCEDURE BltBitMapRastPort(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG);
-PROCEDURE BltClear(memBlock : pCHAR; byteCount : ULONG; flags : ULONG);
-PROCEDURE BltMaskBitMapRastPort(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG;const bltMask : pCHAR);
-PROCEDURE BltPattern(rp : pRastPort;const mask : pCHAR; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT; maskBPR : ULONG);
+FUNCTION AllocSpriteDataA(const bm : pBitMap location 'a2';const tags : pTagItem location 'a1') : pExtSprite; syscall GfxBase 1020;
+PROCEDURE AndRectRegion(region : pRegion location 'a0';const rectangle : pRectangle location 'a1'); syscall GfxBase 504;
+FUNCTION AndRegionRegion(const srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool; syscall GfxBase 624;
+PROCEDURE Animate(anKey : ppAnimOb location 'a0'; rp : pRastPort location 'a1'); syscall GfxBase 162;
+FUNCTION AreaDraw(rp : pRastPort location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1') : LONGINT; syscall GfxBase 258;
+FUNCTION AreaEllipse(rp : pRastPort location 'a1'; xCenter : LONGINT location 'd0'; yCenter : LONGINT location 'd1'; a : LONGINT location 'd2'; b : LONGINT location 'd3') : LONGINT; syscall GfxBase 186;
+FUNCTION AreaEnd(rp : pRastPort location 'a1') : LONGINT; syscall GfxBase 264;
+FUNCTION AreaMove(rp : pRastPort location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1') : LONGINT; syscall GfxBase 252;
+PROCEDURE AskFont(rp : pRastPort location 'a1'; textAttr : pTextAttr location 'a0'); syscall GfxBase 474;
+FUNCTION AskSoftStyle(rp : pRastPort location 'a1') : ULONG; syscall GfxBase 084;
+FUNCTION AttachPalExtra(cm : pColorMap location 'a0'; vp : pViewPort location 'a1') : LONGINT; syscall GfxBase 834;
+FUNCTION AttemptLockLayerRom(layer : pLayer location 'a5') : LongBool; syscall GfxBase 654;
+FUNCTION BestModeIDA(const tags : pTagItem location 'a0') : ULONG; syscall GfxBase 1050;
+PROCEDURE BitMapScale(bitScaleArgs : pBitScaleArgs location 'a0'); syscall GfxBase 678;
+FUNCTION BltBitMap(const srcBitMap : pBitMap location 'a0'; xSrc : LONGINT location 'd0'; ySrc : LONGINT location 'd1'; destBitMap : pBitMap location 'a1'; xDest : LONGINT location 'd2'; yDest : LONGINT location 'd3'; xSize : LONGINT location 'd4'; ySize : LONGINT location 'd5'; minterm : ULONG location 'd6'; mask : ULONG location 'd7'; tempA : pCHAR location 'a2') : LONGINT; syscall GfxBase 030;
+PROCEDURE BltBitMapRastPort(const srcBitMap : pBitMap location 'a0'; xSrc : LONGINT location 'd0'; ySrc : LONGINT location 'd1'; destRP : pRastPort location 'a1'; xDest : LONGINT location 'd2'; yDest : LONGINT location 'd3'; xSize : LONGINT location 'd4'; ySize : LONGINT location 'd5'; minterm : ULONG location 'd6'); syscall GfxBase 606;
+PROCEDURE BltClear(memBlock : pCHAR location 'a1'; byteCount : ULONG location 'd0'; flags : ULONG location 'd1'); syscall GfxBase 300;
+PROCEDURE BltMaskBitMapRastPort(const srcBitMap : pBitMap location 'a0'; xSrc : LONGINT location 'd0'; ySrc : LONGINT location 'd1'; destRP : pRastPort location 'a1'; xDest : LONGINT location 'd2'; yDest : LONGINT location 'd3'; xSize : LONGINT location 'd4'; ySize : LONGINT location 'd5'; minterm : ULONG location 'd6';const bltMask : pCHAR location 'a2'); syscall GfxBase 636;
+PROCEDURE BltPattern(rp : pRastPort location 'a1';const mask : pCHAR location 'a0'; xMin : LONGINT location 'd0'; yMin : LONGINT location 'd1'; xMax : LONGINT location 'd2'; yMax : LONGINT location 'd3'; maskBPR : ULONG location 'd4'); syscall GfxBase 312;
 PROCEDURE BltTemplate(const source : pCHAR location 'a0'; xSrc : LONGINT location 'd0'; srcMod : LONGINT location 'd1'; destRP : pRastPort location 'a1'; xDest : LONGINT location 'd2'; yDest : LONGINT location 'd3'; xSize : LONGINT location 'd4'; ySize : LONGINT location 'd5'); syscall GfxBase 036;
-FUNCTION CalcIVG(v : pView; vp : pViewPort) : WORD;
-PROCEDURE CBump(copList : pUCopList);
-FUNCTION ChangeExtSpriteA(vp : pViewPort; oldsprite : pExtSprite; newsprite : pExtSprite;const tags : pTagItem) : LONGINT;
-PROCEDURE ChangeSprite(vp : pViewPort; sprite : pSimpleSprite; newData : pWORD);
-PROCEDURE ChangeVPBitMap(vp : pViewPort; bm : pBitMap; db : pDBufInfo);
-PROCEDURE ClearEOL(rp : pRastPort);
-FUNCTION ClearRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN;
-PROCEDURE ClearRegion(region : pRegion);
-PROCEDURE ClearScreen(rp : pRastPort);
-PROCEDURE ClipBlit(srcRP : pRastPort; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG);
-PROCEDURE CloseFont(textFont : pTextFont);
-FUNCTION CloseMonitor(monitorSpec : pMonitorSpec) : BOOLEAN;
-PROCEDURE CMove(copList : pUCopList; destination : POINTER; data : LONGINT);
-FUNCTION CoerceMode(vp : pViewPort; monitorid : ULONG; flags : ULONG) : ULONG;
-PROCEDURE CopySBitMap(layer : pLayer);
-PROCEDURE CWait(copList : pUCopList; v : LONGINT; h : LONGINT);
-PROCEDURE DisownBlitter;
-PROCEDURE DisposeRegion(region : pRegion);
-PROCEDURE DoCollision(rp : pRastPort);
+FUNCTION CalcIVG(v : pView location 'a0'; vp : pViewPort location 'a1') : WORD; syscall GfxBase 828;
+PROCEDURE CBump(copList : pUCopList location 'a1'); syscall GfxBase 366;
+FUNCTION ChangeExtSpriteA(vp : pViewPort location 'a0'; oldsprite : pExtSprite location 'a1'; newsprite : pExtSprite location 'a2';const tags : pTagItem location 'a3') : LONGINT; syscall GfxBase 1026;
+PROCEDURE ChangeSprite(vp : pViewPort location 'a0'; sprite : pSimpleSprite location 'a1'; newData : pWORD location 'a2'); syscall GfxBase 420;
+PROCEDURE ChangeVPBitMap(vp : pViewPort location 'a0'; bm : pBitMap location 'a1'; db : pDBufInfo location 'a2'); syscall GfxBase 942;
+PROCEDURE ClearEOL(rp : pRastPort location 'a1'); syscall GfxBase 042;
+FUNCTION ClearRectRegion(region : pRegion location 'a0';const rectangle : pRectangle location 'a1') : LongBool; syscall GfxBase 522;
+PROCEDURE ClearRegion(region : pRegion location 'a0'); syscall GfxBase 528;
+PROCEDURE ClearScreen(rp : pRastPort location 'a1'); syscall GfxBase 048;
+PROCEDURE ClipBlit(srcRP : pRastPort location 'a0'; xSrc : LONGINT location 'd0'; ySrc : LONGINT location 'd1'; destRP : pRastPort location 'a1'; xDest : LONGINT location 'd2'; yDest : LONGINT location 'd3'; xSize : LONGINT location 'd4'; ySize : LONGINT location 'd5'; minterm : ULONG location 'd6'); syscall GfxBase 552;
+PROCEDURE CloseFont(textFont : pTextFont location 'a1'); syscall GfxBase 078;
+FUNCTION CloseMonitor(monitorSpec : pMonitorSpec location 'a0') : LongBool; syscall GfxBase 720;
+PROCEDURE CMove(copList : pUCopList location 'a1'; destination : POINTER location 'a0'; data : LONGINT location 'd1'); syscall GfxBase 372;
+FUNCTION CoerceMode(vp : pViewPort location 'a0'; monitorid : ULONG location 'd0'; flags : ULONG location 'd1') : ULONG; syscall GfxBase 936;
+PROCEDURE CopySBitMap(layer : pLayer location 'a0'); syscall GfxBase 450;
+PROCEDURE CWait(copList : pUCopList location 'a1'; v : LONGINT location 'd0'; h : LONGINT location 'd1'); syscall GfxBase 378;
+PROCEDURE DisownBlitter; syscall GfxBase 462;
+PROCEDURE DisposeRegion(region : pRegion location 'a0'); syscall GfxBase 534;
+PROCEDURE DoCollision(rp : pRastPort location 'a1'); syscall GfxBase 108;
 PROCEDURE Draw(rp : pRastPort location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1'); syscall GfxBase 246;
-PROCEDURE DrawEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT);
-PROCEDURE DrawGList(rp : pRastPort; vp : pViewPort);
-PROCEDURE EraseRect(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
-FUNCTION ExtendFont(font : pTextFont;const fontTags : pTagItem) : ULONG;
-FUNCTION FindColor(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; maxcolor : LONGINT) : LONGINT;
-FUNCTION FindDisplayInfo(displayID : ULONG) : POINTER;
-FUNCTION Flood(rp : pRastPort; mode : ULONG; x : LONGINT; y : LONGINT) : BOOLEAN;
-PROCEDURE FontExtent(const font : pTextFont; fontExtent : pTextExtent);
-PROCEDURE FreeBitMap(bm : pBitMap);
-PROCEDURE FreeColorMap(colorMap : pColorMap);
-PROCEDURE FreeCopList(copList : pCopList);
-PROCEDURE FreeCprList(cprList : pcprlist);
-PROCEDURE FreeDBufInfo(dbi : pDBufInfo);
-PROCEDURE FreeGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT);
-PROCEDURE FreeRaster(p : pCHAR; width : ULONG; height : ULONG);
-PROCEDURE FreeSprite(num : LONGINT);
-PROCEDURE FreeSpriteData(sp : pExtSprite);
-PROCEDURE FreeVPortCopLists(vp : pViewPort);
-FUNCTION GetAPen(rp : pRastPort) : ULONG;
-FUNCTION GetBitMapAttr(const bm : pBitMap; attrnum : ULONG) : ULONG;
-FUNCTION GetBPen(rp : pRastPort) : ULONG;
-FUNCTION GetColorMap(entries : LONGINT) : pColorMap;
-FUNCTION GetDisplayInfoData(const handle : POINTER; buf : pCHAR; size : ULONG; tagID : ULONG; displayID : ULONG) : ULONG;
-FUNCTION GetDrMd(rp : pRastPort) : ULONG;
-FUNCTION GetExtSpriteA(ss : pExtSprite;const tags : pTagItem) : LONGINT;
-FUNCTION GetGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT) : BOOLEAN;
-FUNCTION GetOutlinePen(rp : pRastPort) : ULONG;
-PROCEDURE GetRGB32(const cm : pColorMap; firstcolor : ULONG; ncolors : ULONG; table : pulong);
-FUNCTION GetRGB4(colorMap : pColorMap; entry : LONGINT) : ULONG;
-PROCEDURE GetRPAttrsA(const rp : pRastPort;const tags : pTagItem);
-FUNCTION GetSprite(sprite : pSimpleSprite; num : LONGINT) : smallint;
-FUNCTION GetVPModeID(const vp : pViewPort) : LONGINT;
-PROCEDURE GfxAssociate(const associateNode : POINTER; gfxNodePtr : POINTER);
-PROCEDURE GfxFree(gfxNodePtr : POINTER);
-FUNCTION GfxLookUp(const associateNode : POINTER) : POINTER;
-FUNCTION GfxNew(gfxNodeType : ULONG) : POINTER;
-PROCEDURE InitArea(areaInfo : pAreaInfo; vectorBuffer : POINTER; maxVectors : LONGINT);
-PROCEDURE InitBitMap(bitMap : pBitMap; depth : LONGINT; width : LONGINT; height : LONGINT);
-PROCEDURE InitGels(head : pVSprite; tail : pVSprite; gelsInfo : pGelsInfo);
-PROCEDURE InitGMasks(anOb : pAnimOb);
-PROCEDURE InitMasks(vSprite : pVSprite);
-PROCEDURE InitRastPort(rp : pRastPort);
-FUNCTION InitTmpRas(tmpRas : pTmpRas; buffer : PLANEPTR; size : LONGINT) : pTmpRas;
-PROCEDURE InitView(view : pView);
-PROCEDURE InitVPort(vp : pViewPort);
-PROCEDURE LoadRGB32(vp : pViewPort;const table : pULONG);
-PROCEDURE LoadRGB4(vp : pViewPort;const colors : pWord; count : LONGINT);
-PROCEDURE LoadView(view : pView);
-PROCEDURE LockLayerRom(layer : pLayer);
-FUNCTION MakeVPort(view : pView; vp : pViewPort) : ULONG;
-FUNCTION ModeNotAvailable(modeID : ULONG) : LONGINT;
+PROCEDURE DrawEllipse(rp : pRastPort location 'a1'; xCenter : LONGINT location 'd0'; yCenter : LONGINT location 'd1'; a : LONGINT location 'd2'; b : LONGINT location 'd3'); syscall GfxBase 180;
+PROCEDURE DrawGList(rp : pRastPort location 'a1'; vp : pViewPort location 'a0'); syscall GfxBase 114;
+PROCEDURE EraseRect(rp : pRastPort location 'a1'; xMin : LONGINT location 'd0'; yMin : LONGINT location 'd1'; xMax : LONGINT location 'd2'; yMax : LONGINT location 'd3'); syscall GfxBase 810;
+FUNCTION ExtendFont(font : pTextFont location 'a0';const fontTags : pTagItem location 'a1') : ULONG; syscall GfxBase 816;
+FUNCTION FindColor(cm : pColorMap location 'a3'; r : ULONG location 'd1'; g : ULONG location 'd2'; b : ULONG location 'd3'; maxcolor : LONGINT location 'd4') : LONGINT; syscall GfxBase 1008;
+FUNCTION FindDisplayInfo(displayID : ULONG location 'd0') : POINTER; syscall GfxBase 726;
+FUNCTION Flood(rp : pRastPort location 'a1'; mode : ULONG location 'd2'; x : LONGINT location 'd0'; y : LONGINT location 'd1') : LongBool; syscall GfxBase 330;
+PROCEDURE FontExtent(const font : pTextFont location 'a0'; fontExtent : pTextExtent location 'a1'); syscall GfxBase 762;
+PROCEDURE FreeBitMap(bm : pBitMap location 'a0'); syscall GfxBase 924;
+PROCEDURE FreeColorMap(colorMap : pColorMap location 'a0'); syscall GfxBase 576;
+PROCEDURE FreeCopList(copList : pCopList location 'a0'); syscall GfxBase 546;
+PROCEDURE FreeCprList(cprList : pcprlist location 'a0'); syscall GfxBase 564;
+PROCEDURE FreeDBufInfo(dbi : pDBufInfo location 'a1'); syscall GfxBase 972;
+PROCEDURE FreeGBuffers(anOb : pAnimOb location 'a0'; rp : pRastPort location 'a1'; flag : LONGINT location 'd0'); syscall GfxBase 600;
+PROCEDURE FreeRaster(p : pCHAR location 'a0'; width : ULONG location 'd0'; height : ULONG location 'd1'); syscall GfxBase 498;
+PROCEDURE FreeSprite(num : LONGINT location 'd0'); syscall GfxBase 414;
+PROCEDURE FreeSpriteData(sp : pExtSprite location 'a2'); syscall GfxBase 1032;
+PROCEDURE FreeVPortCopLists(vp : pViewPort location 'a0'); syscall GfxBase 540;
+FUNCTION GetAPen(rp : pRastPort location 'a0') : ULONG; syscall GfxBase 858;
+FUNCTION GetBitMapAttr(const bm : pBitMap location 'a0'; attrnum : ULONG location 'd1') : ULONG; syscall GfxBase 960;
+FUNCTION GetBPen(rp : pRastPort location 'a0') : ULONG; syscall GfxBase 864;
+FUNCTION GetColorMap(entries : LONGINT location 'd0') : pColorMap; syscall GfxBase 570;
+FUNCTION GetDisplayInfoData(const handle : POINTER location 'a0'; buf : pCHAR location 'a1'; size : ULONG location 'd0'; tagID : ULONG location 'd1'; displayID : ULONG location 'd2') : ULONG; syscall GfxBase 756;
+FUNCTION GetDrMd(rp : pRastPort location 'a0') : ULONG; syscall GfxBase 870;
+FUNCTION GetExtSpriteA(ss : pExtSprite location 'a2';const tags : pTagItem location 'a1') : LONGINT; syscall GfxBase 930;
+FUNCTION GetGBuffers(anOb : pAnimOb location 'a0'; rp : pRastPort location 'a1'; flag : LONGINT location 'd0') : LongBool; syscall GfxBase 168;
+FUNCTION GetOutlinePen(rp : pRastPort location 'a0') : ULONG; syscall GfxBase 876;
+PROCEDURE GetRGB32(const cm : pColorMap location 'a0'; firstcolor : ULONG location 'd0'; ncolors : ULONG location 'd1'; table : pulong location 'a1'); syscall GfxBase 900;
+FUNCTION GetRGB4(colorMap : pColorMap location 'a0'; entry : LONGINT location 'd0') : ULONG; syscall GfxBase 582;
+PROCEDURE GetRPAttrsA(const rp : pRastPort location 'a0';const tags : pTagItem location 'a1'); syscall GfxBase 1044;
+FUNCTION GetSprite(sprite : pSimpleSprite location 'a0'; num : LONGINT location 'd0') : smallint; syscall GfxBase 408;
+FUNCTION GetVPModeID(const vp : pViewPort location 'a0') : LONGINT; syscall GfxBase 792;
+PROCEDURE GfxAssociate(const associateNode : POINTER location 'a0'; gfxNodePtr : POINTER location 'a1'); syscall GfxBase 672;
+PROCEDURE GfxFree(gfxNodePtr : POINTER location 'a0'); syscall GfxBase 666;
+FUNCTION GfxLookUp(const associateNode : POINTER location 'a0') : POINTER; syscall GfxBase 702;
+FUNCTION GfxNew(gfxNodeType : ULONG location 'd0') : POINTER; syscall GfxBase 660;
+PROCEDURE InitArea(areaInfo : pAreaInfo location 'a0'; vectorBuffer : POINTER location 'a1'; maxVectors : LONGINT location 'd0'); syscall GfxBase 282;
+PROCEDURE InitBitMap(bitMap : pBitMap location 'a0'; depth : LONGINT location 'd0'; width : LONGINT location 'd1'; height : LONGINT location 'd2'); syscall GfxBase 390;
+PROCEDURE InitGels(head : pVSprite location 'a0'; tail : pVSprite location 'a1'; gelsInfo : pGelsInfo location 'a2'); syscall GfxBase 120;
+PROCEDURE InitGMasks(anOb : pAnimOb location 'a0'); syscall GfxBase 174;
+PROCEDURE InitMasks(vSprite : pVSprite location 'a0'); syscall GfxBase 126;
+PROCEDURE InitRastPort(rp : pRastPort location 'a1'); syscall GfxBase 198;
+FUNCTION InitTmpRas(tmpRas : pTmpRas location 'a0'; buffer : PLANEPTR location 'a1'; size : LONGINT location 'd0') : pTmpRas; syscall GfxBase 468;
+PROCEDURE InitView(view : pView location 'a1'); syscall GfxBase 360;
+PROCEDURE InitVPort(vp : pViewPort location 'a0'); syscall GfxBase 204;
+PROCEDURE LoadRGB32(vp : pViewPort location 'a0';const table : pULONG location 'a1'); syscall GfxBase 882;
+PROCEDURE LoadRGB4(vp : pViewPort location 'a0';const colors : pWord location 'a1'; count : LONGINT location 'd0'); syscall GfxBase 192;
+PROCEDURE LoadView(view : pView location 'a1'); syscall GfxBase 222;
+PROCEDURE LockLayerRom(layer : pLayer location 'a5'); syscall GfxBase 432;
+FUNCTION MakeVPort(view : pView location 'a0'; vp : pViewPort location 'a1') : ULONG; syscall GfxBase 216;
+FUNCTION ModeNotAvailable(modeID : ULONG location 'd0') : LONGINT; syscall GfxBase 798;
 PROCEDURE gfxMove(rp : pRastPort location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1'); syscall GfxBase 240;
-PROCEDURE MoveSprite(vp : pViewPort; sprite : pSimpleSprite; x : LONGINT; y : LONGINT);
-FUNCTION MrgCop(view : pView) : ULONG;
-FUNCTION NewRegion : pRegion;
-FUNCTION NextDisplayInfo(displayID : ULONG) : ULONG;
-FUNCTION ObtainBestPenA(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG;const tags : pTagItem) : LONGINT;
+PROCEDURE MoveSprite(vp : pViewPort location 'a0'; sprite : pSimpleSprite location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1'); syscall GfxBase 426;
+FUNCTION MrgCop(view : pView location 'a1') : ULONG; syscall GfxBase 210;
+FUNCTION NewRegion : pRegion; syscall GfxBase 516;
+FUNCTION NextDisplayInfo(displayID : ULONG location 'd0') : ULONG; syscall GfxBase 732;
+FUNCTION ObtainBestPenA(cm : pColorMap location 'a0'; r : ULONG location 'd1'; g : ULONG location 'd2'; b : ULONG location 'd3';const tags : pTagItem location 'a1') : LONGINT; syscall GfxBase 840;
 FUNCTION ObtainPen(cm : pColorMap location 'a0'; n : ULONG location 'd0'; r : ULONG location 'd1'; g : ULONG location 'd2'; b : ULONG location 'd3'; f : LONGINT location 'd4') : ULONG; syscall GfxBase 954;
-FUNCTION OpenFont(textAttr : pTextAttr) : pTextFont;
-FUNCTION OpenMonitor(const monitorName : pCHAR; displayID : ULONG) : pMonitorSpec;
-FUNCTION OrRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN;
-FUNCTION OrRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
-PROCEDURE OwnBlitter;
-PROCEDURE PolyDraw(rp : pRastPort; count : LONGINT;const polyTable : pLongint);
-PROCEDURE QBlit(blit : pbltnode);
-PROCEDURE QBSBlit(blit : pbltnode);
-FUNCTION ReadPixel(rp : pRastPort; x : LONGINT; y : LONGINT) : ULONG;
-FUNCTION ReadPixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; temprp : pRastPort) : LONGINT;
-FUNCTION ReadPixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pointer; tempRP : pRastPort) : LONGINT;
-PROCEDURE RectFill(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
+FUNCTION OpenFont(textAttr : pTextAttr location 'a0') : pTextFont; syscall GfxBase 072;
+FUNCTION OpenMonitor(const monitorName : pCHAR location 'a1'; displayID : ULONG location 'd0') : pMonitorSpec; syscall GfxBase 714;
+FUNCTION OrRectRegion(region : pRegion location 'a0';const rectangle : pRectangle location 'a1') : LongBool; syscall GfxBase 510;
+FUNCTION OrRegionRegion(const srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool; syscall GfxBase 612;
+PROCEDURE OwnBlitter; syscall GfxBase 456;
+PROCEDURE PolyDraw(rp : pRastPort location 'a1'; count : LONGINT location 'd0';const polyTable : pLongint location 'a0'); syscall GfxBase 336;
+PROCEDURE QBlit(blit : pbltnode location 'a1'); syscall GfxBase 276;
+PROCEDURE QBSBlit(blit : pbltnode location 'a1'); syscall GfxBase 294;
+FUNCTION ReadPixel(rp : pRastPort location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1') : ULONG; syscall GfxBase 318;
+FUNCTION ReadPixelArray8(rp : pRastPort location 'a0'; xstart : ULONG location 'd0'; ystart : ULONG location 'd1'; xstop : ULONG location 'd2'; ystop : ULONG location 'd3'; array_ : pointer location 'a2'; temprp : pRastPort location 'a1') : LONGINT; syscall GfxBase 780;
+FUNCTION ReadPixelLine8(rp : pRastPort location 'a0'; xstart : ULONG location 'd0'; ystart : ULONG location 'd1'; width : ULONG location 'd2'; array_ : pointer location 'a2'; tempRP : pRastPort location 'a1') : LONGINT; syscall GfxBase 768;
+PROCEDURE RectFill(rp : pRastPort location 'a1'; xMin : LONGINT location 'd0'; yMin : LONGINT location 'd1'; xMax : LONGINT location 'd2'; yMax : LONGINT location 'd3'); syscall GfxBase 306;
 PROCEDURE ReleasePen(cm : pColorMap location 'a0'; n : ULONG location 'd0'); syscall GfxBase 948;
-PROCEDURE RemFont(textFont : pTextFont);
-PROCEDURE RemIBob(bob : pBob; rp : pRastPort; vp : pViewPort);
-PROCEDURE RemVSprite(vSprite : pVSprite);
-FUNCTION ScalerDiv(factor : ULONG; numerator : ULONG; denominator : ULONG) : WORD;
-PROCEDURE ScrollRaster(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
-PROCEDURE ScrollRasterBF(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
-PROCEDURE ScrollVPort(vp : pViewPort);
+PROCEDURE RemFont(textFont : pTextFont location 'a1'); syscall GfxBase 486;
+PROCEDURE RemIBob(bob : pBob location 'a0'; rp : pRastPort location 'a1'; vp : pViewPort location 'a2'); syscall GfxBase 132;
+PROCEDURE RemVSprite(vSprite : pVSprite location 'a0'); syscall GfxBase 138;
+FUNCTION ScalerDiv(factor : ULONG location 'd0'; numerator : ULONG location 'd1'; denominator : ULONG location 'd2') : WORD; syscall GfxBase 684;
+PROCEDURE ScrollRaster(rp : pRastPort location 'a1'; 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 GfxBase 396;
+PROCEDURE ScrollRasterBF(rp : pRastPort location 'a1'; 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 GfxBase 1002;
+PROCEDURE ScrollVPort(vp : pViewPort location 'a0'); syscall GfxBase 588;
 PROCEDURE SetABPenDrMd(rp : pRastPort location 'a1'; apen : ULONG location 'd0'; bpen : ULONG location 'd1'; drawmode : ULONG location 'd2'); syscall GfxBase 894;
 PROCEDURE SetAPen(rp : pRastPort location 'a1'; pen : ULONG location 'd0'); syscall GfxBase 342;
 PROCEDURE SetBPen(rp : pRastPort location 'a1'; pen : ULONG location 'd0'); syscall GfxBase 348;
-FUNCTION SetChipRev(want : ULONG) : ULONG;
-PROCEDURE SetCollision(num : ULONG; routine : tPROCEDURE; gelsInfo : pGelsInfo);
-PROCEDURE SetDrMd(rp : pRastPort; drawMode : ULONG);
-FUNCTION SetFont(rp : pRastPort;const textFont : pTextFont) : LONGINT;
-PROCEDURE SetMaxPen(rp : pRastPort; maxpen : ULONG);
-FUNCTION SetOutlinePen(rp : pRastPort; pen : ULONG) : ULONG;
-PROCEDURE SetRast(rp : pRastPort; pen : ULONG);
-PROCEDURE SetRGB32(vp : pViewPort; n : ULONG; r : ULONG; g : ULONG; b : ULONG);
-PROCEDURE SetRGB32CM(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG);
-PROCEDURE SetRGB4(vp : pViewPort; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG);
-PROCEDURE SetRGB4CM(colorMap : pColorMap; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG);
-PROCEDURE SetRPAttrsA(rp : pRastPort;const tags : pTagItem);
-FUNCTION SetSoftStyle(rp : pRastPort; style : ULONG; enable : ULONG) : ULONG;
-FUNCTION SetWriteMask(rp : pRastPort; msk : ULONG) : ULONG;
-PROCEDURE SortGList(rp : pRastPort);
-PROCEDURE StripFont(font : pTextFont);
-PROCEDURE SyncSBitMap(layer : pLayer);
-FUNCTION GText(rp : pRastPort;const string_ : pCHAR; count : ULONG) : LONGINT;
-FUNCTION TextExtent(rp : pRastPort;const string_ : pCHAR; count : LONGINT; _textExtent : pTextExtent) : smallint;
-FUNCTION TextFit(rp : pRastPort;const string_ : pCHAR; strLen : ULONG; textExtent : pTextExtent; constrainingExtent : pTextExtent; strDirection : LONGINT; constrainingBitWidth : ULONG; constrainingBitHeight : ULONG) : ULONG;
-FUNCTION TextLength(rp : pRastPort;const string_ : pCHAR; count : ULONG) : smallint;
-FUNCTION UCopperListInit(uCopList : pUCopList; n : LONGINT) : pCopList;
-PROCEDURE UnlockLayerRom(layer : pLayer);
-FUNCTION VBeamPos : LONGINT;
-FUNCTION VideoControl(colorMap : pColorMap; tagarray : pTagItem) : BOOLEAN;
-PROCEDURE WaitBlit;
-PROCEDURE WaitBOVP(vp : pViewPort);
-PROCEDURE WaitTOF;
-FUNCTION WeighTAMatch(reqTextAttr : pTextAttr; targetTextAttr : pTextAttr; targetTags : pTagItem) : smallint;
-PROCEDURE WriteChunkyPixels(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; bytesperrow : LONGINT);
-FUNCTION WritePixel(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
-FUNCTION WritePixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; temprp : pRastPort) : LONGINT;
-FUNCTION WritePixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pointer; tempRP : pRastPort) : LONGINT;
-FUNCTION XorRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN;
-FUNCTION XorRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
+FUNCTION SetChipRev(want : ULONG location 'd0') : ULONG; syscall GfxBase 888;
+PROCEDURE SetCollision(num : ULONG location 'd0'; routine : tPROCEDURE location 'a0'; gelsInfo : pGelsInfo location 'a1'); syscall GfxBase 144;
+PROCEDURE SetDrMd(rp : pRastPort location 'a1'; drawMode : ULONG location 'd0'); syscall GfxBase 354;
+FUNCTION SetFont(rp : pRastPort location 'a1';const textFont : pTextFont location 'a0') : LONGINT; syscall GfxBase 066;
+PROCEDURE SetMaxPen(rp : pRastPort location 'a0'; maxpen : ULONG location 'd0'); syscall GfxBase 990;
+FUNCTION SetOutlinePen(rp : pRastPort location 'a0'; pen : ULONG location 'd0') : ULONG; syscall GfxBase 978;
+PROCEDURE SetRast(rp : pRastPort location 'a1'; pen : ULONG location 'd0'); syscall GfxBase 234;
+PROCEDURE SetRGB32(vp : pViewPort location 'a0'; n : ULONG location 'd0'; r : ULONG location 'd1'; g : ULONG location 'd2'; b : ULONG location 'd3'); syscall GfxBase 852;
+PROCEDURE SetRGB32CM(cm : pColorMap location 'a0'; n : ULONG location 'd0'; r : ULONG location 'd1'; g : ULONG location 'd2'; b : ULONG location 'd3'); syscall GfxBase 996;
+PROCEDURE SetRGB4(vp : pViewPort location 'a0'; index : LONGINT location 'd0'; red : ULONG location 'd1'; green : ULONG location 'd2'; blue : ULONG location 'd3'); syscall GfxBase 288;
+PROCEDURE SetRGB4CM(colorMap : pColorMap location 'a0'; index : LONGINT location 'd0'; red : ULONG location 'd1'; green : ULONG location 'd2'; blue : ULONG location 'd3'); syscall GfxBase 630;
+PROCEDURE SetRPAttrsA(rp : pRastPort location 'a0';const tags : pTagItem location 'a1'); syscall GfxBase 1038;
+FUNCTION SetSoftStyle(rp : pRastPort location 'a1'; style : ULONG location 'd0'; enable : ULONG location 'd1') : ULONG; syscall GfxBase 090;
+FUNCTION SetWriteMask(rp : pRastPort location 'a0'; msk : ULONG location 'd0') : ULONG; syscall GfxBase 984;
+PROCEDURE SortGList(rp : pRastPort location 'a1'); syscall GfxBase 150;
+PROCEDURE StripFont(font : pTextFont location 'a0'); syscall GfxBase 822;
+PROCEDURE SyncSBitMap(layer : pLayer location 'a0'); syscall GfxBase 444;
+FUNCTION GfxText(rp : pRastPort location 'a1';const string_ : pCHAR location 'a0'; count : ULONG location 'd0') : LONGINT; syscall GfxBase 060;
+FUNCTION TextExtent(rp : pRastPort location 'a1';const string_ : pCHAR location 'a0'; count : LONGINT location 'd0'; _textExtent : pTextExtent location 'a2') : smallint; syscall GfxBase 690;
+FUNCTION TextFit(rp : pRastPort location 'a1';const string_ : pCHAR location 'a0'; strLen : ULONG location 'd0'; textExtent : pTextExtent location 'a2'; constrainingExtent : pTextExtent location 'a3'; strDirection : LONGINT location 'd1'; constrainingBitWidth : ULONG location 'd2'; constrainingBitHeight : ULONG location 'd3') : ULONG; syscall GfxBase 696;
+FUNCTION TextLength(rp : pRastPort location 'a1';const string_ : pCHAR location 'a0'; count : ULONG location 'd0') : smallint; syscall GfxBase 054;
+FUNCTION UCopperListInit(uCopList : pUCopList location 'a0'; n : LONGINT location 'd0') : pCopList; syscall GfxBase 594;
+PROCEDURE UnlockLayerRom(layer : pLayer location 'a5'); syscall GfxBase 438;
+FUNCTION VBeamPos : LONGINT; syscall GfxBase 384;
+FUNCTION VideoControl(colorMap : pColorMap location 'a0'; tagarray : pTagItem location 'a1') : LongBool; syscall GfxBase 708;
+PROCEDURE WaitBlit; syscall GfxBase 228;
+PROCEDURE WaitBOVP(vp : pViewPort location 'a0'); syscall GfxBase 402;
+PROCEDURE WaitTOF; syscall GfxBase 270;
+FUNCTION WeighTAMatch(reqTextAttr : pTextAttr location 'a0'; targetTextAttr : pTextAttr location 'a1'; targetTags : pTagItem location 'a2') : smallint; syscall GfxBase 804;
+PROCEDURE WriteChunkyPixels(rp : pRastPort location 'a0'; xstart : ULONG location 'd0'; ystart : ULONG location 'd1'; xstop : ULONG location 'd2'; ystop : ULONG location 'd3'; array_ : pointer location 'a2'; bytesperrow : LONGINT location 'd4'); syscall GfxBase 1056;
+FUNCTION WritePixel(rp : pRastPort location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1') : LONGINT; syscall GfxBase 324;
+FUNCTION WritePixelArray8(rp : pRastPort location 'a0'; xstart : ULONG location 'd0'; ystart : ULONG location 'd1'; xstop : ULONG location 'd2'; ystop : ULONG location 'd3'; array_ : pointer location 'a2'; temprp : pRastPort location 'a1') : LONGINT; syscall GfxBase 786;
+FUNCTION WritePixelLine8(rp : pRastPort location 'a0'; xstart : ULONG location 'd0'; ystart : ULONG location 'd1'; width : ULONG location 'd2'; array_ : pointer location 'a2'; tempRP : pRastPort location 'a1') : LONGINT; syscall GfxBase 774;
+FUNCTION XorRectRegion(region : pRegion location 'a0';const rectangle : pRectangle location 'a1') : LongBool; syscall GfxBase 558;
+FUNCTION XorRegionRegion(const srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool; syscall GfxBase 618;
 
 { gfxmacros }
 
@@ -2537,1967 +2537,6 @@ BEGIN
     cust^.intena := BITSET OR INTF_VERTB;
 END;
 
-FUNCTION AllocSpriteDataA(const bm : pBitMap;const tags : pTagItem) : pExtSprite;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L bm,A2
-    MOVEA.L tags,A1
-    MOVEA.L GfxBase,A6
-    JSR -1020(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE AndRectRegion(region : pRegion;const rectangle : pRectangle);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L region,A0
-    MOVEA.L rectangle,A1
-    MOVEA.L GfxBase,A6
-    JSR -504(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION AndRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L srcRegion,A0
-    MOVEA.L destRegion,A1
-    MOVEA.L GfxBase,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 Animate(anKey : ppAnimOb; rp : pRastPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L anKey,A0
-    MOVEA.L rp,A1
-    MOVEA.L GfxBase,A6
-    JSR -162(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION AreaDraw(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  x,D0
-    MOVE.L  y,D1
-    MOVEA.L GfxBase,A6
-    JSR -258(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AreaEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  xCenter,D0
-    MOVE.L  yCenter,D1
-    MOVE.L  a,D2
-    MOVE.L  b,D3
-    MOVEA.L GfxBase,A6
-    JSR -186(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AreaEnd(rp : pRastPort) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L GfxBase,A6
-    JSR -264(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AreaMove(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  x,D0
-    MOVE.L  y,D1
-    MOVEA.L GfxBase,A6
-    JSR -252(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE AskFont(rp : pRastPort; textAttr : pTextAttr);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L textAttr,A0
-    MOVEA.L GfxBase,A6
-    JSR -474(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION AskSoftStyle(rp : pRastPort) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L GfxBase,A6
-    JSR -084(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AttachPalExtra(cm : pColorMap; vp : pViewPort) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L cm,A0
-    MOVEA.L vp,A1
-    MOVEA.L GfxBase,A6
-    JSR -834(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AttemptLockLayerRom(layer : pLayer) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L layer,A5
-    MOVEA.L GfxBase,A6
-    JSR -654(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION BestModeIDA(const tags : pTagItem) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L tags,A0
-    MOVEA.L GfxBase,A6
-    JSR -1050(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE BitMapScale(bitScaleArgs : pBitScaleArgs);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L bitScaleArgs,A0
-    MOVEA.L GfxBase,A6
-    JSR -678(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION BltBitMap(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destBitMap : pBitMap; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG; mask : ULONG; tempA : pCHAR) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L srcBitMap,A0
-    MOVE.L  xSrc,D0
-    MOVE.L  ySrc,D1
-    MOVEA.L destBitMap,A1
-    MOVE.L  xDest,D2
-    MOVE.L  yDest,D3
-    MOVE.L  xSize,D4
-    MOVE.L  ySize,D5
-    MOVE.L  minterm,D6
-    MOVE.L  mask,D7
-    MOVEA.L tempA,A2
-    MOVEA.L GfxBase,A6
-    JSR -030(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE BltBitMapRastPort(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L srcBitMap,A0
-    MOVE.L  xSrc,D0
-    MOVE.L  ySrc,D1
-    MOVEA.L destRP,A1
-    MOVE.L  xDest,D2
-    MOVE.L  yDest,D3
-    MOVE.L  xSize,D4
-    MOVE.L  ySize,D5
-    MOVE.L  minterm,D6
-    MOVEA.L GfxBase,A6
-    JSR -606(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE BltClear(memBlock : pCHAR; byteCount : ULONG; flags : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L memBlock,A1
-    MOVE.L  byteCount,D0
-    MOVE.L  flags,D1
-    MOVEA.L GfxBase,A6
-    JSR -300(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE BltMaskBitMapRastPort(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG;const bltMask : pCHAR);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L srcBitMap,A0
-    MOVE.L  xSrc,D0
-    MOVE.L  ySrc,D1
-    MOVEA.L destRP,A1
-    MOVE.L  xDest,D2
-    MOVE.L  yDest,D3
-    MOVE.L  xSize,D4
-    MOVE.L  ySize,D5
-    MOVE.L  minterm,D6
-    MOVEA.L bltMask,A2
-    MOVEA.L GfxBase,A6
-    JSR -636(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE BltPattern(rp : pRastPort;const mask : pCHAR; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT; maskBPR : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L mask,A0
-    MOVE.L  xMin,D0
-    MOVE.L  yMin,D1
-    MOVE.L  xMax,D2
-    MOVE.L  yMax,D3
-    MOVE.L  maskBPR,D4
-    MOVEA.L GfxBase,A6
-    JSR -312(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-
-FUNCTION CalcIVG(v : pView; vp : pViewPort) : WORD;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L v,A0
-    MOVEA.L vp,A1
-    MOVEA.L GfxBase,A6
-    JSR -828(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE CBump(copList : pUCopList);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L copList,A1
-    MOVEA.L GfxBase,A6
-    JSR -366(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION ChangeExtSpriteA(vp : pViewPort; oldsprite : pExtSprite; newsprite : pExtSprite;const tags : pTagItem) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L oldsprite,A1
-    MOVEA.L newsprite,A2
-    MOVEA.L tags,A3
-    MOVEA.L GfxBase,A6
-    JSR -1026(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ChangeSprite(vp : pViewPort; sprite : pSimpleSprite; newData : pWORD);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L sprite,A1
-    MOVEA.L newData,A2
-    MOVEA.L GfxBase,A6
-    JSR -420(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ChangeVPBitMap(vp : pViewPort; bm : pBitMap; db : pDBufInfo);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L bm,A1
-    MOVEA.L db,A2
-    MOVEA.L GfxBase,A6
-    JSR -942(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ClearEOL(rp : pRastPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L GfxBase,A6
-    JSR -042(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION ClearRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L region,A0
-    MOVEA.L rectangle,A1
-    MOVEA.L GfxBase,A6
-    JSR -522(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ClearRegion(region : pRegion);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L region,A0
-    MOVEA.L GfxBase,A6
-    JSR -528(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ClearScreen(rp : pRastPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L GfxBase,A6
-    JSR -048(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ClipBlit(srcRP : pRastPort; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L srcRP,A0
-    MOVE.L  xSrc,D0
-    MOVE.L  ySrc,D1
-    MOVEA.L destRP,A1
-    MOVE.L  xDest,D2
-    MOVE.L  yDest,D3
-    MOVE.L  xSize,D4
-    MOVE.L  ySize,D5
-    MOVE.L  minterm,D6
-    MOVEA.L GfxBase,A6
-    JSR -552(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE CloseFont(textFont : pTextFont);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L textFont,A1
-    MOVEA.L GfxBase,A6
-    JSR -078(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION CloseMonitor(monitorSpec : pMonitorSpec) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L monitorSpec,A0
-    MOVEA.L GfxBase,A6
-    JSR -720(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE CMove(copList : pUCopList; destination : POINTER; data : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L copList,A1
-    MOVE.L  destination,D0
-    MOVE.L  data,D1
-    MOVEA.L GfxBase,A6
-    JSR -372(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION CoerceMode(vp : pViewPort; monitorid : ULONG; flags : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVE.L  monitorid,D0
-    MOVE.L  flags,D1
-    MOVEA.L GfxBase,A6
-    JSR -936(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE CopySBitMap(layer : pLayer);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L layer,A0
-    MOVEA.L GfxBase,A6
-    JSR -450(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE CWait(copList : pUCopList; v : LONGINT; h : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L copList,A1
-    MOVE.L  v,D0
-    MOVE.L  h,D1
-    MOVEA.L GfxBase,A6
-    JSR -378(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DisownBlitter;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L GfxBase,A6
-    JSR -462(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DisposeRegion(region : pRegion);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L region,A0
-    MOVEA.L GfxBase,A6
-    JSR -534(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DoCollision(rp : pRastPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L GfxBase,A6
-    JSR -108(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-
-PROCEDURE DrawEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  xCenter,D0
-    MOVE.L  yCenter,D1
-    MOVE.L  a,D2
-    MOVE.L  b,D3
-    MOVEA.L GfxBase,A6
-    JSR -180(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE DrawGList(rp : pRastPort; vp : pViewPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L vp,A0
-    MOVEA.L GfxBase,A6
-    JSR -114(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE EraseRect(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  xMin,D0
-    MOVE.L  yMin,D1
-    MOVE.L  xMax,D2
-    MOVE.L  yMax,D3
-    MOVEA.L GfxBase,A6
-    JSR -810(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION ExtendFont(font : pTextFont;const fontTags : pTagItem) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L font,A0
-    MOVEA.L fontTags,A1
-    MOVEA.L GfxBase,A6
-    JSR -816(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindColor(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; maxcolor : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L cm,A3
-    MOVE.L  r,D1
-    MOVE.L  g,D2
-    MOVE.L  b,D3
-    MOVE.L  maxcolor,D4
-    MOVEA.L GfxBase,A6
-    JSR -1008(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindDisplayInfo(displayID : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  displayID,D0
-    MOVEA.L GfxBase,A6
-    JSR -726(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION Flood(rp : pRastPort; mode : ULONG; x : LONGINT; y : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  mode,D2
-    MOVE.L  x,D0
-    MOVE.L  y,D1
-    MOVEA.L GfxBase,A6
-    JSR -330(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE FontExtent(const font : pTextFont; fontExtent : pTextExtent);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L font,A0
-    MOVEA.L fontExtent,A1
-    MOVEA.L GfxBase,A6
-    JSR -762(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeBitMap(bm : pBitMap);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L bm,A0
-    MOVEA.L GfxBase,A6
-    JSR -924(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeColorMap(colorMap : pColorMap);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L colorMap,A0
-    MOVEA.L GfxBase,A6
-    JSR -576(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeCopList(copList : pCopList);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L copList,A0
-    MOVEA.L GfxBase,A6
-    JSR -546(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeCprList(cprList : pcprlist);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L cprList,A0
-    MOVEA.L GfxBase,A6
-    JSR -564(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeDBufInfo(dbi : pDBufInfo);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L dbi,A1
-    MOVEA.L GfxBase,A6
-    JSR -972(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L anOb,A0
-    MOVEA.L rp,A1
-    MOVE.L  flag,D0
-    MOVEA.L GfxBase,A6
-    JSR -600(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeRaster(p : pCHAR; width : ULONG; height : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L p,A0
-    MOVE.L  width,D0
-    MOVE.L  height,D1
-    MOVEA.L GfxBase,A6
-    JSR -498(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeSprite(num : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  num,D0
-    MOVEA.L GfxBase,A6
-    JSR -414(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeSpriteData(sp : pExtSprite);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sp,A2
-    MOVEA.L GfxBase,A6
-    JSR -1032(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeVPortCopLists(vp : pViewPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L GfxBase,A6
-    JSR -540(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION GetAPen(rp : pRastPort) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L GfxBase,A6
-    JSR -858(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetBitMapAttr(const bm : pBitMap; attrnum : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L bm,A0
-    MOVE.L  attrnum,D1
-    MOVEA.L GfxBase,A6
-    JSR -960(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetBPen(rp : pRastPort) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L GfxBase,A6
-    JSR -864(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetColorMap(entries : LONGINT) : pColorMap;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  entries,D0
-    MOVEA.L GfxBase,A6
-    JSR -570(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetDisplayInfoData(const handle : POINTER; buf : pCHAR; size : ULONG; tagID : ULONG; displayID : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L handle,A0
-    MOVEA.L buf,A1
-    MOVE.L  size,D0
-    MOVE.L  tagID,D1
-    MOVE.L  displayID,D2
-    MOVEA.L GfxBase,A6
-    JSR -756(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetDrMd(rp : pRastPort) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L GfxBase,A6
-    JSR -870(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetExtSpriteA(ss : pExtSprite;const tags : pTagItem) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L ss,A2
-    MOVEA.L tags,A1
-    MOVEA.L GfxBase,A6
-    JSR -930(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L anOb,A0
-    MOVEA.L rp,A1
-    MOVE.L  flag,D0
-    MOVEA.L GfxBase,A6
-    JSR -168(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetOutlinePen(rp : pRastPort) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L GfxBase,A6
-    JSR -876(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE GetRGB32(const cm : pColorMap; firstcolor : ULONG; ncolors : ULONG; table : pUlong);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L cm,A0
-    MOVE.L  firstcolor,D0
-    MOVE.L  ncolors,D1
-    MOVEA.L table,A1
-    MOVEA.L GfxBase,A6
-    JSR -900(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION GetRGB4(colorMap : pColorMap; entry : LONGINT) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L colorMap,A0
-    MOVE.L  entry,D0
-    MOVEA.L GfxBase,A6
-    JSR -582(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE GetRPAttrsA(const rp : pRastPort;const tags : pTagItem);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L tags,A1
-    MOVEA.L GfxBase,A6
-    JSR -1044(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION GetSprite(sprite : pSimpleSprite; num : LONGINT) : smallint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L sprite,A0
-    MOVE.L  num,D0
-    MOVEA.L GfxBase,A6
-    JSR -408(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetVPModeID(const vp : pViewPort) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L GfxBase,A6
-    JSR -792(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE GfxAssociate(const associateNode : POINTER; gfxNodePtr : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L associateNode,A0
-    MOVEA.L gfxNodePtr,A1
-    MOVEA.L GfxBase,A6
-    JSR -672(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE GfxFree(gfxNodePtr : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L gfxNodePtr,A0
-    MOVEA.L GfxBase,A6
-    JSR -666(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION GfxLookUp(const associateNode : POINTER) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L associateNode,A0
-    MOVEA.L GfxBase,A6
-    JSR -702(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GfxNew(gfxNodeType : ULONG) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  gfxNodeType,D0
-    MOVEA.L GfxBase,A6
-    JSR -660(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE InitArea(areaInfo : pAreaInfo; vectorBuffer : POINTER; maxVectors : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L areaInfo,A0
-    MOVEA.L vectorBuffer,A1
-    MOVE.L  maxVectors,D0
-    MOVEA.L GfxBase,A6
-    JSR -282(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE InitBitMap(bitMap : pBitMap; depth : LONGINT; width : LONGINT; height : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L bitMap,A0
-    MOVE.L  depth,D0
-    MOVE.L  width,D1
-    MOVE.L  height,D2
-    MOVEA.L GfxBase,A6
-    JSR -390(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE InitGels(head : pVSprite; tail : pVSprite; gelsInfo : pGelsInfo);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L head,A0
-    MOVEA.L tail,A1
-    MOVEA.L gelsInfo,A2
-    MOVEA.L GfxBase,A6
-    JSR -120(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE InitGMasks(anOb : pAnimOb);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L anOb,A0
-    MOVEA.L GfxBase,A6
-    JSR -174(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE InitMasks(vSprite : pVSprite);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vSprite,A0
-    MOVEA.L GfxBase,A6
-    JSR -126(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE InitRastPort(rp : pRastPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L GfxBase,A6
-    JSR -198(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION InitTmpRas(tmpRas : pTmpRas; buffer : PLANEPTR; size : LONGINT) : pTmpRas;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L tmpRas,A0
-    MOVEA.L buffer,A1
-    MOVE.L  size,D0
-    MOVEA.L GfxBase,A6
-    JSR -468(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE InitView(view : pView);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L view,A1
-    MOVEA.L GfxBase,A6
-    JSR -360(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE InitVPort(vp : pViewPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L GfxBase,A6
-    JSR -204(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE LoadRGB32(vp : pViewPort;const table : pULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L table,A1
-    MOVEA.L GfxBase,A6
-    JSR -882(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE LoadRGB4(vp : pViewPort;const colors : pWord; count : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L colors,A1
-    MOVE.L  count,D0
-    MOVEA.L GfxBase,A6
-    JSR -192(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE LoadView(view : pView);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L view,A1
-    MOVEA.L GfxBase,A6
-    JSR -222(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE LockLayerRom(layer : pLayer);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L layer,A5
-    MOVEA.L GfxBase,A6
-    JSR -432(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION MakeVPort(view : pView; vp : pViewPort) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L view,A0
-    MOVEA.L vp,A1
-    MOVEA.L GfxBase,A6
-    JSR -216(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ModeNotAvailable(modeID : ULONG) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  modeID,D0
-    MOVEA.L GfxBase,A6
-    JSR -798(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE MoveSprite(vp : pViewPort; sprite : pSimpleSprite; x : LONGINT; y : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L sprite,A1
-    MOVE.L  x,D0
-    MOVE.L  y,D1
-    MOVEA.L GfxBase,A6
-    JSR -426(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION MrgCop(view : pView) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L view,A1
-    MOVEA.L GfxBase,A6
-    JSR -210(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION NewRegion : pRegion;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L GfxBase,A6
-    JSR -516(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION NextDisplayInfo(displayID : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  displayID,D0
-    MOVEA.L GfxBase,A6
-    JSR -732(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ObtainBestPenA(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG;const tags : pTagItem) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L cm,A0
-    MOVE.L  r,D1
-    MOVE.L  g,D2
-    MOVE.L  b,D3
-    MOVEA.L tags,A1
-    MOVEA.L GfxBase,A6
-    JSR -840(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-
-FUNCTION OpenFont(textAttr : pTextAttr) : pTextFont;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L textAttr,A0
-    MOVEA.L GfxBase,A6
-    JSR -072(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION OpenMonitor(const monitorName : pCHAR; displayID : ULONG) : pMonitorSpec;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L monitorName,A1
-    MOVE.L  displayID,D0
-    MOVEA.L GfxBase,A6
-    JSR -714(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION OrRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L region,A0
-    MOVEA.L rectangle,A1
-    MOVEA.L GfxBase,A6
-    JSR -510(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION OrRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L srcRegion,A0
-    MOVEA.L destRegion,A1
-    MOVEA.L GfxBase,A6
-    JSR -612(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE OwnBlitter;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L GfxBase,A6
-    JSR -456(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE PolyDraw(rp : pRastPort; count : LONGINT;const polyTable : pLongint);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  count,D0
-    MOVEA.L polyTable,A0
-    MOVEA.L GfxBase,A6
-    JSR -336(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE QBlit(blit : pbltnode);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L blit,A1
-    MOVEA.L GfxBase,A6
-    JSR -276(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE QBSBlit(blit : pbltnode);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L blit,A1
-    MOVEA.L GfxBase,A6
-    JSR -294(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION ReadPixel(rp : pRastPort; x : LONGINT; y : LONGINT) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  x,D0
-    MOVE.L  y,D1
-    MOVEA.L GfxBase,A6
-    JSR -318(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ReadPixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; temprp : pRastPort) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVE.L  xstart,D0
-    MOVE.L  ystart,D1
-    MOVE.L  xstop,D2
-    MOVE.L  ystop,D3
-    MOVEA.L array_,A2
-    MOVEA.L temprp,A1
-    MOVEA.L GfxBase,A6
-    JSR -780(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ReadPixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pointer; tempRP : pRastPort) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVE.L  xstart,D0
-    MOVE.L  ystart,D1
-    MOVE.L  width,D2
-    MOVEA.L array_,A2
-    MOVEA.L tempRP,A1
-    MOVEA.L GfxBase,A6
-    JSR -768(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE RectFill(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  xMin,D0
-    MOVE.L  yMin,D1
-    MOVE.L  xMax,D2
-    MOVE.L  yMax,D3
-    MOVEA.L GfxBase,A6
-    JSR -306(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-
-PROCEDURE RemFont(textFont : pTextFont);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L textFont,A1
-    MOVEA.L GfxBase,A6
-    JSR -486(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RemIBob(bob : pBob; rp : pRastPort; vp : pViewPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L bob,A0
-    MOVEA.L rp,A1
-    MOVEA.L vp,A2
-    MOVEA.L GfxBase,A6
-    JSR -132(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE RemVSprite(vSprite : pVSprite);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vSprite,A0
-    MOVEA.L GfxBase,A6
-    JSR -138(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION ScalerDiv(factor : ULONG; numerator : ULONG; denominator : ULONG) : WORD;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  factor,D0
-    MOVE.L  numerator,D1
-    MOVE.L  denominator,D2
-    MOVEA.L GfxBase,A6
-    JSR -684(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ScrollRaster(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,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 GfxBase,A6
-    JSR -396(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ScrollRasterBF(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,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 GfxBase,A6
-    JSR -1002(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE ScrollVPort(vp : pViewPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L GfxBase,A6
-    JSR -588(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-
-
-FUNCTION SetChipRev(want : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  want,D0
-    MOVEA.L GfxBase,A6
-    JSR -888(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE SetCollision(num : ULONG; routine : tPROCEDURE; gelsInfo : pGelsInfo);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  num,D0
-    MOVEA.L routine,A0
-    MOVEA.L gelsInfo,A1
-    MOVEA.L GfxBase,A6
-    JSR -144(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SetDrMd(rp : pRastPort; drawMode : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  drawMode,D0
-    MOVEA.L GfxBase,A6
-    JSR -354(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SetFont(rp : pRastPort;const textFont : pTextFont) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L textFont,A0
-    MOVEA.L GfxBase,A6
-    JSR -066(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE SetMaxPen(rp : pRastPort; maxpen : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVE.L  maxpen,D0
-    MOVEA.L GfxBase,A6
-    JSR -990(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SetOutlinePen(rp : pRastPort; pen : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVE.L  pen,D0
-    MOVEA.L GfxBase,A6
-    JSR -978(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE SetRast(rp : pRastPort; pen : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  pen,D0
-    MOVEA.L GfxBase,A6
-    JSR -234(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SetRGB32(vp : pViewPort; n : ULONG; r : ULONG; g : ULONG; b : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVE.L  n,D0
-    MOVE.L  r,D1
-    MOVE.L  g,D2
-    MOVE.L  b,D3
-    MOVEA.L GfxBase,A6
-    JSR -852(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SetRGB32CM(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L cm,A0
-    MOVE.L  n,D0
-    MOVE.L  r,D1
-    MOVE.L  g,D2
-    MOVE.L  b,D3
-    MOVEA.L GfxBase,A6
-    JSR -996(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SetRGB4(vp : pViewPort; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVE.L  index,D0
-    MOVE.L  red,D1
-    MOVE.L  green,D2
-    MOVE.L  blue,D3
-    MOVEA.L GfxBase,A6
-    JSR -288(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SetRGB4CM(colorMap : pColorMap; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L colorMap,A0
-    MOVE.L  index,D0
-    MOVE.L  red,D1
-    MOVE.L  green,D2
-    MOVE.L  blue,D3
-    MOVEA.L GfxBase,A6
-    JSR -630(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SetRPAttrsA(rp : pRastPort;const tags : pTagItem);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVEA.L tags,A1
-    MOVEA.L GfxBase,A6
-    JSR -1038(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SetSoftStyle(rp : pRastPort; style : ULONG; enable : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  style,D0
-    MOVE.L  enable,D1
-    MOVEA.L GfxBase,A6
-    JSR -090(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetWriteMask(rp : pRastPort; msk : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVE.L  msk,D0
-    MOVEA.L GfxBase,A6
-    JSR -984(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE SortGList(rp : pRastPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L GfxBase,A6
-    JSR -150(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE StripFont(font : pTextFont);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L font,A0
-    MOVEA.L GfxBase,A6
-    JSR -822(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE SyncSBitMap(layer : pLayer);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L layer,A0
-    MOVEA.L GfxBase,A6
-    JSR -444(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION GText(rp : pRastPort;const string_ : pCHAR; count : ULONG) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L string_,A0
-    MOVE.L  count,D0
-    MOVEA.L GfxBase,A6
-    JSR -060(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION TextExtent(rp : pRastPort;const string_ : pCHAR; count : LONGINT; _textExtent : pTextExtent) : smallint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L string_,A0
-    MOVE.L  count,D0
-    MOVEA.L _textExtent,A2
-    MOVEA.L GfxBase,A6
-    JSR -690(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION TextFit(rp : pRastPort;const string_ : pCHAR; strLen : ULONG; textExtent : pTextExtent; constrainingExtent : pTextExtent; strDirection : LONGINT; constrainingBitWidth : ULONG; constrainingBitHeight : ULONG) : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L string_,A0
-    MOVE.L  strLen,D0
-    MOVEA.L textExtent,A2
-    MOVEA.L constrainingExtent,A3
-    MOVE.L  strDirection,D1
-    MOVE.L  constrainingBitWidth,D2
-    MOVE.L  constrainingBitHeight,D3
-    MOVEA.L GfxBase,A6
-    JSR -696(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION TextLength(rp : pRastPort;const string_ : pCHAR; count : ULONG) : smallint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVEA.L string_,A0
-    MOVE.L  count,D0
-    MOVEA.L GfxBase,A6
-    JSR -054(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION UCopperListInit(uCopList : pUCopList; n : LONGINT) : pCopList;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L uCopList,A0
-    MOVE.L  n,D0
-    MOVEA.L GfxBase,A6
-    JSR -594(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE UnlockLayerRom(layer : pLayer);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L layer,A5
-    MOVEA.L GfxBase,A6
-    JSR -438(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION VBeamPos : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L GfxBase,A6
-    JSR -384(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION VideoControl(colorMap : pColorMap; tagarray : pTagItem) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L colorMap,A0
-    MOVEA.L tagarray,A1
-    MOVEA.L GfxBase,A6
-    JSR -708(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE WaitBlit;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L GfxBase,A6
-    JSR -228(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE WaitBOVP(vp : pViewPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L vp,A0
-    MOVEA.L GfxBase,A6
-    JSR -402(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE WaitTOF;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L GfxBase,A6
-    JSR -270(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION WeighTAMatch(reqTextAttr : pTextAttr; targetTextAttr : pTextAttr; targetTags : pTagItem) : smallint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L reqTextAttr,A0
-    MOVEA.L targetTextAttr,A1
-    MOVEA.L targetTags,A2
-    MOVEA.L GfxBase,A6
-    JSR -804(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE WriteChunkyPixels(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; bytesperrow : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVE.L  xstart,D0
-    MOVE.L  ystart,D1
-    MOVE.L  xstop,D2
-    MOVE.L  ystop,D3
-    MOVEA.L array_,A2
-    MOVE.L  bytesperrow,D4
-    MOVEA.L GfxBase,A6
-    JSR -1056(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION WritePixel(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A1
-    MOVE.L  x,D0
-    MOVE.L  y,D1
-    MOVEA.L GfxBase,A6
-    JSR -324(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION WritePixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; temprp : pRastPort) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVE.L  xstart,D0
-    MOVE.L  ystart,D1
-    MOVE.L  xstop,D2
-    MOVE.L  ystop,D3
-    MOVEA.L array_,A2
-    MOVEA.L temprp,A1
-    MOVEA.L GfxBase,A6
-    JSR -786(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION WritePixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pointer; tempRP : pRastPort) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L rp,A0
-    MOVE.L  xstart,D0
-    MOVE.L  ystart,D1
-    MOVE.L  width,D2
-    MOVEA.L array_,A2
-    MOVEA.L tempRP,A1
-    MOVEA.L GfxBase,A6
-    JSR -774(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION XorRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L region,A0
-    MOVEA.L rectangle,A1
-    MOVEA.L GfxBase,A6
-    JSR -558(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION XorRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L srcRegion,A0
-    MOVEA.L destRegion,A1
-    MOVEA.L GfxBase,A6
-    JSR -618(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
 const
     { Change VERSION and LIBVERSION to proper values }
 

packages/amunits/src/coreunits/amigados.pas

@@ -1578,169 +1578,169 @@ CONST
 {    no tags are defined yet for NewLoadSeg }
 
 
-PROCEDURE AbortPkt(port : pMsgPort; pkt : pDosPacket);
-FUNCTION AddBuffers(const name : pCHAR; number : LONGINT) : BOOLEAN;
-FUNCTION AddDosEntry(dlist : pDosList) : BOOLEAN;
-FUNCTION AddPart(dirname : pCHAR;const filename : pCHAR; size : ULONG) : BOOLEAN;
-FUNCTION AddSegment(const name : pCHAR; seg : LONGINT; system : LONGINT) : BOOLEAN;
-FUNCTION AllocDosObject(type_ : ULONG;const tags : pTagItem) : POINTER;
-FUNCTION AllocDosObjectTagList(type_ : ULONG;const tags : pTagItem) : POINTER;
-FUNCTION AssignAdd(const name : pCHAR; lock : LONGINT) : BOOLEAN;
-FUNCTION AssignLate(const name : pCHAR;const path : pCHAR) : BOOLEAN;
-FUNCTION AssignLock(const name : pCHAR; lock : LONGINT) : BOOLEAN;
-FUNCTION AssignPath(const name : pCHAR;const path : pCHAR) : BOOLEAN;
-FUNCTION AttemptLockDosList(flags : ULONG) : pDosList;
-FUNCTION ChangeMode(type_ : LONGINT; fh : LONGINT; newmode : LONGINT) : BOOLEAN;
-FUNCTION CheckSignal(mask : LONGINT) : LONGINT;
-FUNCTION Cli : pCommandLineInterface;
-FUNCTION CliInitNewcli(dp : pDosPacket) : LONGINT;
-FUNCTION CliInitRun(dp : pDosPacket) : LONGINT;
-FUNCTION CompareDates(const date1 : pDateStamp;const date2 : pDateStamp) : LONGINT;
-FUNCTION CreateDir(const name : pCHAR) : LONGINT;
-FUNCTION CreateNewProc(const tags : pTagItem) : pProcess;
-FUNCTION CreateNewProcTagList(const tags : pTagItem) : pProcess;
-FUNCTION CreateProc(const name : pCHAR; pri : LONGINT; segList : LONGINT; stackSize : LONGINT) : pMsgPort;
-FUNCTION CurrentDir(lock : LONGINT) : LONGINT;
-PROCEDURE DateStamp(date : pDateStamp);
-FUNCTION DateToStr(datetime : pDateTime) : BOOLEAN;
-FUNCTION DeleteFile(const name : pCHAR) : BOOLEAN;
-FUNCTION DeleteVar(const name : pCHAR; flags : ULONG) : BOOLEAN;
-FUNCTION DeviceProc(const name : pCHAR) : pMsgPort;
-FUNCTION DoPkt(port : pMsgPort; action : LONGINT; arg1 : LONGINT; arg2 : LONGINT; arg3 : LONGINT; arg4 : LONGINT; arg5 : LONGINT) : LONGINT;
-FUNCTION DoPkt0(port : pMsgPort; action : LONGINT) : LONGINT;
-FUNCTION DoPkt1(port : pMsgPort; action : LONGINT; arg1 : LONGINT) : LONGINT;
-FUNCTION DoPkt2(port : pMsgPort; action : LONGINT; arg1 : LONGINT; arg2 : LONGINT) : LONGINT;
-FUNCTION DoPkt3(port : pMsgPort; action : LONGINT; arg1 : LONGINT; arg2 : LONGINT; arg3 : LONGINT) : LONGINT;
-FUNCTION DoPkt4(port : pMsgPort; action : LONGINT; arg1 : LONGINT; arg2 : LONGINT; arg3 : LONGINT; arg4 : LONGINT) : LONGINT;
-PROCEDURE DOSClose(file_ : LONGINT);
+PROCEDURE AbortPkt(port : pMsgPort location 'd1'; pkt : pDosPacket location 'd2'); syscall _DOSBase 264;
+FUNCTION AddBuffers(const name : pCHAR location 'd1'; number : LONGINT location 'd2') : LongBool; syscall _DOSBase 732;
+FUNCTION AddDosEntry(dlist : pDosList location 'd1') : LongBool; syscall _DOSBase 678;
+FUNCTION AddPart(dirname : pCHAR location 'd1';const filename : pCHAR location 'd2'; size : ULONG location 'd3') : LongBool; syscall _DOSBase 882;
+FUNCTION AddSegment(const name : pCHAR location 'd1'; seg : LONGINT location 'd2'; system : LONGINT location 'd3') : LongBool; syscall _DOSBase 774;
+FUNCTION AllocDosObject(type_ : ULONG location 'd1';const tags : pTagItem location 'd2') : POINTER; syscall _DOSBase 228;
+FUNCTION AllocDosObjectTagList(type_ : ULONG location 'd1';const tags : pTagItem location 'd2') : POINTER; syscall _DOSBase 228;
+FUNCTION AssignAdd(const name : pCHAR location 'd1'; lock : LONGINT location 'd2') : LongBool; syscall _DOSBase 630;
+FUNCTION AssignLate(const name : pCHAR location 'd1';const path : pCHAR location 'd2') : LongBool; syscall _DOSBase 618;
+FUNCTION AssignLock(const name : pCHAR location 'd1'; lock : LONGINT location 'd2') : LongBool; syscall _DOSBase 612;
+FUNCTION AssignPath(const name : pCHAR location 'd1';const path : pCHAR location 'd2') : LongBool; syscall _DOSBase 624;
+FUNCTION AttemptLockDosList(flags : ULONG location 'd1') : pDosList; syscall _DOSBase 666;
+FUNCTION ChangeMode(type_ : LONGINT location 'd1'; fh : LONGINT location 'd2'; newmode : LONGINT location 'd3') : LongBool; syscall _DOSBase 450;
+FUNCTION CheckSignal(mask : LONGINT location 'd1') : LONGINT; syscall _DOSBase 792;
+FUNCTION Cli : pCommandLineInterface; syscall _DOSBase 492;
+FUNCTION CliInitNewcli(dp : pDosPacket location 'a0') : LONGINT; syscall _DOSBase 930;
+FUNCTION CliInitRun(dp : pDosPacket location 'a0') : LONGINT; syscall _DOSBase 936;
+FUNCTION CompareDates(const date1 : pDateStamp location 'd1';const date2 : pDateStamp location 'd2') : LONGINT; syscall _DOSBase 738;
+FUNCTION CreateDir(const name : pCHAR location 'd1') : LONGINT; syscall _DOSBase 120;
+FUNCTION CreateNewProc(const tags : pTagItem location 'd1') : pProcess; syscall _DOSBase 498;
+FUNCTION CreateNewProcTagList(const tags : pTagItem location 'd1') : pProcess; syscall _DOSBase 498;
+FUNCTION CreateProc(const name : pCHAR location 'd1'; pri : LONGINT location 'd2'; segList : LONGINT location 'd3'; stackSize : LONGINT location 'd4') : pMsgPort; syscall _DOSBase 138;
+FUNCTION CurrentDir(lock : LONGINT location 'd1') : LONGINT; syscall _DOSBase 126;
+PROCEDURE DateStamp(date : pDateStamp location 'd1'); syscall _DOSBase 192;
+FUNCTION DateToStr(datetime : pDateTime location 'd1') : LongBool; syscall _DOSBase 744;
+FUNCTION DeleteFile(const name : pCHAR location 'd1') : LongBool; syscall _DOSBase 072;
+FUNCTION DeleteVar(const name : pCHAR location 'd1'; flags : ULONG location 'd2') : LongBool; syscall _DOSBase 912;
+FUNCTION DeviceProc(const name : pCHAR location 'd1') : pMsgPort; syscall _DOSBase 174;
+FUNCTION DoPkt(port : pMsgPort location 'd1'; action : LONGINT location 'd2'; arg1 : LONGINT location 'd3'; arg2 : LONGINT location 'd4'; arg3 : LONGINT location 'd5'; arg4 : LONGINT location 'd6'; arg5 : LONGINT location 'd7') : LONGINT; syscall _DOSBase 240;
+FUNCTION DoPkt0(port : pMsgPort location 'd1'; action : LONGINT location 'd2') : LONGINT; syscall _DOSBase 240;
+FUNCTION DoPkt1(port : pMsgPort location 'd1'; action : LONGINT location 'd2'; arg1 : LONGINT location 'd3') : LONGINT; syscall _DOSBase 240;
+FUNCTION DoPkt2(port : pMsgPort location 'd1'; action : LONGINT location 'd2'; arg1 : LONGINT location 'd3'; arg2 : LONGINT location 'd4') : LONGINT; syscall _DOSBase 240;
+FUNCTION DoPkt3(port : pMsgPort location 'd1'; action : LONGINT location 'd2'; arg1 : LONGINT location 'd3'; arg2 : LONGINT location 'd4'; arg3 : LONGINT location 'd5') : LONGINT; syscall _DOSBase 240;
+FUNCTION DoPkt4(port : pMsgPort location 'd1'; action : LONGINT location 'd2'; arg1 : LONGINT location 'd3'; arg2 : LONGINT location 'd4'; arg3 : LONGINT location 'd5'; arg4 : LONGINT location 'd6') : LONGINT; syscall _DOSBase 240;
+PROCEDURE DOSClose(file_ : LONGINT location 'd1'); syscall _DOSBase 036;
 PROCEDURE DOSDelay(timeout : LONGINT location 'd1'); syscall _DOSBase 198;
-PROCEDURE DOSExit(returnCode : LONGINT);
-FUNCTION DOSFlush(fh : LONGINT) : BOOLEAN;
-FUNCTION DOSInput : LONGINT;
-FUNCTION DOSOpen(const name : pCHAR; accessMode : LONGINT) : LONGINT;
-FUNCTION DOSOutput : LONGINT;
-FUNCTION DOSRead(file_ : LONGINT; buffer : POINTER; length : LONGINT) : LONGINT;
-FUNCTION DOSRename(const oldName : pCHAR;const newName : pCHAR) : Boolean;
-FUNCTION DOSSeek(file_ : LONGINT; position : LONGINT; offset : LONGINT) : LONGINT;
-FUNCTION DOSWrite(file_ : LONGINT; buffer : POINTER; length : LONGINT) : LONGINT;
-FUNCTION DupLock(lock : LONGINT) : LONGINT;
-FUNCTION DupLockFromFH(fh : LONGINT) : LONGINT;
-PROCEDURE EndNotify(notify : pNotifyRequest);
-FUNCTION ErrorReport(code : LONGINT; type_ : LONGINT; arg1 : ULONG; device : pMsgPort) : BOOLEAN;
-FUNCTION ExAll(lock : LONGINT; buffer : pExAllData; size : LONGINT; data : LONGINT; control : pExAllControl) : BOOLEAN;
-PROCEDURE ExAllEnd(lock : LONGINT; buffer : pExAllData; size : LONGINT; data : LONGINT; control : pExAllControl);
-FUNCTION Examine(lock : LONGINT; fileInfoBlock : pFileInfoBlock) : BOOLEAN;
-FUNCTION ExamineFH(fh : LONGINT; fib : pFileInfoBlock) : BOOLEAN;
-FUNCTION Execute(const string_ : pCHAR; file_ : LONGINT; file2 : LONGINT) : BOOLEAN;
-FUNCTION ExNext(lock : LONGINT; fileInfoBlock : pFileInfoBlock) : BOOLEAN;
-FUNCTION Fault(code : LONGINT; header : pCHAR; buffer : pCHAR; len : LONGINT) : BOOLEAN;
-FUNCTION FGetC(fh : LONGINT) : LONGINT;
-FUNCTION FGets(fh : LONGINT; buf : pCHAR; buflen : ULONG) : pCHAR;
-FUNCTION FilePart(const path : pCHAR) : pCHAR;
-FUNCTION FindArg(const keyword : pCHAR;const arg_template : pCHAR) : LONGINT;
-FUNCTION FindCliProc(num : ULONG) : pProcess;
-FUNCTION FindDosEntry(const dlist : pDosList;const name : pCHAR; flags : ULONG) : pDosList;
-FUNCTION FindSegment(const name : pCHAR;const seg : pSegment; system : LONGINT) : pSegment;
-FUNCTION FindVar(const name : pCHAR; type_ : ULONG) : pLocalVar;
-FUNCTION Format(const filesystem : pCHAR;const volumename : pCHAR; dostype : ULONG) : BOOLEAN;
-FUNCTION FPutC(fh : LONGINT; ch : LONGINT) : LONGINT;
-FUNCTION FPuts(fh : LONGINT;const str : pCHAR) : BOOLEAN;
-FUNCTION FRead(fh : LONGINT; block : POINTER; blocklen : ULONG; number : ULONG) : LONGINT;
-PROCEDURE FreeArgs(args : pRDArgs);
-PROCEDURE FreeDeviceProc(dp : pDevProc);
-PROCEDURE FreeDosEntry(dlist : pDosList);
-PROCEDURE FreeDosObject(type_ : ULONG; ptr : POINTER);
-FUNCTION FWrite(fh : LONGINT; block : POINTER; blocklen : ULONG; number : ULONG) : LONGINT;
-FUNCTION GetArgStr : pCHAR;
-FUNCTION GetConsoleTask : pMsgPort;
-FUNCTION GetCurrentDirName(buf : pCHAR; len : LONGINT) : BOOLEAN;
-FUNCTION GetDeviceProc(const name : pCHAR; dp : pDevProc) : pDevProc;
-FUNCTION GetFileSysTask : pMsgPort;
-FUNCTION GetProgramDir : LONGINT;
-FUNCTION GetProgramName(buf : pCHAR; len : LONGINT) : BOOLEAN;
-FUNCTION GetPrompt(buf : pCHAR; len : LONGINT) : BOOLEAN;
-FUNCTION GetVar(const name : pCHAR; buffer : pCHAR; size : LONGINT; flags : LONGINT) : LONGINT;
-FUNCTION Info(lock : LONGINT; parameterBlock : pInfoData) : BOOLEAN;
-FUNCTION Inhibit(const name : pCHAR; onoff : LONGINT) : BOOLEAN;
-FUNCTION InternalLoadSeg(fh : LONGINT; table : LONGINT;const funcarray : pLONGINT; VAR stack : LONGINT) : LONGINT;
-FUNCTION InternalUnLoadSeg(seglist : LONGINT; freefunc : tPROCEDURE) : BOOLEAN;
-FUNCTION IoErr : LONGINT;
-FUNCTION IsFileSystem(const name : pCHAR) : BOOLEAN;
-FUNCTION IsInteractive(file_ : LONGINT) : BOOLEAN;
-FUNCTION LoadSeg(const name : pCHAR) : LONGINT;
-FUNCTION Lock(const name : pCHAR; type_ : LONGINT) : LONGINT;
-FUNCTION LockDosList(flags : ULONG) : pDosList;
-FUNCTION LockRecord(fh : LONGINT; offset : ULONG; length : ULONG; mode : ULONG; timeout : ULONG) : BOOLEAN;
-FUNCTION LockRecords(recArray : pRecordLock; timeout : ULONG) : BOOLEAN;
-FUNCTION MakeDosEntry(const name : pCHAR; type_ : LONGINT) : pDosList;
-FUNCTION MakeLink(const name : pCHAR; dest : LONGINT; soft : LONGINT) : BOOLEAN;
-PROCEDURE MatchEnd(anchor : pAnchorPath);
-FUNCTION MatchFirst(const pat : pCHAR; anchor : pAnchorPath) : LONGINT;
-FUNCTION MatchNext(anchor : pAnchorPath) : LONGINT;
-FUNCTION MatchPattern(const pat : pCHAR; str : pCHAR) : BOOLEAN;
-FUNCTION MatchPatternNoCase(const pat : pCHAR; str : pCHAR) : BOOLEAN;
-FUNCTION MaxCli : ULONG;
-FUNCTION NameFromFH(fh : LONGINT; buffer : pCHAR; len : LONGINT) : BOOLEAN;
-FUNCTION NameFromLock(lock : LONGINT; buffer : pCHAR; len : LONGINT) : BOOLEAN;
-FUNCTION NewLoadSeg(const file_ : pCHAR;const tags : pTagItem) : LONGINT;
-FUNCTION NewLoadSegTagList(const file_ : pCHAR;const tags : pTagItem) : LONGINT;
-FUNCTION NextDosEntry(const dlist : pDosList; flags : ULONG) : pDosList;
-FUNCTION OpenFromLock(lock : LONGINT) : LONGINT;
-FUNCTION ParentDir(lock : LONGINT) : LONGINT;
-FUNCTION ParentOfFH(fh : LONGINT) : LONGINT;
-FUNCTION ParsePattern(const pat : pCHAR; buf : pCHAR; buflen : LONGINT) : LONGINT;
-FUNCTION ParsePatternNoCase(const pat : pCHAR; buf : pCHAR; buflen : LONGINT) : LONGINT;
-FUNCTION PathPart(const path : pCHAR) : pCHAR;
-FUNCTION PrintFault(code : LONGINT;const header : pCHAR) : BOOLEAN;
-FUNCTION PutStr(const str : pCHAR) : BOOLEAN;
-FUNCTION ReadArgs(const arg_template : pCHAR; arra : pLONGINT; args : pRDArgs) : pRDArgs;
-FUNCTION ReadItem(const name : pCHAR; maxchars : LONGINT; cSource : pCSource) : LONGINT;
-FUNCTION ReadLink(port : pMsgPort; lock : LONGINT;const path : pCHAR; buffer : pCHAR; size : ULONG) : BOOLEAN;
-FUNCTION Relabel(const drive : pCHAR;const newname : pCHAR) : BOOLEAN;
-FUNCTION RemAssignList(const name : pCHAR; lock : LONGINT) : BOOLEAN;
-FUNCTION RemDosEntry(dlist : pDosList) : BOOLEAN;
-FUNCTION RemSegment(seg : pSegment) : BOOLEAN;
-PROCEDURE ReplyPkt(dp : pDosPacket; res1 : LONGINT; res2 : LONGINT);
-FUNCTION RunCommand(seg : LONGINT; stack : LONGINT;const paramptr : pCHAR; paramlen : LONGINT) : LONGINT;
-FUNCTION SameDevice(lock1 : LONGINT; lock2 : LONGINT) : BOOLEAN;
-FUNCTION SameLock(lock1 : LONGINT; lock2 : LONGINT) : LONGINT;
-FUNCTION SelectInput(fh : LONGINT) : LONGINT;
-FUNCTION SelectOutput(fh : LONGINT) : LONGINT;
-PROCEDURE SendPkt(dp : pDosPacket; port : pMsgPort; replyport : pMsgPort);
-FUNCTION SetArgStr(const string_ : pCHAR) : BOOLEAN;
-FUNCTION SetComment(const name : pCHAR;const comment : pCHAR) : BOOLEAN;
-FUNCTION SetConsoleTask(const task : pMsgPort) : pMsgPort;
-FUNCTION SetCurrentDirName(const name : pCHAR) : BOOLEAN;
-FUNCTION SetFileDate(const name : pCHAR; date : pDateStamp) : BOOLEAN;
-FUNCTION SetFileSize(fh : LONGINT; pos : LONGINT; mode : LONGINT) : BOOLEAN;
-FUNCTION SetFileSysTask(const task : pMsgPort) : pMsgPort;
-FUNCTION SetIoErr(result : LONGINT) : LONGINT;
-FUNCTION SetMode(fh : LONGINT; mode : LONGINT) : BOOLEAN;
-FUNCTION SetOwner(const name : pCHAR; owner_info : LONGINT) : BOOLEAN;
-FUNCTION SetProgramDir(lock : LONGINT) : LONGINT;
-FUNCTION SetProgramName(const name : pCHAR) : BOOLEAN;
-FUNCTION SetPrompt(const name : pCHAR) : BOOLEAN;
-FUNCTION SetProtection(const name : pCHAR; protect : LONGINT) : BOOLEAN;
-FUNCTION SetVar(const name : pCHAR; buffer : pCHAR; size : LONGINT; flags : LONGINT) : BOOLEAN;
-FUNCTION SetVBuf(fh : LONGINT; buff : pCHAR; type_ : LONGINT; size : LONGINT) : BOOLEAN;
-FUNCTION SplitName(const name : pCHAR; seperator : ULONG; buf : pCHAR; oldpos : LONGINT; size : LONGINT) : smallint;
-FUNCTION StartNotify(notify : pNotifyRequest) : BOOLEAN;
-FUNCTION StrToDate(datetime : pDateTime) : BOOLEAN;
-FUNCTION StrToLong(const string_ : pCHAR; VAR value : LONGINT) : LONGINT;
-FUNCTION SystemTagList(const command : pCHAR;const tags : pTagItem) : LONGINT;
-FUNCTION DOSSystem(const command : pCHAR;const tags : pTagItem) : LONGINT;
-FUNCTION UnGetC(fh : LONGINT; character : LONGINT) : LONGINT;
-PROCEDURE UnLoadSeg(seglist : LONGINT);
-PROCEDURE UnLock(lock : LONGINT);
-PROCEDURE UnLockDosList(flags : ULONG);
-FUNCTION UnLockRecord(fh : LONGINT; offset : ULONG; length : ULONG) : BOOLEAN;
-FUNCTION UnLockRecords(recArray : pRecordLock) : BOOLEAN;
-FUNCTION VFPrintf(fh : LONGINT;const format : pCHAR;const argarray : POINTER) : LONGINT;
-PROCEDURE VFWritef(fh : LONGINT;const format : pCHAR;const argarray : pLONGINT);
-FUNCTION VPrintf(const format : pCHAR; const argarray : POINTER) : LONGINT;
-FUNCTION WaitForChar(file_ : LONGINT; timeout : LONGINT) : BOOLEAN;
-FUNCTION WaitPkt : pDosPacket;
-FUNCTION WriteChars(const buf : pCHAR; buflen : ULONG) : LONGINT;
+PROCEDURE DOSExit(returnCode : LONGINT location 'd1'); syscall _DOSBase 144;
+FUNCTION DOSFlush(fh : LONGINT location 'd1') : LongBool; syscall _DOSBase 360;
+FUNCTION DOSInput : LONGINT; syscall _DOSBase 054;
+FUNCTION DOSOpen(const name : pCHAR location 'd1'; accessMode : LONGINT location 'd2') : LONGINT; syscall _DOSBase 030;
+FUNCTION DOSOutput : LONGINT; syscall _DOSBase 060;
+FUNCTION DOSRead(file_ : LONGINT location 'd1'; buffer : POINTER location 'd2'; length : LONGINT location 'd3') : LONGINT; syscall _DOSBase 042;
+FUNCTION DOSRename(const oldName : pCHAR location 'd1';const newName : pCHAR location 'd2') : LongBool; syscall _DOSBase 078;
+FUNCTION DOSSeek(file_ : LONGINT location 'd1'; position : LONGINT location 'd2'; offset : LONGINT location 'd3') : LONGINT; syscall _DOSBase 066;
+FUNCTION DOSWrite(file_ : LONGINT location 'd1'; buffer : POINTER location 'd2'; length : LONGINT location 'd3') : LONGINT; syscall _DOSBase 048;
+FUNCTION DupLock(lock : LONGINT location 'd1') : LONGINT; syscall _DOSBase 096;
+FUNCTION DupLockFromFH(fh : LONGINT location 'd1') : LONGINT; syscall _DOSBase 372;
+PROCEDURE EndNotify(notify : pNotifyRequest location 'd1'); syscall _DOSBase 894;
+FUNCTION ErrorReport(code : LONGINT location 'd1'; type_ : LONGINT location 'd2'; arg1 : ULONG location 'd3'; device : pMsgPort location 'd4') : LongBool; syscall _DOSBase 480;
+FUNCTION ExAll(lock : LONGINT location 'd1'; buffer : pExAllData location 'd2'; size : LONGINT location 'd3'; data : LONGINT location 'd4'; control : pExAllControl location 'd5') : LongBool; syscall _DOSBase 432;
+PROCEDURE ExAllEnd(lock : LONGINT location 'd1'; buffer : pExAllData location 'd2'; size : LONGINT location 'd3'; data : LONGINT location 'd4'; control : pExAllControl location 'd5'); syscall _DOSBase 990;
+FUNCTION Examine(lock : LONGINT location 'd1'; fileInfoBlock : pFileInfoBlock location 'd2') : LongBool; syscall _DOSBase 102;
+FUNCTION ExamineFH(fh : LONGINT location 'd1'; fib : pFileInfoBlock location 'd2') : LongBool; syscall _DOSBase 390;
+FUNCTION Execute(const string_ : pCHAR location 'd1'; file_ : LONGINT location 'd2'; file2 : LONGINT location 'd3') : LongBool; syscall _DOSBase 222;
+FUNCTION ExNext(lock : LONGINT location 'd1'; fileInfoBlock : pFileInfoBlock location 'd2') : LongBool; syscall _DOSBase 108;
+FUNCTION Fault(code : LONGINT location 'd1'; header : pCHAR location 'd2'; buffer : pCHAR location 'd3'; len : LONGINT location 'd4') : LongBool; syscall _DOSBase 468;
+FUNCTION FGetC(fh : LONGINT location 'd1') : LONGINT; syscall _DOSBase 306;
+FUNCTION FGets(fh : LONGINT location 'd1'; buf : pCHAR location 'd2'; buflen : ULONG location 'd3') : pCHAR; syscall _DOSBase 336;
+FUNCTION FilePart(const path : pCHAR location 'd1') : pCHAR; syscall _DOSBase 870;
+FUNCTION FindArg(const keyword : pCHAR location 'd1';const arg_template : pCHAR location 'd2') : LONGINT; syscall _DOSBase 804;
+FUNCTION FindCliProc(num : ULONG location 'd1') : pProcess; syscall _DOSBase 546;
+FUNCTION FindDosEntry(const dlist : pDosList location 'd1';const name : pCHAR location 'd2'; flags : ULONG location 'd3') : pDosList; syscall _DOSBase 684;
+FUNCTION FindSegment(const name : pCHAR location 'd1';const seg : pSegment location 'd2'; system : LONGINT location 'd3') : pSegment; syscall _DOSBase 780;
+FUNCTION FindVar(const name : pCHAR location 'd1'; type_ : ULONG location 'd2') : pLocalVar; syscall _DOSBase 918;
+FUNCTION Format(const filesystem : pCHAR location 'd1';const volumename : pCHAR location 'd2'; dostype : ULONG location 'd3') : LongBool; syscall _DOSBase 714;
+FUNCTION FPutC(fh : LONGINT location 'd1'; ch : LONGINT location 'd2') : LONGINT; syscall _DOSBase 312;
+FUNCTION FPuts(fh : LONGINT location 'd1';const str : pCHAR location 'd2') : LongBool; syscall _DOSBase 342;
+FUNCTION FRead(fh : LONGINT location 'd1'; block : POINTER location 'd2'; blocklen : ULONG location 'd3'; number : ULONG location 'd4') : LONGINT; syscall _DOSBase 324;
+PROCEDURE FreeArgs(args : pRDArgs location 'd1'); syscall _DOSBase 858;
+PROCEDURE FreeDeviceProc(dp : pDevProc location 'd1'); syscall _DOSBase 648;
+PROCEDURE FreeDosEntry(dlist : pDosList); syscall _DOSBase 702;
+PROCEDURE FreeDosObject(type_ : ULONG location 'd1'; ptr : POINTER location 'd2'); syscall _DOSBase 234;
+FUNCTION FWrite(fh : LONGINT location 'd1'; block : POINTER location 'd2'; blocklen : ULONG location 'd3'; number : ULONG location 'd4') : LONGINT; syscall _DOSBase 330;
+FUNCTION GetArgStr : pCHAR; syscall _DOSBase 534;
+FUNCTION GetConsoleTask : pMsgPort; syscall _DOSBase 510;
+FUNCTION GetCurrentDirName(buf : pCHAR location 'd1'; len : LONGINT location 'd2') : LongBool; syscall _DOSBase 564;
+FUNCTION GetDeviceProc(const name : pCHAR location 'd1'; dp : pDevProc location 'd2') : pDevProc; syscall _DOSBase 642;
+FUNCTION GetFileSysTask : pMsgPort; syscall _DOSBase 522;
+FUNCTION GetProgramDir : LONGINT; syscall _DOSBase 600;
+FUNCTION GetProgramName(buf : pCHAR location 'd1'; len : LONGINT location 'd2') : LongBool; syscall _DOSBase 576;
+FUNCTION GetPrompt(buf : pCHAR location 'd1'; len : LONGINT location 'd2') : LongBool; syscall _DOSBase 588;
+FUNCTION GetVar(const name : pCHAR location 'd1'; buffer : pCHAR location 'd2'; size : LONGINT location 'd3'; flags : LONGINT location 'd4') : LONGINT; syscall _DOSBase 906;
+FUNCTION Info(lock : LONGINT location 'd1'; parameterBlock : pInfoData location 'd2') : LongBool; syscall _DOSBase 114;
+FUNCTION Inhibit(const name : pCHAR location 'd1'; onoff : LONGINT location 'd2') : LongBool; syscall _DOSBase 726;
+FUNCTION InternalLoadSeg(fh : LONGINT location 'd0'; table : LONGINT location 'a0';const funcarray : pLONGINT location 'a1'; VAR stack : LONGINT location 'a2') : LONGINT; syscall _DOSBase 756;
+FUNCTION InternalUnLoadSeg(seglist : LONGINT location 'd1'; freefunc : tPROCEDURE location 'a1') : LongBool; syscall _DOSBase 762;
+FUNCTION IoErr : LONGINT; syscall _DOSBase 132;
+FUNCTION IsFileSystem(const name : pCHAR location 'd1') : LongBool; syscall _DOSBase 708;
+FUNCTION IsInteractive(file_ : LONGINT location 'd1') : LongBool; syscall _DOSBase 216;
+FUNCTION LoadSeg(const name : pCHAR location 'd1') : LONGINT; syscall _DOSBase 150;
+FUNCTION Lock(const name : pCHAR location 'd1'; type_ : LONGINT location 'd2') : LONGINT; syscall _DOSBase 084;
+FUNCTION LockDosList(flags : ULONG location 'd1') : pDosList; syscall _DOSBase 654;
+FUNCTION LockRecord(fh : LONGINT location 'd1'; offset : ULONG location 'd2'; length : ULONG location 'd3'; mode : ULONG location 'd4'; timeout : ULONG location 'd5') : LongBool; syscall _DOSBase 270;
+FUNCTION LockRecords(recArray : pRecordLock location 'd1'; timeout : ULONG location 'd2') : LongBool; syscall _DOSBase 276;
+FUNCTION MakeDosEntry(const name : pCHAR location 'd1'; type_ : LONGINT location 'd2') : pDosList; syscall _DOSBase 696;
+FUNCTION MakeLink(const name : pCHAR location 'd1'; dest : LONGINT location 'd2'; soft : LONGINT location 'd3') : LongBool; syscall _DOSBase 444;
+PROCEDURE MatchEnd(anchor : pAnchorPath location 'd1'); syscall _DOSBase 834;
+FUNCTION MatchFirst(const pat : pCHAR location 'd1'; anchor : pAnchorPath location 'd2') : LONGINT; syscall _DOSBase 822;
+FUNCTION MatchNext(anchor : pAnchorPath location 'd1') : LONGINT; syscall _DOSBase 828;
+FUNCTION MatchPattern(const pat : pCHAR location 'd1'; str : pCHAR location 'd2') : LongBool; syscall _DOSBase 846;
+FUNCTION MatchPatternNoCase(const pat : pCHAR location 'd1'; str : pCHAR location 'd2') : LongBool; syscall _DOSBase 972;
+FUNCTION MaxCli : ULONG; syscall _DOSBase 552;
+FUNCTION NameFromFH(fh : LONGINT location 'd1'; buffer : pCHAR location 'd2'; len : LONGINT location 'd3') : LongBool; syscall _DOSBase 408;
+FUNCTION NameFromLock(lock : LONGINT location 'd1'; buffer : pCHAR location 'd2'; len : LONGINT location 'd3') : LongBool; syscall _DOSBase 402;
+FUNCTION NewLoadSeg(const file_ : pCHAR location 'd1';const tags : pTagItem location 'd2') : LONGINT; syscall _DOSBase 768;
+FUNCTION NewLoadSegTagList(const file_ : pCHAR location 'd1';const tags : pTagItem location 'd2') : LONGINT; syscall _DOSBase 768;
+FUNCTION NextDosEntry(const dlist : pDosList location 'd1'; flags : ULONG location 'd2') : pDosList; syscall _DOSBase 690;
+FUNCTION OpenFromLock(lock : LONGINT location 'd1') : LONGINT; syscall _DOSBase 378;
+FUNCTION ParentDir(lock : LONGINT location 'd1') : LONGINT; syscall _DOSBase 210;
+FUNCTION ParentOfFH(fh : LONGINT location 'd1') : LONGINT; syscall _DOSBase 384;
+FUNCTION ParsePattern(const pat : pCHAR location 'd1'; buf : pCHAR location 'd2'; buflen : LONGINT location 'd3') : LONGINT; syscall _DOSBase 840;
+FUNCTION ParsePatternNoCase(const pat : pCHAR location 'd1'; buf : pCHAR location 'd2'; buflen : LONGINT location 'd3') : LONGINT; syscall _DOSBase 966;
+FUNCTION PathPart(const path : pCHAR location 'd1') : pCHAR; syscall _DOSBase 876;
+FUNCTION PrintFault(code : LONGINT location 'd1';const header : pCHAR location 'd2') : LongBool; syscall _DOSBase 474;
+FUNCTION PutStr(const str : pCHAR location 'd1') : LongBool; syscall _DOSBase 948;
+FUNCTION ReadArgs(const arg_template : pCHAR location 'd1'; arra : pLONGINT location 'd2'; args : pRDArgs location 'd3') : pRDArgs; syscall _DOSBase 798;
+FUNCTION ReadItem(const name : pCHAR location 'd1'; maxchars : LONGINT location 'd2'; cSource : pCSource location 'd3') : LONGINT; syscall _DOSBase 810;
+FUNCTION ReadLink(port : pMsgPort location 'd1'; lock : LONGINT location 'd2';const path : pCHAR location 'd3'; buffer : pCHAR location 'd4'; size : ULONG location 'd5') : LongBool; syscall _DOSBase 438;
+FUNCTION Relabel(const drive : pCHAR location 'd1';const newname : pCHAR location 'd2') : LongBool; syscall _DOSBase 720;
+FUNCTION RemAssignList(const name : pCHAR location 'd1'; lock : LONGINT location 'd2') : LongBool; syscall _DOSBase 636;
+FUNCTION RemDosEntry(dlist : pDosList location 'd1') : LongBool; syscall _DOSBase 672;
+FUNCTION RemSegment(seg : pSegment location 'd1') : LongBool; syscall _DOSBase 786;
+PROCEDURE ReplyPkt(dp : pDosPacket location 'd1'; res1 : LONGINT location 'd2'; res2 : LONGINT location 'd3'); syscall _DOSBase 258;
+FUNCTION RunCommand(seg : LONGINT location 'd1'; stack : LONGINT location 'd2';const paramptr : pCHAR location 'd3'; paramlen : LONGINT location 'd4') : LONGINT; syscall _DOSBase 504;
+FUNCTION SameDevice(lock1 : LONGINT location 'd1'; lock2 : LONGINT location 'd2') : LongBool; syscall _DOSBase 984;
+FUNCTION SameLock(lock1 : LONGINT location 'd1'; lock2 : LONGINT location 'd2') : LONGINT; syscall _DOSBase 420;
+FUNCTION SelectInput(fh : LONGINT location 'd1') : LONGINT; syscall _DOSBase 294;
+FUNCTION SelectOutput(fh : LONGINT location 'd1') : LONGINT; syscall _DOSBase 300;
+PROCEDURE SendPkt(dp : pDosPacket location 'd1'; port : pMsgPort location 'd2'; replyport : pMsgPort location 'd3'); syscall _DOSBase 246;
+FUNCTION SetArgStr(const string_ : pCHAR location 'd1') : LongBool; syscall _DOSBase 540;
+FUNCTION SetComment(const name : pCHAR location 'd1';const comment : pCHAR location 'd2') : LongBool; syscall _DOSBase 180;
+FUNCTION SetConsoleTask(const task : pMsgPort location 'd1') : pMsgPort; syscall _DOSBase 516;
+FUNCTION SetCurrentDirName(const name : pCHAR location 'd1') : LongBool; syscall _DOSBase 558;
+FUNCTION SetFileDate(const name : pCHAR location 'd1'; date : pDateStamp location 'd2') : LongBool; syscall _DOSBase 396;
+FUNCTION SetFileSize(fh : LONGINT location 'd1'; pos : LONGINT location 'd2'; mode : LONGINT location 'd3') : LongBool; syscall _DOSBase 456;
+FUNCTION SetFileSysTask(const task : pMsgPort location 'd1') : pMsgPort; syscall _DOSBase 528;
+FUNCTION SetIoErr(result : LONGINT location 'd1') : LONGINT; syscall _DOSBase 462;
+FUNCTION SetMode(fh : LONGINT location 'd1'; mode : LONGINT location 'd2') : LongBool; syscall _DOSBase 426;
+FUNCTION SetOwner(const name : pCHAR location 'd1'; owner_info : LONGINT location 'd2') : LongBool; syscall _DOSBase 996;
+FUNCTION SetProgramDir(lock : LONGINT location 'd1') : LONGINT; syscall _DOSBase 594;
+FUNCTION SetProgramName(const name : pCHAR location 'd1') : LongBool; syscall _DOSBase 570;
+FUNCTION SetPrompt(const name : pCHAR location 'd1') : LongBool; syscall _DOSBase 582;
+FUNCTION SetProtection(const name : pCHAR location 'd1'; protect : LONGINT location 'd2') : LongBool; syscall _DOSBase 186;
+FUNCTION SetVar(const name : pCHAR location 'd1'; buffer : pCHAR location 'd2'; size : LONGINT location 'd3'; flags : LONGINT location 'd4') : LongBool; syscall _DOSBase 900;
+FUNCTION SetVBuf(fh : LONGINT location 'd1'; buff : pCHAR location 'd2'; type_ : LONGINT location 'd3'; size : LONGINT location 'd4') : LongBool; syscall _DOSBase 366;
+FUNCTION SplitName(const name : pCHAR location 'd1'; seperator : ULONG location 'd2'; buf : pCHAR location 'd3'; oldpos : LONGINT location 'd4'; size : LONGINT location 'd5') : smallint; syscall _DOSBase 414;
+FUNCTION StartNotify(notify : pNotifyRequest location 'd1') : LongBool; syscall _DOSBase 888;
+FUNCTION StrToDate(datetime : pDateTime location 'd1') : LongBool; syscall _DOSBase 750;
+FUNCTION StrToLong(const string_ : pCHAR location 'd1'; VAR value : LONGINT location 'd2') : LONGINT; syscall _DOSBase 816;
+FUNCTION SystemTagList(const command : pCHAR location 'd1';const tags : pTagItem location 'd2') : LONGINT; syscall _DOSBase 606;
+FUNCTION DOSSystem(const command : pCHAR location 'd1';const tags : pTagItem location 'd2') : LONGINT; syscall _DOSBase 606;
+FUNCTION UnGetC(fh : LONGINT location 'd1'; character : LONGINT location 'd2') : LONGINT; syscall _DOSBase 318;
+PROCEDURE UnLoadSeg(seglist : LONGINT location 'd1'); syscall _DOSBase 156;
+PROCEDURE UnLock(lock : LONGINT location 'd1'); syscall _DOSBase 090;
+PROCEDURE UnLockDosList(flags : ULONG location 'd1'); syscall _DOSBase 660;
+FUNCTION UnLockRecord(fh : LONGINT location 'd1'; offset : ULONG location 'd2'; length : ULONG location 'd3') : LongBool; syscall _DOSBase 282;
+FUNCTION UnLockRecords(recArray : pRecordLock location 'd1') : LongBool; syscall _DOSBase 288;
+FUNCTION VFPrintf(fh : LONGINT location 'd1';const format : pCHAR location 'd2';const argarray : POINTER location 'd3') : LONGINT; syscall _DOSBase 354;
+PROCEDURE VFWritef(fh : LONGINT location 'd1';const format : pCHAR location 'd2';const argarray : pLONGINT location 'd3'); syscall _DOSBase 348;
+FUNCTION VPrintf(const format : pCHAR location 'd1'; const argarray : POINTER location 'd2') : LONGINT; syscall _DOSBase 954;
+FUNCTION WaitForChar(file_ : LONGINT location 'd1'; timeout : LONGINT location 'd2') : LongBool; syscall _DOSBase 204;
+FUNCTION WaitPkt : pDosPacket; syscall _DOSBase 252;
+FUNCTION WriteChars(const buf : pCHAR location 'd1'; buflen : ULONG location 'd2') : LONGINT; syscall _DOSBase 942;
 
 FUNCTION BADDR(bval :BPTR): POINTER;
 FUNCTION MKBADDR(adr: Pointer): BPTR;
@@ -1829,8 +1829,6 @@ IMPLEMENTATION
 
 uses pastoc;
 
-
-
 FUNCTION BADDR(bval : BPTR): POINTER;
 BEGIN
     BADDR := POINTER( bval shl 2);
@@ -1841,2286 +1839,6 @@ BEGIN
     MKBADDR := BPTR( LONGINT(adr) shr 2);
 END;
 
-PROCEDURE AbortPkt(port : pMsgPort; pkt : pDosPacket);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  port,D1
-    MOVE.L  pkt,D2
-    MOVEA.L _DOSBase,A6
-    JSR -264(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION AddBuffers(const name : pCHAR; number : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  number,D2
-    MOVEA.L _DOSBase,A6
-    JSR -732(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AddDosEntry(dlist : pDosList) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dlist,D1
-    MOVEA.L _DOSBase,A6
-    JSR -678(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AddPart(dirname : pCHAR;const filename : pCHAR; size : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dirname,D1
-    MOVE.L  filename,D2
-    MOVE.L  size,D3
-    MOVEA.L _DOSBase,A6
-    JSR -882(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AddSegment(const name : pCHAR; seg : LONGINT; system : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  seg,D2
-    MOVE.L  system,D3
-    MOVEA.L _DOSBase,A6
-    JSR -774(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocDosObject(type_ : ULONG;const tags : pTagItem) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  type_,D1
-    MOVE.L  tags,D2
-    MOVEA.L _DOSBase,A6
-    JSR -228(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AllocDosObjectTagList(type_ : ULONG;const tags : pTagItem) : POINTER;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  type_,D1
-    MOVE.L  tags,D2
-    MOVEA.L _DOSBase,A6
-    JSR -228(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION AssignAdd(const name : pCHAR; lock : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  lock,D2
-    MOVEA.L _DOSBase,A6
-    JSR -630(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AssignLate(const name : pCHAR;const path : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  path,D2
-    MOVEA.L _DOSBase,A6
-    JSR -618(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AssignLock(const name : pCHAR; lock : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  lock,D2
-    MOVEA.L _DOSBase,A6
-    JSR -612(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AssignPath(const name : pCHAR;const path : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  path,D2
-    MOVEA.L _DOSBase,A6
-    JSR -624(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION AttemptLockDosList(flags : ULONG) : pDosList;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  flags,D1
-    MOVEA.L _DOSBase,A6
-    JSR -666(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ChangeMode(type_ : LONGINT; fh : LONGINT; newmode : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  type_,D1
-    MOVE.L  fh,D2
-    MOVE.L  newmode,D3
-    MOVEA.L _DOSBase,A6
-    JSR -450(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION CheckSignal(mask : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  mask,D1
-    MOVEA.L _DOSBase,A6
-    JSR -792(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION Cli : pCommandLineInterface;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -492(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CliInitNewcli(dp : pDosPacket) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L dp,A0
-    MOVEA.L _DOSBase,A6
-    JSR -930(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CliInitRun(dp : pDosPacket) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L dp,A0
-    MOVEA.L _DOSBase,A6
-    JSR -936(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CompareDates(const date1 : pDateStamp;const date2 : pDateStamp) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  date1,D1
-    MOVE.L  date2,D2
-    MOVEA.L _DOSBase,A6
-    JSR -738(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CreateDir(const name : pCHAR) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVEA.L _DOSBase,A6
-    JSR -120(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CreateNewProc(const tags : pTagItem) : pProcess;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  tags,D1
-    MOVEA.L _DOSBase,A6
-    JSR -498(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CreateNewProcTagList(const tags : pTagItem) : pProcess;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  tags,D1
-    MOVEA.L _DOSBase,A6
-    JSR -498(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CreateProc(const name : pCHAR; pri : LONGINT; segList : LONGINT; stackSize : LONGINT) : pMsgPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  pri,D2
-    MOVE.L  segList,D3
-    MOVE.L  stackSize,D4
-    MOVEA.L _DOSBase,A6
-    JSR -138(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION CurrentDir(lock : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVEA.L _DOSBase,A6
-    JSR -126(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE DateStamp(date : pDateStamp);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  date,D1
-    MOVEA.L _DOSBase,A6
-    JSR -192(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION DateToStr(datetime : pDateTime) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  datetime,D1
-    MOVEA.L _DOSBase,A6
-    JSR -744(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION DeleteFile(const name : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVEA.L _DOSBase,A6
-    JSR -072(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION DeleteVar(const name : pCHAR; flags : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  flags,D2
-    MOVEA.L _DOSBase,A6
-    JSR -912(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION DeviceProc(const name : pCHAR) : pMsgPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVEA.L _DOSBase,A6
-    JSR -174(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DoPkt(port : pMsgPort; action : LONGINT; arg1 : LONGINT; arg2 : LONGINT; arg3 : LONGINT; arg4 : LONGINT; arg5 : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  port,D1
-    MOVE.L  action,D2
-    MOVE.L  arg1,D3
-    MOVE.L  arg2,D4
-    MOVE.L  arg3,D5
-    MOVE.L  arg4,D6
-    MOVE.L  arg5,D7
-    MOVEA.L _DOSBase,A6
-    JSR -240(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DoPkt0(port : pMsgPort; action : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  port,D1
-    MOVE.L  action,D2
-    MOVEA.L _DOSBase,A6
-    JSR -240(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DoPkt1(port : pMsgPort; action : LONGINT; arg1 : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  port,D1
-    MOVE.L  action,D2
-    MOVE.L  arg1,D3
-    MOVEA.L _DOSBase,A6
-    JSR -240(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DoPkt2(port : pMsgPort; action : LONGINT; arg1 : LONGINT; arg2 : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  port,D1
-    MOVE.L  action,D2
-    MOVE.L  arg1,D3
-    MOVE.L  arg2,D4
-    MOVEA.L _DOSBase,A6
-    JSR -240(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DoPkt3(port : pMsgPort; action : LONGINT; arg1 : LONGINT; arg2 : LONGINT; arg3 : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  port,D1
-    MOVE.L  action,D2
-    MOVE.L  arg1,D3
-    MOVE.L  arg2,D4
-    MOVE.L  arg3,D5
-    MOVEA.L _DOSBase,A6
-    JSR -240(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DoPkt4(port : pMsgPort; action : LONGINT; arg1 : LONGINT; arg2 : LONGINT; arg3 : LONGINT; arg4 : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  port,D1
-    MOVE.L  action,D2
-    MOVE.L  arg1,D3
-    MOVE.L  arg2,D4
-    MOVE.L  arg3,D5
-    MOVE.L  arg4,D6
-    MOVEA.L _DOSBase,A6
-    JSR -240(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE DOSClose(file_ : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  file_,D1
-    MOVEA.L _DOSBase,A6
-    JSR -036(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-
-PROCEDURE DOSExit(returnCode : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  returnCode,D1
-    MOVEA.L _DOSBase,A6
-    JSR -144(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION DOSFlush(fh : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVEA.L _DOSBase,A6
-    JSR -360(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION DOSInput : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -054(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DOSOpen(const name : pCHAR; accessMode : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  accessMode,D2
-    MOVEA.L _DOSBase,A6
-    JSR -030(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DOSOutput : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -060(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DOSRead(file_ : LONGINT; buffer : POINTER; length : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  file_,D1
-    MOVE.L  buffer,D2
-    MOVE.L  length,D3
-    MOVEA.L _DOSBase,A6
-    JSR -042(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DOSRename(const oldName : pCHAR;const newName : pCHAR) : Boolean;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  oldName,D1
-    MOVE.L  newName,D2
-    MOVEA.L _DOSBase,A6
-    JSR -078(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION DOSSeek(file_ : LONGINT; position : LONGINT; offset : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  file_,D1
-    MOVE.L  position,D2
-    MOVE.L  offset,D3
-    MOVEA.L _DOSBase,A6
-    JSR -066(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DOSWrite(file_ : LONGINT; buffer : POINTER; length : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  file_,D1
-    MOVE.L  buffer,D2
-    MOVE.L  length,D3
-    MOVEA.L _DOSBase,A6
-    JSR -048(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DupLock(lock : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVEA.L _DOSBase,A6
-    JSR -096(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DupLockFromFH(fh : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVEA.L _DOSBase,A6
-    JSR -372(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE EndNotify(notify : pNotifyRequest);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  notify,D1
-    MOVEA.L _DOSBase,A6
-    JSR -894(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION ErrorReport(code : LONGINT; type_ : LONGINT; arg1 : ULONG; device : pMsgPort) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  code,D1
-    MOVE.L  type_,D2
-    MOVE.L  arg1,D3
-    MOVE.L  device,D4
-    MOVEA.L _DOSBase,A6
-    JSR -480(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION ExAll(lock : LONGINT; buffer : pExAllData; size : LONGINT; data : LONGINT; control : pExAllControl) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVE.L  buffer,D2
-    MOVE.L  size,D3
-    MOVE.L  data,D4
-    MOVE.L  control,D5
-    MOVEA.L _DOSBase,A6
-    JSR -432(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ExAllEnd(lock : LONGINT; buffer : pExAllData; size : LONGINT; data : LONGINT; control : pExAllControl);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVE.L  buffer,D2
-    MOVE.L  size,D3
-    MOVE.L  data,D4
-    MOVE.L  control,D5
-    MOVEA.L _DOSBase,A6
-    JSR -990(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION Examine(lock : LONGINT; fileInfoBlock : pFileInfoBlock) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVE.L  fileInfoBlock,D2
-    MOVEA.L _DOSBase,A6
-    JSR -102(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION ExamineFH(fh : LONGINT; fib : pFileInfoBlock) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  fib,D2
-    MOVEA.L _DOSBase,A6
-    JSR -390(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION Execute(const string_ : pCHAR; file_ : LONGINT; file2 : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  string_,D1
-    MOVE.L  file_,D2
-    MOVE.L  file2,D3
-    MOVEA.L _DOSBase,A6
-    JSR -222(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION ExNext(lock : LONGINT; fileInfoBlock : pFileInfoBlock) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVE.L  fileInfoBlock,D2
-    MOVEA.L _DOSBase,A6
-    JSR -108(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION Fault(code : LONGINT; header : pCHAR; buffer : pCHAR; len : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  code,D1
-    MOVE.L  header,D2
-    MOVE.L  buffer,D3
-    MOVE.L  len,D4
-    MOVEA.L _DOSBase,A6
-    JSR -468(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION FGetC(fh : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVEA.L _DOSBase,A6
-    JSR -306(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FGets(fh : LONGINT; buf : pCHAR; buflen : ULONG) : pCHAR;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  buf,D2
-    MOVE.L  buflen,D3
-    MOVEA.L _DOSBase,A6
-    JSR -336(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FilePart(const path : pCHAR) : pCHAR;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  path,D1
-    MOVEA.L _DOSBase,A6
-    JSR -870(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindArg(const keyword : pCHAR;const arg_template : pCHAR) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  keyword,D1
-    MOVE.L  arg_template,D2
-    MOVEA.L _DOSBase,A6
-    JSR -804(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindCliProc(num : ULONG) : pProcess;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  num,D1
-    MOVEA.L _DOSBase,A6
-    JSR -546(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindDosEntry(const dlist : pDosList;const name : pCHAR; flags : ULONG) : pDosList;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dlist,D1
-    MOVE.L  name,D2
-    MOVE.L  flags,D3
-    MOVEA.L _DOSBase,A6
-    JSR -684(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindSegment(const name : pCHAR;const seg : pSegment; system : LONGINT) : pSegment;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  seg,D2
-    MOVE.L  system,D3
-    MOVEA.L _DOSBase,A6
-    JSR -780(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FindVar(const name : pCHAR; type_ : ULONG) : pLocalVar;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  type_,D2
-    MOVEA.L _DOSBase,A6
-    JSR -918(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION Format(const filesystem : pCHAR;const volumename : pCHAR; dostype : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  filesystem,D1
-    MOVE.L  volumename,D2
-    MOVE.L  dostype,D3
-    MOVEA.L _DOSBase,A6
-    JSR -714(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION FPutC(fh : LONGINT; ch : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  ch,D2
-    MOVEA.L _DOSBase,A6
-    JSR -312(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION FPuts(fh : LONGINT;const str : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  str,D2
-    MOVEA.L _DOSBase,A6
-    JSR -342(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION FRead(fh : LONGINT; block : POINTER; blocklen : ULONG; number : ULONG) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  block,D2
-    MOVE.L  blocklen,D3
-    MOVE.L  number,D4
-    MOVEA.L _DOSBase,A6
-    JSR -324(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE FreeArgs(args : pRDArgs);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  args,D1
-    MOVEA.L _DOSBase,A6
-    JSR -858(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeDeviceProc(dp : pDevProc);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dp,D1
-    MOVEA.L _DOSBase,A6
-    JSR -648(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeDosEntry(dlist : pDosList);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dlist,D1
-    MOVEA.L _DOSBase,A6
-    JSR -702(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE FreeDosObject(type_ : ULONG; ptr : POINTER);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  type_,D1
-    MOVE.L  ptr,D2
-    MOVEA.L _DOSBase,A6
-    JSR -234(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION FWrite(fh : LONGINT; block : POINTER; blocklen : ULONG; number : ULONG) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  block,D2
-    MOVE.L  blocklen,D3
-    MOVE.L  number,D4
-    MOVEA.L _DOSBase,A6
-    JSR -330(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetArgStr : pCHAR;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -534(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetConsoleTask : pMsgPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -510(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetCurrentDirName(buf : pCHAR; len : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  buf,D1
-    MOVE.L  len,D2
-    MOVEA.L _DOSBase,A6
-    JSR -564(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetDeviceProc(const name : pCHAR; dp : pDevProc) : pDevProc;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  dp,D2
-    MOVEA.L _DOSBase,A6
-    JSR -642(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetFileSysTask : pMsgPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -522(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetProgramDir : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -600(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetProgramName(buf : pCHAR; len : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  buf,D1
-    MOVE.L  len,D2
-    MOVEA.L _DOSBase,A6
-    JSR -576(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetPrompt(buf : pCHAR; len : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  buf,D1
-    MOVE.L  len,D2
-    MOVEA.L _DOSBase,A6
-    JSR -588(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION GetVar(const name : pCHAR; buffer : pCHAR; size : LONGINT; flags : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  buffer,D2
-    MOVE.L  size,D3
-    MOVE.L  flags,D4
-    MOVEA.L _DOSBase,A6
-    JSR -906(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION Info(lock : LONGINT; parameterBlock : pInfoData) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVE.L  parameterBlock,D2
-    MOVEA.L _DOSBase,A6
-    JSR -114(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION Inhibit(const name : pCHAR; onoff : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  onoff,D2
-    MOVEA.L _DOSBase,A6
-    JSR -726(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION InternalLoadSeg(fh : LONGINT; table : LONGINT;const funcarray : pLONGINT; VAR stack : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D0
-    MOVEA.L table,A0
-    MOVEA.L funcarray,A1
-    MOVEA.L stack,A2
-    MOVEA.L _DOSBase,A6
-    JSR -756(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION InternalUnLoadSeg(seglist : LONGINT; freefunc : tPROCEDURE) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  seglist,D1
-    MOVEA.L freefunc,A1
-    MOVEA.L _DOSBase,A6
-    JSR -762(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION IoErr : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -132(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION IsFileSystem(const name : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVEA.L _DOSBase,A6
-    JSR -708(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION IsInteractive(file_ : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  file_,D1
-    MOVEA.L _DOSBase,A6
-    JSR -216(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION LoadSeg(const name : pCHAR) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVEA.L _DOSBase,A6
-    JSR -150(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION Lock(const name : pCHAR; type_ : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  type_,D2
-    MOVEA.L _DOSBase,A6
-    JSR -084(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION LockDosList(flags : ULONG) : pDosList;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  flags,D1
-    MOVEA.L _DOSBase,A6
-    JSR -654(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION LockRecord(fh : LONGINT; offset : ULONG; length : ULONG; mode : ULONG; timeout : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  offset,D2
-    MOVE.L  length,D3
-    MOVE.L  mode,D4
-    MOVE.L  timeout,D5
-    MOVEA.L _DOSBase,A6
-    JSR -270(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION LockRecords(recArray : pRecordLock; timeout : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  recArray,D1
-    MOVE.L  timeout,D2
-    MOVEA.L _DOSBase,A6
-    JSR -276(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION MakeDosEntry(const name : pCHAR; type_ : LONGINT) : pDosList;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  type_,D2
-    MOVEA.L _DOSBase,A6
-    JSR -696(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION MakeLink(const name : pCHAR; dest : LONGINT; soft : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  dest,D2
-    MOVE.L  soft,D3
-    MOVEA.L _DOSBase,A6
-    JSR -444(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE MatchEnd(anchor : pAnchorPath);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  anchor,D1
-    MOVEA.L _DOSBase,A6
-    JSR -834(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION MatchFirst(const pat : pCHAR; anchor : pAnchorPath) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  pat,D1
-    MOVE.L  anchor,D2
-    MOVEA.L _DOSBase,A6
-    JSR -822(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION MatchNext(anchor : pAnchorPath) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  anchor,D1
-    MOVEA.L _DOSBase,A6
-    JSR -828(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION MatchPattern(const pat : pCHAR; str : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  pat,D1
-    MOVE.L  str,D2
-    MOVEA.L _DOSBase,A6
-    JSR -846(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION MatchPatternNoCase(const pat : pCHAR; str : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  pat,D1
-    MOVE.L  str,D2
-    MOVEA.L _DOSBase,A6
-    JSR -972(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION MaxCli : ULONG;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -552(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION NameFromFH(fh : LONGINT; buffer : pCHAR; len : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  buffer,D2
-    MOVE.L  len,D3
-    MOVEA.L _DOSBase,A6
-    JSR -408(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION NameFromLock(lock : LONGINT; buffer : pCHAR; len : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVE.L  buffer,D2
-    MOVE.L  len,D3
-    MOVEA.L _DOSBase,A6
-    JSR -402(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION NewLoadSeg(const file_ : pCHAR;const tags : pTagItem) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  file_,D1
-    MOVE.L  tags,D2
-    MOVEA.L _DOSBase,A6
-    JSR -768(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION NewLoadSegTagList(const file_ : pCHAR;const tags : pTagItem) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  file_,D1
-    MOVE.L  tags,D2
-    MOVEA.L _DOSBase,A6
-    JSR -768(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION NextDosEntry(const dlist : pDosList; flags : ULONG) : pDosList;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dlist,D1
-    MOVE.L  flags,D2
-    MOVEA.L _DOSBase,A6
-    JSR -690(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION OpenFromLock(lock : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVEA.L _DOSBase,A6
-    JSR -378(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ParentDir(lock : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVEA.L _DOSBase,A6
-    JSR -210(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ParentOfFH(fh : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVEA.L _DOSBase,A6
-    JSR -384(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ParsePattern(const pat : pCHAR; buf : pCHAR; buflen : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  pat,D1
-    MOVE.L  buf,D2
-    MOVE.L  buflen,D3
-    MOVEA.L _DOSBase,A6
-    JSR -840(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ParsePatternNoCase(const pat : pCHAR; buf : pCHAR; buflen : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  pat,D1
-    MOVE.L  buf,D2
-    MOVE.L  buflen,D3
-    MOVEA.L _DOSBase,A6
-    JSR -966(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION PathPart(const path : pCHAR) : pCHAR;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  path,D1
-    MOVEA.L _DOSBase,A6
-    JSR -876(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION PrintFault(code : LONGINT;const header : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  code,D1
-    MOVE.L  header,D2
-    MOVEA.L _DOSBase,A6
-    JSR -474(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION PutStr(const str : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  str,D1
-    MOVEA.L _DOSBase,A6
-    JSR -948(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION ReadArgs(const arg_template : pCHAR; arra : pLONGINT; args : pRDArgs) : pRDArgs;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  arg_template,D1
-    MOVE.L  arra,D2
-    MOVE.L  args,D3
-    MOVEA.L _DOSBase,A6
-    JSR -798(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ReadItem(const name : pCHAR; maxchars : LONGINT; cSource : pCSource) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  maxchars,D2
-    MOVE.L  cSource,D3
-    MOVEA.L _DOSBase,A6
-    JSR -810(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION ReadLink(port : pMsgPort; lock : LONGINT;const path : pCHAR; buffer : pCHAR; size : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  port,D1
-    MOVE.L  lock,D2
-    MOVE.L  path,D3
-    MOVE.L  buffer,D4
-    MOVE.L  size,D5
-    MOVEA.L _DOSBase,A6
-    JSR -438(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION Relabel(const drive : pCHAR;const newname : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  drive,D1
-    MOVE.L  newname,D2
-    MOVEA.L _DOSBase,A6
-    JSR -720(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION RemAssignList(const name : pCHAR; lock : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  lock,D2
-    MOVEA.L _DOSBase,A6
-    JSR -636(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION RemDosEntry(dlist : pDosList) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dlist,D1
-    MOVEA.L _DOSBase,A6
-    JSR -672(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION RemSegment(seg : pSegment) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  seg,D1
-    MOVEA.L _DOSBase,A6
-    JSR -786(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-PROCEDURE ReplyPkt(dp : pDosPacket; res1 : LONGINT; res2 : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dp,D1
-    MOVE.L  res1,D2
-    MOVE.L  res2,D3
-    MOVEA.L _DOSBase,A6
-    JSR -258(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION RunCommand(seg : LONGINT; stack : LONGINT;const paramptr : pCHAR; paramlen : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  seg,D1
-    MOVE.L  stack,D2
-    MOVE.L  paramptr,D3
-    MOVE.L  paramlen,D4
-    MOVEA.L _DOSBase,A6
-    JSR -504(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SameDevice(lock1 : LONGINT; lock2 : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock1,D1
-    MOVE.L  lock2,D2
-    MOVEA.L _DOSBase,A6
-    JSR -984(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SameLock(lock1 : LONGINT; lock2 : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock1,D1
-    MOVE.L  lock2,D2
-    MOVEA.L _DOSBase,A6
-    JSR -420(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SelectInput(fh : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVEA.L _DOSBase,A6
-    JSR -294(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SelectOutput(fh : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVEA.L _DOSBase,A6
-    JSR -300(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE SendPkt(dp : pDosPacket; port : pMsgPort; replyport : pMsgPort);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  dp,D1
-    MOVE.L  port,D2
-    MOVE.L  replyport,D3
-    MOVEA.L _DOSBase,A6
-    JSR -246(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION SetArgStr(const string_ : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  string_,D1
-    MOVEA.L _DOSBase,A6
-    JSR -540(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetComment(const name : pCHAR;const comment : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  comment,D2
-    MOVEA.L _DOSBase,A6
-    JSR -180(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetConsoleTask(const task : pMsgPort) : pMsgPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  task,D1
-    MOVEA.L _DOSBase,A6
-    JSR -516(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetCurrentDirName(const name : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVEA.L _DOSBase,A6
-    JSR -558(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetFileDate(const name : pCHAR; date : pDateStamp) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  date,D2
-    MOVEA.L _DOSBase,A6
-    JSR -396(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetFileSize(fh : LONGINT; pos : LONGINT; mode : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  pos,D2
-    MOVE.L  mode,D3
-    MOVEA.L _DOSBase,A6
-    JSR -456(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetFileSysTask(const task : pMsgPort) : pMsgPort;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  task,D1
-    MOVEA.L _DOSBase,A6
-    JSR -528(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetIoErr(result : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  result,D1
-    MOVEA.L _DOSBase,A6
-    JSR -462(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetMode(fh : LONGINT; mode : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  mode,D2
-    MOVEA.L _DOSBase,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 SetOwner(const name : pCHAR; owner_info : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  owner_info,D2
-    MOVEA.L _DOSBase,A6
-    JSR -996(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetProgramDir(lock : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVEA.L _DOSBase,A6
-    JSR -594(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetProgramName(const name : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVEA.L _DOSBase,A6
-    JSR -570(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetPrompt(const name : pCHAR) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVEA.L _DOSBase,A6
-    JSR -582(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetProtection(const name : pCHAR; protect : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  protect,D2
-    MOVEA.L _DOSBase,A6
-    JSR -186(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetVar(const name : pCHAR; buffer : pCHAR; size : LONGINT; flags : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  buffer,D2
-    MOVE.L  size,D3
-    MOVE.L  flags,D4
-    MOVEA.L _DOSBase,A6
-    JSR -900(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SetVBuf(fh : LONGINT; buff : pCHAR; type_ : LONGINT; size : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  buff,D2
-    MOVE.L  type_,D3
-    MOVE.L  size,D4
-    MOVEA.L _DOSBase,A6
-    JSR -366(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION SplitName(const name : pCHAR; seperator : ULONG; buf : pCHAR; oldpos : LONGINT; size : LONGINT) : smallint;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  name,D1
-    MOVE.L  seperator,D2
-    MOVE.L  buf,D3
-    MOVE.L  oldpos,D4
-    MOVE.L  size,D5
-    MOVEA.L _DOSBase,A6
-    JSR -414(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION StartNotify(notify : pNotifyRequest) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  notify,D1
-    MOVEA.L _DOSBase,A6
-    JSR -888(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION StrToDate(datetime : pDateTime) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  datetime,D1
-    MOVEA.L _DOSBase,A6
-    JSR -750(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION StrToLong(const string_ : pCHAR; VAR value : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  string_,D1
-    MOVE.L  value,D2
-    MOVEA.L _DOSBase,A6
-    JSR -816(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION SystemTagList(const command : pCHAR;const tags : pTagItem) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  command,D1
-    MOVE.L  tags,D2
-    MOVEA.L _DOSBase,A6
-    JSR -606(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION DOSSystem(const command : pCHAR;const tags : pTagItem) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  command,D1
-    MOVE.L  tags,D2
-    MOVEA.L _DOSBase,A6
-    JSR -606(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION UnGetC(fh : LONGINT; character : LONGINT) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  character,D2
-    MOVEA.L _DOSBase,A6
-    JSR -318(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE UnLoadSeg(seglist : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  seglist,D1
-    MOVEA.L _DOSBase,A6
-    JSR -156(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE UnLock(lock : LONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  lock,D1
-    MOVEA.L _DOSBase,A6
-    JSR -090(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-PROCEDURE UnLockDosList(flags : ULONG);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  flags,D1
-    MOVEA.L _DOSBase,A6
-    JSR -660(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION UnLockRecord(fh : LONGINT; offset : ULONG; length : ULONG) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  offset,D2
-    MOVE.L  length,D3
-    MOVEA.L _DOSBase,A6
-    JSR -282(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION UnLockRecords(recArray : pRecordLock) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  recArray,D1
-    MOVEA.L _DOSBase,A6
-    JSR -288(A6)
-    MOVEA.L (A7)+,A6
-    TST.W   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-  @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION VFPrintf(fh : LONGINT;const format : pCHAR;const argarray : POINTER) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  format,D2
-    MOVE.L  argarray,D3
-    MOVEA.L _DOSBase,A6
-    JSR -354(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-PROCEDURE VFWritef(fh : LONGINT;const format : pCHAR;const argarray : pLONGINT);
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  fh,D1
-    MOVE.L  format,D2
-    MOVE.L  argarray,D3
-    MOVEA.L _DOSBase,A6
-    JSR -348(A6)
-    MOVEA.L (A7)+,A6
-  END;
-END;
-
-FUNCTION VPrintf(const format : pCHAR; const argarray : POINTER) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  format,D1
-    MOVE.L  argarray,D2
-    MOVEA.L _DOSBase,A6
-    JSR -954(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION WaitForChar(file_ : LONGINT; timeout : LONGINT) : BOOLEAN;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  file_,D1
-    MOVE.L  timeout,D2
-    MOVEA.L _DOSBase,A6
-    JSR -204(A6)
-    MOVEA.L (A7)+,A6
-    TST.L   D0
-    BEQ.B   @end
-    MOVEQ   #1,D0
-    @end: MOVE.B  D0,@RESULT
-  END;
-END;
-
-FUNCTION WaitPkt : pDosPacket;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVEA.L _DOSBase,A6
-    JSR -252(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-FUNCTION WriteChars(const buf : pCHAR; buflen : ULONG) : LONGINT;
-BEGIN
-  ASM
-    MOVE.L  A6,-(A7)
-    MOVE.L  buf,D1
-    MOVE.L  buflen,D2
-    MOVEA.L _DOSBase,A6
-    JSR -942(A6)
-    MOVEA.L (A7)+,A6
-    MOVE.L  D0,@RESULT
-  END;
-END;
-
-
 FUNCTION AddBuffers(const name : string; number : LONGINT) : BOOLEAN;
 begin
      AddBuffers := AddBuffers(pas2c(name), number);

packages/amunits/src/coreunits/utility.pas

@@ -340,44 +340,44 @@ Type
     ub_Reserved  : Byte;
  END;
 
-function AddNamedObject(nameSpace,obj : pNamedObject) : Boolean;
-function AllocateTagItems(num : ULONG) : pTagItem;
-function AllocNamedObjectA(const name : STRPTR;const TagList : pTagItem) : pNamedObject;
-procedure Amiga2Date(amigatime : ULONG;resultat : pClockData);
-procedure ApplyTagChanges(TagList : pTagItem; const ChangeList : pTagItem);
-function AttemptRemNamedObject(obj : pNamedObject) : LongInt;
-function CallHookPkt(h : pHook;obj, paramPkt : APTR) : ULONG;
-function CheckDate(const date : pClockData) : ULONG;
-function CloneTagItems(const tagList : pTagItem) : pTagItem;
-function Date2Amiga(const date : pClockData) : ULONG;
-procedure FilterTagChanges(changelist, oldvalues : pTagItem;apply : ULONG);
-function FilterTagItems(taglist : pTagItem ;const tagArray : pULONG;logic : ULONG) : ULONG;
-function FindNamedObject(nameSpace : pNamedObject;const name : STRPTR;lastobject: pNamedObject) : pNamedObject;
-function FindTagItem(TagVal : Tag;const TagList : pTagItem) : pTagItem;
-procedure FreeNamedObject(Obj : pNamedObject);
-procedure FreeTagItems(TagList : pTagItem);
-function GetTagData(tagval : Tag;default : ULONG;const TagList : pTagItem) : ULONG;
-function GetUniqueID : ULONG;
-procedure MapTags(TagList : pTagItem;const maplist : pTagItem;IncludeMiss : ULONG);
-function NamedObjectName(Obj : pNamedObject) : STRPTR;
-function NextTagItem(Item : ppTagItem) : pTagItem;
-function PackBoolTags(InitialFlags : ULONG;const TagList, boolmap : pTagItem) : ULONG;
-function PackStructureTags(packk: APTR;const packTable : pULONG;const TagList : pTagItem) : ULONG;
-procedure RefreshTagItemClones(cloneTagItem : pTagItem; const OriginalTagItems : pTagItem);
-procedure ReleaseNamedObject(Obj : pNamedObject);
-procedure RemNamedObject(Obj : pNamedObject;Msg : pointer);
-function SDivMod32( dividend , divisor : LongInt) : LongInt;
-function SMult32(Arg1, Arg2 : LongInt) : LongInt;
-function SMult64(Arg1, Arg2 : LongInt) : LongInt;
-function Stricmp(const Str1: STRPTR;const Str2 : STRPTR) : LongInt;
-function Strnicmp(const Str1: STRPTR;const Str2 : STRPTR;len : LongInt) : LongInt;
-function TagInArray(t : Tag;const TagArray : pULONG) : Boolean;
-function ToLower(c : ULONG) : Char;
-function ToUpper(c : ULONG) : Char;
-function UDivMod32( dividend , divisor : ULONG) : ULONG;
-function UMult32(Arg1, Arg2 : ULONG) : ULONG;
-function UMult64(Arg1, Arg2 : ULONG) : ULONG;
-function UnpackStructureTags(const pac: APTR;const packTable: pULONG;TagList : pTagItem) : ULONG;
+function AddNamedObject(nameSpace : pNamedObject location 'a0';obj : pNamedObject location 'a1') : LongBool; syscall _UtilityBase 222;
+function AllocateTagItems(num : ULONG location 'd0') : pTagItem; syscall _UtilityBase 066;
+function AllocNamedObjectA(const name : STRPTR location 'a0';const TagList : pTagItem location 'a1') : pNamedObject; syscall _UtilityBase 228;
+procedure Amiga2Date(amigatime : ULONG location 'd0';resultat : pClockData location 'a0'); syscall _UtilityBase 120;
+procedure ApplyTagChanges(TagList : pTagItem location 'a0'; const ChangeList : pTagItem location 'a1'); syscall _UtilityBase 186;
+function AttemptRemNamedObject(obj : pNamedObject location 'a0') : LongInt; syscall _UtilityBase 234;
+function CallHookPkt(h : pHook location 'a0';obj: APTR location 'a2'; paramPkt : APTR location 'a1') : ULONG; syscall _UtilityBase 102;
+function CheckDate(const date : pClockData location 'a0') : ULONG; syscall _UtilityBase 132;
+function CloneTagItems(const tagList : pTagItem location 'a0') : pTagItem; syscall _UtilityBase 072;
+function Date2Amiga(const date : pClockData location 'a0') : ULONG; syscall _UtilityBase 126;
+procedure FilterTagChanges(changelist: PTagItem location 'a0'; oldvalues : pTagItem location 'a1';apply : ULONG location 'd0'); syscall _UtilityBase 054;
+function FilterTagItems(taglist : pTagItem  location 'a0';const tagArray : pULONG location 'a1';logic : ULONG location 'd0') : ULONG; syscall _UtilityBase 096;
+function FindNamedObject(nameSpace : pNamedObject location 'a0';const name : STRPTR location 'a1';lastobject: pNamedObject location 'a2') : pNamedObject; syscall _UtilityBase 240;
+function FindTagItem(TagVal : Tag location 'd0';const TagList : pTagItem location 'a0') : pTagItem; syscall _UtilityBase 030;
+procedure FreeNamedObject(Obj : pNamedObject location 'a0'); syscall _UtilityBase 246;
+procedure FreeTagItems(TagList : pTagItem location 'a0'); syscall _UtilityBase 078;
+function GetTagData(tagval : Tag location 'd0';default : ULONG location 'd1';const TagList : pTagItem location 'a0') : ULONG; syscall _UtilityBase 036;
+function GetUniqueID : ULONG; syscall _UtilityBase 270;
+procedure MapTags(TagList : pTagItem location 'a0';const maplist : pTagItem location 'a1';IncludeMiss : ULONG location 'd0'); syscall _UtilityBase 060;
+function NamedObjectName(Obj : pNamedObject location 'a0') : STRPTR; syscall _UtilityBase 252;
+function NextTagItem(Item : ppTagItem location 'a0') : pTagItem; syscall _UtilityBase 048;
+function PackBoolTags(InitialFlags : ULONG location 'd0';const TagList: PTagItem location 'a0'; const boolmap : pTagItem location 'a1') : ULONG; syscall _UtilityBase 042;
+function PackStructureTags(packk: APTR location 'a0';const packTable : pULONG location 'a1';const TagList : pTagItem location 'a2') : ULONG; syscall _UtilityBase 210;
+procedure RefreshTagItemClones(cloneTagItem : pTagItem location 'a0'; const OriginalTagItems : pTagItem location 'a1'); syscall _UtilityBase 084;
+procedure ReleaseNamedObject(Obj : pNamedObject location 'a0'); syscall _UtilityBase 258;
+procedure RemNamedObject(Obj : pNamedObject location 'a0';Msg : pointer location 'a1'); syscall _UtilityBase 264;
+function SDivMod32( dividend: LongInt location 'd0'; divisor : LongInt location 'd1') : LongInt; syscall _UtilityBase 150;
+function SMult32(Arg1: LongInt location 'd0'; Arg2 : LongInt location 'd1') : LongInt; syscall _UtilityBase 138;
+function SMult64(Arg1: LongInt location 'd0'; Arg2 : LongInt location 'd1') : LongInt; syscall _UtilityBase 198;
+function Stricmp(const Str1: STRPTR location 'a0';const Str2 : STRPTR location 'a1') : LongInt; syscall _UtilityBase 162;
+function Strnicmp(const Str1: STRPTR location 'a0';const Str2 : STRPTR location 'a1';len : LongInt location 'd0') : LongInt; syscall _UtilityBase 168;
+function TagInArray(t : Tag location 'd0';const TagArray : pULONG location 'a0') : LongBool; syscall _UtilityBase 090;
+function ToLower(c : ULONG location 'd0') : Char; syscall _UtilityBase 180;
+function ToUpper(c : ULONG location 'd0') : Char; syscall _UtilityBase 174;
+function UDivMod32( dividend: ULONG location 'd0'; divisor : ULONG location 'd1') : ULONG; syscall _UtilityBase 156;
+function UMult32(Arg1: ULONG location 'd0'; Arg2 : ULONG location 'd1') : ULONG; syscall _UtilityBase 144;
+function UMult64(Arg1: ULONG location 'd0'; Arg2 : ULONG location 'd1') : ULONG; syscall _UtilityBase 204;
+function UnpackStructureTags(const pac: APTR location 'a0';const packTable: pULONG location 'a1';TagList : pTagItem location 'a2') : ULONG; syscall _UtilityBase 216;
 
 function AllocNamedObjectA(const name : string;const TagList : pTagItem) : pNamedObject;
 FUNCTION FindNamedObject(nameSpace : pNamedObject; CONST name : string; lastObject : pNamedObject) : pNamedObject;
@@ -393,499 +393,6 @@ IMPLEMENTATION
 
 uses pastoc;
 
-function AddNamedObject(nameSpace,obj : pNamedObject) : Boolean;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  nameSpace,a0
-       MOVE.L  obj,a1
-       MOVE.L  _UtilityBase,A6
-       JSR -222(A6)
-       MOVE.L  (A7)+,A6
-       TST.L   d0
-       bne     @success
-       bra     @end
-   @success:
-       move.b  #1,d0
-   @end:
-       move.b  d0,@RESULT
-   end;
-end;
-
-function AllocateTagItems(num : ULONG) : pTagItem;
-begin
-  asm
-      MOVE.L  A6,-(A7)
-      MOVE.L  num,d0
-      MOVE.L  _UtilityBase,A6
-      JSR -066(A6)
-      MOVE.L  (A7)+,A6
-      MOVE.L  d0,@RESULT
-  end;
-end;
-
-function AllocNamedObjectA(const name : STRPTR;const TagList : pTagItem) : pNamedObject;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  name,a0
-       MOVE.L  TagList,a1
-       MOVE.L  _UtilityBase,A6
-       JSR -228(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-procedure Amiga2Date(amigatime : ULONG;resultat : pClockData);
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  amigatime,d0
-       MOVE.L  resultat,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -120(A6)
-       MOVE.L  (A7)+,A6
-   end;
-end;
-
-procedure ApplyTagChanges(TagList : pTagItem;const ChangeList : pTagItem);
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  TagList,a0
-       MOVE.L  ChangeList,a1
-       MOVE.L  _UtilityBase,A6
-       JSR -186(A6)
-       MOVE.L  (A7)+,A6
-   end;
-end;
-
-function AttemptRemNamedObject(obj : pNamedObject) : LongInt;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  obj,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -234(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function CallHookPkt(h : pHook;obj, paramPkt : APTR) : ULONG;
-begin
-   asm
-       MOVEM.L a2/a6,-(A7)
-       MOVE.L  h,a0
-       MOVE.L  obj,a2
-       MOVE.L  paramPkt,a1
-       MOVE.L  _UtilityBase,A6
-       JSR -102(A6)
-       MOVEM.L (A7)+,a2/a6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function CheckDate(const date : pClockData) : ULONG;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  date,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -132(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function CloneTagItems(const tagList : pTagItem) : pTagItem;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  taglist,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -072(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function Date2Amiga(const date : pClockData) : ULONG;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  date,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -126(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-procedure FilterTagChanges(changelist, oldvalues : pTagItem;apply : ULONG);
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  changelist,a0
-       MOVE.L  oldvalues,a1
-       MOVE.L  apply,d0
-       MOVE.L  _UtilityBase,A6
-       JSR -054(A6)
-       MOVE.L  (A7)+,A6
-   end;
-end;
-
-function FilterTagItems(taglist : pTagItem ;const tagArray : pULONG;logic : ULONG) : ULONG;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  taglist,a0
-       MOVE.L  tagArray,a1
-       MOVE.L  logic,d0
-       MOVE.L  _UtilityBase,A6
-       JSR -096(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function FindNamedObject(nameSpace : pNamedObject;const name : STRPTR;lastobject: pNamedObject) : pNamedObject;
-begin
-   asm
-       MOVEM.L a2/a6,-(A7)
-       MOVE.L  nameSpace,a0
-       MOVE.L  name,a1
-       MOVE.L  lastobject,a2
-       MOVE.L  _UtilityBase,A6
-       JSR -240(A6)
-       MOVEM.L (A7)+,a2/a6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function FindTagItem(TagVal : Tag;const TagList : pTagItem) : pTagItem;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  TagVal,d0
-       MOVE.L  TagList,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -030(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-procedure FreeNamedObject(Obj : pNamedObject);
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Obj,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -246(A6)
-       MOVE.L  (A7)+,A6
-   end;
-end;
-
-procedure FreeTagItems(TagList : pTagItem);
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  TagList,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -078(A6)
-       MOVE.L  (A7)+,A6
-   end;
-end;
-
-function GetTagData(tagval : Tag;default : ULONG;const TagList : pTagItem) : ULONG;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  tagval,d0
-       MOVE.L  default,d1
-       MOVE.L  TagList,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -036(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function GetUniqueID : ULONG;
-begin
-   asm
-      MOVE.L  A6,-(A7)
-      MOVE.L  _UtilityBase,A6
-      JSR -270(A6)
-      MOVE.L  (A7)+,A6
-      MOVE.L  d0,@RESULT
-   end;
-end;
-
-procedure MapTags(TagList : pTagItem;const maplist : pTagItem;IncludeMiss : ULONG);
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  TagList,a0
-       MOVE.L  maplist,a1
-       MOVE.L  IncludeMiss,d0
-       MOVE.L  _UtilityBase,A6
-       JSR -060(A6)
-       MOVE.L  (A7)+,A6
-   end;
-end;
-
-function NamedObjectName(Obj : pNamedObject) : STRPTR;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Obj,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -252(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function NextTagItem(Item : ppTagItem) : pTagItem;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Item,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -048(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function PackBoolTags(InitialFlags : ULONG;const TagList, boolmap : pTagItem) : ULONG;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  InitialFlags,d0
-       MOVE.L  TagList,a0
-       MOVE.L  boolmap,a1
-       MOVE.L  _UtilityBase,A6
-       JSR -042(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function PackStructureTags(packk: APTR;const packTable : pULONG;const TagList : pTagItem) : ULONG;
-begin
-   asm
-       MOVEM.L a2/a6,-(A7)
-       MOVE.L  packk,a0
-       MOVE.L  packTable,a1
-       MOVE.L  TagList,a2
-       MOVE.L  _UtilityBase,A6
-       JSR -210(A6)
-       MOVEM.L (A7)+,a2/a6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-procedure RefreshTagItemClones(cloneTagItem : pTagItem; const OriginalTagItems : pTagItem);
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  cloneTagItem,a0
-       MOVE.L  OriginalTagItems,a1
-       MOVE.L  _UtilityBase,A6
-       JSR -084(A6)
-       MOVE.L  (A7)+,A6
-   end;
-end;
-
-procedure ReleaseNamedObject(Obj : pNamedObject);
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Obj,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -258(A6)
-       MOVE.L  (A7)+,A6
-   end;
-end;
-
-procedure RemNamedObject(Obj : pNamedObject;Msg : pointer);
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Obj,a0
-       MOVE.L  Msg,a1
-       MOVE.L  _UtilityBase,A6
-       JSR -264(A6)
-       MOVE.L  (A7)+,A6
-   end;
-end;
-
-function SDivMod32( dividend , divisor : LongInt) : LongInt;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  dividend,d0
-       MOVE.L  divisor,d1
-       MOVE.L  _UtilityBase,A6
-       JSR -150(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function SMult32(Arg1, Arg2 : LongInt) : LongInt;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Arg1,d0
-       MOVE.L  Arg2,d1
-       MOVE.L  _UtilityBase,A6
-       JSR -138(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function SMult64(Arg1, Arg2 : LongInt) : LongInt;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Arg1,d0
-       MOVE.L  Arg2,d1
-       MOVE.L  _UtilityBase,A6
-       JSR -198(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function Stricmp(const Str1: STRPTR;const Str2 : STRPTR) : LongInt;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Str1,a0
-       MOVE.L  Str2,a1
-       MOVE.L  _UtilityBase,A6
-       JSR -162(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function Strnicmp(const Str1: STRPTR;const Str2 : STRPTR;len : LongInt) : LongInt;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Str1,a0
-       MOVE.L  Str2,a1
-       MOVE.L  len,d0
-       MOVE.L  _UtilityBase,A6
-       JSR -168(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function TagInArray(t : Tag;const TagArray : pULONG) : Boolean;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  t,d0
-       MOVE.L  TagArray,a0
-       MOVE.L  _UtilityBase,A6
-       JSR -090(A6)
-       MOVE.L  (A7)+,A6
-       TST.L   d0
-       bne     @success
-       bra     @end
-   @success:
-       move.b  #1,d0
-   @end:
-       move.b  d0,@RESULT
-   end;
-end;
-
-function ToLower(c : ULONG) : Char;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  c,d0
-       MOVE.L  _UtilityBase,A6
-       JSR -180(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.B  d0,@RESULT
-   end;
-end;
-
-function ToUpper(c : ULONG) : Char;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  c,d0
-       MOVE.L  _UtilityBase,A6
-       JSR -174(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.B  d0,@RESULT
-   end;
-end;
-
-function UDivMod32( dividend , divisor : ULONG) : ULONG;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  dividend,d0
-       MOVE.L  divisor,d1
-       MOVE.L  _UtilityBase,A6
-       JSR -156(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function UMult32(Arg1, Arg2 : ULONG) : ULONG;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Arg1,d0
-       MOVE.L  Arg2,d1
-       MOVE.L  _UtilityBase,A6
-       JSR -144(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function UMult64(Arg1, Arg2 : ULONG) : ULONG;
-begin
-   asm
-       MOVE.L  A6,-(A7)
-       MOVE.L  Arg1,d0
-       MOVE.L  Arg2,d1
-       MOVE.L  _UtilityBase,A6
-       JSR -204(A6)
-       MOVE.L  (A7)+,A6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
-function UnpackStructureTags(const pac: APTR;const packTable: pULONG;TagList : pTagItem) : ULONG;
-begin
-   asm
-       MOVEM.L a2/a6,-(A7)
-       MOVE.L  pac,a0
-       MOVE.L  packTable,a1
-       MOVE.L  TagList,a2
-       MOVE.L  _UtilityBase,A6
-       JSR -216(A6)
-       MOVEM.L (A7)+,a2/a6
-       MOVE.L  d0,@RESULT
-   end;
-end;
-
 
 function AllocNamedObjectA(const name : string;const TagList : pTagItem) : pNamedObject;
 begin