AROS: more ABIv1 and x64 adjustments

git-svn-id: trunk@35074 -

packages/arosunits/src/agraphics.pas

@@ -637,9 +637,16 @@ type
     TxBaseline: Word;      // text baseline
     TxSpacing: SmallInt;   // text spacing (per character)
     RP_User: APTR;
+    {$ifdef AROS_ABIv0}
     longreserved: array[0..1] of IPTR;
     wordreserved: array[0..6] of Word; // used to be a node
     reserved: array[0..7] of Byte;     // for future use
+    {$endif}
+    {$ifdef AROS_ABIv1}
+    RP_Extra: APTR;
+    longreserved: array[0..5] of IPTR;
+    reserved: array[0..1] of Byte;
+    {$endif}
   end;
 
 const
@@ -2047,198 +2054,231 @@ const
 var
   GfxBase: PGfxBase;
 
-procedure AddAnimOb(AnOb: PAnimOb; AnKey: PPAnimOb; Rp: PRastPort); syscall GfxBase 26;
-procedure AddBob(Bob: PBob; Rp: PRastPort); syscall GfxBase 16;
-function AddDisplayDriverA(GfxHidd: APTR; Tags: PTagItem): LongInt; syscall GfxBase 181;
-procedure AddFont(TextFont: PTextFont); syscall GfxBase 80;
-procedure AddVSprite(VSprite: PVSprite; Rp: PRastPort); syscall GfxBase 17;
-function AllocBitMap(Sizex, Sizey, Depth, Flags: LongWord; Friend_Bitmap: PBitMap): PBitMap; syscall GfxBase 153;
-function AllocDBufInfo(Vp: PViewPort): PDBufInfo; syscall GfxBase 161;
-function AllocRaster(Width, Height: LongWord): TPlanePtr; syscall GfxBase 82;
-function AllocSpriteDataA(Bitmap: PBitMap; TagList: PTagItem): PExtSprite; syscall GfxBase 170;
-function AndRectRect(Rect1: PRectangle; Rect2: PRectangle; Intersect: PRectangle): LongBool; syscall GfxBase 193;
-procedure AndRectRegion(Reg: PRegion; Rect :PRectangle); syscall GfxBase 84;
-procedure AndRectRegionND(Reg: PRegion; Rect: PRectangle); syscall GfxBase 107;
-function AndRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 104;
-function AndRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 108;
-procedure Animate(AnKey: PPAnimOb; Rp: PRastPort); syscall GfxBase 27;
-function AreaDraw(Rp: PRastPort; x, y: SmallInt): LongWord; syscall GfxBase 43;
-function AreaEllipse(Rp: PRastPort; xCenter, yCenter, a, b: SmallInt): LongWord; syscall GfxBase 31;
-function AreaEnd(Rp: PRastPort): LongInt; syscall GfxBase 44;
-function AreaMove(Rp: PRastPort; x, y: SmallInt): LongWord; syscall GfxBase 42;
-function AreRegionsEqual(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 189;
-procedure AskFont(Rp: PRastPort; TextAttr: PTextAttr); syscall GfxBase 79;
-function AskSoftStyle(Rp: PRastPort): LongWord; syscall GfxBase 14;
-function AttachPalExtra(Cm: PColorMap; Vp: PViewPort): LongInt; syscall GfxBase 139;
-function AttemptLockLayerRom(l: PLayer): LongBool; syscall GfxBase 109;
-function BestModeIDA(Tags: PTagItem): LongWord; syscall GfxBase 175;
-procedure BitMapScale(BitScaleArgs: PBitScaleArgs); syscall GfxBase 113;
+
+
 function BltBitMap(const SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestBitMap: PBitMap; xDest, yDest, xSize, ySize: LongInt; MinTerm : LongWord; Mask: LongWord; TempA: TPlanePtr): LongInt; syscall GfxBase 5;
-procedure BltBitMapRastPort(const SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: LongWord); syscall GfxBase 101;
-procedure BltClear(MemBlock: Pointer; ByteCount: LongWord; Flags: LongWord); syscall GfxBase 50; deprecated;
-procedure BltMaskBitMapRastPort(SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: LongWord; bltMask: TPlanePtr); syscall GfxBase 106;
-procedure BltPattern(Rp: PRastPort; mask: TPlanePtr; xMin, yMin, xMax, yMax: LongInt; ByteCnt: LongWord); syscall GfxBase 52;
-procedure BltRastPortBitMap(SrcRastPort: PRastPort; xSrc, ySrc: LongInt; DestBitMap: PBitMap; xDest, yDest, xSize, ySize, MinTerm: LongWord); syscall GfxBase 196;
 procedure BltTemplate(const Source: TPlanePtr; xSrc, srcMod: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt); syscall GfxBase 6;
-function CalcIVG(View: PView; ViewPort: PViewPort): Word; syscall GfxBase 138; unimplemented;
-procedure CBump(CopList: PUCopList); syscall GfxBase 61;
-function ChangeExtSpriteA(Vp: PViewPort; Oldsprite: PExtSprite; NewSprite: PExtSprite; Tags: PTagItem): LongInt; syscall GfxBase 171;
-procedure ChangeSprite(Vp: PViewPort; s: PSimpleSprite; NewData: Pointer); syscall GfxBase 70; unimplemented;
-procedure ChangeVPBitMap(Vp: PViewPort; Bm: PBitMap; Db: PDBufInfo); syscall GfxBase 157;
 procedure ClearEOL(Rp: PRastPort); syscall GfxBase 7;
-function ClearRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 87;
-function ClearRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 124;
-procedure ClearRegion(Region: PRegion); syscall GfxBase 88;
-function ClearRegionRegion(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 187;
-function ClearRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 141;
 procedure ClearScreen(Rp: PRastPort); syscall GfxBase 8;
-procedure ClipBlit(SrcRP: PRastPort; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: Byte); syscall GfxBase 92;
+function TextLength(Rp: PRastPort; const string_: STRPTR; Count: LongWord): SmallInt; syscall GfxBase 9;
+procedure GfxText(Rp: PRastPort; const String_: STRPTR; Count: LongWord); syscall GfxBase 10;
+procedure SetFont(Rp: PRastPort; TextFont: PTextFont); syscall GfxBase 11;
+function OpenFont(TextAttr: PTextAttr): PTextFont; syscall GfxBase 12;
 procedure CloseFont(TextFont: PTextFont); syscall GfxBase 13;
-function CloseMonitor(Monitor_Spec: PMonitorSpec): LongInt; syscall GfxBase 120;
-procedure CMove(CopList: PUCopList; Reg: Pointer; Value: LongInt); syscall GfxBase 62;
-function CoerceMode(RealViewPort: PViewPort; MonitorID: LongWord; Flags: LongWord): LongWord; syscall GfxBase 156; unimplemented;
-function CopyRegion(Region: PRegion): PRegion; syscall GfxBase 188;
-procedure CopySBitMap(l: PLayer); syscall GfxBase 75;
-function CreateRastPort: PRastPort; syscall GfxBase 177;
-function CloneRastPort(Rp: PRastPort): PRastPort; syscall GfxBase 178;
-procedure DeinitRastPort(Rp: PRastPort); syscall GfxBase 179;
-procedure FreeRastPort(Rp: PRastPort); syscall GfxBase 180;
-procedure CWait(CopList: PUCopList; V: SmallInt; H: SmallInt); syscall GfxBase 63;
-procedure DisownBlitter; syscall GfxBase 77;
-procedure DisposeRegion(Region: PRegion); syscall GfxBase 89;
+function AskSoftStyle(Rp: PRastPort): LongWord; syscall GfxBase 14;
+function SetSoftStyle(Rp: PRastPort; Style: LongWord; Enable: LongWord): LongWord; syscall GfxBase 15;
+procedure AddBob(Bob: PBob; Rp: PRastPort); syscall GfxBase 16;
+procedure AddVSprite(VSprite: PVSprite; Rp: PRastPort); syscall GfxBase 17;
 procedure DoCollision(Rp: PRastPort); syscall GfxBase 18;
-function DoPixelFunc(Rp: PRastPort; x, y: LongInt; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 185;
-function DoRenderFunc(Rp: PRastPort; Src: PPoint; Rr: PRectangle; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 184;
-procedure Draw(Rp: PRastPort; x, y: LongInt); syscall GfxBase 41;
-procedure DrawEllipse(Rp: PRastPort; xCenter, yCenter, a, b: LongInt); syscall GfxBase 30;
 procedure DrawGList(Rp: PRastPort; Vp: PViewPort); syscall GfxBase 19;
-procedure EraseRect(Rp: PRastPort; xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 135;
-function ExtendFont(Font: PTextFont; FontTags: PTagItem): LongWord; syscall GfxBase 136;
-function FillRectPenDrMd(Rp: PRastPort; x1, y1, x2, y2: LongInt; Pix: Pointer{HIDDT_Pixel}; drmd: Pointer{HIDDT_DrawMode}; Do_Update: LongBool): LongInt; syscall GfxBase 183;
-function FindColor(Cm: PColorMap; r, g, b, MaxPen: LongWord): LongWord; syscall GfxBase 168;
-function FindDisplayInfo(ID: LongWord): DisplayInfoHandle; syscall GfxBase 121;
-function Flood(Rp: PRastPort; Mode: LongWord; x, y: LongInt): LongBool; syscall GfxBase 55;
-procedure FontExtent(Font: PTextFont; FontExtent: PTextExtent); syscall GfxBase 127;
-procedure FreeBitMap(Bm: PBitMap); syscall GfxBase 154;
-procedure FreeColorMap(ColorMap: PColorMap); syscall GfxBase 96;
-procedure FreeCopList(CopList: PCopList); syscall GfxBase 91;
-procedure FreeCprList(CprList: PCprList); syscall GfxBase 94;
-procedure FreeDBufInfo(Dbi: PDBufInfo); syscall GfxBase 162;
-procedure FreeGBuffers(AnOb: PAnimOb; Rp: PRastPort; db: LongBool); syscall GfxBase 100;
-procedure FreeRaster(p: TPlanePtr; Width, Height: LongWord); syscall GfxBase 83;
-procedure FreeSprite(Pick: SmallInt); syscall GfxBase 69;
-procedure FreeSpriteData(ExtSp: PExtSprite); syscall GfxBase 172;
-procedure FreeVPortCopLists(Vp: PViewPort); syscall GfxBase 90;
-function GetAPen(Rp: PRastPort): LongWord; syscall GfxBase 143;
-function GetBitMapAttr(BitMap: PBitMap; Attribute: LongWord): IPTR; syscall GfxBase 160;
-function GetBPen(Rp: PRastPort): LongWord; syscall GfxBase 144;
-function GetColorMap(Entries: LongWord): PColorMap; syscall GfxBase 95;
-function GetDisplayInfoData(Handle: DisplayInfoHandle; Buf: PChar; Size: LongWord; TagID: LongWord; ID: LongWord): LongWord; syscall GfxBase 126;
-function GetDrMd(Rp: PRastPort): LongWord; syscall GfxBase 145;
-function GetExtSpriteA(Sprite: PExtSprite; Tags: PTagItem): LongInt; syscall GfxBase 155;
-function GetGBuffers(AnOb: PAnimOb; Rp: PRastPort; Db: LongBool): LongBool; syscall GfxBase 28;
-function GetOutlinePen(Rp: PRastPort): LongWord; syscall GfxBase 146;
-procedure GetRGB32(Cm: PColorMap; FirstColor: LongWord; NColors: LongWord; Table: PLongWord); syscall GfxBase 150;
-function GetRGB4(ColorMap: PColorMap; Entry: LongInt): LongWord; syscall GfxBase 97;
-procedure GetRPAttrsA(Rp: PRastPort; Tags: PTagItem); syscall GfxBase 174;
-function GetSprite(Sprite: PSimpleSprite; Pick: SmallInt): SmallInt; syscall GfxBase 68;
-function GetVPModeID(Vp: PViewPort): LongWord; syscall GfxBase 132;
-procedure GfxAssociate(Pointer_: Pointer; Node: PExtendedNode); syscall GfxBase 112;
-procedure GfxFree(Node: PExtendedNode); syscall GfxBase 111;
-function GfxLookUp(Pointer_: Pointer): PExtendedNode; syscall GfxBase 117;
-function GfxNew(Node_Type: LongWord): PExtendedNode; syscall GfxBase 110;
-procedure InitArea(AreaInfo: PAreaInfo; Buffer: Pointer; MaxVectors: SmallInt); syscall GfxBase 47;
-procedure InitBitMap(Bm: PBitMap; Depth: ShortInt; Width, Height: Word); syscall GfxBase 65;
 procedure InitGels(Head: PVSprite; Tail: PVSprite; GelsInfo: PGelsInfo); syscall GfxBase 20;
-procedure InitGMasks(AnOb: PAnimOb); syscall GfxBase 29;
 procedure InitMasks(VSprite: PVSprite); syscall GfxBase 21;
+procedure RemIBob(Bob: PBob; Rp: PRastPort; Vp: PViewPort); syscall GfxBase 22;
+procedure RemVSprite(VSprite: PVSprite); syscall GfxBase 23;
+procedure SetCollision(Num: LongWord; Routine: TProcedure; GInfo: PGelsInfo); syscall GfxBase 24;
+procedure SortGList(Rp: PRastPort); syscall GfxBase 25;
+procedure AddAnimOb(AnOb: PAnimOb; AnKey: PPAnimOb; Rp: PRastPort); syscall GfxBase 26;
+procedure Animate(AnKey: PPAnimOb; Rp: PRastPort); syscall GfxBase 27;
+function GetGBuffers(AnOb: PAnimOb; Rp: PRastPort; Db: LongBool): LongBool; syscall GfxBase 28;
+procedure InitGMasks(AnOb: PAnimOb); syscall GfxBase 29;
+procedure DrawEllipse(Rp: PRastPort; xCenter, yCenter, a, b: LongInt); syscall GfxBase 30;
+function AreaEllipse(Rp: PRastPort; xCenter, yCenter, a, b: SmallInt): LongWord; syscall GfxBase 31;
+procedure LoadRGB4(Vp: PViewPort; Colors: PWord; Count: LongInt); syscall GfxBase 32;
 procedure InitRastPort(Rp: PRastPort); syscall GfxBase 33;
-function InitTmpRas(TmpRas: PTmpRas; Buffer: Pointer; Size: LongWord): PTmpRas; syscall GfxBase 78;
-procedure InitView(View: PView); syscall GfxBase 60;
 procedure InitVPort(Vp: PViewPort); syscall GfxBase 34;
-function IsPointInRegion(Reg: PRegion; x, y: SmallInt): LongBool; syscall GfxBase 190;
-procedure LoadRGB32(Vp: PViewPort; const Table: PLongWord); syscall GfxBase 147;
-procedure LoadRGB4(Vp: PViewPort; Colors: PWord; Count: LongInt); syscall GfxBase 32;
-procedure LoadView(View: PView); syscall GfxBase 37;
-procedure LockLayerRom(l: PLayer); syscall GfxBase 72;
+function MrgCop(View: PView): LongWord; syscall GfxBase 35;
 function MakeVPort(View: PView; ViewPort: PViewPort): LongWord; syscall GfxBase 36;
-function ModeNotAvailable(ModeID: LongWord): LongWord; syscall GfxBase 133;
+procedure LoadView(View: PView); syscall GfxBase 37;
+procedure WaitBlit; syscall GfxBase 38; unimplemented;
+procedure SetRast(Rp: PRastPort; Pen: LongWord); syscall GfxBase 39;
 procedure GfxMove(Rp: PRastPort; x, y: SmallInt); syscall GfxBase 40;
-procedure MoveSprite(Vp: PViewPort; Sprite: PSimpleSprite; x, y: SmallInt); syscall GfxBase 71;
-function MrgCop(View: PView): LongWord; syscall GfxBase 35;
-function NewRectRegion(MinX, MinY, MaxX, MaxY: SmallInt): PRegion; syscall GfxBase 194;
-function NewRegion: PRegion; syscall GfxBase 86;
-function NextDisplayInfo(Last_ID: LongWord): LongWord; syscall GfxBase 122;
-function ObtainBestPenA(Cm: PColorMap; r, g, b: LongWord; Tags: PTagItem): LongInt; syscall GfxBase 140;
-function ObtainPen(Cm: PColorMap; n, r, g, b: LongWord; Flags: LongWord): LongInt; syscall GfxBase 159;
-function OpenFont(TextAttr: PTextAttr): PTextFont; syscall GfxBase 12;
-function OpenMonitor(MonitorName: STRPTR; DisplayID: LongWord): PMonitorSpec; syscall GfxBase 119;
-function OrRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 85;
-function OrRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 123;
-function OrRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 102;
-function OrRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 125;
-procedure OwnBlitter; syscall GfxBase 76;
-procedure PolyDraw(Rp: PRastPort; Count: LongInt; PolyTable: PSmallInt); syscall GfxBase 56;
+procedure Draw(Rp: PRastPort; x, y: LongInt); syscall GfxBase 41;
+function AreaMove(Rp: PRastPort; x, y: SmallInt): LongWord; syscall GfxBase 42;
+function AreaDraw(Rp: PRastPort; x, y: SmallInt): LongWord; syscall GfxBase 43;
+function AreaEnd(Rp: PRastPort): LongInt; syscall GfxBase 44;
+procedure WaitTOF; syscall GfxBase 45;
 procedure QBlit(Blit: PBltNode); syscall GfxBase 46;
+procedure InitArea(AreaInfo: PAreaInfo; Buffer: Pointer; MaxVectors: SmallInt); syscall GfxBase 47;
+procedure SetRGB4(Vp: PViewPort; n, r, g, b: LongWord); syscall GfxBase 48;
 procedure QBSBlit(Blit: PBltNode); syscall GfxBase 49;
-function ReadPixel(Rp: PRastPort; x, y: LongInt): LongInt; syscall GfxBase 53;
-function ReadPixelArray8(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; TempRp: PRastPort): LongInt; syscall GfxBase 130;
-function ReadPixelLine8(Rp: PRastPort; xStart, yStart, Width: LongWord; Array_: PByte; TempRP: PRastPort): LongInt; syscall GfxBase 128;
+procedure BltClear(MemBlock: Pointer; ByteCount: LongWord; Flags: LongWord); syscall GfxBase 50; deprecated;
 procedure RectFill(Rp: PRastPort; xMin, yMin, xMax, yMax : LongInt); syscall GfxBase 51;
-procedure ReleasePen(Cm: PColorMap; n: LongWord); syscall GfxBase 158;
-procedure RemFont(TextFont: PTextFont); syscall GfxBase 81;
-procedure RemIBob(Bob: PBob; Rp: PRastPort; Vp: PViewPort); syscall GfxBase 22;
-procedure RemVSprite(VSprite: PVSprite); syscall GfxBase 23;
-function ScalerDiv(Factor: LongWord; Numerator: LongWord; Denominator: LongWord): Word; syscall GfxBase 114;
-procedure ShowImminentReset; syscall GfxBase 197;
-procedure ScrollRaster(Rp: PRastPort; dx, dy, xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 66;
-procedure ScrollRasterBF(Rp: PRastPort; dx, dy, xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 167;
-function ScrollRegion(Region: PRegion; Rect: PRectangle; Dx, Dy: SmallInt): LongBool; syscall GfxBase 191;
-procedure ScrollVPort(Vp: PViewPort); syscall GfxBase 98;
-procedure SetABPenDrMd(Rp: PRastPort; APen: LongWord; BPen: LongWord; DrawMode: LongWord); syscall GfxBase 149;
+procedure BltPattern(Rp: PRastPort; mask: TPlanePtr; xMin, yMin, xMax, yMax: LongInt; ByteCnt: LongWord); syscall GfxBase 52;
+function ReadPixel(Rp: PRastPort; x, y: LongInt): LongInt; syscall GfxBase 53;
+function WritePixel(Rp: PRastPort; x, y: LongInt): LongInt; syscall GfxBase 54;
+function Flood(Rp: PRastPort; Mode: LongWord; x, y: LongInt): LongBool; syscall GfxBase 55;
+procedure PolyDraw(Rp: PRastPort; Count: LongInt; PolyTable: PSmallInt); syscall GfxBase 56;
 procedure SetAPen(Rp: PRastPort; Pen: LongWord); syscall GfxBase 57;
 procedure SetBPen(Rp: PRastPort; Pen: LongWord); syscall GfxBase 58;
-function SetChipRev(ChipRev: LongWord): LongWord; syscall GfxBase 148; platform;
-procedure SetCollision(Num: LongWord; Routine: TProcedure; GInfo: PGelsInfo); syscall GfxBase 24;
-procedure SetDisplayDriverCallback(CallBack: TDriverNotifyFunc; UserData: APTR); syscall GfxBase 186;
 procedure SetDrMd(Rp: PRastPort; DrawMode: LongWord); syscall GfxBase 59;
-procedure SetFont(Rp: PRastPort; TextFont: PTextFont); syscall GfxBase 11;
-procedure SetMaxPen(Rp: PRastPort; MaxPen: LongWord); syscall GfxBase 165;
-function SetOutlinePen(Rp: PRastPort; Pen: LongWord): LongWord; syscall GfxBase 163;
-procedure SetRast(Rp: PRastPort; Pen: LongWord); syscall GfxBase 39;
-function SetRegion(Src: PRegion; Dest: PRegion): LongBool; syscall GfxBase 195;
-procedure SetRGB32(Vp: PViewPort; n, r, g, b : LongWord); syscall GfxBase 142;
-procedure SetRGB32CM(Cm: PColorMap; n, r, g, b: LongWord); syscall GfxBase 166;
-procedure SetRGB4(Vp: PViewPort; n, r, g, b: LongWord); syscall GfxBase 48;
-procedure SetRGB4CM(Cm: PColorMap; n: SmallInt; r, g, b: Byte); syscall GfxBase 105;
-procedure SetRPAttrsA(Rp: PRastPort; Tags: PTagItem); syscall GfxBase 173;
-function SetSoftStyle(Rp: PRastPort; Style: LongWord; Enable: LongWord): LongWord; syscall GfxBase 15;
-function SetWriteMask(Rp: PRastPort; Mask: LongWord): LongWord; syscall GfxBase 164;
-procedure SortGList(Rp: PRastPort); syscall GfxBase 25;
-procedure StripFont(Font: PTextFont); syscall GfxBase 137;
-function SwapRegions(Region1: PRegion; Region2: PRegion; Intersect: PRectangle): LongBool; syscall GfxBase 192;
+procedure InitView(View: PView); syscall GfxBase 60;
+procedure CBump(CopList: PUCopList); syscall GfxBase 61;
+procedure CMove(CopList: PUCopList; Reg: Pointer; Value: LongInt); syscall GfxBase 62;
+procedure CWait(CopList: PUCopList; V: SmallInt; H: SmallInt); syscall GfxBase 63;
+function VBeamPos: LongInt; syscall GfxBase 64; platform;
+procedure InitBitMap(Bm: PBitMap; Depth: ShortInt; Width, Height: Word); syscall GfxBase 65;
+procedure ScrollRaster(Rp: PRastPort; dx, dy, xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 66;
+procedure WaitBOVP(Vp: PViewPort); syscall GfxBase 67; unimplemented;
+function GetSprite(Sprite: PSimpleSprite; Pick: SmallInt): SmallInt; syscall GfxBase 68;
+procedure FreeSprite(Pick: SmallInt); syscall GfxBase 69;
+procedure ChangeSprite(Vp: PViewPort; s: PSimpleSprite; NewData: Pointer); syscall GfxBase 70; unimplemented;
+procedure MoveSprite(Vp: PViewPort; Sprite: PSimpleSprite; x, y: SmallInt); syscall GfxBase 71;
+procedure LockLayerRom(l: PLayer); syscall GfxBase 72;
+procedure UnlockLayerRom(l: PLayer); syscall GfxBase 73;
 procedure SyncSBitMap(l: PLayer); syscall GfxBase 74;
-procedure GfxText(Rp: PRastPort; const String_: STRPTR; Count: LongWord); syscall GfxBase 10;
+procedure CopySBitMap(l: PLayer); syscall GfxBase 75;
+procedure OwnBlitter; syscall GfxBase 76;
+procedure DisownBlitter; syscall GfxBase 77;
+function InitTmpRas(TmpRas: PTmpRas; Buffer: Pointer; Size: LongWord): PTmpRas; syscall GfxBase 78;
+procedure AskFont(Rp: PRastPort; TextAttr: PTextAttr); syscall GfxBase 79;
+procedure AddFont(TextFont: PTextFont); syscall GfxBase 80;
+procedure RemFont(TextFont: PTextFont); syscall GfxBase 81;
+function AllocRaster(Width, Height: LongWord): TPlanePtr; syscall GfxBase 82;
+procedure FreeRaster(p: TPlanePtr; Width, Height: LongWord); syscall GfxBase 83;
+procedure AndRectRegion(Reg: PRegion; Rect :PRectangle); syscall GfxBase 84;
+function OrRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 85;
+function NewRegion: PRegion; syscall GfxBase 86;
+function ClearRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 87;
+procedure ClearRegion(Region: PRegion); syscall GfxBase 88;
+procedure DisposeRegion(Region: PRegion); syscall GfxBase 89;
+procedure FreeVPortCopLists(Vp: PViewPort); syscall GfxBase 90;
+procedure FreeCopList(CopList: PCopList); syscall GfxBase 91;
+procedure ClipBlit(SrcRP: PRastPort; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: Byte); syscall GfxBase 92;
+function XorRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 93;
+procedure FreeCprList(CprList: PCprList); syscall GfxBase 94;
+function GetColorMap(Entries: LongWord): PColorMap; syscall GfxBase 95;
+procedure FreeColorMap(ColorMap: PColorMap); syscall GfxBase 96;
+function GetRGB4(ColorMap: PColorMap; Entry: LongInt): LongWord; syscall GfxBase 97;
+procedure ScrollVPort(Vp: PViewPort); syscall GfxBase 98;
+function UCopperListInit(Ucl: PUCopList; n: SmallInt): PCopList; syscall GfxBase 99;
+procedure FreeGBuffers(AnOb: PAnimOb; Rp: PRastPort; db: LongBool); syscall GfxBase 100;
+procedure BltBitMapRastPort(const SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: LongWord); syscall GfxBase 101;
+function OrRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 102;
+function XorRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 103;
+function AndRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 104;
+procedure SetRGB4CM(Cm: PColorMap; n: SmallInt; r, g, b: Byte); syscall GfxBase 105;
+procedure BltMaskBitMapRastPort(SrcBitMap: PBitMap; xSrc, ySrc: LongInt; DestRP: PRastPort; xDest, yDest, xSize, ySize: LongInt; MinTerm: LongWord; bltMask: TPlanePtr); syscall GfxBase 106;
+function AttemptLockLayerRom(l: PLayer): LongBool; syscall GfxBase 109;
+function GfxNew(Node_Type: LongWord): PExtendedNode; syscall GfxBase 110;
+procedure GfxFree(Node: PExtendedNode); syscall GfxBase 111;
+procedure GfxAssociate(Pointer_: Pointer; Node: PExtendedNode); syscall GfxBase 112;
+procedure BitMapScale(BitScaleArgs: PBitScaleArgs); syscall GfxBase 113;
+function ScalerDiv(Factor: LongWord; Numerator: LongWord; Denominator: LongWord): Word; syscall GfxBase 114;
 procedure TextExtent(Rp: PRastPort; const String_: STRPTR; Count: LongWord; TextExtent_: PTextExtent); syscall GfxBase 115;
 function TextFit(Rp: PRastPort; const String_: STRPTR; StrLen: LongWord; TextExtent_: PTextExtent; ConstrainingExtent: PTextExtent; StrDirection: LongInt; ConstrainingBitWidth: LongWord; ConstrainingBitHeight: LongWord): LongWord; syscall GfxBase 116;
-function TextLength(Rp: PRastPort; const string_: STRPTR; Count: LongWord): SmallInt; syscall GfxBase 9;
-function UCopperListInit(Ucl: PUCopList; n: SmallInt): PCopList; syscall GfxBase 99;
-procedure UnlockLayerRom(l: PLayer); syscall GfxBase 73;
-function VBeamPos: LongInt; syscall GfxBase 64; platform;
+function GfxLookUp(Pointer_: Pointer): PExtendedNode; syscall GfxBase 117;
 function VideoControl(Cm: PColorMap; Tags: PTagItem): LongWord; syscall GfxBase 118; unimplemented;
-procedure WaitBlit; syscall GfxBase 38; unimplemented;
-procedure WaitBOVP(Vp: PViewPort); syscall GfxBase 67; unimplemented;
-procedure WaitTOF; syscall GfxBase 45;
+function OpenMonitor(MonitorName: STRPTR; DisplayID: LongWord): PMonitorSpec; syscall GfxBase 119;
+function CloseMonitor(Monitor_Spec: PMonitorSpec): LongInt; syscall GfxBase 120;
+function FindDisplayInfo(ID: LongWord): DisplayInfoHandle; syscall GfxBase 121;
+function NextDisplayInfo(Last_ID: LongWord): LongWord; syscall GfxBase 122;
+function GetDisplayInfoData(Handle: DisplayInfoHandle; Buf: PChar; Size: LongWord; TagID: LongWord; ID: LongWord): LongWord; syscall GfxBase 126;
+procedure FontExtent(Font: PTextFont; FontExtent: PTextExtent); syscall GfxBase 127;
+function ReadPixelLine8(Rp: PRastPort; xStart, yStart, Width: LongWord; Array_: PByte; TempRP: PRastPort): LongInt; syscall GfxBase 128;
+function WritePixelLine8(Rp: PRastPort; xStart, yStart, Width: LongWord; Array_: PByte; TempRP: PRastPort): LongInt; syscall GfxBase 129;
+function ReadPixelArray8(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; TempRp: PRastPort): LongInt; syscall GfxBase 130;
+function WritePixelArray8(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; TempRp: PRastPort): LongInt; syscall GfxBase 131;
+function GetVPModeID(Vp: PViewPort): LongWord; syscall GfxBase 132;
+function ModeNotAvailable(ModeID: LongWord): LongWord; syscall GfxBase 133;
 function WeighTAMatch(ReqTextAttr: PTextAttr; TargetTextAttr: PTextAttr; TargetTags: PTagItem): SmallInt; syscall GfxBase 134;
+procedure EraseRect(Rp: PRastPort; xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 135;
+function ExtendFont(Font: PTextFont; FontTags: PTagItem): LongWord; syscall GfxBase 136;
+procedure StripFont(Font: PTextFont); syscall GfxBase 137;
+function CalcIVG(View: PView; ViewPort: PViewPort): Word; syscall GfxBase 138; unimplemented;
+function AttachPalExtra(Cm: PColorMap; Vp: PViewPort): LongInt; syscall GfxBase 139;
+function ObtainBestPenA(Cm: PColorMap; r, g, b: LongWord; Tags: PTagItem): LongInt; syscall GfxBase 140;
+procedure SetRGB32(Vp: PViewPort; n, r, g, b : LongWord); syscall GfxBase 142;
+function GetAPen(Rp: PRastPort): LongWord; syscall GfxBase 143;
+function GetBPen(Rp: PRastPort): LongWord; syscall GfxBase 144;
+function GetDrMd(Rp: PRastPort): LongWord; syscall GfxBase 145;
+function GetOutlinePen(Rp: PRastPort): LongWord; syscall GfxBase 146;
+procedure LoadRGB32(Vp: PViewPort; const Table: PLongWord); syscall GfxBase 147;
+function SetChipRev(ChipRev: LongWord): LongWord; syscall GfxBase 148; platform;
+procedure SetABPenDrMd(Rp: PRastPort; APen: LongWord; BPen: LongWord; DrawMode: LongWord); syscall GfxBase 149;
+procedure GetRGB32(Cm: PColorMap; FirstColor: LongWord; NColors: LongWord; Table: PLongWord); syscall GfxBase 150;
+function AllocBitMap(Sizex, Sizey, Depth, Flags: LongWord; Friend_Bitmap: PBitMap): PBitMap; syscall GfxBase 153;
+procedure FreeBitMap(Bm: PBitMap); syscall GfxBase 154;
+function GetExtSpriteA(Sprite: PExtSprite; Tags: PTagItem): LongInt; syscall GfxBase 155;
+function CoerceMode(RealViewPort: PViewPort; MonitorID: LongWord; Flags: LongWord): LongWord; syscall GfxBase 156; unimplemented;
+procedure ChangeVPBitMap(Vp: PViewPort; Bm: PBitMap; Db: PDBufInfo); syscall GfxBase 157;
+procedure ReleasePen(Cm: PColorMap; n: LongWord); syscall GfxBase 158;
+function ObtainPen(Cm: PColorMap; n, r, g, b: LongWord; Flags: LongWord): LongInt; syscall GfxBase 159;
+function GetBitMapAttr(BitMap: PBitMap; Attribute: LongWord): IPTR; syscall GfxBase 160;
+function AllocDBufInfo(Vp: PViewPort): PDBufInfo; syscall GfxBase 161;
+procedure FreeDBufInfo(Dbi: PDBufInfo); syscall GfxBase 162;
+function SetOutlinePen(Rp: PRastPort; Pen: LongWord): LongWord; syscall GfxBase 163;
+function SetWriteMask(Rp: PRastPort; Mask: LongWord): LongWord; syscall GfxBase 164;
+procedure SetMaxPen(Rp: PRastPort; MaxPen: LongWord); syscall GfxBase 165;
+procedure SetRGB32CM(Cm: PColorMap; n, r, g, b: LongWord); syscall GfxBase 166;
+procedure ScrollRasterBF(Rp: PRastPort; dx, dy, xMin, yMin, xMax, yMax: LongInt); syscall GfxBase 167;
+function FindColor(Cm: PColorMap; r, g, b, MaxPen: LongWord): LongWord; syscall GfxBase 168;
+function AllocSpriteDataA(Bitmap: PBitMap; TagList: PTagItem): PExtSprite; syscall GfxBase 170;
+function ChangeExtSpriteA(Vp: PViewPort; Oldsprite: PExtSprite; NewSprite: PExtSprite; Tags: PTagItem): LongInt; syscall GfxBase 171;
+procedure FreeSpriteData(ExtSp: PExtSprite); syscall GfxBase 172;
+procedure SetRPAttrsA(Rp: PRastPort; Tags: PTagItem); syscall GfxBase 173;
+procedure GetRPAttrsA(Rp: PRastPort; Tags: PTagItem); syscall GfxBase 174;
+function BestModeIDA(Tags: PTagItem): LongWord; syscall GfxBase 175;
 procedure WriteChunkyPixels(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; BytesPerRow: LongInt); syscall GfxBase 176;
-function WritePixel(Rp: PRastPort; x, y: LongInt): LongInt; syscall GfxBase 54;
-function WritePixelArray8(Rp: PRastPort; xStart, yStart, xStop, yStop: LongWord; Array_: PByte; TempRp: PRastPort): LongInt; syscall GfxBase 131;
-function WritePixelLine8(Rp: PRastPort; xStart, yStart, Width: LongWord; Array_: PByte; TempRP: PRastPort): LongInt; syscall GfxBase 129;
-function WritePixels8(Rp: PRastPort; Array_: PByte; Modulo: LongWord; xStart, yStart, xStop, yStop: LongWord; PixLUT: Pointer{PHIDDT_PixelLUT}; Do_Update: LongBool): LongInt; syscall GfxBase 182;
-function XorRectRegion(Reg: PRegion; Rect: PRectangle): LongBool; syscall GfxBase 93;
-function XorRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 152;
-function XorRegionRegion(SrcRegion: PRegion; DestRegion: PRegion): LongBool; syscall GfxBase 103;
+
+{$ifdef AROS_ABIv0}
+procedure AndRectRegionND(Reg: PRegion; Rect: PRectangle); syscall GfxBase 107;
+function AndRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 108;
+function OrRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 123;
+function ClearRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 124;
+function OrRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 125;
+function ClearRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 141;
 function XorRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 151;
+function XorRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 152;
+function CreateRastPort: PRastPort; syscall GfxBase 177;
+function CloneRastPort(Rp: PRastPort): PRastPort; syscall GfxBase 178;
+procedure DeinitRastPort(Rp: PRastPort); syscall GfxBase 179;
+procedure FreeRastPort(Rp: PRastPort); syscall GfxBase 180;
+function AddDisplayDriverA(GfxHidd: APTR; Tags: PTagItem): LongInt; syscall GfxBase 181;
+function WritePixels8(Rp: PRastPort; Array_: PByte; Modulo: LongWord; xStart, yStart, xStop, yStop: LongWord; PixLUT: Pointer{PHIDDT_PixelLUT}; Do_Update: LongBool): LongInt; syscall GfxBase 182;
+function FillRectPenDrMd(Rp: PRastPort; x1, y1, x2, y2: LongInt; Pix: Pointer{HIDDT_Pixel}; drmd: Pointer{HIDDT_DrawMode}; Do_Update: LongBool): LongInt; syscall GfxBase 183;
+function DoRenderFunc(Rp: PRastPort; Src: PPoint; Rr: PRectangle; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 184;
+function DoPixelFunc(Rp: PRastPort; x, y: LongInt; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 185;
+procedure SetDisplayDriverCallback(CallBack: TDriverNotifyFunc; UserData: APTR); syscall GfxBase 186;
+function ClearRegionRegion(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 187;
+function CopyRegion(Region: PRegion): PRegion; syscall GfxBase 188;
+function AreRegionsEqual(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 189;
+function IsPointInRegion(Reg: PRegion; x, y: SmallInt): LongBool; syscall GfxBase 190;
+function ScrollRegion(Region: PRegion; Rect: PRectangle; Dx, Dy: SmallInt): LongBool; syscall GfxBase 191;
+function SwapRegions(Region1: PRegion; Region2: PRegion; Intersect: PRectangle): LongBool; syscall GfxBase 192;
+function AndRectRect(Rect1: PRectangle; Rect2: PRectangle; Intersect: PRectangle): LongBool; syscall GfxBase 193;
+function NewRectRegion(MinX, MinY, MaxX, MaxY: SmallInt): PRegion; syscall GfxBase 194;
+function SetRegion(Src: PRegion; Dest: PRegion): LongBool; syscall GfxBase 195;
+procedure BltRastPortBitMap(SrcRastPort: PRastPort; xSrc, ySrc: LongInt; DestBitMap: PBitMap; xDest, yDest, xSize, ySize, MinTerm: LongWord); syscall GfxBase 196;
+procedure ShowImminentReset; syscall GfxBase 197;
+{$endif}
+
+{$ifdef AROS_ABIv1}
+function AddDisplayDriverA(GfxHidd: APTR; Tags: PTagItem): LongInt; syscall GfxBase 107;
+procedure SetDisplayDriverCallback(CallBack: TDriverNotifyFunc; UserData: APTR); syscall GfxBase 108;
+function SetRegion(Src: PRegion; Dest: PRegion): LongBool; syscall GfxBase 181;
+function ClearRegionRegion(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 182;
+function AreRegionsEqual(R1: PRegion; R2: PRegion): LongBool; syscall GfxBase 183;
+function IsPointInRegion(Reg: PRegion; x, y: SmallInt): LongBool; syscall GfxBase 184;
+function ScrollRegion(Region: PRegion; Rect: PRectangle; Dx, Dy: SmallInt): LongBool; syscall GfxBase 185;
+procedure AndRectRegionND(Reg: PRegion; Rect: PRectangle); syscall GfxBase 186;
+function AndRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 187;
+function OrRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 188;
+function OrRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 189;
+function XorRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 190;
+function XorRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 191;
+function ClearRectRegionND(Reg: PRegion; Rect: PRectangle): PRegion; syscall GfxBase 192;
+function ClearRegionRegionND(R1: PRegion; R2: PRegion): PRegion; syscall GfxBase 193;
+function WritePixels8(Rp: PRastPort; Array_: PByte; Modulo: LongWord; xStart, yStart, xStop, yStop: LongWord; PixLUT: Pointer{PHIDDT_PixelLUT}; Do_Update: LongBool): LongInt; syscall GfxBase 197;
+function FillRectPenDrMd(Rp: PRastPort; x1, y1, x2, y2: LongInt; Pix: Pointer{HIDDT_Pixel}; drmd: Pointer{HIDDT_DrawMode}; Do_Update: LongBool): LongInt; syscall GfxBase 198;
+function DoRenderFunc(Rp: PRastPort; Src: PPoint; Rr: PRectangle; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 199;
+function DoPixelFunc(Rp: PRastPort; x, y: LongInt; Render_Func: Pointer; FuncData: APTR; Do_Update: LongBool): LongInt; syscall GfxBase 200;
+procedure UpdateBitMap(Bitmap: PBitmap; x, y, Width, Height: LongWord); syscall GfxBase 201;
+
+function CreateRastPort: PRastPort;
+function CloneRastPort(Rp: PRastPort): PRastPort;
+procedure DeinitRastPort(Rp: PRastPort);
+procedure FreeRastPort(Rp: PRastPort);
+{$endif}
 
 function BestModeID(const Tags: array of PtrUInt): LongWord;
 function AllocSpriteData(Bitmap: PBitMap; const Tags: array of PtrUInt): PExtSprite;
@@ -2439,6 +2479,35 @@ begin
   CWAIT(c, 10000, 255);
 end;
 
+function CreateRastPort: PRastPort;
+var
+  RP: PRastPort;
+begin
+  RP := AllocMem(SizeOf(TRastPort));
+  InitRastPort(RP);
+  CreateRastPort := RP;
+end;
+
+function CloneRastPort(Rp: PRastPort): PRastPort;
+var
+  NRP: PRastPort;
+begin
+  NRP := AllocMem(SizeOf(TRastPort));
+  Move(Rp^, NRP^, SizeOf(TRastPort));
+  CloneRastPort := NRP;
+end;
+
+procedure DeinitRastPort(Rp: PRastPort);
+begin
+  // nothing to do;
+end;
+
+procedure FreeRastPort(Rp: PRastPort);
+begin
+  if Assigned(Rp) then
+    FreeMem(Rp);
+end;
+
 initialization
   GfxBase := PGfxBase(OpenLibrary(GRAPHICSNAME, 36));
 finalization

packages/arosunits/src/exec.pas

@@ -501,7 +501,7 @@ type
     mh_First: PMemChunk; // first free region
     mh_Lower,            // lower memory bound
     mh_Upper: APTR;      // upper memory bound+1
-    mh_Free: ULONG;      // total number of free bytes
+    mh_Free: IPTR;       // total number of free bytes
   end;
 
 //****** MemEntry ****************************************************
@@ -512,7 +512,7 @@ type
         0: (meu_Reqs: ULONG);
         1: (meu_Addr: APTR);
       end;
-    me_Length: ULONG;
+    me_Length: IPTR;
   end;
 
 //****** MemList *****************************************************
@@ -558,9 +558,9 @@ type
 // Note:  This structure is *READ ONLY* and only EXEC can create it!
  PMemHandlerData = ^TMemHandlerData;
  TMemHandlerData = record
-        memh_RequestSize,  // Requested allocation size
-        memh_RequestFlags, // Requested allocation flags
-        memh_Flags: ULONG; // Flags (see below)
+   memh_RequestSize: IPTR;  // Requested allocation size
+   memh_RequestFlags,       // Requested allocation flags
+   memh_Flags: ULONG;       // Flags (see below)
  end;
 
 const
@@ -1010,7 +1010,7 @@ type
 { ******* Static System Variables ******* }
     SoftVer: Word;          // kickstart release number (obs.)
     LowMemChkSum: SmallInt; // checksum of 68000 trap vectors
-    ChkBase: ULONG;         // system base pointer complement
+    ChkBase: IPTR;          // system base pointer complement
     ColdCapture,            // coldstart soft capture vector
     CoolCapture,            // coolstart soft capture vector
     WarmCapture,            // warmstart soft capture vector

packages/arosunits/src/intuition.pas

@@ -3191,150 +3191,161 @@ const
 var
   IntuitionBase: PIntuitionBase;
 
-
-function ActivateGadget(Gadget: PGadget; Window: PWindow; Requester: PRequester): LongBool; syscall IntuitionBase 77;
-procedure ActivateWindow(Window: PWindow); syscall IntuitionBase 75;
-procedure AddClass(ClassPtr: PIClass); syscall IntuitionBase 114;
 function AddGadget(Window: PWindow; Gadget: PGadget; Position: LongWord): Word; syscall IntuitionBase 7;
-function AddGList(Window: PWindow; Gadget: PGadget; Position: LongWord; NumGad: LongInt; Requester: PRequester): Word; syscall IntuitionBase 73;
-function AllocIntuiMessage(Window: PWindow): PIntuiMessage; syscall IntuitionBase 148;
-function AllocRemember(var RememberKey: PRemember; Size: LongWord; Flags: LongWord): APTR; syscall IntuitionBase 66;
-function AllocScreenBuffer(Screen: PScreen; Bitmap: PBitMap; Flags: LongWord): PScreenBuffer; syscall IntuitionBase 128;
-procedure AlohaWorkbench(MsgPort: PMsgPort); syscall IntuitionBase 67;
-function AutoRequest(Window: PWindow; Body: PIntuiText; PosText: PIntuiText; NegText: PIntuiText; PFlag: LongWord; NFlag: LongWord; Width: LongWord; Height: LongWord): LongBool; syscall IntuitionBase 58;
-procedure BeginRefresh(Window: PWindow); syscall IntuitionBase 59;
-function BuildEasyRequestArgs(Window: PWindow; EasyStruct: PEasyStruct; IDCMP: LongWord; Args: APTR): PWindow; syscall IntuitionBase 99;
-function BuildSysRequest(Window: PWindow; Body: PIntuiText; PosText: PIntuiText; NegText: PIntuiText; Flags: LongWord; Width: LongWord; Height: LongWord): PWindow; syscall IntuitionBase 60;
-function ChangeScreenBuffer(Screen: PScreen; ScreenBuffer: PScreenBuffer): LongWord; syscall IntuitionBase 130;
-procedure ChangeWindowBox(Window: PWindow; Left: LongInt; Top: LongInt; Width: LongInt; Height: LongInt); syscall IntuitionBase 81;
 function ClearDMRequest(Window: PWindow): LongBool; syscall IntuitionBase 8;
 procedure ClearMenuStrip(Window: PWindow); syscall IntuitionBase 9;
 procedure ClearPointer(Window: PWindow); syscall IntuitionBase 10;
 function CloseScreen(Screen: PScreen): LongBool; syscall IntuitionBase 11;
 procedure CloseWindow(Window: PWindow); syscall IntuitionBase 12;
 function CloseWorkBench: LongInt; syscall IntuitionBase 13;
-procedure ChangeDecoration(ID: LongWord; Decor: PNewDecorator); syscall IntuitionBase 153;
-function ChangeWindowShape(Window: PWindow; NewShape: PRegion; CallBack: PHook): PRegion; syscall IntuitionBase 143; unimplemented;
 procedure CurrentTime(var Seconds: LongWord; var Micros: LongWord); syscall IntuitionBase 14;
 function DisplayAlert(AlertNumber: LongWord; String_: PChar; Height: Word): LongBool; syscall IntuitionBase 15; deprecated;
 procedure DisplayBeep(Screen: PScreen); syscall IntuitionBase 16;
-procedure DisposeObject(Object_: APTR); syscall IntuitionBase 107;
-function DoGadgetMethodA(Gad: PGadget; Win: PWindow; Req: PRequester; Msg: TMsg): IPTR; syscall IntuitionBase 135;
-function DoNotify(Cl: PIClass; O: PObject_; Ic: Pointer; Msg: TopUpdate): Pointer; syscall IntuitionBase 145;
 function DoubleClick(SSeconds: LongWord; SMicros: LongWord; CSeconds: LongWord; CMicros: LongWord): LongBool; syscall IntuitionBase 17;
 procedure DrawBorder(Rp: PRastPort; Border: PBorder; LeftOffset: LongInt; TopOffset: LongInt); syscall IntuitionBase 18;
 procedure DrawImage(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt); syscall IntuitionBase 19;
-procedure DrawImageState(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt; state: LongWord; DrawInfo: PDrawInfo); syscall IntuitionBase 103;
-function EasyRequestArgs(Window: PWindow; EasyStruct: PEasyStruct; IDCMP_Ptr: PLongWord; Args: APTR): LongInt; syscall IntuitionBase 98;
-procedure EndRefresh(Window: PWindow; Complete: LongBool); syscall IntuitionBase 61;
 procedure EndRequest(Requester: PRequester; Window: PWindow); syscall IntuitionBase 20;
-function EndScreenNotify(Notify: IPTR): LongBool; syscall IntuitionBase 162;
-procedure EraseImage(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt); syscall IntuitionBase 105;
-function FindClass(ClassID: ClassID): PIClass; syscall IntuitionBase 112;
-function FreeClass(IClass: PIClass): LongBool; syscall IntuitionBase 119;
-procedure FreeICData(ICData: Pointer); syscall IntuitionBase 146;
-procedure FreeIntuiMessage(IMsg: PIntuiMessage); syscall IntuitionBase 149;
-procedure FreeMonitorList(Obj: PPObject_); syscall IntuitionBase 164;
-procedure FreeRemember(var RememberKey: PRemember; ReallyForget: LongInt); syscall IntuitionBase 68;
-procedure FreeScreenBuffer(Screen: PScreen; ScreenBuffer: PScreenBuffer); syscall IntuitionBase 129;
-procedure FreeScreenDrawInfo(Screen: PScreen; DrawInfo: PDrawInfo); syscall IntuitionBase 116;
-procedure FreeSysRequest(Window: PWindow); syscall IntuitionBase 62;
-procedure GadgetMouse(Gadget: PGadget; GInfo: PGadgetInfo; var MousePoint: SmallInt); syscall IntuitionBase 95;
-function GetAttr(AttrID: LongWord; Object_: PObject_; StoragePtr: PIPTR): LongWord; overload syscall IntuitionBase 109;
-function GetAttr(AttrID: LongWord; Object_: PObject_; var Storage: IPTR): LongWord; overload syscall IntuitionBase 109;
-function GetDefaultPubScreen(NameBuffer: PChar): PScreen; syscall IntuitionBase 97;
 function GetDefPrefs(Preferences: PPreferences; Size: SmallInt): PPreferences; syscall IntuitionBase 21;
-function GetMonitorList(Tags: PTagItem): PPObject_; syscall IntuitionBase 163;
 function GetPrefs(Preferences: PPreferences; Size: SmallInt): PPreferences; syscall IntuitionBase 22;
-function GetScreenData(Buffer: APTR; Size: LongWord; Type_: LongWord; Screen: PScreen): LongInt; syscall IntuitionBase 71;
-function GetScreenDrawInfo(Screen: PScreen): PDrawInfo; syscall IntuitionBase 115;
-procedure HelpControl(Window: PWindow; Flags: LongWord); syscall IntuitionBase 138;
-procedure HideWindow(Window: PWindow); syscall IntuitionBase 141;
 procedure InitRequester(Requester: PRequester); syscall IntuitionBase 23; deprecated;
-function IntuiTextLength(iText: PIntuiText): LongInt; syscall IntuitionBase 55;
 function ItemAddress(MenuStrip: PMenu; MenuNumber: Word): PMenuItem; syscall IntuitionBase 24;
-function IsWindowVisible(Window: PWindow): LongWord; syscall IntuitionBase 139;
-procedure LendMenus(FromWindow: PWindow; ToWindow: PWindow); syscall IntuitionBase 134;
-function LockIBase(LockNumber: LongWord): LongWord; syscall IntuitionBase 69;
-function LockPubScreen(const Name: STRPTR): PScreen; syscall IntuitionBase 85;
-function LockPubScreenList: PList; syscall IntuitionBase 87;
-function MakeClass(ClassID: ClassID; SuperClassID: ClassID; SuperClassPtr: PIClass; InstanceSize: LongWord; Flags: LongWord): PIClass; syscall IntuitionBase 113;
-function MakeScreen(Screen: PScreen): LongInt; syscall IntuitionBase 63;
 function ModifyIDCMP(Window: PWindow; Flags: LongWord): LongBool; syscall IntuitionBase 25;
 procedure ModifyProp(Gadget: PGadget; Window: PWindow; Requester: PRequester; Flags: LongWord; HorizPot: LongWord; VertPot: LongWord; HorizBody: LongWord; VertBody: LongWord); syscall IntuitionBase 26;
 procedure MoveScreen(Screen: PScreen; Dx: LongInt; Dy: LongInt); syscall IntuitionBase 27;
 procedure MoveWindow(Window: PWindow; Dx: LongInt; Dy: LongInt); syscall IntuitionBase 28;
-procedure MoveWindowInFrontOf(Window: PWindow; BehindWindow: PWindow); syscall IntuitionBase 80;
-procedure NewModifyProp(Gadget: PGadget; Window: PWindow; Requester: PRequester; Flags: LongWord; HorizPot: LongWord; VertPot: LongWord; HorizBody: LongWord; VertBody: LongWord; NumGad: LongInt); syscall IntuitionBase 78;
-function NewObjectA(ClassPtr: PIClass; ClassID: PChar; TagList: PTagItem): APTR; syscall IntuitionBase 106;
-function NextObject(ObjectPtrPtr: APTR): APTR; syscall IntuitionBase  111;
-function NextPubScreen(Screen: PScreen; Namebuf: PChar): PChar; syscall IntuitionBase 89;
-function ObtainGIRPort(GInfo: PGadgetInfo): PRastPort; syscall IntuitionBase 93;
 procedure OffGadget(Gadget: PGadget; Window: PWindow; Requester: PRequester); syscall IntuitionBase 29;
 procedure OffMenu(Window: PWindow; MenuNumber: Word); syscall IntuitionBase 30;
 procedure OnGadget(Gadget: PGadget; Window: PWindow; Requester: PRequester); syscall IntuitionBase 31;
 procedure OnMenu(Window: PWindow; MenuNumber: Word); syscall IntuitionBase 32;
 function OpenScreen(NewScreen: PNewScreen): PScreen; syscall IntuitionBase 33;
-function OpenScreenTagList(NewScreen: PNewScreen; TagList: PTagItem): PScreen; syscall IntuitionBase 102;
 function OpenWindow(NewWindow: PNewWindow): PWindow; syscall IntuitionBase 34;
-function OpenWindowTagList(NewWindow: PNewWindow; TagList: PTagItem): PWindow; syscall IntuitionBase 101;
 function OpenWorkBench: IPTR; syscall IntuitionBase 35;
-function PointInImage(Point: LongWord; Image: PImage): LongBool; syscall IntuitionBase 104;
 procedure PrintIText(Rp: PRastPort; IText: PIntuiText; Left: LongInt; Top: LongInt); syscall IntuitionBase 36;
-function PubScreenStatus(Screen: PScreen; StatusFlags: Word): Word; syscall IntuitionBase 92;
-function QueryOverscan(DisplayID: LongWord; Rect: PRectangle; OScanType: SmallInt): LongInt; syscall IntuitionBase 79;
 procedure RefreshGadgets(Gadgets: PGadget; Window: PWindow; Requester: PRequester); syscall IntuitionBase 37;
-procedure RefreshGList(Gadgets: PGadget; Window: PWindow; Requester: PRequester; NumGad: LongInt); syscall IntuitionBase 72;
-procedure RefreshWindowFrame(Window: PWindow); syscall IntuitionBase 76;
-procedure ReleaseGIRPort(Rp: PRastPort); syscall IntuitionBase 94;
-function RemakeDisplay: LongInt; syscall IntuitionBase 64;
-procedure RemoveClass(ClassPtr: PIClass); syscall IntuitionBase 118;
 function RemoveGadget(Window: PWindow; Gadget: PGadget): Word; syscall IntuitionBase 38;
-function RemoveGList(RemPtr: PWindow; Gadget: PGadget; NumGad: LongInt): Word; syscall IntuitionBase 74;
 procedure ReportMouse(Flag: LongInt; Window: PWindow); syscall IntuitionBase 39;
 function Request(Requester: PRequester; Window: PWindow): LongBool; syscall IntuitionBase 40;
-function ResetMenuStrip(Window: PWindow; Menu: PMenu): LongBool; syscall IntuitionBase 117;
-function RethinkDisplay: LongInt; syscall IntuitionBase 65;
-procedure ScreenDepth(Screen: PScreen; Flags: LongWord; Reserved: APTR); syscall IntuitionBase 131;
-procedure ScreenPosition(Screen: PScreen; Flags: LongWord; X1: LongInt; Y1: LongInt; X2: LongInt; Y2: LongInt); syscall IntuitionBase 132;
 procedure ScreenToBack(Screen: PScreen); syscall IntuitionBase 41;
 procedure ScreenToFront(Screen: PScreen); syscall IntuitionBase 42;
-procedure ScrollWindowRaster(Win: PWindow; Dx: SmallInt; Dy: SmallInt; XMin: SmallInt; YMin: SmallInt; XMax: SmallInt; YMax: SmallInt); syscall IntuitionBase 133;
-procedure ScrollWindowRasterNoFill(Window: PWindow; Dx, Dy, XMin, YMin, XMax, YMax: Word); syscall IntuitionBase 159;
-procedure SendIntuiMessage(Window: PWindow; IMsg: PIntuiMessage); syscall IntuitionBase 151;
-function SetAttrsA(Object_: APTR; TagList: PTagItem): IPTR; syscall IntuitionBase 108;
-procedure SetDefaultPubScreen(Name: PChar); syscall IntuitionBase 90;
-procedure SetDefaultScreenFont(TextFont: PTextFont); syscall IntuitionBase 144;
 function SetDMRequest(Window: PWindow; Requester: PRequester): LongBool; syscall IntuitionBase 43;
-function SetEditHook(Hook: PHook): PHook; syscall IntuitionBase 82;
-function SetGadgetAttrsA(Gadget: PGadget; Window: PWindow; Requester: PRequester; TagList: PTagItem): IPTR; syscall IntuitionBase 110;
-function SetIPrefs(Data: Pointer; Length: LongWord; Typ: LongWord): LongWord; syscall IntuitionBase 96;
 function SetMenuStrip(Window: PWindow; Menu: PMenu): LongBool; syscall IntuitionBase 44;
-function SetMouseQueue(Window: PWindow; QueueLength: LongWord): LongInt; syscall IntuitionBase 83;
 procedure SetPointer(Window: PWindow; Pointer_: PWord; Height: LongInt; Width: LongInt; XOffset: LongInt; YOffset: LongInt); syscall IntuitionBase 45;
-function SetPointerBounds(Screen: PScreen; Rect: TRectangle; Reserved: LongWord; Tags: PTagItem): LongWord; syscall IntuitionBase 160;
-function SetPrefs(PrefBuffer: PPreferences; Size: LongInt; Inform: LongBool): PPreferences; syscall IntuitionBase 54;
-function SetPubScreenModes(Modes: Word): Word; syscall IntuitionBase 91;
-procedure SetWindowPointerA(Win: PWindow; Taglist: PTagItem); syscall IntuitionBase 136;
 procedure SetWindowTitles(Window: PWindow; const WindowTitle: PChar; const ScreenTitle: PChar); syscall IntuitionBase 46;
 procedure ShowTitle(Screen: PScreen; ShowIt: LongBool); syscall IntuitionBase 47;
-procedure ShowWindow(Window: PWindow); syscall IntuitionBase 140;
 procedure SizeWindow(Window: PWindow; Dx: LongInt; Dy: LongInt); syscall IntuitionBase 48;
-function StartScreenNotifyTagList(Tags: PTagItem): IPTR; syscall IntuitionBase 161;
-function SysReqHandler(Window: PWindow; IDCMPFlagsPtr: PLongWord; WaitInput: LongBool): LongInt; syscall IntuitionBase 100;
-function TimedDisplayAlert(AlertNumber: LongWord; String_: PChar; Height: Word; Time: LongWord): LongBool; syscall IntuitionBase 137;
-procedure UnlockIBase(LockNumber: LongWord); syscall IntuitionBase 70;
-procedure UnlockPubScreen(Name: PChar; Screen: PScreen); syscall IntuitionBase 86;
-procedure UnlockPubScreenList; syscall IntuitionBase 88;
 function ViewAddress: PView; syscall IntuitionBase 49;
 function ViewPortAddress(Window: PWindow): PViewPort; syscall IntuitionBase 50;
-function WBenchToBack: LongBool; syscall IntuitionBase 56;
-function WBenchToFront: LongBool; syscall IntuitionBase 57;
-procedure WindowAction(Window: PWindow; Action: LongWord; Tags: PTagItem); syscall IntuitionBase 157;
-function WindowLimits(Window: PWindow; WidthMin: SmallInt; HeightMin: SmallInt; WidthMax: Word; HeightMax: Word): LongBool; syscall IntuitionBase 53;
 procedure WindowToBack(Window: PWindow); syscall IntuitionBase 51;
 procedure WindowToFront(Window: PWindow); syscall IntuitionBase 52;
+function WindowLimits(Window: PWindow; WidthMin: SmallInt; HeightMin: SmallInt; WidthMax: Word; HeightMax: Word): LongBool; syscall IntuitionBase 53;
+function SetPrefs(PrefBuffer: PPreferences; Size: LongInt; Inform: LongBool): PPreferences; syscall IntuitionBase 54;
+function IntuiTextLength(iText: PIntuiText): LongInt; syscall IntuitionBase 55;
+function WBenchToBack: LongBool; syscall IntuitionBase 56;
+function WBenchToFront: LongBool; syscall IntuitionBase 57;
+function AutoRequest(Window: PWindow; Body: PIntuiText; PosText: PIntuiText; NegText: PIntuiText; PFlag: LongWord; NFlag: LongWord; Width: LongWord; Height: LongWord): LongBool; syscall IntuitionBase 58;
+procedure BeginRefresh(Window: PWindow); syscall IntuitionBase 59;
+function BuildSysRequest(Window: PWindow; Body: PIntuiText; PosText: PIntuiText; NegText: PIntuiText; Flags: LongWord; Width: LongWord; Height: LongWord): PWindow; syscall IntuitionBase 60;
+procedure EndRefresh(Window: PWindow; Complete: LongBool); syscall IntuitionBase 61;
+procedure FreeSysRequest(Window: PWindow); syscall IntuitionBase 62;
+function MakeScreen(Screen: PScreen): LongInt; syscall IntuitionBase 63;
+function RemakeDisplay: LongInt; syscall IntuitionBase 64;
+function RethinkDisplay: LongInt; syscall IntuitionBase 65;
+function AllocRemember(var RememberKey: PRemember; Size: LongWord; Flags: LongWord): APTR; syscall IntuitionBase 66;
+procedure AlohaWorkbench(MsgPort: PMsgPort); syscall IntuitionBase 67;
+procedure FreeRemember(var RememberKey: PRemember; ReallyForget: LongInt); syscall IntuitionBase 68;
+function LockIBase(LockNumber: LongWord): LongWord; syscall IntuitionBase 69;
+procedure UnlockIBase(LockNumber: LongWord); syscall IntuitionBase 70;
+function GetScreenData(Buffer: APTR; Size: LongWord; Type_: LongWord; Screen: PScreen): LongInt; syscall IntuitionBase 71;
+procedure RefreshGList(Gadgets: PGadget; Window: PWindow; Requester: PRequester; NumGad: LongInt); syscall IntuitionBase 72;
+function AddGList(Window: PWindow; Gadget: PGadget; Position: LongWord; NumGad: LongInt; Requester: PRequester): Word; syscall IntuitionBase 73;
+function RemoveGList(RemPtr: PWindow; Gadget: PGadget; NumGad: LongInt): Word; syscall IntuitionBase 74;
+procedure ActivateWindow(Window: PWindow); syscall IntuitionBase 75;
+procedure RefreshWindowFrame(Window: PWindow); syscall IntuitionBase 76;
+function ActivateGadget(Gadget: PGadget; Window: PWindow; Requester: PRequester): LongBool; syscall IntuitionBase 77;
+procedure NewModifyProp(Gadget: PGadget; Window: PWindow; Requester: PRequester; Flags: LongWord; HorizPot: LongWord; VertPot: LongWord; HorizBody: LongWord; VertBody: LongWord; NumGad: LongInt); syscall IntuitionBase 78;
+function QueryOverscan(DisplayID: LongWord; Rect: PRectangle; OScanType: SmallInt): LongInt; syscall IntuitionBase 79;
+procedure MoveWindowInFrontOf(Window: PWindow; BehindWindow: PWindow); syscall IntuitionBase 80;
+procedure ChangeWindowBox(Window: PWindow; Left: LongInt; Top: LongInt; Width: LongInt; Height: LongInt); syscall IntuitionBase 81;
+function SetEditHook(Hook: PHook): PHook; syscall IntuitionBase 82;
+function SetMouseQueue(Window: PWindow; QueueLength: LongWord): LongInt; syscall IntuitionBase 83;
 procedure ZipWindow(Window: PWindow); syscall IntuitionBase 84;
+function LockPubScreen(const Name: STRPTR): PScreen; syscall IntuitionBase 85;
+procedure UnlockPubScreen(Name: PChar; Screen: PScreen); syscall IntuitionBase 86;
+function LockPubScreenList: PList; syscall IntuitionBase 87;
+procedure UnlockPubScreenList; syscall IntuitionBase 88;
+function NextPubScreen(Screen: PScreen; Namebuf: PChar): PChar; syscall IntuitionBase 89;
+procedure SetDefaultPubScreen(Name: PChar); syscall IntuitionBase 90;
+function SetPubScreenModes(Modes: Word): Word; syscall IntuitionBase 91;
+function PubScreenStatus(Screen: PScreen; StatusFlags: Word): Word; syscall IntuitionBase 92;
+function ObtainGIRPort(GInfo: PGadgetInfo): PRastPort; syscall IntuitionBase 93;
+procedure ReleaseGIRPort(Rp: PRastPort); syscall IntuitionBase 94;
+procedure GadgetMouse(Gadget: PGadget; GInfo: PGadgetInfo; var MousePoint: SmallInt); syscall IntuitionBase 95;
+function SetIPrefs(Data: Pointer; Length: LongWord; Typ: LongWord): LongWord; syscall IntuitionBase 96;
+function GetDefaultPubScreen(NameBuffer: PChar): PScreen; syscall IntuitionBase 97;
+function EasyRequestArgs(Window: PWindow; EasyStruct: PEasyStruct; IDCMP_Ptr: PLongWord; Args: APTR): LongInt; syscall IntuitionBase 98;
+function BuildEasyRequestArgs(Window: PWindow; EasyStruct: PEasyStruct; IDCMP: LongWord; Args: APTR): PWindow; syscall IntuitionBase 99;
+function SysReqHandler(Window: PWindow; IDCMPFlagsPtr: PLongWord; WaitInput: LongBool): LongInt; syscall IntuitionBase 100;
+function OpenWindowTagList(NewWindow: PNewWindow; TagList: PTagItem): PWindow; syscall IntuitionBase 101;
+function OpenScreenTagList(NewScreen: PNewScreen; TagList: PTagItem): PScreen; syscall IntuitionBase 102;
+procedure DrawImageState(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt; state: LongWord; DrawInfo: PDrawInfo); syscall IntuitionBase 103;
+function PointInImage(Point: LongWord; Image: PImage): LongBool; syscall IntuitionBase 104;
+procedure EraseImage(Rp: PRastPort; Image: PImage; LeftOffset: LongInt; TopOffset: LongInt); syscall IntuitionBase 105;
+function NewObjectA(ClassPtr: PIClass; ClassID: PChar; TagList: PTagItem): APTR; syscall IntuitionBase 106;
+procedure DisposeObject(Object_: APTR); syscall IntuitionBase 107;
+function SetAttrsA(Object_: APTR; TagList: PTagItem): IPTR; syscall IntuitionBase 108;
+function GetAttr(AttrID: LongWord; Object_: PObject_; StoragePtr: PIPTR): LongWord; overload syscall IntuitionBase 109;
+function GetAttr(AttrID: LongWord; Object_: PObject_; var Storage: IPTR): LongWord; overload syscall IntuitionBase 109;
+function SetGadgetAttrsA(Gadget: PGadget; Window: PWindow; Requester: PRequester; TagList: PTagItem): IPTR; syscall IntuitionBase 110;
+function NextObject(ObjectPtrPtr: APTR): APTR; syscall IntuitionBase 111;
+function FindClass(ClassID: ClassID): PIClass; syscall IntuitionBase 112;
+function MakeClass(ClassID: ClassID; SuperClassID: ClassID; SuperClassPtr: PIClass; InstanceSize: LongWord; Flags: LongWord): PIClass; syscall IntuitionBase 113;
+procedure AddClass(ClassPtr: PIClass); syscall IntuitionBase 114;
+function GetScreenDrawInfo(Screen: PScreen): PDrawInfo; syscall IntuitionBase 115;
+procedure FreeScreenDrawInfo(Screen: PScreen; DrawInfo: PDrawInfo); syscall IntuitionBase 116;
+function ResetMenuStrip(Window: PWindow; Menu: PMenu): LongBool; syscall IntuitionBase 117;
+procedure RemoveClass(ClassPtr: PIClass); syscall IntuitionBase 118;
+function FreeClass(IClass: PIClass): LongBool; syscall IntuitionBase 119;
+function AllocScreenBuffer(Screen: PScreen; Bitmap: PBitMap; Flags: LongWord): PScreenBuffer; syscall IntuitionBase 128;
+procedure FreeScreenBuffer(Screen: PScreen; ScreenBuffer: PScreenBuffer); syscall IntuitionBase 129;
+function ChangeScreenBuffer(Screen: PScreen; ScreenBuffer: PScreenBuffer): LongWord; syscall IntuitionBase 130;
+procedure ScreenDepth(Screen: PScreen; Flags: LongWord; Reserved: APTR); syscall IntuitionBase 131;
+procedure ScreenPosition(Screen: PScreen; Flags: LongWord; X1: LongInt; Y1: LongInt; X2: LongInt; Y2: LongInt); syscall IntuitionBase 132;
+procedure ScrollWindowRaster(Win: PWindow; Dx: SmallInt; Dy: SmallInt; XMin: SmallInt; YMin: SmallInt; XMax: SmallInt; YMax: SmallInt); syscall IntuitionBase 133;
+procedure LendMenus(FromWindow: PWindow; ToWindow: PWindow); syscall IntuitionBase 134;
+function DoGadgetMethodA(Gad: PGadget; Win: PWindow; Req: PRequester; Msg: TMsg): IPTR; syscall IntuitionBase 135;
+procedure SetWindowPointerA(Win: PWindow; Taglist: PTagItem); syscall IntuitionBase 136;
+function TimedDisplayAlert(AlertNumber: LongWord; String_: PChar; Height: Word; Time: LongWord): LongBool; syscall IntuitionBase 137;
+procedure HelpControl(Window: PWindow; Flags: LongWord); syscall IntuitionBase 138;
+function IsWindowVisible(Window: PWindow): LongWord; syscall IntuitionBase 139;
+procedure ShowWindow(Window: PWindow); syscall IntuitionBase 140;
+procedure HideWindow(Window: PWindow); syscall IntuitionBase 141;
+function ChangeWindowShape(Window: PWindow; NewShape: PRegion; CallBack: PHook): PRegion; syscall IntuitionBase 143; unimplemented;
+procedure SetDefaultScreenFont(TextFont: PTextFont); syscall IntuitionBase 144;
+function DoNotify(Cl: PIClass; O: PObject_; Ic: Pointer; Msg: TopUpdate): Pointer; syscall IntuitionBase 145;
+procedure FreeICData(ICData: Pointer); syscall IntuitionBase 146;
+function AllocIntuiMessage(Window: PWindow): PIntuiMessage; syscall IntuitionBase 148;
+procedure FreeIntuiMessage(IMsg: PIntuiMessage); syscall IntuitionBase 149;
+procedure SendIntuiMessage(Window: PWindow; IMsg: PIntuiMessage); syscall IntuitionBase 151;
+function GetDrawInfoAttr(DrawInfo: PDrawInfo; AttrID: LongWord; ErrorPtr: PIPTR): IPTR; syscall IntuitionBase 156;
+procedure WindowAction(Window: PWindow; Action: LongWord; Tags: PTagItem); syscall IntuitionBase 157;
+procedure ScrollWindowRasterNoFill(Window: PWindow; Dx, Dy, XMin, YMin, XMax, YMax: Word); syscall IntuitionBase 159;
+function SetPointerBounds(Screen: PScreen; Rect: TRectangle; Reserved: LongWord; Tags: PTagItem): LongWord; syscall IntuitionBase 160;
+
+{$ifdef AROS_ABIv0}
+procedure ChangeDecoration(ID: LongWord; Decor: PNewDecorator); syscall IntuitionBase 153;
+function StartScreenNotifyTagList(Tags: PTagItem): IPTR; syscall IntuitionBase 161;
+function EndScreenNotify(Notify: IPTR): LongBool; syscall IntuitionBase 162;
+function GetMonitorList(Tags: PTagItem): PPObject_; syscall IntuitionBase 163;
+procedure FreeMonitorList(Obj: PPObject_); syscall IntuitionBase 164;
+{$endif}
+
+{$ifdef AROS_ABIv1}
+procedure ChangeDecoration(ID: LongWord; Decor: PNewDecorator); syscall IntuitionBase 152;
+function StartScreenNotifyTagList(Tags: PTagItem): IPTR; syscall IntuitionBase 154;
+function EndScreenNotify(Notify: IPTR): LongBool; syscall IntuitionBase 155;
+procedure FreeMonitorList(Obj: PPObject_); syscall IntuitionBase 162;
+function GetMonitorList(Tags: PTagItem): PPObject_; syscall IntuitionBase 161;
+{$endif}
 
 // VarArgs Versions
 function SetAttrs(Obj: APTR; const Tags: array of PtrUInt): LongWord;

packages/arosunits/src/utility.pas

@@ -208,45 +208,45 @@ type
     ub_Reserved: Byte;
   end;
 
-function AddNamedObject(NameSpace, Object_: PNamedObject): LongBool; syscall AOS_UtilityBase 37;
-function AllocateTagItems(Num: LongWord): PTagItem; syscall AOS_UtilityBase 11;
-function AllocNamedObjectA(const Name: STRPTR; TagList: PTagItem): PNamedObject; syscall AOS_UtilityBase 38;
-procedure Amiga2Date(Seconds: LongWord; Resultat: PClockData); syscall AOS_UtilityBase 20;
-procedure ApplyTagChanges(List: PTagItem; ChangeList: PTagItem); syscall AOS_UtilityBase 31;
-function AttemptRemNamedObject(Object_: PNamedObject): LongInt; syscall AOS_UtilityBase 39;
-function CallHookPkt(Hook: PHook; Object_, ParamPaket: APTR): IPTR; syscall AOS_UtilityBase 17;
-function CheckDate(Date: PClockData): LongWord; syscall AOS_UtilityBase 22;
-function CloneTagItems(const TagList: PTagItem): PTagItem; syscall AOS_UtilityBase 12;
-function Date2Amiga(Date: PClockData): LongWord; syscall AOS_UtilityBase 21;
-procedure FilterTagChanges(ChangeList: PTagItem; const Oldvalues: PTagItem; Apply: LongBool); syscall AOS_UtilityBase 9;
-function FilterTagItems(TagList: PTagItem; FilterArray: PTag; Logic: LongWord): LongWord; syscall AOS_UtilityBase 16;
-function FindNamedObject(NameSpace: PNamedObject; const Name: STRPTR; LastObject: PNamedObject): PNamedObject; syscall AOS_UtilityBase 40;
 function FindTagItem(TagValue: Tag; const TagList: PTagItem): PTagItem; syscall AOS_UtilityBase 5;
-procedure FreeNamedObject(Object_: PNamedObject); syscall AOS_UtilityBase 41;
-procedure FreeTagItems(TagList: PTagItem); syscall AOS_UtilityBase 13;
 function GetTagData(TagValue: Tag; Default: IPTR; const TagList: PTagItem): IPTR; syscall AOS_UtilityBase 6;
-function GetUniqueID: LongWord; syscall AOS_UtilityBase 45;
-procedure MapTags(TagList: PTagItem; const MapList: PTagItem; MapType: LongWord); syscall AOS_UtilityBase 10;
-function NamedObjectName(Object_: PNamedObject): STRPTR; syscall AOS_UtilityBase 42;
+function PackBoolTags(InitialFlags: LongWord; const TagList, BoolMap: PTagItem): IPTR; syscall AOS_UtilityBase 7;
 function NextTagItem(var Item: PTagItem): PTagItem; overload; syscall AOS_UtilityBase 8;
 function NextTagItem(ItemPtr: PPTagItem): PTagItem; overload; syscall AOS_UtilityBase 8;
-function PackBoolTags(InitialFlags: LongWord; const TagList, BoolMap: PTagItem): IPTR; syscall AOS_UtilityBase 7;
-function PackStructureTags(Pack: APTR; PackTable: PLongWord; TagList: PTagItem): LongWord; syscall AOS_UtilityBase 35;
+procedure FilterTagChanges(ChangeList: PTagItem; const Oldvalues: PTagItem; Apply: LongBool); syscall AOS_UtilityBase 9;
+procedure MapTags(TagList: PTagItem; const MapList: PTagItem; MapType: LongWord); syscall AOS_UtilityBase 10;
+function AllocateTagItems(Num: LongWord): PTagItem; syscall AOS_UtilityBase 11;
+function CloneTagItems(const TagList: PTagItem): PTagItem; syscall AOS_UtilityBase 12;
+procedure FreeTagItems(TagList: PTagItem); syscall AOS_UtilityBase 13;
 procedure RefreshTagItemClones(Clone: PTagItem; const Original: PTagItem); syscall AOS_UtilityBase 14;
-procedure ReleaseNamedObject(Object_: PNamedObject); syscall AOS_UtilityBase 43;
-procedure RemNamedObject(Object_: PNamedObject; Message: PMessage); syscall AOS_UtilityBase 44;
-function SDivMod32(Dividend, Divisor: LongInt): Int64; syscall AOS_UtilityBase 25;
+function TagInArray(TagValue: Tag; TagArray: PTag): LongBool; syscall AOS_UtilityBase 15;
+function FilterTagItems(TagList: PTagItem; FilterArray: PTag; Logic: LongWord): LongWord; syscall AOS_UtilityBase 16;
+function CallHookPkt(Hook: PHook; Object_, ParamPaket: APTR): IPTR; syscall AOS_UtilityBase 17;
+procedure Amiga2Date(Seconds: LongWord; Resultat: PClockData); syscall AOS_UtilityBase 20;
+function Date2Amiga(Date: PClockData): LongWord; syscall AOS_UtilityBase 21;
+function CheckDate(Date: PClockData): LongWord; syscall AOS_UtilityBase 22;
 function SMult32(Arg1, Arg2: LongInt): LongInt; syscall AOS_UtilityBase 23;
-function SMult64(Arg1, Arg2: LongInt): Int64; syscall AOS_UtilityBase 33;
+function UMult32(Arg1, Arg2: LongWord): LongWord; syscall AOS_UtilityBase 24;
+function SDivMod32(Dividend, Divisor: LongInt): Int64; syscall AOS_UtilityBase 25;
+function UDivMod32(Dividend, Divisor: LongWord): LongWord; syscall AOS_UtilityBase 26;
 function Stricmp(const Str1: STRPTR; const Str2: STRPTR): LongInt; syscall AOS_UtilityBase 27;
 function Strnicmp(const Str1: STRPTR; const Str2 : STRPTR; Length_: LongInt): LongInt; syscall AOS_UtilityBase 28;
-function TagInArray(TagValue: Tag; TagArray: PTag): LongBool; syscall AOS_UtilityBase 15;
-function ToLower(c: LongWord): Char; syscall AOS_UtilityBase 30;
 function ToUpper(c: LongWord): Char; syscall AOS_UtilityBase 29;
-function UDivMod32(Dividend, Divisor: LongWord): LongWord; syscall AOS_UtilityBase 26;
-function UMult32(Arg1, Arg2: LongWord): LongWord; syscall AOS_UtilityBase 24;
+function ToLower(c: LongWord): Char; syscall AOS_UtilityBase 30;
+procedure ApplyTagChanges(List: PTagItem; ChangeList: PTagItem); syscall AOS_UtilityBase 31;
+function SMult64(Arg1, Arg2: LongInt): Int64; syscall AOS_UtilityBase 33;
 function UMult64(Arg1, Arg2: LongWord): QWord; syscall AOS_UtilityBase 34;
+function PackStructureTags(Pack: APTR; PackTable: PLongWord; TagList: PTagItem): LongWord; syscall AOS_UtilityBase 35;
 function UnpackStructureTags(Pack: APTR; PackTable: PLongWord; TagList: PTagItem): LongWord; syscall AOS_UtilityBase 36;
+function AddNamedObject(NameSpace, Object_: PNamedObject): LongBool; syscall AOS_UtilityBase 37;
+function AllocNamedObjectA(const Name: STRPTR; TagList: PTagItem): PNamedObject; syscall AOS_UtilityBase 38;
+function AttemptRemNamedObject(Object_: PNamedObject): LongInt; syscall AOS_UtilityBase 39;
+function FindNamedObject(NameSpace: PNamedObject; const Name: STRPTR; LastObject: PNamedObject): PNamedObject; syscall AOS_UtilityBase 40;
+procedure FreeNamedObject(Object_: PNamedObject); syscall AOS_UtilityBase 41;
+function NamedObjectName(Object_: PNamedObject): STRPTR; syscall AOS_UtilityBase 42;
+procedure ReleaseNamedObject(Object_: PNamedObject); syscall AOS_UtilityBase 43;
+procedure RemNamedObject(Object_: PNamedObject; Message: PMessage); syscall AOS_UtilityBase 44;
+function GetUniqueID: LongWord; syscall AOS_UtilityBase 45;
 
 // Macros
 function CALLHOOKPKT_(Hook: PHook; Object_: APTR; Message: APTR): IPTR; inline;