diff options
Diffstat (limited to 'packages/amunits')
87 files changed, 1284 insertions, 12256 deletions
diff --git a/packages/amunits/Makefile b/packages/amunits/Makefile index 7708e2f5f4..4724a8d49b 100644 --- a/packages/amunits/Makefile +++ b/packages/amunits/Makefile @@ -1,9 +1,9 @@ # -# Don't edit, this file is generated by FPCMake Version 2.0.0 [2014-02-06 rev 26692] +# Don't edit, this file is generated by FPCMake Version 2.0.0 [2014-12-07 rev 29213] # default: all -MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian i386-nativent i386-iphonesim i386-android m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded powerpc-wii powerpc-aix sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-netbsd x86_64-solaris x86_64-openbsd x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian arm-android powerpc64-linux powerpc64-darwin powerpc64-embedded powerpc64-aix avr-embedded armeb-linux armeb-embedded mips-linux mipsel-linux mipsel-android jvm-java jvm-android i8086-msdos -BSDs = freebsd netbsd openbsd darwin +MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian i386-nativent i386-iphonesim i386-android i386-aros m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded powerpc-wii powerpc-aix sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-netbsd x86_64-solaris x86_64-openbsd x86_64-darwin x86_64-win64 x86_64-embedded x86_64-dragonfly arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian arm-android powerpc64-linux powerpc64-darwin powerpc64-embedded powerpc64-aix avr-embedded armeb-linux armeb-embedded mips-linux mipsel-linux mipsel-embedded mipsel-android jvm-java jvm-android i8086-msdos +BSDs = freebsd netbsd openbsd darwin dragonfly UNIXs = linux $(BSDs) solaris qnx haiku aix LIMIT83fs = go32v2 os2 emx watcom msdos OSNeedsComspecToRunBatch = go32v2 watcom @@ -184,6 +184,12 @@ $(error When compiling for arm-embedded, a sub-architecture (e.g. SUBARCH=armv4t endif override FPCOPT+=-Cp$(SUBARCH) endif +ifeq ($(FULL_TARGET),mipsel-embedded) +ifeq ($(SUBARCH),) +$(error When compiling for mipsel-embedded, a sub-architecture (e.g. SUBARCH=pic32mx) must be defined) +endif +override FPCOPT+=-Cp$(SUBARCH) +endif ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),) TARGETSUFFIX=$(OS_TARGET) SOURCESUFFIX=$(OS_SOURCE) @@ -320,7 +326,7 @@ FPCFPMAKE=$(FPC) endif endif override PACKAGE_NAME=amunits -override PACKAGE_VERSION=2.7.1 +override PACKAGE_VERSION=3.1.1 FPMAKE_BIN_CLEAN=$(wildcard ./fpmake$(SRCEXEEXT)) ifdef OS_TARGET FPC_TARGETOPT+=--os=$(OS_TARGET) @@ -572,6 +578,12 @@ EXEEXT= HASSHAREDLIB=1 SHORTSUFFIX=lnx endif +ifeq ($(OS_TARGET),dragonfly) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=df +endif ifeq ($(OS_TARGET),freebsd) BATCHEXT=.sh EXEEXT= @@ -617,6 +629,11 @@ EXEEXT= SHAREDLIBEXT=.library SHORTSUFFIX=amg endif +ifeq ($(OS_TARGET),aros) +EXEEXT= +SHAREDLIBEXT=.library +SHORTSUFFIX=aros +endif ifeq ($(OS_TARGET),morphos) EXEEXT= SHAREDLIBEXT=.library @@ -1153,6 +1170,14 @@ REQUIRE_PACKAGES_HASH=1 REQUIRE_PACKAGES_LIBTAR=1 REQUIRE_PACKAGES_FPMKUNIT=1 endif +ifeq ($(FULL_TARGET),i386-aros) +REQUIRE_PACKAGES_RTL=1 +REQUIRE_PACKAGES_PASZLIB=1 +REQUIRE_PACKAGES_FCL-PROCESS=1 +REQUIRE_PACKAGES_HASH=1 +REQUIRE_PACKAGES_LIBTAR=1 +REQUIRE_PACKAGES_FPMKUNIT=1 +endif ifeq ($(FULL_TARGET),m68k-linux) REQUIRE_PACKAGES_RTL=1 REQUIRE_PACKAGES_PASZLIB=1 @@ -1385,6 +1410,14 @@ REQUIRE_PACKAGES_HASH=1 REQUIRE_PACKAGES_LIBTAR=1 REQUIRE_PACKAGES_FPMKUNIT=1 endif +ifeq ($(FULL_TARGET),x86_64-dragonfly) +REQUIRE_PACKAGES_RTL=1 +REQUIRE_PACKAGES_PASZLIB=1 +REQUIRE_PACKAGES_FCL-PROCESS=1 +REQUIRE_PACKAGES_HASH=1 +REQUIRE_PACKAGES_LIBTAR=1 +REQUIRE_PACKAGES_FPMKUNIT=1 +endif ifeq ($(FULL_TARGET),arm-linux) REQUIRE_PACKAGES_RTL=1 REQUIRE_PACKAGES_PASZLIB=1 @@ -1529,6 +1562,14 @@ REQUIRE_PACKAGES_HASH=1 REQUIRE_PACKAGES_LIBTAR=1 REQUIRE_PACKAGES_FPMKUNIT=1 endif +ifeq ($(FULL_TARGET),mipsel-embedded) +REQUIRE_PACKAGES_RTL=1 +REQUIRE_PACKAGES_PASZLIB=1 +REQUIRE_PACKAGES_FCL-PROCESS=1 +REQUIRE_PACKAGES_HASH=1 +REQUIRE_PACKAGES_LIBTAR=1 +REQUIRE_PACKAGES_FPMKUNIT=1 +endif ifeq ($(FULL_TARGET),mipsel-android) REQUIRE_PACKAGES_RTL=1 REQUIRE_PACKAGES_PASZLIB=1 @@ -1902,7 +1943,7 @@ endif ifdef CREATESHARED override FPCOPT+=-Cg endif -ifneq ($(findstring $(OS_TARGET),freebsd openbsd netbsd linux solaris),) +ifneq ($(findstring $(OS_TARGET),dragonfly freebsd openbsd netbsd linux solaris),) ifeq ($(CPU_TARGET),x86_64) override FPCOPT+=-Cg endif @@ -1932,17 +1973,23 @@ ifdef ACROSSCOMPILE override FPCOPT+=$(CROSSOPT) endif override COMPILER:=$(strip $(FPC) $(FPCOPT)) -ifeq (,$(findstring -s ,$(COMPILER))) +ifneq (,$(findstring -sh ,$(COMPILER))) +UseEXECPPAS=1 +endif +ifneq (,$(findstring -s ,$(COMPILER))) +ifeq ($(FULL_SOURCE),$(FULL_TARGET)) +UseEXECPPAS=1 +endif +endif +ifneq ($(UseEXECPPAS),1) EXECPPAS= else -ifeq ($(FULL_SOURCE),$(FULL_TARGET)) ifdef RUNBATCH EXECPPAS:=@$(RUNBATCH) $(PPAS) else EXECPPAS:=@$(PPAS) endif endif -endif ifdef TARGET_RSTS override RSTFILES=$(addsuffix $(RSTEXT),$(TARGET_RSTS)) override CLEANRSTFILES+=$(RSTFILES) @@ -2289,12 +2336,10 @@ examples: shared: sourceinstall: fpc_sourceinstall exampleinstall: fpc_exampleinstall -zipsourceinstall: fpc_zipsourceinstall zipexampleinstall: fpc_zipexampleinstall -zipdistinstall: fpc_zipdistinstall info: fpc_info makefiles: fpc_makefiles -.PHONY: units examples shared sourceinstall exampleinstall zipsourceinstall zipexampleinstall zipdistinstall info makefiles +.PHONY: units examples shared sourceinstall exampleinstall zipexampleinstall info makefiles ifneq ($(wildcard fpcmake.loc),) include fpcmake.loc endif @@ -2310,15 +2355,15 @@ FPMAKE_OPT+=$(addprefix -o ,$(FPCOPT)) FPMAKE_OPT+=--compiler=$(FPC) FPMAKE_OPT+=-bu .NOTPARALLEL: -fpmake: fpmake.pp +fpmake$(SRCEXEEXT): fpmake.pp $(FPCFPMAKE) fpmake.pp $(FPMAKE_SKIP_CONFIG) $(addprefix -Fu,$(COMPILER_FPMAKE_UNITDIR)) $(FPCMAKEOPT) $(OPT) -all: fpmake +all: fpmake$(SRCEXEEXT) $(LOCALFPMAKE) compile $(FPMAKE_OPT) -smart: fpmake +smart: fpmake$(SRCEXEEXT) $(LOCALFPMAKE) compile $(FPMAKE_OPT) -o -XX -o -CX -release: fpmake +release: fpmake$(SRCEXEEXT) $(LOCALFPMAKE) compile $(FPMAKE_OPT) -o -dRELEASE -debug: fpmake +debug: fpmake$(SRCEXEEXT) $(LOCALFPMAKE) compile $(FPMAKE_OPT) -o -dDEBUG ifeq ($(FPMAKE_BIN_CLEAN),) clean: @@ -2338,17 +2383,25 @@ endif -$(DEL) $(LOCALFPMAKE) endif cleanall: distclean -install: fpmake +install: fpmake$(SRCEXEEXT) ifdef UNIXHier $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_PREFIX) --baseinstalldir=$(INSTALL_LIBDIR)/fpc/$(FPC_VERSION) --unitinstalldir=$(INSTALL_UNITDIR) else - $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_BASEDIR) --unitinstalldir=$(INSTALL_UNITDIR) + $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_BASEDIR) --baseinstalldir=$(INSTALL_BASEDIR) --unitinstalldir=$(INSTALL_UNITDIR) +endif +distinstall: fpmake$(SRCEXEEXT) +ifdef UNIXHier + $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_PREFIX) --baseinstalldir=$(INSTALL_LIBDIR)/fpc/$(FPC_VERSION) --unitinstalldir=$(INSTALL_UNITDIR) -ie -fsp 0 +else + $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_BASEDIR) --baseinstalldir=$(INSTALL_BASEDIR) --unitinstalldir=$(INSTALL_UNITDIR) -ie -fsp 0 endif -distinstall: fpmake +zipinstall: fpmake$(SRCEXEEXT) + $(LOCALFPMAKE) zipinstall $(FPMAKE_OPT) --zipprefix=$(DIST_DESTDIR)/$(ZIPPREFIX) +zipdistinstall: fpmake$(SRCEXEEXT) + $(LOCALFPMAKE) zipinstall $(FPMAKE_OPT) --zipprefix=$(DIST_DESTDIR)/$(ZIPPREFIX) -ie -fsp 0 +zipsourceinstall: fpmake$(SRCEXEEXT) ifdef UNIXHier - $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_PREFIX) --baseinstalldir=$(INSTALL_LIBDIR)/fpc/$(FPC_VERSION) --unitinstalldir=$(INSTALL_UNITDIR) -ie + $(LOCALFPMAKE) archive $(FPMAKE_OPT) --zipprefix=$(DIST_DESTDIR)/$(ZIPPREFIX) --prefix=share/src/fpc-\$$\(PACKAGEVERSION\)/$(INSTALL_FPCSUBDIR)/\$$\(PACKAGEDIRECTORY\) else - $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_BASEDIR) --unitinstalldir=$(INSTALL_UNITDIR) -ie + $(LOCALFPMAKE) archive $(FPMAKE_OPT) --zipprefix=$(DIST_DESTDIR)/$(ZIPPREFIX) --prefix=source\\$(INSTALL_FPCSUBDIR)\\\$$\(PACKAGEDIRECTORY\) endif -zipinstall: fpmake - $(LOCALFPMAKE) zipinstall $(FPMAKE_OPT) diff --git a/packages/amunits/Makefile.fpc b/packages/amunits/Makefile.fpc index 9f692c3593..5279981a38 100644 --- a/packages/amunits/Makefile.fpc +++ b/packages/amunits/Makefile.fpc @@ -4,7 +4,7 @@ [package] name=amunits -version=2.7.1 +version=3.1.1 [require] packages=rtl fpmkunit @@ -41,15 +41,15 @@ FPMAKE_OPT+=--compiler=$(FPC) FPMAKE_OPT+=-bu .NOTPARALLEL: -fpmake: fpmake.pp +fpmake$(SRCEXEEXT): fpmake.pp $(FPCFPMAKE) fpmake.pp $(FPMAKE_SKIP_CONFIG) $(addprefix -Fu,$(COMPILER_FPMAKE_UNITDIR)) $(FPCMAKEOPT) $(OPT) -all: fpmake +all: fpmake$(SRCEXEEXT) $(LOCALFPMAKE) compile $(FPMAKE_OPT) -smart: fpmake +smart: fpmake$(SRCEXEEXT) $(LOCALFPMAKE) compile $(FPMAKE_OPT) -o -XX -o -CX -release: fpmake +release: fpmake$(SRCEXEEXT) $(LOCALFPMAKE) compile $(FPMAKE_OPT) -o -dRELEASE -debug: fpmake +debug: fpmake$(SRCEXEEXT) $(LOCALFPMAKE) compile $(FPMAKE_OPT) -o -dDEBUG # If no fpmake exists and (dist)clean is called, do not try to build fpmake, it will # most often fail because the dependencies are cleared. @@ -74,18 +74,27 @@ endif -$(DEL) $(LOCALFPMAKE) endif cleanall: distclean -install: fpmake +install: fpmake$(SRCEXEEXT) ifdef UNIXHier $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_PREFIX) --baseinstalldir=$(INSTALL_LIBDIR)/fpc/$(FPC_VERSION) --unitinstalldir=$(INSTALL_UNITDIR) else - $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_BASEDIR) --unitinstalldir=$(INSTALL_UNITDIR) + $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_BASEDIR) --baseinstalldir=$(INSTALL_BASEDIR) --unitinstalldir=$(INSTALL_UNITDIR) endif -# distinstall also installs the example-sources -distinstall: fpmake +# distinstall also installs the example-sources and omits the location of the source- +# files from the fpunits.cfg files. +distinstall: fpmake$(SRCEXEEXT) ifdef UNIXHier - $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_PREFIX) --baseinstalldir=$(INSTALL_LIBDIR)/fpc/$(FPC_VERSION) --unitinstalldir=$(INSTALL_UNITDIR) -ie + $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_PREFIX) --baseinstalldir=$(INSTALL_LIBDIR)/fpc/$(FPC_VERSION) --unitinstalldir=$(INSTALL_UNITDIR) -ie -fsp 0 else - $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_BASEDIR) --unitinstalldir=$(INSTALL_UNITDIR) -ie + $(LOCALFPMAKE) install $(FPMAKE_OPT) --prefix=$(INSTALL_BASEDIR) --baseinstalldir=$(INSTALL_BASEDIR) --unitinstalldir=$(INSTALL_UNITDIR) -ie -fsp 0 +endif +zipinstall: fpmake$(SRCEXEEXT) + $(LOCALFPMAKE) zipinstall $(FPMAKE_OPT) --zipprefix=$(DIST_DESTDIR)/$(ZIPPREFIX) +zipdistinstall: fpmake$(SRCEXEEXT) + $(LOCALFPMAKE) zipinstall $(FPMAKE_OPT) --zipprefix=$(DIST_DESTDIR)/$(ZIPPREFIX) -ie -fsp 0 +zipsourceinstall: fpmake$(SRCEXEEXT) +ifdef UNIXHier + $(LOCALFPMAKE) archive $(FPMAKE_OPT) --zipprefix=$(DIST_DESTDIR)/$(ZIPPREFIX) --prefix=share/src/fpc-\$$\(PACKAGEVERSION\)/$(INSTALL_FPCSUBDIR)/\$$\(PACKAGEDIRECTORY\) +else + $(LOCALFPMAKE) archive $(FPMAKE_OPT) --zipprefix=$(DIST_DESTDIR)/$(ZIPPREFIX) --prefix=source\\$(INSTALL_FPCSUBDIR)\\\$$\(PACKAGEDIRECTORY\) endif -zipinstall: fpmake - $(LOCALFPMAKE) zipinstall $(FPMAKE_OPT) diff --git a/packages/amunits/Makefile.fpc.fpcmake b/packages/amunits/Makefile.fpc.fpcmake index c276da741e..4dca390b00 100644 --- a/packages/amunits/Makefile.fpc.fpcmake +++ b/packages/amunits/Makefile.fpc.fpcmake @@ -4,21 +4,21 @@ [package] name=amunits -version=2.7.1 +version=3.1.1 [target] -units= msgbox amigautils wbargs vartags pastoc tagsarray systemvartags \ - deadkeys consoleio pcq longarray linklist hisoft timerutils easyasl \ - doublebuffer intuition graphics amigalib nonvolatile iffparse hardware \ +units= amsgbox amigautils wbargs vartags pastoc tagsarray systemvartags deadkeys \ + deadkeys consoleio pcq longarray linklist hisoft exec timerutils easyasl \ + doublebuffer intuition agraphics amigalib nonvolatile iffparse hardware \ expansion diskfont conunit amigados configvars keyboard bootblock icon \ - cd realtime rexx translator scsidisk lowlevel configregs prefs parallel \ + cd realtime rexx translator scsidisk lowlevel configregs prefs parallel \ gadtools prtgfx romboot_base trackdisk expansionbase amigaguide \ amigaprinter bullet clipboard keymap utility timer workbench colorwheel \ prtbase console locale tapedeck serial gameport gradientslider input \ audio datatypes asl commodities hardblocks layers inputevent identify \ gtlayout tritonmacros render mui picasso96api guigfx preferences \ xadmaster cybergraphics ptreplay reqtools amarquee ttengine triton zlib \ - mysticview ahi lucyplay ahi_sub + mysticview ahi lucyplay ahi_sub [compiler] includedir=src diff --git a/packages/amunits/examples/asltest.pas b/packages/amunits/examples/asltest.pas index a48ed034fd..169ffc1702 100644 --- a/packages/amunits/examples/asltest.pas +++ b/packages/amunits/examples/asltest.pas @@ -1,6 +1,6 @@ PROGRAM AslTest; -uses Exec, Utility, Asl, msgbox, systemvartags; +uses Exec, Utility, Asl, amsgbox, systemvartags; { @@ -32,7 +32,7 @@ BEGIN TAG_DONE]); IF fr <> nil THEN BEGIN - dummy := AslRequest(fr,NIL); + dummy := AslRequest(fr,NIL) <> LFALSE; if dummy then begin MessageBox('Test of Asl', ' The path is :' + diff --git a/packages/amunits/examples/bezier.pas b/packages/amunits/examples/bezier.pas index 6650ac4de8..2603469a91 100644 --- a/packages/amunits/examples/bezier.pas +++ b/packages/amunits/examples/bezier.pas @@ -35,7 +35,7 @@ Program Bezier; nils.sjoholm@mailbox.swipnet.se } -uses exec, intuition, graphics, utility,pastoc, systemvartags; +uses exec, intuition, agraphics, utility,pastoc, systemvartags; type PointRec = packed Record @@ -69,7 +69,7 @@ end; Procedure DrawLine; begin - Move(rp, Trunc(Points[PointCount].X), Trunc(Points[PointCount].Y)); + GFXMove(rp, Trunc(Points[PointCount].X), Trunc(Points[PointCount].Y)); Draw(rp, LastX, LastY); end; @@ -201,7 +201,7 @@ Procedure DrawCurve; var i : Integer; begin - Move(rp, Trunc(Points[1].X), Trunc(Points[1].Y)); + GfxMove(rp, Trunc(Points[1].X), Trunc(Points[1].Y)); for i := 2 to PointCount do Draw(rp, Round(Points[i].X), Round(Points[i].Y)); end; @@ -248,10 +248,10 @@ begin IF w=NIL THEN CleanUpAndDie; rp := w^.RPort; - Move(rp, 252, 30); - GText(rp, pas2c('Enter points by pressing the left mouse button'), 46); - Move(rp, 252, 40); - GText(rp, pas2c('Double click on the last point to begin drawing'), 47); + GfxMove(rp, 252, 30); + GfxText(rp, pas2c('Enter points by pressing the left mouse button'), 46); + GfxMove(rp, 252, 40); + GfxText(rp, pas2c('Double click on the last point to begin drawing'), 47); repeat GetPoints; { Both these routines will quit if } DrawBezier; { the window is closed. } diff --git a/packages/amunits/examples/bezier2.pas b/packages/amunits/examples/bezier2.pas index 6a6bb35c35..c067cb07e0 100644 --- a/packages/amunits/examples/bezier2.pas +++ b/packages/amunits/examples/bezier2.pas @@ -26,7 +26,7 @@ Program Bezier; nils.sjoholm@mailbox.swipnet.se } -uses exec, intuition, graphics, utility, pastoc, systemvartags; +uses exec, intuition, agraphics, utility, pastoc, systemvartags; type PointRec = Record @@ -72,7 +72,7 @@ end; Procedure DrawLine; begin - Move(rp, Points[PointCount].X, Points[PointCount].Y); + GfxMove(rp, Points[PointCount].X, Points[PointCount].Y); Draw(rp, LastX, LastY); end; @@ -133,10 +133,10 @@ var end; begin - Move(rp, 252, 30); - GText(rp, 'Enter points by pressing the left mouse button', 46); - Move(rp, 252, 40); - GText(rp, 'Double click on the last point to begin drawing', 47); + GfxMove(rp, 252, 30); + GfxText(rp, 'Enter points by pressing the left mouse button', 46); + GfxMove(rp, 252, 40); + GfxText(rp, 'Double click on the last point to begin drawing', 47); ModifyIDCMP(w, IDCMP_CLOSEWINDOW or IDCMP_MOUSEBUTTONS or IDCMP_MOUSEMOVE); SetDrMd(rp, COMPLEMENT); PointCount := 0; @@ -223,7 +223,7 @@ begin increment := 0.01; { This could be a function of PointCount } t := 0.0; tprime := 1.0; - Move(rp, Trunc(BezierX(Pred(PointCount), 1)), + GfxMove(rp, Trunc(BezierX(Pred(PointCount), 1)), Trunc(BezierY(Pred(PointCount), 1))); t := t + increment; tprime := 1.0 - t; diff --git a/packages/amunits/examples/easygadtools.pas b/packages/amunits/examples/easygadtools.pas index 675ec2fdd4..2aff40b2ee 100644 --- a/packages/amunits/examples/easygadtools.pas +++ b/packages/amunits/examples/easygadtools.pas @@ -15,7 +15,7 @@ PROGRAM EasyGadtools; } -USES Intuition, Exec, Graphics, GadTools, Utility, pastoc,systemvartags; +USES Intuition, Exec, AGraphics, GadTools, Utility, pastoc,systemvartags; CONST diff --git a/packages/amunits/examples/getfontasl.pas b/packages/amunits/examples/getfontasl.pas index 9454ec73e3..790e4baae1 100644 --- a/packages/amunits/examples/getfontasl.pas +++ b/packages/amunits/examples/getfontasl.pas @@ -1,6 +1,6 @@ PROGRAM GetFontAsltest; -uses easyasl,msgbox,amigautils; +uses easyasl,amsgbox,amigautils; { An example to get a font with easyasl. diff --git a/packages/amunits/examples/imagegadget.pas b/packages/amunits/examples/imagegadget.pas index 166a118a0f..feb11af070 100644 --- a/packages/amunits/examples/imagegadget.pas +++ b/packages/amunits/examples/imagegadget.pas @@ -21,7 +21,7 @@ PROGRAM ImageGadget; nils.sjoholm@mailbox.swipnet.se } -USES Intuition, Exec, Graphics, GadTools, Utility, systemvartags,pastoc; +USES Intuition, Exec, AGraphics, GadTools, Utility, systemvartags,pastoc; CONST @@ -289,6 +289,7 @@ end; FUNCTION EasyReq(wp : pWindow; title,body,gad : PChar) : Longint; VAR es : tEasyStruct; + Res: LongWord; BEGIN es.es_StructSize:=SizeOf(tEasyStruct); es.es_Flags:=0; @@ -296,7 +297,7 @@ BEGIN es.es_TextFormat:=body; es.es_GadgetFormat:=gad; - EasyReq := EasyRequestArgs(wp,@es,0,NIL); + EasyReq := EasyRequestArgs(wp,@es,@Res,NIL); END; PROCEDURE CleanUp(why : PChar; rc : BYTE); diff --git a/packages/amunits/examples/moire.pas b/packages/amunits/examples/moire.pas index e1c5c14352..2499618cd4 100644 --- a/packages/amunits/examples/moire.pas +++ b/packages/amunits/examples/moire.pas @@ -21,7 +21,7 @@ Program Moire; nils.sjoholm@mailbox.swipnet.se } -uses Exec, Intuition, Graphics, Utility, systemvartags; +uses Exec, Intuition, AGraphics, Utility, systemvartags; const @@ -47,7 +47,7 @@ begin while x < Pred(Width - BorderRight - BorderLeft) do begin Stop := Pred(Width - BorderRight); SetAPen(RP, Pen); - Move(RP, Succ(x + BorderLeft), BorderTop); + GfxMove(RP, Succ(x + BorderLeft), BorderTop); Draw(RP, Stop - x, Pred(Height - BorderBottom)); Pen := (Pen + 1) mod 4; Inc(x); @@ -59,7 +59,7 @@ begin while x < Pred(Height - BorderBottom - BorderTop) do begin Stop := Pred(Height - BorderBottom); SetAPen(RP, Pen); - Move(RP, Pred(Width - BorderRight), Succ(x + BorderTop)); + GfxMove(RP, Pred(Width - BorderRight), Succ(x + BorderTop)); Draw(RP, Succ(BorderLeft), Stop - x); Pen := (Pen + 1) mod 4; Inc(x); diff --git a/packages/amunits/examples/otherlibs/bestmodeid.pas b/packages/amunits/examples/otherlibs/bestmodeid.pas index 79765b5e73..b47ed77d0c 100644 --- a/packages/amunits/examples/otherlibs/bestmodeid.pas +++ b/packages/amunits/examples/otherlibs/bestmodeid.pas @@ -17,7 +17,7 @@ PROGRAM BestModeID; nils.sjoholm@mailbox.swipnet.se } -uses exec, amigados, graphics, picasso96api, utility; +uses exec, amigados, agraphics, picasso96api, utility; Const diff --git a/packages/amunits/examples/otherlibs/gadgetdemo.pas b/packages/amunits/examples/otherlibs/gadgetdemo.pas index 11e9236c34..07ffbc8adb 100644 --- a/packages/amunits/examples/otherlibs/gadgetdemo.pas +++ b/packages/amunits/examples/otherlibs/gadgetdemo.pas @@ -125,7 +125,7 @@ ProjectStart; SetTRTag(TRAT_Value,5); SetTRTag(TRAT_ID,ScrollGadID); Space; - ClippedTextBoxMW('5',ScrollGadTextID,2); + ClippedTextBoxMW(PChar('5'),ScrollGadTextID,2); EndLine; Space; BeginLine; diff --git a/packages/amunits/examples/otherlibs/gttest.pas b/packages/amunits/examples/otherlibs/gttest.pas index 7e1beacf40..afaaf914bc 100644 --- a/packages/amunits/examples/otherlibs/gttest.pas +++ b/packages/amunits/examples/otherlibs/gttest.pas @@ -18,7 +18,7 @@ program gttest; } -uses intuition, exec, gadtools, utility, gtlayout, msgbox; +uses intuition, exec, gadtools, utility, gtlayout, amsgbox; const ltrue : longint = 1; diff --git a/packages/amunits/examples/otherlibs/openpip.pas b/packages/amunits/examples/otherlibs/openpip.pas index 964dc27992..4555be90d1 100644 --- a/packages/amunits/examples/otherlibs/openpip.pas +++ b/packages/amunits/examples/otherlibs/openpip.pas @@ -17,7 +17,7 @@ Program OpenPIP; nils.sjoholm@mailbox.swipnet.se } -uses exec, amigados, graphics, intuition, picasso96api, utility,strings; +uses exec, amigados, agraphics, intuition, picasso96api, utility,strings; Const diff --git a/packages/amunits/examples/otherlibs/openscreen.pas b/packages/amunits/examples/otherlibs/openscreen.pas index c324522cde..f4df90085e 100644 --- a/packages/amunits/examples/otherlibs/openscreen.pas +++ b/packages/amunits/examples/otherlibs/openscreen.pas @@ -20,7 +20,7 @@ PROGRAM OpenScreen; } -uses exec, amigados, graphics, intuition, picasso96api, utility,systemvartags; +uses exec, amigados, agraphics, intuition, picasso96api, utility,systemvartags; Const diff --git a/packages/amunits/examples/otherlibs/p96checkboards.pas b/packages/amunits/examples/otherlibs/p96checkboards.pas index de243871bb..ba0490640a 100644 --- a/packages/amunits/examples/otherlibs/p96checkboards.pas +++ b/packages/amunits/examples/otherlibs/p96checkboards.pas @@ -17,7 +17,7 @@ Program P96CheckBoards; } -uses exec, amigados, graphics, picasso96api,utility,amigalib; +uses exec, amigados, agraphics, picasso96api,utility,amigalib; var NumBoards : Longint; diff --git a/packages/amunits/examples/otherlibs/requestmodeid.pas b/packages/amunits/examples/otherlibs/requestmodeid.pas index 2765342b4e..1a68b14144 100644 --- a/packages/amunits/examples/otherlibs/requestmodeid.pas +++ b/packages/amunits/examples/otherlibs/requestmodeid.pas @@ -17,7 +17,7 @@ Program RequestModeID; nils.sjoholm@mailbox.swipnet.se } -uses exec, amigados, graphics, intuition, picasso96api, utility; +uses exec, amigados, agraphics, intuition, picasso96api, utility; Const template : pchar = 'Width=W/N,Height=H/N,Depth=D/N'; diff --git a/packages/amunits/examples/otherlibs/rtdemo.pas b/packages/amunits/examples/otherlibs/rtdemo.pas index 212a0c6f89..400928ea23 100644 --- a/packages/amunits/examples/otherlibs/rtdemo.pas +++ b/packages/amunits/examples/otherlibs/rtdemo.pas @@ -41,7 +41,7 @@ VAR filename : PChar; dummy : PChar; dummy2 : PChar; - longnum : Longint; + longnum : Longword; ret : Longint; color : Longint; undertag : Array [0..1] of tTagItem; @@ -204,9 +204,9 @@ BEGIN rtEZRequestA(dummy,'_Great|_Fantastic|_Swell|Oh _Boy',NIL,NIL,@undertag); rtEZRequestA('You may also use C-style formatting codes in the body text.' + #10 + - 'Like this:' + #10 + + #10 + - 'The number %%ld is written %%s. will give:' + #10 + + #10 + - 'The number %ld is written %s.' + #10 + + #10 + + 'Like this:' + #10 + #10 + + 'The number %%ld is written %%s. will give:' + #10 + #10 + + 'The number %ld is written %s.' + #10 + #10 + 'if you also pass ''5'' and ''five'' to rtEZRequestA().', '_Proceed',NIL,readinlongs([5,'five']),@undertag); diff --git a/packages/amunits/examples/otherlibs/writetruecolordata.pas b/packages/amunits/examples/otherlibs/writetruecolordata.pas index cc7fe626ab..ae31bbb67b 100644 --- a/packages/amunits/examples/otherlibs/writetruecolordata.pas +++ b/packages/amunits/examples/otherlibs/writetruecolordata.pas @@ -17,7 +17,7 @@ Program WriteTrueColorData; nils.sjoholm@mailbox.swipnet.se } -uses exec, amigados, intuition, graphics, picasso96api, utility,systemvartags; +uses exec, amigados, intuition, agraphics, picasso96api, utility,systemvartags; Const diff --git a/packages/amunits/examples/penshare.pas b/packages/amunits/examples/penshare.pas index 7eb37e9c28..b3b412cf94 100644 --- a/packages/amunits/examples/penshare.pas +++ b/packages/amunits/examples/penshare.pas @@ -32,7 +32,7 @@ Program PenShare; nils.sjoholm@mailbox.swipnet.se } -uses exec, graphics, intuition, utility,systemvartags; +uses exec, agraphics, intuition, utility,systemvartags; VAR RP : pRastPort; Win : pWindow; @@ -87,16 +87,16 @@ Begin CleanExit('Please set more colors for Workbench.',10); SetAPen(RP,Colors[0]); - Move(RP,40,40); - GText(RP,'Red',3); + GfxMove(RP,40,40); + GfxText(RP,'Red',3); SetAPen(RP,Colors[1]); - Move(RP,40,60); - GText(RP,'Green',5); + GfxMove(RP,40,60); + GfxText(RP,'Green',5); SetAPen(RP,Colors[2]); - Move(RP,40,80); - GText(RP,'Blue',4); + GfxMove(RP,40,80); + GfxText(RP,'Blue',4); Msg:=WaitPort(Win^.UserPort); Msg:=GetMsg(Win^.UserPort); diff --git a/packages/amunits/examples/snow.pas b/packages/amunits/examples/snow.pas index 8f61f95dd0..a01ea9c01d 100644 --- a/packages/amunits/examples/snow.pas +++ b/packages/amunits/examples/snow.pas @@ -23,7 +23,7 @@ takes a long time, and frankly doesn't look as good as level 5. } } -uses exec,intuition,graphics,utility,systemvartags; +uses exec,intuition,agraphics,utility,systemvartags; @@ -145,7 +145,7 @@ begin for n := 0 to nc do sn[n] := 0; - Move(rp, trunc(x), trunc(y)); + GfxMove(rp, trunc(x), trunc(y)); repeat d := 0; diff --git a/packages/amunits/examples/sortdemo.pas b/packages/amunits/examples/sortdemo.pas index 66816576dc..e94aa1c997 100644 --- a/packages/amunits/examples/sortdemo.pas +++ b/packages/amunits/examples/sortdemo.pas @@ -38,7 +38,7 @@ PROGRAM SortDemo; so you have to wait until it's finished. } -uses Exec, Intuition, Graphics, Utility, GadTools, msgbox,systemvartags; +uses Exec, Intuition, AGraphics, Utility, GadTools, amsgbox,systemvartags; CONST @@ -550,7 +550,7 @@ VAR MenuNumber : Integer; ItemNumber : Integer; SubItemNumber : Integer; - t0,t1,l : Longint; + t0,t1,l : Longword; begin if IMessage.Code = MENUNULL then diff --git a/packages/amunits/examples/stars.pas b/packages/amunits/examples/stars.pas index 48f36a1087..4075730a5a 100644 --- a/packages/amunits/examples/stars.pas +++ b/packages/amunits/examples/stars.pas @@ -1,7 +1,7 @@ PROGRAM Sterne; -uses Exec, Graphics, Intuition, Utility, systemvartags; +uses Exec, AGraphics, Intuition, Utility, systemvartags; diff --git a/packages/amunits/examples/talk2boopsi.pas b/packages/amunits/examples/talk2boopsi.pas index 826a3edbc2..28de3a59d6 100644 --- a/packages/amunits/examples/talk2boopsi.pas +++ b/packages/amunits/examples/talk2boopsi.pas @@ -28,7 +28,7 @@ make them } } -uses Exec, Intuition, Utility,msgbox, systemvartags; +uses Exec, Intuition, Utility,amsgbox, systemvartags; diff --git a/packages/amunits/examples/wbtest.pas b/packages/amunits/examples/wbtest.pas index 5ffa4dd96a..8c77fed78f 100644 --- a/packages/amunits/examples/wbtest.pas +++ b/packages/amunits/examples/wbtest.pas @@ -14,7 +14,7 @@ program wbtest; nils.sjoholm@mailbox.swipnet.se } -uses wbargs, msgbox; +uses wbargs, amsgbox; var i : integer; diff --git a/packages/amunits/fpmake.pp b/packages/amunits/fpmake.pp index 209a07816c..1517712b40 100644 --- a/packages/amunits/fpmake.pp +++ b/packages/amunits/fpmake.pp @@ -16,7 +16,7 @@ begin {$ifdef ALLPACKAGES} P.Directory:=ADirectory; {$endif ALLPACKAGES} - P.Version:='2.7.1'; + P.Version:='3.1.1'; P.Author := 'Nils Sjoholm'; P.License := 'LGPL with modification'; @@ -33,7 +33,7 @@ begin P.SourcePath.Add('src/utilunits'); P.IncludePath.Add('src'); - T:=P.Targets.AddUnit('msgbox.pas'); + T:=P.Targets.AddUnit('amsgbox.pas'); T:=P.Targets.AddUnit('amigautils.pas'); T:=P.Targets.AddUnit('wbargs.pas'); T:=P.Targets.AddUnit('vartags.pas'); @@ -49,8 +49,9 @@ begin T:=P.Targets.AddUnit('timerutils.pas'); T:=P.Targets.AddUnit('easyasl.pas'); T:=P.Targets.AddUnit('doublebuffer.pas'); + T:=P.Targets.AddUnit('exec.pas'); T:=P.Targets.AddUnit('intuition.pas'); - T:=P.Targets.AddUnit('graphics.pas'); + T:=P.Targets.AddUnit('agraphics.pas'); T:=P.Targets.AddUnit('amigalib.pas'); T:=P.Targets.AddUnit('nonvolatile.pas'); T:=P.Targets.AddUnit('iffparse.pas'); @@ -60,7 +61,7 @@ begin T:=P.Targets.AddUnit('conunit.pas'); T:=P.Targets.AddUnit('amigados.pas'); T:=P.Targets.AddUnit('configvars.pas'); - T:=P.Targets.AddUnit('keyboard.pas'); + T:=P.Targets.AddUnit('akeyboard.pas'); T:=P.Targets.AddUnit('bootblock.pas'); T:=P.Targets.AddUnit('icon.pas'); T:=P.Targets.AddUnit('cd.pas'); diff --git a/packages/amunits/src/coreunits/graphics.pas b/packages/amunits/src/coreunits/agraphics.pas index 168913cfaf..8c9cf3f4cb 100644 --- a/packages/amunits/src/coreunits/graphics.pas +++ b/packages/amunits/src/coreunits/agraphics.pas @@ -55,13 +55,9 @@ nils.sjoholm@mailbox.swipnet.se } +{$PACKRECORDS 2} -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} - -unit graphics; +unit agraphics; INTERFACE @@ -2240,169 +2236,169 @@ const var GfxBase : pLibrary; -PROCEDURE AddAnimOb(anOb : pAnimOb; anKey : ppAnimOb; rp : pRastPort); -PROCEDURE AddBob(bob : pBob; rp : pRastPort); -PROCEDURE AddFont(textFont : pTextFont); -PROCEDURE AddVSprite(vSprite : pVSprite; rp : pRastPort); -FUNCTION AllocBitMap(sizex : ULONG; sizey : ULONG; depth : ULONG; flags : ULONG;const friend_bitmap : pBitMap) : pBitMap; -FUNCTION AllocDBufInfo(vp : pViewPort) : pDBufInfo; -FUNCTION AllocRaster(width : ULONG; height : ULONG) : pCHAR; -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); -PROCEDURE BltTemplate(const source : pCHAR; xSrc : LONGINT; srcMod : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT); -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); -PROCEDURE Draw(rp : pRastPort; x : LONGINT; y : LONGINT); -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 Move(rp : pRastPort; x : LONGINT; y : LONGINT); -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; -FUNCTION ObtainPen(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG; f : LONGINT) : ULONG; -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); -PROCEDURE ReleasePen(cm : pColorMap; n : ULONG); -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 SetABPenDrMd(rp : pRastPort; apen : ULONG; bpen : ULONG; drawmode : ULONG); -PROCEDURE SetAPen(rp : pRastPort; pen : ULONG); -PROCEDURE SetBPen(rp : pRastPort; pen : ULONG); -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; +PROCEDURE AddAnimOb(anOb : pAnimOb location 'a0'; anKey : ppAnimOb location 'a1'; rp : pRastPort location 'a2'); syscall GfxBase 156; +PROCEDURE AddBob(bob : pBob location 'a0'; rp : pRastPort location 'a1'); syscall GfxBase 096; +PROCEDURE AddFont(textFont : pTextFont location 'a1'); syscall GfxBase 480; +PROCEDURE AddVSprite(vSprite : pVSprite location 'a0'; rp : pRastPort location 'a1'); syscall GfxBase 102; +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 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 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 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 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 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 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 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 } @@ -2438,7 +2434,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox; +amsgbox; {$endif dont_use_openlib} PROCEDURE BNDRYOFF (w: pRastPort); @@ -2536,2161 +2532,6 @@ BEGIN cust^.intena := BITSET OR INTF_VERTB; END; -PROCEDURE AddAnimOb(anOb : pAnimOb; anKey : ppAnimOb; rp : pRastPort); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L anOb,A0 - MOVEA.L anKey,A1 - MOVEA.L rp,A2 - MOVEA.L GfxBase,A6 - JSR -156(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddBob(bob : pBob; rp : pRastPort); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L bob,A0 - MOVEA.L rp,A1 - MOVEA.L GfxBase,A6 - JSR -096(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddFont(textFont : pTextFont); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L textFont,A1 - MOVEA.L GfxBase,A6 - JSR -480(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddVSprite(vSprite : pVSprite; rp : pRastPort); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L vSprite,A0 - MOVEA.L rp,A1 - MOVEA.L GfxBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION AllocBitMap(sizex : ULONG; sizey : ULONG; depth : ULONG; flags : ULONG;const friend_bitmap : pBitMap) : pBitMap; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L sizex,D0 - MOVE.L sizey,D1 - MOVE.L depth,D2 - MOVE.L flags,D3 - MOVEA.L friend_bitmap,A0 - MOVEA.L GfxBase,A6 - JSR -918(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocDBufInfo(vp : pViewPort) : pDBufInfo; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L vp,A0 - MOVEA.L GfxBase,A6 - JSR -966(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocRaster(width : ULONG; height : ULONG) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L width,D0 - MOVE.L height,D1 - MOVEA.L GfxBase,A6 - JSR -492(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -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; - -PROCEDURE BltTemplate(const source : pCHAR; xSrc : LONGINT; srcMod : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L source,A0 - MOVE.L xSrc,D0 - MOVE.L srcMod,D1 - MOVEA.L destRP,A1 - MOVE.L xDest,D2 - MOVE.L yDest,D3 - MOVE.L xSize,D4 - MOVE.L ySize,D5 - MOVEA.L GfxBase,A6 - JSR -036(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 Draw(rp : pRastPort; x : LONGINT; y : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A1 - MOVE.L x,D0 - MOVE.L y,D1 - MOVEA.L GfxBase,A6 - JSR -246(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 Move(rp : pRastPort; x : LONGINT; y : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A1 - MOVE.L x,D0 - MOVE.L y,D1 - MOVEA.L GfxBase,A6 - JSR -240(A6) - MOVEA.L (A7)+,A6 - 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 ObtainPen(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG; f : LONGINT) : 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 - MOVE.L f,D4 - MOVEA.L GfxBase,A6 - JSR -954(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 ReleasePen(cm : pColorMap; n : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L cm,A0 - MOVE.L n,D0 - MOVEA.L GfxBase,A6 - JSR -948(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; - -PROCEDURE SetABPenDrMd(rp : pRastPort; apen : ULONG; bpen : ULONG; drawmode : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A1 - MOVE.L apen,D0 - MOVE.L bpen,D1 - MOVE.L drawmode,D2 - MOVEA.L GfxBase,A6 - JSR -894(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE SetAPen(rp : pRastPort; pen : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A1 - MOVE.L pen,D0 - MOVEA.L GfxBase,A6 - JSR -342(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE SetBPen(rp : pRastPort; pen : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A1 - MOVE.L pen,D0 - MOVEA.L GfxBase,A6 - JSR -348(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 } diff --git a/packages/amunits/src/coreunits/keyboard.pas b/packages/amunits/src/coreunits/akeyboard.pas index 44aa83c6b1..5a56bbf36d 100644 --- a/packages/amunits/src/coreunits/keyboard.pas +++ b/packages/amunits/src/coreunits/akeyboard.pas @@ -18,7 +18,7 @@ Keyboard device command definitions } -unit keyboard; +unit akeyboard; INTERFACE diff --git a/packages/amunits/src/coreunits/amigados.pas b/packages/amunits/src/coreunits/amigados.pas index eb1aa2d363..34eed754b0 100644 --- a/packages/amunits/src/coreunits/amigados.pas +++ b/packages/amunits/src/coreunits/amigados.pas @@ -43,12 +43,7 @@ nils.sjoholm@mailbox.swipnet.se } - - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit amigados; @@ -205,7 +200,7 @@ Type id_InUse : Longint; { Flag, zero if not in use } end; -{$PACKRECORDS NORMAL} +{$PACKRECORDS 2} Const @@ -1578,169 +1573,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 DOSDelay(timeout : LONGINT); -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 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 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 +1824,6 @@ IMPLEMENTATION uses pastoc; - - FUNCTION BADDR(bval : BPTR): POINTER; BEGIN BADDR := POINTER( bval shl 2); @@ -1841,2296 +1834,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 DOSDelay(timeout : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L timeout,D1 - MOVEA.L _DOSBase,A6 - JSR -198(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); diff --git a/packages/amunits/src/coreunits/amigaguide.pas b/packages/amunits/src/coreunits/amigaguide.pas index 7f344ff053..64a82f05f4 100644 --- a/packages/amunits/src/coreunits/amigaguide.pas +++ b/packages/amunits/src/coreunits/amigaguide.pas @@ -282,7 +282,7 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} diff --git a/packages/amunits/src/coreunits/amigaprinter.pas b/packages/amunits/src/coreunits/amigaprinter.pas index 45ac34f5b2..b6fc67451d 100644 --- a/packages/amunits/src/coreunits/amigaprinter.pas +++ b/packages/amunits/src/coreunits/amigaprinter.pas @@ -18,7 +18,7 @@ unit amigaprinter; INTERFACE -uses exec, graphics,utility,intuition,prefs; +uses exec,agraphics,utility,intuition,prefs; Const diff --git a/packages/amunits/src/coreunits/asl.pas b/packages/amunits/src/coreunits/asl.pas index e2b746dd3b..edac4e8f3e 100644 --- a/packages/amunits/src/coreunits/asl.pas +++ b/packages/amunits/src/coreunits/asl.pas @@ -48,16 +48,12 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} UNIT asl; INTERFACE -uses exec, utility, workbench, graphics; +uses exec, utility, workbench, agraphics; {************************************************************************} @@ -553,15 +549,15 @@ Const VAR AslBase : pLibrary; -FUNCTION AllocAslRequest(reqType : ULONG; tagList : pTagItem) : POINTER; -FUNCTION AllocFileRequest : pFileRequester; -FUNCTION AslRequest(requester : POINTER; tagList : pTagItem) : BOOLEAN; -PROCEDURE FreeAslRequest(requester : POINTER); -PROCEDURE FreeFileRequest(fileReq : pFileRequester); -FUNCTION RequestFile(fileReq : pFileRequester) : BOOLEAN; +FUNCTION AllocAslRequest(reqType : ULONG location 'd0'; tagList : pTagItem location 'a0') : POINTER; syscall AslBase 048; +FUNCTION AllocFileRequest : pFileRequester; syscall AslBase 030; +FUNCTION AslRequest(requester : POINTER location 'a0'; tagList : pTagItem location 'a1') : LongInt; syscall AslBase 060; +PROCEDURE FreeAslRequest(requester : POINTER location 'a0'); syscall AslBase 054; +PROCEDURE FreeFileRequest(fileReq : pFileRequester location 'a0'); syscall AslBase 036; +FUNCTION RequestFile(fileReq : pFileRequester location 'a0') : LongInt; syscall AslBase 042; -PROCEDURE AbortAslRequest(requester : POINTER); -PROCEDURE ActivateAslRequest(requester : POINTER); +PROCEDURE AbortAslRequest(requester : POINTER location 'a0'); syscall AslBase 078; +PROCEDURE ActivateAslRequest(requester : POINTER location 'a0'); syscall AslBase 084; {Here we read how to compile this unit} {You can remove this include and use a define instead} @@ -577,107 +573,9 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} -FUNCTION AllocAslRequest(reqType : ULONG; tagList : pTagItem) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L reqType,D0 - MOVEA.L tagList,A0 - MOVEA.L AslBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocFileRequest : pFileRequester; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L AslBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AslRequest(requester : POINTER; tagList : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L requester,A0 - MOVEA.L tagList,A1 - MOVEA.L AslBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE FreeAslRequest(requester : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L requester,A0 - MOVEA.L AslBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeFileRequest(fileReq : pFileRequester); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L fileReq,A0 - MOVEA.L AslBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION RequestFile(fileReq : pFileRequester) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L fileReq,A0 - MOVEA.L AslBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE AbortAslRequest(requester : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L requester,A0 - MOVEA.L AslBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ActivateAslRequest(requester : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L requester,A0 - MOVEA.L AslBase,A6 - JSR -084(A6) - MOVEA.L (A7)+,A6 - END; -END; const { Change VERSION and LIBVERSION to proper values } diff --git a/packages/amunits/src/coreunits/bullet.pas b/packages/amunits/src/coreunits/bullet.pas index 6d52f69d1b..48032f60e3 100644 --- a/packages/amunits/src/coreunits/bullet.pas +++ b/packages/amunits/src/coreunits/bullet.pas @@ -31,11 +31,7 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit bullet; @@ -378,11 +374,11 @@ const BULLETNAME : PChar = 'bullet.library'; -PROCEDURE CloseEngine(glyphEngine : pGlyphEngine); -FUNCTION ObtainInfoA(glyphEngine : pGlyphEngine; tagList : pTagItem) : ULONG; -FUNCTION OpenEngine : pGlyphEngine; -FUNCTION ReleaseInfoA(glyphEngine : pGlyphEngine; tagList : pTagItem) : ULONG; -FUNCTION SetInfoA(glyphEngine : pGlyphEngine; tagList : pTagItem) : ULONG; +PROCEDURE CloseEngine(glyphEngine : pGlyphEngine location 'a0'); syscall BulletBase 036; +FUNCTION ObtainInfoA(glyphEngine : pGlyphEngine location 'a0'; tagList : pTagItem location 'a1') : ULONG; syscall BulletBase 048; +FUNCTION OpenEngine : pGlyphEngine; syscall BulletBase 030; +FUNCTION ReleaseInfoA(glyphEngine : pGlyphEngine location 'a0'; tagList : pTagItem location 'a1') : ULONG; syscall BulletBase 054; +FUNCTION SetInfoA(glyphEngine : pGlyphEngine location 'a0'; tagList : pTagItem location 'a1') : ULONG; syscall BulletBase 042; {Here we read how to compile this unit} {You can remove this include and use a define instead} @@ -402,71 +398,9 @@ IMPLEMENTATION } uses {$ifndef dont_use_openlib} -msgbox; +amsgbox; {$endif dont_use_openlib} -PROCEDURE CloseEngine(glyphEngine : pGlyphEngine); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L glyphEngine,A0 - MOVEA.L BulletBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION ObtainInfoA(glyphEngine : pGlyphEngine; tagList : pTagItem) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L glyphEngine,A0 - MOVEA.L tagList,A1 - MOVEA.L BulletBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenEngine : pGlyphEngine; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L BulletBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ReleaseInfoA(glyphEngine : pGlyphEngine; tagList : pTagItem) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L glyphEngine,A0 - MOVEA.L tagList,A1 - MOVEA.L BulletBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetInfoA(glyphEngine : pGlyphEngine; tagList : pTagItem) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L glyphEngine,A0 - MOVEA.L tagList,A1 - MOVEA.L BulletBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - - const { Change VERSION and LIBVERSION to proper values } @@ -550,6 +484,3 @@ begin END. (* UNIT BULLET *) - - - diff --git a/packages/amunits/src/coreunits/colorwheel.pas b/packages/amunits/src/coreunits/colorwheel.pas index 31bbac9cdc..5436f00cbb 100644 --- a/packages/amunits/src/coreunits/colorwheel.pas +++ b/packages/amunits/src/coreunits/colorwheel.pas @@ -26,11 +26,7 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} UNIT colorwheel; @@ -84,36 +80,13 @@ VAR ColorWheelBase : pLibrary; const COLORWHEELNAME : Pchar = 'colorwheel.library'; -PROCEDURE ConvertHSBToRGB(hsb : pColorWheelHSB; rgb : pColorWheelRGB); -PROCEDURE ConvertRGBToHSB(rgb : pColorWheelRGB; hsb : pColorWheelHSB); +PROCEDURE ConvertHSBToRGB(hsb : pColorWheelHSB location 'a0'; rgb : pColorWheelRGB location 'a1'); syscall ColorWheelBase 030; +PROCEDURE ConvertRGBToHSB(rgb : pColorWheelRGB location 'a0'; hsb : pColorWheelHSB location 'a1'); syscall ColorWheelBase 036; IMPLEMENTATION -uses msgbox; - -PROCEDURE ConvertHSBToRGB(hsb : pColorWheelHSB; rgb : pColorWheelRGB); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L hsb,A0 - MOVEA.L rgb,A1 - MOVEA.L ColorWheelBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ConvertRGBToHSB(rgb : pColorWheelRGB; hsb : pColorWheelHSB); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rgb,A0 - MOVEA.L hsb,A1 - MOVEA.L ColorWheelBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - END; -END; +uses amsgbox; + {$I useautoopenlib.inc} {$ifdef use_auto_openlib} diff --git a/packages/amunits/src/coreunits/commodities.pas b/packages/amunits/src/coreunits/commodities.pas index 2b76d5eca8..d0ff6c739d 100644 --- a/packages/amunits/src/coreunits/commodities.pas +++ b/packages/amunits/src/coreunits/commodities.pas @@ -269,7 +269,7 @@ PROCEDURE SetFilter(filter : pCxObj; text : string); IMPLEMENTATION -uses pastoc,msgbox; +uses pastoc,amsgbox; FUNCTION ActivateCxObj(co : pCxObj; tru : LONGINT) : LONGINT; BEGIN diff --git a/packages/amunits/src/coreunits/console.pas b/packages/amunits/src/coreunits/console.pas index 3780f3c90c..024faed007 100644 --- a/packages/amunits/src/coreunits/console.pas +++ b/packages/amunits/src/coreunits/console.pas @@ -24,12 +24,6 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} - unit console; INTERFACE @@ -127,40 +121,9 @@ const VAR ConsoleDevice : pDevice; -FUNCTION CDInputHandler(events : pInputEvent; consoleDev : pLibrary) : pInputEvent; -FUNCTION RawKeyConvert(events : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT; +FUNCTION CDInputHandler(events : pInputEvent location 'a0'; consoleDev : pLibrary location 'a1') : pInputEvent; syscall ConsoleDevice 042; +FUNCTION RawKeyConvert(events : pInputEvent location 'a0'; buffer : pCHAR location 'a1'; length : LONGINT location 'd1'; keyMap : pKeyMap location 'a2') : LONGINT; syscall ConsoleDevice 048; IMPLEMENTATION -FUNCTION CDInputHandler(events : pInputEvent; consoleDev : pLibrary) : pInputEvent; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L events,A0 - MOVEA.L consoleDev,A1 - MOVEA.L ConsoleDevice,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION RawKeyConvert(events : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L events,A0 - MOVEA.L buffer,A1 - MOVE.L length,D1 - MOVEA.L keyMap,A2 - MOVEA.L ConsoleDevice,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - END. (* UNIT CONSOLE *) - - - diff --git a/packages/amunits/src/coreunits/datatypes.pas b/packages/amunits/src/coreunits/datatypes.pas index 340ab4b7ac..25e5e44ab2 100644 --- a/packages/amunits/src/coreunits/datatypes.pas +++ b/packages/amunits/src/coreunits/datatypes.pas @@ -45,18 +45,14 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit datatypes; INTERFACE uses exec, amigados, intuition, utility, - graphics, iffparse, amigaprinter, prtbase; + agraphics, iffparse, amigaprinter, prtbase; const {***************************************************************************} @@ -1281,25 +1277,26 @@ const } -FUNCTION AddDTObject(win : pWindow; req : pRequester; o : pObject_; pos : LONGINT) : LONGINT; -PROCEDURE DisposeDTObject(o : pObject_); -FUNCTION DoAsyncLayout(o : pObject_; gpl : pgpLayout) : ULONG; -FUNCTION DoDTMethodA(o : pObject_; win : pWindow; req : pRequester; msg : pLONGINT) : ULONG; -FUNCTION GetDTAttrsA(o : pObject_; attrs : pTagItem) : ULONG; -FUNCTION GetDTMethods(obj : pObject_) : Pointer; -FUNCTION GetDTString(id : ULONG) : pCHAR; -FUNCTION GetDTTriggerMethods(obj : pObject_) : pDTMethod; -FUNCTION NewDTObjectA(name : POINTER; attrs : pTagItem): POINTER; -FUNCTION ObtainDataTypeA(typ : ULONG; handle : POINTER; attrs : pTagItem) : pDataType; -FUNCTION PrintDTObjectA(o : pObject_; w : pWindow; r : pRequester; msg : pdtPrint) : ULONG; -PROCEDURE RefreshDTObjectA(o : pObject_; win : pWindow; req : pRequester; attrs : pTagItem); -PROCEDURE ReleaseDataType(dt : pDataType); -FUNCTION RemoveDTObject(win : pWindow; o : pObject_) : LONGINT; -FUNCTION SetDTAttrsA(o : pObject_; win : pWindow; req : pRequester; attrs : pTagItem) : ULONG; - -FUNCTION ObtainDTDrawInfoA( o : pObject_; attrs : pTagItem) : POINTER; -FUNCTION DrawDTObjectA(rp : pRastPort; o : pObject_; x : LONGINT; y : LONGINT; w : LONGINT; h : LONGINT; th : LONGINT; tv : LONGINT; attrs : pTagItem) : LONGINT; -PROCEDURE ReleaseDTDrawInfo( o : pObject_; handle : POINTER); +FUNCTION AddDTObject(win : pWindow location 'a0'; req : pRequester location 'a1'; o : pObject_ location 'a2'; pos : LONGINT location 'd0') : LONGINT; syscall DataTypesBase 072; +PROCEDURE DisposeDTObject(o : pObject_ location 'a0'); syscall DataTypesBase 054; +FUNCTION DoAsyncLayout(o : pObject_ location 'a0'; gpl : pgpLayout location 'a1') : ULONG; syscall DataTypesBase 084; +FUNCTION DoDTMethodA(o : pObject_ location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; msg : pLONGINT location 'a3') : ULONG; syscall DataTypesBase 090; +FUNCTION GetDTAttrsA(o : pObject_ location 'a0'; attrs : pTagItem location 'a2') : ULONG; syscall DataTypesBase 066; +FUNCTION GetDTMethods(obj : pObject_ location 'a0') : POINTER; syscall DataTypesBase 102; +FUNCTION GetDTString(id : ULONG location 'a0') : pCHAR; syscall DataTypesBase 138; +FUNCTION GetDTTriggerMethods(obj : pObject_ location 'a0') : pDTMethod; syscall DataTypesBase 108; +FUNCTION NewDTObjectA(name : POINTER location 'd0'; attrs : pTagItem location 'a0') : POINTER; syscall DataTypesBase 048; +FUNCTION ObtainDataTypeA(typ : ULONG location 'd0'; handle : POINTER location 'a0'; attrs : pTagItem location 'a1') : pDataType; syscall DataTypesBase 036; +FUNCTION PrintDTObjectA(o : pObject_ location 'a0'; w : pWindow location 'a1'; r : pRequester location 'a2'; msg : pdtPrint location 'a3') : ULONG; syscall DataTypesBase 114; +PROCEDURE RefreshDTObjectA(o : pObject_ location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; attrs : pTagItem location 'a3'); syscall DataTypesBase 078; +PROCEDURE ReleaseDataType(dt : pDataType location 'a0'); syscall DataTypesBase 042; +FUNCTION RemoveDTObject(win : pWindow location 'a0'; o : pObject_ location 'a1') : LONGINT; syscall DataTypesBase 096; +FUNCTION SetDTAttrsA(o : pObject_ location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; attrs : pTagItem location 'a3') : ULONG; syscall DataTypesBase 060; + +FUNCTION ObtainDTDrawInfoA( o : pObject_ location 'a0'; attrs : pTagItem location 'a1') : POINTER; syscall DataTypesBase 120; +FUNCTION DrawDTObjectA(rp : pRastPort location 'a0'; o : pObject_ location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1'; w : LONGINT location 'd2'; h : LONGINT location 'd3'; th : LONGINT location 'd4'; tv : LONGINT location 'd5'; attrs : pTagItem location 'a2') : LONGINT; syscall DataTypesBase 126; +PROCEDURE ReleaseDTDrawInfo( o : pObject_ location 'a0'; handle : POINTER location 'a1'); syscall DataTypesBase 132; + {Here we read how to compile this unit} {You can remove this include and use a define instead} @@ -1316,253 +1313,9 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} -FUNCTION AddDTObject(win : pWindow; req : pRequester; o : pObject_; pos : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L win,A0 - MOVEA.L req,A1 - MOVEA.L o,A2 - MOVE.L pos,D0 - MOVEA.L DataTypesBase,A6 - JSR -072(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE DisposeDTObject(o : pObject_); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L o,A0 - MOVEA.L DataTypesBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION DoAsyncLayout(o : pObject_; gpl : pgpLayout) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L o,A0 - MOVEA.L gpl,A1 - MOVEA.L DataTypesBase,A6 - JSR -084(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION DoDTMethodA(o : pObject_; win : pWindow; req : pRequester; msg : pLONGINT) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L o,A0 - MOVEA.L win,A1 - MOVEA.L req,A2 - MOVEA.L msg,A3 - MOVEA.L DataTypesBase,A6 - JSR -090(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetDTAttrsA(o : pObject_; attrs : pTagItem) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L o,A0 - MOVEA.L attrs,A2 - MOVEA.L DataTypesBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetDTMethods(obj : pObject_) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L obj,A0 - MOVEA.L DataTypesBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetDTString(id : ULONG) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L id,D0 - MOVEA.L DataTypesBase,A6 - JSR -138(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetDTTriggerMethods(obj : pObject_) : pDTMethod; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L obj,A0 - MOVEA.L DataTypesBase,A6 - JSR -108(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION NewDTObjectA(name : POINTER; attrs : pTagItem) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L name,D0 - MOVEA.L attrs,A0 - MOVEA.L DataTypesBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ObtainDataTypeA(typ : ULONG; handle : POINTER; attrs : pTagItem) : pDataType; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L typ,D0 - MOVEA.L handle,A0 - MOVEA.L attrs,A1 - MOVEA.L DataTypesBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION PrintDTObjectA(o : pObject_; w : pWindow; r : pRequester; msg : pdtPrint) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L o,A0 - MOVEA.L w,A1 - MOVEA.L r,A2 - MOVEA.L msg,A3 - MOVEA.L DataTypesBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE RefreshDTObjectA(o : pObject_; win : pWindow; req : pRequester; attrs : pTagItem); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L o,A0 - MOVEA.L win,A1 - MOVEA.L req,A2 - MOVEA.L attrs,A3 - MOVEA.L DataTypesBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ReleaseDataType(dt : pDataType); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L dt,A0 - MOVEA.L DataTypesBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION RemoveDTObject(win : pWindow; o : pObject_) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L win,A0 - MOVEA.L o,A1 - MOVEA.L DataTypesBase,A6 - JSR -096(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetDTAttrsA(o : pObject_; win : pWindow; req : pRequester; attrs : pTagItem) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L o,A0 - MOVEA.L win,A1 - MOVEA.L req,A2 - MOVEA.L attrs,A3 - MOVEA.L DataTypesBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - - -FUNCTION ObtainDTDrawInfoA( o : pObject_; attrs : pTagItem) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L o,A0 - MOVEA.L attrs,A1 - MOVEA.L DataTypesBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION DrawDTObjectA(rp : pRastPort; o : pObject_; x : LONGINT; y : LONGINT; w : LONGINT; h : LONGINT; th : LONGINT; tv : LONGINT; attrs : pTagItem) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A0 - MOVEA.L o,A1 - MOVE.L x,D0 - MOVE.L y,D1 - MOVE.L w,D2 - MOVE.L h,D3 - MOVE.L th,D4 - MOVE.L tv,D5 - MOVEA.L attrs,A2 - MOVEA.L DataTypesBase,A6 - JSR -126(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE ReleaseDTDrawInfo( o : pObject_; handle : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L o,A0 - MOVEA.L handle,A1 - MOVEA.L DataTypesBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - END; -END; - const { Change VERSION and LIBVERSION to proper values } diff --git a/packages/amunits/src/coreunits/diskfont.pas b/packages/amunits/src/coreunits/diskfont.pas index 4e87b5c1eb..87a75b4adb 100644 --- a/packages/amunits/src/coreunits/diskfont.pas +++ b/packages/amunits/src/coreunits/diskfont.pas @@ -34,17 +34,13 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit diskfont; INTERFACE -uses exec, graphics,utility; +uses exec, agraphics,utility; Const @@ -143,13 +139,13 @@ const VAR DiskfontBase : pLibrary; -FUNCTION AvailFonts(buffer : pCHAR; bufBytes : LONGINT; flags : LONGINT) : LONGINT; -PROCEDURE DisposeFontContents(fontContentsHeader : pFontContentsHeader); -FUNCTION NewFontContents(fontsLock : BPTR; fontName : pCHAR) : pFontContentsHeader; -FUNCTION NewScaledDiskFont(sourceFont : pTextFont; destTextAttr : pTextAttr) : pDiskFontHeader; -FUNCTION OpenDiskFont(textAttr : pTextAttr) : pTextFont; -FUNCTION GetDiskFontCtrl(tagid : LONGINT) : LONGINT; -PROCEDURE SetDiskFontCtrlA(taglist : pTagItem); +FUNCTION AvailFonts(buffer : pCHAR location 'a0'; bufBytes : LONGINT location 'd0'; flags : LONGINT location 'd1') : LONGINT; syscall DiskfontBase 036; +PROCEDURE DisposeFontContents(fontContentsHeader : pFontContentsHeader location 'a1'); syscall DiskfontBase 048; +FUNCTION NewFontContents(fontsLock : BPTR location 'a0'; fontName : pCHAR location 'a1') : pFontContentsHeader; syscall DiskfontBase 042; +FUNCTION NewScaledDiskFont(sourceFont : pTextFont location 'a0'; destTextAttr : pTextAttr location 'a1') : pDiskFontHeader; syscall DiskfontBase 054; +FUNCTION OpenDiskFont(textAttr : pTextAttr location 'a0') : pTextFont; syscall DiskfontBase 030; +FUNCTION GetDiskFontCtrl(tagid : LONGINT location 'd0') : LONGINT; syscall DiskfontBase 060; +PROCEDURE SetDiskFontCtrlA(taglist : pTagItem location 'a0'); syscall DiskfontBase 066; {Here we read how to compile this unit} {You can remove this include and use a define instead} @@ -169,94 +165,9 @@ IMPLEMENTATION } uses {$ifndef dont_use_openlib} -msgbox; +amsgbox; {$endif dont_use_openlib} -FUNCTION AvailFonts(buffer : pCHAR; bufBytes : LONGINT; flags : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L buffer,A0 - MOVE.L bufBytes,D0 - MOVE.L flags,D1 - MOVEA.L DiskfontBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE DisposeFontContents(fontContentsHeader : pFontContentsHeader); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L fontContentsHeader,A1 - MOVEA.L DiskfontBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION NewFontContents(fontsLock : BPTR; fontName : pCHAR) : pFontContentsHeader; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L fontsLock,A0 - MOVEA.L fontName,A1 - MOVEA.L DiskfontBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION NewScaledDiskFont(sourceFont : pTextFont; destTextAttr : pTextAttr) : pDiskFontHeader; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sourceFont,A0 - MOVEA.L destTextAttr,A1 - MOVEA.L DiskfontBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenDiskFont(textAttr : pTextAttr) : pTextFont; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L textAttr,A0 - MOVEA.L DiskfontBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetDiskFontCtrl(tagid : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L tagid,D0 - MOVEA.L DiskfontBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE SetDiskFontCtrlA(taglist : pTagItem); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L taglist,A0 - MOVEA.L DiskfontBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - END; -END; const { Change VERSION and LIBVERSION to proper values } diff --git a/packages/amunits/src/coreunits/exec.pp b/packages/amunits/src/coreunits/exec.pas index 34e2f492b9..db2b75715b 100644 --- a/packages/amunits/src/coreunits/exec.pp +++ b/packages/amunits/src/coreunits/exec.pas @@ -71,11 +71,7 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} UNIT EXEC; @@ -1180,136 +1176,136 @@ CONST -PROCEDURE AbortIO(ioRequest : pIORequest); -PROCEDURE AddDevice(device : pDevice); -PROCEDURE AddHead(list : pList; node : pNode); -PROCEDURE AddIntServer(intNumber : LONGINT; interrupt_ : pInterrupt); -PROCEDURE AddLibrary(lib : pLibrary); -PROCEDURE AddMemHandler(memhand : pInterrupt); -PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; const name : pCHAR); -PROCEDURE AddPort(port : pMsgPort); -PROCEDURE AddResource(resource : POINTER); -PROCEDURE AddSemaphore(sigSem : pSignalSemaphore); -PROCEDURE AddTail(list : pList; node : pNode); -FUNCTION AddTask(task : pTask;const initPC : POINTER;const finalPC : POINTER) : POINTER; -PROCEDURE Alert(alertNum : ULONG); -FUNCTION AllocAbs(byteSize : ULONG; location : POINTER) : POINTER; -FUNCTION Allocate(freeList : pMemHeader; byteSize : ULONG) : POINTER; -FUNCTION AllocEntry(entry : pMemList) : pMemList; -FUNCTION AllocMem(byteSize : ULONG; requirements : ULONG) : POINTER; -FUNCTION AllocPooled(poolHeader : POINTER; memSize : ULONG) : POINTER; -FUNCTION AllocSignal(signalNum : LONGINT) : shortint; -FUNCTION AllocTrap(trapNum : LONGINT) : LONGINT; -FUNCTION AllocVec(byteSize : ULONG; requirements : ULONG) : POINTER; -FUNCTION AttemptSemaphore(sigSem : pSignalSemaphore) : BOOLEAN; -FUNCTION AttemptSemaphoreShared(sigSem : pSignalSemaphore) : ULONG; -FUNCTION AvailMem(requirements : ULONG) : ULONG; -PROCEDURE CacheClearE(address : POINTER; length : ULONG; caches : ULONG); -PROCEDURE CacheClearU; -FUNCTION CacheControl(cacheBits : ULONG; cacheMask : ULONG) : ULONG; -PROCEDURE CachePostDMA(const address : POINTER; VAR length : ULONG; flags : ULONG); -FUNCTION CachePreDMA(const address : POINTER; VAR length : ULONG; flags : ULONG) : POINTER; -PROCEDURE Cause(interrupt_ : pInterrupt); -FUNCTION CheckIO(ioRequest : pIORequest) : pIORequest; -PROCEDURE ChildFree(tid : POINTER); -PROCEDURE ChildOrphan(tid : POINTER); -PROCEDURE ChildStatus(tid : POINTER); -PROCEDURE ChildWait(tid : POINTER); -PROCEDURE CloseDevice(ioRequest : pIORequest); -PROCEDURE CloseLibrary(lib : pLibrary); -PROCEDURE ColdReboot; -PROCEDURE CopyMem(const source : POINTER; dest : POINTER; size : ULONG); -PROCEDURE CopyMemQuick(const source : POINTER; dest : POINTER; size : ULONG); -FUNCTION CreateIORequest(const port : pMsgPort; size : ULONG) : POINTER; -FUNCTION CreateMsgPort : pMsgPort; -FUNCTION CreatePool(requirements : ULONG; puddleSize : ULONG; threshSize : ULONG) : POINTER; -PROCEDURE Deallocate(freeList : pMemHeader; memoryBlock : POINTER; byteSize : ULONG); -PROCEDURE Debug(flags : ULONG); -PROCEDURE DeleteIORequest(iorequest : POINTER); -PROCEDURE DeleteMsgPort(port : pMsgPort); -PROCEDURE DeletePool(poolHeader : POINTER); -PROCEDURE Disable; -FUNCTION DoIO(ioRequest : pIORequest) : shortint; -PROCEDURE Enable; -PROCEDURE Enqueue(list : pList; node : pNode); -PROCEDURE ExecFreeMem(memoryBlock : POINTER; byteSize : ULONG); -PROCEDURE ExecInsert(list : pList; node : pNode; pred : pNode); -FUNCTION FindName(list : pList; const name : pCHAR) : pNode; -FUNCTION FindPort(const name : pCHAR) : pMsgPort; -FUNCTION FindResident(const name : pCHAR) : pResident; -FUNCTION FindSemaphore(const sigSem : pCHAR) : pSignalSemaphore; -FUNCTION FindTask(const name : pCHAR) : pTask; -PROCEDURE Forbid; -PROCEDURE FreeEntry(entry : pMemList); -PROCEDURE FreePooled(poolHeader : POINTER; memory : POINTER; memSize : ULONG); -PROCEDURE FreeSignal(signalNum : LONGINT); -PROCEDURE FreeTrap(trapNum : LONGINT); -PROCEDURE FreeVec(memoryBlock : POINTER); -FUNCTION GetCC : ULONG; -FUNCTION GetMsg(port : pMsgPort) : pMessage; -PROCEDURE InitCode(startClass : ULONG; version : ULONG); -FUNCTION InitResident(const resident_ : pResident; segList : ULONG) : POINTER; -PROCEDURE InitSemaphore(sigSem : pSignalSemaphore); -PROCEDURE InitStruct(const initTable : POINTER; memory : POINTER; size : ULONG); -PROCEDURE MakeFunctions(const target : POINTER;const functionArray : POINTER;const funcDispBase :pointer); -FUNCTION MakeLibrary(const funcInit : POINTER;const structInit : POINTER; libInit : tPROCEDURE;dataSize : ULONG; segList : ULONG) : pLibrary; -FUNCTION ObtainQuickVector(interruptCode : POINTER) : ULONG; -PROCEDURE ObtainSemaphore(sigSem : pSignalSemaphore); -PROCEDURE ObtainSemaphoreList(sigSem : pList); -PROCEDURE ObtainSemaphoreShared(sigSem : pSignalSemaphore); -FUNCTION OldOpenLibrary(const libName : pCHAR) : pLibrary; -FUNCTION OpenDevice(const devName : pCHAR; unite : ULONG; ioRequest : pIORequest; flags : ULONG) : shortint; -FUNCTION OpenLibrary(const libName : pCHAR; version : ULONG) : pLibrary; -FUNCTION OpenResource(const resName : pCHAR) : POINTER; -PROCEDURE Permit; -FUNCTION Procure(sigSem : pSignalSemaphore; bidMsg : pSemaphoreMessage) : BOOLEAN; -PROCEDURE PutMsg(port : pMsgPort; message : pMessage); -function RawDoFmt(const formatString : pCHAR;const dataStream : POINTER; putChProc : tPROCEDURE; putChData : POINTER): pointer; -PROCEDURE ReleaseSemaphore(sigSem : pSignalSemaphore); -PROCEDURE ReleaseSemaphoreList(sigSem : pList); -PROCEDURE RemDevice(device : pDevice); -FUNCTION RemHead(list : pList) : pNode; -PROCEDURE RemIntServer(intNumber : LONGINT; interrupt_ : pInterrupt); -PROCEDURE RemLibrary(lib : pLibrary); -PROCEDURE RemMemHandler(memhand : pInterrupt); -PROCEDURE Remove(node : pNode); -PROCEDURE RemPort(port : pMsgPort); -PROCEDURE RemResource(resource : POINTER); -PROCEDURE RemSemaphore(sigSem : pSignalSemaphore); -FUNCTION RemTail(list : pList) : pNode; -PROCEDURE RemTask(task : pTask); -PROCEDURE ReplyMsg(message : pMessage); -PROCEDURE SendIO(ioRequest : pIORequest); -FUNCTION SetExcept(newSignals : ULONG; signalSet : ULONG) : ULONG; -FUNCTION SetFunction(lib : pLibrary; funcOffset : LONGINT; newFunction : tPROCEDURE) : POINTER; -FUNCTION SetIntVector(intNumber : LONGINT;const interrupt_ : pInterrupt) : pInterrupt; -FUNCTION SetSignal(newSignals : ULONG; signalSet : ULONG) : ULONG; -FUNCTION SetSR(newSR : ULONG; mask : ULONG) : ULONG; -FUNCTION SetTaskPri(task : pTask; priority : LONGINT) : shortint; -PROCEDURE Signal(task : pTask; signalSet : ULONG); -PROCEDURE StackSwap(newStack : pStackSwapStruct); -PROCEDURE SumKickData; -PROCEDURE SumLibrary(lib : pLibrary); -FUNCTION SuperState : POINTER; -FUNCTION Supervisor(userFunction : tPROCEDURE) : ULONG; -FUNCTION TypeOfMem(const address : POINTER) : ULONG; -PROCEDURE UserState(sysStack : POINTER); -PROCEDURE Vacate(sigSem : pSignalSemaphore; bidMsg : pSemaphoreMessage); -FUNCTION Wait(signalSet : ULONG) : ULONG; -FUNCTION WaitIO(ioRequest : pIORequest) : shortint; -FUNCTION WaitPort(port : pMsgPort) : pMessage; - -PROCEDURE NewMinList(minlist : pMinList); -FUNCTION AVL_AddNode(root : ppAVLNode; node : pAVLNode; func : POINTER) : pAVLNode; -FUNCTION AVL_RemNodeByAddress(root : ppAVLNode; node : pAVLNode) : pAVLNode; -FUNCTION AVL_RemNodeByKey(root : ppAVLNode; key : POINTER; func : POINTER) : pAVLNode; -FUNCTION AVL_FindNode(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode; -FUNCTION AVL_FindPrevNodeByAddress(CONST node : pAVLNode) : pAVLNode; -FUNCTION AVL_FindPrevNodeByKey(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode; -FUNCTION AVL_FindNextNodeByAddress(CONST node : pAVLNode) : pAVLNode; -FUNCTION AVL_FindNextNodeByKey(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode; -FUNCTION AVL_FindFirstNode(CONST root : pAVLNode) : pAVLNode; -FUNCTION AVL_FindLastNode(CONST root : pAVLNode) : pAVLNode; +PROCEDURE AbortIO(ioRequest : pIORequest location 'a1'); syscall _ExecBase 480; +PROCEDURE AddDevice(device : pDevice location 'a1'); syscall _ExecBase 432; +PROCEDURE AddHead(list : pList location 'a0'; node : pNode location 'a1'); syscall _ExecBase 240; +PROCEDURE AddIntServer(intNumber : LONGINT location 'd0'; interrupt_ : pInterrupt location 'a1'); syscall _ExecBase 168; +PROCEDURE AddLibrary(lib : pLibrary location 'a1'); syscall _ExecBase 396; +PROCEDURE AddMemHandler(memhand : pInterrupt location 'a1'); syscall _ExecBase 774; +PROCEDURE AddMemList(size : ULONG location 'd0'; attributes : ULONG location 'd1'; pri : LONGINT location 'd2'; base : POINTER location 'a0'; const name : pCHAR location 'a1'); syscall _ExecBase 618; +PROCEDURE AddPort(port : pMsgPort location 'a1'); syscall _ExecBase 354; +PROCEDURE AddResource(resource : POINTER location 'a1'); syscall _ExecBase 486; +PROCEDURE AddSemaphore(sigSem : pSignalSemaphore location 'a1'); syscall _ExecBase 600; +PROCEDURE AddTail(list : pList location 'a0'; node : pNode location 'a1'); syscall _ExecBase 246; +FUNCTION AddTask(task : pTask location 'a1';const initPC : POINTER location 'a2';const finalPC : POINTER location 'a3') : POINTER; syscall _ExecBase 282; +PROCEDURE Alert(alertNum : ULONG location 'd7'); syscall _ExecBase 108; +FUNCTION AllocAbs(byteSize : ULONG location 'd0'; location : POINTER location 'a1') : POINTER; syscall _ExecBase 204; +FUNCTION Allocate(freeList : pMemHeader location 'a0'; byteSize : ULONG location 'd0') : POINTER; syscall _ExecBase 186; +FUNCTION AllocEntry(entry : pMemList location 'a0') : pMemList; syscall _ExecBase 222; +FUNCTION AllocMem(byteSize : ULONG location 'd0'; requirements : ULONG location 'd1') : POINTER; syscall _ExecBase 198; +FUNCTION AllocPooled(poolHeader : POINTER location 'a0'; memSize : ULONG location 'd0') : POINTER; syscall _ExecBase 708; +FUNCTION AllocSignal(signalNum : LONGINT location 'd0') : shortint; syscall _ExecBase 330; +FUNCTION AllocTrap(trapNum : LONGINT location 'd0') : LONGINT; syscall _ExecBase 342; +FUNCTION AllocVec(byteSize : ULONG location 'd0'; requirements : ULONG location 'd1') : POINTER; syscall _ExecBase 684; +FUNCTION AttemptSemaphore(sigSem : pSignalSemaphore location 'a0') : LongBool; syscall _ExecBase 576; +FUNCTION AttemptSemaphoreShared(sigSem : pSignalSemaphore location 'a0') : ULONG; syscall _ExecBase 720; +FUNCTION AvailMem(requirements : ULONG location 'd1') : ULONG; syscall _ExecBase 216; +PROCEDURE CacheClearE(address : POINTER location 'a0'; length : ULONG location 'd0'; caches : ULONG location 'd1'); syscall _ExecBase 642; +PROCEDURE CacheClearU; syscall _ExecBase 636; +FUNCTION CacheControl(cacheBits : ULONG location 'd0'; cacheMask : ULONG location 'd1') : ULONG; syscall _ExecBase 648; +PROCEDURE CachePostDMA(const address : POINTER location 'a0'; VAR length : ULONG location 'a1'; flags : ULONG location 'd0'); syscall _ExecBase 768; +FUNCTION CachePreDMA(const address : POINTER location 'a0'; VAR length : ULONG location 'a1'; flags : ULONG location 'd1') : POINTER; syscall _ExecBase 762; +PROCEDURE Cause(interrupt_ : pInterrupt location 'a1'); syscall _ExecBase 180; +FUNCTION CheckIO(ioRequest : pIORequest location 'a1') : pIORequest; syscall _ExecBase 468; +PROCEDURE ChildFree(tid : POINTER location 'd0'); syscall _ExecBase 738; +PROCEDURE ChildOrphan(tid : POINTER location 'd0'); syscall _ExecBase 744; +PROCEDURE ChildStatus(tid : POINTER location 'd0'); syscall _ExecBase 750; +PROCEDURE ChildWait(tid : POINTER location 'd0'); syscall _ExecBase 756; +PROCEDURE CloseDevice(ioRequest : pIORequest location 'a1'); syscall _ExecBase 450; +PROCEDURE CloseLibrary(lib : pLibrary location 'a1'); syscall _ExecBase 414; +PROCEDURE ColdReboot; syscall _ExecBase 726; +PROCEDURE CopyMem(const source : POINTER location 'a0'; dest : POINTER location 'a1'; size : ULONG location 'd0'); syscall _ExecBase 624; +PROCEDURE CopyMemQuick(const source : POINTER location 'a0'; dest : POINTER location 'a1'; size : ULONG location 'd0'); syscall _ExecBase 630; +FUNCTION CreateIORequest(const port : pMsgPort location 'a0'; size : ULONG location 'd0') : POINTER; syscall _ExecBase 654; +FUNCTION CreateMsgPort : pMsgPort; syscall _ExecBase 666; +FUNCTION CreatePool(requirements : ULONG location 'd0'; puddleSize : ULONG location 'd1'; threshSize : ULONG location 'd2') : POINTER; syscall _ExecBase 696; +PROCEDURE Deallocate(freeList : pMemHeader location 'a0'; memoryBlock : POINTER location 'a1'; byteSize : ULONG location 'd1'); syscall _ExecBase 192; +PROCEDURE Debug(flags : ULONG location 'd0'); syscall _ExecBase 114; +PROCEDURE DeleteIORequest(iorequest : POINTER location 'a0'); syscall _ExecBase 660; +PROCEDURE DeleteMsgPort(port : pMsgPort location 'a0'); syscall _ExecBase 672; +PROCEDURE DeletePool(poolHeader : POINTER location 'a0'); syscall _ExecBase 702; +PROCEDURE Disable; syscall _ExecBase 120; +FUNCTION DoIO(ioRequest : pIORequest location 'a1') : shortint; syscall _ExecBase 456; +PROCEDURE Enable; syscall _ExecBase 126; +PROCEDURE Enqueue(list : pList location 'a0'; node : pNode location 'a1'); syscall _ExecBase 270; +PROCEDURE ExecFreeMem(memoryBlock : POINTER location 'a1'; byteSize : ULONG location 'd0'); syscall _ExecBase 210; +PROCEDURE ExecInsert(list : pList location 'a0'; node : pNode location 'a1'; pred : pNode location 'a2'); syscall _ExecBase 234; +FUNCTION FindName(list : pList location 'a0'; const name : pCHAR location 'a1') : pNode; syscall _ExecBase 276; +FUNCTION FindPort(const name : pCHAR location 'a1') : pMsgPort; syscall _ExecBase 390; +FUNCTION FindResident(const name : pCHAR location 'a1') : pResident; syscall _ExecBase 096; +FUNCTION FindSemaphore(const sigSem : pCHAR location 'a1') : pSignalSemaphore; syscall _ExecBase 594; +FUNCTION FindTask(const name : pCHAR location 'a1') : pTask; syscall _ExecBase 294; +PROCEDURE Forbid; syscall _ExecBase 132; +PROCEDURE FreeEntry(entry : pMemList location 'a0'); syscall _ExecBase 228; +PROCEDURE FreePooled(poolHeader : POINTER location 'a0'; memory : POINTER location 'a1'; memSize : ULONG location 'd0'); syscall _ExecBase 714; +PROCEDURE FreeSignal(signalNum : LONGINT location 'd0'); syscall _ExecBase 336; +PROCEDURE FreeTrap(trapNum : LONGINT location 'd0'); syscall _ExecBase 348; +PROCEDURE FreeVec(memoryBlock : POINTER location 'a1'); syscall _ExecBase 690; +FUNCTION GetCC : ULONG; syscall _ExecBase 528; +FUNCTION GetMsg(port : pMsgPort location 'a0') : pMessage; syscall _ExecBase 372; +PROCEDURE InitCode(startClass : ULONG location 'd0'; version : ULONG location 'd1'); syscall _ExecBase 072; +FUNCTION InitResident(const resident_ : pResident location 'a1'; segList : ULONG location 'd0') : POINTER; syscall _ExecBase 102; +PROCEDURE InitSemaphore(sigSem : pSignalSemaphore location 'a0'); syscall _ExecBase 558; +PROCEDURE InitStruct(const initTable : POINTER location 'a1'; memory : POINTER location 'a2'; size : ULONG location 'd0'); syscall _ExecBase 078; +PROCEDURE MakeFunctions(const target : POINTER location 'a0';const functionArray : POINTER location 'a1';const funcDispBase :pointer location 'a2'); syscall _ExecBase 090; +FUNCTION MakeLibrary(const funcInit : POINTER location 'a0';const structInit : POINTER location 'a1'; libInit : tPROCEDURE location 'a2';dataSize : ULONG location 'd0'; segList : ULONG location 'd0') : pLibrary; syscall _ExecBase 084; +FUNCTION ObtainQuickVector(interruptCode : POINTER location 'a0') : ULONG; syscall _ExecBase 786; +PROCEDURE ObtainSemaphore(sigSem : pSignalSemaphore location 'a0'); syscall _ExecBase 564; +PROCEDURE ObtainSemaphoreList(sigSem : pList location 'a0'); syscall _ExecBase 582; +PROCEDURE ObtainSemaphoreShared(sigSem : pSignalSemaphore location 'a0'); syscall _ExecBase 678; +FUNCTION OldOpenLibrary(const libName : pCHAR location 'a1') : pLibrary; syscall _ExecBase 408; +FUNCTION OpenDevice(const devName : pCHAR location 'a0'; unite : ULONG location 'd0'; ioRequest : pIORequest location 'a1'; flags : ULONG location 'd1') : shortint; syscall _ExecBase 444; +FUNCTION OpenLibrary(const libName : pCHAR location 'a1'; version : ULONG location 'd0') : pLibrary; syscall _ExecBase 552; +FUNCTION OpenResource(const resName : pCHAR location 'a1') : POINTER; syscall _ExecBase 498; +PROCEDURE Permit; syscall _ExecBase 138; +FUNCTION Procure(sigSem : pSignalSemaphore location 'a0'; bidMsg : pSemaphoreMessage location 'a1') : LongBool; syscall _ExecBase 540; +PROCEDURE PutMsg(port : pMsgPort location 'a0'; message : pMessage location 'a1'); syscall _ExecBase 366; +function RawDoFmt(const formatString : pCHAR location 'a0';const dataStream : POINTER location 'a1'; putChProc : tPROCEDURE location 'a2'; putChData : POINTER location 'a3'): pointer; syscall _ExecBase 522; +PROCEDURE ReleaseSemaphore(sigSem : pSignalSemaphore location 'a0'); syscall _ExecBase 570; +PROCEDURE ReleaseSemaphoreList(sigSem : pList location 'a0'); syscall _ExecBase 588; +PROCEDURE RemDevice(device : pDevice location 'a1'); syscall _ExecBase 438; +FUNCTION RemHead(list : pList location 'a0') : pNode; syscall _ExecBase 258; +PROCEDURE RemIntServer(intNumber : LONGINT location 'd0'; interrupt_ : pInterrupt location 'a1'); syscall _ExecBase 174; +PROCEDURE RemLibrary(lib : pLibrary location 'a1'); syscall _ExecBase 402; +PROCEDURE RemMemHandler(memhand : pInterrupt location 'a1'); syscall _ExecBase 780; +PROCEDURE Remove(node : pNode location 'a1'); syscall _ExecBase 252; +PROCEDURE RemPort(port : pMsgPort location 'a1'); syscall _ExecBase 360; +PROCEDURE RemResource(resource : POINTER location 'a1'); syscall _ExecBase 492; +PROCEDURE RemSemaphore(sigSem : pSignalSemaphore location 'a1'); syscall _ExecBase 606; +FUNCTION RemTail(list : pList location 'a0') : pNode; syscall _ExecBase 264; +PROCEDURE RemTask(task : pTask location 'a1'); syscall _ExecBase 288; +PROCEDURE ReplyMsg(message : pMessage location 'a1'); syscall _ExecBase 378; +PROCEDURE SendIO(ioRequest : pIORequest location 'a1'); syscall _ExecBase 462; +FUNCTION SetExcept(newSignals : ULONG location 'd0'; signalSet : ULONG location 'd1') : ULONG; syscall _ExecBase 312; +FUNCTION SetFunction(lib : pLibrary location 'a1'; funcOffset : LONGINT location 'a0'; newFunction : tPROCEDURE location 'd0') : POINTER; syscall _ExecBase 420; +FUNCTION SetIntVector(intNumber : LONGINT location 'd0';const interrupt_ : pInterrupt location 'a1') : pInterrupt; syscall _ExecBase 162; +FUNCTION SetSignal(newSignals : ULONG location 'd0'; signalSet : ULONG location 'd1') : ULONG; syscall _ExecBase 306; +FUNCTION SetSR(newSR : ULONG location 'd0'; mask : ULONG location 'd1') : ULONG; syscall _ExecBase 144; +FUNCTION SetTaskPri(task : pTask location 'a1'; priority : LONGINT location 'd0') : shortint; syscall _ExecBase 300; +PROCEDURE Signal(task : pTask location 'a1'; signalSet : ULONG location 'd0'); syscall _ExecBase 324; +PROCEDURE StackSwap(newStack : pStackSwapStruct location 'a0'); syscall _ExecBase 732; +PROCEDURE SumKickData; syscall _ExecBase 612; +PROCEDURE SumLibrary(lib : pLibrary location 'a1'); syscall _ExecBase 426; +FUNCTION SuperState : POINTER; syscall _ExecBase 150; +FUNCTION Supervisor(userFunction : tPROCEDURE location 'a5') : ULONG; syscall _ExecBase 030; +FUNCTION TypeOfMem(const address : POINTER location 'a1') : ULONG; syscall _ExecBase 534; +PROCEDURE UserState(sysStack : POINTER location 'd0'); syscall _ExecBase 156; +PROCEDURE Vacate(sigSem : pSignalSemaphore location 'a0'; bidMsg : pSemaphoreMessage location 'a1'); syscall _ExecBase 546; +FUNCTION Wait(signalSet : ULONG location 'd0') : ULONG; syscall _ExecBase 318; +FUNCTION WaitIO(ioRequest : pIORequest location 'a1') : shortint; syscall _ExecBase 474; +FUNCTION WaitPort(port : pMsgPort location 'a0') : pMessage; syscall _ExecBase 384; + +PROCEDURE NewMinList(minlist : pMinList location 'a0'); syscall _ExecBase 828; +FUNCTION AVL_AddNode(root : ppAVLNode location 'a0'; node : pAVLNode location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 852; +FUNCTION AVL_RemNodeByAddress(root : ppAVLNode location 'a0'; node : pAVLNode location 'a1') : pAVLNode; syscall _ExecBase 858; +FUNCTION AVL_RemNodeByKey(root : ppAVLNode location 'a0'; key : POINTER location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 864; +FUNCTION AVL_FindNode(CONST root : pAVLNode location 'a0'; key : POINTER location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 870; +FUNCTION AVL_FindPrevNodeByAddress(CONST node : pAVLNode location 'a0') : pAVLNode; syscall _ExecBase 876; +FUNCTION AVL_FindPrevNodeByKey(CONST root : pAVLNode location 'a0'; key : POINTER location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 882; +FUNCTION AVL_FindNextNodeByAddress(CONST node : pAVLNode location 'a0') : pAVLNode; syscall _ExecBase 888; +FUNCTION AVL_FindNextNodeByKey(CONST root : pAVLNode location 'a0'; key : POINTER location 'a1'; func : POINTER location 'a2') : pAVLNode; syscall _ExecBase 894; +FUNCTION AVL_FindFirstNode(CONST root : pAVLNode location 'a0') : pAVLNode; syscall _ExecBase 900; +FUNCTION AVL_FindLastNode(CONST root : pAVLNode location 'a0') : pAVLNode; syscall _ExecBase 906; PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; const name : String); FUNCTION FindName(list : pList; const name : String) : pNode; @@ -1347,1561 +1343,6 @@ begin IsMsgPortEmpty := mp_MsgList.lh_TailPred = pNode(@mp_MsgList); end; -PROCEDURE AbortIO(ioRequest : pIORequest); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L ioRequest,A1 - MOVEA.L _ExecBase,A6 - JSR -480(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddDevice(device : pDevice); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L device,A1 - MOVEA.L _ExecBase,A6 - JSR -432(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddHead(list : pList; node : pNode); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L list,A0 - MOVEA.L node,A1 - MOVEA.L _ExecBase,A6 - JSR -240(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddIntServer(intNumber : LONGINT; interrupt_ : pInterrupt); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L intNumber,D0 - MOVEA.L interrupt_,A1 - MOVEA.L _ExecBase,A6 - JSR -168(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddLibrary(lib : pLibrary); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L lib,A1 - MOVEA.L _ExecBase,A6 - JSR -396(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddMemHandler(memhand : pInterrupt); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L memhand,A1 - MOVEA.L _ExecBase,A6 - JSR -774(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; const name : pCHAR); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L size,D0 - MOVE.L attributes,D1 - MOVE.L pri,D2 - MOVEA.L base,A0 - MOVEA.L name,A1 - MOVEA.L _ExecBase,A6 - JSR -618(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddPort(port : pMsgPort); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L port,A1 - MOVEA.L _ExecBase,A6 - JSR -354(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddResource(resource : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L resource,A1 - MOVEA.L _ExecBase,A6 - JSR -486(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddSemaphore(sigSem : pSignalSemaphore); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A1 - MOVEA.L _ExecBase,A6 - JSR -600(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddTail(list : pList; node : pNode); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L list,A0 - MOVEA.L node,A1 - MOVEA.L _ExecBase,A6 - JSR -246(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION AddTask(task : pTask;const initPC : POINTER;const finalPC : POINTER) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L task,A1 - MOVEA.L initPC,A2 - MOVEA.L finalPC,A3 - MOVEA.L _ExecBase,A6 - JSR -282(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE Alert(alertNum : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L alertNum,D7 - MOVEA.L _ExecBase,A6 - JSR -108(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION AllocAbs(byteSize : ULONG; location : POINTER) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L byteSize,D0 - MOVEA.L location,A1 - MOVEA.L _ExecBase,A6 - JSR -204(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION Allocate(freeList : pMemHeader; byteSize : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L freeList,A0 - MOVE.L byteSize,D0 - MOVEA.L _ExecBase,A6 - JSR -186(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocEntry(entry : pMemList) : pMemList; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L entry,A0 - MOVEA.L _ExecBase,A6 - JSR -222(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocMem(byteSize : ULONG; requirements : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L byteSize,D0 - MOVE.L requirements,D1 - MOVEA.L _ExecBase,A6 - JSR -198(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocPooled(poolHeader : POINTER; memSize : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L poolHeader,A0 - MOVE.L memSize,D0 - MOVEA.L _ExecBase,A6 - JSR -708(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocSignal(signalNum : LONGINT) : shortint; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L signalNum,D0 - MOVEA.L _ExecBase,A6 - JSR -330(A6) - MOVEA.L (A7)+,A6 - MOVE.B D0,@RESULT - END; -END; - -FUNCTION AllocTrap(trapNum : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L trapNum,D0 - MOVEA.L _ExecBase,A6 - JSR -342(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocVec(byteSize : ULONG; requirements : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L byteSize,D0 - MOVE.L requirements,D1 - MOVEA.L _ExecBase,A6 - JSR -684(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AttemptSemaphore(sigSem : pSignalSemaphore) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L _ExecBase,A6 - JSR -576(A6) - MOVEA.L (A7)+,A6 - TST.L D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION AttemptSemaphoreShared(sigSem : pSignalSemaphore) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L _ExecBase,A6 - JSR -720(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AvailMem(requirements : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L requirements,D1 - MOVEA.L _ExecBase,A6 - JSR -216(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE CacheClearE(address : POINTER; length : ULONG; caches : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L address,A0 - MOVE.L length,D0 - MOVE.L caches,D1 - MOVEA.L _ExecBase,A6 - JSR -642(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE CacheClearU; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -636(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION CacheControl(cacheBits : ULONG; cacheMask : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L cacheBits,D0 - MOVE.L cacheMask,D1 - MOVEA.L _ExecBase,A6 - JSR -648(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE CachePostDMA(const address : POINTER; VAR length : ULONG; flags : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L address,A0 - MOVEA.L length,A1 - MOVE.L flags,D0 - MOVEA.L _ExecBase,A6 - JSR -768(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION CachePreDMA(const address : POINTER; VAR length : ULONG; flags : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L address,A0 - MOVEA.L length,A1 - MOVE.L flags,D0 - MOVEA.L _ExecBase,A6 - JSR -762(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE Cause(interrupt_ : pInterrupt); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L interrupt_,A1 - MOVEA.L _ExecBase,A6 - JSR -180(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION CheckIO(ioRequest : pIORequest) : pIORequest; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L ioRequest,A1 - MOVEA.L _ExecBase,A6 - JSR -468(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE ChildFree(tid : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L tid,D0 - MOVEA.L _ExecBase,A6 - JSR -738(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ChildOrphan(tid : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L tid,D0 - MOVEA.L _ExecBase,A6 - JSR -744(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ChildStatus(tid : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L tid,D0 - MOVEA.L _ExecBase,A6 - JSR -750(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ChildWait(tid : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L tid,D0 - MOVEA.L _ExecBase,A6 - JSR -756(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE CloseDevice(ioRequest : pIORequest); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L ioRequest,A1 - MOVEA.L _ExecBase,A6 - JSR -450(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE CloseLibrary(lib : pLibrary); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L lib,A1 - MOVEA.L _ExecBase,A6 - JSR -414(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ColdReboot; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -726(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE CopyMem(const source : POINTER; dest : POINTER; size : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L source,A0 - MOVEA.L dest,A1 - MOVE.L size,D0 - MOVEA.L _ExecBase,A6 - JSR -624(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE CopyMemQuick(const source : POINTER; dest : POINTER; size : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L source,A0 - MOVEA.L dest,A1 - MOVE.L size,D0 - MOVEA.L _ExecBase,A6 - JSR -630(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION CreateIORequest(const port : pMsgPort; size : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L port,A0 - MOVE.L size,D0 - MOVEA.L _ExecBase,A6 - JSR -654(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION CreateMsgPort : pMsgPort; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -666(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION CreatePool(requirements : ULONG; puddleSize : ULONG; threshSize : ULONG) : -POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L requirements,D0 - MOVE.L puddleSize,D1 - MOVE.L threshSize,D2 - MOVEA.L _ExecBase,A6 - JSR -696(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE Deallocate(freeList : pMemHeader; memoryBlock : POINTER; byteSize : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L freeList,A0 - MOVEA.L memoryBlock,A1 - MOVE.L byteSize,D0 - MOVEA.L _ExecBase,A6 - JSR -192(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE Debug(flags : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L flags,D0 - MOVEA.L _ExecBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE DeleteIORequest(iorequest : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iorequest,A0 - MOVEA.L _ExecBase,A6 - JSR -660(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE DeleteMsgPort(port : pMsgPort); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L port,A0 - MOVEA.L _ExecBase,A6 - JSR -672(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE DeletePool(poolHeader : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L poolHeader,A0 - MOVEA.L _ExecBase,A6 - JSR -702(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE Disable; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION DoIO(ioRequest : pIORequest) : shortint; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L ioRequest,A1 - MOVEA.L _ExecBase,A6 - JSR -456(A6) - MOVEA.L (A7)+,A6 - MOVE.B D0,@RESULT - END; -END; - -PROCEDURE Enable; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -126(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE Enqueue(list : pList; node : pNode); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L list,A0 - MOVEA.L node,A1 - MOVEA.L _ExecBase,A6 - JSR -270(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ExecFreeMem(memoryBlock : POINTER; byteSize : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L memoryBlock,A1 - MOVE.L byteSize,D0 - MOVEA.L _ExecBase,A6 - JSR -210(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ExecInsert(list : pList; node : pNode; pred : pNode); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L list,A0 - MOVEA.L node,A1 - MOVEA.L pred,A2 - MOVEA.L _ExecBase,A6 - JSR -234(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION FindName(list : pList; const name : pCHAR) : pNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L list,A0 - MOVEA.L name,A1 - MOVEA.L _ExecBase,A6 - JSR -276(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION FindPort(const name : pCHAR) : pMsgPort; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A1 - MOVEA.L _ExecBase,A6 - JSR -390(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION FindResident(const name : pCHAR) : pResident; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A1 - MOVEA.L _ExecBase,A6 - JSR -096(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION FindSemaphore(const sigSem : pCHAR) : pSignalSemaphore; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A1 - MOVEA.L _ExecBase,A6 - JSR -594(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION FindTask(const name : pCHAR) : pTask; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A1 - MOVEA.L _ExecBase,A6 - JSR -294(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE Forbid; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeEntry(entry : pMemList); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L entry,A0 - MOVEA.L _ExecBase,A6 - JSR -228(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreePooled(poolHeader : POINTER; memory : POINTER; memSize : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L poolHeader,A0 - MOVEA.L memory,A1 - MOVE.L memSize,D0 - MOVEA.L _ExecBase,A6 - JSR -714(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeSignal(signalNum : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L signalNum,D0 - MOVEA.L _ExecBase,A6 - JSR -336(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeTrap(trapNum : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L trapNum,D0 - MOVEA.L _ExecBase,A6 - JSR -348(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeVec(memoryBlock : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L memoryBlock,A1 - MOVEA.L _ExecBase,A6 - JSR -690(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION GetCC : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -528(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetMsg(port : pMsgPort) : pMessage; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L port,A0 - MOVEA.L _ExecBase,A6 - JSR -372(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE InitCode(startClass : ULONG; version : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L startClass,D0 - MOVE.L version,D1 - MOVEA.L _ExecBase,A6 - JSR -072(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION InitResident(const resident_ : pResident; segList : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L resident_,A1 - MOVE.L segList,D1 - MOVEA.L _ExecBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE InitSemaphore(sigSem : pSignalSemaphore); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L _ExecBase,A6 - JSR -558(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE InitStruct(const initTable : POINTER; memory : POINTER; size : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L initTable,A1 - MOVEA.L memory,A2 - MOVE.L size,D0 - MOVEA.L _ExecBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE MakeFunctions(const target : POINTER;const functionArray : POINTER;const funcDispBase :pointer); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L target,A0 - MOVEA.L functionArray,A1 - MOVEA.L funcDispBase,A2 - MOVEA.L _ExecBase,A6 - JSR -090(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION MakeLibrary(const funcInit : POINTER;const structInit : POINTER; libInit : tPROCEDURE; dataSize : ULONG; segList : ULONG) : pLibrary; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L funcInit,A0 - MOVEA.L structInit,A1 - MOVEA.L libInit,A2 - MOVE.L dataSize,D0 - MOVE.L segList,D1 - MOVEA.L _ExecBase,A6 - JSR -084(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ObtainQuickVector(interruptCode : POINTER) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L interruptCode,A0 - MOVEA.L _ExecBase,A6 - JSR -786(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE ObtainSemaphore(sigSem : pSignalSemaphore); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L _ExecBase,A6 - JSR -564(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ObtainSemaphoreList(sigSem : pList); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L _ExecBase,A6 - JSR -582(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ObtainSemaphoreShared(sigSem : pSignalSemaphore); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L _ExecBase,A6 - JSR -678(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION OldOpenLibrary(const libName : pCHAR) : pLibrary; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L libName,A1 - MOVEA.L _ExecBase,A6 - JSR -408(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenDevice(const devName : pCHAR; unite : ULONG; ioRequest : pIORequest; -flags : ULONG) : shortint; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L devName,A0 - MOVE.L unite,D0 - MOVEA.L ioRequest,A1 - MOVE.L flags,D1 - MOVEA.L _ExecBase,A6 - JSR -444(A6) - MOVEA.L (A7)+,A6 - MOVE.B D0,@RESULT - END; -END; - -FUNCTION OpenLibrary(const libName : pCHAR; version : ULONG) : pLibrary; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L libName,A1 - MOVE.L version,D0 - MOVEA.L _ExecBase,A6 - JSR -552(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenResource(const resName : pCHAR) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L resName,A1 - MOVEA.L _ExecBase,A6 - JSR -498(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE Permit; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -138(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION Procure(sigSem : pSignalSemaphore; bidMsg : pSemaphoreMessage) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L bidMsg,A1 - MOVEA.L _ExecBase,A6 - JSR -540(A6) - MOVEA.L (A7)+,A6 - TST.L D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE PutMsg(port : pMsgPort; message : pMessage); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L port,A0 - MOVEA.L message,A1 - MOVEA.L _ExecBase,A6 - JSR -366(A6) - MOVEA.L (A7)+,A6 - END; -END; - -function RawDoFmt(const formatString : pCHAR;const dataStream : POINTER; putChProc : tPROCEDURE; putChData : POINTER): pointer; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L formatString,A0 - MOVEA.L dataStream,A1 - MOVEA.L putChProc,A2 - MOVEA.L putChData,A3 - MOVEA.L _ExecBase,A6 - JSR -522(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE ReleaseSemaphore(sigSem : pSignalSemaphore); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L _ExecBase,A6 - JSR -570(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ReleaseSemaphoreList(sigSem : pList); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L _ExecBase,A6 - JSR -588(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RemDevice(device : pDevice); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L device,A1 - MOVEA.L _ExecBase,A6 - JSR -438(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION RemHead(list : pList) : pNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L list,A0 - MOVEA.L _ExecBase,A6 - JSR -258(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE RemIntServer(intNumber : LONGINT; interrupt_ : pInterrupt); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L intNumber,D0 - MOVEA.L interrupt_,A1 - MOVEA.L _ExecBase,A6 - JSR -174(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RemLibrary(lib : pLibrary); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L lib,A1 - MOVEA.L _ExecBase,A6 - JSR -402(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RemMemHandler(memhand : pInterrupt); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L memhand,A1 - MOVEA.L _ExecBase,A6 - JSR -780(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE Remove(node : pNode); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L node,A1 - MOVEA.L _ExecBase,A6 - JSR -252(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RemPort(port : pMsgPort); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L port,A1 - MOVEA.L _ExecBase,A6 - JSR -360(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RemResource(resource : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L resource,A1 - MOVEA.L _ExecBase,A6 - JSR -492(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RemSemaphore(sigSem : pSignalSemaphore); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A1 - MOVEA.L _ExecBase,A6 - JSR -606(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION RemTail(list : pList) : pNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L list,A0 - MOVEA.L _ExecBase,A6 - JSR -264(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE RemTask(task : pTask); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L task,A1 - MOVEA.L _ExecBase,A6 - JSR -288(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ReplyMsg(message : pMessage); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L message,A1 - MOVEA.L _ExecBase,A6 - JSR -378(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE SendIO(ioRequest : pIORequest); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L ioRequest,A1 - MOVEA.L _ExecBase,A6 - JSR -462(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION SetExcept(newSignals : ULONG; signalSet : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L newSignals,D0 - MOVE.L signalSet,D1 - MOVEA.L _ExecBase,A6 - JSR -312(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetFunction(lib : pLibrary; funcOffset : LONGINT; newFunction : tPROCEDURE) : -POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L lib,A1 - MOVEA.L funcOffset,A0 - MOVE.L newFunction,D0 - MOVEA.L _ExecBase,A6 - JSR -420(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetIntVector(intNumber : LONGINT;const interrupt_ : pInterrupt) : pInterrupt; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L intNumber,D0 - MOVEA.L interrupt_,A1 - MOVEA.L _ExecBase,A6 - JSR -162(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetSignal(newSignals : ULONG; signalSet : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L newSignals,D0 - MOVE.L signalSet,D1 - MOVEA.L _ExecBase,A6 - JSR -306(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetSR(newSR : ULONG; mask : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L newSR,D0 - MOVE.L mask,D1 - MOVEA.L _ExecBase,A6 - JSR -144(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetTaskPri(task : pTask; priority : LONGINT) : shortint; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L task,A1 - MOVE.L priority,D0 - MOVEA.L _ExecBase,A6 - JSR -300(A6) - MOVEA.L (A7)+,A6 - MOVE.B D0,@RESULT - END; -END; - -PROCEDURE Signal(task : pTask; signalSet : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L task,A1 - MOVE.L signalSet,D0 - MOVEA.L _ExecBase,A6 - JSR -324(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE StackSwap(newStack : pStackSwapStruct); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L newStack,A0 - MOVEA.L _ExecBase,A6 - JSR -732(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE SumKickData; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -612(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE SumLibrary(lib : pLibrary); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L lib,A1 - MOVEA.L _ExecBase,A6 - JSR -426(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION SuperState : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _ExecBase,A6 - JSR -150(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION Supervisor(userFunction : tPROCEDURE) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L userFunction,A5 - MOVEA.L _ExecBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION TypeOfMem(const address : POINTER) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L address,A1 - MOVEA.L _ExecBase,A6 - JSR -534(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE UserState(sysStack : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L sysStack,D0 - MOVEA.L _ExecBase,A6 - JSR -156(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE Vacate(sigSem : pSignalSemaphore; bidMsg : pSemaphoreMessage); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sigSem,A0 - MOVEA.L bidMsg,A1 - MOVEA.L _ExecBase,A6 - JSR -546(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION Wait(signalSet : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L signalSet,D0 - MOVEA.L _ExecBase,A6 - JSR -318(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION WaitIO(ioRequest : pIORequest) : shortint; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L ioRequest,A1 - MOVEA.L _ExecBase,A6 - JSR -474(A6) - MOVEA.L (A7)+,A6 - MOVE.B D0,@RESULT - END; -END; - -FUNCTION WaitPort(port : pMsgPort) : pMessage; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L port,A0 - MOVEA.L _ExecBase,A6 - JSR -384(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE NewMinList(minlist : pMinList); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L minlist,A0 - MOVEA.L _ExecBase,A6 - JSR -828(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION AVL_AddNode(root : ppAVLNode; node : pAVLNode; func : POINTER) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L root,A0 - MOVEA.L node,A1 - MOVEA.L func,A2 - MOVEA.L _ExecBase,A6 - JSR -852(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AVL_RemNodeByAddress(root : ppAVLNode; node : pAVLNode) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L root,A0 - MOVEA.L node,A1 - MOVEA.L _ExecBase,A6 - JSR -858(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AVL_RemNodeByKey(root : ppAVLNode; key : POINTER; func : POINTER) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L root,A0 - MOVEA.L key,A1 - MOVEA.L func,A2 - MOVEA.L _ExecBase,A6 - JSR -864(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AVL_FindNode(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L root,A0 - MOVEA.L key,A1 - MOVEA.L func,A2 - MOVEA.L _ExecBase,A6 - JSR -870(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AVL_FindPrevNodeByAddress(CONST node : pAVLNode) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L node,A0 - MOVEA.L _ExecBase,A6 - JSR -876(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AVL_FindPrevNodeByKey(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L root,A0 - MOVEA.L key,A1 - MOVEA.L func,A2 - MOVEA.L _ExecBase,A6 - JSR -882(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AVL_FindNextNodeByAddress(CONST node : pAVLNode) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L node,A0 - MOVEA.L _ExecBase,A6 - JSR -888(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AVL_FindNextNodeByKey(CONST root : pAVLNode; key : POINTER; func : POINTER) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L root,A0 - MOVEA.L key,A1 - MOVEA.L func,A2 - MOVEA.L _ExecBase,A6 - JSR -894(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AVL_FindFirstNode(CONST root : pAVLNode) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L root,A0 - MOVEA.L _ExecBase,A6 - JSR -900(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AVL_FindLastNode(CONST root : pAVLNode) : pAVLNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L root,A0 - MOVEA.L _ExecBase,A6 - JSR -906(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - - PROCEDURE AddMemList(size : ULONG; attributes : ULONG; pri : LONGINT; base : POINTER; const name : String); BEGIN AddMemList(size,attributes,pri,base,pas2c(name)); diff --git a/packages/amunits/src/coreunits/expansion.pas b/packages/amunits/src/coreunits/expansion.pas index 5938430827..cdccc29831 100644 --- a/packages/amunits/src/coreunits/expansion.pas +++ b/packages/amunits/src/coreunits/expansion.pas @@ -88,7 +88,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox; +amsgbox; {$endif dont_use_openlib} FUNCTION AddBootNode(bootPri : LONGINT; flags : ULONG; deviceNode : pDeviceNode; configDev : pConfigDev) : BOOLEAN; diff --git a/packages/amunits/src/coreunits/gadtools.pas b/packages/amunits/src/coreunits/gadtools.pas index 5ee07ce4ce..324d64262f 100644 --- a/packages/amunits/src/coreunits/gadtools.pas +++ b/packages/amunits/src/coreunits/gadtools.pas @@ -44,18 +44,13 @@ nils.sjoholm@mailbox.swipnet.se } - - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit gadtools; INTERFACE -uses exec, intuition, graphics, utility; +uses exec, intuition, agraphics, utility; {------------------------------------------------------------------------} @@ -472,25 +467,25 @@ Type VAR GadToolsBase : pLibrary; -FUNCTION CreateContext(glistptr : pGadget): pGadget; -FUNCTION CreateGadgetA(kind : ULONG; gad : pGadget;const ng : pNewGadget;const taglist : pTagItem) : pGadget; -FUNCTION CreateMenusA(const newmenu : pNewMenu;const taglist : pTagItem) : pMenu; -PROCEDURE DrawBevelBoxA(rport : pRastPort; left : LONGINT; top : LONGINT; width : LONGINT; height : LONGINT;const taglist : pTagItem); -PROCEDURE FreeGadgets(gad : pGadget); -PROCEDURE FreeMenus(menu : pMenu); -PROCEDURE FreeVisualInfo(vi : POINTER); -FUNCTION GetVisualInfoA(screen : pScreen;const taglist : pTagItem) : POINTER; -PROCEDURE GT_BeginRefresh(win : pWindow); -PROCEDURE GT_EndRefresh(win : pWindow; complete : LONGINT); -FUNCTION GT_FilterIMsg(const imsg : pIntuiMessage) : pIntuiMessage; -FUNCTION GT_GetGadgetAttrsA(gad : pGadget; win : pWindow; req : pRequester;const taglist : pTagItem) : LONGINT; -FUNCTION GT_GetIMsg(iport : pMsgPort) : pIntuiMessage; -FUNCTION GT_PostFilterIMsg(imsg : pIntuiMessage) : pIntuiMessage; -PROCEDURE GT_RefreshWindow(win : pWindow; req : pRequester); -PROCEDURE GT_ReplyIMsg(imsg : pIntuiMessage); -PROCEDURE GT_SetGadgetAttrsA(gad : pGadget; win : pWindow; req : pRequester;const taglist : pTagItem); -FUNCTION LayoutMenuItemsA(firstitem : pMenuItem; vi : POINTER;const taglist : pTagItem) : BOOLEAN; -FUNCTION LayoutMenusA(firstmenu : pMenu; vi : POINTER;const taglist : pTagItem) : BOOLEAN; +FUNCTION CreateContext(glistptr : pGadget location 'a0'): pGadget; syscall GadToolsBase 114; +FUNCTION CreateGadgetA(kind : ULONG location 'd0'; gad : pGadget location 'a0'; const ng : pNewGadget location 'a1'; const taglist : pTagItem location 'a2') : pGadget; syscall GadToolsBase 030; +FUNCTION CreateMenusA(const newmenu : pNewMenu location 'a0'; const taglist : pTagItem location 'a1') : pMenu; syscall GadToolsBase 048; +PROCEDURE DrawBevelBoxA(rport : pRastPort location 'a0'; left : LONGINT location 'd0'; top : LONGINT location 'd1'; width : LONGINT location 'd2'; height : LONGINT location 'd3'; const taglist : pTagItem location 'a1'); syscall GadToolsBase 120; +PROCEDURE FreeGadgets(gad : pGadget location 'a0'); syscall GadToolsBase 036; +PROCEDURE FreeMenus(menu : pMenu location 'a0'); syscall GadToolsBase 054; +PROCEDURE FreeVisualInfo(vi : POINTER location 'a0'); syscall GadToolsBase 132; +FUNCTION GetVisualInfoA(screen : pScreen location 'a0'; const taglist : pTagItem location 'a1') : POINTER; syscall GadToolsBase 126; +PROCEDURE GT_BeginRefresh(win : pWindow location 'a0'); syscall GadToolsBase 090; +PROCEDURE GT_EndRefresh(win : pWindow location 'a0'; complete : LONGINT location 'd0'); syscall GadToolsBase 096; +FUNCTION GT_FilterIMsg(const imsg : pIntuiMessage location 'a1') : pIntuiMessage; syscall GadToolsBase 102; +FUNCTION GT_GetGadgetAttrsA(gad : pGadget location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; const taglist : pTagItem location 'a3') : LONGINT; syscall GadToolsBase 174; +FUNCTION GT_GetIMsg(iport : pMsgPort location 'a0') : pIntuiMessage; syscall GadToolsBase 072; +FUNCTION GT_PostFilterIMsg(imsg : pIntuiMessage location 'a1') : pIntuiMessage; syscall GadToolsBase 108; +PROCEDURE GT_RefreshWindow(win : pWindow location 'a0'; req : pRequester location 'a1'); syscall GadToolsBase 084; +PROCEDURE GT_ReplyIMsg(imsg : pIntuiMessage location 'a1'); syscall GadToolsBase 078; +PROCEDURE GT_SetGadgetAttrsA(gad : pGadget location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; const taglist : pTagItem location 'a3'); syscall GadToolsBase 042; +FUNCTION LayoutMenuItemsA(firstitem : pMenuItem location 'a0'; vi : POINTER location 'a1'; const taglist : pTagItem location 'a2') : LongBool; syscall GadToolsBase 060; +FUNCTION LayoutMenusA(firstmenu : pMenu location 'a0'; vi : POINTER location 'a1'; const taglist : pTagItem location 'a2') : LongBool; syscall GadToolsBase 066; function GTMENUITEM_USERDATA(menuitem : pMenuItem): pointer; function GTMENU_USERDATA(menu : pMenu): pointer; @@ -510,7 +505,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox; +amsgbox; {$endif dont_use_openlib} function GTMENUITEM_USERDATA(menuitem : pMenuItem): pointer; @@ -523,253 +518,6 @@ begin GTMENU_USERDATA := pointer((pMenu(menu)+1)); end; -FUNCTION CreateContext(glistptr : pGadget): pGadget; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L glistptr,A0 - MOVEA.L GadToolsBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION CreateGadgetA(kind : ULONG; gad : pGadget;const ng : pNewGadget;const taglist : pTagItem) : pGadget; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L kind,D0 - MOVEA.L gad,A0 - MOVEA.L ng,A1 - MOVEA.L taglist,A2 - MOVEA.L GadToolsBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION CreateMenusA(const newmenu : pNewMenu;const taglist : pTagItem) : pMenu; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L newmenu,A0 - MOVEA.L taglist,A1 - MOVEA.L GadToolsBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE DrawBevelBoxA(rport : pRastPort; left : LONGINT; top : LONGINT; width : LONGINT; height : LONGINT;const taglist : pTagItem); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rport,A0 - MOVE.L left,D0 - MOVE.L top,D1 - MOVE.L width,D2 - MOVE.L height,D3 - MOVEA.L taglist,A1 - MOVEA.L GadToolsBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeGadgets(gad : pGadget); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gad,A0 - MOVEA.L GadToolsBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeMenus(menu : pMenu); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L menu,A0 - MOVEA.L GadToolsBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeVisualInfo(vi : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L vi,A0 - MOVEA.L GadToolsBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION GetVisualInfoA(screen : pScreen;const taglist : pTagItem) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVEA.L taglist,A1 - MOVEA.L GadToolsBase,A6 - JSR -126(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE GT_BeginRefresh(win : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L win,A0 - MOVEA.L GadToolsBase,A6 - JSR -090(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE GT_EndRefresh(win : pWindow; complete : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L win,A0 - MOVE.L complete,D0 - MOVEA.L GadToolsBase,A6 - JSR -096(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION GT_FilterIMsg(const imsg : pIntuiMessage) : pIntuiMessage; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L imsg,A1 - MOVEA.L GadToolsBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GT_GetGadgetAttrsA(gad : pGadget; win : pWindow; req : pRequester;const taglist : pTagItem) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gad,A0 - MOVEA.L win,A1 - MOVEA.L req,A2 - MOVEA.L taglist,A3 - MOVEA.L GadToolsBase,A6 - JSR -174(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GT_GetIMsg(iport : pMsgPort) : pIntuiMessage; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iport,A0 - MOVEA.L GadToolsBase,A6 - JSR -072(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GT_PostFilterIMsg(imsg : pIntuiMessage) : pIntuiMessage; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L imsg,A1 - MOVEA.L GadToolsBase,A6 - JSR -108(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE GT_RefreshWindow(win : pWindow; req : pRequester); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L win,A0 - MOVEA.L req,A1 - MOVEA.L GadToolsBase,A6 - JSR -084(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE GT_ReplyIMsg(imsg : pIntuiMessage); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L imsg,A1 - MOVEA.L GadToolsBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE GT_SetGadgetAttrsA(gad : pGadget; win : pWindow; req : pRequester;const taglist : pTagItem); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gad,A0 - MOVEA.L win,A1 - MOVEA.L req,A2 - MOVEA.L taglist,A3 - MOVEA.L GadToolsBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION LayoutMenuItemsA(firstitem : pMenuItem; vi : POINTER;const taglist : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L firstitem,A0 - MOVEA.L vi,A1 - MOVEA.L taglist,A2 - MOVEA.L GadToolsBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION LayoutMenusA(firstmenu : pMenu; vi : POINTER;const taglist : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L firstmenu,A0 - MOVEA.L vi,A1 - MOVEA.L taglist,A2 - MOVEA.L GadToolsBase,A6 - JSR -066(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 } diff --git a/packages/amunits/src/coreunits/hardware.pas b/packages/amunits/src/coreunits/hardware.pas index b88894d5fb..c67bf380c6 100644 --- a/packages/amunits/src/coreunits/hardware.pas +++ b/packages/amunits/src/coreunits/hardware.pas @@ -18,6 +18,7 @@ registers and bits in the Complex Interface Adapter (CIA) chip } +{$PACKRECORDS 2} unit hardware; INTERFACE diff --git a/packages/amunits/src/coreunits/icon.pas b/packages/amunits/src/coreunits/icon.pas index e113a4718f..6cf208293f 100644 --- a/packages/amunits/src/coreunits/icon.pas +++ b/packages/amunits/src/coreunits/icon.pas @@ -51,17 +51,12 @@ nils.sjoholm@mailbox.swipnet.se } -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} - unit icon; INTERFACE -uses exec, workbench,utility,amigados,graphics,intuition,datatypes; +uses exec, workbench,utility,amigados,agraphics,intuition,datatypes; const ICONA_Dummy = TAG_USER + $9000; @@ -353,29 +348,29 @@ Const VAR IconBase : pLibrary; -FUNCTION AddFreeList(freelist : pFreeList;const mem : POINTER; size : ULONG) : BOOLEAN; -FUNCTION BumpRevision(newname : pCHAR;const oldname : pCHAR) : pCHAR; -FUNCTION DeleteDiskObject(const name : pCHAR) : BOOLEAN; -FUNCTION FindToolType(const toolTypeArray : POINTER;const typeName : pCHAR) : pCHAR; -PROCEDURE FreeDiskObject(diskobj : pDiskObject); -PROCEDURE FreeFreeList(freelist : pFreeList); -FUNCTION GetDefDiskObject(typ : LONGINT) : pDiskObject; -FUNCTION GetDiskObject(const name : pCHAR) : pDiskObject; -FUNCTION GetDiskObjectNew(const name : pCHAR) : pDiskObject; -FUNCTION MatchToolValue(const typeString : pCHAR;const value : pCHAR) : BOOLEAN; -FUNCTION PutDefDiskObject(const diskObject : pDiskObject) : BOOLEAN; -FUNCTION PutDiskObject(const name : pCHAR;const diskobj : pDiskObject) : BOOLEAN; +FUNCTION AddFreeList(freelist : pFreeList location 'a0'; const mem : POINTER location 'a1'; size : ULONG location 'a2') : LongBool; syscall IconBase 072; +FUNCTION BumpRevision(newname : pCHAR location 'a0'; const oldname : pCHAR location 'a1') : pCHAR; syscall IconBase 108; +FUNCTION DeleteDiskObject(const name : pCHAR location 'a0') : LongBool; syscall IconBase 138; +FUNCTION FindToolType(const toolTypeArray : POINTER location 'a0'; const typeName : pCHAR location 'a1') : pCHAR; syscall IconBase 096; +PROCEDURE FreeDiskObject(diskobj : pDiskObject location 'a0'); syscall IconBase 090; +PROCEDURE FreeFreeList(freelist : pFreeList location 'a0'); syscall IconBase 054; +FUNCTION GetDefDiskObject(typ : LONGINT location 'd0') : pDiskObject; syscall IconBase 120; +FUNCTION GetDiskObject(const name : pCHAR location 'a0') : pDiskObject; syscall IconBase 078; +FUNCTION GetDiskObjectNew(const name : pCHAR location 'a0') : pDiskObject; syscall IconBase 132; +FUNCTION MatchToolValue(const typeString : pCHAR location 'a0'; const value : pCHAR location 'a1') : LongBool; syscall IconBase 102; +FUNCTION PutDefDiskObject(const diskObject : pDiskObject location 'a0') : LongBool; syscall IconBase 126; +FUNCTION PutDiskObject(const name : pCHAR location 'a0'; const diskobj : pDiskObject location 'a1') : LongBool; syscall IconBase 084; { version 44 } -FUNCTION DupDiskObjectA(CONST diskObject : pDiskObject; CONST tags : pTagItem) : pDiskObject; -FUNCTION IconControlA(icon : pDiskObject; CONST tags : pTagItem) : longword; -PROCEDURE DrawIconStateA(rp : pRastPort; CONST icon : pDiskObject; CONST label_ : pCHAR; leftOffset : LONGINT; topOffset : LONGINT; state : longword; CONST tags : pTagItem); -FUNCTION GetIconRectangleA(rp : pRastPort; CONST icon : pDiskObject; CONST label_ : pCHAR; rect : pRectangle; CONST tags : pTagItem) : BOOLEAN; -FUNCTION NewDiskObject(type_ : LONGINT) : pDiskObject; -FUNCTION GetIconTagList(CONST name : pCHAR; CONST tags : pTagItem) : pDiskObject; -FUNCTION PutIconTagList(CONST name : pCHAR; CONST icon : pDiskObject; CONST tags : pTagItem) : BOOLEAN; -FUNCTION LayoutIconA(icon : pDiskObject; screen : pScreen; tags : pTagItem) : BOOLEAN; -PROCEDURE ChangeToSelectedIconColor(cr : pColorRegister); +FUNCTION DupDiskObjectA(CONST diskObject : pDiskObject location 'a0'; CONST tags : pTagItem location 'a1') : pDiskObject; syscall IconBase 150; +FUNCTION IconControlA(icon : pDiskObject location 'a0'; CONST tags : pTagItem location 'a1') : longword; syscall IconBase 156; +PROCEDURE DrawIconStateA(rp : pRastPort location 'a0'; CONST icon : pDiskObject location 'a1'; CONST label_ : pCHAR location 'a2'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'; state : longword location 'd2'; CONST tags : pTagItem location 'a3'); syscall IconBase 162; +FUNCTION GetIconRectangleA(rp : pRastPort location 'a0'; CONST icon : pDiskObject location 'a1'; CONST label_ : pCHAR location 'a2'; rect : pRectangle location 'a3'; CONST tags : pTagItem location 'a4') : LongBool; syscall IconBase 168; +FUNCTION NewDiskObject(type_ : LONGINT location 'd0') : pDiskObject; syscall IconBase 174; +FUNCTION GetIconTagList(CONST name : pCHAR location 'a0'; CONST tags : pTagItem location 'a1') : pDiskObject; syscall IconBase 180; +FUNCTION PutIconTagList(CONST name : pCHAR location 'a0'; CONST icon : pDiskObject location 'a1'; CONST tags : pTagItem location 'a2') : LongBool; syscall IconBase 186; +FUNCTION LayoutIconA(icon : pDiskObject location 'a0'; screen : pScreen location 'a1'; tags : pTagItem location 'a2') : LongBool; syscall IconBase 192; +PROCEDURE ChangeToSelectedIconColor(cr : pColorRegister location 'a0'); syscall IconBase 198; { overlay } FUNCTION BumpRevision(newname : string;const oldname : pCHAR) : pCHAR; @@ -413,7 +408,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} pastoc; @@ -422,300 +417,6 @@ begin PACK_ICON_ASPECT_RATIO:=(num shl 4) or den; end; -FUNCTION AddFreeList(freelist : pFreeList;const mem : POINTER; size : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L freelist,A0 - MOVEA.L mem,A1 - MOVEA.L size,A2 - MOVEA.L IconBase,A6 - JSR -072(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION BumpRevision(newname : pCHAR;const oldname : pCHAR) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L newname,A0 - MOVEA.L oldname,A1 - MOVEA.L IconBase,A6 - JSR -108(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION DeleteDiskObject(const name : pCHAR) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L IconBase,A6 - JSR -138(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION FindToolType(const toolTypeArray : POINTER;const typeName : pCHAR) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L toolTypeArray,A0 - MOVEA.L typeName,A1 - MOVEA.L IconBase,A6 - JSR -096(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE FreeDiskObject(diskobj : pDiskObject); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L diskobj,A0 - MOVEA.L IconBase,A6 - JSR -090(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeFreeList(freelist : pFreeList); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L freelist,A0 - MOVEA.L IconBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION GetDefDiskObject(typ : LONGINT) : pDiskObject; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L typ,D0 - MOVEA.L IconBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetDiskObject(const name : pCHAR) : pDiskObject; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L IconBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetDiskObjectNew(const name : pCHAR) : pDiskObject; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L IconBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION MatchToolValue(const typeString : pCHAR;const value : pCHAR) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L typeString,A0 - MOVEA.L value,A1 - MOVEA.L IconBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION PutDefDiskObject(const diskObject : pDiskObject) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L diskObject,A0 - MOVEA.L IconBase,A6 - JSR -126(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION PutDiskObject(const name : pCHAR;const diskobj : pDiskObject) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L diskobj,A1 - MOVEA.L IconBase,A6 - JSR -084(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION DupDiskObjectA(CONST diskObject : pDiskObject; CONST tags : pTagItem) : pDiskObject; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L diskObject,A0 - MOVEA.L tags,A1 - MOVEA.L IconBase,A6 - JSR -150(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION IconControlA(icon : pDiskObject; CONST tags : pTagItem) : longword; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L icon,A0 - MOVEA.L tags,A1 - MOVEA.L IconBase,A6 - JSR -156(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE DrawIconStateA(rp : pRastPort; CONST icon : pDiskObject; CONST label_ : pCHAR; leftOffset : LONGINT; topOffset : LONGINT; state : longword; CONST tags : pTagItem); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A0 - MOVEA.L icon,A1 - MOVEA.L label_,A2 - MOVE.L leftOffset,D0 - MOVE.L topOffset,D1 - MOVE.L state,D2 - MOVEA.L tags,A3 - MOVEA.L IconBase,A6 - JSR -162(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION GetIconRectangleA(rp : pRastPort; CONST icon : pDiskObject; CONST label_ : pCHAR; rect : pRectangle; CONST tags : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A0 - MOVEA.L icon,A1 - MOVEA.L label_,A2 - MOVEA.L rect,A3 - MOVEA.L tags,A4 - MOVEA.L IconBase,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 NewDiskObject(type_ : LONGINT) : pDiskObject; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L type_,D0 - MOVEA.L IconBase,A6 - JSR -174(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetIconTagList(CONST name : pCHAR; CONST tags : pTagItem) : pDiskObject; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L tags,A1 - MOVEA.L IconBase,A6 - JSR -180(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION PutIconTagList(CONST name : pCHAR; CONST icon : pDiskObject; CONST tags : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L icon,A1 - MOVEA.L tags,A2 - MOVEA.L IconBase,A6 - JSR -186(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION LayoutIconA(icon : pDiskObject; screen : pScreen; tags : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L icon,A0 - MOVEA.L screen,A1 - MOVEA.L tags,A2 - MOVEA.L IconBase,A6 - JSR -192(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE ChangeToSelectedIconColor(cr : pColorRegister); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L cr,A0 - MOVEA.L IconBase,A6 - JSR -198(A6) - MOVEA.L (A7)+,A6 - END; -END; FUNCTION BumpRevision(newname : string;const oldname : pCHAR) : pCHAR; begin diff --git a/packages/amunits/src/coreunits/iffparse.pas b/packages/amunits/src/coreunits/iffparse.pas index 8959ec85e0..f8d5100201 100644 --- a/packages/amunits/src/coreunits/iffparse.pas +++ b/packages/amunits/src/coreunits/iffparse.pas @@ -33,11 +33,7 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit iffparse; @@ -239,46 +235,46 @@ CONST VAR IFFParseBase : pLibrary; -FUNCTION AllocIFF : pIFFHandle; -FUNCTION AllocLocalItem(typ : LONGINT; id : LONGINT; ident : LONGINT; dataSize : LONGINT) : pLocalContextItem; -PROCEDURE CloseClipboard(clipHandle : pClipboardHandle); -PROCEDURE CloseIFF(iff : pIFFHandle); -FUNCTION CollectionChunk(iff : pIFFHandle; typ : LONGINT; id : LONGINT) : LONGINT; -FUNCTION CollectionChunks(iff : pIFFHandle;const propArray : pLONGINT; numPairs : LONGINT) : LONGINT; -FUNCTION CurrentChunk(const iff : pIFFHandle) : pContextNode; -FUNCTION EntryHandler(iff : pIFFHandle; typ : LONGINT; id : LONGINT; position : LONGINT; handler : pHook; obj : POINTER) : LONGINT; -FUNCTION ExitHandler(iff : pIFFHandle; typ : LONGINT; id : LONGINT; position : LONGINT; handler : pHook; obj : POINTER) : LONGINT; -FUNCTION FindCollection(const iff : pIFFHandle; typ : LONGINT; id : LONGINT) : pCollectionItem; -FUNCTION FindLocalItem(const iff : pIFFHandle; typ : LONGINT; id : LONGINT; ident : LONGINT) : pLocalContextItem; -FUNCTION FindProp(const iff : pIFFHandle; typ : LONGINT; id : LONGINT) : pStoredProperty; -FUNCTION FindPropContext(const iff : pIFFHandle) : pContextNode; -PROCEDURE FreeIFF(iff : pIFFHandle); -PROCEDURE FreeLocalItem(localItem : pLocalContextItem); -FUNCTION GoodID(id : LONGINT) : LONGINT; -FUNCTION GoodType(typ : LONGINT) : LONGINT; -FUNCTION IDtoStr(id : LONGINT; buf : pCHAR) : pCHAR; -PROCEDURE InitIFF(iff : pIFFHandle; flags : LONGINT;const streamHook : pHook); -PROCEDURE InitIFFasClip(iff : pIFFHandle); -PROCEDURE InitIFFasDOS(iff : pIFFHandle); -FUNCTION LocalItemData(const localItem : pLocalContextItem) : POINTER; -FUNCTION OpenClipboard(unitNumber : LONGINT) : pClipboardHandle; -FUNCTION OpenIFF(iff : pIFFHandle; rwMode : LONGINT) : LONGINT; -FUNCTION ParentChunk(const contextNode : pContextNode) : pContextNode; -FUNCTION ParseIFF(iff : pIFFHandle; control : LONGINT) : LONGINT; -FUNCTION PopChunk(iff : pIFFHandle) : LONGINT; -FUNCTION PropChunk(iff : pIFFHandle; typ : LONGINT; id : LONGINT) : LONGINT; -FUNCTION PropChunks(iff : pIFFHandle;const propArray : pLONGINT; numPairs : LONGINT) : LONGINT; -FUNCTION PushChunk(iff : pIFFHandle; typ : LONGINT; id : LONGINT; size : LONGINT) : LONGINT; -FUNCTION ReadChunkBytes(iff : pIFFHandle; buf : POINTER; numBytes : LONGINT) : LONGINT; -FUNCTION ReadChunkRecords(iff : pIFFHandle; buf : POINTER; bytesPerRecord : LONGINT; numRecords : LONGINT) : LONGINT; -PROCEDURE SetLocalItemPurge(localItem : pLocalContextItem;const purgeHook : pHook); -FUNCTION StopChunk(iff : pIFFHandle; typ : LONGINT; id : LONGINT) : LONGINT; -FUNCTION StopChunks(iff : pIFFHandle;const propArray : pLONGINT; numPairs : LONGINT) : LONGINT; -FUNCTION StopOnExit(iff : pIFFHandle; typ : LONGINT; id : LONGINT) : LONGINT; -PROCEDURE StoreItemInContext(iff : pIFFHandle; localItem : pLocalContextItem; contextNode : pContextNode); -FUNCTION StoreLocalItem(iff : pIFFHandle; localItem : pLocalContextItem; position : LONGINT) : LONGINT; -FUNCTION WriteChunkBytes(iff : pIFFHandle;const buf : POINTER; numBytes : LONGINT) : LONGINT; -FUNCTION WriteChunkRecords(iff : pIFFHandle;const buf : POINTER; bytesPerRecord : LONGINT; numRecords : LONGINT) : LONGINT; +FUNCTION AllocIFF : pIFFHandle; syscall IFFParseBase 030; +FUNCTION AllocLocalItem(typ : LONGINT location 'd0'; id : LONGINT location 'd1'; ident : LONGINT location 'd2'; dataSize : LONGINT location 'd3') : pLocalContextItem; syscall IFFParseBase 186; +PROCEDURE CloseClipboard(clipHandle : pClipboardHandle location 'a0'); syscall IFFParseBase 252; +PROCEDURE CloseIFF(iff : pIFFHandle location 'a0'); syscall IFFParseBase 048; +FUNCTION CollectionChunk(iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1') : LONGINT; syscall IFFParseBase 138; +FUNCTION CollectionChunks(iff : pIFFHandle location 'a0'; const propArray : pLONGINT location 'a1'; numPairs : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 144; +FUNCTION CurrentChunk(const iff : pIFFHandle location 'a0') : pContextNode; syscall IFFParseBase 174; +FUNCTION EntryHandler(iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1'; position : LONGINT location 'd2'; handler : pHook location 'a1'; obj : POINTER location 'a2') : LONGINT; syscall IFFParseBase 102; +FUNCTION ExitHandler(iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1'; position : LONGINT location 'd2'; handler : pHook location 'a1'; obj : POINTER location 'a2') : LONGINT; syscall IFFParseBase 108; +FUNCTION FindCollection(const iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1') : pCollectionItem; syscall IFFParseBase 162; +FUNCTION FindLocalItem(const iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1'; ident : LONGINT location 'd2') : pLocalContextItem; syscall IFFParseBase 210; +FUNCTION FindProp(const iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1') : pStoredProperty; syscall IFFParseBase 156; +FUNCTION FindPropContext(const iff : pIFFHandle location 'a0') : pContextNode; syscall IFFParseBase 168; +PROCEDURE FreeIFF(iff : pIFFHandle location 'a0'); syscall IFFParseBase 054; +PROCEDURE FreeLocalItem(localItem : pLocalContextItem location 'a0'); syscall IFFParseBase 204; +FUNCTION GoodID(id : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 258; +FUNCTION GoodType(typ : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 264; +FUNCTION IDtoStr(id : LONGINT location 'd0'; buf : pCHAR location 'a0') : pCHAR; syscall IFFParseBase 270; +PROCEDURE InitIFF(iff : pIFFHandle location 'a0'; flags : LONGINT location 'd0'; const streamHook : pHook location 'a1'); syscall IFFParseBase 228; +PROCEDURE InitIFFasClip(iff : pIFFHandle location 'a0'); syscall IFFParseBase 240; +PROCEDURE InitIFFasDOS(iff : pIFFHandle location 'a0'); syscall IFFParseBase 234; +FUNCTION LocalItemData(const localItem : pLocalContextItem location 'a0') : POINTER; syscall IFFParseBase 192; +FUNCTION OpenClipboard(unitNumber : LONGINT location 'd0') : pClipboardHandle; syscall IFFParseBase 246; +FUNCTION OpenIFF(iff : pIFFHandle location 'a0'; rwMode : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 036; +FUNCTION ParentChunk(const contextNode : pContextNode location 'a0') : pContextNode; syscall IFFParseBase 180; +FUNCTION ParseIFF(iff : pIFFHandle location 'a0'; control : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 042; +FUNCTION PopChunk(iff : pIFFHandle location 'a0') : LONGINT; syscall IFFParseBase 090; +FUNCTION PropChunk(iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1') : LONGINT; syscall IFFParseBase 114; +FUNCTION PropChunks(iff : pIFFHandle location 'a0'; const propArray : pLONGINT location 'a1'; numPairs : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 120; +FUNCTION PushChunk(iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1'; size : LONGINT location 'd2') : LONGINT; syscall IFFParseBase 084; +FUNCTION ReadChunkBytes(iff : pIFFHandle location 'a0'; buf : POINTER location 'a1'; numBytes : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 060; +FUNCTION ReadChunkRecords(iff : pIFFHandle location 'a0'; buf : POINTER location 'a1'; bytesPerRecord : LONGINT location 'd0'; numRecords : LONGINT location 'd1') : LONGINT; syscall IFFParseBase 072; +PROCEDURE SetLocalItemPurge(localItem : pLocalContextItem location 'a0'; const purgeHook : pHook location 'a1'); syscall IFFParseBase 198; +FUNCTION StopChunk(iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1') : LONGINT; syscall IFFParseBase 126; +FUNCTION StopChunks(iff : pIFFHandle location 'a0'; const propArray : pLONGINT location 'a1'; numPairs : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 132; +FUNCTION StopOnExit(iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1') : LONGINT; syscall IFFParseBase 150; +PROCEDURE StoreItemInContext(iff : pIFFHandle location 'a0'; localItem : pLocalContextItem location 'a1'; contextNode : pContextNode location 'a2'); syscall IFFParseBase 222; +FUNCTION StoreLocalItem(iff : pIFFHandle location 'a0'; localItem : pLocalContextItem location 'a1'; position : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 216; +FUNCTION WriteChunkBytes(iff : pIFFHandle location 'a0'; const buf : POINTER location 'a1'; numBytes : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 066; +FUNCTION WriteChunkRecords(iff : pIFFHandle location 'a0'; const buf : POINTER location 'a1'; bytesPerRecord : LONGINT location 'd0'; numRecords : LONGINT location 'd1') : LONGINT; syscall IFFParseBase 078; Function Make_ID(str : String) : LONGINT; @@ -297,535 +293,9 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox; +amsgbox; {$endif dont_use_openlib} -FUNCTION AllocIFF : pIFFHandle; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L IFFParseBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocLocalItem(typ : LONGINT; id : LONGINT; ident : LONGINT; dataSize : LONGINT) : pLocalContextItem; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L typ,D0 - MOVE.L id,D1 - MOVE.L ident,D2 - MOVE.L dataSize,D3 - MOVEA.L IFFParseBase,A6 - JSR -186(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE CloseClipboard(clipHandle : pClipboardHandle); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L clipHandle,A0 - MOVEA.L IFFParseBase,A6 - JSR -252(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE CloseIFF(iff : pIFFHandle); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L IFFParseBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION CollectionChunk(iff : pIFFHandle; typ : LONGINT; id : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVEA.L IFFParseBase,A6 - JSR -138(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION CollectionChunks(iff : pIFFHandle;const propArray : pLONGINT; numPairs : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L propArray,A1 - MOVE.L numPairs,D0 - MOVEA.L IFFParseBase,A6 - JSR -144(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION CurrentChunk(const iff : pIFFHandle) : pContextNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L IFFParseBase,A6 - JSR -174(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION EntryHandler(iff : pIFFHandle; typ : LONGINT; id : LONGINT; position : LONGINT; handler : pHook; obj : POINTER) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVE.L position,D2 - MOVEA.L handler,A1 - MOVEA.L obj,A2 - MOVEA.L IFFParseBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ExitHandler(iff : pIFFHandle; typ : LONGINT; id : LONGINT; position : LONGINT; handler : pHook; obj : POINTER) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVE.L position,D2 - MOVEA.L handler,A1 - MOVEA.L obj,A2 - MOVEA.L IFFParseBase,A6 - JSR -108(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION FindCollection(const iff : pIFFHandle; typ : LONGINT; id : LONGINT) : pCollectionItem; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVEA.L IFFParseBase,A6 - JSR -162(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION FindLocalItem(const iff : pIFFHandle; typ : LONGINT; id : LONGINT; ident : LONGINT) : pLocalContextItem; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVE.L ident,D2 - MOVEA.L IFFParseBase,A6 - JSR -210(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION FindProp(const iff : pIFFHandle; typ : LONGINT; id : LONGINT) : pStoredProperty; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVEA.L IFFParseBase,A6 - JSR -156(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION FindPropContext(const iff : pIFFHandle) : pContextNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L IFFParseBase,A6 - JSR -168(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE FreeIFF(iff : pIFFHandle); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L IFFParseBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeLocalItem(localItem : pLocalContextItem); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L localItem,A0 - MOVEA.L IFFParseBase,A6 - JSR -204(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION GoodID(id : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L id,D0 - MOVEA.L IFFParseBase,A6 - JSR -258(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GoodType(typ : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L typ,D0 - MOVEA.L IFFParseBase,A6 - JSR -264(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION IDtoStr(id : LONGINT; buf : pCHAR) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L id,D0 - MOVEA.L buf,A0 - MOVEA.L IFFParseBase,A6 - JSR -270(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE InitIFF(iff : pIFFHandle; flags : LONGINT;const streamHook : pHook); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L flags,D0 - MOVEA.L streamHook,A1 - MOVEA.L IFFParseBase,A6 - JSR -228(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE InitIFFasClip(iff : pIFFHandle); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L IFFParseBase,A6 - JSR -240(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE InitIFFasDOS(iff : pIFFHandle); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L IFFParseBase,A6 - JSR -234(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION LocalItemData(const localItem : pLocalContextItem) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L localItem,A0 - MOVEA.L IFFParseBase,A6 - JSR -192(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenClipboard(unitNumber : LONGINT) : pClipboardHandle; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L unitNumber,D0 - MOVEA.L IFFParseBase,A6 - JSR -246(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenIFF(iff : pIFFHandle; rwMode : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L rwMode,D0 - MOVEA.L IFFParseBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ParentChunk(const contextNode : pContextNode) : pContextNode; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L contextNode,A0 - MOVEA.L IFFParseBase,A6 - JSR -180(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ParseIFF(iff : pIFFHandle; control : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L control,D0 - MOVEA.L IFFParseBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION PopChunk(iff : pIFFHandle) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L IFFParseBase,A6 - JSR -090(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION PropChunk(iff : pIFFHandle; typ : LONGINT; id : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVEA.L IFFParseBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION PropChunks(iff : pIFFHandle;const propArray : pLONGINT; numPairs : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L propArray,A1 - MOVE.L numPairs,D0 - MOVEA.L IFFParseBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION PushChunk(iff : pIFFHandle; typ : LONGINT; id : LONGINT; size : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVE.L size,D2 - MOVEA.L IFFParseBase,A6 - JSR -084(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ReadChunkBytes(iff : pIFFHandle; buf : POINTER; numBytes : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L buf,A1 - MOVE.L numBytes,D0 - MOVEA.L IFFParseBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ReadChunkRecords(iff : pIFFHandle; buf : POINTER; bytesPerRecord : LONGINT; numRecords : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L buf,A1 - MOVE.L bytesPerRecord,D0 - MOVE.L numRecords,D1 - MOVEA.L IFFParseBase,A6 - JSR -072(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE SetLocalItemPurge(localItem : pLocalContextItem;const purgeHook : pHook); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L localItem,A0 - MOVEA.L purgeHook,A1 - MOVEA.L IFFParseBase,A6 - JSR -198(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION StopChunk(iff : pIFFHandle; typ : LONGINT; id : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVEA.L IFFParseBase,A6 - JSR -126(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION StopChunks(iff : pIFFHandle; const propArray : pLONGINT; numPairs : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L propArray,A1 - MOVE.L numPairs,D0 - MOVEA.L IFFParseBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION StopOnExit(iff : pIFFHandle; typ : LONGINT; id : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVE.L typ,D0 - MOVE.L id,D1 - MOVEA.L IFFParseBase,A6 - JSR -150(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE StoreItemInContext(iff : pIFFHandle; localItem : pLocalContextItem; contextNode : pContextNode); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L localItem,A1 - MOVEA.L contextNode,A2 - MOVEA.L IFFParseBase,A6 - JSR -222(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION StoreLocalItem(iff : pIFFHandle; localItem : pLocalContextItem; position : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L localItem,A1 - MOVE.L position,D0 - MOVEA.L IFFParseBase,A6 - JSR -216(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION WriteChunkBytes(iff : pIFFHandle;const buf : POINTER; numBytes : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L buf,A1 - MOVE.L numBytes,D0 - MOVEA.L IFFParseBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION WriteChunkRecords(iff : pIFFHandle;const buf : POINTER; bytesPerRecord : LONGINT; numRecords : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iff,A0 - MOVEA.L buf,A1 - MOVE.L bytesPerRecord,D0 - MOVE.L numRecords,D1 - MOVEA.L IFFParseBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; Function Make_ID(str : String) : LONGINT; begin diff --git a/packages/amunits/src/coreunits/input.pas b/packages/amunits/src/coreunits/input.pas index 6626f9fab7..11ccd765cf 100644 --- a/packages/amunits/src/coreunits/input.pas +++ b/packages/amunits/src/coreunits/input.pas @@ -34,21 +34,10 @@ const VAR InputBase : pDevice; -FUNCTION PeekQualifier : WORD; +FUNCTION PeekQualifier : WORD; syscall InputBase 042; IMPLEMENTATION -FUNCTION PeekQualifier : WORD; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L InputBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - END. (* UNIT INPUT *) diff --git a/packages/amunits/src/coreunits/inputevent.pas b/packages/amunits/src/coreunits/inputevent.pas index 4334950e05..1e3ea22fac 100644 --- a/packages/amunits/src/coreunits/inputevent.pas +++ b/packages/amunits/src/coreunits/inputevent.pas @@ -13,7 +13,7 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. **********************************************************************} - +{$PACKRECORDS 2} unit inputevent; INTERFACE diff --git a/packages/amunits/src/coreunits/intuition.pas b/packages/amunits/src/coreunits/intuition.pas index 273b7c7761..48f3b54236 100644 --- a/packages/amunits/src/coreunits/intuition.pas +++ b/packages/amunits/src/coreunits/intuition.pas @@ -45,18 +45,14 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit intuition; INTERFACE -uses exec, graphics, utility, inputevent, timer, layers; +uses exec, agraphics, utility, inputevent, timer, layers; { * NOTE: intuition/iobsolete.h is included at the END of this file! @@ -1923,21 +1919,22 @@ Const { The SCREENTYPE bits are reserved for describing various Screen types * available under Intuition. } - SCREENTYPE_f = $000F; { all the screens types available } + SCREENTYPE_F = $000F; { all the screens types available } { --- the definitions for the Screen Type ------------------------------- } - WBENCHSCREEN_f = $0001; { Ta Da! The Workbench } - CUSTOMSCREEN_f = $000F; { for that special look } + WBENCHSCREEN_F = $0001; { Ta Da! The Workbench } + PUBLICSCREEN_F = $0002; { Public shared (custom) screen } + CUSTOMSCREEN_F = $000F; { for that special look } - SHOWTITLE_f = $0010; { this gets set by a call to ShowTitle() } + SHOWTITLE_F = $0010; { this gets set by a call to ShowTitle() } - BEEPING_f = $0020; { set when Screen is beeping } + BEEPING_F = $0020; { set when Screen is beeping } - CUSTOMBITMAP_f = $0040; { if you are supplying your own BitMap } + CUSTOMBITMAP_F = $0040; { if you are supplying your own BitMap } - SCREENBEHIND_f = $0080; { if you want your screen to open behind + SCREENBEHIND_F = $0080; { if you want your screen to open behind * already open screens } - SCREENQUIET_f = $0100; { if you do not want Intuition to render + SCREENQUIET_F = $0100; { if you do not want Intuition to render * into your screen (gadgets, title) } SCREENHIRES = $0200; { do no use lowres gadgets (private) } @@ -2514,8 +2511,8 @@ Const BAUD_MIDI = $07; { PaperType } - FANFOLD = $00; - SINGLE = $80; + FANFOLD_PT = $00; + SINGLE_PT = $80; { PrintPitch } PICA = $000; @@ -4065,127 +4062,127 @@ CONST * uses this processing when activating a string gadget. } -FUNCTION ActivateGadget(gadgets : pGadget; window : pWindow; requester : pRequester) : BOOLEAN; -PROCEDURE ActivateWindow(window : pWindow); -PROCEDURE AddClass(classPtr : pIClass); -FUNCTION AddGadget(window : pWindow; gadget : pGadget; position : ULONG) : WORD; -FUNCTION AddGList(window : pWindow; gadget : pGadget; position : ULONG; numGad : LONGINT; requester : pRequester) : WORD; -FUNCTION AllocRemember(VAR rememberKey : pRemember; size : ULONG; flags : ULONG) : POINTER; -FUNCTION AllocScreenBuffer(sc : pScreen; bm : pBitMap; flags : ULONG) : pScreenBuffer; -FUNCTION AutoRequest(window : pWindow;const body : pIntuiText;const posText : pIntuiText;const negText : pIntuiText; pFlag : ULONG; nFlag : ULONG; width : ULONG; height : ULONG) : BOOLEAN; -PROCEDURE BeginRefresh(window : pWindow); -FUNCTION BuildEasyRequestArgs(window : pWindow;const easyStruct : pEasyStruct; idcmp : ULONG;const args : POINTER) : pWindow; -FUNCTION BuildSysRequest(window : pWindow;const body : pIntuiText;const posText : pIntuiText;const negText : pIntuiText; flags : ULONG; width : ULONG; height : ULONG) : pWindow; -FUNCTION ChangeScreenBuffer(sc : pScreen; sb : pScreenBuffer) : ULONG; -PROCEDURE ChangeWindowBox(window : pWindow; left : LONGINT; top : LONGINT; width : LONGINT; height : LONGINT); -FUNCTION ClearDMRequest(window : pWindow) : BOOLEAN; -PROCEDURE ClearMenuStrip(window : pWindow); -PROCEDURE ClearPointer(window : pWindow); -PROCEDURE CloseScreen(screen : pScreen); -PROCEDURE CloseWindow(window : pWindow); -FUNCTION CloseWorkBench : BOOLEAN; -PROCEDURE CurrentTime(VAR seconds : ULONG; VAR micros : ULONG); -FUNCTION DisplayAlert(alertNumber : ULONG;const string_ : pCHAR; height : ULONG) : BOOLEAN; -PROCEDURE DisplayBeep(screen : pScreen); -PROCEDURE DisposeObject(obj : POINTER); -FUNCTION DoGadgetMethodA(gad : pGadget; win : pWindow; req : pRequester; message : tMsg) : ULONG; -FUNCTION DoubleClick(sSeconds : ULONG; sMicros : ULONG; cSeconds : ULONG; cMicros : ULONG) : BOOLEAN; -PROCEDURE DrawBorder(rp : pRastPort;const border : pBorder; leftOffset : LONGINT; topOffset : LONGINT); -PROCEDURE DrawImage(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT); -PROCEDURE DrawImageState(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT; state : ULONG;const drawInfo : pDrawInfo); -FUNCTION EasyRequestArgs(window : pWindow;const easyStruct : pEasyStruct; idcmpPtr : pULONG;const args : POINTER) : LONGINT; -PROCEDURE EndRefresh(window : pWindow; complete : LONGINT); -PROCEDURE EndRequest(requester : pRequester; window : pWindow); -PROCEDURE EraseImage(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT); -FUNCTION FreeClass(classPtr : pIClass) : BOOLEAN; -PROCEDURE FreeRemember(VAR rememberKey : pRemember; reallyForget : LONGINT); -PROCEDURE FreeScreenBuffer(sc : pScreen; sb : pScreenBuffer); -PROCEDURE FreeScreenDrawInfo(screen : pScreen; drawInfo : pDrawInfo); -PROCEDURE FreeSysRequest(window : pWindow); -PROCEDURE GadgetMouse(gadget : pGadget; gInfo : pGadgetInfo; mousePoint : psmallint); -FUNCTION GetAttr(attrID : ULONG; obj : POINTER; storagePtr : pULONG) : ULONG; -PROCEDURE GetDefaultPubScreen(nameBuffer : pCHAR); -FUNCTION GetDefPrefs(preferences : pPreferences; size : LONGINT) : pPreferences; -FUNCTION GetPrefs(preferences : pPreferences; size : LONGINT) : pPreferences; -FUNCTION GetScreenData(buffer : POINTER; size : ULONG; type_ : ULONG;const screen : pScreen) : BOOLEAN; -FUNCTION GetScreenDrawInfo(screen : pScreen) : pDrawInfo; -PROCEDURE HelpControl(win : pWindow; flags : ULONG); -PROCEDURE InitRequester(requester : pRequester); -FUNCTION IntuiTextLength(const iText : pIntuiText) : LONGINT; -FUNCTION ItemAddress(const menuStrip : pMenu; menuNumber : ULONG) : pMenuItem; -PROCEDURE LendMenus(fromwindow : pWindow; towindow : pWindow); -FUNCTION LockIBase(dontknow : ULONG) : ULONG; -FUNCTION LockPubScreen(const name : pCHAR) : pScreen; -FUNCTION LockPubScreenList : pList; -FUNCTION MakeClass(const classID : pCHAR;const superClassID : pCHAR;const superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass; -FUNCTION MakeScreen(screen : pScreen) : LONGINT; -FUNCTION ModifyIDCMP(window : pWindow; flags : ULONG) : BOOLEAN; -PROCEDURE ModifyProp(gadget : pGadget; window : pWindow; requester : pRequester; flags : ULONG; horizPot : ULONG; vertPot : ULONG; horizBody : ULONG; vertBody : ULONG); -PROCEDURE MoveScreen(screen : pScreen; dx : LONGINT; dy : LONGINT); -PROCEDURE MoveWindow(window : pWindow; dx : LONGINT; dy : LONGINT); -PROCEDURE MoveWindowInFrontOf(window : pWindow; behindWindow : pWindow); -PROCEDURE NewModifyProp(gadget : pGadget; window : pWindow; requester : pRequester; flags : ULONG; horizPot : ULONG; vertPot : ULONG; horizBody : ULONG; vertBody : ULONG; numGad : LONGINT); -FUNCTION NewObjectA(classPtr : pIClass;const classID : pCHAR;const tagList : pTagItem) : POINTER; -FUNCTION NextObject(objectPtrPtr : POINTER) : POINTER; -FUNCTION NextPubScreen(const screen : pScreen; namebuf : pCHAR) : pCHAR; -FUNCTION ObtainGIRPort(gInfo : pGadgetInfo) : pRastPort; -PROCEDURE OffGadget(gadget : pGadget; window : pWindow; requester : pRequester); -PROCEDURE OffMenu(window : pWindow; menuNumber : ULONG); -PROCEDURE OnGadget(gadget : pGadget; window : pWindow; requester : pRequester); -PROCEDURE OnMenu(window : pWindow; menuNumber : ULONG); -FUNCTION OpenScreen(const newScreen : pNewScreen) : pScreen; -FUNCTION OpenScreenTagList(const newScreen : pNewScreen;const tagList : pTagItem) : pScreen; -FUNCTION OpenWindow(const newWindow : pNewWindow) : pWindow; -FUNCTION OpenWindowTagList(const newWindow : pNewWindow;const tagList : pTagItem) : pWindow; -FUNCTION OpenWorkBench : ULONG; -FUNCTION PointInImage(point : ULONG; image : pImage) : BOOLEAN; -PROCEDURE PrintIText(rp : pRastPort;const iText : pIntuiText; left : LONGINT; top : LONGINT); -FUNCTION PubScreenStatus(screen : pScreen; statusFlags : ULONG) : WORD; -FUNCTION QueryOverscan(displayID : ULONG; rect : pRectangle; oScanType : LONGINT) : LONGINT; -PROCEDURE RefreshGadgets(gadgets : pGadget; window : pWindow; requester : pRequester); -PROCEDURE RefreshGList(gadgets : pGadget; window : pWindow; requester : pRequester; numGad : LONGINT); -PROCEDURE RefreshWindowFrame(window : pWindow); -PROCEDURE ReleaseGIRPort(rp : pRastPort); -FUNCTION RemakeDisplay : LONGINT; -PROCEDURE RemoveClass(classPtr : pIClass); -FUNCTION RemoveGadget(window : pWindow; gadget : pGadget) : WORD; -FUNCTION RemoveGList(remPtr : pWindow; gadget : pGadget; numGad : LONGINT) : WORD; -PROCEDURE ReportMouse(flag : LONGINT; window : pWindow); -FUNCTION Request(requester : pRequester; window : pWindow) : BOOLEAN; -FUNCTION ResetMenuStrip(window : pWindow; menu : pMenu) : BOOLEAN; -FUNCTION RethinkDisplay : LONGINT; -PROCEDURE ScreenDepth(screen : pScreen; flags : ULONG; reserved : POINTER); -PROCEDURE ScreenPosition(screen : pScreen; flags : ULONG; x1 : LONGINT; y1 : LONGINT; x2 : LONGINT; y2 : LONGINT); -PROCEDURE ScreenToBack(screen : pScreen); -PROCEDURE ScreenToFront(screen : pScreen); -PROCEDURE ScrollWindowRaster(win : pWindow; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); -FUNCTION SetAttrsA(obj : POINTER;const tagList : pTagItem) : ULONG; -PROCEDURE SetDefaultPubScreen(const name : pCHAR); -FUNCTION SetDMRequest(window : pWindow; requester : pRequester) : BOOLEAN; -FUNCTION SetEditHook(hook : pHook) : pHook; -FUNCTION SetGadgetAttrsA(gadget : pGadget; window : pWindow; requester : pRequester;const tagList : pTagItem) : ULONG; -FUNCTION SetMenuStrip(window : pWindow; menu : pMenu) : BOOLEAN; -FUNCTION SetMouseQueue(window : pWindow; queueLength : ULONG) : LONGINT; -PROCEDURE SetPointer(window : pWindow; pointer_ : pword; height : LONGINT; width : LONGINT; xOffset : LONGINT; yOffset : LONGINT); -FUNCTION SetPrefs(const preferences : pPreferences; size : LONGINT; inform : LONGINT) : pPreferences; -FUNCTION SetPubScreenModes(modes : ULONG) : WORD; -PROCEDURE SetWindowPointerA(win : pWindow;const taglist : pTagItem); -PROCEDURE SetWindowTitles(window : pWindow;const windowTitle : pCHAR;const screenTitle : pCHAR); -PROCEDURE ShowTitle(screen : pScreen; showIt : LONGINT); -PROCEDURE SizeWindow(window : pWindow; dx : LONGINT; dy : LONGINT); -FUNCTION SysReqHandler(window : pWindow; idcmpPtr : pULONG; waitInput : LONGINT) : LONGINT; -FUNCTION TimedDisplayAlert(alertNumber : ULONG;const string_ : pCHAR; height : ULONG; time : ULONG) : BOOLEAN; -PROCEDURE UnlockIBase(ibLock : ULONG); -PROCEDURE UnlockPubScreen(const name : pCHAR; screen : pScreen); -PROCEDURE UnlockPubScreenList; -FUNCTION ViewAddress : pView; -FUNCTION ViewPortAddress(const window : pWindow) : pViewPort; -FUNCTION WBenchToBack : BOOLEAN; -FUNCTION WBenchToFront : BOOLEAN; -FUNCTION WindowLimits(window : pWindow; widthMin : LONGINT; heightMin : LONGINT; widthMax : ULONG; heightMax : ULONG) : BOOLEAN; -PROCEDURE WindowToBack(window : pWindow); -PROCEDURE WindowToFront(window : pWindow); -PROCEDURE ZipWindow(window : pWindow); +FUNCTION ActivateGadget(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2') : LongBool syscall _IntuitionBase 462; +PROCEDURE ActivateWindow(window : pWindow location 'a0'); syscall _IntuitionBase 450; +PROCEDURE AddClass(classPtr : pIClass location 'a0'); syscall _IntuitionBase 684; +FUNCTION AddGadget(window : pWindow location 'a0'; gadget : pGadget location 'a1'; position : ULONG location 'd0') : WORD; syscall _IntuitionBase 042; +FUNCTION AddGList(window : pWindow location 'a0'; gadget : pGadget location 'a1'; position : ULONG location 'd0'; numGad : LONGINT location 'd1'; requester : pRequester location 'a2') : WORD; syscall _IntuitionBase 438; +FUNCTION AllocRemember(var rememberKey : pRemember location 'a0'; size : ULONG location 'd0'; flags : ULONG location 'd1') : POINTER syscall _IntuitionBase 396; +FUNCTION AllocScreenBuffer(sc : pScreen location 'a0'; bm : pBitMap location 'a1'; flags : ULONG location 'd0') : pScreenBuffer; syscall _IntuitionBase 768; +FUNCTION AutoRequest(window : pWindow location 'a0';const body : pIntuiText location 'a1';const posText : pIntuiText location 'a2';const negText : pIntuiText location 'a3'; pFlag : ULONG location 'd0'; nFlag : ULONG location 'd1'; width : ULONG location 'd2'; height : ULONG location 'd3') : LongBool; syscall _IntuitionBase 348; +PROCEDURE BeginRefresh(window : pWindow location 'a0'); syscall _IntuitionBase 354; +FUNCTION BuildEasyRequestArgs(window : pWindow location 'a0';const easyStruct : pEasyStruct location 'a1'; idcmp : ULONG location 'd0';const args : POINTER location 'a3') : pWindow; syscall _IntuitionBase 594; +FUNCTION BuildSysRequest(window : pWindow location 'a0';const body : pIntuiText location 'a1';const posText : pIntuiText location 'a2';const negText : pIntuiText location 'a3'; flags : ULONG location 'd0'; width : ULONG location 'd1'; height : ULONG location 'd2') : pWindow; syscall _IntuitionBase 360; +FUNCTION ChangeScreenBuffer(sc : pScreen location 'a0'; sb : pScreenBuffer location 'a1') : ULONG; syscall _IntuitionBase 780; +PROCEDURE ChangeWindowBox(window : pWindow location 'a0'; left : LONGINT location 'd0'; top : LONGINT location 'd1'; width : LONGINT location 'd2'; height : LONGINT location 'd3'); syscall _IntuitionBase 486; +FUNCTION ClearDMRequest(window : pWindow location 'a0') : LongBool; syscall _IntuitionBase 048; +PROCEDURE ClearMenuStrip(window : pWindow location 'a0'); syscall _IntuitionBase 054; +PROCEDURE ClearPointer(window : pWindow location 'a0'); syscall _IntuitionBase 060; +PROCEDURE CloseScreen(screen : pScreen location 'a0'); syscall _IntuitionBase 066; +PROCEDURE CloseWindow(window : pWindow location 'a0'); syscall _IntuitionBase 072; +FUNCTION CloseWorkBench : LongBool; syscall _IntuitionBase 078; +PROCEDURE CurrentTime(VAR seconds : ULONG location 'a0'; VAR micros : ULONG location 'a1'); syscall _IntuitionBase 084; +FUNCTION DisplayAlert(alertNumber : ULONG location 'd0';const string_ : pCHAR location 'a0'; height : ULONG location 'd1') : LongBool; syscall _IntuitionBase 090; +PROCEDURE DisplayBeep(screen : pScreen location 'a0'); syscall _IntuitionBase 096; +PROCEDURE DisposeObject(obj : POINTER location 'a0'); syscall _IntuitionBase 642; +FUNCTION DoGadgetMethodA(gad : pGadget location 'a0'; win : pWindow location 'a1'; req : pRequester location 'a2'; message : tMsg location 'a3') : ULONG; syscall _IntuitionBase 810; +FUNCTION DoubleClick(sSeconds : ULONG location 'd0'; sMicros : ULONG location 'd1'; cSeconds : ULONG location 'd2'; cMicros : ULONG location 'd3') : LongBool; syscall _IntuitionBase 102; +PROCEDURE DrawBorder(rp : pRastPort location 'a0';const border : pBorder location 'a1'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'); syscall _IntuitionBase 108; +PROCEDURE DrawImage(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'); syscall _IntuitionBase 114; +PROCEDURE DrawImageState(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'; state : ULONG location 'd2';const drawInfo : pDrawInfo location 'a2'); syscall _IntuitionBase 618; +FUNCTION EasyRequestArgs(window : pWindow location 'a0';const easyStruct : pEasyStruct location 'a1'; idcmpPtr : pULONG location 'a2';const args : POINTER location 'a3') : LONGINT; syscall _IntuitionBase 588; +PROCEDURE EndRefresh(window : pWindow location 'a0'; complete : LONGBOOL location 'd0'); syscall _IntuitionBase 366; +PROCEDURE EndRequest(requester : pRequester location 'a0'; window : pWindow location 'a1'); syscall _IntuitionBase 120; +PROCEDURE EraseImage(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'); syscall _IntuitionBase 630; +FUNCTION FreeClass(classPtr : pIClass location 'a0') : LongBool; syscall _IntuitionBase 714; +PROCEDURE FreeRemember(VAR rememberKey : pRemember location 'a0'; reallyForget : LONGINT location 'd0'); syscall _IntuitionBase 408; +PROCEDURE FreeScreenBuffer(sc : pScreen location 'a0'; sb : pScreenBuffer location 'a1'); syscall _IntuitionBase 774; +PROCEDURE FreeScreenDrawInfo(screen : pScreen location 'a0'; drawInfo : pDrawInfo location 'a1'); syscall _IntuitionBase 696; +PROCEDURE FreeSysRequest(window : pWindow location 'a0'); syscall _IntuitionBase 372; +PROCEDURE GadgetMouse(gadget : pGadget location 'a0'; gInfo : pGadgetInfo location 'a1'; mousePoint : psmallint location 'a2'); syscall _IntuitionBase 570; +FUNCTION GetAttr(attrID : ULONG location 'd0'; obj : POINTER location 'a0'; storagePtr : pULONG location 'a1') : ULONG; syscall _IntuitionBase 654; +PROCEDURE GetDefaultPubScreen(nameBuffer : pCHAR location 'a0'); syscall _IntuitionBase 582; +FUNCTION GetDefPrefs(preferences : pPreferences location 'a0'; size : LONGINT location 'd0') : pPreferences; syscall _IntuitionBase 126; +FUNCTION GetPrefs(preferences : pPreferences location 'a0'; size : LONGINT location 'd0') : pPreferences; syscall _IntuitionBase 132; +FUNCTION GetScreenData(buffer : POINTER location 'a0'; size : ULONG location 'D0'; type_ : ULONG location 'd1';const screen : pScreen location 'a1') : LongBool; syscall _IntuitionBase 426; +FUNCTION GetScreenDrawInfo(screen : pScreen location 'a0') : pDrawInfo; syscall _IntuitionBase 690; +PROCEDURE HelpControl(win : pWindow location 'a0'; flags : ULONG location 'd0'); syscall _IntuitionBase 828; +PROCEDURE InitRequester(requester : pRequester location 'a0'); syscall _IntuitionBase 138; +FUNCTION IntuiTextLength(const iText : pIntuiText location 'a0') : LONGINT; syscall _IntuitionBase 330; +FUNCTION ItemAddress(const menuStrip : pMenu location 'a0'; menuNumber : ULONG location 'd0') : pMenuItem; syscall _IntuitionBase 144; +PROCEDURE LendMenus(fromwindow : pWindow location 'a0'; towindow : pWindow location 'a1'); syscall _IntuitionBase 804; +FUNCTION LockIBase(dontknow : ULONG location 'd0') : ULONG; syscall _IntuitionBase 414; +FUNCTION LockPubScreen(const name : pCHAR location 'a0') : pScreen; syscall _IntuitionBase 510; +FUNCTION LockPubScreenList : pList; syscall _IntuitionBase 522; +FUNCTION MakeClass(const classID : pCHAR location 'a0';const superClassID : pCHAR location 'a1';const superClassPtr : pIClass location 'a2'; instanceSize : ULONG location 'd0'; flags : ULONG location 'd1') : pIClass; syscall _IntuitionBase 678; +FUNCTION MakeScreen(screen : pScreen location 'a0') : LONGINT; syscall _IntuitionBase 378; +FUNCTION ModifyIDCMP(window : pWindow location 'a0'; flags : ULONG location 'd0') : LongBool; syscall _IntuitionBase 150; +PROCEDURE ModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : ULONG location 'd0'; horizPot : ULONG location 'd1'; vertPot : ULONG location 'd2'; horizBody : ULONG location 'd3'; vertBody : ULONG location 'd4'); syscall _IntuitionBase 156; +PROCEDURE MoveScreen(screen : pScreen location 'a0'; dx : LONGINT location 'd0'; dy : LONGINT location 'd1'); syscall _IntuitionBase 162; +PROCEDURE MoveWindow(window : pWindow location 'a0'; dx : LONGINT location 'd0'; dy : LONGINT location 'd1'); syscall _IntuitionBase 168; +PROCEDURE MoveWindowInFrontOf(window : pWindow location 'a0'; behindWindow : pWindow location 'a1'); syscall _IntuitionBase 480; +PROCEDURE NewModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : ULONG location 'd0'; horizPot : ULONG location 'd1'; vertPot : ULONG location 'd2'; horizBody : ULONG location 'd3'; vertBody : ULONG location 'd4'; numGad : LONGINT location 'd5'); syscall _IntuitionBase 468; +FUNCTION NewObjectA(classPtr : pIClass location 'a0';const classID : pCHAR location 'a1';const tagList : pTagItem location 'a2') : POINTER; syscall _IntuitionBase 636; +FUNCTION NextObject(objectPtrPtr : POINTER location 'a0') : POINTER; syscall _IntuitionBase 666; +FUNCTION NextPubScreen(const screen : pScreen location 'a0'; namebuf : pCHAR location 'a1') : pCHAR; syscall _IntuitionBase 534; +FUNCTION ObtainGIRPort(gInfo : pGadgetInfo location 'a0') : pRastPort; syscall _IntuitionBase 558; +PROCEDURE OffGadget(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'); syscall _IntuitionBase 174; +PROCEDURE OffMenu(window : pWindow location 'a0'; menuNumber : ULONG location 'd0'); syscall _IntuitionBase 180; +PROCEDURE OnGadget(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'); syscall _IntuitionBase 186; +PROCEDURE OnMenu(window : pWindow location 'a0'; menuNumber : ULONG location 'd0'); syscall _IntuitionBase 192; +FUNCTION OpenScreen(const newScreen : pNewScreen location 'a0') : pScreen; syscall _IntuitionBase 198; +FUNCTION OpenScreenTagList(const newScreen : pNewScreen location 'a0'; const tagList : pTagItem location 'a1') : pScreen; syscall _IntuitionBase 612; +FUNCTION OpenWindow(const newWindow : pNewWindow location 'a0') : pWindow; syscall _IntuitionBase 204; +FUNCTION OpenWindowTagList(const newWindow : pNewWindow location 'a0'; const tagList : pTagItem location 'a1') : pWindow; syscall _IntuitionBase 606; +FUNCTION OpenWorkBench : ULONG; syscall _IntuitionBase 210; +FUNCTION PointInImage(point : ULONG location 'd0'; image : pImage location 'a0') : LongBool; syscall _IntuitionBase 624; +PROCEDURE PrintIText(rp : pRastPort location 'a0';const iText : pIntuiText location 'a1'; left : LONGINT location 'd0'; top : LONGINT location 'd1'); syscall _IntuitionBase 216; +FUNCTION PubScreenStatus(screen : pScreen location 'a0'; statusFlags : ULONG location 'd0') : WORD; syscall _IntuitionBase 552; +FUNCTION QueryOverscan(displayID : ULONG location 'a0'; rect : pRectangle location 'a1'; oScanType : LONGINT location 'd0') : LONGINT; syscall _IntuitionBase 474; +PROCEDURE RefreshGadgets(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'); syscall _IntuitionBase 222; +PROCEDURE RefreshGList(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; numGad : LONGINT location 'd0'); syscall _IntuitionBase 432; +PROCEDURE RefreshWindowFrame(window : pWindow location 'a0'); syscall _IntuitionBase 456; +PROCEDURE ReleaseGIRPort(rp : pRastPort location 'a0'); syscall _IntuitionBase 564; +FUNCTION RemakeDisplay : LONGINT; syscall _IntuitionBase 384; +PROCEDURE RemoveClass(classPtr : pIClass location 'a0'); syscall _IntuitionBase 708; +FUNCTION RemoveGadget(window : pWindow; gadget : pGadget) : WORD; syscall _IntuitionBase 228; +FUNCTION RemoveGList(remPtr : pWindow location 'a0'; gadget : pGadget location 'a1'; numGad : LONGINT location 'd0') : WORD; syscall _IntuitionBase 444; +PROCEDURE ReportMouse(flag : LONGINT location 'd0'; window : pWindow location 'a0'); syscall _IntuitionBase 234; +FUNCTION Request(requester : pRequester location 'a0'; window : pWindow location 'a1') : LongBool; syscall _IntuitionBase 240; +FUNCTION ResetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : LongBool; syscall _IntuitionBase 702; +FUNCTION RethinkDisplay : LONGINT; syscall _IntuitionBase 390; +PROCEDURE ScreenDepth(screen : pScreen location 'a0'; flags : ULONG location 'd0'; reserved : POINTER location 'a1'); syscall _IntuitionBase 786; +PROCEDURE ScreenPosition(screen : pScreen location 'a0'; flags : ULONG location 'd0'; x1 : LONGINT location 'd1'; y1 : LONGINT location 'd2'; x2 : LONGINT location 'd3'; y2 : LONGINT location 'd4'); syscall _IntuitionBase 792; +PROCEDURE ScreenToBack(screen : pScreen location 'a0'); syscall _IntuitionBase 246; +PROCEDURE ScreenToFront(screen : pScreen location 'a0'); syscall _IntuitionBase 252; +PROCEDURE ScrollWindowRaster(win : pWindow location 'a0'; dx : LONGINT location 'd0'; dy : LONGINT location 'd1'; xMin : LONGINT location 'd2'; yMin : LONGINT location 'd3'; xMax : LONGINT location 'd4'; yMax : LONGINT location 'd5'); syscall _IntuitionBase 798; +FUNCTION SetAttrsA(obj : POINTER location 'a0';const tagList : pTagItem location 'a1') : ULONG; syscall _IntuitionBase 648; +PROCEDURE SetDefaultPubScreen(const name : pCHAR location 'a0'); syscall _IntuitionBase 540; +FUNCTION SetDMRequest(window : pWindow location 'a0'; requester : pRequester location 'a1') : LongBool; syscall _IntuitionBase 258; +FUNCTION SetEditHook(hook : pHook location 'a0') : pHook; syscall _IntuitionBase 492; +FUNCTION SetGadgetAttrsA(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2';const tagList : pTagItem location 'a3') : ULONG; syscall _IntuitionBase 660; +FUNCTION SetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : LongBool; syscall _IntuitionBase 264; +FUNCTION SetMouseQueue(window : pWindow location 'a0'; queueLength : ULONG location 'd0') : LONGINT; syscall _IntuitionBase 498; +PROCEDURE SetPointer(window : pWindow location 'a0'; pointer_ : pword location 'a1'; height : LONGINT location 'd0'; width : LONGINT location 'd1'; xOffset : LONGINT location 'd2'; yOffset : LONGINT location 'd3'); syscall _IntuitionBase 270; +FUNCTION SetPrefs(const preferences : pPreferences location 'a0'; size : LONGINT location 'd0'; inform : LONGINT location 'd1') : pPreferences; syscall _IntuitionBase 324; +FUNCTION SetPubScreenModes(modes : ULONG location 'd0') : WORD; syscall _IntuitionBase 546; +PROCEDURE SetWindowPointerA(win : pWindow location 'a0';const taglist : pTagItem location 'a1'); syscall _IntuitionBase 816; +PROCEDURE SetWindowTitles(window : pWindow location 'a0';const windowTitle : pCHAR location 'a1';const screenTitle : pCHAR location 'a2'); syscall _IntuitionBase 276; +PROCEDURE ShowTitle(screen : pScreen location 'a0'; showIt : LONGINT location 'd0'); syscall _IntuitionBase 282; +PROCEDURE SizeWindow(window : pWindow location 'a0'; dx : LONGINT location 'd0'; dy : LONGINT location 'd1'); syscall _IntuitionBase 288; +FUNCTION SysReqHandler(window : pWindow location 'a0'; idcmpPtr : pULONG location 'a1'; waitInput : LONGINT location 'd0') : LONGINT; syscall _IntuitionBase 600; +FUNCTION TimedDisplayAlert(alertNumber : ULONG location 'd0';const string_ : pCHAR location 'a0'; height : ULONG location 'd1'; time : ULONG location 'a1') : LongBool; syscall _IntuitionBase 822; +PROCEDURE UnlockIBase(ibLock : ULONG location 'a0'); syscall _IntuitionBase 420; +PROCEDURE UnlockPubScreen(const name : pCHAR location 'a0'; screen : pScreen location 'a1'); syscall _IntuitionBase 516; +PROCEDURE UnlockPubScreenList; syscall _IntuitionBase 528; +FUNCTION ViewAddress : pView; syscall _IntuitionBase 294; +FUNCTION ViewPortAddress(const window : pWindow location 'a0') : pViewPort; syscall _IntuitionBase 300; +FUNCTION WBenchToBack : LongBool; syscall _IntuitionBase 336; +FUNCTION WBenchToFront : LongBool; syscall _IntuitionBase 342; +FUNCTION WindowLimits(window : pWindow location 'a0'; widthMin : LONGINT location 'd0'; heightMin : LONGINT location 'd1'; widthMax : ULONG location 'd2'; heightMax : ULONG location 'd3') : LongBool; syscall _IntuitionBase 318; +PROCEDURE WindowToBack(window : pWindow location 'a0'); syscall _IntuitionBase 306; +PROCEDURE WindowToFront(window : pWindow location 'a0'); syscall _IntuitionBase 312; +PROCEDURE ZipWindow(window : pWindow location 'a0'); syscall _IntuitionBase 504; { Intuition macros } function INST_DATA (cl: pIClass; o: p_Object): Pointer; @@ -4326,1618 +4323,6 @@ begin SUBNUM := (n shr 11) and $1f end; -FUNCTION ActivateGadget(gadgets : pGadget; window : pWindow; requester : pRequester) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gadgets,A0 - MOVEA.L window,A1 - MOVEA.L requester,A2 - MOVEA.L _IntuitionBase,A6 - JSR -462(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE ActivateWindow(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -450(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE AddClass(classPtr : pIClass); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L classPtr,A0 - MOVEA.L _IntuitionBase,A6 - JSR -684(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION AddGadget(window : pWindow; gadget : pGadget; position : ULONG) : WORD; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L gadget,A1 - MOVE.L position,D0 - MOVEA.L _IntuitionBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AddGList(window : pWindow; gadget : pGadget; position : ULONG; numGad : LONGINT; requester : pRequester) : WORD; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L gadget,A1 - MOVE.L position,D0 - MOVE.L numGad,D1 - MOVEA.L requester,A2 - MOVEA.L _IntuitionBase,A6 - JSR -438(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocRemember(VAR rememberKey : pRemember; size : ULONG; flags : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rememberKey,A0 - MOVE.L size,D0 - MOVE.L flags,D1 - MOVEA.L _IntuitionBase,A6 - JSR -396(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AllocScreenBuffer(sc : pScreen; bm : pBitMap; flags : ULONG) : pScreenBuffer; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sc,A0 - MOVEA.L bm,A1 - MOVE.L flags,D0 - MOVEA.L _IntuitionBase,A6 - JSR -768(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AutoRequest(window : pWindow;const body : pIntuiText;const posText : pIntuiText;const negText : pIntuiText; pFlag : ULONG; nFlag : ULONG; width : ULONG; height : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L body,A1 - MOVEA.L posText,A2 - MOVEA.L negText,A3 - MOVE.L pFlag,D0 - MOVE.L nFlag,D1 - MOVE.L width,D2 - MOVE.L height,D3 - MOVEA.L _IntuitionBase,A6 - JSR -348(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE BeginRefresh(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -354(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION BuildEasyRequestArgs(window : pWindow;const easyStruct : pEasyStruct; idcmp : ULONG;const args : POINTER) : pWindow; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L easyStruct,A1 - MOVE.L idcmp,D0 - MOVEA.L args,A3 - MOVEA.L _IntuitionBase,A6 - JSR -594(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION BuildSysRequest(window : pWindow;const body : pIntuiText;const posText : pIntuiText;const negText : pIntuiText; flags : ULONG; width : ULONG; height : ULONG) : pWindow; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L body,A1 - MOVEA.L posText,A2 - MOVEA.L negText,A3 - MOVE.L flags,D0 - MOVE.L width,D1 - MOVE.L height,D2 - MOVEA.L _IntuitionBase,A6 - JSR -360(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ChangeScreenBuffer(sc : pScreen; sb : pScreenBuffer) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sc,A0 - MOVEA.L sb,A1 - MOVEA.L _IntuitionBase,A6 - JSR -780(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE ChangeWindowBox(window : pWindow; left : LONGINT; top : LONGINT; width : LONGINT; height : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVE.L left,D0 - MOVE.L top,D1 - MOVE.L width,D2 - MOVE.L height,D3 - MOVEA.L _IntuitionBase,A6 - JSR -486(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION ClearDMRequest(window : pWindow) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE ClearMenuStrip(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ClearPointer(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE CloseScreen(screen : pScreen); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVEA.L _IntuitionBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE CloseWindow(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -072(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION CloseWorkBench : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _IntuitionBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - TST.L D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE CurrentTime(VAR seconds : ULONG; VAR micros : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L seconds,A0 - MOVEA.L micros,A1 - MOVEA.L _IntuitionBase,A6 - JSR -084(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION DisplayAlert(alertNumber : ULONG;const string_ : pCHAR; height : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L alertNumber,D0 - MOVEA.L string_,A0 - MOVE.L height,D1 - MOVEA.L _IntuitionBase,A6 - JSR -090(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE DisplayBeep(screen : pScreen); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVEA.L _IntuitionBase,A6 - JSR -096(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE DisposeObject(obj : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L obj,A0 - MOVEA.L _IntuitionBase,A6 - JSR -642(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION DoGadgetMethodA(gad : pGadget; win : pWindow; req : pRequester; message : tMsg) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gad,A0 - MOVEA.L win,A1 - MOVEA.L req,A2 - MOVEA.L message,A3 - MOVEA.L _IntuitionBase,A6 - JSR -810(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION DoubleClick(sSeconds : ULONG; sMicros : ULONG; cSeconds : ULONG; cMicros : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L sSeconds,D0 - MOVE.L sMicros,D1 - MOVE.L cSeconds,D2 - MOVE.L cMicros,D3 - MOVEA.L _IntuitionBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE DrawBorder(rp : pRastPort;const border : pBorder; leftOffset : LONGINT; topOffset : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A0 - MOVEA.L border,A1 - MOVE.L leftOffset,D0 - MOVE.L topOffset,D1 - MOVEA.L _IntuitionBase,A6 - JSR -108(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE DrawImage(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A0 - MOVEA.L image,A1 - MOVE.L leftOffset,D0 - MOVE.L topOffset,D1 - MOVEA.L _IntuitionBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE DrawImageState(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT; state : ULONG;const drawInfo : pDrawInfo); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A0 - MOVEA.L image,A1 - MOVE.L leftOffset,D0 - MOVE.L topOffset,D1 - MOVE.L state,D2 - MOVEA.L drawInfo,A2 - MOVEA.L _IntuitionBase,A6 - JSR -618(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION EasyRequestArgs(window : pWindow;const easyStruct : pEasyStruct; idcmpPtr : pULONG;const args : POINTER) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L easyStruct,A1 - MOVEA.L idcmpPtr,A2 - MOVEA.L args,A3 - MOVEA.L _IntuitionBase,A6 - JSR -588(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE EndRefresh(window : pWindow; complete : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVE.L complete,D0 - MOVEA.L _IntuitionBase,A6 - JSR -366(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE EndRequest(requester : pRequester; window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L requester,A0 - MOVEA.L window,A1 - MOVEA.L _IntuitionBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE EraseImage(rp : pRastPort; image : pImage; leftOffset : LONGINT; topOffset : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A0 - MOVEA.L image,A1 - MOVE.L leftOffset,D0 - MOVE.L topOffset,D1 - MOVEA.L _IntuitionBase,A6 - JSR -630(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION FreeClass(classPtr : pIClass) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L classPtr,A0 - MOVEA.L _IntuitionBase,A6 - JSR -714(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE FreeRemember(VAR rememberKey : pRemember; reallyForget : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rememberKey,A0 - MOVE.L reallyForget,D0 - MOVEA.L _IntuitionBase,A6 - JSR -408(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeScreenBuffer(sc : pScreen; sb : pScreenBuffer); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L sc,A0 - MOVEA.L sb,A1 - MOVEA.L _IntuitionBase,A6 - JSR -774(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeScreenDrawInfo(screen : pScreen; drawInfo : pDrawInfo); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVEA.L drawInfo,A1 - MOVEA.L _IntuitionBase,A6 - JSR -696(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE FreeSysRequest(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -372(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE GadgetMouse(gadget : pGadget; gInfo : pGadgetInfo; mousePoint : psmallint); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gadget,A0 - MOVEA.L gInfo,A1 - MOVEA.L mousePoint,A2 - MOVEA.L _IntuitionBase,A6 - JSR -570(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION GetAttr(attrID : ULONG; obj : POINTER; storagePtr : pULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L attrID,D0 - MOVEA.L obj,A0 - MOVEA.L storagePtr,A1 - MOVEA.L _IntuitionBase,A6 - JSR -654(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE GetDefaultPubScreen(nameBuffer : pCHAR); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L nameBuffer,A0 - MOVEA.L _IntuitionBase,A6 - JSR -582(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION GetDefPrefs(preferences : pPreferences; size : LONGINT) : pPreferences; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L preferences,A0 - MOVE.L size,D0 - MOVEA.L _IntuitionBase,A6 - JSR -126(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetPrefs(preferences : pPreferences; size : LONGINT) : pPreferences; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L preferences,A0 - MOVE.L size,D0 - MOVEA.L _IntuitionBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetScreenData(buffer : POINTER; size : ULONG; type_ : ULONG;const screen : pScreen) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L buffer,A0 - MOVE.L size,D0 - MOVE.L type_,D1 - MOVEA.L screen,A1 - MOVEA.L _IntuitionBase,A6 - JSR -426(A6) - MOVEA.L (A7)+,A6 - TST.L D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION GetScreenDrawInfo(screen : pScreen) : pDrawInfo; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVEA.L _IntuitionBase,A6 - JSR -690(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE HelpControl(win : pWindow; flags : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L win,A0 - MOVE.L flags,D0 - MOVEA.L _IntuitionBase,A6 - JSR -828(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE InitRequester(requester : pRequester); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L requester,A0 - MOVEA.L _IntuitionBase,A6 - JSR -138(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION IntuiTextLength(const iText : pIntuiText) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L iText,A0 - MOVEA.L _IntuitionBase,A6 - JSR -330(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ItemAddress(const menuStrip : pMenu; menuNumber : ULONG) : pMenuItem; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L menuStrip,A0 - MOVE.L menuNumber,D0 - MOVEA.L _IntuitionBase,A6 - JSR -144(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE LendMenus(fromwindow : pWindow; towindow : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L fromwindow,A0 - MOVEA.L towindow,A1 - MOVEA.L _IntuitionBase,A6 - JSR -804(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION LockIBase(dontknow : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L dontknow,D0 - MOVEA.L _IntuitionBase,A6 - JSR -414(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION LockPubScreen(const name : pCHAR) : pScreen; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L _IntuitionBase,A6 - JSR -510(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION LockPubScreenList : pList; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _IntuitionBase,A6 - JSR -522(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION MakeClass(const classID : pCHAR;const superClassID : pCHAR;const superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L classID,A0 - MOVEA.L superClassID,A1 - MOVEA.L superClassPtr,A2 - MOVE.L instanceSize,D0 - MOVE.L flags,D1 - MOVEA.L _IntuitionBase,A6 - JSR -678(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION MakeScreen(screen : pScreen): LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVEA.L _IntuitionBase,A6 - JSR -378(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ModifyIDCMP(window : pWindow; flags : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVE.L flags,D0 - MOVEA.L _IntuitionBase,A6 - JSR -150(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE ModifyProp(gadget : pGadget; window : pWindow; requester : pRequester; flags : ULONG; horizPot : ULONG; vertPot : ULONG; horizBody : ULONG; vertBody : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gadget,A0 - MOVEA.L window,A1 - MOVEA.L requester,A2 - MOVE.L flags,D0 - MOVE.L horizPot,D1 - MOVE.L vertPot,D2 - MOVE.L horizBody,D3 - MOVE.L vertBody,D4 - MOVEA.L _IntuitionBase,A6 - JSR -156(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE MoveScreen(screen : pScreen; dx : LONGINT; dy : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVE.L dx,D0 - MOVE.L dy,D1 - MOVEA.L _IntuitionBase,A6 - JSR -162(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE MoveWindow(window : pWindow; dx : LONGINT; dy : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVE.L dx,D0 - MOVE.L dy,D1 - MOVEA.L _IntuitionBase,A6 - JSR -168(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE MoveWindowInFrontOf(window : pWindow; behindWindow : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L behindWindow,A1 - MOVEA.L _IntuitionBase,A6 - JSR -480(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE NewModifyProp(gadget : pGadget; window : pWindow; requester : pRequester; flags : ULONG; horizPot : ULONG; vertPot : ULONG; horizBody : ULONG; vertBody : ULONG; numGad : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gadget,A0 - MOVEA.L window,A1 - MOVEA.L requester,A2 - MOVE.L flags,D0 - MOVE.L horizPot,D1 - MOVE.L vertPot,D2 - MOVE.L horizBody,D3 - MOVE.L vertBody,D4 - MOVE.L numGad,D5 - MOVEA.L _IntuitionBase,A6 - JSR -468(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION NewObjectA(classPtr : pIClass;const classID : pCHAR;const tagList : pTagItem) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L classPtr,A0 - MOVEA.L classID,A1 - MOVEA.L tagList,A2 - MOVEA.L _IntuitionBase,A6 - JSR -636(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION NextObject(objectPtrPtr : POINTER) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L objectPtrPtr,A0 - MOVEA.L _IntuitionBase,A6 - JSR -666(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION NextPubScreen(const screen : pScreen; namebuf : pCHAR) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVEA.L namebuf,A1 - MOVEA.L _IntuitionBase,A6 - JSR -534(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ObtainGIRPort(gInfo : pGadgetInfo) : pRastPort; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gInfo,A0 - MOVEA.L _IntuitionBase,A6 - JSR -558(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE OffGadget(gadget : pGadget; window : pWindow; requester : pRequester); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gadget,A0 - MOVEA.L window,A1 - MOVEA.L requester,A2 - MOVEA.L _IntuitionBase,A6 - JSR -174(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE OffMenu(window : pWindow; menuNumber : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVE.L menuNumber,D0 - MOVEA.L _IntuitionBase,A6 - JSR -180(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE OnGadget(gadget : pGadget; window : pWindow; requester : pRequester); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gadget,A0 - MOVEA.L window,A1 - MOVEA.L requester,A2 - MOVEA.L _IntuitionBase,A6 - JSR -186(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE OnMenu(window : pWindow; menuNumber : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVE.L menuNumber,D0 - MOVEA.L _IntuitionBase,A6 - JSR -192(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION OpenScreen(const newScreen : pNewScreen) : pScreen; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L newScreen,A0 - MOVEA.L _IntuitionBase,A6 - JSR -198(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenScreenTagList(const newScreen : pNewScreen;const tagList : pTagItem) : pScreen; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L newScreen,A0 - MOVEA.L tagList,A1 - MOVEA.L _IntuitionBase,A6 - JSR -612(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenWindow(const newWindow : pNewWindow) : pWindow; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L newWindow,A0 - MOVEA.L _IntuitionBase,A6 - JSR -204(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenWindowTagList(const newWindow : pNewWindow;const tagList : pTagItem) : pWindow; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L newWindow,A0 - MOVEA.L tagList,A1 - MOVEA.L _IntuitionBase,A6 - JSR -606(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenWorkBench : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _IntuitionBase,A6 - JSR -210(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION PointInImage(point : ULONG; image : pImage) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L point,D0 - MOVEA.L image,A0 - MOVEA.L _IntuitionBase,A6 - JSR -624(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE PrintIText(rp : pRastPort;const iText : pIntuiText; left : LONGINT; top : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A0 - MOVEA.L iText,A1 - MOVE.L left,D0 - MOVE.L top,D1 - MOVEA.L _IntuitionBase,A6 - JSR -216(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION PubScreenStatus(screen : pScreen; statusFlags : ULONG) : WORD; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVE.L statusFlags,D0 - MOVEA.L _IntuitionBase,A6 - JSR -552(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION QueryOverscan(displayID : ULONG; rect : pRectangle; oScanType : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L displayID,A0 - MOVEA.L rect,A1 - MOVE.L oScanType,D0 - MOVEA.L _IntuitionBase,A6 - JSR -474(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE RefreshGadgets(gadgets : pGadget; window : pWindow; requester : pRequester); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gadgets,A0 - MOVEA.L window,A1 - MOVEA.L requester,A2 - MOVEA.L _IntuitionBase,A6 - JSR -222(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RefreshGList(gadgets : pGadget; window : pWindow; requester : pRequester; numGad : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gadgets,A0 - MOVEA.L window,A1 - MOVEA.L requester,A2 - MOVE.L numGad,D0 - MOVEA.L _IntuitionBase,A6 - JSR -432(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RefreshWindowFrame(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -456(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ReleaseGIRPort(rp : pRastPort); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rp,A0 - MOVEA.L _IntuitionBase,A6 - JSR -564(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION RemakeDisplay : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _IntuitionBase,A6 - JSR -384(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE RemoveClass(classPtr : pIClass); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L classPtr,A0 - MOVEA.L _IntuitionBase,A6 - JSR -708(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION RemoveGadget(window : pWindow; gadget : pGadget) : WORD; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L gadget,A1 - MOVEA.L _IntuitionBase,A6 - JSR -228(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION RemoveGList(remPtr : pWindow; gadget : pGadget; numGad : LONGINT) : WORD; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L remPtr,A0 - MOVEA.L gadget,A1 - MOVE.L numGad,D0 - MOVEA.L _IntuitionBase,A6 - JSR -444(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE ReportMouse(flag : LONGINT; window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L flag,D0 - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -234(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION Request(requester : pRequester; window : pWindow) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L requester,A0 - MOVEA.L window,A1 - MOVEA.L _IntuitionBase,A6 - JSR -240(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION ResetMenuStrip(window : pWindow; menu : pMenu) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L menu,A1 - MOVEA.L _IntuitionBase,A6 - JSR -702(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION RethinkDisplay : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _IntuitionBase,A6 - JSR -390(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE ScreenDepth(screen : pScreen; flags : ULONG; reserved : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVE.L flags,D0 - MOVEA.L reserved,A1 - MOVEA.L _IntuitionBase,A6 - JSR -786(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ScreenPosition(screen : pScreen; flags : ULONG; x1 : LONGINT; y1 : LONGINT; x2 : LONGINT; y2 : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVE.L flags,D0 - MOVE.L x1,D1 - MOVE.L y1,D2 - MOVE.L x2,D3 - MOVE.L y2,D4 - MOVEA.L _IntuitionBase,A6 - JSR -792(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ScreenToBack(screen : pScreen); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVEA.L _IntuitionBase,A6 - JSR -246(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ScreenToFront(screen : pScreen); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVEA.L _IntuitionBase,A6 - JSR -252(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ScrollWindowRaster(win : pWindow; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L win,A1 - MOVE.L dx,D0 - MOVE.L dy,D1 - MOVE.L xMin,D2 - MOVE.L yMin,D3 - MOVE.L xMax,D4 - MOVE.L yMax,D5 - MOVEA.L _IntuitionBase,A6 - JSR -798(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION SetAttrsA(obj : POINTER;const tagList : pTagItem) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L obj,A0 - MOVEA.L tagList,A1 - MOVEA.L _IntuitionBase,A6 - JSR -648(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE SetDefaultPubScreen(const name : pCHAR); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L _IntuitionBase,A6 - JSR -540(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION SetDMRequest(window : pWindow; requester : pRequester) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L requester,A1 - MOVEA.L _IntuitionBase,A6 - JSR -258(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION SetEditHook(hook : pHook) : pHook; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L hook,A0 - MOVEA.L _IntuitionBase,A6 - JSR -492(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetGadgetAttrsA(gadget : pGadget; window : pWindow; requester : pRequester;const tagList : pTagItem) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L gadget,A0 - MOVEA.L window,A1 - MOVEA.L requester,A2 - MOVEA.L tagList,A3 - MOVEA.L _IntuitionBase,A6 - JSR -660(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetMenuStrip(window : pWindow; menu : pMenu) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L menu,A1 - MOVEA.L _IntuitionBase,A6 - JSR -264(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION SetMouseQueue(window : pWindow; queueLength : ULONG) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVE.L queueLength,D0 - MOVEA.L _IntuitionBase,A6 - JSR -498(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE SetPointer(window : pWindow; pointer_ : pword; height : LONGINT; width : LONGINT; xOffset : LONGINT; yOffset : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L pointer_,A1 - MOVE.L height,D0 - MOVE.L width,D1 - MOVE.L xOffset,D2 - MOVE.L yOffset,D3 - MOVEA.L _IntuitionBase,A6 - JSR -270(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION SetPrefs(const preferences : pPreferences; size : LONGINT; inform : LONGINT) : pPreferences; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L preferences,A0 - MOVE.L size,D0 - MOVE.L inform,D1 - MOVEA.L _IntuitionBase,A6 - JSR -324(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetPubScreenModes(modes : ULONG) : WORD; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L modes,D0 - MOVEA.L _IntuitionBase,A6 - JSR -546(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE SetWindowPointerA(win : pWindow;const taglist : pTagItem); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L win,A0 - MOVEA.L taglist,A1 - MOVEA.L _IntuitionBase,A6 - JSR -816(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE SetWindowTitles(window : pWindow;const windowTitle : pCHAR;const screenTitle : pCHAR); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L windowTitle,A1 - MOVEA.L screenTitle,A2 - MOVEA.L _IntuitionBase,A6 - JSR -276(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ShowTitle(screen : pScreen; showIt : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L screen,A0 - MOVE.L showIt,D0 - MOVEA.L _IntuitionBase,A6 - JSR -282(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE SizeWindow(window : pWindow; dx : LONGINT; dy : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVE.L dx,D0 - MOVE.L dy,D1 - MOVEA.L _IntuitionBase,A6 - JSR -288(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION SysReqHandler(window : pWindow; idcmpPtr : pULONG; waitInput : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L idcmpPtr,A1 - MOVE.L waitInput,D0 - MOVEA.L _IntuitionBase,A6 - JSR -600(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION TimedDisplayAlert(alertNumber : ULONG;const string_ : pCHAR; height : ULONG; time : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L alertNumber,D0 - MOVEA.L string_,A0 - MOVE.L height,D1 - MOVEA.L time,A1 - MOVEA.L _IntuitionBase,A6 - JSR -822(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE UnlockIBase(ibLock : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L ibLock,A0 - MOVEA.L _IntuitionBase,A6 - JSR -420(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE UnlockPubScreen(const name : pCHAR; screen : pScreen); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L screen,A1 - MOVEA.L _IntuitionBase,A6 - JSR -516(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE UnlockPubScreenList; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _IntuitionBase,A6 - JSR -528(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION ViewAddress : pView; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _IntuitionBase,A6 - JSR -294(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ViewPortAddress(const window : pWindow) : pViewPort; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -300(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION WBenchToBack : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _IntuitionBase,A6 - JSR -336(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION WBenchToFront : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L _IntuitionBase,A6 - JSR -342(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION WindowLimits(window : pWindow; widthMin : LONGINT; heightMin : LONGINT; widthMax : ULONG; heightMax : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVE.L widthMin,D0 - MOVE.L heightMin,D1 - MOVE.L widthMax,D2 - MOVE.L heightMax,D3 - MOVEA.L _IntuitionBase,A6 - JSR -318(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE WindowToBack(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -306(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE WindowToFront(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -312(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE ZipWindow(window : pWindow); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L _IntuitionBase,A6 - JSR -504(A6) - MOVEA.L (A7)+,A6 - END; -END; - - FUNCTION DisplayAlert(alertNumber : ULONG;const string_ : string; height : ULONG) : BOOLEAN; begin DisplayAlert := DisplayAlert(alertNumber,pas2c(string_),height); diff --git a/packages/amunits/src/coreunits/keymap.pas b/packages/amunits/src/coreunits/keymap.pas index 1688b985a1..eed8858705 100644 --- a/packages/amunits/src/coreunits/keymap.pas +++ b/packages/amunits/src/coreunits/keymap.pas @@ -32,11 +32,7 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit keymap; @@ -114,67 +110,14 @@ VAR KeymapBase : pLibrary; const KEYMAPNAME : PChar = 'keymap.library'; -FUNCTION AskKeyMapDefault : pKeyMap; -FUNCTION MapANSI(thestring : pCHAR; count : LONGINT; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT; -FUNCTION MapRawKey(event : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : smallint; -PROCEDURE SetKeyMapDefault(keyMap : pKeyMap); +FUNCTION AskKeyMapDefault : pKeyMap; syscall KeymapBase 036; +FUNCTION MapANSI(thestring : pCHAR location 'a0'; count : LONGINT location 'd0'; buffer : pCHAR location 'a1'; length : LONGINT location 'd1'; keyMap : pKeyMap location 'a2') : LONGINT; syscall KeymapBase 048; +FUNCTION MapRawKey(event : pInputEvent location 'a0'; buffer : pCHAR location 'a1'; length : LONGINT location 'd1'; keyMap : pKeyMap location 'a2') : smallint; syscall KeymapBase 042; +PROCEDURE SetKeyMapDefault(keyMap : pKeyMap location 'a0'); syscall KeymapBase 030; IMPLEMENTATION -uses msgbox; - -FUNCTION AskKeyMapDefault : pKeyMap; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L KeymapBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION MapANSI(thestring : pCHAR; count : LONGINT; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L thestring,A0 - MOVE.L count,D0 - MOVEA.L buffer,A1 - MOVE.L length,D1 - MOVEA.L keyMap,A2 - MOVEA.L KeymapBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION MapRawKey(event : pInputEvent; buffer : pCHAR; length : LONGINT; keyMap : pKeyMap) : smallint; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L event,A0 - MOVEA.L buffer,A1 - MOVE.L length,D1 - MOVEA.L keyMap,A2 - MOVEA.L KeymapBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE SetKeyMapDefault(keyMap : pKeyMap); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L keyMap,A0 - MOVEA.L KeymapBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - END; -END; +uses amsgbox; {$I useautoopenlib.inc} {$ifdef use_auto_openlib} diff --git a/packages/amunits/src/coreunits/layers.pas b/packages/amunits/src/coreunits/layers.pas index b99ceb0883..1f9334a8ed 100644 --- a/packages/amunits/src/coreunits/layers.pas +++ b/packages/amunits/src/coreunits/layers.pas @@ -31,7 +31,7 @@ nils.sjoholm@mailbox.swipnet.se } - +{$PACKRECORDS 2} {$I useamigasmartlink.inc} {$ifdef use_amiga_smartlink} {$smartlink on} @@ -40,7 +40,7 @@ UNIT layers; INTERFACE -USES exec, graphics, utility; +USES exec, agraphics, utility; const @@ -138,7 +138,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox; +amsgbox; {$endif dont_use_openlib} FUNCTION BeginUpdate(l : pLayer) : LONGINT; diff --git a/packages/amunits/src/coreunits/locale.pas b/packages/amunits/src/coreunits/locale.pas index 6414e01f86..b91273e5e1 100644 --- a/packages/amunits/src/coreunits/locale.pas +++ b/packages/amunits/src/coreunits/locale.pas @@ -34,11 +34,7 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} UNIT locale; @@ -271,30 +267,31 @@ VAR LocaleBase : pLocaleBase; const LOCALENAME : PChar = 'locale.library'; -PROCEDURE CloseCatalog(catalog : pCatalog); -PROCEDURE CloseLocale(locale : pLocale); -FUNCTION ConvToLower(locale : pLocale; character : ULONG) : ULONG; -FUNCTION ConvToUpper(locale : pLocale; character : ULONG) : ULONG; -PROCEDURE FormatDate(locale : pLocale; fmtTemplate : pCHAR; date : pDateStamp; putCharFunc : pHook); -FUNCTION FormatString(locale : pLocale; fmtTemplate : pCHAR; dataStream : POINTER; putCharFunc : pHook) : POINTER; -FUNCTION GetCatalogStr(catalog : pCatalog; stringNum : LONGINT; defaultString : pCHAR) : pCHAR; -FUNCTION GetLocaleStr(locale : pLocale; stringNum : ULONG) : pCHAR; -FUNCTION IsAlNum(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsAlpha(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsCntrl(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsDigit(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsGraph(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsLower(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsPrint(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsPunct(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsSpace(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsUpper(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION IsXDigit(locale : pLocale; character : ULONG) : BOOLEAN; -FUNCTION OpenCatalogA(locale : pLocale; name : pCHAR; tags : pTagItem) : pCatalog; -FUNCTION OpenLocale(name : pCHAR) : pLocale; -FUNCTION ParseDate(locale : pLocale; date : pDateStamp; fmtTemplate : pCHAR; getCharFunc : pHook) : BOOLEAN; -FUNCTION StrConvert(locale : pLocale; string1 : pCHAR; buffer : POINTER; bufferSize : ULONG; typ : ULONG) : ULONG; -FUNCTION StrnCmp(locale : pLocale; string1 : pCHAR; string2 : pCHAR; length : LONGINT; typ : ULONG) : LONGINT; +PROCEDURE CloseCatalog(catalog : pCatalog location 'a0'); syscall LocaleBase 036; +PROCEDURE CloseLocale(locale : pLocale location 'a0'); syscall LocaleBase 042; +FUNCTION ConvToLower(locale : pLocale location 'a0'; character : ULONG location 'd0') : ULONG; syscall LocaleBase 048; +FUNCTION ConvToUpper(locale : pLocale location 'a0'; character : ULONG location 'd0') : ULONG; syscall LocaleBase 054; +PROCEDURE FormatDate(locale : pLocale location 'a0'; fmtTemplate : pCHAR location 'a1'; date : pDateStamp location 'a2'; putCharFunc : pHook location 'a3'); syscall LocaleBase 060; +FUNCTION FormatString(locale : pLocale location 'a0'; fmtTemplate : pCHAR location 'a1'; dataStream : POINTER location 'a2'; putCharFunc : pHook location 'a3') : POINTER; syscall LocaleBase 066; +FUNCTION GetCatalogStr(catalog : pCatalog location 'a0'; stringNum : LONGINT location 'd0'; defaultString : pCHAR location 'a1') : pCHAR; syscall LocaleBase 072; +FUNCTION GetLocaleStr(locale : pLocale location 'a0'; stringNum : ULONG location 'd0') : pCHAR; syscall LocaleBase 078; +FUNCTION IsAlNum(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 084; +FUNCTION IsAlpha(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 090; +FUNCTION IsCntrl(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 096; +FUNCTION IsDigit(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 102; +FUNCTION IsGraph(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 108; +FUNCTION IsLower(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 114; +FUNCTION IsPrint(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 120; +FUNCTION IsPunct(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 126; +FUNCTION IsSpace(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 132; +FUNCTION IsUpper(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 138; +FUNCTION IsXDigit(locale : pLocale location 'a0'; character : ULONG location 'd0') : LongBool; syscall LocaleBase 144; +FUNCTION OpenCatalogA(locale : pLocale location 'a0'; name : pCHAR location 'a1'; tags : pTagItem location 'a2') : pCatalog; syscall LocaleBase 150; +FUNCTION OpenLocale(name : pCHAR location 'a0') : pLocale; syscall LocaleBase 156; +FUNCTION ParseDate(locale : pLocale location 'a0'; date : pDateStamp location 'a1'; fmtTemplate : pCHAR location 'a2'; getCharFunc : pHook location 'a3') : LongBool; syscall LocaleBase 162; +FUNCTION StrConvert(locale : pLocale location 'a0'; string1 : pCHAR location 'a1'; buffer : POINTER location 'a2'; bufferSize : ULONG location 'd0'; typ : ULONG location 'd1') : ULONG; syscall LocaleBase 174; +FUNCTION StrnCmp(locale : pLocale location 'a0'; string1 : pCHAR location 'a1'; string2 : pCHAR location 'a2'; length : LONGINT location 'd0'; typ : ULONG location 'd1') : LONGINT; syscall LocaleBase 180; + {Here we read how to compile this unit} {You can remove this include and use a define instead} @@ -311,364 +308,9 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox; +amsgbox; {$endif dont_use_openlib} -PROCEDURE CloseCatalog(catalog : pCatalog); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L catalog,A0 - MOVEA.L LocaleBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE CloseLocale(locale : pLocale); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVEA.L LocaleBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION ConvToLower(locale : pLocale; character : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ConvToUpper(locale : pLocale; character : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE FormatDate(locale : pLocale; fmtTemplate : pCHAR; date : pDateStamp; putCharFunc : pHook); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVEA.L fmtTemplate,A1 - MOVEA.L date,A2 - MOVEA.L putCharFunc,A3 - MOVEA.L LocaleBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION FormatString(locale : pLocale; fmtTemplate : pCHAR; dataStream : POINTER; putCharFunc : pHook) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVEA.L fmtTemplate,A1 - MOVEA.L dataStream,A2 - MOVEA.L putCharFunc,A3 - MOVEA.L LocaleBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetCatalogStr(catalog : pCatalog; stringNum : LONGINT; defaultString : pCHAR) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L catalog,A0 - MOVE.L stringNum,D0 - MOVEA.L defaultString,A1 - MOVEA.L LocaleBase,A6 - JSR -072(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetLocaleStr(locale : pLocale; stringNum : ULONG) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L stringNum,D0 - MOVEA.L LocaleBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION IsAlNum(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -084(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsAlpha(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -090(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsCntrl(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -096(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsDigit(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsGraph(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -108(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsLower(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsPrint(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsPunct(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -126(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsSpace(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsUpper(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -138(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsXDigit(locale : pLocale; character : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVE.L character,D0 - MOVEA.L LocaleBase,A6 - JSR -144(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION OpenCatalogA(locale : pLocale; name : pCHAR; tags : pTagItem) : pCatalog; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVEA.L name,A1 - MOVEA.L tags,A2 - MOVEA.L LocaleBase,A6 - JSR -150(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION OpenLocale(name : pCHAR) : pLocale; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L LocaleBase,A6 - JSR -156(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ParseDate(locale : pLocale; date : pDateStamp; fmtTemplate : pCHAR; getCharFunc : pHook) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVEA.L date,A1 - MOVEA.L fmtTemplate,A2 - MOVEA.L getCharFunc,A3 - MOVEA.L LocaleBase,A6 - JSR -162(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION StrConvert(locale : pLocale; string1 : pCHAR; buffer : POINTER; bufferSize : ULONG; typ : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVEA.L string1,A1 - MOVEA.L buffer,A2 - MOVE.L bufferSize,D0 - MOVE.L typ,D1 - MOVEA.L LocaleBase,A6 - JSR -174(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION StrnCmp(locale : pLocale; string1 : pCHAR; string2 : pCHAR; length : LONGINT; typ : ULONG) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L locale,A0 - MOVEA.L string1,A1 - MOVEA.L string2,A2 - MOVE.L length,D0 - MOVE.L typ,D1 - MOVEA.L LocaleBase,A6 - JSR -180(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; const { Change VERSION and LIBVERSION to proper values } diff --git a/packages/amunits/src/coreunits/lowlevel.pas b/packages/amunits/src/coreunits/lowlevel.pas index fcf0283d10..105677cc07 100644 --- a/packages/amunits/src/coreunits/lowlevel.pas +++ b/packages/amunits/src/coreunits/lowlevel.pas @@ -31,11 +31,7 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} UNIT lowlevel; @@ -267,22 +263,21 @@ Const VAR LowLevelBase : pLibrary; -FUNCTION AddKBInt(const intRoutine : POINTER;const intData : POINTER) : POINTER; -FUNCTION AddTimerInt(const intRoutine : POINTER;const intData : POINTER) : POINTER; -FUNCTION AddVBlankInt(const intRoutine : POINTER;const intData : POINTER) : POINTER; -FUNCTION ElapsedTime(context : pEClockVal) : ULONG; -FUNCTION GetKey : ULONG; -FUNCTION GetLanguageSelection : BYTE; -PROCEDURE QueryKeys(queryArray : pKeyQuery; arraySize : ULONG); -FUNCTION ReadJoyPort(port : ULONG) : ULONG; -PROCEDURE RemKBInt(intHandle : POINTER); -PROCEDURE RemTimerInt(intHandle : POINTER); -PROCEDURE RemVBlankInt(intHandle : POINTER); -FUNCTION SetJoyPortAttrsA(portNumber : ULONG;const tagList : pTagItem) : BOOLEAN; -PROCEDURE StartTimerInt(intHandle : POINTER; timeInterval : ULONG; continuous : LONGINT); -PROCEDURE StopTimerInt(intHandle : POINTER); -FUNCTION SystemControlA(const tagList : pTagItem) : ULONG; - +FUNCTION AddKBInt(const intRoutine : POINTER location 'a0'; const intData : POINTER location 'a1') : POINTER; syscall LowLevelBase 060; +FUNCTION AddTimerInt(const intRoutine : POINTER location 'a0'; const intData : POINTER location 'a1') : POINTER; syscall LowLevelBase 078; +FUNCTION AddVBlankInt(const intRoutine : POINTER location 'a0'; const intData : POINTER location 'a1') : POINTER; syscall LowLevelBase 108; +FUNCTION ElapsedTime(context : pEClockVal location 'a0') : ULONG; syscall LowLevelBase 102; +FUNCTION GetKey : ULONG; syscall LowLevelBase 048; +FUNCTION GetLanguageSelection : BYTE; syscall LowLevelBase 036; +PROCEDURE QueryKeys(queryArray : pKeyQuery location 'a0'; arraySize : ULONG location 'd1'); syscall LowLevelBase 054; +FUNCTION ReadJoyPort(port : ULONG location 'd0') : ULONG; syscall LowLevelBase 030; +PROCEDURE RemKBInt(intHandle : POINTER location 'a1'); syscall LowLevelBase 066; +PROCEDURE RemTimerInt(intHandle : POINTER location 'a1'); syscall LowLevelBase 084; +PROCEDURE RemVBlankInt(intHandle : POINTER location 'a1'); syscall LowLevelBase 114; +FUNCTION SetJoyPortAttrsA(portNumber : ULONG location 'd0'; const tagList : pTagItem location 'a1') : LongBool; syscall LowLevelBase 132; +PROCEDURE StartTimerInt(intHandle : POINTER location 'a1'; timeInterval : ULONG location 'd0'; continuous : LONGINT location 'd1'); syscall LowLevelBase 096; +PROCEDURE StopTimerInt(intHandle : POINTER location 'a1'); syscall LowLevelBase 090; +FUNCTION SystemControlA(const tagList : pTagItem location 'a1') : ULONG; syscall LowLevelBase 072; {Here we read how to compile this unit} {You can remove this include and use a define instead} @@ -298,191 +293,9 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} -FUNCTION AddKBInt(const intRoutine : POINTER;const intData : POINTER) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L intRoutine,A0 - MOVEA.L intData,A1 - MOVEA.L LowLevelBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AddTimerInt(const intRoutine : POINTER;const intData : POINTER) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L intRoutine,A0 - MOVEA.L intData,A1 - MOVEA.L LowLevelBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AddVBlankInt(const intRoutine : POINTER;const intData : POINTER) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L intRoutine,A0 - MOVEA.L intData,A1 - MOVEA.L LowLevelBase,A6 - JSR -108(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ElapsedTime(context : pEClockVal) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L context,A0 - MOVEA.L LowLevelBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetKey : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L LowLevelBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetLanguageSelection : BYTE; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L LowLevelBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE QueryKeys(queryArray : pKeyQuery; arraySize : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L queryArray,A0 - MOVE.L arraySize,D1 - MOVEA.L LowLevelBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION ReadJoyPort(port : ULONG) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L port,D0 - MOVEA.L LowLevelBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE RemKBInt(intHandle : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L intHandle,A1 - MOVEA.L LowLevelBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RemTimerInt(intHandle : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L intHandle,A1 - MOVEA.L LowLevelBase,A6 - JSR -084(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE RemVBlankInt(intHandle : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L intHandle,A1 - MOVEA.L LowLevelBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION SetJoyPortAttrsA(portNumber : ULONG;const tagList : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L portNumber,D0 - MOVEA.L tagList,A1 - MOVEA.L LowLevelBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE StartTimerInt(intHandle : POINTER; timeInterval : ULONG; continuous : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L intHandle,A1 - MOVE.L timeInterval,D0 - MOVE.L continuous,D1 - MOVEA.L LowLevelBase,A6 - JSR -096(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE StopTimerInt(intHandle : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L intHandle,A1 - MOVEA.L LowLevelBase,A6 - JSR -090(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION SystemControlA(const tagList : pTagItem) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L tagList,A1 - MOVEA.L LowLevelBase,A6 - JSR -072(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - const { Change VERSION and LIBVERSION to proper values } diff --git a/packages/amunits/src/coreunits/nonvolatile.pas b/packages/amunits/src/coreunits/nonvolatile.pas index ea5edd5a20..26a2fda66e 100644 --- a/packages/amunits/src/coreunits/nonvolatile.pas +++ b/packages/amunits/src/coreunits/nonvolatile.pas @@ -27,11 +27,7 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} UNIT nonvolatile; @@ -86,13 +82,13 @@ VAR NVBase : pLibrary; const NONVOLATILENAME : PChar = 'nonvolatile.library'; -FUNCTION DeleteNV(const appName : pCHAR;const itemName : pCHAR; killRequesters : LONGINT) : BOOLEAN; -PROCEDURE FreeNVData(data : POINTER); -FUNCTION GetCopyNV(const appName : pCHAR;const itemName : pCHAR; killRequesters : LONGINT) : POINTER; -FUNCTION GetNVInfo(killRequesters : LONGINT) : pNVInfo; -FUNCTION GetNVList(const appName : pCHAR; killRequesters : LONGINT) : pMinList; -FUNCTION SetNVProtection(const appName : pCHAR;const itemName : pCHAR; mask : LONGINT; killRequesters : LONGINT) : BOOLEAN; -FUNCTION StoreNV(const appName : pCHAR;const itemName : pCHAR;const data : POINTER; length : ULONG; killRequesters : LONGINT) : WORD; +FUNCTION DeleteNV(const appName : pCHAR location 'a0'; const itemName : pCHAR location 'a1'; killRequesters : LONGINT location 'd1') : LongBool; syscall NVBase 048; +PROCEDURE FreeNVData(data : POINTER location 'a0'); syscall NVBase 036; +FUNCTION GetCopyNV(const appName : pCHAR location 'a0'; const itemName : pCHAR location 'a1'; killRequesters : LONGINT location 'd1') : POINTER; syscall NVBase 030; +FUNCTION GetNVInfo(killRequesters : LONGINT location 'd1') : pNVInfo; syscall NVBase 054; +FUNCTION GetNVList(const appName : pCHAR location 'a0'; killRequesters : LONGINT location 'd1') : pMinList; syscall NVBase 060; +FUNCTION SetNVProtection(const appName : pCHAR location 'a0'; const itemName : pCHAR location 'a1'; mask : LONGINT location 'd2'; killRequesters : LONGINT location 'd1') : LongBool; syscall NVBase 066; +FUNCTION StoreNV(const appName : pCHAR location 'a0'; const itemName : pCHAR location 'a1'; const data : POINTER location 'a2'; length : ULONG location 'd0'; killRequesters : LONGINT location 'd1') : WORD; syscall NVBase 042; {Here we read how to compile this unit} {You can remove this include and use a define instead} @@ -108,110 +104,9 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} -FUNCTION DeleteNV(const appName : pCHAR;const itemName : pCHAR; killRequesters : LONGINT) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L appName,A0 - MOVEA.L itemName,A1 - MOVE.L killRequesters,D1 - MOVEA.L NVBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE FreeNVData(data : POINTER); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L data,A0 - MOVEA.L NVBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION GetCopyNV(const appName : pCHAR;const itemName : pCHAR; killRequesters : LONGINT) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L appName,A0 - MOVEA.L itemName,A1 - MOVE.L killRequesters,D1 - MOVEA.L NVBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetNVInfo(killRequesters : LONGINT) : pNVInfo; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L killRequesters,D1 - MOVEA.L NVBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GetNVList(const appName : pCHAR; killRequesters : LONGINT) : pMinList; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L appName,A0 - MOVE.L killRequesters,D1 - MOVEA.L NVBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION SetNVProtection(const appName : pCHAR;const itemName : pCHAR; mask : LONGINT; killRequesters : LONGINT) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L appName,A0 - MOVEA.L itemName,A1 - MOVE.L mask,D2 - MOVE.L killRequesters,D1 - MOVEA.L NVBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION StoreNV(const appName : pCHAR;const itemName : pCHAR;const data : POINTER; length : ULONG; killRequesters : LONGINT) : WORD; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L appName,A0 - MOVEA.L itemName,A1 - MOVEA.L data,A2 - MOVE.L length,D0 - MOVE.L killRequesters,D1 - MOVEA.L NVBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - const { Change VERSION and LIBVERSION to proper values } diff --git a/packages/amunits/src/coreunits/prefs.pas b/packages/amunits/src/coreunits/prefs.pas index 2e2025abe9..e300eb91f3 100644 --- a/packages/amunits/src/coreunits/prefs.pas +++ b/packages/amunits/src/coreunits/prefs.pas @@ -32,7 +32,7 @@ unit prefs; INTERFACE -uses exec, iffparse, graphics, timer, intuition; +uses exec, iffparse, agraphics, timer, intuition; { Asl } diff --git a/packages/amunits/src/coreunits/realtime.pas b/packages/amunits/src/coreunits/realtime.pas index edc42cbf7e..706816b336 100644 --- a/packages/amunits/src/coreunits/realtime.pas +++ b/packages/amunits/src/coreunits/realtime.pas @@ -265,7 +265,7 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} FUNCTION CreatePlayerA(const tagList : pTagItem) : pPlayer; diff --git a/packages/amunits/src/coreunits/rexx.pas b/packages/amunits/src/coreunits/rexx.pas index 57a8309115..679da48e2e 100644 --- a/packages/amunits/src/coreunits/rexx.pas +++ b/packages/amunits/src/coreunits/rexx.pas @@ -33,11 +33,7 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} UNIT rexx; @@ -487,16 +483,16 @@ VAR RexxSysBase : pLibrary; const REXXSYSLIBNAME : PChar = 'rexxsyslib.library'; -PROCEDURE ClearRexxMsg(msgptr : pRexxMsg; count : ULONG); -FUNCTION CreateArgstring(const argstring : pCHAR; length : ULONG) : pCHAR; -FUNCTION CreateRexxMsg(const port : pMsgPort;const extension : pCHAR; host : pCHAR) : pRexxMsg; -PROCEDURE DeleteArgstring(argstring : pCHAR); -PROCEDURE DeleteRexxMsg(packet : pRexxMsg); -FUNCTION FillRexxMsg(msgptr : pRexxMsg; count : ULONG; mask : ULONG) : BOOLEAN; -FUNCTION IsRexxMsg(const msgptr : pRexxMsg) : BOOLEAN; -FUNCTION LengthArgstring(const argstring : pCHAR) : ULONG; -PROCEDURE LockRexxBase(resource : ULONG); -PROCEDURE UnlockRexxBase(resource : ULONG); +PROCEDURE ClearRexxMsg(msgptr : pRexxMsg location 'a0'; count : ULONG location 'd0'); syscall RexxSysBase 156; +FUNCTION CreateArgstring(const argstring : pCHAR location 'a0'; length : ULONG location 'd0') : pCHAR; syscall RexxSysBase 126; +FUNCTION CreateRexxMsg(const port : pMsgPort location 'a0'; const extension : pCHAR location 'a1'; host : pCHAR location 'd0') : pRexxMsg; syscall RexxSysBase 144; +PROCEDURE DeleteArgstring(argstring : pCHAR location 'd0'); syscall RexxSysBase 132; +PROCEDURE DeleteRexxMsg(packet : pRexxMsg location 'a0'); syscall RexxSysBase 150; +FUNCTION FillRexxMsg(msgptr : pRexxMsg location 'a0'; count : ULONG location 'd0'; mask : ULONG location 'd1') : LongBool; syscall RexxSysBase 162; +FUNCTION IsRexxMsg(const msgptr : pRexxMsg location 'a0') : LongBool; syscall RexxSysBase 168; +FUNCTION LengthArgstring(const argstring : pCHAR location 'a0') : ULONG; syscall RexxSysBase 138; +PROCEDURE LockRexxBase(resource : ULONG location 'd0'); syscall RexxSysBase 450; +PROCEDURE UnlockRexxBase(resource : ULONG location 'd0'); syscall RexxSysBase 456; FUNCTION CreateArgstring(const argstring : string; length : ULONG) : pCHAR; FUNCTION CreateRexxMsg(const port : pMsgPort;const extension : string; host : pCHAR) : pRexxMsg; @@ -520,139 +516,10 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} pastoc; - -PROCEDURE ClearRexxMsg(msgptr : pRexxMsg; count : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L msgptr,A0 - MOVE.L count,D0 - MOVEA.L RexxSysBase,A6 - JSR -156(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION CreateArgstring(const argstring : pCHAR; length : ULONG) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L argstring,A0 - MOVE.L length,D0 - MOVEA.L RexxSysBase,A6 - JSR -126(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION CreateRexxMsg(const port : pMsgPort;const extension : pCHAR; host : pCHAR) : pRexxMsg; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L port,A0 - MOVEA.L extension,A1 - MOVE.L host,D0 - MOVEA.L RexxSysBase,A6 - JSR -144(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE DeleteArgstring(argstring : pCHAR); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L argstring,A0 - MOVEA.L RexxSysBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE DeleteRexxMsg(packet : pRexxMsg); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L packet,A0 - MOVEA.L RexxSysBase,A6 - JSR -150(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION FillRexxMsg(msgptr : pRexxMsg; count : ULONG; mask : ULONG) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L msgptr,A0 - MOVE.L count,D0 - MOVE.L mask,D1 - MOVEA.L RexxSysBase,A6 - JSR -162(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION IsRexxMsg(const msgptr : pRexxMsg) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L msgptr,A0 - MOVEA.L RexxSysBase,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 LengthArgstring(const argstring : pCHAR) : ULONG; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L argstring,A0 - MOVEA.L RexxSysBase,A6 - JSR -138(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE LockRexxBase(resource : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L resource,D0 - MOVEA.L RexxSysBase,A6 - JSR -450(A6) - MOVEA.L (A7)+,A6 - END; -END; - -PROCEDURE UnlockRexxBase(resource : ULONG); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L resource,D0 - MOVEA.L RexxSysBase,A6 - JSR -456(A6) - MOVEA.L (A7)+,A6 - END; -END; - - FUNCTION CreateArgstring(const argstring : string; length : ULONG) : pCHAR; begin CreateArgstring := CreateArgstring(pas2c(argstring),length); diff --git a/packages/amunits/src/coreunits/timer.pas b/packages/amunits/src/coreunits/timer.pas index caafc63c60..6a9e800deb 100644 --- a/packages/amunits/src/coreunits/timer.pas +++ b/packages/amunits/src/coreunits/timer.pas @@ -25,11 +25,7 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit timer; @@ -88,73 +84,12 @@ Const var TimerBase : Pointer; -Procedure AddTime( Dest, Source : ptimeval); -Function CmpTime( Dest, Source : ptimeval) : ULONG; -Procedure SubTime( Dest, Source : ptimeval); -function ReadEClock(Dest : pEClockVal): longint; -procedure GetSysTime( Dest : ptimeval); +Procedure AddTime( Dest : ptimeval location 'a0'; Source : ptimeval location 'a1'); syscall TimerBase 042; +Function CmpTime( Dest : ptimeval location 'a0'; Source : ptimeval location 'a1') : ULONG; syscall TimerBase 054; +Procedure SubTime( Dest : ptimeval location 'a0'; Source : ptimeval location 'a1'); syscall TimerBase 048; +function ReadEClock(Dest : pEClockVal location 'a0'): longint; syscall TimerBase 060; +procedure GetSysTime( Dest : ptimeval location 'a0'); syscall TimerBase 066; IMPLEMENTATION -Procedure AddTime( Dest, Source : ptimeval); -begin - asm - MOVE.L A6,-(A7) - MOVE.L Dest,a0 - MOVE.L Source,a1 - MOVE.L TimerBase,A6 - JSR -042(A6) - MOVE.L (A7)+,A6 - end; -end; - -Function CmpTime( Dest, Source : ptimeval) : ULONG; -begin - asm - MOVE.L A6,-(A7) - MOVE.L Dest,a0 - MOVE.L Source,a1 - MOVE.L TimerBase,A6 - JSR -054(A6) - MOVE.L (A7)+,A6 - MOVE.L d0,@RESULT - end; -end; - -Procedure SubTime( Dest, Source : ptimeval); -begin - asm - MOVE.L A6,-(A7) - MOVE.L Dest,a0 - MOVE.L Source,a1 - MOVE.L TimerBase,A6 - JSR -048(A6) - MOVE.L (A7)+,A6 - end; -end; - -function ReadEClock(Dest : pEClockVal): longint; -begin - asm - MOVE.L A6,-(A7) - MOVE.L Dest,a0 - MOVE.L TimerBase,A6 - JSR -060(A6) - MOVE.L (A7)+,A6 - MOVE.L d0,@RESULT - end; -end; - -procedure GetSysTime( Dest : ptimeval); -begin - asm - MOVE.L A6,-(A7) - MOVE.L Dest,a0 - MOVE.L TimerBase,A6 - JSR -066(A6) - MOVE.L (A7)+,A6 - end; -end; - - end. diff --git a/packages/amunits/src/coreunits/translator.pas b/packages/amunits/src/coreunits/translator.pas index 47f93cdede..eddb6fd26d 100644 --- a/packages/amunits/src/coreunits/translator.pas +++ b/packages/amunits/src/coreunits/translator.pas @@ -25,11 +25,6 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} - UNIT translator; INTERFACE @@ -46,7 +41,7 @@ VAR TranslatorBase : pLibrary; const TRANSLATORNAME : PChar = 'translator.library'; -FUNCTION Translate(const inputString : pCHAR; inputLength : LONGINT; outputBuffer : pCHAR; bufferSize : LONGINT) : LONGINT; +FUNCTION Translate(const inputString : pCHAR location 'a0'; inputLength : LONGINT location 'd0'; outputBuffer : pCHAR location 'a1'; bufferSize : LONGINT location 'd1') : LONGINT; syscall TranslatorBase 030; {Here we read how to compile this unit} {You can remove this include and use a define instead} @@ -62,24 +57,9 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} -FUNCTION Translate(const inputString : pCHAR; inputLength : LONGINT; outputBuffer : pCHAR; bufferSize : LONGINT) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L inputString,A0 - MOVE.L inputLength,D0 - MOVEA.L outputBuffer,A1 - MOVE.L bufferSize,D1 - MOVEA.L TranslatorBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - const { Change VERSION and LIBVERSION to proper values } diff --git a/packages/amunits/src/coreunits/utility.pas b/packages/amunits/src/coreunits/utility.pas index 26849862fd..9aae1532c2 100644 --- a/packages/amunits/src/coreunits/utility.pas +++ b/packages/amunits/src/coreunits/utility.pas @@ -31,11 +31,7 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit utility; @@ -340,44 +336,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 +389,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 diff --git a/packages/amunits/src/coreunits/workbench.pas b/packages/amunits/src/coreunits/workbench.pas index fc6a472983..42d5ca6998 100644 --- a/packages/amunits/src/coreunits/workbench.pas +++ b/packages/amunits/src/coreunits/workbench.pas @@ -58,18 +58,13 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} +{$PACKRECORDS 2} unit workbench; INTERFACE -uses exec,amigados,utility, intuition,graphics; - +uses exec,amigados,utility,intuition,agraphics; Type @@ -855,21 +850,21 @@ type VAR WorkbenchBase : pLibrary; -FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject;const taglist : pTagItem) : pAppIcon; -FUNCTION AddAppMenuItemA(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort;const taglist : pTagItem) : pAppMenuItem; -FUNCTION AddAppWindowA(id : ULONG; userdata : ULONG; window : pWindow; msgport : pMsgPort;const taglist : pTagItem) : pAppWindow; -FUNCTION RemoveAppIcon(appIcon : pAppIcon) : BOOLEAN; -FUNCTION RemoveAppMenuItem(appMenuItem : pAppMenuItem) : BOOLEAN; -FUNCTION RemoveAppWindow(appWindow : pAppWindow) : BOOLEAN; -PROCEDURE WBInfo(lock : BPTR; name : pCHAR; screen : pScreen); - -FUNCTION AddAppWindowDropZoneA(aw : pAppWindow; id : longword; userdata : longword;const tags : pTagItem) : pAppWindowDropZone; -FUNCTION ChangeWorkbenchSelectionA(name : pCHAR; hook : pHook;const tags : pTagItem) : BOOLEAN; -FUNCTION CloseWorkbenchObjectA(name : pCHAR;const tags : pTagItem) : BOOLEAN; -FUNCTION MakeWorkbenchObjectVisibleA(name : pCHAR;const tags : pTagItem) : BOOLEAN; -FUNCTION OpenWorkbenchObjectA(name : pCHAR;const tags : pTagItem) : BOOLEAN; -FUNCTION RemoveAppWindowDropZone(aw : pAppWindow; dropZone : pAppWindowDropZone) : BOOLEAN; -FUNCTION WorkbenchControlA(name : pCHAR;const tags : pTagItem) : BOOLEAN; +FUNCTION AddAppIconA(id : ULONG location 'd0'; userdata : ULONG location 'd1'; text_ : pCHAR location 'a0'; msgport : pMsgPort location 'a1'; lock : pFileLock location 'a2'; diskobj : pDiskObject location 'a3'; const taglist : pTagItem location 'a4') : pAppIcon; syscall WorkbenchBase 060; +FUNCTION AddAppMenuItemA(id : ULONG location 'd0'; userdata : ULONG location 'd1'; text_ : pCHAR location 'a0'; msgport : pMsgPort location 'a1'; const taglist : pTagItem location 'a2') : pAppMenuItem; syscall WorkbenchBase 072; +FUNCTION AddAppWindowA(id : ULONG location 'd0'; userdata : ULONG location 'd1'; window : pWindow location 'a0'; msgport : pMsgPort location 'a1'; const taglist : pTagItem location 'a2') : pAppWindow; syscall WorkbenchBase 042; +FUNCTION RemoveAppIcon(appIcon : pAppIcon location 'a0') : longbool; syscall WorkbenchBase 066; +FUNCTION RemoveAppMenuItem(appMenuItem : pAppMenuItem location 'a0') : longbool; syscall WorkbenchBase 078; +FUNCTION RemoveAppWindow(appWindow : pAppWindow location 'a0') : longbool; syscall WorkbenchBase 054; +PROCEDURE WBInfo(lock : BPTR location 'a0'; name : pCHAR location 'a1'; screen : pScreen location 'a2'); syscall WorkbenchBase 090; + +FUNCTION AddAppWindowDropZoneA(aw : pAppWindow location 'a0'; id : longword location 'd0'; userdata : longword location 'd1'; const tags : pTagItem location 'a1') : pAppWindowDropZone; syscall WorkbenchBase 114; +FUNCTION ChangeWorkbenchSelectionA(name : pCHAR location 'a0'; hook : pHook location 'a1'; const tags : pTagItem location 'a2') : longbool; syscall WorkbenchBase 126; +FUNCTION CloseWorkbenchObjectA(name : pCHAR location 'a0'; const tags : pTagItem location 'a1') : longbool; syscall WorkbenchBase 102; +FUNCTION MakeWorkbenchObjectVisibleA(name : pCHAR location 'a0'; const tags : pTagItem location 'a1') : longbool; syscall WorkbenchBase 132; +FUNCTION OpenWorkbenchObjectA(name : pCHAR location 'a0'; const tags : pTagItem location 'a1') : longbool; syscall WorkbenchBase 096; +FUNCTION RemoveAppWindowDropZone(aw : pAppWindow location 'a0'; dropZone : pAppWindowDropZone location 'a1') : longbool; syscall WorkbenchBase 120; +FUNCTION WorkbenchControlA(name : pCHAR location 'a0'; const tags : pTagItem location 'a1') : longbool; syscall WorkbenchBase 108; { overlays } FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text_ : string; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject;const taglist : pTagItem) : pAppIcon; @@ -897,231 +892,10 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} pastoc; -FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject;const taglist : pTagItem) : pAppIcon; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L id,D0 - MOVE.L userdata,D1 - MOVEA.L text_,A0 - MOVEA.L msgport,A1 - MOVEA.L lock,A2 - MOVEA.L diskobj,A3 - MOVEA.L taglist,A4 - MOVEA.L WorkbenchBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AddAppMenuItemA(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort;const taglist : pTagItem) : pAppMenuItem; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L id,D0 - MOVE.L userdata,D1 - MOVEA.L text_,A0 - MOVEA.L msgport,A1 - MOVEA.L taglist,A2 - MOVEA.L WorkbenchBase,A6 - JSR -072(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION AddAppWindowA(id : ULONG; userdata : ULONG; window : pWindow; msgport : pMsgPort;const taglist : pTagItem) : pAppWindow; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVE.L id,D0 - MOVE.L userdata,D1 - MOVEA.L window,A0 - MOVEA.L msgport,A1 - MOVEA.L taglist,A2 - MOVEA.L WorkbenchBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION RemoveAppIcon(appIcon : pAppIcon) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L appIcon,A0 - MOVEA.L WorkbenchBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION RemoveAppMenuItem(appMenuItem : pAppMenuItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L appMenuItem,A0 - MOVEA.L WorkbenchBase,A6 - JSR -078(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION RemoveAppWindow(appWindow : pAppWindow) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L appWindow,A0 - MOVEA.L WorkbenchBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -PROCEDURE WBInfo(lock : BPTR; name : pCHAR; screen : pScreen); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L lock,A0 - MOVEA.L name,A1 - MOVEA.L screen,A2 - MOVEA.L WorkbenchBase,A6 - JSR -090(A6) - MOVEA.L (A7)+,A6 - END; -END; - -FUNCTION AddAppWindowDropZoneA(aw : pAppWindow; id : longword; userdata : longword;const tags : pTagItem) : pAppWindowDropZone; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L aw,A0 - MOVE.L id,D0 - MOVE.L userdata,D1 - MOVEA.L tags,A1 - MOVEA.L WorkbenchBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION ChangeWorkbenchSelectionA(name : pCHAR; hook : pHook;const tags : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L hook,A1 - MOVEA.L tags,A2 - MOVEA.L WorkbenchBase,A6 - JSR -126(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION CloseWorkbenchObjectA(name : pCHAR;const tags : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L tags,A1 - MOVEA.L WorkbenchBase,A6 - JSR -102(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION MakeWorkbenchObjectVisibleA(name : pCHAR;const tags : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L tags,A1 - MOVEA.L WorkbenchBase,A6 - JSR -132(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION OpenWorkbenchObjectA(name : pCHAR;const tags : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L tags,A1 - MOVEA.L WorkbenchBase,A6 - JSR -096(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - - -FUNCTION RemoveAppWindowDropZone(aw : pAppWindow; dropZone : pAppWindowDropZone) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L aw,A0 - MOVEA.L dropZone,A1 - MOVEA.L WorkbenchBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - -FUNCTION WorkbenchControlA(name : pCHAR;const tags : pTagItem) : BOOLEAN; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L name,A0 - MOVEA.L tags,A1 - MOVEA.L WorkbenchBase,A6 - JSR -108(A6) - MOVEA.L (A7)+,A6 - TST.W D0 - BEQ.B @end - MOVEQ #1,D0 - @end: MOVE.B D0,@RESULT - END; -END; - FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text_ : string; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject;const taglist : pTagItem) : pAppIcon; begin AddAppIconA := AddAppIconA(id,userdata,pas2c(text_),msgport,lock,diskobj,taglist); @@ -1245,7 +1019,3 @@ begin END. (* UNIT WB *) - - - - diff --git a/packages/amunits/src/otherlibs/ahi.pas b/packages/amunits/src/otherlibs/ahi.pas index ce499bce2c..4235d08873 100644 --- a/packages/amunits/src/otherlibs/ahi.pas +++ b/packages/amunits/src/otherlibs/ahi.pas @@ -27,6 +27,7 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } +{$PACKRECORDS 2} {$mode objfpc} {$I useamigasmartlink.inc} @@ -548,7 +549,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/ahi_sub.pas b/packages/amunits/src/otherlibs/ahi_sub.pas index f39b197305..cc7f482c00 100644 --- a/packages/amunits/src/otherlibs/ahi_sub.pas +++ b/packages/amunits/src/otherlibs/ahi_sub.pas @@ -28,6 +28,7 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } +{$PACKRECORDS 2} {$I useamigasmartlink.inc} {$ifdef use_amiga_smartlink} @@ -171,7 +172,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/amarquee.pas b/packages/amunits/src/otherlibs/amarquee.pas index 2eec31f658..44e06be465 100644 --- a/packages/amunits/src/otherlibs/amarquee.pas +++ b/packages/amunits/src/otherlibs/amarquee.pas @@ -311,7 +311,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} pastoc,tagsarray; diff --git a/packages/amunits/src/otherlibs/cybergraphics.pas b/packages/amunits/src/otherlibs/cybergraphics.pas index 38c85f2187..0fdf5f77ba 100644 --- a/packages/amunits/src/otherlibs/cybergraphics.pas +++ b/packages/amunits/src/otherlibs/cybergraphics.pas @@ -37,7 +37,7 @@ UNIT CYBERGRAPHICS; INTERFACE -USES Exec,graphics,utility; +USES Exec,agraphics,utility; VAR CyberGfxBase : pLibrary; @@ -273,7 +273,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/gtlayout.pas b/packages/amunits/src/otherlibs/gtlayout.pas index e3e04ea488..54a17c4eb1 100644 --- a/packages/amunits/src/otherlibs/gtlayout.pas +++ b/packages/amunits/src/otherlibs/gtlayout.pas @@ -51,7 +51,7 @@ UNIT GTLAYOUT; INTERFACE -USES Exec,intuition,utility, gadtools,graphics; +USES Exec,intuition,utility, gadtools,agraphics; @@ -635,7 +635,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/guigfx.pas b/packages/amunits/src/otherlibs/guigfx.pas index ffe2b4ab02..27745ff06a 100644 --- a/packages/amunits/src/otherlibs/guigfx.pas +++ b/packages/amunits/src/otherlibs/guigfx.pas @@ -37,7 +37,7 @@ UNIT GUIGFX; INTERFACE -USES Exec,utility,graphics; +USES Exec,utility,agraphics; VAR GuiGFXBase : pLibrary; @@ -220,7 +220,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,longarray; diff --git a/packages/amunits/src/otherlibs/identify.pas b/packages/amunits/src/otherlibs/identify.pas index a7aa1a8e48..3d885c1178 100644 --- a/packages/amunits/src/otherlibs/identify.pas +++ b/packages/amunits/src/otherlibs/identify.pas @@ -459,7 +459,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,pastoc; diff --git a/packages/amunits/src/otherlibs/lucyplay.pas b/packages/amunits/src/otherlibs/lucyplay.pas index dc2b28d5bb..0e7e465064 100644 --- a/packages/amunits/src/otherlibs/lucyplay.pas +++ b/packages/amunits/src/otherlibs/lucyplay.pas @@ -127,7 +127,7 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} PROCEDURE lucAudioFree(smp : pLucyPlaySample); diff --git a/packages/amunits/src/otherlibs/mui.pas b/packages/amunits/src/otherlibs/mui.pas index 81ecba9896..471ab19ca3 100644 --- a/packages/amunits/src/otherlibs/mui.pas +++ b/packages/amunits/src/otherlibs/mui.pas @@ -147,7 +147,7 @@ interface Items marked with "Custom Class" are for use in custom classes only! } -uses exec, intuition,utility,graphics,iffparse; +uses exec, intuition,utility,agraphics,iffparse; const @@ -3598,7 +3598,7 @@ implementation uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,longarray; diff --git a/packages/amunits/src/otherlibs/mysticview.pas b/packages/amunits/src/otherlibs/mysticview.pas index 556d407683..e1f716e29c 100644 --- a/packages/amunits/src/otherlibs/mysticview.pas +++ b/packages/amunits/src/otherlibs/mysticview.pas @@ -36,7 +36,7 @@ UNIT MYSTICVIEW; INTERFACE -USES Exec,graphics,utility,intuition; +USES Exec,agraphics,utility,intuition; VAR MysticBase : pLibrary; @@ -183,7 +183,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/picasso96api.pas b/packages/amunits/src/otherlibs/picasso96api.pas index 983d587f0b..65a08cd5f4 100644 --- a/packages/amunits/src/otherlibs/picasso96api.pas +++ b/packages/amunits/src/otherlibs/picasso96api.pas @@ -43,7 +43,7 @@ UNIT PICASSO96API; INTERFACE -USES Exec, utility, graphics, intuition; +USES Exec, utility, agraphics, intuition; { Picasso96.h -- include File (C) Copyright 1996-98 Alexander Kneer & Tobias Abt @@ -461,7 +461,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/preferences.pas b/packages/amunits/src/otherlibs/preferences.pas index a20b0fb527..6f54480c82 100644 --- a/packages/amunits/src/otherlibs/preferences.pas +++ b/packages/amunits/src/otherlibs/preferences.pas @@ -160,7 +160,7 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} FUNCTION AllocPrefsHandle(name : pCHAR) : POINTER; diff --git a/packages/amunits/src/otherlibs/ptreplay.pas b/packages/amunits/src/otherlibs/ptreplay.pas index 3058bc0192..10e775618e 100644 --- a/packages/amunits/src/otherlibs/ptreplay.pas +++ b/packages/amunits/src/otherlibs/ptreplay.pas @@ -107,7 +107,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} pastoc; diff --git a/packages/amunits/src/otherlibs/render.pas b/packages/amunits/src/otherlibs/render.pas index f2dccd6046..9ddf9dc9f8 100644 --- a/packages/amunits/src/otherlibs/render.pas +++ b/packages/amunits/src/otherlibs/render.pas @@ -37,7 +37,7 @@ UNIT RENDER; INTERFACE -USES Exec,utility,graphics; +USES Exec,utility,agraphics; VAR RenderBase : pLibrary; @@ -448,7 +448,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/reqtools.pas b/packages/amunits/src/otherlibs/reqtools.pas index 1b114868a7..568001856c 100644 --- a/packages/amunits/src/otherlibs/reqtools.pas +++ b/packages/amunits/src/otherlibs/reqtools.pas @@ -47,7 +47,7 @@ UNIT REQTOOLS; INTERFACE -USES Exec, intuition, amigados, diskfont, graphics, utility; +USES Exec, intuition, amigados, diskfont, agraphics, utility; @@ -689,7 +689,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,pastoc; diff --git a/packages/amunits/src/otherlibs/triton.pas b/packages/amunits/src/otherlibs/triton.pas index b6a430c6ae..7ad77a1a00 100644 --- a/packages/amunits/src/otherlibs/triton.pas +++ b/packages/amunits/src/otherlibs/triton.pas @@ -43,7 +43,7 @@ UNIT TRITON; INTERFACE -uses exec, intuition, graphics, utility; +uses exec, intuition, agraphics, utility; {* ------------------------------------------------------------------------------ *} @@ -792,7 +792,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,pastoc; diff --git a/packages/amunits/src/otherlibs/ttengine.pas b/packages/amunits/src/otherlibs/ttengine.pas index 83216bf6f3..57aaf0a7dd 100644 --- a/packages/amunits/src/otherlibs/ttengine.pas +++ b/packages/amunits/src/otherlibs/ttengine.pas @@ -37,7 +37,7 @@ UNIT TTENGINE; INTERFACE -USES Exec,utility,graphics; +USES Exec,utility,agraphics; VAR TTEngineBase : pLibrary; @@ -235,7 +235,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/xadmaster.pas b/packages/amunits/src/otherlibs/xadmaster.pas index 3d012a0c5b..3ea22bec37 100644 --- a/packages/amunits/src/otherlibs/xadmaster.pas +++ b/packages/amunits/src/otherlibs/xadmaster.pas @@ -1245,7 +1245,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/zlib.pas b/packages/amunits/src/otherlibs/zlib.pas index 47492530c4..24520baba0 100644 --- a/packages/amunits/src/otherlibs/zlib.pas +++ b/packages/amunits/src/otherlibs/zlib.pas @@ -28,12 +28,6 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} - UNIT ZLIB; INTERFACE @@ -56,16 +50,16 @@ const GZ_COMPRESS_BEST = 9; -FUNCTION GZ_Close(handle : POINTER) : LONGINT; -FUNCTION GZ_CompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword; strategy : longword; level : longword; VAR poutlen : longword) : LONGINT; -FUNCTION GZ_DecompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword) : LONGINT; -FUNCTION GZ_FGetC(handle : POINTER) : pLONGINT; -FUNCTION GZ_FGetS(handle : POINTER; buf : pCHAR; len : longword) : pCHAR; -FUNCTION GZ_FileLength(handle : POINTER) : longword; -FUNCTION GZ_Open(filename : pCHAR; openmode : longword; strategy : longword; level : longword) : POINTER; -FUNCTION GZ_OpenFromFH(fh : LONGINT; openmode : longword; strategy : longword; level : longword) : POINTER; -FUNCTION GZ_Read(handle : POINTER; buf : POINTER; len : longword) : LONGINT; -FUNCTION GZ_Write(handle : POINTER; buf : POINTER; len : longword) : LONGINT; +FUNCTION GZ_Close(handle : POINTER location 'a0') : LONGINT; syscall ZLibBase 042; +FUNCTION GZ_CompressMem(srcbuf : POINTER location 'a0'; srclen : longword location 'd0'; destbuf : POINTER location 'a1'; destlen : longword location 'd1'; strategy : longword location 'd2'; level : longword location 'd3'; VAR poutlen : longword location 'a2') : LONGINT; syscall ZLibBase 114; +FUNCTION GZ_DecompressMem(srcbuf : POINTER location 'a0'; srclen : longword location 'd0'; destbuf : POINTER location 'a1'; destlen : longword location 'd1') : LONGINT; syscall ZLibBase 120; +FUNCTION GZ_FGetC(handle : POINTER location 'a0') : pLONGINT; syscall ZLibBase 060; +FUNCTION GZ_FGetS(handle : POINTER location 'a0'; buf : pCHAR location 'a1'; len : longword location 'd0') : pCHAR; syscall ZLibBase 054; +FUNCTION GZ_FileLength(handle : POINTER location 'a0') : longword; syscall ZLibBase 138; +FUNCTION GZ_Open(filename : pCHAR location 'a0'; openmode : longword location 'd0'; strategy : longword location 'd1'; level : longword location 'd2') : POINTER; syscall ZLibBase 030; +FUNCTION GZ_OpenFromFH(fh : LONGINT location 'a0'; openmode : longword location 'd0'; strategy : longword location 'd1'; level : longword location 'd2') : POINTER; syscall ZLibBase 036; +FUNCTION GZ_Read(handle : POINTER location 'a0'; buf : POINTER location 'a1'; len : longword location 'd0') : LONGINT; syscall ZLibBase 048; +FUNCTION GZ_Write(handle : POINTER location 'a0'; buf : POINTER location 'a1'; len : longword location 'd0') : LONGINT; syscall ZLibBase 066; {You can remove this include and use a define instead} {$I useautoopenlib.inc} @@ -80,150 +74,9 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} -FUNCTION GZ_Close(handle : POINTER) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L ZLibBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_CompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword; strategy : longword; level : longword; VAR poutlen : longword) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L srcbuf,A0 - MOVE.L srclen,D0 - MOVEA.L destbuf,A1 - MOVE.L destlen,D1 - MOVE.L strategy,D2 - MOVE.L level,D3 - MOVEA.L poutlen,A2 - MOVEA.L ZLibBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_DecompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L srcbuf,A0 - MOVE.L srclen,D0 - MOVEA.L destbuf,A1 - MOVE.L destlen,D1 - MOVEA.L ZLibBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_FGetC(handle : POINTER) : pLONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L ZLibBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_FGetS(handle : POINTER; buf : pCHAR; len : longword) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L buf,A1 - MOVE.L len,D0 - MOVEA.L ZLibBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_FileLength(handle : POINTER) : longword; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L ZLibBase,A6 - JSR -138(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_Open(filename : pCHAR; openmode : longword; strategy : longword; level : longword) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L filename,A0 - MOVE.L openmode,D0 - MOVE.L strategy,D1 - MOVE.L level,D2 - MOVEA.L ZLibBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_OpenFromFH(fh : LONGINT; openmode : longword; strategy : longword; level : longword) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L fh,A0 - MOVE.L openmode,D0 - MOVE.L strategy,D1 - MOVE.L level,D2 - MOVEA.L ZLibBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_Read(handle : POINTER; buf : POINTER; len : longword) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L buf,A1 - MOVE.L len,D0 - MOVEA.L ZLibBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_Write(handle : POINTER; buf : POINTER; len : longword) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L buf,A1 - MOVE.L len,D0 - MOVEA.L ZLibBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - const { Change VERSION and LIBVERSION to proper values } diff --git a/packages/amunits/src/utilunits/Makefile b/packages/amunits/src/utilunits/Makefile index 98c9f0dd8c..bc4615f249 100644 --- a/packages/amunits/src/utilunits/Makefile +++ b/packages/amunits/src/utilunits/Makefile @@ -1,9 +1,9 @@ # -# Don't edit, this file is generated by FPCMake Version 2.0.0 [2014-02-06 rev 26692] +# Don't edit, this file is generated by FPCMake Version 2.0.0 [2014-12-07 rev 29213] # default: all -MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian i386-nativent i386-iphonesim i386-android m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded powerpc-wii powerpc-aix sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-netbsd x86_64-solaris x86_64-openbsd x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian arm-android powerpc64-linux powerpc64-darwin powerpc64-embedded powerpc64-aix avr-embedded armeb-linux armeb-embedded mips-linux mipsel-linux mipsel-android jvm-java jvm-android i8086-msdos -BSDs = freebsd netbsd openbsd darwin +MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian i386-nativent i386-iphonesim i386-android i386-aros m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded powerpc-wii powerpc-aix sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-netbsd x86_64-solaris x86_64-openbsd x86_64-darwin x86_64-win64 x86_64-embedded x86_64-dragonfly arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian arm-android powerpc64-linux powerpc64-darwin powerpc64-embedded powerpc64-aix avr-embedded armeb-linux armeb-embedded mips-linux mipsel-linux mipsel-embedded mipsel-android jvm-java jvm-android i8086-msdos +BSDs = freebsd netbsd openbsd darwin dragonfly UNIXs = linux $(BSDs) solaris qnx haiku aix LIMIT83fs = go32v2 os2 emx watcom msdos OSNeedsComspecToRunBatch = go32v2 watcom @@ -184,6 +184,12 @@ $(error When compiling for arm-embedded, a sub-architecture (e.g. SUBARCH=armv4t endif override FPCOPT+=-Cp$(SUBARCH) endif +ifeq ($(FULL_TARGET),mipsel-embedded) +ifeq ($(SUBARCH),) +$(error When compiling for mipsel-embedded, a sub-architecture (e.g. SUBARCH=pic32mx) must be defined) +endif +override FPCOPT+=-Cp$(SUBARCH) +endif ifneq ($(findstring $(OS_SOURCE),$(LIMIT83fs)),) TARGETSUFFIX=$(OS_TARGET) SOURCESUFFIX=$(OS_SOURCE) @@ -320,7 +326,7 @@ FPCFPMAKE=$(FPC) endif endif override PACKAGE_NAME=amunits -override PACKAGE_VERSION=2.7.1 +override PACKAGE_VERSION=3.1.1 ifeq ($(FULL_TARGET),i386-linux) override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs endif @@ -390,6 +396,9 @@ endif ifeq ($(FULL_TARGET),i386-android) override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs endif +ifeq ($(FULL_TARGET),i386-aros) +override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs +endif ifeq ($(FULL_TARGET),m68k-linux) override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs endif @@ -477,6 +486,9 @@ endif ifeq ($(FULL_TARGET),x86_64-embedded) override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs endif +ifeq ($(FULL_TARGET),x86_64-dragonfly) +override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs +endif ifeq ($(FULL_TARGET),arm-linux) override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs endif @@ -531,6 +543,9 @@ endif ifeq ($(FULL_TARGET),mipsel-linux) override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs endif +ifeq ($(FULL_TARGET),mipsel-embedded) +override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs +endif ifeq ($(FULL_TARGET),mipsel-android) override TARGET_UNITS+=amigautils consoleio deadkeys doublebuffer easyasl hisoft linklist longarray msgbox pastoc pcq systemvartags tagsarray timerutils vartags wbargs endif @@ -613,6 +628,9 @@ endif ifeq ($(FULL_TARGET),i386-android) override COMPILER_INCLUDEDIR+=../inc endif +ifeq ($(FULL_TARGET),i386-aros) +override COMPILER_INCLUDEDIR+=../inc +endif ifeq ($(FULL_TARGET),m68k-linux) override COMPILER_INCLUDEDIR+=../inc endif @@ -700,6 +718,9 @@ endif ifeq ($(FULL_TARGET),x86_64-embedded) override COMPILER_INCLUDEDIR+=../inc endif +ifeq ($(FULL_TARGET),x86_64-dragonfly) +override COMPILER_INCLUDEDIR+=../inc +endif ifeq ($(FULL_TARGET),arm-linux) override COMPILER_INCLUDEDIR+=../inc endif @@ -754,6 +775,9 @@ endif ifeq ($(FULL_TARGET),mipsel-linux) override COMPILER_INCLUDEDIR+=../inc endif +ifeq ($(FULL_TARGET),mipsel-embedded) +override COMPILER_INCLUDEDIR+=../inc +endif ifeq ($(FULL_TARGET),mipsel-android) override COMPILER_INCLUDEDIR+=../inc endif @@ -835,6 +859,9 @@ endif ifeq ($(FULL_TARGET),i386-android) override COMPILER_UNITDIR+=../units endif +ifeq ($(FULL_TARGET),i386-aros) +override COMPILER_UNITDIR+=../units +endif ifeq ($(FULL_TARGET),m68k-linux) override COMPILER_UNITDIR+=../units endif @@ -922,6 +949,9 @@ endif ifeq ($(FULL_TARGET),x86_64-embedded) override COMPILER_UNITDIR+=../units endif +ifeq ($(FULL_TARGET),x86_64-dragonfly) +override COMPILER_UNITDIR+=../units +endif ifeq ($(FULL_TARGET),arm-linux) override COMPILER_UNITDIR+=../units endif @@ -976,6 +1006,9 @@ endif ifeq ($(FULL_TARGET),mipsel-linux) override COMPILER_UNITDIR+=../units endif +ifeq ($(FULL_TARGET),mipsel-embedded) +override COMPILER_UNITDIR+=../units +endif ifeq ($(FULL_TARGET),mipsel-android) override COMPILER_UNITDIR+=../units endif @@ -1057,6 +1090,9 @@ endif ifeq ($(FULL_TARGET),i386-android) override COMPILER_SOURCEDIR+=. endif +ifeq ($(FULL_TARGET),i386-aros) +override COMPILER_SOURCEDIR+=. +endif ifeq ($(FULL_TARGET),m68k-linux) override COMPILER_SOURCEDIR+=. endif @@ -1144,6 +1180,9 @@ endif ifeq ($(FULL_TARGET),x86_64-embedded) override COMPILER_SOURCEDIR+=. endif +ifeq ($(FULL_TARGET),x86_64-dragonfly) +override COMPILER_SOURCEDIR+=. +endif ifeq ($(FULL_TARGET),arm-linux) override COMPILER_SOURCEDIR+=. endif @@ -1198,6 +1237,9 @@ endif ifeq ($(FULL_TARGET),mipsel-linux) override COMPILER_SOURCEDIR+=. endif +ifeq ($(FULL_TARGET),mipsel-embedded) +override COMPILER_SOURCEDIR+=. +endif ifeq ($(FULL_TARGET),mipsel-android) override COMPILER_SOURCEDIR+=. endif @@ -1452,6 +1494,12 @@ EXEEXT= HASSHAREDLIB=1 SHORTSUFFIX=lnx endif +ifeq ($(OS_TARGET),dragonfly) +BATCHEXT=.sh +EXEEXT= +HASSHAREDLIB=1 +SHORTSUFFIX=df +endif ifeq ($(OS_TARGET),freebsd) BATCHEXT=.sh EXEEXT= @@ -1497,6 +1545,11 @@ EXEEXT= SHAREDLIBEXT=.library SHORTSUFFIX=amg endif +ifeq ($(OS_TARGET),aros) +EXEEXT= +SHAREDLIBEXT=.library +SHORTSUFFIX=aros +endif ifeq ($(OS_TARGET),morphos) EXEEXT= SHAREDLIBEXT=.library @@ -1918,6 +1971,9 @@ endif ifeq ($(FULL_TARGET),i386-android) REQUIRE_PACKAGES_RTL=1 endif +ifeq ($(FULL_TARGET),i386-aros) +REQUIRE_PACKAGES_RTL=1 +endif ifeq ($(FULL_TARGET),m68k-linux) REQUIRE_PACKAGES_RTL=1 endif @@ -2005,6 +2061,9 @@ endif ifeq ($(FULL_TARGET),x86_64-embedded) REQUIRE_PACKAGES_RTL=1 endif +ifeq ($(FULL_TARGET),x86_64-dragonfly) +REQUIRE_PACKAGES_RTL=1 +endif ifeq ($(FULL_TARGET),arm-linux) REQUIRE_PACKAGES_RTL=1 endif @@ -2059,6 +2118,9 @@ endif ifeq ($(FULL_TARGET),mipsel-linux) REQUIRE_PACKAGES_RTL=1 endif +ifeq ($(FULL_TARGET),mipsel-embedded) +REQUIRE_PACKAGES_RTL=1 +endif ifeq ($(FULL_TARGET),mipsel-android) REQUIRE_PACKAGES_RTL=1 endif @@ -2222,7 +2284,7 @@ endif ifdef CREATESHARED override FPCOPT+=-Cg endif -ifneq ($(findstring $(OS_TARGET),freebsd openbsd netbsd linux solaris),) +ifneq ($(findstring $(OS_TARGET),dragonfly freebsd openbsd netbsd linux solaris),) ifeq ($(CPU_TARGET),x86_64) override FPCOPT+=-Cg endif @@ -2252,17 +2314,23 @@ ifdef ACROSSCOMPILE override FPCOPT+=$(CROSSOPT) endif override COMPILER:=$(strip $(FPC) $(FPCOPT)) -ifeq (,$(findstring -s ,$(COMPILER))) +ifneq (,$(findstring -sh ,$(COMPILER))) +UseEXECPPAS=1 +endif +ifneq (,$(findstring -s ,$(COMPILER))) +ifeq ($(FULL_SOURCE),$(FULL_TARGET)) +UseEXECPPAS=1 +endif +endif +ifneq ($(UseEXECPPAS),1) EXECPPAS= else -ifeq ($(FULL_SOURCE),$(FULL_TARGET)) ifdef RUNBATCH EXECPPAS:=@$(RUNBATCH) $(PPAS) else EXECPPAS:=@$(PPAS) endif endif -endif .PHONY: fpc_units ifneq ($(TARGET_UNITS)$(TARGET_IMPLICITUNITS),) override ALLTARGET+=fpc_units diff --git a/packages/amunits/src/utilunits/Makefile.fpc b/packages/amunits/src/utilunits/Makefile.fpc index 914aa53286..a504d2af18 100644 --- a/packages/amunits/src/utilunits/Makefile.fpc +++ b/packages/amunits/src/utilunits/Makefile.fpc @@ -4,7 +4,7 @@ [package] name=amunits -version=2.7.1 +version=3.1.1 [target] units=amigautils consoleio deadkeys doublebuffer easyasl hisoft \ diff --git a/packages/amunits/src/utilunits/amigautils.pas b/packages/amunits/src/utilunits/amigautils.pas index 3db73c142a..d9f4df022d 100644 --- a/packages/amunits/src/utilunits/amigautils.pas +++ b/packages/amunits/src/utilunits/amigautils.pas @@ -78,47 +78,11 @@ Type fib_Reserved : Array [0..31] of Char; end; -{$PACKRECORDS NORMAL} +{$PACKRECORDS 2} -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 Lock(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; - -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; +FUNCTION Examine(lock : LONGINT location 'd1'; fileInfoBlock : pFileInfoBlock location 'd2') : LongBool; syscall _DOSBase 102; +FUNCTION Lock(name : pCHAR location 'd1'; type_ : LONGINT location 'd2') : LONGINT; syscall _DOSBase 084; +PROCEDURE UnLock(lock : LONGINT location 'd1'); syscall _DOSBase 090; FUNCTION PCharCopy(s: PChar; thepos , len : Longint): PChar; VAR diff --git a/packages/amunits/src/utilunits/msgbox.pas b/packages/amunits/src/utilunits/amsgbox.pas index fcafe3e6f0..8249f6937f 100644 --- a/packages/amunits/src/utilunits/msgbox.pas +++ b/packages/amunits/src/utilunits/amsgbox.pas @@ -21,13 +21,9 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } +{$PACKRECORDS 2} -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} - -unit MsgBox; +unit AMsgBox; interface @@ -49,20 +45,8 @@ type es_GadgetFormat : pchar; { 'printf' style formatting string } END; -FUNCTION EasyRequestArgs(window : pointer; easyStruct : pEasyStruct; idcmpPtr : longint; args : POINTER) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L window,A0 - MOVEA.L easyStruct,A1 - MOVEA.L idcmpPtr,A2 - MOVEA.L args,A3 - MOVEA.L _IntuitionBase,A6 - JSR -588(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; + +FUNCTION EasyRequestArgs(window : pointer location 'a0'; easyStruct : pEasyStruct location 'a1'; idcmpPtr : longint location 'a2'; args : POINTER location 'a3') : LONGINT; syscall _IntuitionBase 588; FUNCTION MessageBox(tit,txt,gad:string) : LONGint; begin diff --git a/packages/amunits/src/utilunits/doublebuffer.pas b/packages/amunits/src/utilunits/doublebuffer.pas index 5c55649542..ee7f0f01be 100644 --- a/packages/amunits/src/utilunits/doublebuffer.pas +++ b/packages/amunits/src/utilunits/doublebuffer.pas @@ -67,7 +67,7 @@ unit doublebuffer; interface -uses exec, intuition, graphics; +uses exec, intuition, agraphics; { OpenDoubleBuffer opens the Screen described in "ns" without diff --git a/packages/amunits/src/utilunits/easyasl.pas b/packages/amunits/src/utilunits/easyasl.pas index 4f44547b29..0943c5b524 100644 --- a/packages/amunits/src/utilunits/easyasl.pas +++ b/packages/amunits/src/utilunits/easyasl.pas @@ -142,7 +142,7 @@ BEGIN fr := AllocAslRequest(ASL_FileRequest,@mytags); IF fr <> NIL THEN BEGIN - IF AslRequest(fr,NIL) THEN BEGIN + IF AslRequest(fr,NIL) <> 0 THEN BEGIN IF (strlen(fr^.rf_Dir) >0) and (strlen(fr^.rf_File) > 0) THEN begin strcopy(path,fr^.rf_Dir); strcopy(fname,fr^.rf_File); @@ -248,7 +248,7 @@ BEGIN fr := AllocAslRequest(ASL_FontRequest,@mytags); IF fr <> NIL THEN BEGIN - IF AslRequest(fr,NIL) THEN BEGIN + IF AslRequest(fr,NIL) <> 0 THEN BEGIN WITH finfo DO BEGIN nfi_Name := strpas(fr^.fo_Attr.ta_Name); nfi_Size := fr^.fo_Attr.ta_YSize; @@ -322,7 +322,7 @@ BEGIN fr := AllocAslRequest(ASL_FileRequest,@mytags); IF fr <> NIL THEN BEGIN - IF AslRequest(fr,NIL) THEN BEGIN + IF AslRequest(fr,NIL) <> 0 THEN BEGIN IF (strlen(fr^.rf_Dir) >0) THEN begin strcopy(path,fr^.rf_Dir); result := true; @@ -382,7 +382,7 @@ BEGIN fr := AllocAslRequest(ASL_FileRequest,@mytags); IF fr <> NIL THEN BEGIN - IF AslRequest(fr,NIL) THEN BEGIN + IF AslRequest(fr,NIL) <> 0 THEN BEGIN IF (strlen(fr^.rf_Dir) >0) THEN begin strcopy(path,fr^.rf_Dir); result := true; @@ -445,7 +445,7 @@ BEGIN fr := AllocAslRequest(ASL_FileRequest,@mytags); IF fr <> NIL THEN BEGIN - IF AslRequest(fr,NIL) THEN BEGIN + IF AslRequest(fr,NIL) <> 0 THEN BEGIN IF (strlen(fr^.rf_Dir) >0) and (strlen(fr^.rf_File) > 0) THEN begin strcopy(path,fr^.rf_Dir); strcopy(fname,fr^.rf_File); diff --git a/packages/amunits/src/utilunits/pastoc.pas b/packages/amunits/src/utilunits/pastoc.pas index a4a111fca5..1264515c43 100644 --- a/packages/amunits/src/utilunits/pastoc.pas +++ b/packages/amunits/src/utilunits/pastoc.pas @@ -27,8 +27,28 @@ {$smartlink on} {$endif use_amiga_smartlink} -unit PasToC; +{ + This unit must be deprecated because at least: + - It is leaking memory. It allocates a new buffer for each string which won't + be freed until the program exits. + - The unit doesn't provide any way to free allocated string buffers manually. + (Because ReleasePas2C is not a public function.) + - It does allocations outside the Pascal heap, which the compiler has no control + over, and makes it very hard to track these allocations, because the heaptrc + unit doesn't work. + - The intuition.library documentation states that AllocRemember() is a quite + ineffective function, because it does two memory allocations and because it + doesn't use memory pools it has a terrible effect on memory fragmentation. + - It uses a for loop byte to copy the string contents, which is very slow. + - It uses a global handle without any protection, therefore it's not thread safe. + - The strings unit provide equivalent functionality, without the leaking problem. + - Because of the above reasons, this unit will be removed as soon as nothing + else in the AmUnits package and among the examples depend on it. + (KB) +} +unit PasToC + deprecated 'Pas2C function is leaking memory, don''t use it. StrPCopy in strings unit provides equivalent functionality.'; interface @@ -57,31 +77,8 @@ var myrememberkey : pRemember; remember_exit : pointer; -FUNCTION fpcAllocRemember(VAR rememberKey : pRemember; size : ULONG; flags : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rememberKey,A0 - MOVE.L size,D0 - MOVE.L flags,D1 - MOVEA.L _IntuitionBase,A6 - JSR -396(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE fpcFreeRemember(VAR rememberKey : pRemember; reallyForget : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rememberKey,A0 - MOVE.L reallyForget,D0 - MOVEA.L _IntuitionBase,A6 - JSR -408(A6) - MOVEA.L (A7)+,A6 - END; -END; +FUNCTION fpcAllocRemember(VAR rememberKey : pRemember location 'a0'; size : ULONG location 'd0'; flags : ULONG location 'd1') : POINTER; syscall _IntuitionBase 396; +PROCEDURE fpcFreeRemember(VAR rememberKey : pRemember location 'a0'; reallyForget : LONGINT location 'd0'); syscall _IntuitionBase 408; Function StringPcharCopy(Dest: PChar; Source: String):PChar; var diff --git a/packages/amunits/src/utilunits/systemvartags.pas b/packages/amunits/src/utilunits/systemvartags.pas index f1bb906d19..5755420b27 100644 --- a/packages/amunits/src/utilunits/systemvartags.pas +++ b/packages/amunits/src/utilunits/systemvartags.pas @@ -26,7 +26,7 @@ unit systemvartags; interface uses exec,amigados, amigaguide, asl, bullet, intuition, datatypes , - gadtools, graphics, locale, lowlevel, realtime, + gadtools, agraphics, locale, lowlevel, realtime, workbench, utility, tagsarray; { As of today boolean and char doesn't function in @@ -232,7 +232,7 @@ end; FUNCTION AslRequestTags(requester : POINTER; Const argv : Array Of Const) : BOOLEAN; begin - AslRequestTags := AslRequest(requester,readintags(argv)); + AslRequestTags := AslRequest(requester,readintags(argv)) <> 0; end; FUNCTION ObtainInfo(glyphEngine : pGlyphEngine; Const argv : Array Of Const) : ULONG; diff --git a/packages/amunits/src/utilunits/tagsarray.pas b/packages/amunits/src/utilunits/tagsarray.pas index 5285f4c94d..ff5c857417 100644 --- a/packages/amunits/src/utilunits/tagsarray.pas +++ b/packages/amunits/src/utilunits/tagsarray.pas @@ -14,58 +14,98 @@ **********************************************************************} -{ - History: - - First version of this unit. - Just use this unit when you want to - use taglist. - - 09 Nov 2002 - - nils.sjoholm@mailbox.swipnet.se -} - unit tagsarray; -{$mode objfpc} - +{$mode objfpc}{$H+} interface -uses Exec, Utility; +uses + Exec, Utility; + +type + TTagsList = array of ttagitem; + PMyTags = ^TTagsList; -function readintags(const args : array of const): pTagItem; +function ReadInTags(const Args: array of const): PTagItem; +procedure AddTags(var Taglist: TTagsList; const Args: array of const); +function GetTagPtr(var TagList: TTagsList): PTagItem; implementation -uses pastoc; +var + MyTags: PMyTags; +procedure AddTags(var Taglist: TTagsList; const Args: array of const); var - mytags : array [0..200] of ttagitem; + i: PtrInt; + ii: PtrInt; +begin + ii := Length(TagList); + SetLength(TagList, Length(TagList) + (Length(args) DIV 2)); + for i := 0 to High(args) do + begin + if (not Odd(i)) then + begin + TagList[ii].ti_tag := PtrInt(Args[i].vinteger); + end else + begin + case Args[i].vtype of + vtinteger : TagList[ii].ti_data := PtrInt(Args[i].vinteger); + vtboolean : TagList[ii].ti_data := PtrInt(byte(Args[i].vboolean)); + vtpchar : TagList[ii].ti_data := PtrInt(Args[i].vpchar); + vtchar : TagList[ii].ti_data := PtrInt(Args[i].vchar); + vtstring : TagList[ii].ti_data := PtrInt(PChar(string(Args[i].vstring^))); + vtpointer : TagList[ii].ti_data := PtrInt(Args[i].vpointer); + end; + inc(ii); + end; + end; +end; + +function GetTagPtr(var TagList: TTagsList): pTagItem; +begin + AddTags(TagList, [TAG_END, TAG_END]); + GetTagPtr := @(TagList[0]); +end; -function readintags(const args : array of const): pTagItem; +function ReadInTags(const Args: array of const): PTagItem; var - i : longint; - ii : longint; + i: PtrInt; + ii: PtrInt; begin - ii := 0; - for i := 0 to high(args) do begin - if (not odd(i)) then begin - mytags[ii].ti_tag := longint(Args[i].vinteger); - end else begin - case Args[i].vtype of - vtinteger : mytags[ii].ti_data := longint(Args[i].vinteger); - vtboolean : mytags[ii].ti_data := longint(byte(Args[i].vboolean)); - vtpchar : mytags[ii].ti_data := longint(Args[i].vpchar); - vtchar : mytags[ii].ti_data := longint(Args[i].vchar); - vtstring : mytags[ii].ti_data := longint(pas2c(Args[i].vstring^)); - vtpointer : mytags[ii].ti_data := longint(Args[i].vpointer); - end; - inc(ii); - end; + ii := 0; + SetLength(MyTags^, (Length(Args) div 2) + 4); // some more at the end + for i := 0 to High(Args) do + begin + if not Odd(i) then + begin + mytags^[ii].ti_tag := PtrInt(Args[i].vinteger); + end else + begin + case Args[i].vtype of + vtinteger: mytags^[ii].ti_data := PtrInt(Args[i].vinteger); + vtboolean: mytags^[ii].ti_data := PtrInt(Byte(Args[i].vboolean)); + vtpchar: mytags^[ii].ti_data := PtrInt(Args[i].vpchar); + vtchar: mytags^[ii].ti_data := PtrInt(Args[i].vchar); + vtstring: mytags^[ii].ti_data := PtrInt(PChar(string(Args[i].vstring^))); + vtpointer: mytags^[ii].ti_data := PtrInt(Args[i].vpointer); + end; + Inc(ii); end; - readintags := @mytags; + end; + Inc(ii); + // Add additional TAG_DONE (if user forget) + mytags^[ii].ti_tag := TAG_DONE; + mytags^[ii].ti_data := 0; + // return the pointer + ReadInTags := @(MyTags^[0]); end; +initialization + New(MyTags); + SetLength(MyTags^, 200); +finalization + SetLength(MyTags^, 0); + Dispose(MyTags); end. |