diff --git a/demos/build.sh b/demos/build.sh index 3d36bf0..95d4e5c 100755 --- a/demos/build.sh +++ b/demos/build.sh @@ -79,6 +79,7 @@ fi "$PROJECT_ROOT/runtime/softDouble.o" \ "$PROJECT_ROOT/runtime/iigsGsos.o" \ "$PROJECT_ROOT/runtime/iigsToolbox.o" \ + "$PROJECT_ROOT/runtime/iigsToolboxExtra.o" \ "$PROJECT_ROOT/runtime/desktop.o" \ "$PROJECT_ROOT/runtime/sound.o" \ "$PROJECT_ROOT/runtime/cursor.o" \ diff --git a/demos/buildGno.sh b/demos/buildGno.sh index 4fb364e..9752e3d 100755 --- a/demos/buildGno.sh +++ b/demos/buildGno.sh @@ -98,7 +98,7 @@ fi "$RT/libc.o" "$RT/snprintf.o" "$RT/extras.o" \ "$RT/softFloat.o" "$RT/softDouble.o" \ "$RT/math.o" \ - "$RT/iigsToolbox.o" \ + "$RT/iigsToolbox.o" "$RT/iigsToolboxExtra.o" \ "$RT/libgcc.o" \ "$RT/libcxxabi.o" "$RT/libcxxabiSjlj.o" "$RT/libunwindStub.o" diff --git a/docs/INSTALL.md b/docs/INSTALL.md index 7ff67d4..cc8de83 100644 --- a/docs/INSTALL.md +++ b/docs/INSTALL.md @@ -23,7 +23,7 @@ After install, the `llvm816/` directory tree contains everything: | `tools/llvm-mos-build/` | 1.4 GB | Compiled clang/llc/llvm-mc binaries. This is where you actually run the compiler from. | | `tools/llvm-mos-sdk/` | 400 MB | Prebuilt llvm-mos SDK (the original 6502 distribution). Mostly unused by us; kept as a reference baseline. | | `tools/calypsi/` | 580 MB | Commercial Calypsi 5.16 65816 C compiler — installed for output-quality comparisons in `compare/`. | -| `tools/orca-c/` | 10 MB | Apple's official ORCA/C compiler source — header reference for the IIgs Toolbox bindings. | +| `tools/nlist/` | 68 KB | Dave Lyons' NiftyList toolbox catalog (`NList.Data.txt`). Source of truth for the IIgs toolbox bindings auto-generated into `runtime/include/iigs/toolbox.h`. | | `tools/gsos/` | 13 MB | Apple GS/OS 6.0.2 / 6.0.4 disk images for booting under MAME. | | `tools/mame/roms/` | 1.5 MB | Apple IIgs ROM 01 + ROM 03 (downloaded from archive.org). | | **Total** | **~7-8 GB** | | @@ -104,7 +104,7 @@ That's it. `setup.sh` runs five stages in order: | 2/5 | `installLlvmMos.sh` | Clone `llvm-mos` source (5 GB), download prebuilt llvm-mos SDK (400 MB), **apply our W65816 backend** (symlinks + patches), **build clang/llc/llvm-mc with W65816 target enabled**, **build `link816` + `omfEmit`**, and **build the runtime libraries** (`libc.o`, `crt0.o`, `libgcc.o`, soft-float, etc.). After this stage you have a working W65816 toolchain end-to-end. | ~30-60 min (first time; LLVM build is the long pole) | | 3/5 | `installMame.sh` | Install MAME via apt, download `apple2gs.zip` (ROM 03) and `apple2gsr1.zip` (ROM 01) into `tools/mame/roms/`. | ~30 s | | 4/5 | `installCalypsi.sh` | Download Calypsi 5.16 .deb, extract its payload into `tools/calypsi/` (no system-wide install). | ~30 s | -| 5/5 | `installOrcaC.sh` | Shallow clone of byteworksinc's ORCA/C repo into `tools/orca-c/` for toolbox header reference. | ~15 s | +| 5/5 | `installGno.sh` | Fetch GNO/ME 2.0.6 + GS/OS 6.0.4 disk images for shell-command testing under MAME. | ~30 s | After each stage, the script prints `=== N/5 stage-name ===` so you can follow progress. At the end it runs `verify.sh` which sanity- @@ -131,7 +131,6 @@ LLVM build didn't include the W65816 target. Re-run | `--skip-llvm` | Skip the LLVM clone + build + runtime. Useful for iterating on other parts. | | `--skip-mame` | Skip MAME + ROM download. | | `--skip-calypsi` | Skip Calypsi (saves 580 MB if you don't need the comparison benchmarks). | -| `--skip-orca` | Skip ORCA/C (saves ~10 MB; only needed if you regenerate `iigs/toolbox.h`). | | `--skip-verify` | Don't run the post-install verification check. | | `--verify-only` | Just run the verification check, don't install anything. | | `--build-llvm` | Deprecated alias — the LLVM build is now always part of stage 2/5 (without it we wouldn't have a usable W65816 compiler). | @@ -182,7 +181,7 @@ llvm816/ ← your repo checkout ├── omfEmit (~70 KB) — OMF v2.1 emitter for GS/OS Loader ├── cadius/ — Apple ProDOS / GS/OS disk image tool ├── calypsi/ (580 MB) — Calypsi 5.16 reference compiler - ├── orca-c/ (10 MB) — ORCA/C compiler (header reference) + ├── nlist/ (68 KB) — NList.Data (toolbox-binding catalog) ├── gsos/ (13 MB) — GS/OS 6.0.2 / 6.0.4 disk images ├── mame/ │ └── roms/ (1.5 MB) — apple2gs ROM 01 + ROM 03 @@ -240,12 +239,11 @@ bash scripts/installLlvmMos.sh # llvm-mos clone + prebuilt SDK bash scripts/installLlvmMos.sh --build # also build clang/llc (slow) bash scripts/installMame.sh # MAME + apple2gs ROMs bash scripts/installCalypsi.sh # reference compiler (optional) -bash scripts/installOrcaC.sh # reference compiler (optional) bash scripts/verify.sh # sanity-check everything ``` If you only want to *build* C programs (no benchmarks, no comparisons), -`installCalypsi.sh` and `installOrcaC.sh` are skippable. +`installCalypsi.sh` is skippable. ### Building W65816 clang from source @@ -315,7 +313,7 @@ If you want a fully clean rebuild (e.g., to chase a "stale .o" bug): ```bash rm -rf tools/llvm-mos-build -./setup.sh --skip-deps --skip-mame --skip-calypsi --skip-orca +./setup.sh --skip-deps --skip-mame --skip-calypsi ``` --- diff --git a/docs/USAGE.md b/docs/USAGE.md index d5d47e2..4290cde 100644 --- a/docs/USAGE.md +++ b/docs/USAGE.md @@ -68,7 +68,7 @@ llvm816/ ← repo root; everything is contained here │ ├── mame/ ← Apple IIgs ROMs for MAME │ ├── gsos/ ← GS/OS 6.0.2 / 6.0.4 disk images │ ├── calypsi/ ← reference compiler for comparison (~580 MB) -│ └── orca-c/ ← reference compiler (header sources) +│ └── nlist/ ← NList.Data toolbox-binding catalog ├── demos/ ← example IIgs programs ├── benchmarks/ ← cycle-count benchmarks ├── compare/ ← side-by-side ours-vs-Calypsi assembly diff --git a/runtime/build.sh b/runtime/build.sh index c585be1..ef093cb 100755 --- a/runtime/build.sh +++ b/runtime/build.sh @@ -79,6 +79,11 @@ cc "$SRC/uiBuilder.c" cc "$SRC/resource.c" asm "$SRC/iigsGsos.s" asm "$SRC/iigsToolbox.s" +# Hand-written wrappers that don't fit genToolbox.py's standard shape +# (struct-returning toolbox calls, etc.). Linked alongside the auto- +# generated iigsToolbox.s so a `python3 scripts/genToolbox.py` regen +# doesn't clobber them. See runtime/src/iigsToolboxExtra.s. +asm "$SRC/iigsToolboxExtra.s" # softDouble.c builds at -O2. dpack is noinline to dodge a backend # stack-slot aliasing bug; dclass stays inline because pointer-arg # stores from a noinline boundary use DBR-relative addressing (broken diff --git a/runtime/include/iigs/toolbox.h b/runtime/include/iigs/toolbox.h index f782323..af0783f 100644 --- a/runtime/include/iigs/toolbox.h +++ b/runtime/include/iigs/toolbox.h @@ -1,7 +1,8 @@ -// AUTOGENERATED by scripts/genToolbox.py from ORCA-C ORCACDefs/. +// AUTOGENERATED by scripts/genToolbox.py from NList.Data. // DO NOT EDIT by hand — regenerate to update. +// Source: tools/nlist/NList.Data.txt (Dave Lyons' NiftyList database). // -// Complete IIgs toolbox: ~1300 routines across 35 tool sets. +// Complete IIgs toolbox + GS/OS surface (~2000 routines). // Names match Apple's IIgs Toolbox Reference (TLStartUp, // MMStartUp, NewWindow, SysBeep, etc.). Multi-arg wrappers // (those whose stub body uses memory operands) live in @@ -23,1194 +24,43 @@ extern "C" { // hand. Pointer-sized; pass to SetCursor() / GetCursorAdr(). typedef struct IigsCursorT IigsCursorT; -// tool 0x011D set 0x1D (ACETools) -static inline void ACEBootInit(void) { - __asm__ volatile ( - "ldx #0x011D\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x021D set 0x1D (ACETools) -static inline void ACEStartUp(unsigned short a0) { +extern void Create(void * a0, unsigned short a1, unsigned short a2, unsigned long a3, unsigned short a4, unsigned long a5, unsigned long a6); // 0x2001 +extern void Destroy(void * a0); // 0x2002 +// tool 0x2003 set 0x03 (MiscTools) +static inline void OSShutdown(unsigned short a0) { __asm__ volatile ( "pha\n" // arg0 - "ldx #0x021D\n" - "jsl 0xe10000\n" + "ldx #0x2003\n" + "jsl 0xe100a8\n" : : "a"(a0) : "x", "y", "memory" ); } -// tool 0x031D set 0x1D (ACETools) -static inline void ACEShutDown(void) { - __asm__ volatile ( - "ldx #0x031D\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x041D set 0x1D (ACETools) -static inline unsigned short ACEVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x041D\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x051D set 0x1D (ACETools) -static inline void ACEReset(void) { - __asm__ volatile ( - "ldx #0x051D\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x061D set 0x1D (ACETools) -static inline unsigned short ACEStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x061D\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned long ACEInfo(unsigned short a0); // 0x071D -// tool 0x0B1D set 0x1D (ACETools) -static inline void ACECompBegin(void) { - __asm__ volatile ( - "ldx #0x0B1D\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void ACECompress(void * a0, long a1, void * a2, long a3, unsigned short a4, unsigned short a5); // 0x091D -extern void ACEExpand(void * a0, long a1, void * a2, long a3, unsigned short a4, unsigned short a5); // 0x0A1D -// tool 0x0C1D set 0x1D (ACETools) -static inline void ACEExpBegin(void) { - __asm__ volatile ( - "ldx #0x0C1D\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void GetACEExpState(void * a0); // 0x0D1D -extern void SetACEExpState(void * a0); // 0x0E1D -// tool 0x0109 set 0x09 (AppleDeskBus) -static inline void ADBBootInit(void) { - __asm__ volatile ( - "ldx #0x0109\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0209 set 0x09 (AppleDeskBus) -static inline void ADBStartUp(void) { - __asm__ volatile ( - "ldx #0x0209\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0309 set 0x09 (AppleDeskBus) -static inline void ADBShutDown(void) { - __asm__ volatile ( - "ldx #0x0309\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0409 set 0x09 (AppleDeskBus) -static inline unsigned short ADBVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0409\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0509 set 0x09 (AppleDeskBus) -static inline void ADBReset(void) { - __asm__ volatile ( - "ldx #0x0509\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0609 set 0x09 (AppleDeskBus) -static inline unsigned short ADBStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0609\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0F09 set 0x09 (AppleDeskBus) -static inline void AbsOn(void) { - __asm__ volatile ( - "ldx #0x0F09\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x1009 set 0x09 (AppleDeskBus) -static inline void AbsOff(void) { - __asm__ volatile ( - "ldx #0x1009\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void AsyncADBReceive(void * a0, unsigned short a1); // 0x0D09 -// tool 0x1609 set 0x09 (AppleDeskBus) -static inline void ClearSRQTable(void) { - __asm__ volatile ( - "ldx #0x1609\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void GetAbsScale(void * a0); // 0x1309 -// tool 0x1109 set 0x09 (AppleDeskBus) -static inline unsigned short ReadAbs(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1109\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void ReadKeyMicroData(unsigned short a0, void * a1, unsigned short a2); // 0x0A09 -extern void ReadKeyMicroMemory(void * a0, void * a1, unsigned short a2); // 0x0B09 -extern void SendInfo(unsigned short a0, void * a1, unsigned short a2); // 0x0909 -extern void SetAbsScale(void * a0); // 0x1209 -extern void SRQPoll(void * a0, unsigned short a1); // 0x1409 -// tool 0x1509 set 0x09 (AppleDeskBus) -static inline void SRQRemove(unsigned short a0) { +extern void ChangePath(void * a0, void * a1, unsigned short a2); // 0x2004 +extern void GetFileInfo(void * a0, unsigned short a1, unsigned short a2, unsigned long a3, unsigned short a4, long long a5, long long a6, void * a7, unsigned long a8, unsigned long a9, unsigned long a10, unsigned long a11); // 0x2006 +extern void JudgeName(unsigned short a0, unsigned short a1, void * a2, unsigned short a3, void * a4, unsigned short a5); // 0x2007 +extern void Volume(void * a0, void * a1, unsigned long a2, unsigned long a3, unsigned short a4, unsigned short a5, unsigned short a6, unsigned short a7); // 0x2008 +extern void SetPrefix(unsigned short a0, void * a1); // 0x2009 +extern void GetPrefix(unsigned short a0, void * a1); // 0x200A +extern void ClearBackup(void * a0); // 0x200B +// tool 0x200C set 0x0C (TextTools) +static inline void SetSysPrefs(unsigned short a0) { __asm__ volatile ( "pha\n" // arg0 - "ldx #0x1509\n" - "jsl 0xe10000\n" + "ldx #0x200C\n" + "jsl 0xe100a8\n" : : "a"(a0) : "x", "y", "memory" ); } -extern void SyncADBReceive(unsigned short a0, void * a1, unsigned short a2); // 0x0E09 -// tool 0x0110 set 0x10 (ControlManager) -static inline void CtlBootInit(void) { +// tool 0x200D set 0x0D (?) +static inline void Null(void) { __asm__ volatile ( - "ldx #0x0110\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void CtlStartUp(unsigned short a0, unsigned short a1); // 0x0210 -// tool 0x0310 set 0x10 (ControlManager) -static inline void CtlShutDown(void) { - __asm__ volatile ( - "ldx #0x0310\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0410 set 0x10 (ControlManager) -static inline unsigned short CtlVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0410\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0510 set 0x10 (ControlManager) -static inline void CtlReset(void) { - __asm__ volatile ( - "ldx #0x0510\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0610 set 0x10 (ControlManager) -static inline unsigned short CtlStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0610\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1210 set 0x10 (ControlManager) -static inline void CtlNewRes(void) { - __asm__ volatile ( - "ldx #0x1210\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void DisposeControl(void * a0); // 0x0A10 -extern void DragControl(short a0, short a1, void * a2, void * a3, unsigned short a4, void * a5); // 0x1710 -extern void * DragRect(void * a0, void * a1, short a2, short a3, void * a4, void * a5, void * a6, unsigned short a7); // 0x1D10 -extern void DrawControls(void * a0); // 0x1010 -extern void DrawOneCtl(void * a0); // 0x2510 -extern void EraseControl(void * a0); // 0x2410 -extern unsigned short FindControl(void * a0, short a1, short a2, void * a3); // 0x1310 -extern void * GetCtlAction(void * a0); // 0x2110 -// tool 0x1F10 set 0x10 (ControlManager) -static inline unsigned short GetCtlDPage(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1F10\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned long GetCtlParams(void * a0); // 0x1C10 -extern unsigned long GetCtlRefCon(void * a0); // 0x2310 -extern void * GetCtlTitle(void * a0); // 0x0D10 -extern unsigned short GetCtlValue(void * a0); // 0x1A10 -extern unsigned long GrowSize(void); // 0x1E10 -extern void HideControl(void * a0); // 0x0E10 -extern void HiliteControl(unsigned short a0, void * a1); // 0x1110 -extern void KillControls(void * a0); // 0x0B10 -extern void MoveControl(short a0, short a1, void * a2); // 0x1610 -extern void * NewControl(void * a0, void * a1, void * a2, unsigned short a3, unsigned short a4, unsigned short a5, unsigned short a6, void * a7, void * a8, void * a9); // 0x0910 -extern void SetCtlAction(void * a0, void * a1); // 0x2010 -extern void * SetCtlIcons(void * a0); // 0x1810 -extern void SetCtlParams(unsigned short a0, unsigned short a1, void * a2); // 0x1B10 -extern void SetCtlRefCon(void * a0, void * a1); // 0x2210 -extern void SetCtlTitle(void * a0, void * a1); // 0x0C10 -extern void SetCtlValue(unsigned short a0, void * a1); // 0x1910 -extern void ShowControl(void * a0); // 0x0F10 -extern unsigned short TestControl(short a0, short a1, void * a2); // 0x1410 -extern unsigned short TrackControl(short a0, short a1, void * a2, void * a3); // 0x1510 -extern unsigned long CallCtlDefProc(void * a0, unsigned short a1, long a2); // 0x2C10 -extern void * CMLoadResource(unsigned short a0, long a1); // 0x3210 -extern void CMReleaseResource(unsigned short a0, long a1); // 0x3310 -extern void * FindTargetCtl(void); // 0x2610 -extern void * GetCtlHandleFromID(void * a0, long a1); // 0x3010 -extern unsigned long GetCtlID(void * a0); // 0x2A10 -extern unsigned short GetCtlMoreFlags(void * a0); // 0x2E10 -extern void * GetCtlParamPtr(void); // 0x3510 -extern void InvalCtls(void * a0); // 0x3710 -extern void * MakeNextCtlTarget(void); // 0x2710 -extern void MakeThisCtlTarget(void * a0); // 0x2810 -extern void * NewControl2(void * a0, unsigned short a1, void * a2); // 0x3110 -extern void NotifyControls(unsigned short a0, unsigned short a1, long a2, void * a3); // 0x2D10 -extern void NotifyCtls(unsigned short a0, unsigned short a1, long a2, void * a3); // 0x2D10 -extern unsigned short SendEventToCtl(unsigned short a0, void * a1, void * a2); // 0x2910 -extern void SetCtlID(long a0, void * a1); // 0x2B10 -extern void SetCtlMoreFlags(unsigned short a0, void * a1); // 0x2F10 -extern void SetCtlParamPtr(void * a0); // 0x3410 -extern unsigned short FindRadioButton(void * a0, unsigned short a1); // 0x3910 -extern void GetLETextByID(void * a0, long a1, void * a2); // 0x3B10 -extern void SetLETextByID(void * a0, long a1, void * a2); // 0x3A10 -extern void SetCtlValueByID(unsigned short a0, void * a1, long a2); // 0x3C10 -extern unsigned short GetCtlValueByID(void * a0, long a1); // 0x3D10 -extern void InvalOneCtlByID(void * a0, long a1); // 0x3E10 -extern void HiliteCtlByID(unsigned short a0, void * a1, long a2); // 0x3F10 -// tool 0x0105 set 0x05 (DeskManager) -static inline void DeskBootInit(void) { - __asm__ volatile ( - "ldx #0x0105\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0205 set 0x05 (DeskManager) -static inline void DeskStartUp(void) { - __asm__ volatile ( - "ldx #0x0205\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0305 set 0x05 (DeskManager) -static inline void DeskShutDown(void) { - __asm__ volatile ( - "ldx #0x0305\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0405 set 0x05 (DeskManager) -static inline unsigned short DeskVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0405\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0505 set 0x05 (DeskManager) -static inline void DeskReset(void) { - __asm__ volatile ( - "ldx #0x0505\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0605 set 0x05 (DeskManager) -static inline unsigned short DeskStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0605\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1105 set 0x05 (DeskManager) -static inline void ChooseCDA(void) { - __asm__ volatile ( - "ldx #0x1105\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x1D05 set 0x05 (DeskManager) -static inline void CloseAllNDAs(void) { - __asm__ volatile ( - "ldx #0x1D05\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x1605 set 0x05 (DeskManager) -static inline void CloseNDA(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1605\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void CloseNDAbyWinPtr(void * a0); // 0x1C05 -extern void CloseNDAByWinPtr(void * a0); // 0x1C05 -// tool 0x1E05 set 0x05 (DeskManager) -static inline void FixAppleMenu(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1E05\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void * GetDAStrPtr(void); // 0x1405 -// tool 0x1B05 set 0x05 (DeskManager) -static inline unsigned short GetNumNDAs(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1B05\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void InstallCDA(void * a0); // 0x0F05 -extern void InstallNDA(void * a0); // 0x0E05 -// tool 0x1505 set 0x05 (DeskManager) -static inline unsigned short OpenNDA(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x1505\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0C05 set 0x05 (DeskManager) -static inline void RestAll(void) { - __asm__ volatile ( - "ldx #0x0C05\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0A05 set 0x05 (DeskManager) -static inline void RestScrn(void) { - __asm__ volatile ( - "ldx #0x0A05\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0B05 set 0x05 (DeskManager) -static inline void SaveAll(void) { - __asm__ volatile ( - "ldx #0x0B05\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0905 set 0x05 (DeskManager) -static inline void SaveScrn(void) { - __asm__ volatile ( - "ldx #0x0905\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void SetDAStrPtr(void * a0, void * a1); // 0x1305 -extern void SystemClick(void * a0, void * a1, unsigned short a2); // 0x1705 -// tool 0x1805 set 0x05 (DeskManager) -static inline unsigned short SystemEdit(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x1805\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned short SystemEvent(unsigned short a0, long a1, long a2, void * a3, unsigned short a4); // 0x1A05 -// tool 0x1905 set 0x05 (DeskManager) -static inline void SystemTask(void) { - __asm__ volatile ( - "ldx #0x1905\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void AddToRunQ(void * a0); // 0x1F05 -extern void RemoveCDA(void * a0); // 0x2105 -extern void RemoveFromRunQ(void * a0); // 0x2005 -extern void RemoveNDA(void * a0); // 0x2205 -extern unsigned short CallDeskAcc(unsigned short a0, long a1, unsigned short a2, long a3); // 0x2405 -extern void GetDeskAccInfo(unsigned short a0, long a1, unsigned short a2, void * a3); // 0x2305 -extern unsigned long GetDeskGlobal(unsigned short a0); // 0x2505 -// tool 0x0115 set 0x15 (DialogManager) -static inline void DialogBootInit(void) { - __asm__ volatile ( - "ldx #0x0115\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0215 set 0x15 (DialogManager) -static inline void DialogStartUp(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0215\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x0315 set 0x15 (DialogManager) -static inline void DialogShutDown(void) { - __asm__ volatile ( - "ldx #0x0315\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0415 set 0x15 (DialogManager) -static inline unsigned short DialogVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0415\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0515 set 0x15 (DialogManager) -static inline void DialogReset(void) { - __asm__ volatile ( - "ldx #0x0515\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0615 set 0x15 (DialogManager) -static inline unsigned short DialogStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0615\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned short Alert(void * a0, void * a1); // 0x1715 -extern unsigned short CautionAlert(void * a0, void * a1); // 0x1A15 -extern void CloseDialog(void * a0); // 0x0C15 -extern unsigned short DefaultFilter(void * a0, void * a1, unsigned short a2); // 0x3615 -extern unsigned short DialogSelect(void * a0, void * a1, unsigned short a2); // 0x1115 -extern void DisableDItem(void * a0, unsigned short a1); // 0x3915 -extern void DlgCopy(void * a0); // 0x1315 -extern void DlgCut(void * a0); // 0x1215 -extern void DlgDelete(void * a0); // 0x1515 -extern void DlgPaste(void * a0); // 0x1415 -extern void DrawDialog(void * a0); // 0x1615 -extern void EnableDItem(void * a0, unsigned short a1); // 0x3A15 -extern void ErrorSound(void * a0); // 0x0915 -extern unsigned short FindDItem(void * a0, void * a1); // 0x2415 -// tool 0x3415 set 0x15 (DialogManager) -static inline unsigned short GetAlertStage(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x3415\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetControlDItem(void * a0, unsigned short a1); // 0x1E15 -extern unsigned short GetDefButton(void * a0); // 0x3715 -extern void GetDItemBox(void * a0, unsigned short a1, void * a2); // 0x2815 -extern unsigned short GetDItemType(void * a0, unsigned short a1); // 0x2615 -extern unsigned short GetDItemValue(void * a0, unsigned short a1); // 0x2E15 -extern unsigned short GetFirstDItem(void * a0); // 0x2A15 -extern void GetIText(void * a0, unsigned short a1, void * a2); // 0x1F15 -extern void GetNewDItem(void * a0, void * a1); // 0x3315 -extern void * GetNewModalDialog(void * a0); // 0x3215 -extern unsigned short GetNextDItem(void * a0, unsigned short a1); // 0x2B15 -extern void HideDItem(void * a0, unsigned short a1); // 0x2215 -extern unsigned short IsDialogEvent(void * a0); // 0x1015 -extern unsigned short ModalDialog(void * a0); // 0x0F15 -extern unsigned long ModalDialog2(void * a0); // 0x2C15 -extern void NewDItem(void * a0, unsigned short a1, void * a2, unsigned short a3, void * a4, unsigned short a5, unsigned short a6, void * a7); // 0x0D15 -extern void * NewModalDialog(void * a0, unsigned short a1, unsigned long a2); // 0x0A15 -extern void * NewModelessDialog(void * a0, void * a1, void * a2, unsigned short a3, unsigned long a4, void * a5); // 0x0B15 -extern unsigned short NoteAlert(void * a0, void * a1); // 0x1915 -extern void ParamText(void * a0, void * a1, void * a2, void * a3); // 0x1B15 -extern void RemoveDItem(void * a0, unsigned short a1); // 0x0E15 -// tool 0x3515 set 0x15 (DialogManager) -static inline void ResetAlertStage(void) { - __asm__ volatile ( - "ldx #0x3515\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void SelectIText(void * a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x2115 -extern void SelIText(void * a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x2115 -extern void SetDAFont(void * a0); // 0x1C15 -extern void SetDefButton(unsigned short a0, void * a1); // 0x3815 -extern void SetDItemBox(void * a0, unsigned short a1, void * a2); // 0x2915 -extern void SetDItemType(unsigned short a0, void * a1, unsigned short a2); // 0x2715 -extern void SetDItemValue(unsigned short a0, void * a1, unsigned short a2); // 0x2F15 -extern void SetIText(void * a0, unsigned short a1, void * a2); // 0x2015 -extern void ShowDItem(void * a0, unsigned short a1); // 0x2315 -extern unsigned short StopAlert(void * a0, void * a1); // 0x1815 -extern void UpdateDialog(void * a0, void * a1); // 0x2515 -// tool 0x0106 set 0x06 (EventManager) -static inline void EMBootInit(void) { - __asm__ volatile ( - "ldx #0x0106\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void EMStartUp(unsigned short a0, unsigned short a1, short a2, short a3, short a4, short a5, unsigned short a6); // 0x0206 -// tool 0x0306 set 0x06 (EventManager) -static inline void EMShutDown(void) { - __asm__ volatile ( - "ldx #0x0306\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0406 set 0x06 (EventManager) -static inline unsigned short EMVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0406\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0506 set 0x06 (EventManager) -static inline void EMReset(void) { - __asm__ volatile ( - "ldx #0x0506\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0606 set 0x06 (EventManager) -static inline unsigned short EMStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0606\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0D06 set 0x06 (EventManager) -static inline unsigned short Button(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x0D06\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0906 set 0x06 (EventManager) -static inline unsigned short DoWindows(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0906\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned short EventAvail(unsigned short a0, void * a1); // 0x0B06 -extern void FakeMouse(unsigned short a0, unsigned short a1, short a2, short a3, unsigned short a4); // 0x1906 -extern unsigned short FlushEvents(unsigned short a0, unsigned short a1); // 0x1506 -extern unsigned long GetCaretTime(void); // 0x1206 -extern unsigned long GetDblTime(void); // 0x1106 -extern void GetMouse(void * a0); // 0x0C06 -extern unsigned short GetNextEvent(unsigned short a0, void * a1); // 0x0A06 -extern unsigned short GetOSEvent(unsigned short a0, void * a1); // 0x1606 -extern unsigned short OSEventAvail(unsigned short a0, void * a1); // 0x1706 -extern unsigned short PostEvent(unsigned short a0, unsigned long a1); // 0x1406 -// tool 0x1806 set 0x06 (EventManager) -static inline void SetEventMask(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1806\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x1306 set 0x06 (EventManager) -static inline void SetSwitch(void) { - __asm__ volatile ( - "ldx #0x1306\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0E06 set 0x06 (EventManager) -static inline unsigned short StillDown(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x0E06\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned long TickCount(void); // 0x1006 -// tool 0x0F06 set 0x06 (EventManager) -static inline unsigned short WaitMouseUp(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x0F06\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1B06 set 0x06 (EventManager) -static inline unsigned short GetKeyTranslation(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1B06\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1A06 set 0x06 (EventManager) -static inline void SetAutoKeyLimit(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1A06\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x1C06 set 0x06 (EventManager) -static inline void SetKeyTranslation(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1C06\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x011B set 0x1B (FontManager) -static inline void FMBootInit(void) { - __asm__ volatile ( - "ldx #0x011B\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void FMStartUp(unsigned short a0, unsigned short a1); // 0x021B -// tool 0x031B set 0x1B (FontManager) -static inline void FMShutDown(void) { - __asm__ volatile ( - "ldx #0x031B\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x041B set 0x1B (FontManager) -static inline unsigned short FMVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x041B\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x051B set 0x1B (FontManager) -static inline void FMReset(void) { - __asm__ volatile ( - "ldx #0x051B\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x061B set 0x1B (FontManager) -static inline unsigned short FMStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x061B\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void AddFamily(unsigned short a0, void * a1); // 0x0D1B -extern void AddFontVar(void * a0, unsigned short a1); // 0x141B -extern unsigned long ChooseFont(void * a0, unsigned short a1); // 0x161B -// tool 0x091B set 0x1B (FontManager) -static inline unsigned short CountFamilies(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x091B\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned short CountFonts(void * a0, unsigned short a1); // 0x101B -// tool 0x1B1B set 0x1B (FontManager) -static inline unsigned short FamNum2ItemID(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x1B1B\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned short FindFamily(unsigned short a0, unsigned short a1, void * a2); // 0x0A1B -extern void FindFontStats(void * a0, unsigned short a1, unsigned short a2, void * a3); // 0x111B -extern void FixFontMenu(unsigned short a0, unsigned short a1, unsigned short a2); // 0x151B -extern unsigned long FMGetCurFID(void); // 0x1A1B -extern unsigned long FMGetSysFID(void); // 0x191B -extern void FMSetSysFont(void * a0); // 0x181B -extern unsigned short GetFamInfo(unsigned short a0, void * a1); // 0x0B1B -extern unsigned short GetFamNum(void * a0); // 0x0C1B -extern void InstallFont(void * a0, unsigned short a1); // 0x0E1B -// tool 0x171B set 0x1B (FontManager) -static inline unsigned short ItemID2FamNum(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x171B\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void LoadFont(void * a0, unsigned short a1, unsigned short a2, void * a3); // 0x121B -// tool 0x131B set 0x1B (FontManager) -static inline void LoadSysFont(void) { - __asm__ volatile ( - "ldx #0x131B\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void SetPurgeStat(void * a0, unsigned short a1); // 0x0F1B -extern void InstallWithStats(void * a0, unsigned short a1, void * a2); // 0x1C1B -// tool 0x04FF set 0xFF (?) -static inline unsigned short DebugVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x04FF\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x06FF set 0xFF (?) -static inline unsigned short DebugStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x06FF\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void DebugStr(void * a0); // 0x09FF -extern void SetMileStone(void * a0); // 0x0AFF -extern void DebugSetHook(void * a0); // 0x0BFF -extern unsigned long DebugGetInfo(unsigned short a0); // 0x0CFF -extern void * EvalExpr(void * a0); // 0x0002 -extern void SendCardMessage(void * a0); // 0x0001 -extern void SendHCMessage(void * a0); // 0x0005 -extern void * GetGlobal(void * a0); // 0x0012 -extern void SetGlobal(void * a0, void * a1); // 0x0013 -extern void ZeroBytes(void * a0, void * a1); // 0x0006 -extern unsigned short GSStringEqual(void * a0, void * a1); // 0x0022 -extern void ScanToReturn(void * a0); // 0x001C -extern void ScanToZero(void * a0); // 0x001D -extern unsigned short StringEqual(void * a0, void * a1); // 0x001A -extern void * StringLength(void * a0); // 0x0003 -extern void * StringMatch(void * a0, void * a1); // 0x0004 -extern void * BoolToStr(unsigned short a0); // 0x0010 -extern void * CopyGSString(void * a0); // 0x0020 -extern void * ExtToStr(long double a0); // 0x0011 -extern void * GSConcat(void * a0, void * a1); // 0x0021 -extern void * GSToPString(void * a0); // 0x001E -extern void * GSToZero(void * a0); // 0x0023 -extern void * LongToStr(void * a0); // 0x000D -extern void * NumToHex(void * a0, void * a1); // 0x000F -extern void * NumToStr(void * a0); // 0x000E -extern void PointToStr(void * a0, void * a1); // 0x002D -extern void * PasToZero(void * a0); // 0x0007 -extern void * PToGSString(void * a0); // 0x001F -extern void RectToStr(void * a0, void * a1); // 0x002E -extern void ReturnToPas(void * a0, void * a1); // 0x001B -extern unsigned short StrToBool(void * a0); // 0x000B -extern void * StrToExt(void * a0); // 0x000C -extern void * StrToLong(void * a0); // 0x0009 -extern void * StrToNum(void * a0); // 0x000A -extern void StrToPoint(void * a0, void * a1); // 0x002F -extern void StrToRect(void * a0, void * a1); // 0x0030 -extern void * ZeroToGS(void * a0); // 0x0024 -extern void ZeroToPas(void * a0, void * a1); // 0x0008 -extern void * GetFieldByID(unsigned short a0, void * a1); // 0x0016 -extern void * GetFieldByName(unsigned short a0, void * a1); // 0x0014 -extern void * GetFieldByNum(unsigned short a0, void * a1); // 0x0015 -extern void SetFieldByID(unsigned short a0, void * a1, void * a2); // 0x0019 -extern void SetFieldByName(unsigned short a0, void * a1, void * a2); // 0x0017 -extern void SetFieldByNum(unsigned short a0, void * a1, void * a2); // 0x0018 -extern void ChangedMaskAndData(void * a0); // 0x002C -extern void GetMaskAndData(void * a0, void * a1); // 0x002B -// tool 0x0029 set 0x29 (?) -static inline void BeginXSound(void) { - __asm__ volatile ( - "ldx #0x0029\n" + "ldx #0x200D\n" "jsl 0xe100a8\n" : : @@ -1218,466 +68,144 @@ static inline void BeginXSound(void) { ); } -// tool 0x002A set 0x2A (?) -static inline void EndXSound(void) { - __asm__ volatile ( - "ldx #0x002A\n" - "jsl 0xe100a8\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern unsigned short FindNamedResource(void * a0, void * a1, void * a2, void * a3); // 0x0026 -extern void * GetResourceName(void * a0, void * a1); // 0x0028 -extern void * LoadNamedResource(void * a0, void * a1); // 0x0025 -extern void SetResourceName(void * a0, void * a1, void * a2); // 0x0027 -extern void * NewXWindow(void * a0, void * a1, unsigned short a2, void * a3); // 0x0031 -extern void CloseXWindow(void * a0); // 0x0033 -extern void * GetXWindowValue(void * a0); // 0x0037 -// tool 0x0034 set 0x34 (?) -static inline void HideHCPalettes(void) { - __asm__ volatile ( - "ldx #0x0034\n" - "jsl 0xe100a8\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0035 set 0x35 (?) -static inline void ShowHCPalettes(void) { - __asm__ volatile ( - "ldx #0x0035\n" - "jsl 0xe100a8\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void SetXWIdleTime(void * a0, void * a1); // 0x0032 -extern void SetXWindowValue(void * a0, void * a1); // 0x0036 -extern void XWAllowReEntrancy(void * a0, unsigned short a1, unsigned short a2); // 0x0038 -// tool 0x010B set 0x0B (IntegerMath) -static inline void IMBootInit(void) { - __asm__ volatile ( - "ldx #0x010B\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x020B set 0x0B (IntegerMath) -static inline void IMStartUp(void) { - __asm__ volatile ( - "ldx #0x020B\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x030B set 0x0B (IntegerMath) -static inline void IMShutDown(void) { - __asm__ volatile ( - "ldx #0x030B\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x040B set 0x0B (IntegerMath) -static inline unsigned short IMVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x040B\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x050B set 0x0B (IntegerMath) -static inline void IMReset(void) { - __asm__ volatile ( - "ldx #0x050B\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x060B set 0x0B (IntegerMath) -static inline unsigned short IMStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x060B\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern short Dec2Int(void * a0, unsigned short a1, unsigned short a2); // 0x280B -extern void * Dec2Long(void * a0, unsigned short a1, unsigned short a2); // 0x290B -extern void * Fix2Frac(void * a0); // 0x1C0B -extern void * Fix2Long(void * a0); // 0x1B0B -extern void Fix2X(void * a0, void * a1); // 0x1E0B -extern void * FixATan2(void * a0, void * a1); // 0x170B -extern void * FixDiv(void * a0, void * a1); // 0x110B -extern void * FixMul(void * a0, void * a1); // 0x0F0B -extern void * FixRatio(short a0, short a1); // 0x0E0B -extern short FixRound(void * a0); // 0x130B -extern void * Frac2Fix(void * a0); // 0x1D0B -extern void Frac2X(void * a0, void * a1); // 0x1F0B -extern void * FracCos(void * a0); // 0x150B -extern void * FracDiv(void * a0, void * a1); // 0x120B -extern void * FracMul(void * a0, void * a1); // 0x100B -extern void * FracSin(void * a0); // 0x160B -extern void * FracSqrt(void * a0); // 0x140B -extern unsigned short Hex2Int(void * a0, unsigned short a1); // 0x240B -extern unsigned long Hex2Long(void * a0, unsigned short a1); // 0x250B -extern unsigned long HexIt(unsigned short a0); // 0x2A0B -extern unsigned short HiWord(unsigned long a0); // 0x180B -extern void Int2Dec(short a0, void * a1, unsigned short a2, unsigned short a3); // 0x260B -extern void Int2Hex(unsigned short a0, void * a1, unsigned short a2); // 0x220B -extern void Long2Dec(void * a0, void * a1, unsigned short a2, unsigned short a3); // 0x270B -extern void * Long2Fix(void * a0); // 0x1A0B -extern void Long2Hex(unsigned long a0, void * a1, unsigned short a2); // 0x230B -extern unsigned short LoWord(unsigned long a0); // 0x190B -extern void * Multiply(short a0, short a1); // 0x090B -extern void * X2Fix(void * a0); // 0x200B -extern void * X2Frac(void * a0); // 0x210B -// tool 0x0114 set 0x14 (LineEdit) -static inline void LEBootInit(void) { - __asm__ volatile ( - "ldx #0x0114\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void LEStartUp(unsigned short a0, unsigned short a1); // 0x0214 -// tool 0x0314 set 0x14 (LineEdit) -static inline void LEShutDown(void) { - __asm__ volatile ( - "ldx #0x0314\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0414 set 0x14 (LineEdit) -static inline unsigned short LEVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0414\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0514 set 0x14 (LineEdit) -static inline void LEReset(void) { - __asm__ volatile ( - "ldx #0x0514\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0614 set 0x14 (LineEdit) -static inline unsigned short LEStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0614\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void LEActivate(void * a0); // 0x0F14 -extern void LEClick(void * a0, void * a1); // 0x0D14 -extern void LECopy(void * a0); // 0x1314 -extern void LECut(void * a0); // 0x1214 -extern void LEDeactivate(void * a0); // 0x1014 -extern void LEDelete(void * a0); // 0x1514 -extern void LEDispose(void * a0); // 0x0A14 -// tool 0x1914 set 0x14 (LineEdit) -static inline void LEFromScrap(void) { - __asm__ volatile ( - "ldx #0x1914\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x1C14 set 0x14 (LineEdit) -static inline unsigned short LEGetScrapLen(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1C14\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void * LEGetTextHand(void * a0); // 0x2214 -extern unsigned short LEGetTextLen(void * a0); // 0x2314 -extern void LEIdle(void * a0); // 0x0C14 -extern void LEInsert(void * a0, unsigned short a1, void * a2); // 0x1614 -extern void LEKey(unsigned short a0, unsigned short a1, void * a2); // 0x1114 -extern void * LENew(void * a0, void * a1, unsigned short a2); // 0x0914 -extern void LEPaste(void * a0); // 0x1414 -extern void * LEScrapHandle(void); // 0x1B14 -extern void LESetCaret(void * a0, void * a1); // 0x1F14 -extern void LESetHilite(void * a0, void * a1); // 0x1E14 -extern void LESetJust(unsigned short a0, void * a1); // 0x2114 -// tool 0x1D14 set 0x14 (LineEdit) -static inline void LESetScrapLen(unsigned short a0) { +extern void ExpandPath(void * a0, void * a1, unsigned short a2); // 0x200E +// tool 0x200F set 0x0F (MenuManager) +static inline void GetSysPrefs(unsigned short a0) { __asm__ volatile ( "pha\n" // arg0 - "ldx #0x1D14\n" - "jsl 0xe10000\n" + "ldx #0x200F\n" + "jsl 0xe100a8\n" : : "a"(a0) : "x", "y", "memory" ); } -extern void LESetSelect(unsigned short a0, unsigned short a1, void * a2); // 0x0E14 -extern void LESetText(void * a0, unsigned short a1, void * a2); // 0x0B14 -extern void LETextBox(void * a0, unsigned short a1, void * a2, unsigned short a3); // 0x1814 -extern void LETextBox2(void * a0, unsigned short a1, void * a2, unsigned short a3); // 0x2014 -// tool 0x1A14 set 0x14 (LineEdit) -static inline void LEToScrap(void) { +extern void Open(unsigned short a0, void * a1, unsigned short a2, unsigned short a3, unsigned short a4, unsigned short a5); // 0x2010 +extern void NewLine(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x2011 +extern void Read(unsigned short a0, void * a1, unsigned long a2, unsigned long a3, unsigned short a4); // 0x2012 +extern void Write(unsigned short a0, void * a1, unsigned long a2, unsigned long a3, unsigned short a4); // 0x2013 +// tool 0x2014 set 0x14 (LineEdit) +static inline void Close(unsigned short a0) { __asm__ volatile ( - "ldx #0x1A14\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void LEUpdate(void * a0); // 0x1714 -extern void * GetLEDefProc(void); // 0x2414 -extern unsigned short LEClassifyKey(void * a0); // 0x2514 -// tool 0x011C set 0x1C (ListManager) -static inline void ListBootInit(void) { - __asm__ volatile ( - "ldx #0x011C\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x021C set 0x1C (ListManager) -static inline void ListStartUp(void) { - __asm__ volatile ( - "ldx #0x021C\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x031C set 0x1C (ListManager) -static inline void ListShutDown(void) { - __asm__ volatile ( - "ldx #0x031C\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x041C set 0x1C (ListManager) -static inline unsigned short ListVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x041C\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) + "pha\n" // arg0 + "ldx #0x2014\n" + "jsl 0xe100a8\n" : + : "a"(a0) : "x", "y", "memory" ); - return _r; } -// tool 0x051C set 0x1C (ListManager) -static inline void ListReset(void) { +extern void Flush(unsigned short a0, unsigned short a1); // 0x2015 +extern void SetMark(unsigned short a0, unsigned short a1, unsigned long a2); // 0x2016 +extern void GetMark(unsigned short a0, unsigned long a1); // 0x2017 +extern void SetEOF(unsigned short a0, unsigned short a1, unsigned long a2); // 0x2018 +extern void GetEOF(unsigned short a0, unsigned long a1); // 0x2019 +extern void SetLevel(unsigned short a0, unsigned short a1); // 0x201A +extern void GetLevel(unsigned short a0, unsigned short a1); // 0x201B +extern void GetDirEntry(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, void * a4, unsigned short a5, unsigned short a6, unsigned long a7, unsigned long a8, long long a9, long long a10, unsigned short a11, unsigned long a12, unsigned short a13, void * a14, unsigned long a15, unsigned long a16); // 0x201C +// tool 0x201D set 0x1D (ACETools) +static inline void BeginSession(void) { __asm__ volatile ( - "ldx #0x051C\n" - "jsl 0xe10000\n" + "ldx #0x201D\n" + "jsl 0xe100a8\n" : : : "a", "x", "y", "memory" ); } -// tool 0x061C set 0x1C (ListManager) -static inline unsigned short ListStatus(void) { - unsigned short _r; +// tool 0x201E set 0x1E (ResourceManager) +static inline void EndSession(void) { __asm__ volatile ( - "pha\n" // result space - "ldx #0x061C\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) + "ldx #0x201E\n" + "jsl 0xe100a8\n" : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x201F set 0x1F (MIDITools) +static inline void SessionStatus(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x201F\n" + "jsl 0xe100a8\n" + : + : "a"(a0) : "x", "y", "memory" ); - return _r; } -extern void * CreateList(void * a0, void * a1); // 0x091C -extern void DrawMember(void * a0, void * a1); // 0x0C1C -extern void * GetListDefProc(void); // 0x0E1C -extern void NewList(void * a0, void * a1); // 0x101C -extern void * NextMember(void * a0, void * a1); // 0x0B1C -extern void * ResetMember(void * a0); // 0x0F1C -extern void SelectMember(void * a0, void * a1); // 0x0D1C -extern void SortList(void * a0, void * a1); // 0x0A1C -extern void DrawMember2(unsigned short a0, void * a1); // 0x111C -extern void NewList2(void * a0, unsigned short a1, void * a2, unsigned short a3, unsigned short a4, void * a5); // 0x161C -extern unsigned short NextMember2(unsigned short a0, void * a1); // 0x121C -extern unsigned short ResetMember2(void * a0); // 0x131C -extern void SelectMember2(unsigned short a0, void * a1); // 0x141C -extern void SortList2(void * a0, void * a1); // 0x151C -extern unsigned short CompareStrings(unsigned short a0, void * a1, void * a2); // 0x181C -extern void ListKey(unsigned short a0, void * a1, void * a2); // 0x171C -extern void GetLoadSegInfo(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x0F11 -extern unsigned short GetUserID(void * a0); // 0x1011 -extern unsigned short GetUserID2(void * a0); // 0x2111 -extern void * LGetPathname(unsigned short a0, unsigned short a1); // 0x1111 -extern void * LGetPathname2(unsigned short a0, unsigned short a1); // 0x2211 -// tool 0x0111 set 0x11 (Loader) -static inline void LoaderInitialization(void) { +extern void GetDevNumber(void * a0, unsigned short a1); // 0x2020 +extern void Format(void * a0, void * a1, unsigned short a2, unsigned short a3, unsigned short a4, unsigned short a5); // 0x2024 +extern void EraseDisk(void * a0, void * a1, unsigned short a2, unsigned short a3, unsigned short a4, unsigned short a5); // 0x2025 +// tool 0x2026 set 0x26 (?) +static inline void ResetCache(void) { __asm__ volatile ( - "ldx #0x0111\n" - "jsl 0xe10000\n" + "ldx #0x2026\n" + "jsl 0xe100a8\n" : : : "a", "x", "y", "memory" ); } -// tool 0x0511 set 0x11 (Loader) -static inline void LoaderReset(void) { +extern void GetName(void * a0); // 0x2027 +extern void GetBootvol(void * a0); // 0x2028 +extern void Quit(void * a0, unsigned short a1); // 0x2029 +// tool 0x202A set 0x2A (?) +static inline void GetVersion(unsigned short a0) { __asm__ volatile ( - "ldx #0x0511\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0311 set 0x11 (Loader) -static inline void LoaderShutDown(void) { - __asm__ volatile ( - "ldx #0x0311\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0211 set 0x11 (Loader) -static inline void LoaderStartUp(void) { - __asm__ volatile ( - "ldx #0x0211\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0611 set 0x11 (Loader) -static inline unsigned short LoaderStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0611\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) + "pha\n" // arg0 + "ldx #0x202A\n" + "jsl 0xe100a8\n" : + : "a"(a0) : "x", "y", "memory" ); - return _r; } -// tool 0x0411 set 0x11 (Loader) -static inline unsigned short LoaderVersion(void) { - unsigned short _r; +extern void GetFSTInfo(unsigned short a0, unsigned short a1, void * a2, unsigned short a3, unsigned short a4, unsigned short a5, unsigned long a6, unsigned long a7); // 0x202B +extern void DInfo(unsigned short a0, void * a1, unsigned short a2, unsigned long a3, unsigned short a4, unsigned short a5, unsigned short a6, unsigned short a7, void * a8, void * a9); // 0x202C +extern void DStatus(unsigned short a0, unsigned short a1, void * a2, unsigned long a3, unsigned long a4); // 0x202D +extern void DControl(unsigned short a0, unsigned short a1, void * a2, unsigned long a3, unsigned long a4); // 0x202E +extern void DRead(unsigned short a0, void * a1, unsigned long a2, unsigned long a3, unsigned short a4, unsigned long a5); // 0x202F +extern void DWrite(unsigned short a0, void * a1, unsigned long a2, unsigned long a3, unsigned short a4, unsigned long a5); // 0x2030 +extern void BindInt(unsigned short a0, unsigned short a1, void * a2); // 0x2031 +// tool 0x2032 set 0x32 (MediaControl2) +static inline void UnbindInt(unsigned short a0) { __asm__ volatile ( - "pha\n" // result space - "ldx #0x0411\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) + "pha\n" // arg0 + "ldx #0x2032\n" + "jsl 0xe100a8\n" : + : "a"(a0) : "x", "y", "memory" ); - return _r; } -extern void * LoadSegNum(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0B11 -extern void RenamePathname(void * a0, void * a1); // 0x1311 -extern void UnloadSegNum(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0C11 -extern unsigned short UserShutDown(unsigned short a0, unsigned short a1); // 0x1211 -extern void * GetPathname(void); // 0x1111 -extern void * GetPathname2(void); // 0x2211 +// tool 0x2033 set 0x33 (?) +static inline void FSTSpecific(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x2033\n" + "jsl 0xe100a8\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void AddNotifyProc(void * a0); // 0x2034 +extern void DelNotifyProc(void * a0); // 0x2035 +extern void DRename(unsigned short a0, void * a1); // 0x2036 +extern void GetStdRefNum(unsigned short a0, unsigned short a1); // 0x2037 +extern void GetRefNum(void * a0, unsigned short a1, unsigned short a2, unsigned short a3, unsigned short a4, unsigned short a5); // 0x2038 +extern void GetRefInfo(unsigned short a0, unsigned short a1, void * a2, unsigned short a3, unsigned short a4); // 0x2039 +extern void SetStdRefNum(unsigned short a0, unsigned short a1); // 0x203A // tool 0x0101 set 0x01 (ToolLocator) static inline void TLBootInit(void) { __asm__ volatile ( @@ -1752,18 +280,13 @@ static inline unsigned short TLStatus(void) { return _r; } -extern void * GetFuncPtr(unsigned short a0, unsigned short a1); // 0x0B01 extern void * GetTSPtr(unsigned short a0, unsigned short a1); // 0x0901 -extern void * GetWAP(unsigned short a0, unsigned short a1); // 0x0C01 -extern void LoadOneTool(unsigned short a0, unsigned short a1); // 0x0F01 -extern void LoadTools(void * a0); // 0x0E01 -extern void MessageCenter(unsigned short a0, unsigned short a1, void * a2); // 0x1501 -extern void RestoreTextState(void * a0); // 0x1401 -extern void * SaveTextState(void); // 0x1301 extern void SetTSPtr(unsigned short a0, unsigned short a1, void * a2); // 0x0A01 +extern void * GetFuncPtr(unsigned short a0, unsigned short a1); // 0x0B01 +extern void * GetWAP(unsigned short a0, unsigned short a1); // 0x0C01 extern void SetWAP(unsigned short a0, unsigned short a1, void * a2); // 0x0D01 -extern unsigned short TLMountVolume(short a0, short a1, void * a2, void * a3, void * a4, void * a5); // 0x1101 -extern unsigned short TLTextMountVolume(void * a0, void * a1, void * a2, void * a3); // 0x1201 +extern void LoadTools(void * a0); // 0x0E01 +extern void LoadOneTool(unsigned short a0, unsigned short a1); // 0x0F01 // tool 0x1001 set 0x01 (ToolLocator) static inline void UnloadOneTool(unsigned short a0) { __asm__ volatile ( @@ -1776,7 +299,11 @@ static inline void UnloadOneTool(unsigned short a0) { ); } -extern void * MessageByName(unsigned short a0, void * a1); // 0x1701 +extern unsigned short TLMountVolume(unsigned short a0, unsigned short a1, void * a2, void * a3, void * a4, void * a5); // 0x1101 +extern unsigned short TLTextMountVolume(void * a0, void * a1, void * a2, void * a3); // 0x1201 +extern void * SaveTextState(void); // 0x1301 +extern void RestoreTextState(void * a0); // 0x1401 +extern void MessageCenter(unsigned short a0, unsigned short a1, void * a2); // 0x1501 // tool 0x1601 set 0x01 (ToolLocator) static inline void SetDefaultTPT(void) { __asm__ volatile ( @@ -1788,242 +315,12 @@ static inline void SetDefaultTPT(void) { ); } -extern void ShutDownTools(unsigned short a0, void * a1); // 0x1901 -extern void * StartUpTools(unsigned short a0, unsigned short a1, void * a2); // 0x1801 +extern unsigned long MessageByName(unsigned short a0, void * a1); // 0x1701 +extern unsigned long StartUpTools(unsigned short a0, unsigned short a1, unsigned long a2); // 0x1801 +extern void ShutDownTools(unsigned short a0, unsigned long a1); // 0x1901 +extern void * GetMsgHandle(unsigned short a0, unsigned long a1); // 0x1A01 extern void AcceptRequests(void * a0, unsigned short a1, void * a2); // 0x1B01 -extern void * GetMsgHandle(unsigned short a0, long a1); // 0x1A01 -extern void SendRequest(unsigned short a0, unsigned short a1, long a2, long a3, void * a4); // 0x1C01 -// tool 0x0126 set 0x26 (?) -static inline void MCBootInit(void) { - __asm__ volatile ( - "ldx #0x0126\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0226 set 0x26 (?) -static inline void MCStartUp(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0226\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x0326 set 0x26 (?) -static inline void MCShutDown(void) { - __asm__ volatile ( - "ldx #0x0326\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0426 set 0x26 (?) -static inline unsigned short MCVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0426\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0526 set 0x26 (?) -static inline void MCReset(void) { - __asm__ volatile ( - "ldx #0x0526\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0626 set 0x26 (?) -static inline unsigned short MCStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0626\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern long MCBinToTime(long a0); // 0x0D26 -extern void MCControl(unsigned short a0, unsigned short a1); // 0x1B26 -// tool 0x1526 set 0x26 (?) -static inline void MCDShutDown(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1526\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void MCDStartUp(unsigned short a0, void * a1, unsigned short a2); // 0x1426 -extern long MCGetDiscID(unsigned short a0); // 0x2826 -extern void MCGetDiscTitle(long a0, void * a1); // 0x1226 -extern long MCGetDiscTOC(unsigned short a0, unsigned short a1); // 0x2726 -extern void MCGetErrorMsg(unsigned short a0, void * a1); // 0x0926 -extern long MCGetFeatures(unsigned short a0, unsigned short a1); // 0x1626 -extern void MCGetName(unsigned short a0, void * a1); // 0x2D26 -// tool 0x2926 set 0x26 (?) -static inline unsigned short MCGetNoTracks(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x2926\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern long MCGetPosition(unsigned short a0, unsigned short a1); // 0x2426 -extern void MCGetProgram(long a0, void * a1); // 0x1026 -extern void MCGetSpeeds(unsigned short a0, void * a1); // 0x1D26 -extern unsigned short MCGetStatus(unsigned short a0, unsigned short a1); // 0x1A26 -extern long MCGetTimes(unsigned short a0, unsigned short a1); // 0x2626 -extern void MCGetTrackTitle(long a0, unsigned short a1, void * a2); // 0x0E26 -extern void MCJog(unsigned short a0, long a1, unsigned short a2); // 0x2026 -// tool 0x0A26 set 0x26 (?) -static inline void MCLoadDriver(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0A26\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x1826 set 0x26 (?) -static inline void MCPause(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1826\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x1726 set 0x26 (?) -static inline void MCPlay(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1726\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x2A26 set 0x26 (?) -static inline void MCRecord(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x2A26\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void MCScan(unsigned short a0, unsigned short a1); // 0x1C26 -// tool 0x2226 set 0x26 (?) -static inline unsigned short MCSearchDone(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x2226\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void MCSearchTo(unsigned short a0, unsigned short a1, long a2); // 0x2126 -// tool 0x2326 set 0x26 (?) -static inline void MCSearchWait(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x2326\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void MCSendRawData(unsigned short a0, long a1); // 0x1926 -extern void MCSetAudio(unsigned short a0, unsigned short a1); // 0x2526 -extern void MCSetDiscTitle(long a0, long a1); // 0x1326 -extern void MCSetProgram(long a0, long a1); // 0x1126 -extern void MCSetTrackTitle(long a0, unsigned short a1, void * a2); // 0x0F26 -extern void MCSetVolume(unsigned short a0, unsigned short a1, unsigned short a2); // 0x2E26 -extern void MCSpeed(unsigned short a0, unsigned short a1); // 0x1E26 -// tool 0x2B26 set 0x26 (?) -static inline void MCStop(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x2B26\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void MCStopAt(unsigned short a0, unsigned short a1, long a2); // 0x1F26 -extern long MCTimeToBin(long a0); // 0x0C26 -// tool 0x0B26 set 0x26 (?) -static inline void MCUnLoadDriver(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0B26\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void MCWaitRawData(unsigned short a0, void * a1, unsigned short a2, unsigned short a3); // 0x2C26 +extern void SendRequest(unsigned short a0, unsigned short a1, unsigned long a2, void * a3, void * a4); // 0x1C01 // tool 0x0102 set 0x02 (MemoryManager) static inline void MMBootInit(void) { __asm__ volatile ( @@ -2103,19 +400,12 @@ static inline unsigned short MMStatus(void) { return _r; } -extern void BlockMove(void * a0, void * a1, unsigned long a2); // 0x2B02 -extern void CheckHandle(void * a0); // 0x1E02 -// tool 0x1F02 set 0x02 (MemoryManager) -static inline void CompactMem(void) { - __asm__ volatile ( - "ldx #0x1F02\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - +extern void * NewHandle(unsigned long a0, unsigned short a1, unsigned short a2, void * a3); // 0x0902 +extern void ReAllocHandle(unsigned long a0, unsigned short a1, unsigned short a2, void * a3, void * a4); // 0x0A02 +extern void RestoreHandle(void * a0); // 0x0B02 +extern void AddToOOMQueue(void * a0); // 0x0C02 +extern void RemoveFromOOMQueue(void * a0); // 0x0D02 +extern void DisposeHandle(void * a0); // 0x1002 // tool 0x1102 set 0x02 (MemoryManager) static inline void DisposeAll(unsigned short a0) { __asm__ volatile ( @@ -2128,12 +418,37 @@ static inline void DisposeAll(unsigned short a0) { ); } -extern void DisposeHandle(void * a0); // 0x1002 +extern void PurgeHandle(void * a0); // 0x1202 +// tool 0x1302 set 0x02 (MemoryManager) +static inline void PurgeAll(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1302\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern unsigned long GetHandleSize(void * a0); // 0x1802 +extern void SetHandleSize(unsigned long a0, void * a1); // 0x1902 extern void * FindHandle(void * a0); // 0x1A02 extern unsigned long FreeMem(void); // 0x1B02 -extern unsigned long GetHandleSize(void * a0); // 0x1802 -extern void HandToHand(void * a0, void * a1, unsigned long a2); // 0x2A02 -extern void HandToPtr(void * a0, void * a1, unsigned long a2); // 0x2902 +extern unsigned long MaxBlock(void); // 0x1C02 +extern unsigned long TotalMem(void); // 0x1D02 +extern void CheckHandle(void * a0); // 0x1E02 +// tool 0x1F02 set 0x02 (MemoryManager) +static inline void CompactMem(void) { + __asm__ volatile ( + "ldx #0x1F02\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + extern void HLock(void * a0); // 0x2002 // tool 0x2102 set 0x02 (MemoryManager) static inline void HLockAll(unsigned short a0) { @@ -2160,713 +475,14 @@ static inline void HUnlockAll(unsigned short a0) { ); } -extern unsigned long MaxBlock(void); // 0x1C02 -extern void * NewHandle(unsigned long a0, unsigned short a1, unsigned short a2, void * a3); // 0x0902 -extern void PtrToHand(void * a0, void * a1, unsigned long a2); // 0x2802 -// tool 0x1302 set 0x02 (MemoryManager) -static inline void PurgeAll(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1302\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void PurgeHandle(void * a0); // 0x1202 -extern void ReAllocHandle(unsigned long a0, unsigned short a1, unsigned short a2, void * a3, void * a4); // 0x0A02 -extern void RestoreHandle(void * a0); // 0x0B02 -extern void SetHandleSize(unsigned long a0, void * a1); // 0x1902 extern void SetPurge(unsigned short a0, void * a1); // 0x2402 extern void SetPurgeAll(unsigned short a0, unsigned short a1); // 0x2502 -extern unsigned long TotalMem(void); // 0x1D02 -extern void AddToOOMQueue(void * a0); // 0x0C02 +extern void PtrToHand(void * a0, void * a1, unsigned long a2); // 0x2802 +extern void HandToPtr(void * a0, void * a1, unsigned long a2); // 0x2902 +extern void HandToHand(void * a0, void * a1, unsigned long a2); // 0x2A02 +extern void BlockMove(void * a0, void * a1, unsigned long a2); // 0x2B02 extern unsigned long RealFreeMem(void); // 0x2F02 -extern void RemoveFromOOMQueue(void * a0); // 0x0D02 -extern unsigned short SetHandleID(unsigned short a0, void * a1); // 0x3002 -// tool 0x010F set 0x0F (MenuManager) -static inline void MenuBootInit(void) { - __asm__ volatile ( - "ldx #0x010F\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void MenuStartUp(unsigned short a0, unsigned short a1); // 0x020F -// tool 0x030F set 0x0F (MenuManager) -static inline void MenuShutDown(void) { - __asm__ volatile ( - "ldx #0x030F\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x040F set 0x0F (MenuManager) -static inline unsigned short MenuVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x040F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x050F set 0x0F (MenuManager) -static inline void MenuReset(void) { - __asm__ volatile ( - "ldx #0x050F\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x060F set 0x0F (MenuManager) -static inline unsigned short MenuStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x060F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void CalcMenuSize(unsigned short a0, unsigned short a1, unsigned short a2); // 0x1C0F -extern void CheckMItem(unsigned short a0, unsigned short a1); // 0x320F -// tool 0x140F set 0x0F (MenuManager) -static inline unsigned short CountMItems(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x140F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0E0F set 0x0F (MenuManager) -static inline void DeleteMenu(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0E0F\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x100F set 0x0F (MenuManager) -static inline void DeleteMItem(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x100F\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x310F set 0x0F (MenuManager) -static inline void DisableMItem(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x310F\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void DisposeMenu(void * a0); // 0x2E0F -// tool 0x2A0F set 0x0F (MenuManager) -static inline void DrawMenuBar(void) { - __asm__ volatile ( - "ldx #0x2A0F\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x300F set 0x0F (MenuManager) -static inline void EnableMItem(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x300F\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x130F set 0x0F (MenuManager) -static inline unsigned short FixMenuBar(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x130F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0C0F set 0x0F (MenuManager) -static inline void FlashMenuBar(void) { - __asm__ volatile ( - "ldx #0x0C0F\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern unsigned long GetBarColors(void); // 0x180F -extern void * GetMenuBar(void); // 0x0A0F -// tool 0x200F set 0x0F (MenuManager) -static inline unsigned short GetMenuFlag(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x200F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetMenuMgrPort(void); // 0x1B0F -extern void * GetMenuTitle(unsigned short a0); // 0x220F -extern void * GetMHandle(unsigned short a0); // 0x160F -extern void * GetMItem(unsigned short a0); // 0x250F -// tool 0x270F set 0x0F (MenuManager) -static inline unsigned short GetMItemFlag(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x270F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x340F set 0x0F (MenuManager) -static inline unsigned short GetMItemMark(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x340F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetMItemStyle(unsigned short a0); // 0x360F -// tool 0x1A0F set 0x0F (MenuManager) -static inline unsigned short GetMTitleStart(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1A0F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1E0F set 0x0F (MenuManager) -static inline unsigned short GetMTitleWidth(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x1E0F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetSysBar(void); // 0x110F -extern void HiliteMenu(unsigned short a0, unsigned short a1); // 0x2C0F -// tool 0x2F0F set 0x0F (MenuManager) -static inline void InitPalette(void) { - __asm__ volatile ( - "ldx #0x2F0F\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void InsertMenu(void * a0, unsigned short a1); // 0x0D0F -extern void InsertMItem(void * a0, unsigned short a1, unsigned short a2); // 0x0F0F -// tool 0x230F set 0x0F (MenuManager) -static inline unsigned short MenuGlobal(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x230F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void MenuKey(void * a0, void * a1); // 0x090F -// tool 0x290F set 0x0F (MenuManager) -static inline void MenuNewRes(void) { - __asm__ volatile ( - "ldx #0x290F\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void MenuRefresh(void * a0); // 0x0B0F -extern void MenuSelect(void * a0, void * a1); // 0x2B0F -extern void * NewMenu(void * a0); // 0x2D0F -extern void * NewMenuBar(void * a0); // 0x150F -extern void SetBarColors(unsigned short a0, unsigned short a1, unsigned short a2); // 0x170F -extern void SetMenuBar(void * a0); // 0x390F -extern void SetMenuFlag(unsigned short a0, unsigned short a1); // 0x1F0F -extern void SetMenuID(unsigned short a0, unsigned short a1); // 0x370F -extern void SetMenuTitle(void * a0, unsigned short a1); // 0x210F -extern void SetMItem(void * a0, unsigned short a1); // 0x240F -// tool 0x280F set 0x0F (MenuManager) -static inline void SetMItemBlink(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x280F\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetMItemFlag(unsigned short a0, unsigned short a1); // 0x260F -extern void SetMItemID(unsigned short a0, unsigned short a1); // 0x380F -extern void SetMItemMark(unsigned short a0, unsigned short a1); // 0x330F -extern void SetMItemName(void * a0, unsigned short a1); // 0x3A0F -extern void SetMItemStyle(void * a0, unsigned short a1); // 0x350F -// tool 0x190F set 0x0F (MenuManager) -static inline void SetMTitleStart(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x190F\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetMTitleWidth(unsigned short a0, unsigned short a1); // 0x1D0F -extern void SetSysBar(void * a0); // 0x120F -extern void * GetPopUpDefProc(void); // 0x3B0F -// tool 0x450F set 0x0F (MenuManager) -static inline void HideMenuBar(void) { - __asm__ volatile ( - "ldx #0x450F\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void InsertMItem2(unsigned short a0, void * a1, unsigned short a2, unsigned short a3); // 0x3F0F -extern void * NewMenu2(unsigned short a0, void * a1); // 0x3E0F -extern void * NewMenuBar2(unsigned short a0, void * a1, void * a2); // 0x430F -extern unsigned short PopUpMenuSelect(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, void * a4); // 0x3C0F -extern void SetMenuTitle2(unsigned short a0, void * a1, unsigned short a2); // 0x400F -extern void SetMItem2(unsigned short a0, void * a1, unsigned short a2); // 0x410F -extern void SetMItemName2(unsigned short a0, void * a1, unsigned short a2); // 0x420F -// tool 0x460F set 0x0F (MenuManager) -static inline void ShowMenuBar(void) { - __asm__ volatile ( - "ldx #0x460F\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x4F0F set 0x0F (MenuManager) -static inline unsigned short GetMItemBlink(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x4F0F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x4C0F set 0x0F (MenuManager) -static inline unsigned short GetMItemFlag2(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x4C0F\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetMItemIcon(unsigned short a0); // 0x480F -extern void * GetMItemStruct(unsigned short a0); // 0x4A0F -extern void InsertPathMItems(unsigned short a0, void * a1, unsigned short a2, unsigned short a3, unsigned short a4, unsigned short a5, void * a6); // 0x500F -// tool 0x4B0F set 0x0F (MenuManager) -static inline void RemoveMItemStruct(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x4B0F\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetMItemFlag2(unsigned short a0, unsigned short a1); // 0x4D0F -extern void SetMItemIcon(unsigned short a0, void * a1, unsigned short a2); // 0x470F -extern void SetMItemStruct(unsigned short a0, void * a1, unsigned short a2); // 0x490F -// tool 0x0120 set 0x20 (VideoOverlay) -static inline void MidiBootInit(void) { - __asm__ volatile ( - "ldx #0x0120\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void MidiStartUp(unsigned short a0, unsigned short a1); // 0x0220 -// tool 0x0320 set 0x20 (VideoOverlay) -static inline void MidiShutDown(void) { - __asm__ volatile ( - "ldx #0x0320\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0420 set 0x20 (VideoOverlay) -static inline unsigned short MidiVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0420\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0520 set 0x20 (VideoOverlay) -static inline void MidiReset(void) { - __asm__ volatile ( - "ldx #0x0520\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0620 set 0x20 (VideoOverlay) -static inline unsigned short MidiStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0620\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void MidiClock(unsigned short a0, long a1); // 0x0B20 -extern void MidiControl(unsigned short a0, long a1); // 0x0920 -extern void MidiDevice(unsigned short a0, void * a1); // 0x0A20 -extern unsigned long MidiInfo(unsigned short a0); // 0x0C20 -extern unsigned short MidiReadPacket(void * a0, unsigned short a1); // 0x0D20 -extern unsigned short MidiWritePacket(void * a0); // 0x0E20 -// tool 0x0123 set 0x23 (MediaControl) -static inline void MSBootInit(void) { - __asm__ volatile ( - "ldx #0x0123\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0223 set 0x23 (MediaControl) -static inline void MSStartUp(void) { - __asm__ volatile ( - "ldx #0x0223\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0323 set 0x23 (MediaControl) -static inline void MSShutDown(void) { - __asm__ volatile ( - "ldx #0x0323\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void * MSVersion(void); // 0x0423 -// tool 0x0523 set 0x23 (MediaControl) -static inline void MSReset(void) { - __asm__ volatile ( - "ldx #0x0523\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void * MSStatus(void); // 0x0623 -extern void * ConvertToTime(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x2023 -extern void DeleteTrack(unsigned short a0, void * a1); // 0x1D23 -extern void GetTuningTable(void * a0); // 0x2523 -extern void InitMIDIDriver(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x2723 -// tool 0x0D23 set 0x23 (MediaControl) -static inline void KillAllNotes(void) { - __asm__ volatile ( - "ldx #0x0D23\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void * Locate(long a0, void * a1); // 0x1123 -extern void * LocateEnd(void * a0); // 0x1B23 -extern void Merge(void * a0, void * a1); // 0x1C23 -extern void MIDIMessage(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, unsigned short a4); // 0x1A23 -// tool 0x2323 set 0x23 (MediaControl) -static inline void MSResume(void) { - __asm__ volatile ( - "ldx #0x2323\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x2223 set 0x23 (MediaControl) -static inline void MSSuspend(void) { - __asm__ volatile ( - "ldx #0x2223\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void PlayNote(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0B23 -// tool 0x2823 set 0x23 (MediaControl) -static inline void RemoveMIDIDriver(void) { - __asm__ volatile ( - "ldx #0x2823\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void SeqPlayer(void * a0); // 0x1523 -// tool 0x0923 set 0x23 (MediaControl) -static inline void SetBasicChan(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0923\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x0923 set 0x23 (MediaControl) -static inline void SetBasicChannel(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0923\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x1923 set 0x23 (MediaControl) -static inline void SetBeat(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1923\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetCallBack(void * a0); // 0x1723 -extern void SetInstrument(void * a0, unsigned short a1); // 0x1423 -extern void SetMetro(unsigned short a0, unsigned short a1, void * a2); // 0x1E23 -// tool 0x0A23 set 0x23 (MediaControl) -static inline void SetMIDIMode(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0A23\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetMIDIPort(unsigned short a0, unsigned short a1); // 0x1323 -extern void SetPlayTrack(unsigned short a0, unsigned short a1); // 0x0F23 -// tool 0x0E23 set 0x23 (MediaControl) -static inline void SetRecTrack(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0E23\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x1623 set 0x23 (MediaControl) -static inline void SetTempo(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1623\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetTrackOut(unsigned short a0, unsigned short a1); // 0x2623 -extern void SetTuningTable(void * a0); // 0x2423 -// tool 0x1223 set 0x23 (MediaControl) -static inline void SetVelComp(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1223\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void StopNote(unsigned short a0, unsigned short a1); // 0x0C23 -extern void SysExOut(void * a0, unsigned short a1, void * a2); // 0x1823 -extern void TrackToChannel(unsigned short a0, unsigned short a1); // 0x1023 +extern unsigned short SetHandleID(unsigned short a0, unsigned short a1); // 0x3002 // tool 0x0103 set 0x03 (MiscTools) static inline void MTBootInit(void) { __asm__ volatile ( @@ -2960,30 +576,32 @@ static inline unsigned short ReadBParam(unsigned short a0) { return _r; } -extern void WriteTimeHex(void * a0); // 0x0E03 +extern long long ReadTimeHex(void); // 0x0D03 +extern void WriteTimeHex(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0E03 extern void ReadAsciiTime(void * a0); // 0x0F03 -extern void * GetAddr(unsigned short a0); // 0x1603 -extern unsigned long GetTick(void); // 0x2503 -// tool 0x2903 set 0x03 (MiscTools) -static inline unsigned short GetIRQEnable(void) { - unsigned short _r; +extern void SetVector(unsigned short a0, void * a1); // 0x1003 +extern void * GetVector(unsigned short a0); // 0x1103 +extern void SetHeartBeat(void * a0); // 0x1203 +extern void DelHeartBeat(void * a0); // 0x1303 +// tool 0x1403 set 0x03 (MiscTools) +static inline void ClrHeartBeat(void) { __asm__ volatile ( - "pha\n" // result space - "ldx #0x2903\n" + "ldx #0x1403\n" "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) : - : "x", "y", "memory" + : + : "a", "x", "y", "memory" ); - return _r; } -// tool 0x2303 set 0x03 (MiscTools) -static inline void IntSource(unsigned short a0) { +extern void SysFailMgr(unsigned short a0, void * a1); // 0x1503 +extern void * GetAddr(unsigned short a0); // 0x1603 +extern void * ReadMouse(void); // 0x1703 +// tool 0x1803 set 0x03 (MiscTools) +static inline void InitMouse(unsigned short a0) { __asm__ volatile ( "pha\n" // arg0 - "ldx #0x2303\n" + "ldx #0x1803\n" "jsl 0xe10000\n" : : "a"(a0) @@ -2991,15 +609,15 @@ static inline void IntSource(unsigned short a0) { ); } -extern void ClampMouse(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x1C03 -// tool 0x1B03 set 0x03 (MiscTools) -static inline void ClearMouse(void) { +// tool 0x1903 set 0x03 (MiscTools) +static inline void SetMouse(unsigned short a0) { __asm__ volatile ( - "ldx #0x1B03\n" + "pha\n" // arg0 + "ldx #0x1903\n" "jsl 0xe10000\n" : - : - : "a", "x", "y", "memory" + : "a"(a0) + : "x", "y", "memory" ); } @@ -3014,19 +632,20 @@ static inline void HomeMouse(void) { ); } -// tool 0x1803 set 0x03 (MiscTools) -static inline void InitMouse(unsigned short a0) { +// tool 0x1B03 set 0x03 (MiscTools) +static inline void ClearMouse(void) { __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1803\n" + "ldx #0x1B03\n" "jsl 0xe10000\n" : - : "a"(a0) - : "x", "y", "memory" + : + : "a", "x", "y", "memory" ); } -extern void PosMouse(short a0, short a1); // 0x1E03 +extern void ClampMouse(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x1C03 +extern long long GetMouseClamp(void); // 0x1D03 +extern void PosMouse(unsigned short a0, unsigned short a1); // 0x1E03 // tool 0x1F03 set 0x03 (MiscTools) static inline unsigned short ServeMouse(void) { unsigned short _r; @@ -3042,46 +661,6 @@ static inline unsigned short ServeMouse(void) { return _r; } -// tool 0x1903 set 0x03 (MiscTools) -static inline void SetMouse(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1903\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern unsigned short PackBytes(void * a0, unsigned short a1, void * a2, unsigned short a3); // 0x2603 -extern unsigned short UnPackBytes(void * a0, unsigned short a1, void * a2, unsigned short a3); // 0x2703 -extern unsigned short Munger(void * a0, unsigned short a1, void * a2, unsigned short a3, void * a4, unsigned short a5, void * a6); // 0x2803 -extern void SetHeartBeat(void * a0); // 0x1203 -extern void DelHeartBeat(void * a0); // 0x1303 -// tool 0x1403 set 0x03 (MiscTools) -static inline void ClrHeartBeat(void) { - __asm__ volatile ( - "ldx #0x1403\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x2C03 set 0x03 (MiscTools) -static inline void SysBeep(void) { - __asm__ volatile ( - "ldx #0x2C03\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void SysFailMgr(unsigned short a0, void * a1); // 0x1503 // tool 0x2003 set 0x03 (MiscTools) static inline unsigned short GetNewID(unsigned short a0) { unsigned short _r; @@ -3122,11 +701,54 @@ static inline void StatusID(unsigned short a0) { ); } -extern void SetVector(unsigned short a0, void * a1); // 0x1003 -extern void * GetVector(unsigned short a0); // 0x1103 +// tool 0x2303 set 0x03 (MiscTools) +static inline void IntSource(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x2303\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern long long FWEntry(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x2403 +extern unsigned long GetTick(void); // 0x2503 +extern unsigned short PackBytes(void * a0, void * a1, void * a2, unsigned short a3); // 0x2603 +extern unsigned short UnPackBytes(void * a0, unsigned short a1, void * a2, void * a3); // 0x2703 +extern unsigned short Munger(void * a0, void * a1, void * a2, unsigned short a3, void * a4, unsigned short a5, void * a6); // 0x2803 +// tool 0x2903 set 0x03 (MiscTools) +static inline unsigned short GetIRQEnable(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x2903\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void SetAbsClamp(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x2A03 +extern long long GetAbsClamp(void); // 0x2B03 +// tool 0x2C03 set 0x03 (MiscTools) +static inline void SysBeep(void) { + __asm__ volatile ( + "ldx #0x2C03\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + extern void AddToQueue(void * a0, void * a1); // 0x2E03 extern void DeleteFromQueue(void * a0, void * a1); // 0x2F03 -extern void * GetCodeResConverter(void); // 0x3403 +extern void SetInterruptState(void * a0, unsigned short a1); // 0x3003 extern void GetInterruptState(void * a0, unsigned short a1); // 0x3103 // tool 0x3203 set 0x03 (MiscTools) static inline unsigned short GetIntStateRecSize(void) { @@ -3143,8 +765,27 @@ static inline unsigned short GetIntStateRecSize(void) { return _r; } -extern void SetInterruptState(void * a0, unsigned short a1); // 0x3003 -extern unsigned long ConvSeconds(unsigned short a0, long a1, void * a2); // 0x3703 +extern void * ReadMouse2(void); // 0x3303 +extern void * GetCodeResConverter(void); // 0x3403 +extern unsigned short GetROMResource(unsigned short a0, unsigned long a1); // 0x3503 +extern void ReleaseROMResource(unsigned short a0, unsigned long a1); // 0x3603 +extern unsigned long ConvSeconds(unsigned short a0, unsigned long a1, void * a2); // 0x3703 +// tool 0x3803 set 0x03 (MiscTools) +static inline void SysBeep2(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x3803\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void VersionString(unsigned short a0, unsigned long a1, void * a2); // 0x3903 +extern unsigned short WaitUntil(unsigned short a0, unsigned short a1); // 0x3A03 +extern unsigned long StringToText(unsigned short a0, void * a1, unsigned short a2, void * a3); // 0x3B03 +extern void ShowBootInfo(void * a0, void * a1); // 0x3C03 // tool 0x3D03 set 0x03 (MiscTools) static inline unsigned short ScanDevices(void) { unsigned short _r; @@ -3160,628 +801,8 @@ static inline unsigned short ScanDevices(void) { return _r; } -extern void ShowBootInfo(void * a0, void * a1); // 0x3C03 -extern unsigned long StringToText(unsigned short a0, void * a1, unsigned short a2, void * a3); // 0x3B03 -// tool 0x3803 set 0x03 (MiscTools) -static inline void SysBeep2(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x3803\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void VersionString(unsigned short a0, long a1, void * a2); // 0x3903 -extern unsigned short WaitUntil(unsigned short a0, unsigned short a1); // 0x3A03 extern unsigned short AlertMessage(void * a0, unsigned short a1, void * a2); // 0x3E03 extern unsigned short DoSysPrefs(unsigned short a0, unsigned short a1); // 0x3F03 -// tool 0x011A set 0x1A (NoteSequencer) -static inline void SeqBootInit(void) { - __asm__ volatile ( - "ldx #0x011A\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void SeqStartUp(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x021A -// tool 0x031A set 0x1A (NoteSequencer) -static inline void SeqShutDown(void) { - __asm__ volatile ( - "ldx #0x031A\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x041A set 0x1A (NoteSequencer) -static inline unsigned short SeqVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x041A\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x051A set 0x1A (NoteSequencer) -static inline void SeqReset(void) { - __asm__ volatile ( - "ldx #0x051A\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x061A set 0x1A (NoteSequencer) -static inline unsigned short SeqStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x061A\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0A1A set 0x1A (NoteSequencer) -static inline unsigned short ClearIncr(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0A1A\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0B1A set 0x1A (NoteSequencer) -static inline unsigned short GetTimer(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0B1A\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0D1A set 0x1A (NoteSequencer) -static inline void SeqAllNotesOff(void) { - __asm__ volatile ( - "ldx #0x0D1A\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x091A set 0x1A (NoteSequencer) -static inline void SetIncr(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x091A\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetInstTable(void * a0); // 0x121A -extern void SetTrkInfo(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0E1A -// tool 0x131A set 0x1A (NoteSequencer) -static inline void StartInts(void) { - __asm__ volatile ( - "ldx #0x131A\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void StartSeq(void * a0, void * a1, void * a2); // 0x0F1A -extern void StartSeqRel(void * a0, void * a1, void * a2); // 0x151A -// tool 0x101A set 0x1A (NoteSequencer) -static inline void StepSeq(void) { - __asm__ volatile ( - "ldx #0x101A\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x141A set 0x1A (NoteSequencer) -static inline void StopInts(void) { - __asm__ volatile ( - "ldx #0x141A\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x111A set 0x1A (NoteSequencer) -static inline void StopSeq(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x111A\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x0119 set 0x19 (NoteSynth) -static inline void NSBootInit(void) { - __asm__ volatile ( - "ldx #0x0119\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void NSStartUp(unsigned short a0, void * a1); // 0x0219 -// tool 0x0319 set 0x19 (NoteSynth) -static inline void NSShutDown(void) { - __asm__ volatile ( - "ldx #0x0319\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0419 set 0x19 (NoteSynth) -static inline unsigned short NSVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0419\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0519 set 0x19 (NoteSynth) -static inline void NSReset(void) { - __asm__ volatile ( - "ldx #0x0519\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0619 set 0x19 (NoteSynth) -static inline unsigned short NSStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0619\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0D19 set 0x19 (NoteSynth) -static inline void AllNotesOff(void) { - __asm__ volatile ( - "ldx #0x0D19\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0919 set 0x19 (NoteSynth) -static inline unsigned short AllocGen(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x0919\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0A19 set 0x19 (NoteSynth) -static inline void DeallocGen(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0A19\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void NoteOff(unsigned short a0, unsigned short a1); // 0x0C19 -extern void NoteOn(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x0B19 -// tool 0x0E19 set 0x19 (NoteSynth) -static inline unsigned short NSSetUpdateRate(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x0E19\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void * NSSetUserUpdateRtn(void * a0); // 0x0F19 -// tool 0x0113 set 0x13 (PrintManager) -static inline void PMBootInit(void) { - __asm__ volatile ( - "ldx #0x0113\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void PMStartUp(unsigned short a0, unsigned short a1); // 0x0213 -// tool 0x0313 set 0x13 (PrintManager) -static inline void PMShutDown(void) { - __asm__ volatile ( - "ldx #0x0313\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0413 set 0x13 (PrintManager) -static inline unsigned short PMVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0413\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0513 set 0x13 (PrintManager) -static inline void PMReset(void) { - __asm__ volatile ( - "ldx #0x0513\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0613 set 0x13 (PrintManager) -static inline unsigned short PMStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0613\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1613 set 0x13 (PrintManager) -static inline unsigned short PrChoosePrinter(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1613\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1613 set 0x13 (PrintManager) -static inline unsigned short PrChooser(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1613\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void PrCloseDoc(void * a0); // 0x0F13 -extern void PrClosePage(void * a0); // 0x1113 -extern void PrDefault(void * a0); // 0x0913 -// tool 0x2313 set 0x13 (PrintManager) -static inline unsigned short PrDriverVer(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x2313\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1413 set 0x13 (PrintManager) -static inline unsigned short PrError(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1413\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned short PrJobDialog(void * a0); // 0x0C13 -extern void * PrOpenDoc(void * a0, void * a1); // 0x0E13 -extern void PrOpenPage(void * a0, void * a1); // 0x1013 -extern void PrPicFile(void * a0, void * a1, void * a2); // 0x1213 -extern void PrPixelMap(void * a0, void * a1, unsigned short a2); // 0x0D13 -// tool 0x2413 set 0x13 (PrintManager) -static inline unsigned short PrPortVer(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x2413\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1513 set 0x13 (PrintManager) -static inline void PrSetError(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1513\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern unsigned short PrStlDialog(void * a0); // 0x0B13 -extern unsigned short PrValidate(void * a0); // 0x0A13 -// tool 0x3513 set 0x13 (PrintManager) -static inline void PMLoadDriver(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x3513\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x3413 set 0x13 (PrintManager) -static inline void PMUnloadDriver(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x3413\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void * PrGetDocName(void); // 0x3613 -extern unsigned short PrGetPgOrientation(void * a0); // 0x3813 -extern void * PrGetPrinterSpecs(void); // 0x1813 -extern void PrSetDocName(void * a0); // 0x3713 -extern void * PrGetNetworkName(void); // 0x2B13 -extern void * PrGetPortDvrName(void); // 0x2913 -extern void * PrGetPrinterDvrName(void); // 0x2813 -extern void * PrGetUserName(void); // 0x2A13 -extern void * PrGetZoneName(void); // 0x2513 -// tool 0x0112 set 0x12 (QDAuxiliary) -static inline void QDAuxBootInit(void) { - __asm__ volatile ( - "ldx #0x0112\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0212 set 0x12 (QDAuxiliary) -static inline void QDAuxStartUp(void) { - __asm__ volatile ( - "ldx #0x0212\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0312 set 0x12 (QDAuxiliary) -static inline void QDAuxShutDown(void) { - __asm__ volatile ( - "ldx #0x0312\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0412 set 0x12 (QDAuxiliary) -static inline unsigned short QDAuxVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0412\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0512 set 0x12 (QDAuxiliary) -static inline void QDAuxReset(void) { - __asm__ volatile ( - "ldx #0x0512\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0612 set 0x12 (QDAuxiliary) -static inline unsigned short QDAuxStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0612\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0xB904 set 0x04 (QuickDraw) -static inline void ClosePicture(void) { - __asm__ volatile ( - "ldx #0xB904\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void CopyPixels(void * a0, void * a1, void * a2, void * a3, unsigned short a4, void * a5); // 0x0912 -extern void DrawIcon(void * a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x0B12 -extern void DrawPicture(void * a0, void * a1); // 0xBA04 -extern void KillPicture(void * a0); // 0xBB04 -extern void * OpenPicture(void * a0); // 0xB704 -extern void PicComment(short a0, short a1, void * a2); // 0xB804 -// tool 0x0A12 set 0x12 (QDAuxiliary) -static inline void WaitCursor(void) { - __asm__ volatile ( - "ldx #0x0A12\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void CalcMask(void * a0, void * a1, void * a2, void * a3, unsigned short a4, void * a5, void * a6); // 0x0E12 -extern void SeedFill(void * a0, void * a1, void * a2, void * a3, unsigned short a4, unsigned short a5, unsigned short a6, void * a7, void * a8); // 0x0D12 -extern void SpecialRect(void * a0, unsigned short a1, unsigned short a2); // 0x0C12 -extern void * GetSysIcon(unsigned short a0, unsigned short a1, long a2); // 0x0F12 -// tool 0x1312 set 0x12 (QDAuxiliary) -static inline void IBeamCursor(void) { - __asm__ volatile ( - "ldx #0x1312\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void * PixelMap2Rgn(void * a0, unsigned short a1, unsigned short a2); // 0x1012 -extern void WhooshRect(long a0, void * a1, void * a2); // 0x1412 -extern void DrawStringWidth(unsigned short a0, void * a1, unsigned short a2); // 0x1512 -extern void * UseColorTable(unsigned short a0, void * a1, unsigned short a2); // 0x1612 -extern void RestoreColorTable(void * a0, unsigned short a1); // 0x1712 // tool 0x0104 set 0x04 (QuickDraw) static inline void QDBootInit(void) { __asm__ volatile ( @@ -3846,41 +867,11 @@ static inline unsigned short QDStatus(void) { return _r; } -extern void AddPt(void * a0, void * a1); // 0x8004 -extern void CharBounds(unsigned short a0, void * a1); // 0xAC04 -// tool 0xA804 set 0x04 (QuickDraw) -static inline unsigned short CharWidth(unsigned short a0) { - unsigned short _r; +extern void * GetAddress(unsigned short a0); // 0x0904 +// tool 0x0A04 set 0x04 (QuickDraw) +static inline void GrafOn(void) { __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0xA804\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1504 set 0x04 (QuickDraw) -static inline void ClearScreen(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1504\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void ClipRect(void * a0); // 0x2604 -// tool 0xC204 set 0x04 (QuickDraw) -static inline void ClosePoly(void) { - __asm__ volatile ( - "ldx #0xC204\n" + "ldx #0x0A04\n" "jsl 0xe10000\n" : : @@ -3888,58 +879,23 @@ static inline void ClosePoly(void) { ); } -extern void ClosePort(void * a0); // 0x1A04 -extern void CloseRgn(void * a0); // 0x6E04 -extern void CopyRgn(void * a0, void * a1); // 0x6904 -extern void CStringBounds(void * a0, void * a1); // 0xAE04 -extern unsigned short CStringWidth(void * a0); // 0xAA04 -extern void DiffRgn(void * a0, void * a1, void * a2); // 0x7304 -extern void DisposeRgn(void * a0); // 0x6804 -// tool 0xA404 set 0x04 (QuickDraw) -static inline void DrawChar(unsigned short a0) { +// tool 0x0B04 set 0x04 (QuickDraw) +static inline void GrafOff(void) { __asm__ volatile ( - "pha\n" // arg0 - "ldx #0xA404\n" + "ldx #0x0B04\n" "jsl 0xe10000\n" : - : "a"(a0) - : "x", "y", "memory" + : + : "a", "x", "y", "memory" ); } -extern void DrawCString(void * a0); // 0xA604 -extern void DrawString(void * a0); // 0xA504 -extern void DrawText(void * a0, unsigned short a1); // 0xA704 -extern unsigned short EmptyRgn(void * a0); // 0x7804 -extern unsigned short EqualPt(void * a0, void * a1); // 0x8304 -extern unsigned short EqualRect(void * a0, void * a1); // 0x5104 -extern unsigned short EqualRgn(void * a0, void * a1); // 0x7704 -extern void EraseArc(void * a0, short a1, short a2); // 0x6404 -extern void EraseOval(void * a0); // 0x5A04 -extern void ErasePoly(void * a0); // 0xBE04 -extern void EraseRect(void * a0); // 0x5504 -extern void EraseRgn(void * a0); // 0x7B04 -extern void EraseRRect(void * a0, unsigned short a1, unsigned short a2); // 0x5F04 -extern void FillArc(void * a0, short a1, short a2, void * a3); // 0x6604 -extern void FillOval(void * a0, void * a1); // 0x5C04 -extern void FillPoly(void * a0, void * a1); // 0xC004 -extern void FillRect(void * a0, void * a1); // 0x5704 -extern void FillRgn(void * a0, void * a1); // 0x7D04 -extern void FillRRect(void * a0, unsigned short a1, unsigned short a2, void * a3); // 0x6104 -extern void ForceBufDims(unsigned short a0, unsigned short a1, unsigned short a2); // 0xCC04 -extern void FrameArc(void * a0, short a1, short a2); // 0x6204 -extern void FrameOval(void * a0); // 0x5804 -extern void FramePoly(void * a0); // 0xBC04 -extern void FrameRect(void * a0); // 0x5304 -extern void FrameRgn(void * a0); // 0x7904 -extern void FrameRRect(void * a0, unsigned short a1, unsigned short a2); // 0x5D04 -extern void * GetAddress(unsigned short a0); // 0x0904 -// tool 0xB104 set 0x04 (QuickDraw) -static inline unsigned short GetArcRot(void) { +// tool 0x0C04 set 0x04 (QuickDraw) +static inline unsigned short GetStandardSCB(void) { unsigned short _r; __asm__ volatile ( "pha\n" // result space - "ldx #0xB104\n" + "ldx #0x0C04\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -3949,123 +905,12 @@ static inline unsigned short GetArcRot(void) { return _r; } -// tool 0xA304 set 0x04 (QuickDraw) -static inline unsigned short GetBackColor(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0xA304\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void GetBackPat(void * a0); // 0x3504 -extern void * GetCharExtra(void); // 0xD504 -extern void GetClip(void * a0); // 0x2504 -extern void * GetClipHandle(void); // 0xC704 -extern unsigned short GetColorEntry(unsigned short a0, unsigned short a1); // 0x1104 +extern void InitColorTable(void * a0); // 0x0D04 +extern void SetColorTable(unsigned short a0, void * a1); // 0x0E04 extern void GetColorTable(unsigned short a0, void * a1); // 0x0F04 -extern void * GetCursorAdr(void); // 0x8F04 -// tool 0xCF04 set 0x04 (QuickDraw) -static inline unsigned short GetFGSize(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0xCF04\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetFont(void); // 0x9504 -// tool 0x9904 set 0x04 (QuickDraw) -static inline unsigned short GetFontFlags(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x9904\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void GetFontGlobals(void * a0); // 0x9704 -extern long GetFontID(void); // 0xD104 -extern void GetFontInfo(void * a0); // 0x9604 -extern unsigned short GetFontLore(void * a0, unsigned short a1); // 0xD904 -// tool 0xA104 set 0x04 (QuickDraw) -static inline unsigned short GetForeColor(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0xA104\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetGrafProcs(void); // 0x4504 -// tool 0x1704 set 0x04 (QuickDraw) -static inline unsigned short GetMasterSCB(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1704\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void GetPen(void * a0); // 0x2904 -extern void GetPenMask(void * a0); // 0x3304 -// tool 0x2F04 set 0x04 (QuickDraw) -static inline unsigned short GetPenMode(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x2F04\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void GetPenPat(void * a0); // 0x3104 -extern void GetPenSize(void * a0); // 0x2D04 -extern void GetPenState(void * a0); // 0x2B04 -extern void * GetPicSave(void); // 0x3F04 -extern unsigned short GetPixel(short a0, short a1); // 0x8804 -extern unsigned long GetPolySave(void); // 0x4304 -extern void * GetPort(void); // 0x1C04 -extern void GetPortLoc(void * a0); // 0x1E04 -extern void GetPortRect(void * a0); // 0x2004 -extern unsigned long GetRgnSave(void); // 0x4104 -extern void GetROMFont(void * a0); // 0xD804 -extern void GetRomFont(void * a0); // 0xD804 +extern void SetColorEntry(unsigned short a0, unsigned short a1, unsigned short a2); // 0x1004 +extern unsigned short GetColorEntry(unsigned short a0, unsigned short a1); // 0x1104 +extern void SetSCB(unsigned short a0, unsigned short a1); // 0x1204 // tool 0x1304 set 0x04 (QuickDraw) static inline unsigned short GetSCB(unsigned short a0) { unsigned short _r; @@ -4082,210 +927,6 @@ static inline unsigned short GetSCB(unsigned short a0) { return _r; } -extern void * GetSpaceExtra(void); // 0x9F04 -// tool 0x0C04 set 0x04 (QuickDraw) -static inline unsigned short GetStandardSCB(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0C04\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetSysField(void); // 0x4904 -extern void * GetSysFont(void); // 0xB304 -extern void * GetTextFace(void); // 0x9B04 -// tool 0x9D04 set 0x04 (QuickDraw) -static inline unsigned short GetTextMode(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x9D04\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0xD304 set 0x04 (QuickDraw) -static inline unsigned short GetTextSize(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0xD304\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetUserField(void); // 0x4704 -extern void * GetVisHandle(void); // 0xC904 -extern void GetVisRgn(void * a0); // 0xB504 -extern void GlobalToLocal(void * a0); // 0x8504 -// tool 0x0B04 set 0x04 (QuickDraw) -static inline void GrafOff(void) { - __asm__ volatile ( - "ldx #0x0B04\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0A04 set 0x04 (QuickDraw) -static inline void GrafOn(void) { - __asm__ volatile ( - "ldx #0x0A04\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x9004 set 0x04 (QuickDraw) -static inline void HideCursor(void) { - __asm__ volatile ( - "ldx #0x9004\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x2704 set 0x04 (QuickDraw) -static inline void HidePen(void) { - __asm__ volatile ( - "ldx #0x2704\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void InflateTextBuffer(unsigned short a0, unsigned short a1); // 0xD704 -extern void InitColorTable(void * a0); // 0x0D04 -// tool 0xCA04 set 0x04 (QuickDraw) -static inline void InitCursor(void) { - __asm__ volatile ( - "ldx #0xCA04\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void InitPort(void * a0); // 0x1904 -extern void InsetRect(void * a0, short a1, short a2); // 0x4C04 -extern void InsetRgn(void * a0, short a1, short a2); // 0x7004 -extern void InvertArc(void * a0, short a1, short a2); // 0x6504 -extern void InvertOval(void * a0); // 0x5B04 -extern void InvertPoly(void * a0); // 0xBF04 -extern void InvertRect(void * a0); // 0x5604 -extern void InvertRgn(void * a0); // 0x7C04 -extern void InvertRRect(void * a0, unsigned short a1, unsigned short a2); // 0x6004 -extern void KillPoly(void * a0); // 0xC304 -extern void Line(short a0, short a1); // 0x3D04 -extern void LineTo(short a0, short a1); // 0x3C04 -extern void LocalToGlobal(void * a0); // 0x8404 -extern void MapPoly(void * a0, void * a1, void * a2); // 0xC504 -extern void MapPt(void * a0, void * a1, void * a2); // 0x8A04 -extern void MapRect(void * a0, void * a1, void * a2); // 0x8B04 -extern void MapRgn(void * a0, void * a1, void * a2); // 0x8C04 -extern void Move(short a0, short a1); // 0x3B04 -extern void MovePortTo(short a0, short a1); // 0x2204 -extern void MoveTo(short a0, short a1); // 0x3A04 -extern void * NewRgn(void); // 0x6704 -extern unsigned short NotEmptyRect(void * a0); // 0x5204 -// tool 0x9204 set 0x04 (QuickDraw) -static inline void ObscureCursor(void) { - __asm__ volatile ( - "ldx #0x9204\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void OffsetPoly(void * a0, short a1, short a2); // 0xC404 -extern void OffsetRect(void * a0, short a1, short a2); // 0x4B04 -extern void OffsetRgn(void * a0, short a1, short a2); // 0x6F04 -extern void * OpenPoly(void); // 0xC104 -extern void OpenPort(void * a0); // 0x1804 -// tool 0x6D04 set 0x04 (QuickDraw) -static inline void OpenRgn(void) { - __asm__ volatile ( - "ldx #0x6D04\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void PaintArc(void * a0, short a1, short a2); // 0x6304 -extern void PaintOval(void * a0); // 0x5904 -extern void PaintPixels(void * a0); // 0x7F04 -extern void PaintPoly(void * a0); // 0xBD04 -extern void PaintRect(void * a0); // 0x5404 -extern void PaintRgn(void * a0); // 0x7A04 -extern void PaintRRect(void * a0, unsigned short a1, unsigned short a2); // 0x5E04 -// tool 0x3604 set 0x04 (QuickDraw) -static inline void PenNormal(void) { - __asm__ volatile ( - "ldx #0x3604\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void PPToPort(void * a0, void * a1, short a2, short a3, unsigned short a4); // 0xD604 -extern void Pt2Rect(void * a0, void * a1, void * a2); // 0x5004 -extern unsigned short PtInRect(void * a0, void * a1); // 0x4F04 -extern unsigned short PtInRgn(void * a0, void * a1); // 0x7504 -// tool 0x8604 set 0x04 (QuickDraw) -static inline unsigned short Random(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x8604\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern unsigned short RectInRgn(void * a0, void * a1); // 0x7604 -extern void RectRgn(void * a0, void * a1); // 0x6C04 -extern void RestoreBufDims(void * a0); // 0xCE04 -extern void SaveBufDims(void * a0); // 0xCD04 -extern void ScalePt(void * a0, void * a1, void * a2); // 0x8904 -extern void ScrollRect(void * a0, short a1, short a2, void * a3); // 0x7E04 -extern unsigned short SectRect(void * a0, void * a1, void * a2); // 0x4D04 -extern void SectRgn(void * a0, void * a1, void * a2); // 0x7104 // tool 0x1404 set 0x04 (QuickDraw) static inline void SetAllSCBs(unsigned short a0) { __asm__ volatile ( @@ -4298,71 +939,11 @@ static inline void SetAllSCBs(unsigned short a0) { ); } -// tool 0xB004 set 0x04 (QuickDraw) -static inline void SetArcRot(short a0) { +// tool 0x1504 set 0x04 (QuickDraw) +static inline void ClearScreen(unsigned short a0) { __asm__ volatile ( "pha\n" // arg0 - "ldx #0xB004\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0xA204 set 0x04 (QuickDraw) -static inline void SetBackColor(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0xA204\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetBackPat(void * a0); // 0x3404 -extern void SetBufDims(unsigned short a0, unsigned short a1, unsigned short a2); // 0xCB04 -extern void SetCharExtra(void * a0); // 0xD404 -extern void SetClip(void * a0); // 0x2404 -extern void SetClipHandle(void * a0); // 0xC604 -extern void SetColorEntry(unsigned short a0, unsigned short a1, void * a2); // 0x1004 -extern void SetColorTable(unsigned short a0, void * a1); // 0x0E04 -extern void SetCursor(void * a0); // 0x8E04 -extern void SetEmptyRgn(void * a0); // 0x6A04 -extern void SetFont(void * a0); // 0x9404 -// tool 0x9804 set 0x04 (QuickDraw) -static inline void SetFontFlags(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x9804\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetFontID(void * a0); // 0xD004 -// tool 0xA004 set 0x04 (QuickDraw) -static inline void SetForeColor(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0xA004\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetGrafProcs(void * a0); // 0x4404 -// tool 0xB604 set 0x04 (QuickDraw) -static inline void SetIntUse(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0xB604\n" + "ldx #0x1504\n" "jsl 0xe10000\n" : : "a"(a0) @@ -4382,95 +963,40 @@ static inline void SetMasterSCB(unsigned short a0) { ); } -extern void SetOrigin(short a0, short a1); // 0x2304 -extern void SetPenMask(void * a0); // 0x3204 -// tool 0x2E04 set 0x04 (QuickDraw) -static inline void SetPenMode(unsigned short a0) { +// tool 0x1704 set 0x04 (QuickDraw) +static inline unsigned short GetMasterSCB(void) { + unsigned short _r; __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x2E04\n" + "pha\n" // result space + "ldx #0x1704\n" "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) : - : "a"(a0) : "x", "y", "memory" ); + return _r; } -extern void SetPenPat(void * a0); // 0x3004 -extern void SetPenSize(unsigned short a0, unsigned short a1); // 0x2C04 -extern void SetPenState(void * a0); // 0x2A04 -extern void SetPicSave(void * a0); // 0x3E04 -extern void SetPolySave(void * a0); // 0x4204 +extern void OpenPort(void * a0); // 0x1804 +extern void InitPort(void * a0); // 0x1904 +extern void ClosePort(void * a0); // 0x1A04 extern void SetPort(void * a0); // 0x1B04 +extern void * GetPort(void); // 0x1C04 extern void SetPortLoc(void * a0); // 0x1D04 +extern void GetPortLoc(void * a0); // 0x1E04 extern void SetPortRect(void * a0); // 0x1F04 +extern void GetPortRect(void * a0); // 0x2004 extern void SetPortSize(unsigned short a0, unsigned short a1); // 0x2104 -extern void SetPt(void * a0, short a1, short a2); // 0x8204 -extern void SetRandSeed(void * a0); // 0x8704 -extern void SetRect(void * a0, short a1, short a2, short a3, short a4); // 0x4A04 -extern void SetRectRgn(void * a0, short a1, short a2, short a3, short a4); // 0x6B04 -extern void SetRgnSave(void * a0); // 0x4004 -extern void SetSCB(unsigned short a0, unsigned short a1); // 0x1204 -// tool 0x3804 set 0x04 (QuickDraw) -static inline void SetSolidBackPat(unsigned short a0) { +extern void MovePortTo(unsigned short a0, unsigned short a1); // 0x2204 +extern void SetOrigin(unsigned short a0, unsigned short a1); // 0x2304 +extern void SetClip(void * a0); // 0x2404 +extern void GetClip(void * a0); // 0x2504 +extern void ClipRect(void * a0); // 0x2604 +// tool 0x2704 set 0x04 (QuickDraw) +static inline void HidePen(void) { __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x3804\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x3704 set 0x04 (QuickDraw) -static inline void SetSolidPenPat(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x3704\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetSpaceExtra(void * a0); // 0x9E04 -extern void SetStdProcs(void * a0); // 0x8D04 -extern void SetSysField(void * a0); // 0x4804 -extern void SetSysFont(void * a0); // 0xB204 -extern void SetTextFace(void * a0); // 0x9A04 -// tool 0x9C04 set 0x04 (QuickDraw) -static inline void SetTextMode(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x9C04\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0xD204 set 0x04 (QuickDraw) -static inline void SetTextSize(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0xD204\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetUserField(void * a0); // 0x4604 -extern void SetVisHandle(void * a0); // 0xC804 -extern void SetVisRgn(void * a0); // 0xB404 -// tool 0x9104 set 0x04 (QuickDraw) -static inline void ShowCursor(void) { - __asm__ volatile ( - "ldx #0x9104\n" + "ldx #0x2704\n" "jsl 0xe10000\n" : : @@ -4489,15 +1015,599 @@ static inline void ShowPen(void) { ); } +extern void GetPen(void * a0); // 0x2904 +extern void SetPenState(void * a0); // 0x2A04 +extern void GetPenState(void * a0); // 0x2B04 +extern void SetPenSize(unsigned short a0, unsigned short a1); // 0x2C04 +extern void GetPenSize(void * a0); // 0x2D04 +// tool 0x2E04 set 0x04 (QuickDraw) +static inline void SetPenMode(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x2E04\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x2F04 set 0x04 (QuickDraw) +static inline unsigned short GetPenMode(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x2F04\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void SetPenPat(void * a0); // 0x3004 +extern void GetPenPat(void * a0); // 0x3104 +extern void SetPenMask(void * a0); // 0x3204 +extern void GetPenMask(void * a0); // 0x3304 +extern void SetBackPat(void * a0); // 0x3404 +extern void GetBackPat(void * a0); // 0x3504 +// tool 0x3604 set 0x04 (QuickDraw) +static inline void PenNormal(void) { + __asm__ volatile ( + "ldx #0x3604\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x3704 set 0x04 (QuickDraw) +static inline void SetSolidPenPat(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x3704\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x3804 set 0x04 (QuickDraw) +static inline void SetSolidBackPat(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x3804\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + extern void SolidPattern(unsigned short a0, void * a1); // 0x3904 -extern void StringBounds(void * a0, void * a1); // 0xAD04 -extern unsigned short StringWidth(void * a0); // 0xA904 -extern void SubPt(void * a0, void * a1); // 0x8104 -extern void TextBounds(void * a0, unsigned short a1, void * a2); // 0xAF04 -extern unsigned short TextWidth(void * a0, unsigned short a1); // 0xAB04 +extern void MoveTo(unsigned short a0, unsigned short a1); // 0x3A04 +extern void Move(unsigned short a0, unsigned short a1); // 0x3B04 +extern void LineTo(unsigned short a0, unsigned short a1); // 0x3C04 +extern void Line(unsigned short a0, unsigned short a1); // 0x3D04 +extern void SetPicSave(unsigned long a0); // 0x3E04 +extern unsigned long GetPicSave(void); // 0x3F04 +extern void SetRgnSave(unsigned long a0); // 0x4004 +extern unsigned long GetRgnSave(void); // 0x4104 +extern void SetPolySave(unsigned long a0); // 0x4204 +extern unsigned long GetPolySave(void); // 0x4304 +extern void SetGrafProcs(void * a0); // 0x4404 +extern void * GetGrafProcs(void); // 0x4504 +extern void SetUserField(unsigned long a0); // 0x4604 +extern unsigned long GetUserField(void); // 0x4704 +extern void SetSysField(unsigned long a0); // 0x4804 +extern unsigned long GetSysField(void); // 0x4904 +extern void SetRect(void * a0, unsigned short a1, unsigned short a2, unsigned short a3, unsigned short a4); // 0x4A04 +extern void OffsetRect(void * a0, unsigned short a1, unsigned short a2); // 0x4B04 +extern void InsetRect(void * a0, unsigned short a1, unsigned short a2); // 0x4C04 +extern unsigned short SectRect(void * a0, void * a1, void * a2); // 0x4D04 extern void UnionRect(void * a0, void * a1, void * a2); // 0x4E04 -extern void UnionRgn(void * a0, void * a1, void * a2); // 0x7204 -extern void XorRgn(void * a0, void * a1, void * a2); // 0x7404 +extern unsigned short PtInRect(void * a0, void * a1); // 0x4F04 +extern void Pt2Rect(void * a0, void * a1, void * a2); // 0x5004 +extern unsigned short EqualRect(void * a0, void * a1); // 0x5104 +extern unsigned short NotEmptyRect(void * a0); // 0x5204 +extern void FrameRect(void * a0); // 0x5304 +extern void PaintRect(void * a0); // 0x5404 +extern void EraseRect(void * a0); // 0x5504 +extern void InvertRect(void * a0); // 0x5604 +extern void FillRect(void * a0, void * a1); // 0x5704 +extern void FrameOval(void * a0); // 0x5804 +extern void PaintOval(void * a0); // 0x5904 +extern void EraseOval(void * a0); // 0x5A04 +extern void InvertOval(void * a0); // 0x5B04 +extern void FillOval(void * a0, void * a1); // 0x5C04 +extern void FrameRRect(void * a0, unsigned short a1, unsigned short a2); // 0x5D04 +extern void PaintRRect(void * a0, unsigned short a1, unsigned short a2); // 0x5E04 +extern void EraseRRect(void * a0, unsigned short a1, unsigned short a2); // 0x5F04 +extern void InvertRRect(void * a0, unsigned short a1, unsigned short a2); // 0x6004 +extern void FillRRect(void * a0, unsigned short a1, unsigned short a2, void * a3); // 0x6104 +extern void FrameArc(void * a0, unsigned short a1, unsigned short a2); // 0x6204 +extern void PaintArc(void * a0, unsigned short a1, unsigned short a2); // 0x6304 +extern void EraseArc(void * a0, unsigned short a1, unsigned short a2); // 0x6404 +extern void InvertArc(void * a0, unsigned short a1, unsigned short a2); // 0x6504 +extern void FillArc(void * a0, unsigned short a1, unsigned short a2, void * a3); // 0x6604 +extern void * NewRgn(void); // 0x6704 +extern void DisposeRgn(void * a0); // 0x6804 +extern void CopyRgn(void * a0, void * a1); // 0x6904 +extern void SetEmptyRgn(void * a0); // 0x6A04 +extern void SetRectRgn(void * a0, unsigned short a1, unsigned short a2, unsigned short a3, unsigned short a4); // 0x6B04 +extern void RectRgn(void * a0, void * a1); // 0x6C04 +// tool 0x6D04 set 0x04 (QuickDraw) +static inline void OpenRgn(void) { + __asm__ volatile ( + "ldx #0x6D04\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void CloseRgn(void * a0); // 0x6E04 +extern void OffsetRgn(void * a0, unsigned short a1, unsigned short a2); // 0x6F04 +extern void InsetRgn(void * a0, unsigned short a1, unsigned short a2); // 0x7004 +extern void SectRgn(unsigned short a0, unsigned short a1, void * a2); // 0x7104 +extern void UnionRgn(unsigned short a0, unsigned short a1, void * a2); // 0x7204 +extern void DiffRgn(unsigned short a0, unsigned short a1, void * a2); // 0x7304 +extern void XorRgn(unsigned short a0, unsigned short a1, void * a2); // 0x7404 +extern unsigned short PtInRgn(void * a0, void * a1); // 0x7504 +extern unsigned short RectInRgn(void * a0, void * a1); // 0x7604 +extern unsigned short EqualRgn(unsigned short a0, unsigned short a1); // 0x7704 +extern unsigned short EmptyRgn(void * a0); // 0x7804 +extern void FrameRgn(void * a0); // 0x7904 +extern void PaintRgn(void * a0); // 0x7A04 +extern void EraseRgn(void * a0); // 0x7B04 +extern void InvertRgn(void * a0); // 0x7C04 +extern void FillRgn(void * a0, void * a1); // 0x7D04 +extern void ScrollRect(void * a0, unsigned short a1, unsigned short a2, void * a3); // 0x7E04 +extern void PaintPixels(void * a0); // 0x7F04 +extern void AddPt(void * a0, void * a1); // 0x8004 +extern void SubPt(void * a0, void * a1); // 0x8104 +extern void SetPt(void * a0, unsigned short a1, unsigned short a2); // 0x8204 +extern unsigned short EqualPt(void * a0, void * a1); // 0x8304 +extern void LocalToGlobal(void * a0); // 0x8404 +extern void GlobalToLocal(void * a0); // 0x8504 +// tool 0x8604 set 0x04 (QuickDraw) +static inline unsigned short Random(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x8604\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void SetRandSeed(unsigned long a0); // 0x8704 +extern unsigned short GetPixel(unsigned short a0, unsigned short a1); // 0x8804 +extern void ScalePt(void * a0, void * a1, void * a2); // 0x8904 +extern void MapPt(void * a0, void * a1, void * a2); // 0x8A04 +extern void MapRect(void * a0, void * a1, void * a2); // 0x8B04 +extern void MapRgn(void * a0, void * a1, void * a2); // 0x8C04 +extern void SetStdProcs(void * a0); // 0x8D04 +extern void SetCursor(void * a0); // 0x8E04 +extern void * GetCursorAdr(void); // 0x8F04 +// tool 0x9004 set 0x04 (QuickDraw) +static inline void HideCursor(void) { + __asm__ volatile ( + "ldx #0x9004\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x9104 set 0x04 (QuickDraw) +static inline void ShowCursor(void) { + __asm__ volatile ( + "ldx #0x9104\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x9204 set 0x04 (QuickDraw) +static inline void ObscureCursor(void) { + __asm__ volatile ( + "ldx #0x9204\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void SetFont(void * a0); // 0x9404 +extern void * GetFont(void); // 0x9504 +extern void GetFontInfo(void * a0); // 0x9604 +extern void GetFontGlobals(void * a0); // 0x9704 +// tool 0x9804 set 0x04 (QuickDraw) +static inline void SetFontFlags(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x9804\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x9904 set 0x04 (QuickDraw) +static inline unsigned short GetFontFlags(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x9904\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x9A04 set 0x04 (QuickDraw) +static inline void SetTextFace(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x9A04\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x9B04 set 0x04 (QuickDraw) +static inline unsigned short GetTextFace(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x9B04\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x9C04 set 0x04 (QuickDraw) +static inline void SetTextMode(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x9C04\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x9D04 set 0x04 (QuickDraw) +static inline unsigned short GetTextMode(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x9D04\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x9E04 set 0x04 (QuickDraw) +static inline void SetSpaceExtra(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x9E04\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x9F04 set 0x04 (QuickDraw) +static inline unsigned short GetSpaceExtra(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x9F04\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0xA004 set 0x04 (QuickDraw) +static inline void SetForeColor(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0xA004\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0xA104 set 0x04 (QuickDraw) +static inline unsigned short GetForeColor(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0xA104\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0xA204 set 0x04 (QuickDraw) +static inline void SetBackColor(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0xA204\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0xA304 set 0x04 (QuickDraw) +static inline unsigned short GetBackColor(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0xA304\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0xA404 set 0x04 (QuickDraw) +static inline void DrawChar(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0xA404\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void DrawString(void * a0); // 0xA504 +extern void DrawCString(void * a0); // 0xA604 +extern void DrawText(void * a0, unsigned short a1); // 0xA704 +// tool 0xA804 set 0x04 (QuickDraw) +static inline unsigned short CharWidth(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0xA804\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned short StringWidth(void * a0); // 0xA904 +extern unsigned short CStringWidth(void * a0); // 0xAA04 +extern unsigned short TextWidth(void * a0, unsigned short a1); // 0xAB04 +extern void CharBounds(unsigned short a0, void * a1); // 0xAC04 +extern void StringBounds(void * a0, void * a1); // 0xAD04 +extern void CStringBounds(void * a0, void * a1); // 0xAE04 +extern void TextBounds(void * a0, unsigned short a1, void * a2); // 0xAF04 +// tool 0xB004 set 0x04 (QuickDraw) +static inline void SetArcRot(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0xB004\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0xB104 set 0x04 (QuickDraw) +static inline unsigned short GetArcRot(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0xB104\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void SetSysFont(void * a0); // 0xB204 +extern void * GetSysFont(void); // 0xB304 +extern void SetVisRgn(void * a0); // 0xB404 +extern void GetVisRgn(void * a0); // 0xB504 +// tool 0xB604 set 0x04 (QuickDraw) +static inline void SetIntUse(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0xB604\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void * OpenPicture(void * a0); // 0xB704 +extern void PicComment(unsigned short a0, unsigned short a1, void * a2); // 0xB804 +// tool 0xB904 set 0x04 (QuickDraw) +static inline void ClosePicture(void) { + __asm__ volatile ( + "ldx #0xB904\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void DrawPicture(void * a0, void * a1); // 0xBA04 +extern void KillPicture(void * a0); // 0xBB04 +extern void FramePoly(void * a0); // 0xBC04 +extern void PaintPoly(void * a0); // 0xBD04 +extern void ErasePoly(void * a0); // 0xBE04 +extern void InvertPoly(void * a0); // 0xBF04 +extern void FillPoly(void * a0, void * a1); // 0xC004 +extern void * OpenPoly(void); // 0xC104 +// tool 0xC204 set 0x04 (QuickDraw) +static inline void ClosePoly(void) { + __asm__ volatile ( + "ldx #0xC204\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void KillPoly(void * a0); // 0xC304 +extern void OffsetPoly(void * a0, unsigned short a1, unsigned short a2); // 0xC404 +extern void MapPoly(void * a0, void * a1, void * a2); // 0xC504 +extern void SetClipHandle(void * a0); // 0xC604 +extern void * GetClipHandle(void); // 0xC704 +extern void SetVisHandle(void * a0); // 0xC804 +extern void * GetVisHandle(void); // 0xC904 +// tool 0xCA04 set 0x04 (QuickDraw) +static inline void InitCursor(void) { + __asm__ volatile ( + "ldx #0xCA04\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void SetBufDims(unsigned short a0, unsigned short a1, unsigned short a2); // 0xCB04 +extern void ForceBufDims(unsigned short a0, unsigned short a1, unsigned short a2); // 0xCC04 +extern void SaveBufDims(void * a0); // 0xCD04 +extern void RestoreBufDims(void * a0); // 0xCE04 +// tool 0xCF04 set 0x04 (QuickDraw) +static inline unsigned short GetFGSize(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0xCF04\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void SetFontID(unsigned long a0); // 0xD004 +extern unsigned long GetFontID(void); // 0xD104 +// tool 0xD204 set 0x04 (QuickDraw) +static inline void SetTextSize(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0xD204\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0xD304 set 0x04 (QuickDraw) +static inline unsigned short GetTextSize(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0xD304\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0xD404 set 0x04 (QuickDraw) +static inline void SetCharExtra(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0xD404\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0xD504 set 0x04 (QuickDraw) +static inline unsigned short GetCharExtra(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0xD504\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void PPToPort(void * a0, void * a1, unsigned short a2, unsigned short a3, unsigned short a4); // 0xD604 +extern void InflateTextBuffer(unsigned short a0, unsigned short a1); // 0xD704 +extern void GetRomFont(void * a0); // 0xD804 +extern unsigned short GetFontLore(void * a0, unsigned short a1); // 0xD904 extern void * Get640Colors(void); // 0xDA04 // tool 0xDB04 set 0x04 (QuickDraw) static inline void Set640Color(unsigned short a0) { @@ -4511,10 +1621,10 @@ static inline void Set640Color(unsigned short a0) { ); } -// tool 0x011E set 0x1E (ResourceManager) -static inline void ResourceBootInit(void) { +// tool 0x0105 set 0x05 (DeskManager) +static inline void DeskBootInit(void) { __asm__ volatile ( - "ldx #0x011E\n" + "ldx #0x0105\n" "jsl 0xe10000\n" : : @@ -4522,11 +1632,118 @@ static inline void ResourceBootInit(void) { ); } -// tool 0x021E set 0x1E (ResourceManager) -static inline void ResourceStartUp(unsigned short a0) { +// tool 0x0205 set 0x05 (DeskManager) +static inline void DeskStartUp(void) { + __asm__ volatile ( + "ldx #0x0205\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0305 set 0x05 (DeskManager) +static inline void DeskShutDown(void) { + __asm__ volatile ( + "ldx #0x0305\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0405 set 0x05 (DeskManager) +static inline unsigned short DeskVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0405\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0505 set 0x05 (DeskManager) +static inline void DeskReset(void) { + __asm__ volatile ( + "ldx #0x0505\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0605 set 0x05 (DeskManager) +static inline unsigned short DeskStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0605\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0905 set 0x05 (DeskManager) +static inline void SaveScrn(void) { + __asm__ volatile ( + "ldx #0x0905\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0A05 set 0x05 (DeskManager) +static inline void RestScrn(void) { + __asm__ volatile ( + "ldx #0x0A05\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0B05 set 0x05 (DeskManager) +static inline void SaveAll(void) { + __asm__ volatile ( + "ldx #0x0B05\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0C05 set 0x05 (DeskManager) +static inline void RestAll(void) { + __asm__ volatile ( + "ldx #0x0C05\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0E05 set 0x05 (DeskManager) +static inline void InstallNDA(unsigned short a0) { __asm__ volatile ( "pha\n" // arg0 - "ldx #0x021E\n" + "ldx #0x0E05\n" "jsl 0xe10000\n" : : "a"(a0) @@ -4534,64 +1751,11 @@ static inline void ResourceStartUp(unsigned short a0) { ); } -// tool 0x031E set 0x1E (ResourceManager) -static inline void ResourceShutDown(void) { - __asm__ volatile ( - "ldx #0x031E\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x041E set 0x1E (ResourceManager) -static inline unsigned short ResourceVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x041E\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x051E set 0x1E (ResourceManager) -static inline void ResourceReset(void) { - __asm__ volatile ( - "ldx #0x051E\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x061E set 0x1E (ResourceManager) -static inline unsigned short ResourceStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x061E\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void AddResource(void * a0, unsigned short a1, unsigned short a2, long a3); // 0x0C1E -// tool 0x0B1E set 0x1E (ResourceManager) -static inline void CloseResourceFile(unsigned short a0) { +// tool 0x0F05 set 0x05 (DeskManager) +static inline void InstallCDA(unsigned short a0) { __asm__ volatile ( "pha\n" // arg0 - "ldx #0x0B1E\n" + "ldx #0x0F05\n" "jsl 0xe10000\n" : : "a"(a0) @@ -4599,64 +1763,26 @@ static inline void CloseResourceFile(unsigned short a0) { ); } -extern unsigned long CountResources(unsigned short a0); // 0x221E -// tool 0x201E set 0x1E (ResourceManager) -static inline unsigned short CountTypes(void) { - unsigned short _r; +// tool 0x1105 set 0x05 (DeskManager) +static inline void ChooseCDA(void) { __asm__ volatile ( - "pha\n" // result space - "ldx #0x201E\n" + "ldx #0x1105\n" "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) : - : "x", "y", "memory" + : + : "a", "x", "y", "memory" ); - return _r; } -extern void CreateResourceFile(long a0, unsigned short a1, unsigned short a2, void * a3); // 0x091E -extern void DetachResource(unsigned short a0, long a1); // 0x181E -// tool 0x141E set 0x1E (ResourceManager) -static inline unsigned short GetCurResourceApp(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x141E\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x121E set 0x1E (ResourceManager) -static inline unsigned short GetCurResourceFile(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x121E\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetIndResource(unsigned short a0, long a1); // 0x231E -extern unsigned long GetIndType(unsigned short a0); // 0x211E -extern void * GetMapHandle(unsigned short a0); // 0x261E -// tool 0x1F1E set 0x1E (ResourceManager) -static inline unsigned short GetOpenFileRefNum(unsigned short a0) { +extern void SetDAStrPtr(void * a0, void * a1); // 0x1305 +extern void * GetDAStrPtr(void); // 0x1405 +// tool 0x1505 set 0x05 (DeskManager) +static inline unsigned short OpenNDA(unsigned short a0) { unsigned short _r; __asm__ volatile ( "pha\n" // result space "pha\n" // arg0 - "ldx #0x1F1E\n" + "ldx #0x1505\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -4666,22 +1792,11 @@ static inline unsigned short GetOpenFileRefNum(unsigned short a0) { return _r; } -extern void * GetResourceAttr(unsigned short a0, long a1); // 0x1B1E -extern unsigned long GetResourceSize(unsigned short a0, long a1); // 0x1D1E -extern unsigned short HomeResourceFile(unsigned short a0, long a1); // 0x151E -extern unsigned long LoadAbsResource(void * a0, long a1, unsigned short a2, long a3); // 0x271E -extern void * LoadResource(unsigned short a0, long a1); // 0x0E1E -extern void MarkResourceChange(unsigned short a0, unsigned short a1, long a2); // 0x101E -extern void MatchResourceHandle(void * a0, void * a1); // 0x1E1E -extern unsigned short OpenResourceFile(unsigned short a0, void * a1, void * a2); // 0x0A1E -extern void ReleaseResource(unsigned short a0, unsigned short a1, long a2); // 0x171E -extern void RemoveResource(unsigned short a0, long a1); // 0x0F1E -extern void ResourceConverter(void * a0, unsigned short a1, unsigned short a2); // 0x281E -// tool 0x131E set 0x1E (ResourceManager) -static inline void SetCurResourceApp(unsigned short a0) { +// tool 0x1605 set 0x05 (DeskManager) +static inline void CloseNDA(unsigned short a0) { __asm__ volatile ( "pha\n" // arg0 - "ldx #0x131E\n" + "ldx #0x1605\n" "jsl 0xe10000\n" : : "a"(a0) @@ -4689,26 +1804,14 @@ static inline void SetCurResourceApp(unsigned short a0) { ); } -// tool 0x111E set 0x1E (ResourceManager) -static inline void SetCurResourceFile(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x111E\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void SetResourceAttr(unsigned short a0, unsigned short a1, long a2); // 0x1C1E -// tool 0x251E set 0x1E (ResourceManager) -static inline unsigned short SetResourceFileDepth(unsigned short a0) { +extern void SystemClick(void * a0, void * a1, unsigned short a2); // 0x1705 +// tool 0x1805 set 0x05 (DeskManager) +static inline unsigned short SystemEdit(unsigned short a0) { unsigned short _r; __asm__ volatile ( "pha\n" // result space "pha\n" // arg0 - "ldx #0x251E\n" + "ldx #0x1805\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -4718,48 +1821,10 @@ static inline unsigned short SetResourceFileDepth(unsigned short a0) { return _r; } -extern void SetResourceID(long a0, unsigned short a1, long a2); // 0x1A1E -// tool 0x241E set 0x1E (ResourceManager) -static inline unsigned short SetResourceLoad(unsigned short a0) { - unsigned short _r; +// tool 0x1905 set 0x05 (DeskManager) +static inline void SystemTask(void) { __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x241E\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void * UniqueResourceID(unsigned short a0, unsigned short a1); // 0x191E -// tool 0x0D1E set 0x1E (ResourceManager) -static inline void UpdateResourceFile(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0D1E\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void WriteResource(unsigned short a0, long a1); // 0x161E -extern void * LoadResource2(unsigned short a0, void * a1, unsigned short a2, long a3); // 0x291E -extern unsigned long RMFindNamedResource(unsigned short a0, void * a1, unsigned short a2); // 0x2A1E -extern void RMGetResourceName(unsigned short a0, long a1, void * a2); // 0x2B1E -extern void * RMLoadNamedResource(unsigned short a0, void * a1); // 0x2C1E -extern void RMSetResourceName(unsigned short a0, long a1, void * a2); // 0x2D1E -extern unsigned short OpenResourceFileByID(unsigned short a0, unsigned short a1); // 0x2E1E -extern void CompactResourceFile(unsigned short a0, unsigned short a1); // 0x2F1E -// tool 0x010A set 0x0A (SANE) -static inline void SANEBootInit(void) { - __asm__ volatile ( - "ldx #0x010A\n" + "ldx #0x1905\n" "jsl 0xe10000\n" : : @@ -4767,35 +1832,13 @@ static inline void SANEBootInit(void) { ); } -// tool 0x020A set 0x0A (SANE) -static inline void SANEStartUp(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x020A\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x030A set 0x0A (SANE) -static inline void SANEShutDown(void) { - __asm__ volatile ( - "ldx #0x030A\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x040A set 0x0A (SANE) -static inline unsigned short SANEVersion(void) { +extern unsigned short SystemEvent(unsigned short a0, unsigned long a1, unsigned long a2, unsigned long a3, unsigned short a4); // 0x1A05 +// tool 0x1B05 set 0x05 (DeskManager) +static inline unsigned short GetNumNDAs(void) { unsigned short _r; __asm__ volatile ( "pha\n" // result space - "ldx #0x040A\n" + "ldx #0x1B05\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -4805,10 +1848,11 @@ static inline unsigned short SANEVersion(void) { return _r; } -// tool 0x050A set 0x0A (SANE) -static inline void SANEReset(void) { +extern void CloseNDAbyWinPtr(void * a0); // 0x1C05 +// tool 0x1D05 set 0x05 (DeskManager) +static inline void CloseAllNDAs(void) { __asm__ volatile ( - "ldx #0x050A\n" + "ldx #0x1D05\n" "jsl 0xe10000\n" : : @@ -4816,12 +1860,76 @@ static inline void SANEReset(void) { ); } -// tool 0x060A set 0x0A (SANE) -static inline unsigned short SANEStatus(void) { +// tool 0x1E05 set 0x05 (DeskManager) +static inline void FixAppleMenu(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1E05\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void AddToRunQ(void * a0); // 0x1F05 +extern void RemoveFromRunQ(void * a0); // 0x2005 +// tool 0x2105 set 0x05 (DeskManager) +static inline void RemoveCDA(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x2105\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x2205 set 0x05 (DeskManager) +static inline void RemoveNDA(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x2205\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void GetDeskAccInfo(unsigned short a0, unsigned long a1, unsigned short a2, void * a3); // 0x2305 +extern unsigned short CallDeskAcc(unsigned short a0, unsigned long a1, unsigned short a2, unsigned long a3); // 0x2405 +extern unsigned long GetDeskGlobal(unsigned short a0); // 0x2505 +// tool 0x0106 set 0x06 (EventManager) +static inline void EMBootInit(void) { + __asm__ volatile ( + "ldx #0x0106\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void EMStartUp(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, unsigned short a4, unsigned short a5, unsigned short a6); // 0x0206 +// tool 0x0306 set 0x06 (EventManager) +static inline void EMShutDown(void) { + __asm__ volatile ( + "ldx #0x0306\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0406 set 0x06 (EventManager) +static inline unsigned short EMVersion(void) { unsigned short _r; __asm__ volatile ( "pha\n" // result space - "ldx #0x060A\n" + "ldx #0x0406\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -4831,10 +1939,10 @@ static inline unsigned short SANEStatus(void) { return _r; } -// tool 0x090A set 0x0A (SANE) -static inline void SANEFP816(void) { +// tool 0x0506 set 0x06 (EventManager) +static inline void EMReset(void) { __asm__ volatile ( - "ldx #0x090A\n" + "ldx #0x0506\n" "jsl 0xe10000\n" : : @@ -4842,10 +1950,94 @@ static inline void SANEFP816(void) { ); } -// tool 0x0A0A set 0x0A (SANE) -static inline void SANEDecStr816(void) { +// tool 0x0606 set 0x06 (EventManager) +static inline unsigned short EMStatus(void) { + unsigned short _r; __asm__ volatile ( - "ldx #0x0A0A\n" + "pha\n" // result space + "ldx #0x0606\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0906 set 0x06 (EventManager) +static inline unsigned short DoWindows(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0906\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned short GetNextEvent(unsigned short a0, void * a1); // 0x0A06 +extern unsigned short EventAvail(unsigned short a0, void * a1); // 0x0B06 +extern void GetMouse(void * a0); // 0x0C06 +// tool 0x0D06 set 0x06 (EventManager) +static inline unsigned short Button(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x0D06\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0E06 set 0x06 (EventManager) +static inline unsigned short StillDown(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x0E06\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0F06 set 0x06 (EventManager) +static inline unsigned short WaitMouseUp(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x0F06\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned long TickCount(void); // 0x1006 +extern unsigned long GetDblTime(void); // 0x1106 +extern unsigned long GetCaretTime(void); // 0x1206 +// tool 0x1306 set 0x06 (EventManager) +static inline void SetSwitch(void) { + __asm__ volatile ( + "ldx #0x1306\n" "jsl 0xe10000\n" : : @@ -4853,14 +2045,59 @@ static inline void SANEDecStr816(void) { ); } -// tool 0x0B0A set 0x0A (SANE) -static inline void SANEElems816(void) { +extern unsigned short PostEvent(unsigned short a0, unsigned long a1); // 0x1406 +extern unsigned short FlushEvents(unsigned short a0, unsigned short a1); // 0x1506 +extern unsigned short GetOSEvent(unsigned short a0, void * a1); // 0x1606 +extern unsigned short OSEventAvail(unsigned short a0, void * a1); // 0x1706 +// tool 0x1806 set 0x06 (EventManager) +static inline void SetEventMask(unsigned short a0) { __asm__ volatile ( - "ldx #0x0B0A\n" + "pha\n" // arg0 + "ldx #0x1806\n" "jsl 0xe10000\n" : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void FakeMouse(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, unsigned short a4); // 0x1906 +// tool 0x1A06 set 0x06 (EventManager) +static inline void SetAutoKeyLimit(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1A06\n" + "jsl 0xe10000\n" : - : "a", "x", "y", "memory" + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1B06 set 0x06 (EventManager) +static inline unsigned short GetKeyTranslation(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1B06\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1C06 set 0x06 (EventManager) +static inline void SetKeyTranslation(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1C06\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" ); } @@ -4950,151 +2187,6 @@ static inline void SchFlush(void) { ); } -// tool 0x0116 set 0x16 (ScrapManager) -static inline void ScrapBootInit(void) { - __asm__ volatile ( - "ldx #0x0116\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0216 set 0x16 (ScrapManager) -static inline void ScrapStartUp(void) { - __asm__ volatile ( - "ldx #0x0216\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0316 set 0x16 (ScrapManager) -static inline void ScrapShutDown(void) { - __asm__ volatile ( - "ldx #0x0316\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0416 set 0x16 (ScrapManager) -static inline unsigned short ScrapVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0416\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0516 set 0x16 (ScrapManager) -static inline void ScrapReset(void) { - __asm__ volatile ( - "ldx #0x0516\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0616 set 0x16 (ScrapManager) -static inline unsigned short ScrapStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0616\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void GetScrap(void * a0, unsigned short a1); // 0x0D16 -// tool 0x1216 set 0x16 (ScrapManager) -static inline unsigned short GetScrapCount(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1216\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void * GetScrapHandle(unsigned short a0); // 0x0E16 -extern void * GetScrapPath(void); // 0x1016 -extern unsigned long GetScrapSize(unsigned short a0); // 0x0F16 -// tool 0x1316 set 0x16 (ScrapManager) -static inline unsigned short GetScrapState(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1316\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0A16 set 0x16 (ScrapManager) -static inline void LoadScrap(void) { - __asm__ volatile ( - "ldx #0x0A16\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void PutScrap(unsigned long a0, unsigned short a1, void * a2); // 0x0C16 -extern void SetScrapPath(void * a0); // 0x1116 -// tool 0x0916 set 0x16 (ScrapManager) -static inline void UnloadScrap(void) { - __asm__ volatile ( - "ldx #0x0916\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0B16 set 0x16 (ScrapManager) -static inline void ZeroScrap(void) { - __asm__ volatile ( - "ldx #0x0B16\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void GetIndScrap(unsigned short a0, void * a1); // 0x1416 -extern void * ShowClipboard(unsigned short a0, void * a1); // 0x1516 // tool 0x0108 set 0x08 (SoundManager) static inline void SoundBootInit(void) { __asm__ volatile ( @@ -5170,13 +2262,16 @@ static inline unsigned short SoundToolStatus(void) { return _r; } -// tool 0x1108 set 0x08 (SoundManager) -static inline unsigned short FFGeneratorStatus(unsigned short a0) { +extern void WriteRamBlock(void * a0, unsigned short a1, unsigned short a2); // 0x0908 +extern void ReadRamBlock(void * a0, unsigned short a1, unsigned short a2); // 0x0A08 +extern void * GetTableAddress(void); // 0x0B08 +// tool 0x0C08 set 0x08 (SoundManager) +static inline unsigned short GetSoundVolume(unsigned short a0) { unsigned short _r; __asm__ volatile ( "pha\n" // result space "pha\n" // arg0 - "ldx #0x1108\n" + "ldx #0x0C08\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -5186,20 +2281,18 @@ static inline unsigned short FFGeneratorStatus(unsigned short a0) { return _r; } -// tool 0x1408 set 0x08 (SoundManager) -static inline unsigned short FFSoundDoneStatus(unsigned short a0) { - unsigned short _r; +extern void SetSoundVolume(unsigned short a0, unsigned short a1); // 0x0D08 +extern void FFStartSound(unsigned short a0, void * a1); // 0x0E08 +// tool 0x0F08 set 0x08 (SoundManager) +static inline void FFStopSound(unsigned short a0) { __asm__ volatile ( - "pha\n" // result space "pha\n" // arg0 - "ldx #0x1408\n" + "ldx #0x0F08\n" "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) + : : "a"(a0) : "x", "y", "memory" ); - return _r; } // tool 0x1008 set 0x08 (SoundManager) @@ -5217,26 +2310,13 @@ static inline unsigned short FFSoundStatus(void) { return _r; } -extern void FFStartSound(unsigned short a0, void * a1); // 0x0E08 -// tool 0x0F08 set 0x08 (SoundManager) -static inline void FFStopSound(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0F08\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x0C08 set 0x08 (SoundManager) -static inline unsigned short GetSoundVolume(unsigned short a0) { +// tool 0x1108 set 0x08 (SoundManager) +static inline unsigned short FFGeneratorStatus(unsigned short a0) { unsigned short _r; __asm__ volatile ( "pha\n" // result space "pha\n" // arg0 - "ldx #0x0C08\n" + "ldx #0x1108\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -5246,12 +2326,24 @@ static inline unsigned short GetSoundVolume(unsigned short a0) { return _r; } -extern void * GetTableAddress(void); // 0x0B08 -extern void ReadRamBlock(void * a0, unsigned short a1, unsigned short a2); // 0x0A08 extern void SetSoundMIRQV(void * a0); // 0x1208 -extern void SetSoundVolume(unsigned short a0, unsigned short a1); // 0x0D08 extern void * SetUserSoundIRQV(void * a0); // 0x1308 -extern void WriteRamBlock(void * a0, unsigned short a1, unsigned short a2); // 0x0908 +// tool 0x1408 set 0x08 (SoundManager) +static inline unsigned short FFSoundDoneStatus(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x1408\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + extern void FFSetUpSound(unsigned short a0, void * a1); // 0x1508 // tool 0x1608 set 0x08 (SoundManager) static inline void FFStartPlaying(unsigned short a0) { @@ -5265,12 +2357,12 @@ static inline void FFStartPlaying(unsigned short a0) { ); } -extern void ReadDOCReg(void * a0); // 0x1808 -extern void SetDOCReg(void * a0); // 0x1708 -// tool 0x0117 set 0x17 (StandardFile) -static inline void SFBootInit(void) { +extern void SetDocReg(void * a0); // 0x1708 +extern void ReadDocReg(void * a0); // 0x1808 +// tool 0x0109 set 0x09 (AppleDeskBus) +static inline void ADBBootInit(void) { __asm__ volatile ( - "ldx #0x0117\n" + "ldx #0x0109\n" "jsl 0xe10000\n" : : @@ -5278,11 +2370,10 @@ static inline void SFBootInit(void) { ); } -extern void SFStartUp(unsigned short a0, unsigned short a1); // 0x0217 -// tool 0x0317 set 0x17 (StandardFile) -static inline void SFShutDown(void) { +// tool 0x0209 set 0x09 (AppleDeskBus) +static inline void ADBStartUp(void) { __asm__ volatile ( - "ldx #0x0317\n" + "ldx #0x0209\n" "jsl 0xe10000\n" : : @@ -5290,12 +2381,23 @@ static inline void SFShutDown(void) { ); } -// tool 0x0417 set 0x17 (StandardFile) -static inline unsigned short SFVersion(void) { +// tool 0x0309 set 0x09 (AppleDeskBus) +static inline void ADBShutDown(void) { + __asm__ volatile ( + "ldx #0x0309\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0409 set 0x09 (AppleDeskBus) +static inline unsigned short ADBVersion(void) { unsigned short _r; __asm__ volatile ( "pha\n" // result space - "ldx #0x0417\n" + "ldx #0x0409\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -5305,10 +2407,10 @@ static inline unsigned short SFVersion(void) { return _r; } -// tool 0x0517 set 0x17 (StandardFile) -static inline void SFReset(void) { +// tool 0x0509 set 0x09 (AppleDeskBus) +static inline void ADBReset(void) { __asm__ volatile ( - "ldx #0x0517\n" + "ldx #0x0509\n" "jsl 0xe10000\n" : : @@ -5316,12 +2418,12 @@ static inline void SFReset(void) { ); } -// tool 0x0617 set 0x17 (StandardFile) -static inline unsigned short SFStatus(void) { +// tool 0x0609 set 0x09 (AppleDeskBus) +static inline unsigned short ADBStatus(void) { unsigned short _r; __asm__ volatile ( "pha\n" // result space - "ldx #0x0617\n" + "ldx #0x0609\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -5331,11 +2433,56 @@ static inline unsigned short SFStatus(void) { return _r; } -// tool 0x0D17 set 0x17 (StandardFile) -static inline void SFAllCaps(unsigned short a0) { +extern void SendInfo(unsigned short a0, void * a1, unsigned short a2); // 0x0909 +extern void ReadKeyMicroData(unsigned short a0, void * a1, unsigned short a2); // 0x0A09 +extern void ReadKeyMicroMemory(void * a0, void * a1, unsigned short a2); // 0x0B09 +extern void AsyncADBReceive(void * a0, unsigned short a1); // 0x0D09 +extern void SyncADBReceive(unsigned short a0, void * a1, unsigned short a2); // 0x0E09 +// tool 0x0F09 set 0x09 (AppleDeskBus) +static inline void AbsOn(void) { + __asm__ volatile ( + "ldx #0x0F09\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x1009 set 0x09 (AppleDeskBus) +static inline void AbsOff(void) { + __asm__ volatile ( + "ldx #0x1009\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x1109 set 0x09 (AppleDeskBus) +static inline unsigned short RdAbs(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1109\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void SetAbsScale(void * a0); // 0x1209 +extern void GetAbsScale(void * a0); // 0x1309 +extern void SRQPoll(void * a0, unsigned short a1); // 0x1409 +// tool 0x1509 set 0x09 (AppleDeskBus) +static inline void SRQRemove(unsigned short a0) { __asm__ volatile ( "pha\n" // arg0 - "ldx #0x0D17\n" + "ldx #0x1509\n" "jsl 0xe10000\n" : : "a"(a0) @@ -5343,37 +2490,44 @@ static inline void SFAllCaps(unsigned short a0) { ); } -extern void SFGetFile(short a0, short a1, void * a2, void * a3, void * a4, void * a5); // 0x0917 -extern void SFPGetFile(short a0, short a1, void * a2, void * a3, void * a4, void * a5, void * a6, void * a7); // 0x0B17 -extern void SFPPutFile(short a0, short a1, void * a2, void * a3, unsigned short a4, void * a5, void * a6, void * a7); // 0x0C17 -extern void SFPutFile(short a0, short a1, void * a2, void * a3, unsigned short a4, void * a5); // 0x0A17 -extern void SFGetFile2(short a0, short a1, unsigned short a2, void * a3, void * a4, void * a5, void * a6); // 0x0E17 -extern void SFMultiGet2(short a0, short a1, unsigned short a2, void * a3, void * a4, void * a5, void * a6); // 0x1417 -extern void SFPGetFile2(short a0, short a1, void * a2, unsigned short a3, void * a4, void * a5, void * a6, void * a7, void * a8, void * a9); // 0x1017 -extern void SFPMultiGet2(short a0, short a1, void * a2, unsigned short a3, void * a4, void * a5, void * a6, void * a7, void * a8, void * a9); // 0x1517 -extern void SFPPutFile2(short a0, short a1, void * a2, unsigned short a3, void * a4, unsigned short a5, void * a6, void * a7, void * a8, void * a9); // 0x1117 -extern void SFPutFile2(short a0, short a1, unsigned short a2, void * a3, unsigned short a4, void * a5, void * a6); // 0x0F17 -extern void SFReScan(void * a0, void * a1); // 0x1317 -// tool 0x1217 set 0x17 (StandardFile) -static inline unsigned short SFShowInvisible(unsigned short a0) { - unsigned short _r; +// tool 0x1609 set 0x09 (AppleDeskBus) +static inline void ClearSRQTable(void) { __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x1217\n" + "ldx #0x1609\n" "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x010A set 0x0A (SANE) +static inline void SANEBootInit(void) { + __asm__ volatile ( + "ldx #0x010A\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x020A set 0x0A (SANE) +static inline void SANEStartUp(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x020A\n" + "jsl 0xe10000\n" + : : "a"(a0) : "x", "y", "memory" ); - return _r; } -// tool 0x0122 set 0x22 (TextEdit) -static inline void TEBootInit(void) { +// tool 0x030A set 0x0A (SANE) +static inline void SANEShutDown(void) { __asm__ volatile ( - "ldx #0x0122\n" + "ldx #0x030A\n" "jsl 0xe10000\n" : : @@ -5381,24 +2535,12 @@ static inline void TEBootInit(void) { ); } -extern void TEStartUp(unsigned short a0, unsigned short a1); // 0x0222 -// tool 0x0322 set 0x22 (TextEdit) -static inline void TEShutDown(void) { - __asm__ volatile ( - "ldx #0x0322\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0422 set 0x22 (TextEdit) -static inline unsigned short TEVersion(void) { +// tool 0x040A set 0x0A (SANE) +static inline unsigned short SANEVersion(void) { unsigned short _r; __asm__ volatile ( "pha\n" // result space - "ldx #0x0422\n" + "ldx #0x040A\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -5408,10 +2550,10 @@ static inline unsigned short TEVersion(void) { return _r; } -// tool 0x0522 set 0x22 (TextEdit) -static inline void TEReset(void) { +// tool 0x050A set 0x0A (SANE) +static inline void SANEReset(void) { __asm__ volatile ( - "ldx #0x0522\n" + "ldx #0x050A\n" "jsl 0xe10000\n" : : @@ -5419,12 +2561,12 @@ static inline void TEReset(void) { ); } -// tool 0x0622 set 0x22 (TextEdit) -static inline unsigned short TEStatus(void) { +// tool 0x060A set 0x0A (SANE) +static inline unsigned short SANEStatus(void) { unsigned short _r; __asm__ volatile ( "pha\n" // result space - "ldx #0x0622\n" + "ldx #0x060A\n" "jsl 0xe10000\n" "pla\n" : "=a"(_r) @@ -5434,41 +2576,10 @@ static inline unsigned short TEStatus(void) { return _r; } -extern void TEActivate(void * a0); // 0x0F22 -extern void TEClear(void * a0); // 0x1922 -extern void TEClick(void * a0, void * a1); // 0x1122 -extern void TECompactRecord(void * a0); // 0x2822 -extern void TECopy(void * a0); // 0x1722 -extern void TECut(void * a0); // 0x1622 -extern void TEDeactivate(void * a0); // 0x1022 -extern void * TEGetDefProc(void); // 0x2222 -extern void * TEGetInternalProc(void); // 0x2622 -extern unsigned short TEGetLastError(unsigned short a0, void * a1); // 0x2722 -extern void TEGetRuler(unsigned short a0, void * a1, void * a2); // 0x2322 -extern void TEGetSelection(void * a0, void * a1, void * a2); // 0x1C22 -extern unsigned short TEGetSelectionStyle(void * a0, void * a1, void * a2); // 0x1E22 -extern unsigned long TEGetText(unsigned short a0, void * a1, long a2, unsigned short a3, void * a4, void * a5); // 0x0C22 -extern void TEGetTextInfo(void * a0, unsigned short a1, void * a2); // 0x0D22 -extern void TEIdle(void * a0); // 0x0E22 -extern void TEInsert(unsigned short a0, void * a1, long a2, unsigned short a3, void * a4, void * a5); // 0x1A22 -extern void TEKey(void * a0, void * a1); // 0x1422 -extern void TEKill(void * a0); // 0x0A22 -extern void * TENew(void * a0); // 0x0922 -extern void TEOffsetToPoint(long a0, long a1, long a2, void * a3); // 0x2022 -extern unsigned long TEPaintText(void * a0, long a1, void * a2, unsigned short a3, void * a4); // 0x1322 -extern void TEPaste(void * a0); // 0x1822 -extern unsigned long TEPointToOffset(long a0, long a1, void * a2); // 0x2122 -extern void TEReplace(unsigned short a0, void * a1, long a2, unsigned short a3, void * a4, void * a5); // 0x1B22 -extern void TEScroll(unsigned short a0, long a1, long a2, void * a3); // 0x2522 -extern void TESetRuler(unsigned short a0, void * a1, void * a2); // 0x2422 -extern void TESetSelection(void * a0, void * a1, void * a2); // 0x1D22 -extern void TESetText(unsigned short a0, void * a1, long a2, unsigned short a3, void * a4, void * a5); // 0x0B22 -extern void TEStyleChange(unsigned short a0, void * a1, void * a2); // 0x1F22 -extern void TEUpdate(void * a0); // 0x1222 -// tool 0x1522 set 0x22 (TextEdit) -static inline void TEInsertPageBreak(void) { +// tool 0x010B set 0x0B (IntegerMath) +static inline void IMBootInit(void) { __asm__ volatile ( - "ldx #0x1522\n" + "ldx #0x010B\n" "jsl 0xe10000\n" : : @@ -5476,6 +2587,103 @@ static inline void TEInsertPageBreak(void) { ); } +// tool 0x020B set 0x0B (IntegerMath) +static inline void IMStartUp(void) { + __asm__ volatile ( + "ldx #0x020B\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x030B set 0x0B (IntegerMath) +static inline void IMShutDown(void) { + __asm__ volatile ( + "ldx #0x030B\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x040B set 0x0B (IntegerMath) +static inline unsigned short IMVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x040B\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x050B set 0x0B (IntegerMath) +static inline void IMReset(void) { + __asm__ volatile ( + "ldx #0x050B\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x060B set 0x0B (IntegerMath) +static inline unsigned short IMStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x060B\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned long Multiply(unsigned short a0, unsigned short a1); // 0x090B +extern unsigned long SDivide(unsigned short a0, unsigned short a1); // 0x0A0B +extern unsigned long UDivide(unsigned short a0, unsigned short a1); // 0x0B0B +extern long long LongMul(unsigned long a0, unsigned long a1); // 0x0C0B +extern long long LongDivide(unsigned long a0, unsigned long a1); // 0x0D0B +extern unsigned long FixRatio(unsigned short a0, unsigned short a1); // 0x0E0B +extern unsigned long FixMul(unsigned long a0, unsigned long a1); // 0x0F0B +extern unsigned long FracMul(unsigned long a0, unsigned long a1); // 0x100B +extern unsigned long FixDiv(unsigned long a0, unsigned long a1); // 0x110B +extern unsigned long FracDiv(unsigned long a0, unsigned long a1); // 0x120B +extern unsigned short FixRound(unsigned long a0); // 0x130B +extern unsigned long FracSqrt(unsigned long a0); // 0x140B +extern unsigned long FracCos(unsigned long a0); // 0x150B +extern unsigned long FracSin(unsigned long a0); // 0x160B +extern unsigned long FixATan2(unsigned long a0, unsigned long a1); // 0x170B +extern unsigned short HiWord(unsigned long a0); // 0x180B +extern unsigned short LoWord(unsigned long a0); // 0x190B +extern unsigned long Long2Fix(unsigned long a0); // 0x1A0B +extern unsigned long Fix2Long(unsigned long a0); // 0x1B0B +extern unsigned long Fix2Frac(unsigned long a0); // 0x1C0B +extern unsigned long Frac2Fix(unsigned long a0); // 0x1D0B +extern void Fix2X(unsigned long a0, void * a1); // 0x1E0B +extern void Frac2X(unsigned long a0, void * a1); // 0x1F0B +extern unsigned long X2Fix(void * a0); // 0x200B +extern unsigned long X2Frac(void * a0); // 0x210B +extern void Int2Hex(unsigned short a0, void * a1, unsigned short a2); // 0x220B +extern void Long2Hex(unsigned long a0, void * a1, unsigned short a2); // 0x230B +extern unsigned short Hex2Int(void * a0, unsigned short a1); // 0x240B +extern unsigned long Hex2Long(void * a0, unsigned short a1); // 0x250B +extern void Int2Dec(unsigned short a0, void * a1, unsigned short a2, unsigned short a3); // 0x260B +extern void Long2Dec(unsigned long a0, void * a1, unsigned short a2, unsigned short a3); // 0x270B +extern unsigned short Dec2Int(void * a0, unsigned short a1, unsigned short a2); // 0x280B +extern unsigned long Dec2Long(void * a0, unsigned short a1, unsigned short a2); // 0x290B +extern unsigned long HexIt(unsigned short a0); // 0x2A0B // tool 0x010C set 0x0C (TextTools) static inline void TextBootInit(void) { __asm__ volatile ( @@ -5550,26 +2758,18 @@ static inline unsigned short TextStatus(void) { return _r; } -extern void CtlTextDev(unsigned short a0, unsigned short a1); // 0x160C -extern void ErrWriteBlock(void * a0, unsigned short a1, unsigned short a2); // 0x1F0C -// tool 0x190C set 0x0C (TextTools) -static inline void ErrWriteChar(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x190C\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void ErrWriteCString(void * a0); // 0x210C -extern void ErrWriteLine(void * a0); // 0x1B0C -extern void ErrWriteString(void * a0); // 0x1D0C -extern long GetErrGlobals(void); // 0x0E0C -extern long GetInGlobals(void); // 0x0C0C -extern long GetOutGlobals(void); // 0x0D0C +extern void SetInGlobals(unsigned short a0, unsigned short a1); // 0x090C +extern void SetOutGlobals(unsigned short a0, unsigned short a1); // 0x0A0C +extern void SetErrGlobals(unsigned short a0, unsigned short a1); // 0x0B0C +extern unsigned long GetInGlobals(void); // 0x0C0C +extern unsigned long GetOutGlobals(void); // 0x0D0C +extern unsigned long GetErrGlobals(void); // 0x0E0C +extern void SetInputDevice(unsigned short a0, void * a1); // 0x0F0C +extern void SetOutputDevice(unsigned short a0, void * a1); // 0x100C +extern void SetErrorDevice(unsigned short a0, void * a1); // 0x110C +extern void * GetInputDevice(void); // 0x120C +extern void * GetOutputDevice(void); // 0x130C +extern void * GetErrorDevice(void); // 0x140C // tool 0x150C set 0x0C (TextTools) static inline void InitTextDev(unsigned short a0) { __asm__ volatile ( @@ -5582,6 +2782,40 @@ static inline void InitTextDev(unsigned short a0) { ); } +extern void CtlTextDev(unsigned short a0, unsigned short a1); // 0x160C +extern void StatusTextDev(unsigned short a0, unsigned short a1); // 0x170C +// tool 0x180C set 0x0C (TextTools) +static inline void WriteChar(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x180C\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x190C set 0x0C (TextTools) +static inline void ErrWriteChar(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x190C\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void WriteLine(void * a0); // 0x1A0C +extern void ErrWriteLine(void * a0); // 0x1B0C +extern void WriteString(void * a0); // 0x1C0C +extern void ErrWriteString(void * a0); // 0x1D0C +extern void TextWriteBlock(void * a0, unsigned short a1, unsigned short a2); // 0x1E0C +extern void ErrWriteBlock(void * a0, unsigned short a1, unsigned short a2); // 0x1F0C +extern void WriteCString(void * a0); // 0x200C +extern void ErrWriteCString(void * a0); // 0x210C // tool 0x220C set 0x0C (TextTools) static inline unsigned short ReadChar(unsigned short a0) { unsigned short _r; @@ -5598,344 +2832,8 @@ static inline unsigned short ReadChar(unsigned short a0) { return _r; } -extern unsigned short ReadLine(void * a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x240C -extern void SetErrGlobals(unsigned short a0, unsigned short a1); // 0x0B0C -extern void SetErrorDevice(unsigned short a0, unsigned long a1); // 0x110C -extern void SetInGlobals(unsigned short a0, unsigned short a1); // 0x090C -extern void SetInputDevice(unsigned short a0, unsigned long a1); // 0x0F0C -extern void SetOutGlobals(unsigned short a0, unsigned short a1); // 0x0A0C -extern void SetOutputDevice(unsigned short a0, unsigned long a1); // 0x100C -extern void StatusTextDev(unsigned short a0, unsigned short a1); // 0x170C extern void TextReadBlock(void * a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x230C -extern void TextWriteBlock(void * a0, unsigned short a1, unsigned short a2); // 0x1E0C -// tool 0x180C set 0x0C (TextTools) -static inline void WriteChar(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x180C\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -extern void WriteCString(void * a0); // 0x200C -extern void WriteLine(void * a0); // 0x1A0C -extern void WriteString(void * a0); // 0x1C0C -// tool 0x0121 set 0x21 (Teletext) -static inline void VDBootInit(void) { - __asm__ volatile ( - "ldx #0x0121\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0221 set 0x21 (Teletext) -static inline void VDStartUp(void) { - __asm__ volatile ( - "ldx #0x0221\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0321 set 0x21 (Teletext) -static inline void VDShutDown(void) { - __asm__ volatile ( - "ldx #0x0321\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0421 set 0x21 (Teletext) -static inline unsigned short VDVersion(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0421\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0521 set 0x21 (Teletext) -static inline void VDReset(void) { - __asm__ volatile ( - "ldx #0x0521\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -// tool 0x0621 set 0x21 (Teletext) -static inline unsigned short VDStatus(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0621\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1B21 set 0x21 (Teletext) -static inline unsigned short VDGetFeatures(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x1B21\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void VDGGControl(unsigned short a0, unsigned short a1); // 0x1D21 -// tool 0x1E21 set 0x21 (Teletext) -static inline unsigned short VDGGStatus(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x1E21\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void VDInControl(unsigned short a0, unsigned short a1); // 0x1C21 -extern void VDInConvAdj(unsigned short a0, unsigned short a1); // 0x0C21 -// tool 0x0B21 set 0x21 (Teletext) -static inline unsigned short VDInGetStd(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x0B21\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x0A21 set 0x21 (Teletext) -static inline void VDInSetStd(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x0A21\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x0921 set 0x21 (Teletext) -static inline unsigned short VDInStatus(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x0921\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void VDKeyControl(unsigned short a0, unsigned short a1); // 0x0D21 -// tool 0x1221 set 0x21 (Teletext) -static inline unsigned short VDKeyGetKBCol(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1221\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1421 set 0x21 (Teletext) -static inline unsigned short VDKeyGetKDiss(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1421\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1121 set 0x21 (Teletext) -static inline unsigned short VDKeyGetKGCol(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1121\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1021 set 0x21 (Teletext) -static inline unsigned short VDKeyGetKRCol(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1021\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1621 set 0x21 (Teletext) -static inline unsigned short VDKeyGetNKDiss(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1621\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -extern void VDKeySetKCol(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0F21 -// tool 0x1321 set 0x21 (Teletext) -static inline void VDKeySetKDiss(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1321\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x1521 set 0x21 (Teletext) -static inline void VDKeySetNKDiss(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1521\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x0E21 set 0x21 (Teletext) -static inline unsigned short VDKeyStatus(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x0E21\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - -extern void VDOutControl(unsigned short a0, unsigned short a1); // 0x1921 -// tool 0x1821 set 0x21 (Teletext) -static inline unsigned short VDOutGetStd(void) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "ldx #0x1821\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : - : "x", "y", "memory" - ); - return _r; -} - -// tool 0x1721 set 0x21 (Teletext) -static inline void VDOutSetStd(unsigned short a0) { - __asm__ volatile ( - "pha\n" // arg0 - "ldx #0x1721\n" - "jsl 0xe10000\n" - : - : "a"(a0) - : "x", "y", "memory" - ); -} - -// tool 0x1A21 set 0x21 (Teletext) -static inline unsigned short VDOutStatus(unsigned short a0) { - unsigned short _r; - __asm__ volatile ( - "pha\n" // result space - "pha\n" // arg0 - "ldx #0x1A21\n" - "jsl 0xe10000\n" - "pla\n" - : "=a"(_r) - : "a"(a0) - : "x", "y", "memory" - ); - return _r; -} - +extern unsigned short ReadLine(void * a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x240C // tool 0x010E set 0x0E (WindowManager) static inline void WindBootInit(void) { __asm__ volatile ( @@ -6011,89 +2909,34 @@ static inline unsigned short WindStatus(void) { return _r; } -extern void BeginUpdate(void * a0); // 0x1E0E -extern void BringToFront(void * a0); // 0x240E +extern void * NewWindow(void * a0); // 0x090E extern unsigned short CheckUpdate(void * a0); // 0x0A0E extern void CloseWindow(void * a0); // 0x0B0E -extern void * Desktop(unsigned short a0, unsigned long a1); // 0x0C0E -extern void DragWindow(unsigned short a0, short a1, short a2, unsigned short a3, void * a4, void * a5); // 0x1A0E -// tool 0x510E set 0x0E (WindowManager) -static inline void EndInfoDrawing(void) { - __asm__ volatile ( - "ldx #0x510E\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - -extern void EndUpdate(void * a0); // 0x1F0E -extern unsigned short FindWindow(void * a0, short a1, short a2); // 0x170E -extern void * FrontWindow(void); // 0x150E -extern void * GetContentDraw(void * a0); // 0x480E -extern long GetContentOrigin(void * a0); // 0x3E0E -extern void * GetContentRgn(void * a0); // 0x2F0E -extern unsigned long GetDataSize(void * a0); // 0x400E -extern void * GetDefProc(void * a0); // 0x310E -extern void * GetFirstWindow(void); // 0x520E -extern void GetFrameColor(void * a0, void * a1); // 0x100E -extern void * GetInfoDraw(void * a0); // 0x4A0E -extern unsigned long GetInfoRefCon(void * a0); // 0x350E -extern unsigned long GetMaxGrow(void * a0); // 0x420E -extern void * GetNextWindow(void * a0); // 0x2A0E -extern unsigned long GetPage(void * a0); // 0x460E -extern void GetRectInfo(void * a0, void * a1); // 0x4F0E -extern unsigned long GetScroll(void * a0); // 0x440E -extern void * GetStructRgn(void * a0); // 0x2E0E -extern unsigned short GetSysWFlag(void * a0); // 0x4C0E -extern void * GetUpdateRgn(void * a0); // 0x300E -extern void * GetWControls(void * a0); // 0x330E -extern unsigned short GetWFrame(void * a0); // 0x2C0E -extern unsigned short GetWKind(void * a0); // 0x2B0E -extern void * GetWMgrPort(void); // 0x200E -extern unsigned long GetWRefCon(void * a0); // 0x290E -extern void * GetWTitle(void * a0); // 0x0E0E -extern unsigned long GrowWindow(unsigned short a0, unsigned short a1, short a2, short a3, void * a4); // 0x1B0E -extern void HideWindow(void * a0); // 0x120E -extern void HiliteWindow(unsigned short a0, void * a1); // 0x220E -extern void InvalRect(void * a0); // 0x3A0E -extern void InvalRgn(void * a0); // 0x3B0E -extern void MoveWindow(short a0, short a1, void * a2); // 0x190E -extern void * NewWindow(void * a0); // 0x090E -extern void * PinRect(short a0, short a1, void * a2); // 0x210E -extern void RefreshDesktop(void * a0); // 0x390E -extern void SelectWindow(void * a0); // 0x110E -extern void SendBehind(void * a0, void * a1); // 0x140E -extern void SetContentDraw(void * a0, void * a1); // 0x490E -extern void SetContentOrigin(unsigned short a0, unsigned short a1, void * a2); // 0x3F0E -extern void SetContentOrigin2(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x570E -extern void SetDataSize(unsigned short a0, unsigned short a1, void * a2); // 0x410E -extern void SetDefProc(void * a0, void * a1); // 0x320E -extern void SetFrameColor(void * a0, void * a1); // 0x0F0E -extern void SetInfoDraw(void * a0, void * a1); // 0x160E -extern void SetInfoRefCon(unsigned long a0, void * a1); // 0x360E -extern void SetMaxGrow(unsigned short a0, unsigned short a1, void * a2); // 0x430E -extern void SetOriginMask(unsigned short a0, void * a1); // 0x340E -extern void SetPage(unsigned short a0, unsigned short a1, void * a2); // 0x470E -extern void SetScroll(unsigned short a0, unsigned short a1, void * a2); // 0x450E -extern void SetSysWindow(void * a0); // 0x4B0E -extern void SetWFrame(unsigned short a0, void * a1); // 0x2D0E -extern void * SetWindowIcons(void * a0); // 0x4E0E -extern void SetWRefCon(void * a0, void * a1); // 0x280E +extern unsigned long Desktop(unsigned short a0, unsigned long a1); // 0x0C0E extern void SetWTitle(void * a0, void * a1); // 0x0D0E -extern void SetZoomRect(void * a0, void * a1); // 0x380E -extern void ShowHide(unsigned short a0, void * a1); // 0x230E +extern void * GetWTitle(void * a0); // 0x0E0E +extern void SetFrameColor(void * a0, void * a1); // 0x0F0E +extern void GetFrameColor(void * a0, void * a1); // 0x100E +extern void SelectWindow(void * a0); // 0x110E +extern void HideWindow(void * a0); // 0x120E extern void ShowWindow(void * a0); // 0x130E +extern void SendBehind(void * a0, void * a1); // 0x140E +extern void * FrontWindow(void); // 0x150E +extern void SetInfoDraw(void * a0, void * a1); // 0x160E +extern unsigned short FindWindow(void * a0, unsigned short a1, unsigned short a2); // 0x170E +extern unsigned short TrackGoAway(unsigned short a0, unsigned short a1, void * a2); // 0x180E +extern void MoveWindow(unsigned short a0, unsigned short a1, void * a2); // 0x190E +extern void DragWindow(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, void * a4, void * a5); // 0x1A0E +extern unsigned long GrowWindow(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, void * a4); // 0x1B0E extern void SizeWindow(unsigned short a0, unsigned short a1, void * a2); // 0x1C0E -extern void StartDrawing(void * a0); // 0x4D0E -extern void StartInfoDrawing(void * a0, void * a1); // 0x500E extern unsigned short TaskMaster(unsigned short a0, void * a1); // 0x1D0E -extern unsigned short TrackGoAway(short a0, short a1, void * a2); // 0x180E -extern unsigned short TrackZoom(short a0, short a1, void * a2); // 0x260E -extern void ValidRect(void * a0); // 0x3C0E -extern void ValidRgn(void * a0); // 0x3D0E -extern unsigned long WindDragRect(void * a0, void * a1, short a2, short a3, void * a4, void * a5, void * a6, unsigned short a7); // 0x530E +extern void BeginUpdate(void * a0); // 0x1E0E +extern void EndUpdate(void * a0); // 0x1F0E +extern void * GetWMgrPort(void); // 0x200E +extern unsigned long PinRect(unsigned short a0, unsigned short a1, void * a2); // 0x210E +extern void HiliteWindow(unsigned short a0, void * a1); // 0x220E +extern void ShowHide(unsigned short a0, void * a1); // 0x230E +extern void BringToFront(void * a0); // 0x240E // tool 0x250E set 0x0E (WindowManager) static inline void WindNewRes(void) { __asm__ volatile ( @@ -6105,6 +2948,64 @@ static inline void WindNewRes(void) { ); } +extern unsigned short TrackZoom(unsigned short a0, unsigned short a1, void * a2); // 0x260E +extern void ZoomWindow(void * a0); // 0x270E +extern void SetWRefCon(unsigned long a0, void * a1); // 0x280E +extern unsigned long GetWRefCon(void * a0); // 0x290E +extern void * GetNextWindow(void * a0); // 0x2A0E +extern unsigned short GetWKind(void * a0); // 0x2B0E +extern unsigned short GetWFrame(void * a0); // 0x2C0E +extern void SetWFrame(unsigned short a0, void * a1); // 0x2D0E +extern void * GetStructRgn(void * a0); // 0x2E0E +extern void * GetContentRgn(void * a0); // 0x2F0E +extern void * GetUpdateRgn(void * a0); // 0x300E +extern void * GetDefProc(void * a0); // 0x310E +extern void SetDefProc(void * a0, void * a1); // 0x320E +extern void * GetWControls(void * a0); // 0x330E +extern void SetOriginMask(unsigned short a0, void * a1); // 0x340E +extern unsigned long GetInfoRefCon(void * a0); // 0x350E +extern void SetInfoRefCon(unsigned long a0, void * a1); // 0x360E +extern void * GetZoomRect(void * a0); // 0x370E +extern void SetZoomRect(void * a0, void * a1); // 0x380E +extern void RefreshDesktop(void * a0); // 0x390E +extern void InvalRect(void * a0); // 0x3A0E +extern void InvalRgn(void * a0); // 0x3B0E +extern void ValidRect(void * a0); // 0x3C0E +extern void ValidRgn(void * a0); // 0x3D0E +extern unsigned long GetContentOrigin(void * a0); // 0x3E0E +extern void SetContentOrigin(unsigned short a0, unsigned short a1, void * a2); // 0x3F0E +extern unsigned long GetDataSize(void * a0); // 0x400E +extern void SetDataSize(unsigned short a0, unsigned short a1, void * a2); // 0x410E +extern unsigned long GetMaxGrow(void * a0); // 0x420E +extern void SetMaxGrow(unsigned short a0, unsigned short a1, void * a2); // 0x430E +extern unsigned long GetScroll(void * a0); // 0x440E +extern void SetScroll(unsigned short a0, unsigned short a1, void * a2); // 0x450E +extern unsigned long GetPage(void * a0); // 0x460E +extern void SetPage(unsigned short a0, unsigned short a1, void * a2); // 0x470E +extern void * GetContentDraw(void * a0); // 0x480E +extern void SetContentDraw(void * a0, void * a1); // 0x490E +extern void * GetInfoDraw(void * a0); // 0x4A0E +extern void SetSysWindow(void * a0); // 0x4B0E +extern unsigned short GetSysWFlag(void * a0); // 0x4C0E +extern void StartDrawing(void * a0); // 0x4D0E +extern void * SetWindowIcons(void * a0); // 0x4E0E +extern void GetRectInfo(void * a0, void * a1); // 0x4F0E +extern void StartInfoDrawing(void * a0, void * a1); // 0x500E +// tool 0x510E set 0x0E (WindowManager) +static inline void EndInfoDrawing(void) { + __asm__ volatile ( + "ldx #0x510E\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void * GetFirstWindow(void); // 0x520E +extern unsigned long WindDragRect(void * a0, void * a1, unsigned short a2, unsigned short a3, void * a4, void * a5, void * a6, unsigned short a7); // 0x530E +extern void * Private01(void); // 0x540E +extern void DrawInfoBar(void * a0); // 0x550E // tool 0x560E set 0x0E (WindowManager) static inline unsigned short WindowGlobal(unsigned short a0) { unsigned short _r; @@ -6121,10 +3022,10 @@ static inline unsigned short WindowGlobal(unsigned short a0) { return _r; } -extern void ZoomWindow(void * a0); // 0x270E -extern unsigned short AlertWindow(unsigned short a0, void * a1, void * a2); // 0x590E -extern void * CompileText(unsigned short a0, void * a1, void * a2, unsigned short a3); // 0x600E -extern void DrawInfoBar(void * a0); // 0x550E +extern void SetContentOrigin2(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x570E +extern void * GetWindowMgrGlobals(void); // 0x580E +extern unsigned short AlertWindow(unsigned short a0, void * a1, unsigned long a2); // 0x590E +extern void StartFrameDrawing(void * a0); // 0x5A0E // tool 0x5B0E set 0x0E (WindowManager) static inline void EndFrameDrawing(void) { __asm__ volatile ( @@ -6136,16 +3037,13 @@ static inline void EndFrameDrawing(void) { ); } -extern unsigned short ErrorWindow(unsigned short a0, void * a1, unsigned short a2); // 0x620E -extern void * GetWindowMgrGlobals(void); // 0x580E -extern void * NewWindow2(void * a0, long a1, void * a2, void * a3, unsigned short a4, void * a5, unsigned short a6); // 0x610E extern void ResizeWindow(unsigned short a0, void * a1, void * a2); // 0x5C0E -extern void StartFrameDrawing(void * a0); // 0x5A0E extern unsigned short TaskMasterDA(unsigned short a0, void * a1); // 0x5F0E -extern unsigned long DoModalWindow(void * a0, void * a1, void * a2, void * a3, unsigned short a4); // 0x640E -extern unsigned short FindCursorCtl(void * a0, short a1, short a2, void * a3); // 0x690E +extern void * CompileText(unsigned short a0, void * a1, void * a2, unsigned short a3); // 0x600E +extern void * NewWindow2(void * a0, unsigned long a1, void * a2, void * a3, unsigned short a4, unsigned long a5, unsigned short a6); // 0x610E +extern unsigned short ErrorWindow(unsigned short a0, void * a1, unsigned short a2); // 0x620E extern void * GetAuxWindInfo(void * a0); // 0x630E -extern unsigned long HandleDiskInsert(unsigned short a0, unsigned short a1); // 0x6B0E +extern unsigned long DoModalWindow(void * a0, void * a1, void * a2, void * a3, unsigned short a4); // 0x640E // tool 0x650E set 0x0E (WindowManager) static inline unsigned short MWGetCtlPart(void) { unsigned short _r; @@ -6162,18 +3060,6 @@ static inline unsigned short MWGetCtlPart(void) { } extern void * MWSetMenuProc(void * a0); // 0x660E -extern void * SetMenuProc(void * a0); // 0x660E -// tool 0x680E set 0x0E (WindowManager) -static inline void MWSetUpEditMenu(void) { - __asm__ volatile ( - "ldx #0x680E\n" - "jsl 0xe10000\n" - : - : - : "a", "x", "y", "memory" - ); -} - // tool 0x670E set 0x0E (WindowManager) static inline void MWStdDrawProc(void) { __asm__ volatile ( @@ -6185,12 +3071,25 @@ static inline void MWStdDrawProc(void) { ); } +// tool 0x680E set 0x0E (WindowManager) +static inline void MWSetUpEditMenu(void) { + __asm__ volatile ( + "ldx #0x680E\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern unsigned short FindCursorCtl(void * a0, unsigned short a1, unsigned short a2, void * a3); // 0x690E extern void ResizeInfoBar(unsigned short a0, unsigned short a1, void * a2); // 0x6A0E +extern unsigned long HandleDiskInsert(unsigned short a0, unsigned short a1); // 0x6B0E extern void UpdateWindow(unsigned short a0, void * a1); // 0x6C0E -// tool 0x540E set 0x0E (WindowManager) -static inline void GDRPrivate(void) { +// tool 0x010F set 0x0F (MenuManager) +static inline void MenuBootInit(void) { __asm__ volatile ( - "ldx #0x540E\n" + "ldx #0x010F\n" "jsl 0xe10000\n" : : @@ -6198,10 +3097,11 @@ static inline void GDRPrivate(void) { ); } -// tool 0x5D0E set 0x0E (WindowManager) -static inline void TaskMasterContent(void) { +extern void MenuStartUp(unsigned short a0, unsigned short a1); // 0x020F +// tool 0x030F set 0x0F (MenuManager) +static inline void MenuShutDown(void) { __asm__ volatile ( - "ldx #0x5D0E\n" + "ldx #0x030F\n" "jsl 0xe10000\n" : : @@ -6209,10 +3109,25 @@ static inline void TaskMasterContent(void) { ); } -// tool 0x5E0E set 0x0E (WindowManager) -static inline void TaskMasterKey(void) { +// tool 0x040F set 0x0F (MenuManager) +static inline unsigned short MenuVersion(void) { + unsigned short _r; __asm__ volatile ( - "ldx #0x5E0E\n" + "pha\n" // result space + "ldx #0x040F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x050F set 0x0F (MenuManager) +static inline void MenuReset(void) { + __asm__ volatile ( + "ldx #0x050F\n" "jsl 0xe10000\n" : : @@ -6220,6 +3135,4079 @@ static inline void TaskMasterKey(void) { ); } +// tool 0x060F set 0x0F (MenuManager) +static inline unsigned short MenuStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x060F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void MenuKey(void * a0, void * a1); // 0x090F +extern void * GetMenuBar(void); // 0x0A0F +extern void MenuRefresh(void * a0); // 0x0B0F +// tool 0x0C0F set 0x0F (MenuManager) +static inline void FlashMenuBar(void) { + __asm__ volatile ( + "ldx #0x0C0F\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void InsertMenu(void * a0, unsigned short a1); // 0x0D0F +// tool 0x0E0F set 0x0F (MenuManager) +static inline void DeleteMenu(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0E0F\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void InsertMItem(void * a0, unsigned short a1, unsigned short a2); // 0x0F0F +// tool 0x100F set 0x0F (MenuManager) +static inline void DeleteMItem(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x100F\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void * GetSysBar(void); // 0x110F +extern void SetSysBar(void * a0); // 0x120F +// tool 0x130F set 0x0F (MenuManager) +static inline unsigned short FixMenuBar(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x130F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x140F set 0x0F (MenuManager) +static inline unsigned short CountMItems(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x140F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void * NewMenuBar(void * a0); // 0x150F +extern void * GetMHandle(unsigned short a0); // 0x160F +extern void SetBarColors(unsigned short a0, unsigned short a1, unsigned short a2); // 0x170F +extern unsigned long GetBarColors(void); // 0x180F +// tool 0x190F set 0x0F (MenuManager) +static inline void SetMTitleStart(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x190F\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1A0F set 0x0F (MenuManager) +static inline unsigned short GetMTitleStart(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1A0F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void * GetMenuMgrPort(void); // 0x1B0F +extern void CalcMenuSize(unsigned short a0, unsigned short a1, unsigned short a2); // 0x1C0F +extern void SetMTitleWidth(unsigned short a0, unsigned short a1); // 0x1D0F +// tool 0x1E0F set 0x0F (MenuManager) +static inline unsigned short GetMTitleWidth(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x1E0F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void SetMenuFlag(unsigned short a0, unsigned short a1); // 0x1F0F +// tool 0x200F set 0x0F (MenuManager) +static inline unsigned short GetMenuFlag(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x200F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void SetMenuTitle(void * a0, unsigned short a1); // 0x210F +extern void * GetMenuTitle(unsigned short a0); // 0x220F +// tool 0x230F set 0x0F (MenuManager) +static inline unsigned short MenuGlobal(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x230F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void SetMItem(void * a0, unsigned short a1); // 0x240F +extern void * GetMItem(unsigned short a0); // 0x250F +extern void SetMItemFlag(unsigned short a0, unsigned short a1); // 0x260F +// tool 0x270F set 0x0F (MenuManager) +static inline unsigned short GetMItemFlag(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x270F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x280F set 0x0F (MenuManager) +static inline void SetMItemBlink(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x280F\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x290F set 0x0F (MenuManager) +static inline void MenuNewRes(void) { + __asm__ volatile ( + "ldx #0x290F\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x2A0F set 0x0F (MenuManager) +static inline void DrawMenuBar(void) { + __asm__ volatile ( + "ldx #0x2A0F\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void MenuSelect(void * a0, void * a1); // 0x2B0F +extern void HiliteMenu(unsigned short a0, unsigned short a1); // 0x2C0F +extern void * NewMenu(void * a0); // 0x2D0F +extern void DisposeMenu(void * a0); // 0x2E0F +// tool 0x2F0F set 0x0F (MenuManager) +static inline void InitPalette(void) { + __asm__ volatile ( + "ldx #0x2F0F\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x300F set 0x0F (MenuManager) +static inline void EnableMItem(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x300F\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x310F set 0x0F (MenuManager) +static inline void DisableMItem(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x310F\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void CheckMItem(unsigned short a0, unsigned short a1); // 0x320F +extern void SetMItemMark(unsigned short a0, unsigned short a1); // 0x330F +// tool 0x340F set 0x0F (MenuManager) +static inline unsigned short GetMItemMark(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x340F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void SetMItemStyle(unsigned short a0, unsigned short a1); // 0x350F +// tool 0x360F set 0x0F (MenuManager) +static inline unsigned short GetMItemStyle(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x360F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void SetMenuID(unsigned short a0, unsigned short a1); // 0x370F +extern void SetMItemID(unsigned short a0, unsigned short a1); // 0x380F +extern void SetMenuBar(void * a0); // 0x390F +extern void SetMItemName(void * a0, unsigned short a1); // 0x3A0F +extern void * GetPopUpDefProc(void); // 0x3B0F +extern unsigned short PopUpMenuSelect(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, void * a4); // 0x3C0F +extern void * NewMenu2(unsigned short a0, unsigned long a1); // 0x3E0F +extern void InsertMItem2(unsigned short a0, unsigned long a1, unsigned short a2, unsigned short a3); // 0x3F0F +extern void SetMenuTitle2(unsigned short a0, unsigned long a1, unsigned short a2); // 0x400F +extern void SetMItem2(unsigned short a0, unsigned long a1, unsigned short a2); // 0x410F +extern void SetMItemName2(unsigned short a0, unsigned long a1, unsigned short a2); // 0x420F +extern void * NewMenuBar2(unsigned short a0, unsigned long a1, void * a2); // 0x430F +// tool 0x450F set 0x0F (MenuManager) +static inline void HideMenuBar(void) { + __asm__ volatile ( + "ldx #0x450F\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x460F set 0x0F (MenuManager) +static inline void ShowMenuBar(void) { + __asm__ volatile ( + "ldx #0x460F\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void SetMItemIcon(unsigned short a0, unsigned long a1, unsigned short a2); // 0x470F +extern unsigned long GetMItemIcon(unsigned short a0); // 0x480F +extern void SetMItemStruct(unsigned short a0, unsigned long a1, unsigned short a2); // 0x490F +extern unsigned long GetMItemStruct(unsigned short a0); // 0x4A0F +// tool 0x4B0F set 0x0F (MenuManager) +static inline void RemoveMItemStruct(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x4B0F\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x4C0F set 0x0F (MenuManager) +static inline unsigned short GetMItemFlag2(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x4C0F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void SetMItemFlag2(unsigned short a0, unsigned short a1); // 0x4D0F +// tool 0x4F0F set 0x0F (MenuManager) +static inline unsigned short GetMItemBlink(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x4F0F\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void InsertPathMItems(unsigned short a0, void * a1, unsigned short a2, unsigned short a3, unsigned short a4, unsigned short a5, void * a6); // 0x500F +// tool 0x0110 set 0x10 (ControlManager) +static inline void CtlBootInit(void) { + __asm__ volatile ( + "ldx #0x0110\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void CtlStartUp(unsigned short a0, unsigned short a1); // 0x0210 +// tool 0x0310 set 0x10 (ControlManager) +static inline void CtlShutDown(void) { + __asm__ volatile ( + "ldx #0x0310\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0410 set 0x10 (ControlManager) +static inline unsigned short CtlVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0410\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0510 set 0x10 (ControlManager) +static inline void CtlReset(void) { + __asm__ volatile ( + "ldx #0x0510\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0610 set 0x10 (ControlManager) +static inline unsigned short CtlStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0610\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned short NewControl(void * a0, void * a1, void * a2, unsigned short a3, unsigned short a4, unsigned short a5, unsigned short a6, void * a7, unsigned long a8, void * a9); // 0x0910 +extern void DisposeControl(void * a0); // 0x0A10 +extern void KillControls(void * a0); // 0x0B10 +extern void SetCtlTitle(void * a0, void * a1); // 0x0C10 +extern void * GetCtlTitle(void * a0); // 0x0D10 +extern void HideControl(void * a0); // 0x0E10 +extern void ShowControl(void * a0); // 0x0F10 +extern void DrawControls(void * a0); // 0x1010 +extern void HiliteControl(unsigned short a0, void * a1); // 0x1110 +// tool 0x1210 set 0x10 (ControlManager) +static inline void CtlNewRes(void) { + __asm__ volatile ( + "ldx #0x1210\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern unsigned short FindControl(void * a0, unsigned short a1, unsigned short a2, void * a3); // 0x1310 +extern unsigned short TestControl(unsigned short a0, unsigned short a1, void * a2); // 0x1410 +extern unsigned short TrackControl(unsigned short a0, unsigned short a1, void * a2, void * a3); // 0x1510 +extern void MoveControl(unsigned short a0, unsigned short a1, void * a2); // 0x1610 +extern void DragControl(unsigned short a0, unsigned short a1, void * a2, void * a3, unsigned short a4, void * a5); // 0x1710 +extern void * SetCtlIcons(void * a0); // 0x1810 +extern void SetCtlValue(unsigned short a0, void * a1); // 0x1910 +extern unsigned short GetCtlValue(void * a0); // 0x1A10 +extern void SetCtlParams(unsigned short a0, unsigned short a1, void * a2); // 0x1B10 +extern unsigned long GetCtlParams(void * a0); // 0x1C10 +extern unsigned long DragRect(void * a0, void * a1, unsigned short a2, unsigned short a3, void * a4, void * a5, void * a6, unsigned short a7); // 0x1D10 +extern unsigned long GrowSize(void); // 0x1E10 +// tool 0x1F10 set 0x10 (ControlManager) +static inline unsigned short GetCtlDpage(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1F10\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void SetCtlAction(void * a0, void * a1); // 0x2010 +extern unsigned long GetCtlAction(void * a0); // 0x2110 +extern void SetCtlRefCon(unsigned long a0, void * a1); // 0x2210 +extern unsigned long GetCtlRefCon(void * a0); // 0x2310 +extern void EraseControl(void * a0); // 0x2410 +extern void DrawOneCtl(void * a0); // 0x2510 +extern void * FindTargetCtl(void); // 0x2610 +extern void * MakeNextCtlTarget(void); // 0x2710 +extern void MakeThisCtlTarget(void * a0); // 0x2810 +extern unsigned short SendEventToCtl(unsigned short a0, void * a1, void * a2); // 0x2910 +extern unsigned long GetCtlID(void * a0); // 0x2A10 +extern void SetCtlID(unsigned long a0, void * a1); // 0x2B10 +extern unsigned long CallCtlDefProc(void * a0, unsigned short a1, unsigned long a2); // 0x2C10 +extern void NotifyCtls(unsigned short a0, unsigned short a1, unsigned long a2, void * a3); // 0x2D10 +extern unsigned short GetCtlMoreFlags(void * a0); // 0x2E10 +extern void SetCtlMoreFlags(unsigned short a0, void * a1); // 0x2F10 +extern void * GetCtlHandleFromID(void * a0, unsigned long a1); // 0x3010 +extern void * NewControl2(void * a0, unsigned short a1, unsigned long a2); // 0x3110 +extern unsigned short CMLoadResource(unsigned short a0, unsigned long a1); // 0x3210 +extern void CMReleaseResource(unsigned short a0, unsigned long a1); // 0x3310 +extern void SetCtlParamPtr(void * a0); // 0x3410 +extern void * GetCtlParamPtr(void); // 0x3510 +extern void InvalCtls(void * a0); // 0x3710 +extern unsigned short FindRadioButton(void * a0, unsigned short a1); // 0x3910 +extern void SetLETextByID(void * a0, unsigned long a1, void * a2); // 0x3A10 +extern void GetLETextByID(void * a0, unsigned long a1, void * a2); // 0x3B10 +extern void SetCtlValueByID(unsigned short a0, void * a1, unsigned long a2); // 0x3C10 +extern unsigned short GetCtlValueByID(void * a0, unsigned long a1); // 0x3D10 +extern void InvalOneCtlByID(void * a0, unsigned long a1); // 0x3E10 +extern void HiliteCtlByID(unsigned short a0, void * a1, unsigned long a2); // 0x3F10 +// tool 0x0111 set 0x11 (Loader) +static inline void LoaderBootInit(void) { + __asm__ volatile ( + "ldx #0x0111\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0211 set 0x11 (Loader) +static inline void LoaderStartUp(void) { + __asm__ volatile ( + "ldx #0x0211\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0311 set 0x11 (Loader) +static inline void LoaderShutDown(void) { + __asm__ volatile ( + "ldx #0x0311\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0411 set 0x11 (Loader) +static inline unsigned short LoaderVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0411\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0511 set 0x11 (Loader) +static inline void LoaderReset(void) { + __asm__ volatile ( + "ldx #0x0511\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0611 set 0x11 (Loader) +static inline unsigned short LoaderStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0611\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern long double InitialLoad(unsigned short a0, void * a1, unsigned short a2); // 0x0911 +extern long double Restart(unsigned short a0); // 0x0A11 +extern void * LoadSegNum(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0B11 +extern void UnloadSegNum(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0C11 +extern long double LoadSegName(unsigned short a0, void * a1, void * a2); // 0x0D11 +extern void * UnloadSeg(void * a0); // 0x0E11 +extern void GetLoadSegInfo(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x0F11 +extern unsigned short GetUserID(void * a0); // 0x1011 +extern void * LGetPathname(unsigned short a0, unsigned short a1); // 0x1111 +extern unsigned short UserShutDown(unsigned short a0, unsigned short a1); // 0x1211 +extern void RenamePathname(void * a0, void * a1); // 0x1311 +extern long double InitialLoad2(unsigned short a0, void * a1, unsigned short a2, unsigned short a3); // 0x2011 +extern unsigned short GetUserID2(void * a0); // 0x2111 +extern void * LGetPathname2(unsigned short a0, unsigned short a1); // 0x2211 +// tool 0x0112 set 0x12 (QDAuxiliary) +static inline void QDAuxBootInit(void) { + __asm__ volatile ( + "ldx #0x0112\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0212 set 0x12 (QDAuxiliary) +static inline void QDAuxStartUp(void) { + __asm__ volatile ( + "ldx #0x0212\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0312 set 0x12 (QDAuxiliary) +static inline void QDAuxShutDown(void) { + __asm__ volatile ( + "ldx #0x0312\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0412 set 0x12 (QDAuxiliary) +static inline unsigned short QDAuxVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0412\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0512 set 0x12 (QDAuxiliary) +static inline void QDAuxReset(void) { + __asm__ volatile ( + "ldx #0x0512\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0612 set 0x12 (QDAuxiliary) +static inline unsigned short QDAuxStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0612\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void CopyPixels(void * a0, void * a1, void * a2, void * a3, unsigned short a4, void * a5); // 0x0912 +// tool 0x0A12 set 0x12 (QDAuxiliary) +static inline void WaitCursor(void) { + __asm__ volatile ( + "ldx #0x0A12\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void DrawIcon(void * a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x0B12 +extern void SpecialRect(void * a0, unsigned short a1, unsigned short a2); // 0x0C12 +extern void SeedFill(void * a0, void * a1, void * a2, void * a3, unsigned short a4, unsigned short a5, unsigned short a6, void * a7, void * a8); // 0x0D12 +extern void CalcMask(void * a0, void * a1, void * a2, void * a3, unsigned short a4, void * a5, void * a6); // 0x0E12 +extern void * GetSysIcon(unsigned short a0, unsigned short a1, unsigned long a2); // 0x0F12 +extern void * PixelMap2Rgn(void * a0, unsigned short a1, unsigned short a2); // 0x1012 +// tool 0x1312 set 0x12 (QDAuxiliary) +static inline void IBeamCursor(void) { + __asm__ volatile ( + "ldx #0x1312\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void WhooshRect(unsigned long a0, void * a1, void * a2); // 0x1412 +extern void DrawStringWidth(unsigned short a0, unsigned long a1, unsigned short a2); // 0x1512 +extern void * UseColorTable(unsigned short a0, void * a1, unsigned short a2); // 0x1612 +extern void RestoreColorTable(void * a0, unsigned short a1); // 0x1712 +// tool 0x0113 set 0x13 (PrintManager) +static inline void PMBootInit(void) { + __asm__ volatile ( + "ldx #0x0113\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void PMStartUp(unsigned short a0, unsigned short a1); // 0x0213 +// tool 0x0313 set 0x13 (PrintManager) +static inline void PMShutDown(void) { + __asm__ volatile ( + "ldx #0x0313\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0413 set 0x13 (PrintManager) +static inline unsigned short PMVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0413\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0513 set 0x13 (PrintManager) +static inline void PMReset(void) { + __asm__ volatile ( + "ldx #0x0513\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0613 set 0x13 (PrintManager) +static inline unsigned short PMStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0613\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void PrDefault(void * a0); // 0x0913 +extern unsigned short PrValidate(void * a0); // 0x0A13 +extern unsigned short PrStlDialog(void * a0); // 0x0B13 +extern unsigned short PrJobDialog(void * a0); // 0x0C13 +extern void PrPixelMap(void * a0, void * a1, unsigned short a2); // 0x0D13 +extern void * PrOpenDoc(void * a0, void * a1); // 0x0E13 +extern void PrCloseDoc(void * a0); // 0x0F13 +extern void PrOpenPage(void * a0, void * a1); // 0x1013 +extern void PrClosePage(void * a0); // 0x1113 +extern void PrPicFile(void * a0, void * a1, void * a2); // 0x1213 +// tool 0x1413 set 0x13 (PrintManager) +static inline unsigned short PrError(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1413\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1513 set 0x13 (PrintManager) +static inline void PrSetError(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1513\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1613 set 0x13 (PrintManager) +static inline unsigned short PrChoosePrinter(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1613\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned long PrGetPrinterSpecs(void); // 0x1813 +extern void PrDevPrChanged(void * a0); // 0x1913 +extern void PrDevStartup(void * a0, void * a1); // 0x1A13 +// tool 0x1B13 set 0x13 (PrintManager) +static inline void PrDevShutDown(void) { + __asm__ volatile ( + "ldx #0x1B13\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void PrDevOpen(void * a0, unsigned long a1); // 0x1C13 +extern unsigned short PrDevRead(void * a0, unsigned short a1); // 0x1D13 +extern void PrDevWrite(void * a0, void * a1, unsigned short a2); // 0x1E13 +// tool 0x1F13 set 0x13 (PrintManager) +static inline void PrDevClose(void) { + __asm__ volatile ( + "ldx #0x1F13\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void PrDevStatus(void * a0); // 0x2013 +extern unsigned short PrDevAsyncRead(void * a0, unsigned short a1, void * a2); // 0x2113 +extern void PrDevWriteBackground(void * a0, unsigned short a1, void * a2); // 0x2213 +// tool 0x2313 set 0x13 (PrintManager) +static inline unsigned short PrDriverVer(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x2313\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x2413 set 0x13 (PrintManager) +static inline unsigned short PrPortVer(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x2413\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void * PrGetZoneName(void); // 0x2513 +extern void * PrGetPrinterDvrName(void); // 0x2813 +extern void * PrGetPortDvrName(void); // 0x2913 +extern void * PrGetUserName(void); // 0x2A13 +extern void * PrGetNetworkName(void); // 0x2B13 +// tool 0x3013 set 0x13 (PrintManager) +static inline unsigned short PrDevIsItSafe(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x3013\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x3413 set 0x13 (PrintManager) +static inline void PMUnloadDriver(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x3413\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x3513 set 0x13 (PrintManager) +static inline void PMLoadDriver(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x3513\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void * PrGetDocName(void); // 0x3613 +extern void PrSetDocName(void * a0); // 0x3713 +extern unsigned short PrGetPgOrientation(void * a0); // 0x3813 +// tool 0x0114 set 0x14 (LineEdit) +static inline void LEBootInit(void) { + __asm__ volatile ( + "ldx #0x0114\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void LEStartUp(unsigned short a0, unsigned short a1); // 0x0214 +// tool 0x0314 set 0x14 (LineEdit) +static inline void LEShutDown(void) { + __asm__ volatile ( + "ldx #0x0314\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0414 set 0x14 (LineEdit) +static inline unsigned short LEVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0414\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0514 set 0x14 (LineEdit) +static inline void LEReset(void) { + __asm__ volatile ( + "ldx #0x0514\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0614 set 0x14 (LineEdit) +static inline unsigned short LEStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0614\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned short LENew(void * a0, void * a1, unsigned short a2); // 0x0914 +// tool 0x0A14 set 0x14 (LineEdit) +static inline void LEDispose(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0A14\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void LESetText(void * a0, unsigned short a1, unsigned short a2); // 0x0B14 +// tool 0x0C14 set 0x14 (LineEdit) +static inline void LEIdle(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0C14\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void LEClick(void * a0, unsigned short a1); // 0x0D14 +extern void LESetSelect(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0E14 +// tool 0x0F14 set 0x14 (LineEdit) +static inline void LEActivate(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0F14\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1014 set 0x14 (LineEdit) +static inline void LEDeactivate(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1014\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void LEKey(unsigned short a0, unsigned short a1, unsigned short a2); // 0x1114 +// tool 0x1214 set 0x14 (LineEdit) +static inline void LECut(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1214\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1314 set 0x14 (LineEdit) +static inline void LECopy(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1314\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1414 set 0x14 (LineEdit) +static inline void LEPaste(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1414\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1514 set 0x14 (LineEdit) +static inline void LEDelete(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1514\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void LEInsert(void * a0, unsigned short a1, unsigned short a2); // 0x1614 +// tool 0x1714 set 0x14 (LineEdit) +static inline void LEUpdate(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1714\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void LETextBox(void * a0, unsigned short a1, void * a2, unsigned short a3); // 0x1814 +// tool 0x1914 set 0x14 (LineEdit) +static inline void LEFromScrap(void) { + __asm__ volatile ( + "ldx #0x1914\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x1A14 set 0x14 (LineEdit) +static inline void LEToScrap(void) { + __asm__ volatile ( + "ldx #0x1A14\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void * LEScrapHandle(void); // 0x1B14 +// tool 0x1C14 set 0x14 (LineEdit) +static inline unsigned short LEGetScrapLen(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1C14\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1D14 set 0x14 (LineEdit) +static inline void LESetScrapLen(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1D14\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void LESetHilite(void * a0, unsigned short a1); // 0x1E14 +extern void LESetCaret(void * a0, unsigned short a1); // 0x1F14 +extern void LETextBox2(void * a0, unsigned short a1, void * a2, unsigned short a3); // 0x2014 +extern void LESetJust(unsigned short a0, unsigned short a1); // 0x2114 +extern void * LEGetTextHand(unsigned short a0); // 0x2214 +// tool 0x2314 set 0x14 (LineEdit) +static inline unsigned short LEGetTextLen(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x2314\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void * GetLEDefProc(void); // 0x2414 +extern unsigned short LEClassifyKey(void * a0); // 0x2514 +// tool 0x0115 set 0x15 (DialogManager) +static inline void DialogBootInit(void) { + __asm__ volatile ( + "ldx #0x0115\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0215 set 0x15 (DialogManager) +static inline void DialogStartUp(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0215\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0315 set 0x15 (DialogManager) +static inline void DialogShutDown(void) { + __asm__ volatile ( + "ldx #0x0315\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0415 set 0x15 (DialogManager) +static inline unsigned short DialogVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0415\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0515 set 0x15 (DialogManager) +static inline void DialogReset(void) { + __asm__ volatile ( + "ldx #0x0515\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0615 set 0x15 (DialogManager) +static inline unsigned short DialogStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0615\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void ErrorSound(void * a0); // 0x0915 +extern void * NewModalDialog(void * a0, unsigned short a1, unsigned long a2); // 0x0A15 +extern void * NewModelessDialog(void * a0, void * a1, void * a2, unsigned short a3, unsigned long a4, void * a5); // 0x0B15 +extern void CloseDialog(void * a0); // 0x0C15 +extern void NewDItem(void * a0, unsigned short a1, void * a2, unsigned short a3, unsigned long a4, unsigned short a5, unsigned short a6, void * a7); // 0x0D15 +extern void RemoveDItem(void * a0, unsigned short a1); // 0x0E15 +extern unsigned short ModalDialog(void * a0); // 0x0F15 +extern unsigned short IsDialogEvent(void * a0); // 0x1015 +extern unsigned short DialogSelect(void * a0, void * a1, void * a2); // 0x1115 +extern void DlgCut(void * a0); // 0x1215 +extern void DlgCopy(void * a0); // 0x1315 +extern void DlgPaste(void * a0); // 0x1415 +extern void DlgDelete(void * a0); // 0x1515 +extern void DrawDialog(void * a0); // 0x1615 +extern unsigned short Alert(void * a0, void * a1); // 0x1715 +extern unsigned short StopAlert(void * a0, void * a1); // 0x1815 +extern unsigned short NoteAlert(void * a0, void * a1); // 0x1915 +extern unsigned short CautionAlert(void * a0, void * a1); // 0x1A15 +extern void ParamText(void * a0, void * a1, void * a2, void * a3); // 0x1B15 +extern void SetDAFont(void * a0); // 0x1C15 +extern void * GetControlDItem(void * a0, unsigned short a1); // 0x1E15 +extern void GetIText(void * a0, unsigned short a1, void * a2); // 0x1F15 +extern void SetIText(void * a0, unsigned short a1, void * a2); // 0x2015 +extern void SelectIText(void * a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x2115 +extern void HideDItem(void * a0, unsigned short a1); // 0x2215 +extern void ShowDItem(void * a0, unsigned short a1); // 0x2315 +extern unsigned short FindDItem(void * a0, unsigned long a1); // 0x2415 +extern void UpdateDialog(void * a0, void * a1); // 0x2515 +extern unsigned short GetDItemType(void * a0, unsigned short a1); // 0x2615 +extern void SetDItemType(unsigned short a0, void * a1, unsigned short a2); // 0x2715 +extern void GetDItemBox(void * a0, unsigned short a1, void * a2); // 0x2815 +extern void SetDItemBox(void * a0, unsigned short a1, void * a2); // 0x2915 +extern unsigned short GetFirstDItem(void * a0); // 0x2A15 +extern unsigned short GetNextDItem(void * a0, unsigned short a1); // 0x2B15 +extern unsigned long ModalDialog2(void * a0); // 0x2C15 +extern unsigned short GetDItemValue(void * a0, unsigned short a1); // 0x2E15 +extern void SetDItemValue(unsigned short a0, void * a1, unsigned short a2); // 0x2F15 +extern void * GetNewModalDialog(void * a0); // 0x3215 +extern void GetNewDItem(void * a0, void * a1); // 0x3315 +// tool 0x3415 set 0x15 (DialogManager) +static inline unsigned short GetAlertStage(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x3415\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x3515 set 0x15 (DialogManager) +static inline void ResetAlertStage(void) { + __asm__ volatile ( + "ldx #0x3515\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern unsigned short DefaultFilter(void * a0, void * a1, void * a2); // 0x3615 +extern unsigned short GetDefButton(void * a0); // 0x3715 +extern void SetDefButton(unsigned short a0, void * a1); // 0x3815 +extern void DisableDItem(void * a0, unsigned short a1); // 0x3915 +extern void EnableDItem(void * a0, unsigned short a1); // 0x3A15 +// tool 0x0116 set 0x16 (ScrapManager) +static inline void ScrapBootInit(void) { + __asm__ volatile ( + "ldx #0x0116\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0216 set 0x16 (ScrapManager) +static inline void ScrapStartUp(void) { + __asm__ volatile ( + "ldx #0x0216\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0316 set 0x16 (ScrapManager) +static inline void ScrapShutDown(void) { + __asm__ volatile ( + "ldx #0x0316\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0416 set 0x16 (ScrapManager) +static inline unsigned short ScrapVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0416\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0516 set 0x16 (ScrapManager) +static inline void ScrapReset(void) { + __asm__ volatile ( + "ldx #0x0516\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0616 set 0x16 (ScrapManager) +static inline unsigned short ScrapStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0616\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0916 set 0x16 (ScrapManager) +static inline void UnloadScrap(void) { + __asm__ volatile ( + "ldx #0x0916\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0A16 set 0x16 (ScrapManager) +static inline void LoadScrap(void) { + __asm__ volatile ( + "ldx #0x0A16\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0B16 set 0x16 (ScrapManager) +static inline void ZeroScrap(void) { + __asm__ volatile ( + "ldx #0x0B16\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void PutScrap(unsigned long a0, unsigned short a1, void * a2); // 0x0C16 +extern void GetScrap(void * a0, unsigned short a1); // 0x0D16 +extern void * GetScrapHandle(unsigned short a0); // 0x0E16 +extern unsigned long GetScrapSize(unsigned short a0); // 0x0F16 +extern void * GetScrapPath(void); // 0x1016 +extern void SetScrapPath(void * a0); // 0x1116 +// tool 0x1216 set 0x16 (ScrapManager) +static inline unsigned short GetScrapCount(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1216\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1316 set 0x16 (ScrapManager) +static inline unsigned short GetScrapState(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1316\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void GetIndScrap(unsigned short a0, void * a1); // 0x1416 +extern void * ShowClipboard(unsigned short a0, void * a1); // 0x1516 +// tool 0x0117 set 0x17 (StandardFile) +static inline void SFBootInit(void) { + __asm__ volatile ( + "ldx #0x0117\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void SFStartUp(unsigned short a0, unsigned short a1); // 0x0217 +// tool 0x0317 set 0x17 (StandardFile) +static inline void SFShutDown(void) { + __asm__ volatile ( + "ldx #0x0317\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0417 set 0x17 (StandardFile) +static inline unsigned short SFVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0417\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0517 set 0x17 (StandardFile) +static inline void SFReset(void) { + __asm__ volatile ( + "ldx #0x0517\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0617 set 0x17 (StandardFile) +static inline unsigned short SFStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0617\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void SFGetFile(unsigned short a0, unsigned short a1, void * a2, void * a3, void * a4, void * a5); // 0x0917 +extern void SFPutFile(unsigned short a0, unsigned short a1, void * a2, void * a3, unsigned short a4, void * a5); // 0x0A17 +extern void SFPGetFile(unsigned short a0, unsigned short a1, void * a2, void * a3, void * a4, void * a5, void * a6, void * a7); // 0x0B17 +extern void SFPPutFile(unsigned short a0, unsigned short a1, void * a2, void * a3, unsigned short a4, void * a5, void * a6, void * a7); // 0x0C17 +// tool 0x0D17 set 0x17 (StandardFile) +static inline void SFAllCaps(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0D17\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void SFGetFile2(unsigned short a0, unsigned short a1, unsigned short a2, unsigned long a3, void * a4, void * a5, void * a6); // 0x0E17 +extern void SFPutFile2(unsigned short a0, unsigned short a1, unsigned short a2, unsigned long a3, unsigned short a4, unsigned long a5, void * a6); // 0x0F17 +extern void SFPGetFile2(unsigned short a0, unsigned short a1, void * a2, unsigned short a3, unsigned long a4, void * a5, void * a6, void * a7, void * a8, void * a9); // 0x1017 +extern void SFPPutFile2(unsigned short a0, unsigned short a1, void * a2, unsigned short a3, unsigned long a4, unsigned short a5, unsigned long a6, void * a7, void * a8, void * a9); // 0x1117 +// tool 0x1217 set 0x17 (StandardFile) +static inline unsigned short SFShowInvisible(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x1217\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void SFReScan(void * a0, void * a1); // 0x1317 +extern void SFMultiGet2(unsigned short a0, unsigned short a1, unsigned short a2, unsigned long a3, void * a4, void * a5, void * a6); // 0x1417 +extern void SFPMultiGet2(unsigned short a0, unsigned short a1, void * a2, unsigned short a3, unsigned long a4, void * a5, void * a6, void * a7, void * a8, void * a9); // 0x1517 +// tool 0x0119 set 0x19 (NoteSynth) +static inline void NSBootInit(void) { + __asm__ volatile ( + "ldx #0x0119\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void NSStartUp(unsigned short a0, void * a1); // 0x0219 +// tool 0x0319 set 0x19 (NoteSynth) +static inline void NSShutDown(void) { + __asm__ volatile ( + "ldx #0x0319\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0419 set 0x19 (NoteSynth) +static inline unsigned short NSVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0419\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0519 set 0x19 (NoteSynth) +static inline void NSReset(void) { + __asm__ volatile ( + "ldx #0x0519\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0619 set 0x19 (NoteSynth) +static inline unsigned short NSStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0619\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0919 set 0x19 (NoteSynth) +static inline unsigned short AllocGen(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x0919\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0A19 set 0x19 (NoteSynth) +static inline void DeallocGen(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0A19\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void NoteOn(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x0B19 +extern void NoteOff(unsigned short a0, unsigned short a1); // 0x0C19 +// tool 0x0D19 set 0x19 (NoteSynth) +static inline void AllNotesOff(void) { + __asm__ volatile ( + "ldx #0x0D19\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0E19 set 0x19 (NoteSynth) +static inline unsigned short NSSetUpdateRate(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x0E19\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void * NSSetUserUpdateRtn(void * a0); // 0x0F19 +// tool 0x011A set 0x1A (NoteSequencer) +static inline void SeqBootInit(void) { + __asm__ volatile ( + "ldx #0x011A\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void SeqStartUp(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x021A +// tool 0x031A set 0x1A (NoteSequencer) +static inline void SeqShutDown(void) { + __asm__ volatile ( + "ldx #0x031A\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x041A set 0x1A (NoteSequencer) +static inline unsigned short SeqVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x041A\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x051A set 0x1A (NoteSequencer) +static inline void SeqReset(void) { + __asm__ volatile ( + "ldx #0x051A\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x061A set 0x1A (NoteSequencer) +static inline unsigned short SeqStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x061A\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x091A set 0x1A (NoteSequencer) +static inline void SetIncr(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x091A\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0A1A set 0x1A (NoteSequencer) +static inline unsigned short ClearIncr(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0A1A\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0B1A set 0x1A (NoteSequencer) +static inline unsigned short GetTimer(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0B1A\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void * GetLoc(void); // 0x0C1A +// tool 0x0D1A set 0x1A (NoteSequencer) +static inline void SeqAllNotesOff(void) { + __asm__ volatile ( + "ldx #0x0D1A\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void SetTrkInfo(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0E1A +extern void StartSeq(void * a0, void * a1, void * a2); // 0x0F1A +// tool 0x101A set 0x1A (NoteSequencer) +static inline void StepSeq(void) { + __asm__ volatile ( + "ldx #0x101A\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x111A set 0x1A (NoteSequencer) +static inline void StopSeq(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x111A\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void SetInstTable(void * a0); // 0x121A +// tool 0x131A set 0x1A (NoteSequencer) +static inline void StartInts(void) { + __asm__ volatile ( + "ldx #0x131A\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x141A set 0x1A (NoteSequencer) +static inline void StopInts(void) { + __asm__ volatile ( + "ldx #0x141A\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void StartSeqRel(void * a0, void * a1, void * a2); // 0x151A +// tool 0x011B set 0x1B (FontManager) +static inline void FMBootInit(void) { + __asm__ volatile ( + "ldx #0x011B\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void FMStartUp(unsigned short a0, unsigned short a1); // 0x021B +// tool 0x031B set 0x1B (FontManager) +static inline void FMShutDown(void) { + __asm__ volatile ( + "ldx #0x031B\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x041B set 0x1B (FontManager) +static inline unsigned short FMVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x041B\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x051B set 0x1B (FontManager) +static inline void FMReset(void) { + __asm__ volatile ( + "ldx #0x051B\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x061B set 0x1B (FontManager) +static inline unsigned short FMStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x061B\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x091B set 0x1B (FontManager) +static inline unsigned short CountFamilies(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x091B\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned short FindFamily(unsigned short a0, unsigned short a1, void * a2); // 0x0A1B +extern unsigned short GetFamInfo(unsigned short a0, void * a1); // 0x0B1B +extern unsigned short GetFamNum(void * a0); // 0x0C1B +extern void AddFamily(unsigned short a0, void * a1); // 0x0D1B +extern void InstallFont(unsigned long a0, unsigned short a1); // 0x0E1B +extern void SetPurgeStat(unsigned long a0, unsigned short a1); // 0x0F1B +extern unsigned short CountFonts(unsigned long a0, unsigned short a1); // 0x101B +extern void FindFontStats(unsigned long a0, unsigned short a1, unsigned short a2, void * a3); // 0x111B +extern void LoadFont(unsigned long a0, unsigned short a1, unsigned short a2, void * a3); // 0x121B +// tool 0x131B set 0x1B (FontManager) +static inline void LoadSysFont(void) { + __asm__ volatile ( + "ldx #0x131B\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void AddFontVar(void * a0, unsigned short a1); // 0x141B +extern void FixFontMenu(unsigned short a0, unsigned short a1, unsigned short a2); // 0x151B +extern unsigned long ChooseFont(unsigned long a0, unsigned short a1); // 0x161B +// tool 0x171B set 0x1B (FontManager) +static inline unsigned short ItemID2FamNum(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x171B\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void FMSetSysFont(unsigned long a0); // 0x181B +extern unsigned long FMGetSysFID(void); // 0x191B +extern unsigned long FMGetCurFID(void); // 0x1A1B +// tool 0x1B1B set 0x1B (FontManager) +static inline unsigned short FamNum2ItemID(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x1B1B\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void InstallWithStats(unsigned long a0, unsigned short a1, void * a2); // 0x1C1B +// tool 0x011C set 0x1C (ListManager) +static inline void ListBootInit(void) { + __asm__ volatile ( + "ldx #0x011C\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x021C set 0x1C (ListManager) +static inline void ListStartUp(void) { + __asm__ volatile ( + "ldx #0x021C\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x031C set 0x1C (ListManager) +static inline void ListShutDown(void) { + __asm__ volatile ( + "ldx #0x031C\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x041C set 0x1C (ListManager) +static inline unsigned short ListVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x041C\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x051C set 0x1C (ListManager) +static inline void ListReset(void) { + __asm__ volatile ( + "ldx #0x051C\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x061C set 0x1C (ListManager) +static inline unsigned short ListStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x061C\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void * CreateList(void * a0, void * a1); // 0x091C +extern void SortList(void * a0, void * a1); // 0x0A1C +extern void * NextMember(void * a0, void * a1); // 0x0B1C +extern void DrawMember(void * a0, void * a1); // 0x0C1C +extern void SelectMember(void * a0, void * a1); // 0x0D1C +extern void * GetListDefProc(void); // 0x0E1C +extern unsigned long ResetMember(void * a0); // 0x0F1C +extern void NewList(void * a0, void * a1); // 0x101C +extern void DrawMember2(unsigned short a0, void * a1); // 0x111C +extern unsigned short NextMember2(unsigned short a0, void * a1); // 0x121C +extern unsigned short ResetMember2(void * a0); // 0x131C +extern void SelectMember2(unsigned short a0, void * a1); // 0x141C +extern void SortList2(void * a0, void * a1); // 0x151C +extern void NewList2(void * a0, unsigned short a1, unsigned long a2, unsigned short a3, unsigned short a4, void * a5); // 0x161C +extern void ListKey(unsigned short a0, void * a1, void * a2); // 0x171C +extern unsigned short CompareStrings(unsigned short a0, void * a1, void * a2); // 0x181C +// tool 0x011D set 0x1D (ACETools) +static inline void ACEBootInit(void) { + __asm__ volatile ( + "ldx #0x011D\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x021D set 0x1D (ACETools) +static inline void ACEStartUp(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x021D\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x031D set 0x1D (ACETools) +static inline void ACEShutDown(void) { + __asm__ volatile ( + "ldx #0x031D\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x041D set 0x1D (ACETools) +static inline unsigned short ACEVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x041D\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x051D set 0x1D (ACETools) +static inline void ACEReset(void) { + __asm__ volatile ( + "ldx #0x051D\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x061D set 0x1D (ACETools) +static inline unsigned short ACEStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x061D\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned long ACEInfo(unsigned short a0); // 0x071D +extern void ACECompress(void * a0, unsigned long a1, void * a2, unsigned long a3, unsigned short a4, unsigned short a5); // 0x091D +extern void ACEExpand(void * a0, unsigned long a1, void * a2, unsigned long a3, unsigned short a4, unsigned short a5); // 0x0A1D +// tool 0x0B1D set 0x1D (ACETools) +static inline void ACECompBegin(void) { + __asm__ volatile ( + "ldx #0x0B1D\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0C1D set 0x1D (ACETools) +static inline void ACEExpBegin(void) { + __asm__ volatile ( + "ldx #0x0C1D\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void GetACEExpState(void * a0); // 0x0D1D +extern void SetACEExpState(void * a0); // 0x0E1D +// tool 0x011E set 0x1E (ResourceManager) +static inline void ResourceBootInit(void) { + __asm__ volatile ( + "ldx #0x011E\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x021E set 0x1E (ResourceManager) +static inline void ResourceStartUp(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x021E\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x031E set 0x1E (ResourceManager) +static inline void ResourceShutDown(void) { + __asm__ volatile ( + "ldx #0x031E\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x041E set 0x1E (ResourceManager) +static inline unsigned short ResourceVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x041E\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x051E set 0x1E (ResourceManager) +static inline void ResourceReset(void) { + __asm__ volatile ( + "ldx #0x051E\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x061E set 0x1E (ResourceManager) +static inline unsigned short ResourceStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x061E\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void CreateResourceFile(unsigned long a0, unsigned short a1, unsigned short a2, void * a3); // 0x091E +extern unsigned short OpenResourceFile(unsigned short a0, void * a1, void * a2); // 0x0A1E +// tool 0x0B1E set 0x1E (ResourceManager) +static inline void CloseResourceFile(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0B1E\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void AddResource(void * a0, unsigned short a1, unsigned short a2, unsigned long a3); // 0x0C1E +// tool 0x0D1E set 0x1E (ResourceManager) +static inline void UpdateResourcefile(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0D1E\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void * LoadResource(unsigned short a0, unsigned long a1); // 0x0E1E +extern void RemoveResource(unsigned short a0, unsigned long a1); // 0x0F1E +extern void MarkResourceChange(unsigned short a0, unsigned short a1, unsigned long a2); // 0x101E +// tool 0x111E set 0x1E (ResourceManager) +static inline void SetCurResourceFile(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x111E\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x121E set 0x1E (ResourceManager) +static inline unsigned short GetCurResourceFile(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x121E\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x131E set 0x1E (ResourceManager) +static inline void SetCurResourceApp(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x131E\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x141E set 0x1E (ResourceManager) +static inline unsigned short GetCurResourceApp(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x141E\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned short HomeResourceFile(unsigned short a0, unsigned long a1); // 0x151E +extern void WriteResource(unsigned short a0, unsigned long a1); // 0x161E +extern void ReleaseResource(unsigned short a0, unsigned short a1, unsigned long a2); // 0x171E +extern void DetachResource(unsigned short a0, unsigned long a1); // 0x181E +extern unsigned long UniqueResourceID(unsigned short a0, unsigned short a1); // 0x191E +extern void SetResourceID(unsigned long a0, unsigned short a1, unsigned long a2); // 0x1A1E +extern unsigned short GetResourceAttr(unsigned short a0, unsigned long a1); // 0x1B1E +extern void SetResourceAttr(unsigned short a0, unsigned short a1, unsigned long a2); // 0x1C1E +extern unsigned long GetResourceSize(unsigned short a0, unsigned long a1); // 0x1D1E +extern void MatchResourceHandle(void * a0, void * a1); // 0x1E1E +// tool 0x1F1E set 0x1E (ResourceManager) +static inline unsigned short GetOpenFileRefNum(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x1F1E\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x201E set 0x1E (ResourceManager) +static inline unsigned short CountTypes(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x201E\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x211E set 0x1E (ResourceManager) +static inline unsigned short GetIndType(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x211E\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned long CountResources(unsigned short a0); // 0x221E +extern unsigned long GetIndResource(unsigned short a0, unsigned long a1); // 0x231E +// tool 0x241E set 0x1E (ResourceManager) +static inline unsigned short SetResourceLoad(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x241E\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x251E set 0x1E (ResourceManager) +static inline unsigned short SetResourceFileDepth(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x251E\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void * GetMapHandle(unsigned short a0); // 0x261E +extern unsigned long LoadAbsResource(void * a0, unsigned long a1, unsigned short a2, unsigned long a3); // 0x271E +extern void ResourceConverter(void * a0, unsigned short a1, unsigned short a2); // 0x281E +extern void * LoadResource2(unsigned short a0, void * a1, unsigned short a2, unsigned long a3); // 0x291E +extern unsigned long RMFindNamedResource(unsigned short a0, void * a1, void * a2); // 0x2A1E +extern void RMGetResourceName(unsigned short a0, unsigned long a1, void * a2); // 0x2B1E +extern void * RMLoadNamedResource(unsigned short a0, void * a1); // 0x2C1E +extern void RMSetResourceName(unsigned short a0, unsigned long a1, void * a2); // 0x2D1E +extern unsigned short OpenResourceFileByID(unsigned short a0, unsigned short a1); // 0x2E1E +extern void CompactResourceFile(unsigned short a0, unsigned short a1); // 0x2F1E +// tool 0x0120 set 0x20 (VideoOverlay) +static inline void MidiBootInit(void) { + __asm__ volatile ( + "ldx #0x0120\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void MidiStartUp(unsigned short a0, unsigned short a1); // 0x0220 +// tool 0x0320 set 0x20 (VideoOverlay) +static inline void MidiShutDown(void) { + __asm__ volatile ( + "ldx #0x0320\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0420 set 0x20 (VideoOverlay) +static inline unsigned short MidiVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0420\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0520 set 0x20 (VideoOverlay) +static inline void MidiReset(void) { + __asm__ volatile ( + "ldx #0x0520\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0620 set 0x20 (VideoOverlay) +static inline unsigned short MidiStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0620\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void MidiControl(unsigned short a0, unsigned long a1); // 0x0920 +extern void MidiDevice(unsigned short a0, void * a1); // 0x0A20 +extern void MidiClock(unsigned short a0, unsigned long a1); // 0x0B20 +extern unsigned long MidiInfo(unsigned short a0); // 0x0C20 +extern unsigned short MidiReadPacket(void * a0, unsigned short a1); // 0x0D20 +extern unsigned short MidiWritePacket(void * a0); // 0x0E20 +// tool 0x0121 set 0x21 (Teletext) +static inline void VDBootInit(void) { + __asm__ volatile ( + "ldx #0x0121\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0221 set 0x21 (Teletext) +static inline void VDStartUp(void) { + __asm__ volatile ( + "ldx #0x0221\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0321 set 0x21 (Teletext) +static inline void VDShutDown(void) { + __asm__ volatile ( + "ldx #0x0321\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0421 set 0x21 (Teletext) +static inline unsigned short VDVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0421\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0521 set 0x21 (Teletext) +static inline void VDReset(void) { + __asm__ volatile ( + "ldx #0x0521\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0621 set 0x21 (Teletext) +static inline unsigned short VDStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0621\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0921 set 0x21 (Teletext) +static inline unsigned short VDInStatus(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x0921\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0A21 set 0x21 (Teletext) +static inline void VDInSetStd(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0A21\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0B21 set 0x21 (Teletext) +static inline unsigned short VDInGetStd(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0B21\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void VDInConvAdj(unsigned short a0, unsigned short a1); // 0x0C21 +extern void VDKeyControl(unsigned short a0, unsigned short a1); // 0x0D21 +// tool 0x0E21 set 0x21 (Teletext) +static inline unsigned short VDKeyStatus(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x0E21\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void VDKeySetKCol(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0F21 +// tool 0x1021 set 0x21 (Teletext) +static inline unsigned short VDKeyGetKRCol(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1021\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1121 set 0x21 (Teletext) +static inline unsigned short VDKeyGetKGCol(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1121\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1221 set 0x21 (Teletext) +static inline unsigned short VDKeyGetKBCol(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1221\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1321 set 0x21 (Teletext) +static inline void VDKeySetKDiss(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1321\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1421 set 0x21 (Teletext) +static inline unsigned short VDKeyGetKDiss(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1421\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1521 set 0x21 (Teletext) +static inline void VDKeySetNKDiss(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1521\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1621 set 0x21 (Teletext) +static inline unsigned short VDKeyGetNKDiss(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1621\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1721 set 0x21 (Teletext) +static inline void VDOutSetStd(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1721\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1821 set 0x21 (Teletext) +static inline unsigned short VDOutGetStd(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1821\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void VDOutControl(unsigned short a0, unsigned short a1); // 0x1921 +// tool 0x1A21 set 0x21 (Teletext) +static inline unsigned short VDOutStatus(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x1A21\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1B21 set 0x21 (Teletext) +static inline unsigned short VDGetFeatures(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x1B21\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +extern void VDInControl(unsigned short a0, unsigned short a1); // 0x1C21 +extern void VDGGControl(unsigned short a0, unsigned short a1); // 0x1D21 +// tool 0x1E21 set 0x21 (Teletext) +static inline unsigned short VDGGStatus(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x1E21\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0122 set 0x22 (TextEdit) +static inline void TEBootInit(void) { + __asm__ volatile ( + "ldx #0x0122\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void TEStartUp(unsigned short a0, unsigned short a1); // 0x0222 +// tool 0x0322 set 0x22 (TextEdit) +static inline void TEShutDown(void) { + __asm__ volatile ( + "ldx #0x0322\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0422 set 0x22 (TextEdit) +static inline unsigned short TEVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0422\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0522 set 0x22 (TextEdit) +static inline void TEReset(void) { + __asm__ volatile ( + "ldx #0x0522\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0622 set 0x22 (TextEdit) +static inline unsigned short TEStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0622\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned short TENew(void * a0); // 0x0922 +// tool 0x0A22 set 0x22 (TextEdit) +static inline void TEKill(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0A22\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void TESetText(unsigned short a0, unsigned long a1, unsigned long a2, unsigned short a3, unsigned long a4, unsigned short a5); // 0x0B22 +extern unsigned long TEGetText(unsigned short a0, unsigned long a1, unsigned long a2, unsigned short a3, unsigned long a4, unsigned short a5); // 0x0C22 +extern void TEGetTextInfo(void * a0, unsigned short a1, unsigned short a2); // 0x0D22 +// tool 0x0E22 set 0x22 (TextEdit) +static inline void TEIdle(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0E22\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0F22 set 0x22 (TextEdit) +static inline void TEActivate(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0F22\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1022 set 0x22 (TextEdit) +static inline void TEDeactivate(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1022\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void TEClick(void * a0, unsigned short a1); // 0x1122 +// tool 0x1222 set 0x22 (TextEdit) +static inline void TEUpdate(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1222\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern unsigned long TEPaintText(void * a0, unsigned long a1, void * a2, unsigned short a3, unsigned short a4); // 0x1322 +extern void TEKey(void * a0, unsigned short a1); // 0x1422 +// tool 0x1622 set 0x22 (TextEdit) +static inline void TECut(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1622\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1722 set 0x22 (TextEdit) +static inline void TECopy(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1722\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1822 set 0x22 (TextEdit) +static inline void TEPaste(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1822\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1922 set 0x22 (TextEdit) +static inline void TEClear(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1922\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void TEInsert(unsigned short a0, unsigned long a1, unsigned long a2, unsigned short a3, unsigned long a4, unsigned short a5); // 0x1A22 +extern void TEReplace(unsigned short a0, unsigned long a1, unsigned long a2, unsigned short a3, unsigned long a4, unsigned short a5); // 0x1B22 +extern void TEGetSelection(void * a0, void * a1, unsigned short a2); // 0x1C22 +extern void TESetSelection(unsigned long a0, unsigned long a1, unsigned short a2); // 0x1D22 +extern unsigned short TEGetSelectionStyle(void * a0, unsigned short a1, unsigned short a2); // 0x1E22 +extern void TEStyleChange(unsigned short a0, void * a1, unsigned short a2); // 0x1F22 +extern void TEOffsetToPoint(unsigned long a0, void * a1, void * a2, unsigned short a3); // 0x2022 +extern unsigned long TEPointToOffset(unsigned long a0, unsigned long a1, unsigned short a2); // 0x2122 +extern void * TEGetDefProc(void); // 0x2222 +extern void TEGetRuler(unsigned short a0, unsigned long a1, unsigned short a2); // 0x2322 +extern void TESetRuler(unsigned short a0, unsigned long a1, unsigned short a2); // 0x2422 +extern unsigned long TEScroll(unsigned short a0, unsigned long a1, unsigned long a2, unsigned short a3); // 0x2522 +extern void * TEGetInternalProc(void); // 0x2622 +extern unsigned short TEGetLastError(unsigned short a0, unsigned short a1); // 0x2722 +// tool 0x2822 set 0x22 (TextEdit) +static inline void TECompactRecord(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x2822\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0123 set 0x23 (MediaControl) +static inline void MSBootInit(void) { + __asm__ volatile ( + "ldx #0x0123\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0223 set 0x23 (MediaControl) +static inline void MSStartUp(void) { + __asm__ volatile ( + "ldx #0x0223\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0323 set 0x23 (MediaControl) +static inline void MSShutDown(void) { + __asm__ volatile ( + "ldx #0x0323\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0423 set 0x23 (MediaControl) +static inline unsigned short MSVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0423\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0523 set 0x23 (MediaControl) +static inline void MSReset(void) { + __asm__ volatile ( + "ldx #0x0523\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0623 set 0x23 (MediaControl) +static inline unsigned short MSStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0623\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0923 set 0x23 (MediaControl) +static inline void SetBasicChannel(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0923\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0A23 set 0x23 (MediaControl) +static inline void SetMIDIMode(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0A23\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void PlayNote(unsigned short a0, unsigned short a1, unsigned short a2); // 0x0B23 +extern void StopNote(unsigned short a0, unsigned short a1); // 0x0C23 +// tool 0x0D23 set 0x23 (MediaControl) +static inline void KillAllNotes(void) { + __asm__ volatile ( + "ldx #0x0D23\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0E23 set 0x23 (MediaControl) +static inline void SetRecTrack(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0E23\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void SetPlayTrack(unsigned short a0, unsigned short a1); // 0x0F23 +extern void TrackToChannel(unsigned short a0, unsigned short a1); // 0x1023 +extern void * Locate(unsigned long a0, void * a1); // 0x1123 +// tool 0x1223 set 0x23 (MediaControl) +static inline void SetVelComp(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1223\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void SetMIDIPort(unsigned short a0, unsigned short a1); // 0x1323 +extern void SetInstrument(void * a0, unsigned short a1); // 0x1423 +extern void SeqPlayer(void * a0); // 0x1523 +// tool 0x1623 set 0x23 (MediaControl) +static inline void SetTempo(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1623\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void SetCallBack(void * a0); // 0x1723 +extern void SysExOut(void * a0, unsigned short a1, void * a2); // 0x1823 +// tool 0x1923 set 0x23 (MediaControl) +static inline void SetBeat(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1923\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void MIDIMessage(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, unsigned short a4); // 0x1A23 +extern void * LocateEnd(void * a0); // 0x1B23 +extern void Merge(void * a0, void * a1); // 0x1C23 +extern void DeleteTrack(unsigned short a0, void * a1); // 0x1D23 +extern void SetMetro(unsigned short a0, unsigned short a1, void * a2); // 0x1E23 +extern long long GetMSData(void); // 0x1F23 +extern unsigned long ConvertToTime(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3); // 0x2023 +extern void * ConvertToMeasure(unsigned short a0, unsigned short a1, unsigned long a2); // 0x2123 +// tool 0x2223 set 0x23 (MediaControl) +static inline void MSSuspend(void) { + __asm__ volatile ( + "ldx #0x2223\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x2323 set 0x23 (MediaControl) +static inline void MSResume(void) { + __asm__ volatile ( + "ldx #0x2323\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void SetTuningTable(void * a0); // 0x2423 +extern void GetTuningTable(void * a0); // 0x2523 +extern void SetTrackOut(unsigned short a0, unsigned short a1); // 0x2623 +extern void InitMIDIDriver(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x2723 +// tool 0x2823 set 0x23 (MediaControl) +static inline void RemoveMIDIDriver(void) { + __asm__ volatile ( + "ldx #0x2823\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0126 set 0x26 (?) +static inline void MCBootInit(void) { + __asm__ volatile ( + "ldx #0x0126\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0226 set 0x26 (?) +static inline void MCStartUp(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0226\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0326 set 0x26 (?) +static inline void MCShutDown(void) { + __asm__ volatile ( + "ldx #0x0326\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0426 set 0x26 (?) +static inline unsigned short MCVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0426\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0526 set 0x26 (?) +static inline void MCReset(void) { + __asm__ volatile ( + "ldx #0x0526\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0626 set 0x26 (?) +static inline unsigned short MCStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0626\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void MCGetErrorMsg(unsigned short a0, void * a1); // 0x0926 +// tool 0x0A26 set 0x26 (?) +static inline void MCLoadDriver(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0A26\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0B26 set 0x26 (?) +static inline void MCUnLoadDriver(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0B26\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern unsigned long MCTimeToBin(unsigned long a0); // 0x0C26 +extern unsigned long MCBinToTime(unsigned long a0); // 0x0D26 +extern void MCGetTrackTitle(unsigned long a0, unsigned short a1, void * a2); // 0x0E26 +extern void MCSetTrackTitle(unsigned long a0, unsigned short a1, void * a2); // 0x0F26 +extern void MCGetProgram(unsigned long a0, void * a1); // 0x1026 +extern void MCSetProgram(unsigned long a0, void * a1); // 0x1126 +extern void MCGetDiscTitle(unsigned long a0, void * a1); // 0x1226 +extern void MCSetDiscTitle(unsigned long a0, void * a1); // 0x1326 +extern void MCDStartUp(unsigned short a0, void * a1, unsigned short a2); // 0x1426 +// tool 0x1526 set 0x26 (?) +static inline void MCDShutDown(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1526\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern unsigned long MCGetFeatures(unsigned short a0, unsigned short a1); // 0x1626 +// tool 0x1726 set 0x26 (?) +static inline void MCPlay(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1726\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x1826 set 0x26 (?) +static inline void MCPause(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x1826\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void MCSendRawData(unsigned short a0, void * a1); // 0x1926 +extern unsigned short MCGetStatus(unsigned short a0, unsigned short a1); // 0x1A26 +extern void MCControl(unsigned short a0, unsigned short a1); // 0x1B26 +extern void MCScan(unsigned short a0, unsigned short a1); // 0x1C26 +extern void MCGetSpeeds(unsigned short a0, void * a1); // 0x1D26 +extern void MCSpeed(unsigned short a0, unsigned short a1); // 0x1E26 +extern void MCStopAt(unsigned short a0, unsigned short a1, unsigned long a2); // 0x1F26 +extern void MCJog(unsigned short a0, unsigned short a1, unsigned long a2, unsigned short a3); // 0x2026 +extern void MCSearchTo(unsigned short a0, unsigned short a1, unsigned long a2); // 0x2126 +// tool 0x2226 set 0x26 (?) +static inline unsigned short MCSearchDone(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x2226\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x2326 set 0x26 (?) +static inline void MCSearchWait(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x2326\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern unsigned long MCGetPosition(unsigned short a0, unsigned short a1); // 0x2426 +extern void MCSetAudio(unsigned short a0, unsigned short a1); // 0x2526 +extern unsigned long MCGetTimes(unsigned short a0, unsigned short a1); // 0x2626 +extern unsigned long MCGetDiscTOC(unsigned short a0, unsigned short a1); // 0x2726 +extern unsigned long MCGetDiscID(unsigned short a0); // 0x2826 +// tool 0x2926 set 0x26 (?) +static inline unsigned short MCGetNoTracks(unsigned short a0) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "pha\n" // arg0 + "ldx #0x2926\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : "a"(a0) + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x2A26 set 0x26 (?) +static inline void MCRecord(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x2A26\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x2B26 set 0x26 (?) +static inline void MCStop(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x2B26\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void MCWaitRawData(unsigned short a0, void * a1, unsigned short a2, unsigned short a3); // 0x2C26 +extern void MCGetName(unsigned short a0, void * a1); // 0x2D26 +extern void MCSetVolume(unsigned short a0, unsigned short a1, unsigned short a2); // 0x2E26 +// tool 0x0132 set 0x32 (MediaControl2) +static inline void MaleBootInit(void) { + __asm__ volatile ( + "ldx #0x0132\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0232 set 0x32 (MediaControl2) +static inline void MaleStartUp(void) { + __asm__ volatile ( + "ldx #0x0232\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0332 set 0x32 (MediaControl2) +static inline void MaleShutDown(void) { + __asm__ volatile ( + "ldx #0x0332\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0432 set 0x32 (MediaControl2) +static inline unsigned short MaleVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0432\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0532 set 0x32 (MediaControl2) +static inline void MaleReset(void) { + __asm__ volatile ( + "ldx #0x0532\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0632 set 0x32 (MediaControl2) +static inline unsigned short MaleStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0632\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void MaleSpeak(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x0932 +// tool 0x0133 set 0x33 (?) +static inline void FemaleBootInit(void) { + __asm__ volatile ( + "ldx #0x0133\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0233 set 0x33 (?) +static inline void FemaleStartUp(void) { + __asm__ volatile ( + "ldx #0x0233\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0333 set 0x33 (?) +static inline void FemaleShutDown(void) { + __asm__ volatile ( + "ldx #0x0333\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0433 set 0x33 (?) +static inline unsigned short FemaleVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0433\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0533 set 0x33 (?) +static inline void FemaleReset(void) { + __asm__ volatile ( + "ldx #0x0533\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0633 set 0x33 (?) +static inline unsigned short FemaleStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0633\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void FemaleSpeak(unsigned short a0, unsigned short a1, unsigned short a2, void * a3); // 0x0933 +// tool 0x0134 set 0x34 (?) +static inline void SpeechBootInit(void) { + __asm__ volatile ( + "ldx #0x0134\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0234 set 0x34 (?) +static inline void SpeechStartUp(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0234\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0334 set 0x34 (?) +static inline void SpeechShutDown(void) { + __asm__ volatile ( + "ldx #0x0334\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0434 set 0x34 (?) +static inline unsigned short SpeechVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0434\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0534 set 0x34 (?) +static inline void SpeechReset(void) { + __asm__ volatile ( + "ldx #0x0534\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0634 set 0x34 (?) +static inline unsigned short SpeechStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0634\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void Parse(void * a0, void * a1, unsigned short a2); // 0x0934 +extern void DictInsert(void * a0, void * a1); // 0x0A34 +extern void DictDelete(void * a0); // 0x0B34 +extern void * DictDump(void * a0, void * a1); // 0x0C34 +extern void SetSayGlobals(unsigned short a0, unsigned short a1, unsigned short a2, unsigned short a3, unsigned short a4); // 0x0D34 +// tool 0x0E34 set 0x34 (?) +static inline void DictInit(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0E34\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +extern void Say(void * a0); // 0x0F34 +// tool 0x04FF set 0xFF (?) +static inline unsigned short DebugVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x04FF\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x06FF set 0xFF (?) +static inline unsigned short DebugStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x06FF\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void DebugStr(void * a0); // 0x09FF +extern void SetMileStone(void * a0); // 0x0AFF +extern void DebugSetHook(void * a0); // 0x0BFF +extern unsigned long DebugGetInfo(unsigned short a0); // 0x0CFF +extern void DebugControl(unsigned long a0, unsigned long a1, unsigned short a2, unsigned short a3); // 0x0DFF +extern unsigned long DebugQuery(unsigned long a0, unsigned short a1, unsigned short a2); // 0x0EFF +// tool 0x0101 set 0x01 (ToolLocator) +static inline void fmdBootInit(void) { + __asm__ volatile ( + "ldx #0x0101\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0201 set 0x01 (ToolLocator) +static inline void fmdStartUp(void) { + __asm__ volatile ( + "ldx #0x0201\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0301 set 0x01 (ToolLocator) +static inline void fmdShutDown(void) { + __asm__ volatile ( + "ldx #0x0301\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0401 set 0x01 (ToolLocator) +static inline unsigned short fmdVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0401\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0501 set 0x01 (ToolLocator) +static inline void fmdReset(void) { + __asm__ volatile ( + "ldx #0x0501\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0601 set 0x01 (ToolLocator) +static inline unsigned short fmdStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0601\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern unsigned long fakeModalDialog(void * a0, void * a1, void * a2, void * a3, unsigned short a4); // 0x0901 +extern void fmdSetMenuProc(void * a0); // 0x0A01 +extern void * fmdGetMenuProc(void); // 0x0B01 +// tool 0x0C01 set 0x01 (ToolLocator) +static inline void fmdStdDrawProc(void) { + __asm__ volatile ( + "ldx #0x0C01\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0D01 set 0x01 (ToolLocator) +static inline void fmdEditMenu(void) { + __asm__ volatile ( + "ldx #0x0D01\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern unsigned short fmdFindCursorCtl(void * a0, unsigned short a1, unsigned short a2, void * a3); // 0x0E01 +extern void fmdLESetText(void * a0, unsigned long a1, void * a2); // 0x0F01 +extern void fmdLEGetText(void * a0, unsigned long a1, void * a2); // 0x1001 +extern unsigned short fmdWhichRadio(void * a0, unsigned long a1); // 0x1101 +// tool 0x1201 set 0x01 (ToolLocator) +static inline void fmdIBeamCursor(void) { + __asm__ volatile ( + "ldx #0x1201\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x1301 set 0x01 (ToolLocator) +static inline void fmdInitIBeam(void) { + __asm__ volatile ( + "ldx #0x1301\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +extern void fmdSetIBeam(void * a0); // 0x1401 +extern void * fmdGetIBeamAdr(void); // 0x1501 +// tool 0x1601 set 0x01 (ToolLocator) +static inline unsigned short fmdGetCtlPart(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1601\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x1701 set 0x01 (ToolLocator) +static inline unsigned short fmdGetError(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x1701\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0102 set 0x02 (MemoryManager) +static inline void pmapBootInit(void) { + __asm__ volatile ( + "ldx #0x0102\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0202 set 0x02 (MemoryManager) +static inline void pmapStartUp(void) { + __asm__ volatile ( + "ldx #0x0202\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0302 set 0x02 (MemoryManager) +static inline void pmapShutDown(void) { + __asm__ volatile ( + "ldx #0x0302\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0402 set 0x02 (MemoryManager) +static inline unsigned short pmapVersion(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0402\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +// tool 0x0502 set 0x02 (MemoryManager) +static inline void pmapReset(void) { + __asm__ volatile ( + "ldx #0x0502\n" + "jsl 0xe10000\n" + : + : + : "a", "x", "y", "memory" + ); +} + +// tool 0x0602 set 0x02 (MemoryManager) +static inline unsigned short pmapStatus(void) { + unsigned short _r; + __asm__ volatile ( + "pha\n" // result space + "ldx #0x0602\n" + "jsl 0xe10000\n" + "pla\n" + : "=a"(_r) + : + : "x", "y", "memory" + ); + return _r; +} + +extern void * pixelMap2Rgn(void * a0, unsigned short a1, unsigned short a2); // 0x0902 +extern void * newPort(void * a0); // 0x0A02 +extern void killPort(void * a0); // 0x0B02 +extern void OS_KIND(unsigned short a0, unsigned short a1); // 0x00BC +// tool 0x00BD set 0xBD (?) +static inline void OS_BOOT(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x00BD\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x00BE set 0xBE (?) +static inline void OS_BUSY(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x00BE\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x006A set 0x6A (?) +static inline void fstError(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x006A\n" + "jsl 0xe100a8\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x0201 set 0x01 (ToolLocator) +static inline void memErr(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x0201\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + +// tool 0x8000 set 0x00 (?) +static inline void tellFinderGetDebugInfo(unsigned short a0) { + __asm__ volatile ( + "pha\n" // arg0 + "ldx #0x8000\n" + "jsl 0xe10000\n" + : + : "a"(a0) + : "x", "y", "memory" + ); +} + #ifdef __cplusplus } diff --git a/runtime/src/iigsToolbox.s b/runtime/src/iigsToolbox.s index f44f42a..700ce07 100644 --- a/runtime/src/iigsToolbox.s +++ b/runtime/src/iigsToolbox.s @@ -1,5 +1,6 @@ -; AUTOGENERATED by scripts/genToolbox.py from ORCA-C ORCACDefs/. +; AUTOGENERATED by scripts/genToolbox.py from NList.Data. ; DO NOT EDIT by hand — regenerate to update. +; Source: tools/nlist/NList.Data.txt (Dave Lyons' NiftyList database). ; ; IIgs toolbox multi-arg wrappers. ; @@ -12,140 +13,11 @@ .text -; ACEInfo(Word) -> LongWord -; tool 0x071D, set 0x1D (ACETools) - .section .text.ACEInfo,"ax" - .globl ACEInfo -ACEInfo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x071D - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ACECompress(Handle, Long, Handle, Long, Word, Word) -> void -; tool 0x091D, set 0x1D (ACETools) - .section .text.ACECompress,"ax" - .globl ACECompress -ACECompress: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Handle, 4B) --- - lda 18, s - pha - lda 18, s - pha - ; --- arg3 (Long, 4B) --- - lda 26, s - pha - lda 26, s - pha - ; --- arg4 (Word, 2B) --- - lda 32, s - pha - ; --- arg5 (Word, 2B) --- - lda 36, s - pha - ldx #0x091D - jsl 0xe10000 - rtl - -; ACEExpand(Handle, Long, Handle, Long, Word, Word) -> void -; tool 0x0A1D, set 0x1D (ACETools) - .section .text.ACEExpand,"ax" - .globl ACEExpand -ACEExpand: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Handle, 4B) --- - lda 18, s - pha - lda 18, s - pha - ; --- arg3 (Long, 4B) --- - lda 26, s - pha - lda 26, s - pha - ; --- arg4 (Word, 2B) --- - lda 32, s - pha - ; --- arg5 (Word, 2B) --- - lda 36, s - pha - ldx #0x0A1D - jsl 0xe10000 - rtl - -; GetACEExpState(Ptr) -> void -; tool 0x0D1D, set 0x1D (ACETools) - .section .text.GetACEExpState,"ax" - .globl GetACEExpState -GetACEExpState: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0D1D - jsl 0xe10000 - rtl - -; SetACEExpState(Ptr) -> void -; tool 0x0E1D, set 0x1D (ACETools) - .section .text.SetACEExpState,"ax" - .globl SetACEExpState -SetACEExpState: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0E1D - jsl 0xe10000 - rtl - -; AsyncADBReceive(Pointer, Word) -> void -; tool 0x0D09, set 0x09 (AppleDeskBus) - .section .text.AsyncADBReceive,"ax" - .globl AsyncADBReceive -AsyncADBReceive: +; Create(Pointer, Word, Word, LongWord, Word, LongWord, LongWord) -> void +; tool 0x2001, set 0x01 (ToolLocator) + .section .text.Create,"ax" + .globl Create +Create: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -157,15 +29,36 @@ AsyncADBReceive: ; --- arg1 (Word, 2B) --- lda 8, s pha - ldx #0x0D09 - jsl 0xe10000 + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg4 (Word, 2B) --- + lda 24, s + pha + ; --- arg5 (LongWord, 4B) --- + lda 30, s + pha + lda 30, s + pha + ; --- arg6 (LongWord, 4B) --- + lda 38, s + pha + lda 38, s + pha + ldx #0x2001 + jsl 0xe100a8 rtl -; GetAbsScale(ScaleRecPtr) -> void -; tool 0x1309, set 0x09 (AppleDeskBus) - .section .text.GetAbsScale,"ax" - .globl GetAbsScale -GetAbsScale: +; Destroy(Pointer) -> void +; tool 0x2002, set 0x02 (MemoryManager) + .section .text.Destroy,"ax" + .globl Destroy +Destroy: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -174,37 +67,15 @@ GetAbsScale: pha lda 0xE0 pha - ldx #0x1309 - jsl 0xe10000 + ldx #0x2002 + jsl 0xe100a8 rtl -; ReadKeyMicroData(Word, Pointer, Word) -> void -; tool 0x0A09, set 0x09 (AppleDeskBus) - .section .text.ReadKeyMicroData,"ax" - .globl ReadKeyMicroData -ReadKeyMicroData: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x0A09 - jsl 0xe10000 - rtl - -; ReadKeyMicroMemory(Pointer, Pointer, Word) -> void -; tool 0x0B09, set 0x09 (AppleDeskBus) - .section .text.ReadKeyMicroMemory,"ax" - .globl ReadKeyMicroMemory -ReadKeyMicroMemory: +; ChangePath(Pointer, Pointer, Word) -> void +; tool 0x2004, set 0x04 (QuickDraw) + .section .text.ChangePath,"ax" + .globl ChangePath +ChangePath: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -221,54 +92,15 @@ ReadKeyMicroMemory: ; --- arg2 (Word, 2B) --- lda 16, s pha - ldx #0x0B09 - jsl 0xe10000 + ldx #0x2004 + jsl 0xe100a8 rtl -; SendInfo(Word, Pointer, Word) -> void -; tool 0x0909, set 0x09 (AppleDeskBus) - .section .text.SendInfo,"ax" - .globl SendInfo -SendInfo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x0909 - jsl 0xe10000 - rtl - -; SetAbsScale(ScaleRecPtr) -> void -; tool 0x1209, set 0x09 (AppleDeskBus) - .section .text.SetAbsScale,"ax" - .globl SetAbsScale -SetAbsScale: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1209 - jsl 0xe10000 - rtl - -; SRQPoll(Pointer, Word) -> void -; tool 0x1409, set 0x09 (AppleDeskBus) - .section .text.SRQPoll,"ax" - .globl SRQPoll -SRQPoll: +; GetFileInfo(Pointer, Word, Word, LongWord, Word, 8B, 8B, Pointer, LongWord, LongWord, LongWord, LongWord) -> void +; tool 0x2006, set 0x06 (EventManager) + .section .text.GetFileInfo,"ax" + .globl GetFileInfo +GetFileInfo: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -280,459 +112,124 @@ SRQPoll: ; --- arg1 (Word, 2B) --- lda 8, s pha - ldx #0x1409 - jsl 0xe10000 - rtl - -; SyncADBReceive(Word, Pointer, Word) -> void -; tool 0x0E09, set 0x09 (AppleDeskBus) - .section .text.SyncADBReceive,"ax" - .globl SyncADBReceive -SyncADBReceive: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 8, s - pha - lda 8, s - pha ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x0E09 - jsl 0xe10000 - rtl - -; CtlStartUp(Word, Word) -> void -; tool 0x0210, set 0x10 (ControlManager) - .section .text.CtlStartUp,"ax" - .globl CtlStartUp -CtlStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0210 - jsl 0xe10000 - rtl - -; DisposeControl(CtlRecHndl) -> void -; tool 0x0A10, set 0x10 (ControlManager) - .section .text.DisposeControl,"ax" - .globl DisposeControl -DisposeControl: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0A10 - jsl 0xe10000 - rtl - -; DragControl(Integer, Integer, Rect, Rect, Word, CtlRecHndl) -> void -; tool 0x1710, set 0x10 (ControlManager) - .section .text.DragControl,"ax" - .globl DragControl -DragControl: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Rect, 4B) --- lda 12, s pha - lda 12, s + ; --- arg3 (LongWord, 4B) --- + lda 18, s pha - ; --- arg3 (Rect, 4B) --- - lda 20, s - pha - lda 20, s + lda 18, s pha ; --- arg4 (Word, 2B) --- - lda 26, s - pha - ; --- arg5 (CtlRecHndl, 4B) --- - lda 32, s - pha - lda 32, s - pha - ldx #0x1710 - jsl 0xe10000 - rtl - -; DragRect(VoidProcPtr, Pattern, Integer, Integer, Rect, Rect, Rect, Word) -> Point -; tool 0x1D10, set 0x10 (ControlManager) - .section .text.DragRect,"ax" - .globl DragRect -DragRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pattern, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg2 (Integer, 2B) --- - lda 20, s - pha - ; --- arg3 (Integer, 2B) --- lda 24, s pha - ; --- arg4 (Rect, 4B) --- - lda 30, s + ; --- arg5 (8B, 8B) --- + lda 28, s pha lda 30, s pha - ; --- arg5 (Rect, 4B) --- - lda 38, s + lda 32, s pha - lda 38, s + lda 34, s pha - ; --- arg6 (Rect, 4B) --- - lda 46, s + ; --- arg6 (8B, 8B) --- + lda 44, s pha lda 46, s pha - ; --- arg7 (Word, 2B) --- - lda 52, s + lda 48, s pha - ldx #0x1D10 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X + lda 50, s + pha + ; --- arg7 (Pointer, 4B) --- + lda 62, s + pha + lda 62, s + pha + ; --- arg8 (LongWord, 4B) --- + lda 70, s + pha + lda 70, s + pha + ; --- arg9 (LongWord, 4B) --- + lda 78, s + pha + lda 78, s + pha + ; --- arg10 (LongWord, 4B) --- + lda 86, s + pha + lda 86, s + pha + ; --- arg11 (LongWord, 4B) --- + lda 94, s + pha + lda 94, s + pha + ldx #0x2006 + jsl 0xe100a8 rtl -; DrawControls(GrafPortPtr) -> void -; tool 0x1010, set 0x10 (ControlManager) - .section .text.DrawControls,"ax" - .globl DrawControls -DrawControls: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1010 - jsl 0xe10000 - rtl - -; DrawOneCtl(CtlRecHndl) -> void -; tool 0x2510, set 0x10 (ControlManager) - .section .text.DrawOneCtl,"ax" - .globl DrawOneCtl -DrawOneCtl: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2510 - jsl 0xe10000 - rtl - -; EraseControl(CtlRecHndl) -> void -; tool 0x2410, set 0x10 (ControlManager) - .section .text.EraseControl,"ax" - .globl EraseControl -EraseControl: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2410 - jsl 0xe10000 - rtl - -; FindControl(CtlRecHndl, Integer, Integer, GrafPortPtr) -> Word -; tool 0x1310, set 0x10 (ControlManager) - .section .text.FindControl,"ax" - .globl FindControl -FindControl: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 10, s - pha - ; --- arg2 (Integer, 2B) --- - lda 14, s - pha - ; --- arg3 (GrafPortPtr, 4B) --- - lda 20, s - pha - lda 20, s - pha - ldx #0x1310 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetCtlAction(CtlRecHndl) -> LongProcPtr -; tool 0x2110, set 0x10 (ControlManager) - .section .text.GetCtlAction,"ax" - .globl GetCtlAction -GetCtlAction: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2110 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetCtlParams(CtlRecHndl) -> LongWord -; tool 0x1C10, set 0x10 (ControlManager) - .section .text.GetCtlParams,"ax" - .globl GetCtlParams -GetCtlParams: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1C10 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetCtlRefCon(CtlRecHndl) -> LongWord -; tool 0x2310, set 0x10 (ControlManager) - .section .text.GetCtlRefCon,"ax" - .globl GetCtlRefCon -GetCtlRefCon: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2310 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetCtlTitle(CtlRecHndl) -> Pointer -; tool 0x0D10, set 0x10 (ControlManager) - .section .text.GetCtlTitle,"ax" - .globl GetCtlTitle -GetCtlTitle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0D10 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetCtlValue(CtlRecHndl) -> Word -; tool 0x1A10, set 0x10 (ControlManager) - .section .text.GetCtlValue,"ax" - .globl GetCtlValue -GetCtlValue: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1A10 - jsl 0xe10000 - pla ; result -> A - rtl - -; GrowSize(void) -> LongWord -; tool 0x1E10, set 0x10 (ControlManager) - .section .text.GrowSize,"ax" - .globl GrowSize -GrowSize: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1E10 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; HideControl(CtlRecHndl) -> void -; tool 0x0E10, set 0x10 (ControlManager) - .section .text.HideControl,"ax" - .globl HideControl -HideControl: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0E10 - jsl 0xe10000 - rtl - -; HiliteControl(Word, CtlRecHndl) -> void -; tool 0x1110, set 0x10 (ControlManager) - .section .text.HiliteControl,"ax" - .globl HiliteControl -HiliteControl: +; JudgeName(Word, Word, Pointer, Word, Pointer, Word) -> void +; tool 0x2007, set 0x07 (Scheduler) + .section .text.JudgeName,"ax" + .globl JudgeName +JudgeName: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (CtlRecHndl, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1110 - jsl 0xe10000 - rtl - -; KillControls(GrafPortPtr) -> void -; tool 0x0B10, set 0x10 (ControlManager) - .section .text.KillControls,"ax" - .globl KillControls -KillControls: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0B10 - jsl 0xe10000 - rtl - -; MoveControl(Integer, Integer, CtlRecHndl) -> void -; tool 0x1610, set 0x10 (ControlManager) - .section .text.MoveControl,"ax" - .globl MoveControl -MoveControl: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- + ; --- arg1 (Word, 2B) --- lda 6, s pha - ; --- arg2 (CtlRecHndl, 4B) --- + ; --- arg2 (Pointer, 4B) --- lda 12, s pha lda 12, s pha - ldx #0x1610 - jsl 0xe10000 + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg5 (Word, 2B) --- + lda 30, s + pha + ldx #0x2007 + jsl 0xe100a8 rtl -; NewControl(GrafPortPtr, Rect, Pointer, Word, Word, Word, Word, LongProcPtr, Longint, Pointer) -> CtlRecHndl -; tool 0x0910, set 0x10 (ControlManager) - .section .text.NewControl,"ax" - .globl NewControl -NewControl: +; Volume(Pointer, Pointer, LongWord, LongWord, Word, Word, Word, Word) -> void +; tool 0x2008, set 0x08 (SoundManager) + .section .text.Volume,"ax" + .globl Volume +Volume: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 ; --- arg0 --- lda 0xE2 pha lda 0xE0 pha - ; --- arg1 (Rect, 4B) --- - lda 14, s + ; --- arg1 (Pointer, 4B) --- + lda 10, s pha - lda 14, s + lda 10, s pha - ; --- arg2 (Pointer, 4B) --- - lda 22, s + ; --- arg2 (LongWord, 4B) --- + lda 18, s pha - lda 22, s + lda 18, s pha - ; --- arg3 (Word, 2B) --- - lda 28, s + ; --- arg3 (LongWord, 4B) --- + lda 26, s + pha + lda 26, s pha ; --- arg4 (Word, 2B) --- lda 32, s @@ -743,2409 +240,18 @@ NewControl: ; --- arg6 (Word, 2B) --- lda 40, s pha - ; --- arg7 (LongProcPtr, 4B) --- - lda 46, s + ; --- arg7 (Word, 2B) --- + lda 44, s pha - lda 46, s - pha - ; --- arg8 (Longint, 4B) --- - lda 54, s - pha - lda 54, s - pha - ; --- arg9 (Pointer, 4B) --- - lda 62, s - pha - lda 62, s - pha - ldx #0x0910 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SetCtlAction(LongProcPtr, CtlRecHndl) -> void -; tool 0x2010, set 0x10 (ControlManager) - .section .text.SetCtlAction,"ax" - .globl SetCtlAction -SetCtlAction: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (CtlRecHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x2010 - jsl 0xe10000 - rtl - -; SetCtlIcons(FontHndl) -> FontHndl -; tool 0x1810, set 0x10 (ControlManager) - .section .text.SetCtlIcons,"ax" - .globl SetCtlIcons -SetCtlIcons: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1810 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SetCtlParams(Word, Word, CtlRecHndl) -> void -; tool 0x1B10, set 0x10 (ControlManager) - .section .text.SetCtlParams,"ax" - .globl SetCtlParams -SetCtlParams: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (CtlRecHndl, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1B10 - jsl 0xe10000 - rtl - -; SetCtlRefCon(Longint, CtlRecHndl) -> void -; tool 0x2210, set 0x10 (ControlManager) - .section .text.SetCtlRefCon,"ax" - .globl SetCtlRefCon -SetCtlRefCon: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (CtlRecHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x2210 - jsl 0xe10000 - rtl - -; SetCtlTitle(Pointer, Handle) -> void -; tool 0x0C10, set 0x10 (ControlManager) - .section .text.SetCtlTitle,"ax" - .globl SetCtlTitle -SetCtlTitle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0C10 - jsl 0xe10000 - rtl - -; SetCtlValue(Word, CtlRecHndl) -> void -; tool 0x1910, set 0x10 (ControlManager) - .section .text.SetCtlValue,"ax" - .globl SetCtlValue -SetCtlValue: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (CtlRecHndl, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1910 - jsl 0xe10000 - rtl - -; ShowControl(CtlRecHndl) -> void -; tool 0x0F10, set 0x10 (ControlManager) - .section .text.ShowControl,"ax" - .globl ShowControl -ShowControl: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0F10 - jsl 0xe10000 - rtl - -; TestControl(Integer, Integer, CtlRecHndl) -> Word -; tool 0x1410, set 0x10 (ControlManager) - .section .text.TestControl,"ax" - .globl TestControl -TestControl: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (CtlRecHndl, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x1410 - jsl 0xe10000 - pla ; result -> A - rtl - -; TrackControl(Integer, Integer, LongProcPtr, CtlRecHndl) -> Word -; tool 0x1510, set 0x10 (ControlManager) - .section .text.TrackControl,"ax" - .globl TrackControl -TrackControl: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (LongProcPtr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg3 (CtlRecHndl, 4B) --- - lda 22, s - pha - lda 22, s - pha - ldx #0x1510 - jsl 0xe10000 - pla ; result -> A - rtl - -; CallCtlDefProc(CtlRecHndl, Word, Long) -> LongWord -; tool 0x2C10, set 0x10 (ControlManager) - .section .text.CallCtlDefProc,"ax" - .globl CallCtlDefProc -CallCtlDefProc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 12, s - pha - ; --- arg2 (Long, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x2C10 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; CMLoadResource(Word, Long) -> Handle -; tool 0x3210, set 0x10 (ControlManager) - .section .text.CMLoadResource,"ax" - .globl CMLoadResource -CMLoadResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x3210 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; CMReleaseResource(Word, Long) -> void -; tool 0x3310, set 0x10 (ControlManager) - .section .text.CMReleaseResource,"ax" - .globl CMReleaseResource -CMReleaseResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x3310 - jsl 0xe10000 - rtl - -; FindTargetCtl(void) -> CtlRecHndl -; tool 0x2610, set 0x10 (ControlManager) - .section .text.FindTargetCtl,"ax" - .globl FindTargetCtl -FindTargetCtl: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2610 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetCtlHandleFromID(WindowPtr, Long) -> CtlRecHndl -; tool 0x3010, set 0x10 (ControlManager) - .section .text.GetCtlHandleFromID,"ax" - .globl GetCtlHandleFromID -GetCtlHandleFromID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x3010 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetCtlID(CtlRecHndl) -> LongWord -; tool 0x2A10, set 0x10 (ControlManager) - .section .text.GetCtlID,"ax" - .globl GetCtlID -GetCtlID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2A10 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetCtlMoreFlags(CtlRecHndl) -> Word -; tool 0x2E10, set 0x10 (ControlManager) - .section .text.GetCtlMoreFlags,"ax" - .globl GetCtlMoreFlags -GetCtlMoreFlags: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2E10 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetCtlParamPtr(void) -> Pointer -; tool 0x3510, set 0x10 (ControlManager) - .section .text.GetCtlParamPtr,"ax" - .globl GetCtlParamPtr -GetCtlParamPtr: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x3510 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; InvalCtls(WindowPtr) -> void -; tool 0x3710, set 0x10 (ControlManager) - .section .text.InvalCtls,"ax" - .globl InvalCtls -InvalCtls: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3710 - jsl 0xe10000 - rtl - -; MakeNextCtlTarget(void) -> CtlRecHndl -; tool 0x2710, set 0x10 (ControlManager) - .section .text.MakeNextCtlTarget,"ax" - .globl MakeNextCtlTarget -MakeNextCtlTarget: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2710 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; MakeThisCtlTarget(CtlRecHndl) -> void -; tool 0x2810, set 0x10 (ControlManager) - .section .text.MakeThisCtlTarget,"ax" - .globl MakeThisCtlTarget -MakeThisCtlTarget: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2810 - jsl 0xe10000 - rtl - -; NewControl2(WindowPtr, Word, Ref) -> CtlRecHndl -; tool 0x3110, set 0x10 (ControlManager) - .section .text.NewControl2,"ax" - .globl NewControl2 -NewControl2: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 12, s - pha - ; --- arg2 (Ref, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x3110 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NotifyControls(Word, Word, Long, WindowPtr) -> void -; tool 0x2D10, set 0x10 (ControlManager) - .section .text.NotifyControls,"ax" - .globl NotifyControls -NotifyControls: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg3 (WindowPtr, 4B) --- - lda 20, s - pha - lda 20, s - pha - ldx #0x2D10 - jsl 0xe10000 - rtl - -; NotifyCtls(Word, Word, Long, WindowPtr) -> void -; tool 0x2D10, set 0x10 (ControlManager) - .section .text.NotifyCtls,"ax" - .globl NotifyCtls -NotifyCtls: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg3 (WindowPtr, 4B) --- - lda 20, s - pha - lda 20, s - pha - ldx #0x2D10 - jsl 0xe10000 - rtl - -; SendEventToCtl(Boolean, WindowPtr, EventRecordPtr) -> Boolean -; tool 0x2910, set 0x10 (ControlManager) - .section .text.SendEventToCtl,"ax" - .globl SendEventToCtl -SendEventToCtl: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (WindowPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (EventRecordPtr, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x2910 - jsl 0xe10000 - pla ; result -> A - rtl - -; SetCtlID(Long, CtlRecHndl) -> void -; tool 0x2B10, set 0x10 (ControlManager) - .section .text.SetCtlID,"ax" - .globl SetCtlID -SetCtlID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (CtlRecHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x2B10 - jsl 0xe10000 - rtl - -; SetCtlMoreFlags(Word, CtlRecHndl) -> void -; tool 0x2F10, set 0x10 (ControlManager) - .section .text.SetCtlMoreFlags,"ax" - .globl SetCtlMoreFlags -SetCtlMoreFlags: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (CtlRecHndl, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x2F10 - jsl 0xe10000 - rtl - -; SetCtlParamPtr(Pointer) -> void -; tool 0x3410, set 0x10 (ControlManager) - .section .text.SetCtlParamPtr,"ax" - .globl SetCtlParamPtr -SetCtlParamPtr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3410 - jsl 0xe10000 - rtl - -; FindRadioButton(WindowPtr, Word) -> Word -; tool 0x3910, set 0x10 (ControlManager) - .section .text.FindRadioButton,"ax" - .globl FindRadioButton -FindRadioButton: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x3910 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetLETextByID(WindowPtr, Long, StringPtr) -> void -; tool 0x3B10, set 0x10 (ControlManager) - .section .text.GetLETextByID,"ax" - .globl GetLETextByID -GetLETextByID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (StringPtr, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x3B10 - jsl 0xe10000 - rtl - -; SetLETextByID(WindowPtr, Long, StringPtr) -> void -; tool 0x3A10, set 0x10 (ControlManager) - .section .text.SetLETextByID,"ax" - .globl SetLETextByID -SetLETextByID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (StringPtr, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x3A10 - jsl 0xe10000 - rtl - -; SetCtlValueByID(Word, GrafPortPtr, Long) -> void -; tool 0x3C10, set 0x10 (ControlManager) - .section .text.SetCtlValueByID,"ax" - .globl SetCtlValueByID -SetCtlValueByID: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Long, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x3C10 - jsl 0xe10000 - rtl - -; GetCtlValueByID(GrafPortPtr, Long) -> Word -; tool 0x3D10, set 0x10 (ControlManager) - .section .text.GetCtlValueByID,"ax" - .globl GetCtlValueByID -GetCtlValueByID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x3D10 - jsl 0xe10000 - pla ; result -> A - rtl - -; InvalOneCtlByID(GrafPortPtr, Long) -> void -; tool 0x3E10, set 0x10 (ControlManager) - .section .text.InvalOneCtlByID,"ax" - .globl InvalOneCtlByID -InvalOneCtlByID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x3E10 - jsl 0xe10000 - rtl - -; HiliteCtlByID(Word, GrafPortPtr, Long) -> void -; tool 0x3F10, set 0x10 (ControlManager) - .section .text.HiliteCtlByID,"ax" - .globl HiliteCtlByID -HiliteCtlByID: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Long, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x3F10 - jsl 0xe10000 - rtl - -; CloseNDAbyWinPtr(GrafPortPtr) -> void -; tool 0x1C05, set 0x05 (DeskManager) - .section .text.CloseNDAbyWinPtr,"ax" - .globl CloseNDAbyWinPtr -CloseNDAbyWinPtr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1C05 - jsl 0xe10000 - rtl - -; CloseNDAByWinPtr(GrafPortPtr) -> void -; tool 0x1C05, set 0x05 (DeskManager) - .section .text.CloseNDAByWinPtr,"ax" - .globl CloseNDAByWinPtr -CloseNDAByWinPtr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1C05 - jsl 0xe10000 - rtl - -; GetDAStrPtr(void) -> Pointer -; tool 0x1405, set 0x05 (DeskManager) - .section .text.GetDAStrPtr,"ax" - .globl GetDAStrPtr -GetDAStrPtr: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1405 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; InstallCDA(Handle) -> void -; tool 0x0F05, set 0x05 (DeskManager) - .section .text.InstallCDA,"ax" - .globl InstallCDA -InstallCDA: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0F05 - jsl 0xe10000 - rtl - -; InstallNDA(Handle) -> void -; tool 0x0E05, set 0x05 (DeskManager) - .section .text.InstallNDA,"ax" - .globl InstallNDA -InstallNDA: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0E05 - jsl 0xe10000 - rtl - -; SetDAStrPtr(Handle, Pointer) -> void -; tool 0x1305, set 0x05 (DeskManager) - .section .text.SetDAStrPtr,"ax" - .globl SetDAStrPtr -SetDAStrPtr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1305 - jsl 0xe10000 - rtl - -; SystemClick(EventRecordPtr, GrafPortPtr, Word) -> void -; tool 0x1705, set 0x05 (DeskManager) - .section .text.SystemClick,"ax" - .globl SystemClick -SystemClick: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Word, 2B) --- - lda 16, s - pha - ldx #0x1705 - jsl 0xe10000 - rtl - -; SystemEvent(Word, Long, Long, Point, Word) -> Boolean -; tool 0x1A05, set 0x05 (DeskManager) - .section .text.SystemEvent,"ax" - .globl SystemEvent -SystemEvent: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Long, 4B) --- - lda 18, s - pha - lda 18, s - pha - ; --- arg3 (Point, 4B) --- - lda 26, s - pha - lda 26, s - pha - ; --- arg4 (Word, 2B) --- - lda 32, s - pha - ldx #0x1A05 - jsl 0xe10000 - pla ; result -> A - rtl - -; AddToRunQ(Pointer) -> void -; tool 0x1F05, set 0x05 (DeskManager) - .section .text.AddToRunQ,"ax" - .globl AddToRunQ -AddToRunQ: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1F05 - jsl 0xe10000 - rtl - -; RemoveCDA(Handle) -> void -; tool 0x2105, set 0x05 (DeskManager) - .section .text.RemoveCDA,"ax" - .globl RemoveCDA -RemoveCDA: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2105 - jsl 0xe10000 - rtl - -; RemoveFromRunQ(Pointer) -> void -; tool 0x2005, set 0x05 (DeskManager) - .section .text.RemoveFromRunQ,"ax" - .globl RemoveFromRunQ -RemoveFromRunQ: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2005 - jsl 0xe10000 - rtl - -; RemoveNDA(Handle) -> void -; tool 0x2205, set 0x05 (DeskManager) - .section .text.RemoveNDA,"ax" - .globl RemoveNDA -RemoveNDA: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2205 - jsl 0xe10000 - rtl - -; CallDeskAcc(Word, Long, Word, Long) -> Word -; tool 0x2405, set 0x05 (DeskManager) - .section .text.CallDeskAcc,"ax" - .globl CallDeskAcc -CallDeskAcc: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Word, 2B) --- - lda 16, s - pha - ; --- arg3 (Long, 4B) --- - lda 22, s - pha - lda 22, s - pha - ldx #0x2405 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetDeskAccInfo(Word, Long, Word, Ptr) -> void -; tool 0x2305, set 0x05 (DeskManager) - .section .text.GetDeskAccInfo,"ax" - .globl GetDeskAccInfo -GetDeskAccInfo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ; --- arg3 (Ptr, 4B) --- - lda 20, s - pha - lda 20, s - pha - ldx #0x2305 - jsl 0xe10000 - rtl - -; GetDeskGlobal(Word) -> LongWord -; tool 0x2505, set 0x05 (DeskManager) - .section .text.GetDeskGlobal,"ax" - .globl GetDeskGlobal -GetDeskGlobal: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x2505 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; Alert(AlertTempPtr, WordProcPtr) -> Word -; tool 0x1715, set 0x15 (DialogManager) - .section .text.Alert,"ax" - .globl Alert -Alert: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (WordProcPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1715 - jsl 0xe10000 - pla ; result -> A - rtl - -; CautionAlert(AlertTempPtr, WordProcPtr) -> Word -; tool 0x1A15, set 0x15 (DialogManager) - .section .text.CautionAlert,"ax" - .globl CautionAlert -CautionAlert: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (WordProcPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1A15 - jsl 0xe10000 - pla ; result -> A - rtl - -; CloseDialog(GrafPortPtr) -> void -; tool 0x0C15, set 0x15 (DialogManager) - .section .text.CloseDialog,"ax" - .globl CloseDialog -CloseDialog: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0C15 - jsl 0xe10000 - rtl - -; DefaultFilter(GrafPortPtr, EventRecordPtr, Word) -> Boolean -; tool 0x3615, set 0x15 (DialogManager) - .section .text.DefaultFilter,"ax" - .globl DefaultFilter -DefaultFilter: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (EventRecordPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Word, 2B) --- - lda 18, s - pha - ldx #0x3615 - jsl 0xe10000 - pla ; result -> A - rtl - -; DialogSelect(EventRecordPtr, GrafPortPtr, Word) -> Boolean -; tool 0x1115, set 0x15 (DialogManager) - .section .text.DialogSelect,"ax" - .globl DialogSelect -DialogSelect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Word, 2B) --- - lda 18, s - pha - ldx #0x1115 - jsl 0xe10000 - pla ; result -> A - rtl - -; DisableDItem(GrafPortPtr, Word) -> void -; tool 0x3915, set 0x15 (DialogManager) - .section .text.DisableDItem,"ax" - .globl DisableDItem -DisableDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x3915 - jsl 0xe10000 - rtl - -; DlgCopy(GrafPortPtr) -> void -; tool 0x1315, set 0x15 (DialogManager) - .section .text.DlgCopy,"ax" - .globl DlgCopy -DlgCopy: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1315 - jsl 0xe10000 - rtl - -; DlgCut(GrafPortPtr) -> void -; tool 0x1215, set 0x15 (DialogManager) - .section .text.DlgCut,"ax" - .globl DlgCut -DlgCut: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1215 - jsl 0xe10000 - rtl - -; DlgDelete(GrafPortPtr) -> void -; tool 0x1515, set 0x15 (DialogManager) - .section .text.DlgDelete,"ax" - .globl DlgDelete -DlgDelete: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1515 - jsl 0xe10000 - rtl - -; DlgPaste(GrafPortPtr) -> void -; tool 0x1415, set 0x15 (DialogManager) - .section .text.DlgPaste,"ax" - .globl DlgPaste -DlgPaste: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1415 - jsl 0xe10000 - rtl - -; DrawDialog(GrafPortPtr) -> void -; tool 0x1615, set 0x15 (DialogManager) - .section .text.DrawDialog,"ax" - .globl DrawDialog -DrawDialog: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1615 - jsl 0xe10000 - rtl - -; EnableDItem(GrafPortPtr, Word) -> void -; tool 0x3A15, set 0x15 (DialogManager) - .section .text.EnableDItem,"ax" - .globl EnableDItem -EnableDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x3A15 - jsl 0xe10000 - rtl - -; ErrorSound(VoidProcPtr) -> void -; tool 0x0915, set 0x15 (DialogManager) - .section .text.ErrorSound,"ax" - .globl ErrorSound -ErrorSound: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0915 - jsl 0xe10000 - rtl - -; FindDItem(GrafPortPtr, Point) -> Word -; tool 0x2415, set 0x15 (DialogManager) - .section .text.FindDItem,"ax" - .globl FindDItem -FindDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Point, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x2415 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetControlDItem(GrafPortPtr, Word) -> CtlRecHndl -; tool 0x1E15, set 0x15 (DialogManager) - .section .text.GetControlDItem,"ax" - .globl GetControlDItem -GetControlDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 12, s - pha - ldx #0x1E15 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetDefButton(GrafPortPtr) -> Word -; tool 0x3715, set 0x15 (DialogManager) - .section .text.GetDefButton,"ax" - .globl GetDefButton -GetDefButton: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3715 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetDItemBox(GrafPortPtr, Word, Rect) -> void -; tool 0x2815, set 0x15 (DialogManager) - .section .text.GetDItemBox,"ax" - .globl GetDItemBox -GetDItemBox: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Rect, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x2815 - jsl 0xe10000 - rtl - -; GetDItemType(GrafPortPtr, Word) -> Word -; tool 0x2615, set 0x15 (DialogManager) - .section .text.GetDItemType,"ax" - .globl GetDItemType -GetDItemType: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x2615 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetDItemValue(GrafPortPtr, Word) -> Word -; tool 0x2E15, set 0x15 (DialogManager) - .section .text.GetDItemValue,"ax" - .globl GetDItemValue -GetDItemValue: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x2E15 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetFirstDItem(GrafPortPtr) -> Word -; tool 0x2A15, set 0x15 (DialogManager) - .section .text.GetFirstDItem,"ax" - .globl GetFirstDItem -GetFirstDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2A15 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetIText(GrafPortPtr, Word, Pointer) -> void -; tool 0x1F15, set 0x15 (DialogManager) - .section .text.GetIText,"ax" - .globl GetIText -GetIText: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x1F15 - jsl 0xe10000 - rtl - -; GetNewDItem(GrafPortPtr, ItemTempPtr) -> void -; tool 0x3315, set 0x15 (DialogManager) - .section .text.GetNewDItem,"ax" - .globl GetNewDItem -GetNewDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (ItemTempPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x3315 - jsl 0xe10000 - rtl - -; GetNewModalDialog(DlgTempPtr) -> DialogPtr -; tool 0x3215, set 0x15 (DialogManager) - .section .text.GetNewModalDialog,"ax" - .globl GetNewModalDialog -GetNewModalDialog: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3215 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetNextDItem(GrafPortPtr, Word) -> Word -; tool 0x2B15, set 0x15 (DialogManager) - .section .text.GetNextDItem,"ax" - .globl GetNextDItem -GetNextDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x2B15 - jsl 0xe10000 - pla ; result -> A - rtl - -; HideDItem(GrafPortPtr, Word) -> void -; tool 0x2215, set 0x15 (DialogManager) - .section .text.HideDItem,"ax" - .globl HideDItem -HideDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x2215 - jsl 0xe10000 - rtl - -; IsDialogEvent(EventRecordPtr) -> Boolean -; tool 0x1015, set 0x15 (DialogManager) - .section .text.IsDialogEvent,"ax" - .globl IsDialogEvent -IsDialogEvent: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1015 - jsl 0xe10000 - pla ; result -> A - rtl - -; ModalDialog(WordProcPtr) -> Word -; tool 0x0F15, set 0x15 (DialogManager) - .section .text.ModalDialog,"ax" - .globl ModalDialog -ModalDialog: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0F15 - jsl 0xe10000 - pla ; result -> A - rtl - -; ModalDialog2(WordProcPtr) -> LongWord -; tool 0x2C15, set 0x15 (DialogManager) - .section .text.ModalDialog2,"ax" - .globl ModalDialog2 -ModalDialog2: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2C15 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NewDItem(GrafPortPtr, Word, Rect, Word, Pointer, Word, Word, Pointer) -> void -; tool 0x0D15, set 0x15 (DialogManager) - .section .text.NewDItem,"ax" - .globl NewDItem -NewDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Rect, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg3 (Word, 2B) --- - lda 20, s - pha - ; --- arg4 (Pointer, 4B) --- - lda 26, s - pha - lda 26, s - pha - ; --- arg5 (Word, 2B) --- - lda 32, s - pha - ; --- arg6 (Word, 2B) --- - lda 36, s - pha - ; --- arg7 (Pointer, 4B) --- - lda 42, s - pha - lda 42, s - pha - ldx #0x0D15 - jsl 0xe10000 - rtl - -; NewModalDialog(Rect, Boolean, LongWord) -> DialogPtr -; tool 0x0A15, set 0x15 (DialogManager) - .section .text.NewModalDialog,"ax" - .globl NewModalDialog -NewModalDialog: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Boolean, 2B) --- - lda 12, s - pha - ; --- arg2 (LongWord, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x0A15 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NewModelessDialog(Rect, Pointer, GrafPortPtr, Word, LongWord, Rect) -> DialogPtr -; tool 0x0B15, set 0x15 (DialogManager) - .section .text.NewModelessDialog,"ax" - .globl NewModelessDialog -NewModelessDialog: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 22, s - pha - lda 22, s - pha - ; --- arg3 (Word, 2B) --- - lda 28, s - pha - ; --- arg4 (LongWord, 4B) --- - lda 34, s - pha - lda 34, s - pha - ; --- arg5 (Rect, 4B) --- - lda 42, s - pha - lda 42, s - pha - ldx #0x0B15 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NoteAlert(AlertTempPtr, WordProcPtr) -> Word -; tool 0x1915, set 0x15 (DialogManager) - .section .text.NoteAlert,"ax" - .globl NoteAlert -NoteAlert: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (WordProcPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1915 - jsl 0xe10000 - pla ; result -> A - rtl - -; ParamText(Pointer, Pointer, Pointer, Pointer) -> void -; tool 0x1B15, set 0x15 (DialogManager) - .section .text.ParamText,"ax" - .globl ParamText -ParamText: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 18, s - pha - lda 18, s - pha - ; --- arg3 (Pointer, 4B) --- - lda 26, s - pha - lda 26, s - pha - ldx #0x1B15 - jsl 0xe10000 - rtl - -; RemoveDItem(GrafPortPtr, Word) -> void -; tool 0x0E15, set 0x15 (DialogManager) - .section .text.RemoveDItem,"ax" - .globl RemoveDItem -RemoveDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x0E15 - jsl 0xe10000 - rtl - -; SelectIText(GrafPortPtr, Word, Word, Word) -> void -; tool 0x2115, set 0x15 (DialogManager) - .section .text.SelectIText,"ax" - .globl SelectIText -SelectIText: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (Word, 2B) --- - lda 16, s - pha - ldx #0x2115 - jsl 0xe10000 - rtl - -; SelIText(GrafPortPtr, Word, Word, Word) -> void -; tool 0x2115, set 0x15 (DialogManager) - .section .text.SelIText,"ax" - .globl SelIText -SelIText: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (Word, 2B) --- - lda 16, s - pha - ldx #0x2115 - jsl 0xe10000 - rtl - -; SetDAFont(FontHndl) -> void -; tool 0x1C15, set 0x15 (DialogManager) - .section .text.SetDAFont,"ax" - .globl SetDAFont -SetDAFont: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1C15 - jsl 0xe10000 - rtl - -; SetDefButton(Word, GrafPortPtr) -> void -; tool 0x3815, set 0x15 (DialogManager) - .section .text.SetDefButton,"ax" - .globl SetDefButton -SetDefButton: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x3815 - jsl 0xe10000 - rtl - -; SetDItemBox(GrafPortPtr, Word, Rect) -> void -; tool 0x2915, set 0x15 (DialogManager) - .section .text.SetDItemBox,"ax" - .globl SetDItemBox -SetDItemBox: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Rect, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x2915 - jsl 0xe10000 - rtl - -; SetDItemType(Word, GrafPortPtr, Word) -> void -; tool 0x2715, set 0x15 (DialogManager) - .section .text.SetDItemType,"ax" - .globl SetDItemType -SetDItemType: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x2715 - jsl 0xe10000 - rtl - -; SetDItemValue(Word, GrafPortPtr, Word) -> void -; tool 0x2F15, set 0x15 (DialogManager) - .section .text.SetDItemValue,"ax" - .globl SetDItemValue -SetDItemValue: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x2F15 - jsl 0xe10000 - rtl - -; SetIText(GrafPortPtr, Word, Pointer) -> void -; tool 0x2015, set 0x15 (DialogManager) - .section .text.SetIText,"ax" - .globl SetIText -SetIText: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x2015 - jsl 0xe10000 - rtl - -; ShowDItem(GrafPortPtr, Word) -> void -; tool 0x2315, set 0x15 (DialogManager) - .section .text.ShowDItem,"ax" - .globl ShowDItem -ShowDItem: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x2315 - jsl 0xe10000 - rtl - -; StopAlert(AlertTempPtr, WordProcPtr) -> Word -; tool 0x1815, set 0x15 (DialogManager) - .section .text.StopAlert,"ax" - .globl StopAlert -StopAlert: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (WordProcPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1815 - jsl 0xe10000 - pla ; result -> A - rtl - -; UpdateDialog(GrafPortPtr, Handle) -> void -; tool 0x2515, set 0x15 (DialogManager) - .section .text.UpdateDialog,"ax" - .globl UpdateDialog -UpdateDialog: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x2515 - jsl 0xe10000 - rtl - -; EMStartUp(Word, Word, Integer, Integer, Integer, Integer, Word) -> void -; tool 0x0206, set 0x06 (EventManager) - .section .text.EMStartUp,"ax" - .globl EMStartUp -EMStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Integer, 2B) --- - lda 10, s - pha - ; --- arg3 (Integer, 2B) --- - lda 14, s - pha - ; --- arg4 (Integer, 2B) --- - lda 18, s - pha - ; --- arg5 (Integer, 2B) --- - lda 22, s - pha - ; --- arg6 (Word, 2B) --- - lda 26, s - pha - ldx #0x0206 - jsl 0xe10000 - rtl - -; EventAvail(Word, EventRecordPtr) -> Boolean -; tool 0x0B06, set 0x06 (EventManager) - .section .text.EventAvail,"ax" - .globl EventAvail -EventAvail: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (EventRecordPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0B06 - jsl 0xe10000 - pla ; result -> A - rtl - -; FakeMouse(Word, Word, Integer, Integer, Word) -> void -; tool 0x1906, set 0x06 (EventManager) - .section .text.FakeMouse,"ax" - .globl FakeMouse -FakeMouse: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Integer, 2B) --- - lda 10, s - pha - ; --- arg3 (Integer, 2B) --- - lda 14, s - pha - ; --- arg4 (Word, 2B) --- - lda 18, s - pha - ldx #0x1906 - jsl 0xe10000 - rtl - -; FlushEvents(Word, Word) -> Word -; tool 0x1506, set 0x06 (EventManager) - .section .text.FlushEvents,"ax" - .globl FlushEvents -FlushEvents: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x1506 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetCaretTime(void) -> LongWord -; tool 0x1206, set 0x06 (EventManager) - .section .text.GetCaretTime,"ax" - .globl GetCaretTime -GetCaretTime: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1206 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetDblTime(void) -> LongWord -; tool 0x1106, set 0x06 (EventManager) - .section .text.GetDblTime,"ax" - .globl GetDblTime -GetDblTime: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1106 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetMouse(Point) -> void -; tool 0x0C06, set 0x06 (EventManager) - .section .text.GetMouse,"ax" - .globl GetMouse -GetMouse: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0C06 - jsl 0xe10000 - rtl - -; GetNextEvent(Word, EventRecordPtr) -> Boolean -; tool 0x0A06, set 0x06 (EventManager) - .section .text.GetNextEvent,"ax" - .globl GetNextEvent -GetNextEvent: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (EventRecordPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0A06 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetOSEvent(Word, EventRecordPtr) -> Boolean -; tool 0x1606, set 0x06 (EventManager) - .section .text.GetOSEvent,"ax" - .globl GetOSEvent -GetOSEvent: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (EventRecordPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1606 - jsl 0xe10000 - pla ; result -> A - rtl - -; OSEventAvail(Word, EventRecordPtr) -> Boolean -; tool 0x1706, set 0x06 (EventManager) - .section .text.OSEventAvail,"ax" - .globl OSEventAvail -OSEventAvail: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (EventRecordPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1706 - jsl 0xe10000 - pla ; result -> A - rtl - -; PostEvent(Word, LongWord) -> Word -; tool 0x1406, set 0x06 (EventManager) - .section .text.PostEvent,"ax" - .globl PostEvent -PostEvent: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (LongWord, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1406 - jsl 0xe10000 - pla ; result -> A - rtl - -; TickCount(void) -> LongWord -; tool 0x1006, set 0x06 (EventManager) - .section .text.TickCount,"ax" - .globl TickCount -TickCount: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1006 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FMStartUp(Word, Word) -> void -; tool 0x021B, set 0x1B (FontManager) - .section .text.FMStartUp,"ax" - .globl FMStartUp -FMStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x021B - jsl 0xe10000 + ldx #0x2008 + jsl 0xe100a8 rtl -; AddFamily(Word, Pointer) -> void -; tool 0x0D1B, set 0x1B (FontManager) - .section .text.AddFamily,"ax" - .globl AddFamily -AddFamily: +; SetPrefix(Word, Pointer) -> void +; tool 0x2009, set 0x09 (AppleDeskBus) + .section .text.SetPrefix,"ax" + .globl SetPrefix +SetPrefix: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- @@ -3156,2081 +262,15 @@ AddFamily: pha lda 8, s pha - ldx #0x0D1B - jsl 0xe10000 - rtl - -; AddFontVar(FontHndl, Word) -> void -; tool 0x141B, set 0x1B (FontManager) - .section .text.AddFontVar,"ax" - .globl AddFontVar -AddFontVar: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x141B - jsl 0xe10000 - rtl - -; ChooseFont(FontID, Word) -> LongWord -; tool 0x161B, set 0x1B (FontManager) - .section .text.ChooseFont,"ax" - .globl ChooseFont -ChooseFont: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 12, s - pha - ldx #0x161B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; CountFonts(FontID, Word) -> Word -; tool 0x101B, set 0x1B (FontManager) - .section .text.CountFonts,"ax" - .globl CountFonts -CountFonts: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x101B - jsl 0xe10000 - pla ; result -> A - rtl - -; FindFamily(Word, Word, Pointer) -> Word -; tool 0x0A1B, set 0x1B (FontManager) - .section .text.FindFamily,"ax" - .globl FindFamily -FindFamily: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0A1B - jsl 0xe10000 - pla ; result -> A - rtl - -; FindFontStats(FontID, Word, Word, FontStatRecPtr) -> void -; tool 0x111B, set 0x1B (FontManager) - .section .text.FindFontStats,"ax" - .globl FindFontStats -FindFontStats: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (FontStatRecPtr, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x111B - jsl 0xe10000 - rtl - -; FixFontMenu(Word, Word, Word) -> void -; tool 0x151B, set 0x1B (FontManager) - .section .text.FixFontMenu,"ax" - .globl FixFontMenu -FixFontMenu: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ldx #0x151B - jsl 0xe10000 - rtl - -; FMGetCurFID(void) -> LongWord -; tool 0x1A1B, set 0x1B (FontManager) - .section .text.FMGetCurFID,"ax" - .globl FMGetCurFID -FMGetCurFID: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1A1B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FMGetSysFID(void) -> LongWord -; tool 0x191B, set 0x1B (FontManager) - .section .text.FMGetSysFID,"ax" - .globl FMGetSysFID -FMGetSysFID: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x191B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FMSetSysFont(FontID) -> void -; tool 0x181B, set 0x1B (FontManager) - .section .text.FMSetSysFont,"ax" - .globl FMSetSysFont -FMSetSysFont: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x181B - jsl 0xe10000 - rtl - -; GetFamInfo(Word, Pointer) -> Word -; tool 0x0B1B, set 0x1B (FontManager) - .section .text.GetFamInfo,"ax" - .globl GetFamInfo -GetFamInfo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0B1B - jsl 0xe10000 - pla ; result -> A - rtl - -; GetFamNum(Pointer) -> Word -; tool 0x0C1B, set 0x1B (FontManager) - .section .text.GetFamNum,"ax" - .globl GetFamNum -GetFamNum: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0C1B - jsl 0xe10000 - pla ; result -> A - rtl - -; InstallFont(FontID, Word) -> void -; tool 0x0E1B, set 0x1B (FontManager) - .section .text.InstallFont,"ax" - .globl InstallFont -InstallFont: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x0E1B - jsl 0xe10000 - rtl - -; LoadFont(FontID, Word, Word, FontStatRecPtr) -> void -; tool 0x121B, set 0x1B (FontManager) - .section .text.LoadFont,"ax" - .globl LoadFont -LoadFont: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (FontStatRecPtr, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x121B - jsl 0xe10000 - rtl - -; SetPurgeStat(FontID, Word) -> void -; tool 0x0F1B, set 0x1B (FontManager) - .section .text.SetPurgeStat,"ax" - .globl SetPurgeStat -SetPurgeStat: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x0F1B - jsl 0xe10000 - rtl - -; InstallWithStats(FontID, Word, Pointer) -> void -; tool 0x1C1B, set 0x1B (FontManager) - .section .text.InstallWithStats,"ax" - .globl InstallWithStats -InstallWithStats: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x1C1B - jsl 0xe10000 - rtl - -; DebugStr(Pointer) -> void -; tool 0x09FF, set 0xFF (?) - .section .text.DebugStr,"ax" - .globl DebugStr -DebugStr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x09FF - jsl 0xe10000 - rtl - -; SetMileStone(Pointer) -> void -; tool 0x0AFF, set 0xFF (?) - .section .text.SetMileStone,"ax" - .globl SetMileStone -SetMileStone: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0AFF - jsl 0xe10000 - rtl - -; DebugSetHook(VoidProcPtr) -> void -; tool 0x0BFF, set 0xFF (?) - .section .text.DebugSetHook,"ax" - .globl DebugSetHook -DebugSetHook: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0BFF - jsl 0xe10000 - rtl - -; DebugGetInfo(Word) -> LongWord -; tool 0x0CFF, set 0xFF (?) - .section .text.DebugGetInfo,"ax" - .globl DebugGetInfo -DebugGetInfo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x0CFF - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; EvalExpr(Str255) -> Handle -; tool 0x0002, set 0x02 (MemoryManager) - .section .text.EvalExpr,"ax" - .globl EvalExpr -EvalExpr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0002 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SendCardMessage(Str255) -> void -; tool 0x0001, set 0x01 (ToolLocator) - .section .text.SendCardMessage,"ax" - .globl SendCardMessage -SendCardMessage: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0001 + ldx #0x2009 jsl 0xe100a8 rtl -; SendHCMessage(Str255) -> void -; tool 0x0005, set 0x05 (DeskManager) - .section .text.SendHCMessage,"ax" - .globl SendHCMessage -SendHCMessage: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0005 - jsl 0xe100a8 - rtl - -; GetGlobal(Str255) -> Handle -; tool 0x0012, set 0x12 (QDAuxiliary) - .section .text.GetGlobal,"ax" - .globl GetGlobal -GetGlobal: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0012 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SetGlobal(Str255, Handle) -> void -; tool 0x0013, set 0x13 (PrintManager) - .section .text.SetGlobal,"ax" - .globl SetGlobal -SetGlobal: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0013 - jsl 0xe100a8 - rtl - -; ZeroBytes(Ptr, long) -> void -; tool 0x0006, set 0x06 (EventManager) - .section .text.ZeroBytes,"ax" - .globl ZeroBytes -ZeroBytes: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0006 - jsl 0xe100a8 - rtl - -; GSStringEqual(GSString255Hndl, GSString255Hndl) -> Boolean -; tool 0x0022, set 0x22 (TextEdit) - .section .text.GSStringEqual,"ax" - .globl GSStringEqual -GSStringEqual: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GSString255Hndl, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x0022 - jsl 0xe100a8 - pla ; result -> A - rtl - -; ScanToReturn(Ptr) -> void -; tool 0x001C, set 0x1C (ListManager) - .section .text.ScanToReturn,"ax" - .globl ScanToReturn -ScanToReturn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x001C - jsl 0xe100a8 - rtl - -; ScanToZero(Ptr) -> void -; tool 0x001D, set 0x1D (ACETools) - .section .text.ScanToZero,"ax" - .globl ScanToZero -ScanToZero: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x001D - jsl 0xe100a8 - rtl - -; StringEqual(Str255, Str255) -> Boolean -; tool 0x001A, set 0x1A (NoteSequencer) - .section .text.StringEqual,"ax" - .globl StringEqual -StringEqual: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Str255, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x001A - jsl 0xe100a8 - pla ; result -> A - rtl - -; StringLength(Ptr) -> Longint -; tool 0x0003, set 0x03 (MiscTools) - .section .text.StringLength,"ax" - .globl StringLength -StringLength: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0003 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; StringMatch(Str255, Ptr) -> Ptr -; tool 0x0004, set 0x04 (QuickDraw) - .section .text.StringMatch,"ax" - .globl StringMatch -StringMatch: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0004 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; BoolToStr(Boolean) -> Str31 -; tool 0x0010, set 0x10 (ControlManager) - .section .text.BoolToStr,"ax" - .globl BoolToStr -BoolToStr: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x0010 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; CopyGSString(GSString255Hndl) -> GSString255Hndl -; tool 0x0020, set 0x20 (VideoOverlay) - .section .text.CopyGSString,"ax" - .globl CopyGSString -CopyGSString: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0020 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ExtToStr(Extended) -> Str31 -; tool 0x0011, set 0x11 (Loader) - .section .text.ExtToStr,"ax" - .globl ExtToStr -ExtToStr: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x0011 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GSConcat(GSString255Hndl, GSString255Hndl) -> GSString255Hndl -; tool 0x0021, set 0x21 (Teletext) - .section .text.GSConcat,"ax" - .globl GSConcat -GSConcat: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GSString255Hndl, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0021 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GSToPString(GSString255Hndl) -> Str255 -; tool 0x001E, set 0x1E (ResourceManager) - .section .text.GSToPString,"ax" - .globl GSToPString -GSToPString: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x001E - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GSToZero(GSString255Hndl) -> Handle -; tool 0x0023, set 0x23 (MediaControl) - .section .text.GSToZero,"ax" - .globl GSToZero -GSToZero: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0023 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LongToStr(Longint) -> Str31 -; tool 0x000D, set 0x0D (?) - .section .text.LongToStr,"ax" - .globl LongToStr -LongToStr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x000D - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NumToHex(Longint, word) -> Str19 -; tool 0x000F, set 0x0F (MenuManager) - .section .text.NumToHex,"ax" - .globl NumToHex -NumToHex: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (word, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x000F - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NumToStr(Longint) -> Str31 -; tool 0x000E, set 0x0E (WindowManager) - .section .text.NumToStr,"ax" - .globl NumToStr -NumToStr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x000E - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PointToStr(Point, Str255) -> void -; tool 0x002D, set 0x2D (?) - .section .text.PointToStr,"ax" - .globl PointToStr -PointToStr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Str255, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x002D - jsl 0xe100a8 - rtl - -; PasToZero(Str255) -> Handle -; tool 0x0007, set 0x07 (Scheduler) - .section .text.PasToZero,"ax" - .globl PasToZero -PasToZero: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0007 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PToGSString(Str255) -> GSString255Hndl -; tool 0x001F, set 0x1F (MIDITools) - .section .text.PToGSString,"ax" - .globl PToGSString -PToGSString: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x001F - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; RectToStr(Rect, Str255) -> void -; tool 0x002E, set 0x2E (?) - .section .text.RectToStr,"ax" - .globl RectToStr -RectToStr: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Str255, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x002E - jsl 0xe100a8 - rtl - -; ReturnToPas(Ptr, Str255) -> void -; tool 0x001B, set 0x1B (FontManager) - .section .text.ReturnToPas,"ax" - .globl ReturnToPas -ReturnToPas: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Str255, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x001B - jsl 0xe100a8 - rtl - -; StrToBool(Str31) -> Boolean -; tool 0x000B, set 0x0B (IntegerMath) - .section .text.StrToBool,"ax" - .globl StrToBool -StrToBool: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x000B - jsl 0xe100a8 - pla ; result -> A - rtl - -; StrToExt(Str31) -> extended -; tool 0x000C, set 0x0C (TextTools) - .section .text.StrToExt,"ax" - .globl StrToExt -StrToExt: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x000C - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; StrToLong(Str31) -> Longint -; tool 0x0009, set 0x09 (AppleDeskBus) - .section .text.StrToLong,"ax" - .globl StrToLong -StrToLong: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0009 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; StrToNum(Str31) -> Longint -; tool 0x000A, set 0x0A (SANE) - .section .text.StrToNum,"ax" - .globl StrToNum -StrToNum: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x000A - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; StrToPoint(Str255, Point) -> void -; tool 0x002F, set 0x2F (?) - .section .text.StrToPoint,"ax" - .globl StrToPoint -StrToPoint: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Point, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x002F - jsl 0xe100a8 - rtl - -; StrToRect(Str255, Rect) -> void -; tool 0x0030, set 0x30 (?) - .section .text.StrToRect,"ax" - .globl StrToRect -StrToRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0030 - jsl 0xe100a8 - rtl - -; ZeroToGS(Handle) -> GSString255Hndl -; tool 0x0024, set 0x24 (?) - .section .text.ZeroToGS,"ax" - .globl ZeroToGS -ZeroToGS: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0024 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ZeroToPas(Ptr, Str255) -> void -; tool 0x0008, set 0x08 (SoundManager) - .section .text.ZeroToPas,"ax" - .globl ZeroToPas -ZeroToPas: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Str255, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0008 - jsl 0xe100a8 - rtl - -; GetFieldByID(Boolean, word) -> Handle -; tool 0x0016, set 0x16 (ScrapManager) - .section .text.GetFieldByID,"ax" - .globl GetFieldByID -GetFieldByID: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (word, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x0016 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetFieldByName(Boolean, Str255) -> Handle -; tool 0x0014, set 0x14 (LineEdit) - .section .text.GetFieldByName,"ax" - .globl GetFieldByName -GetFieldByName: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Str255, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x0014 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetFieldByNum(Boolean, word) -> Handle -; tool 0x0015, set 0x15 (DialogManager) - .section .text.GetFieldByNum,"ax" - .globl GetFieldByNum -GetFieldByNum: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (word, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x0015 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SetFieldByID(Boolean, word, Handle) -> void -; tool 0x0019, set 0x19 (NoteSynth) - .section .text.SetFieldByID,"ax" - .globl SetFieldByID -SetFieldByID: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (word, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Handle, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x0019 - jsl 0xe100a8 - rtl - -; SetFieldByName(Boolean, Str255, Handle) -> void -; tool 0x0017, set 0x17 (StandardFile) - .section .text.SetFieldByName,"ax" - .globl SetFieldByName -SetFieldByName: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Str255, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Handle, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x0017 - jsl 0xe100a8 - rtl - -; SetFieldByNum(Boolean, word, Handle) -> void -; tool 0x0018, set 0x18 (DiskUtil) - .section .text.SetFieldByNum,"ax" - .globl SetFieldByNum -SetFieldByNum: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (word, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Handle, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x0018 - jsl 0xe100a8 - rtl - -; ChangedMaskAndData(word) -> void -; tool 0x002C, set 0x2C (?) - .section .text.ChangedMaskAndData,"ax" - .globl ChangedMaskAndData -ChangedMaskAndData: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x002C - jsl 0xe100a8 - rtl - -; GetMaskAndData(LocInfoPtr, LocInfoPtr) -> void -; tool 0x002B, set 0x2B (?) - .section .text.GetMaskAndData,"ax" - .globl GetMaskAndData -GetMaskAndData: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (LocInfoPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x002B - jsl 0xe100a8 - rtl - -; FindNamedResource(word, Str255, word, long) -> Boolean -; tool 0x0026, set 0x26 (?) - .section .text.FindNamedResource,"ax" - .globl FindNamedResource -FindNamedResource: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Str255, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (word, 4B) --- - lda 20, s - pha - lda 20, s - pha - ; --- arg3 (long, 4B) --- - lda 28, s - pha - lda 28, s - pha - ldx #0x0026 - jsl 0xe100a8 - pla ; result -> A - rtl - -; GetResourceName(word, long) -> Str255 -; tool 0x0028, set 0x28 (?) - .section .text.GetResourceName,"ax" - .globl GetResourceName -GetResourceName: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (long, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0028 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LoadNamedResource(word, Str255) -> Handle -; tool 0x0025, set 0x25 (?) - .section .text.LoadNamedResource,"ax" - .globl LoadNamedResource -LoadNamedResource: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Str255, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0025 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SetResourceName(word, long, Str255) -> void -; tool 0x0027, set 0x27 (?) - .section .text.SetResourceName,"ax" - .globl SetResourceName -SetResourceName: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Str255, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x0027 - jsl 0xe100a8 - rtl - -; NewXWindow(Rect, Str31, Boolean, word) -> WindowPtr -; tool 0x0031, set 0x31 (?) - .section .text.NewXWindow,"ax" - .globl NewXWindow -NewXWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Str31, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg2 (Boolean, 2B) --- - lda 20, s - pha - ; --- arg3 (word, 4B) --- - lda 26, s - pha - lda 26, s - pha - ldx #0x0031 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; CloseXWindow(WindowPtr) -> void -; tool 0x0033, set 0x33 (?) - .section .text.CloseXWindow,"ax" - .globl CloseXWindow -CloseXWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0033 - jsl 0xe100a8 - rtl - -; GetXWindowValue(WindowPtr) -> Longint -; tool 0x0037, set 0x37 (?) - .section .text.GetXWindowValue,"ax" - .globl GetXWindowValue -GetXWindowValue: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0037 - jsl 0xe100a8 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SetXWIdleTime(WindowPtr, Longint) -> void -; tool 0x0032, set 0x32 (MediaControl2) - .section .text.SetXWIdleTime,"ax" - .globl SetXWIdleTime -SetXWIdleTime: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Longint, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0032 - jsl 0xe100a8 - rtl - -; SetXWindowValue(WindowPtr, Longint) -> void -; tool 0x0036, set 0x36 (?) - .section .text.SetXWindowValue,"ax" - .globl SetXWindowValue -SetXWindowValue: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Longint, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0036 - jsl 0xe100a8 - rtl - -; XWAllowReEntrancy(WindowPtr, Boolean, Boolean) -> void -; tool 0x0038, set 0x38 (?) - .section .text.XWAllowReEntrancy,"ax" - .globl XWAllowReEntrancy -XWAllowReEntrancy: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Boolean, 2B) --- - lda 8, s - pha - ; --- arg2 (Boolean, 2B) --- - lda 12, s - pha - ldx #0x0038 - jsl 0xe100a8 - rtl - -; Dec2Int(Pointer, Word, Boolean) -> Integer -; tool 0x280B, set 0x0B (IntegerMath) - .section .text.Dec2Int,"ax" - .globl Dec2Int -Dec2Int: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Boolean, 2B) --- - lda 14, s - pha - ldx #0x280B - jsl 0xe10000 - pla ; result -> A - rtl - -; Dec2Long(Pointer, Word, Boolean) -> Longint -; tool 0x290B, set 0x0B (IntegerMath) - .section .text.Dec2Long,"ax" - .globl Dec2Long -Dec2Long: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 12, s - pha - ; --- arg2 (Boolean, 2B) --- - lda 16, s - pha - ldx #0x290B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; Fix2Frac(Fixed) -> Frac -; tool 0x1C0B, set 0x0B (IntegerMath) - .section .text.Fix2Frac,"ax" - .globl Fix2Frac -Fix2Frac: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1C0B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; Fix2Long(Fixed) -> Longint -; tool 0x1B0B, set 0x0B (IntegerMath) - .section .text.Fix2Long,"ax" - .globl Fix2Long -Fix2Long: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1B0B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; Fix2X(Fixed, ExtendedPtr) -> void -; tool 0x1E0B, set 0x0B (IntegerMath) - .section .text.Fix2X,"ax" - .globl Fix2X -Fix2X: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (ExtendedPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1E0B - jsl 0xe10000 - rtl - -; FixATan2(Longint, Longint) -> Fixed -; tool 0x170B, set 0x0B (IntegerMath) - .section .text.FixATan2,"ax" - .globl FixATan2 -FixATan2: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Longint, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x170B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FixDiv(Longint, Longint) -> Fixed -; tool 0x110B, set 0x0B (IntegerMath) - .section .text.FixDiv,"ax" - .globl FixDiv -FixDiv: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Longint, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x110B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FixMul(Fixed, Fixed) -> Fixed -; tool 0x0F0B, set 0x0B (IntegerMath) - .section .text.FixMul,"ax" - .globl FixMul -FixMul: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Fixed, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0F0B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FixRatio(Integer, Integer) -> Fixed -; tool 0x0E0B, set 0x0B (IntegerMath) - .section .text.FixRatio,"ax" - .globl FixRatio -FixRatio: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 10, s - pha - ldx #0x0E0B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FixRound(Fixed) -> Integer -; tool 0x130B, set 0x0B (IntegerMath) - .section .text.FixRound,"ax" - .globl FixRound -FixRound: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x130B - jsl 0xe10000 - pla ; result -> A - rtl - -; Frac2Fix(Frac) -> Fixed -; tool 0x1D0B, set 0x0B (IntegerMath) - .section .text.Frac2Fix,"ax" - .globl Frac2Fix -Frac2Fix: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1D0B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; Frac2X(Frac, ExtendedPtr) -> void -; tool 0x1F0B, set 0x0B (IntegerMath) - .section .text.Frac2X,"ax" - .globl Frac2X -Frac2X: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (ExtendedPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1F0B - jsl 0xe10000 - rtl - -; FracCos(Fixed) -> Frac -; tool 0x150B, set 0x0B (IntegerMath) - .section .text.FracCos,"ax" - .globl FracCos -FracCos: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x150B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FracDiv(Longint, Longint) -> Frac -; tool 0x120B, set 0x0B (IntegerMath) - .section .text.FracDiv,"ax" - .globl FracDiv -FracDiv: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Longint, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x120B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FracMul(Frac, Frac) -> Frac -; tool 0x100B, set 0x0B (IntegerMath) - .section .text.FracMul,"ax" - .globl FracMul -FracMul: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Frac, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x100B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FracSin(Fixed) -> Frac -; tool 0x160B, set 0x0B (IntegerMath) - .section .text.FracSin,"ax" - .globl FracSin -FracSin: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x160B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FracSqrt(Frac) -> Frac -; tool 0x140B, set 0x0B (IntegerMath) - .section .text.FracSqrt,"ax" - .globl FracSqrt -FracSqrt: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x140B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; Hex2Int(Pointer, Word) -> Word -; tool 0x240B, set 0x0B (IntegerMath) - .section .text.Hex2Int,"ax" - .globl Hex2Int -Hex2Int: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x240B - jsl 0xe10000 - pla ; result -> A - rtl - -; Hex2Long(Pointer, Word) -> LongWord -; tool 0x250B, set 0x0B (IntegerMath) - .section .text.Hex2Long,"ax" - .globl Hex2Long -Hex2Long: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 12, s - pha - ldx #0x250B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; HexIt(Word) -> LongWord -; tool 0x2A0B, set 0x0B (IntegerMath) - .section .text.HexIt,"ax" - .globl HexIt -HexIt: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x2A0B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; HiWord(LongWord) -> Word -; tool 0x180B, set 0x0B (IntegerMath) - .section .text.HiWord,"ax" - .globl HiWord -HiWord: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x180B - jsl 0xe10000 - pla ; result -> A - rtl - -; Int2Dec(Integer, Pointer, Word, Boolean) -> void -; tool 0x260B, set 0x0B (IntegerMath) - .section .text.Int2Dec,"ax" - .globl Int2Dec -Int2Dec: +; GetPrefix(Word, Pointer) -> void +; tool 0x200A, set 0x0A (SANE) + .section .text.GetPrefix,"ax" + .globl GetPrefix +GetPrefix: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- @@ -5241,221 +281,32 @@ Int2Dec: pha lda 8, s pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ; --- arg3 (Boolean, 2B) --- - lda 18, s - pha - ldx #0x260B - jsl 0xe10000 + ldx #0x200A + jsl 0xe100a8 rtl -; Int2Hex(Word, Pointer, Word) -> void -; tool 0x220B, set 0x0B (IntegerMath) - .section .text.Int2Hex,"ax" - .globl Int2Hex -Int2Hex: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x220B - jsl 0xe10000 - rtl - -; Long2Dec(Longint, Pointer, Word, Boolean) -> void -; tool 0x270B, set 0x0B (IntegerMath) - .section .text.Long2Dec,"ax" - .globl Long2Dec -Long2Dec: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Word, 2B) --- - lda 16, s - pha - ; --- arg3 (Boolean, 2B) --- - lda 20, s - pha - ldx #0x270B - jsl 0xe10000 - rtl - -; Long2Fix(Longint) -> Fixed -; tool 0x1A0B, set 0x0B (IntegerMath) - .section .text.Long2Fix,"ax" - .globl Long2Fix -Long2Fix: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1A0B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; Long2Hex(LongWord, Pointer, Word) -> void -; tool 0x230B, set 0x0B (IntegerMath) - .section .text.Long2Hex,"ax" - .globl Long2Hex -Long2Hex: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Word, 2B) --- - lda 16, s - pha - ldx #0x230B - jsl 0xe10000 - rtl - -; LoWord(LongWord) -> Word -; tool 0x190B, set 0x0B (IntegerMath) - .section .text.LoWord,"ax" - .globl LoWord -LoWord: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x190B - jsl 0xe10000 - pla ; result -> A - rtl - -; Multiply(Integer, Integer) -> Longint -; tool 0x090B, set 0x0B (IntegerMath) - .section .text.Multiply,"ax" - .globl Multiply -Multiply: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 10, s - pha - ldx #0x090B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; X2Fix(ExtendedPtr) -> Fixed +; ClearBackup(Pointer) -> void ; tool 0x200B, set 0x0B (IntegerMath) - .section .text.X2Fix,"ax" - .globl X2Fix -X2Fix: + .section .text.ClearBackup,"ax" + .globl ClearBackup +ClearBackup: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 ; --- arg0 --- lda 0xE2 pha lda 0xE0 pha ldx #0x200B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X + jsl 0xe100a8 rtl -; X2Frac(ExtendedPtr) -> Frac -; tool 0x210B, set 0x0B (IntegerMath) - .section .text.X2Frac,"ax" - .globl X2Frac -X2Frac: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x210B - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LEStartUp(Word, Word) -> void -; tool 0x0214, set 0x14 (LineEdit) - .section .text.LEStartUp,"ax" - .globl LEStartUp -LEStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0214 - jsl 0xe10000 - rtl - -; LEActivate(LERecHndl) -> void -; tool 0x0F14, set 0x14 (LineEdit) - .section .text.LEActivate,"ax" - .globl LEActivate -LEActivate: +; ExpandPath(Pointer, Pointer, Word) -> void +; tool 0x200E, set 0x0E (WindowManager) + .section .text.ExpandPath,"ax" + .globl ExpandPath +ExpandPath: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -5464,352 +315,54 @@ LEActivate: pha lda 0xE0 pha - ldx #0x0F14 - jsl 0xe10000 - rtl - -; LEClick(EventRecordPtr, LERecHndl) -> void -; tool 0x0D14, set 0x14 (LineEdit) - .section .text.LEClick,"ax" - .globl LEClick -LEClick: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (LERecHndl, 4B) --- + ; --- arg1 (Pointer, 4B) --- lda 10, s pha lda 10, s pha - ldx #0x0D14 - jsl 0xe10000 - rtl - -; LECopy(LERecHndl) -> void -; tool 0x1314, set 0x14 (LineEdit) - .section .text.LECopy,"ax" - .globl LECopy -LECopy: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1314 - jsl 0xe10000 - rtl - -; LECut(LERecHndl) -> void -; tool 0x1214, set 0x14 (LineEdit) - .section .text.LECut,"ax" - .globl LECut -LECut: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1214 - jsl 0xe10000 - rtl - -; LEDeactivate(LERecHndl) -> void -; tool 0x1014, set 0x14 (LineEdit) - .section .text.LEDeactivate,"ax" - .globl LEDeactivate -LEDeactivate: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1014 - jsl 0xe10000 - rtl - -; LEDelete(LERecHndl) -> void -; tool 0x1514, set 0x14 (LineEdit) - .section .text.LEDelete,"ax" - .globl LEDelete -LEDelete: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1514 - jsl 0xe10000 - rtl - -; LEDispose(LERecHndl) -> void -; tool 0x0A14, set 0x14 (LineEdit) - .section .text.LEDispose,"ax" - .globl LEDispose -LEDispose: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0A14 - jsl 0xe10000 - rtl - -; LEGetTextHand(LERecHndl) -> Handle -; tool 0x2214, set 0x14 (LineEdit) - .section .text.LEGetTextHand,"ax" - .globl LEGetTextHand -LEGetTextHand: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2214 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LEGetTextLen(LERecHndl) -> Word -; tool 0x2314, set 0x14 (LineEdit) - .section .text.LEGetTextLen,"ax" - .globl LEGetTextLen -LEGetTextLen: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2314 - jsl 0xe10000 - pla ; result -> A - rtl - -; LEIdle(LERecHndl) -> void -; tool 0x0C14, set 0x14 (LineEdit) - .section .text.LEIdle,"ax" - .globl LEIdle -LEIdle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0C14 - jsl 0xe10000 - rtl - -; LEInsert(Pointer, Word, LERecHndl) -> void -; tool 0x1614, set 0x14 (LineEdit) - .section .text.LEInsert,"ax" - .globl LEInsert -LEInsert: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (LERecHndl, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x1614 - jsl 0xe10000 - rtl - -; LEKey(Word, Word, LERecHndl) -> void -; tool 0x1114, set 0x14 (LineEdit) - .section .text.LEKey,"ax" - .globl LEKey -LEKey: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (LERecHndl, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1114 - jsl 0xe10000 - rtl - -; LENew(Rect, Rect, Word) -> LERecHndl -; tool 0x0914, set 0x14 (LineEdit) - .section .text.LENew,"ax" - .globl LENew -LENew: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 14, s - pha - lda 14, s - pha ; --- arg2 (Word, 2B) --- - lda 20, s + lda 16, s pha - ldx #0x0914 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X + ldx #0x200E + jsl 0xe100a8 rtl -; LEPaste(LERecHndl) -> void -; tool 0x1414, set 0x14 (LineEdit) - .section .text.LEPaste,"ax" - .globl LEPaste -LEPaste: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1414 - jsl 0xe10000 - rtl - -; LEScrapHandle(void) -> Handle -; tool 0x1B14, set 0x14 (LineEdit) - .section .text.LEScrapHandle,"ax" - .globl LEScrapHandle -LEScrapHandle: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1B14 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LESetCaret(VoidProcPtr, LERecHndl) -> void -; tool 0x1F14, set 0x14 (LineEdit) - .section .text.LESetCaret,"ax" - .globl LESetCaret -LESetCaret: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (LERecHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1F14 - jsl 0xe10000 - rtl - -; LESetHilite(VoidProcPtr, LERecHndl) -> void -; tool 0x1E14, set 0x14 (LineEdit) - .section .text.LESetHilite,"ax" - .globl LESetHilite -LESetHilite: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (LERecHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1E14 - jsl 0xe10000 - rtl - -; LESetJust(Word, LERecHndl) -> void -; tool 0x2114, set 0x14 (LineEdit) - .section .text.LESetJust,"ax" - .globl LESetJust -LESetJust: +; Open(Word, Pointer, Word, Word, Word, Word) -> void +; tool 0x2010, set 0x10 (ControlManager) + .section .text.Open,"ax" + .globl Open +Open: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (LERecHndl, 4B) --- + ; --- arg1 (Pointer, 4B) --- lda 8, s pha lda 8, s pha - ldx #0x2114 - jsl 0xe10000 + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ; --- arg4 (Word, 2B) --- + lda 22, s + pha + ; --- arg5 (Word, 2B) --- + lda 26, s + pha + ldx #0x2010 + jsl 0xe100a8 rtl -; LESetSelect(Word, Word, LERecHndl) -> void -; tool 0x0E14, set 0x14 (LineEdit) - .section .text.LESetSelect,"ax" - .globl LESetSelect -LESetSelect: +; NewLine(Word, Word, Word, Pointer) -> void +; tool 0x2011, set 0x11 (Loader) + .section .text.NewLine,"ax" + .globl NewLine +NewLine: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- @@ -5818,349 +371,308 @@ LESetSelect: ; --- arg1 (Word, 2B) --- lda 6, s pha - ; --- arg2 (LERecHndl, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x0E14 - jsl 0xe10000 - rtl - -; LESetText(Pointer, Word, LERecHndl) -> void -; tool 0x0B14, set 0x14 (LineEdit) - .section .text.LESetText,"ax" - .globl LESetText -LESetText: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (LERecHndl, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0B14 - jsl 0xe10000 - rtl - -; LETextBox(Pointer, Word, Rect, Word) -> void -; tool 0x1814, set 0x14 (LineEdit) - .section .text.LETextBox,"ax" - .globl LETextBox -LETextBox: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Rect, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg3 (Word, 2B) --- - lda 20, s - pha - ldx #0x1814 - jsl 0xe10000 - rtl - -; LETextBox2(Pointer, Word, Rect, Word) -> void -; tool 0x2014, set 0x14 (LineEdit) - .section .text.LETextBox2,"ax" - .globl LETextBox2 -LETextBox2: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Rect, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg3 (Word, 2B) --- - lda 20, s - pha - ldx #0x2014 - jsl 0xe10000 - rtl - -; LEUpdate(LERecHndl) -> void -; tool 0x1714, set 0x14 (LineEdit) - .section .text.LEUpdate,"ax" - .globl LEUpdate -LEUpdate: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1714 - jsl 0xe10000 - rtl - -; GetLEDefProc(void) -> Pointer -; tool 0x2414, set 0x14 (LineEdit) - .section .text.GetLEDefProc,"ax" - .globl GetLEDefProc -GetLEDefProc: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2414 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LEClassifyKey(EventRecordPtr) -> Word -; tool 0x2514, set 0x14 (LineEdit) - .section .text.LEClassifyKey,"ax" - .globl LEClassifyKey -LEClassifyKey: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2514 - jsl 0xe10000 - pla ; result -> A - rtl - -; CreateList(GrafPortPtr, ListRecPtr) -> ListCtlRecHndl -; tool 0x091C, set 0x1C (ListManager) - .section .text.CreateList,"ax" - .globl CreateList -CreateList: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (ListRecPtr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x091C - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; DrawMember(MemRecPtr, ListRecPtr) -> void -; tool 0x0C1C, set 0x1C (ListManager) - .section .text.DrawMember,"ax" - .globl DrawMember -DrawMember: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (ListRecPtr, 4B) --- + ; --- arg2 (Word, 2B) --- lda 10, s pha - lda 10, s + ; --- arg3 (Pointer, 4B) --- + lda 16, s pha - ldx #0x0C1C - jsl 0xe10000 + lda 16, s + pha + ldx #0x2011 + jsl 0xe100a8 rtl -; GetListDefProc(void) -> LongProcPtr -; tool 0x0E1C, set 0x1C (ListManager) - .section .text.GetListDefProc,"ax" - .globl GetListDefProc -GetListDefProc: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x0E1C - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NewList(MemRecPtr, ListRecPtr) -> void -; tool 0x101C, set 0x1C (ListManager) - .section .text.NewList,"ax" - .globl NewList -NewList: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (ListRecPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x101C - jsl 0xe10000 - rtl - -; NextMember(MemRecPtr, ListRecPtr) -> MemRecPtr -; tool 0x0B1C, set 0x1C (ListManager) - .section .text.NextMember,"ax" - .globl NextMember -NextMember: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (ListRecPtr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0B1C - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ResetMember(ListRecPtr) -> MemRecPtr -; tool 0x0F1C, set 0x1C (ListManager) - .section .text.ResetMember,"ax" - .globl ResetMember -ResetMember: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0F1C - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SelectMember(MemRecPtr, ListRecPtr) -> void -; tool 0x0D1C, set 0x1C (ListManager) - .section .text.SelectMember,"ax" - .globl SelectMember -SelectMember: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (ListRecPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0D1C - jsl 0xe10000 - rtl - -; SortList(VoidProcPtr, ListRecPtr) -> void -; tool 0x0A1C, set 0x1C (ListManager) - .section .text.SortList,"ax" - .globl SortList -SortList: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (ListRecPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0A1C - jsl 0xe10000 - rtl - -; DrawMember2(Word, Handle) -> void -; tool 0x111C, set 0x1C (ListManager) - .section .text.DrawMember2,"ax" - .globl DrawMember2 -DrawMember2: +; Read(Word, Pointer, LongWord, LongWord, Word) -> void +; tool 0x2012, set 0x12 (QDAuxiliary) + .section .text.Read,"ax" + .globl Read +Read: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (Handle, 4B) --- + ; --- arg1 (Pointer, 4B) --- lda 8, s pha lda 8, s pha - ldx #0x111C - jsl 0xe10000 + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg4 (Word, 2B) --- + lda 30, s + pha + ldx #0x2012 + jsl 0xe100a8 rtl -; NewList2(Pointer, Word, Ref, Word, Word, Handle) -> void -; tool 0x161C, set 0x1C (ListManager) - .section .text.NewList2,"ax" - .globl NewList2 -NewList2: +; Write(Word, Pointer, LongWord, LongWord, Word) -> void +; tool 0x2013, set 0x13 (PrintManager) + .section .text.Write,"ax" + .globl Write +Write: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg4 (Word, 2B) --- + lda 30, s + pha + ldx #0x2013 + jsl 0xe100a8 + rtl + +; Flush(Word, Word) -> void +; tool 0x2015, set 0x15 (DialogManager) + .section .text.Flush,"ax" + .globl Flush +Flush: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2015 + jsl 0xe100a8 + rtl + +; SetMark(Word, Word, LongWord) -> void +; tool 0x2016, set 0x16 (ScrapManager) + .section .text.SetMark,"ax" + .globl SetMark +SetMark: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x2016 + jsl 0xe100a8 + rtl + +; GetMark(Word, LongWord) -> void +; tool 0x2017, set 0x17 (StandardFile) + .section .text.GetMark,"ax" + .globl GetMark +GetMark: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x2017 + jsl 0xe100a8 + rtl + +; SetEOF(Word, Word, LongWord) -> void +; tool 0x2018, set 0x18 (DiskUtil) + .section .text.SetEOF,"ax" + .globl SetEOF +SetEOF: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x2018 + jsl 0xe100a8 + rtl + +; GetEOF(Word, LongWord) -> void +; tool 0x2019, set 0x19 (NoteSynth) + .section .text.GetEOF,"ax" + .globl GetEOF +GetEOF: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x2019 + jsl 0xe100a8 + rtl + +; SetLevel(Word, Word) -> void +; tool 0x201A, set 0x1A (NoteSequencer) + .section .text.SetLevel,"ax" + .globl SetLevel +SetLevel: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x201A + jsl 0xe100a8 + rtl + +; GetLevel(Word, Word) -> void +; tool 0x201B, set 0x1B (FontManager) + .section .text.GetLevel,"ax" + .globl GetLevel +GetLevel: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x201B + jsl 0xe100a8 + rtl + +; GetDirEntry(Word, Word, Word, Word, Pointer, Word, Word, LongWord, LongWord, 8B, 8B, Word, LongWord, Word, Pointer, LongWord, LongWord) -> void +; tool 0x201C, set 0x1C (ListManager) + .section .text.GetDirEntry,"ax" + .globl GetDirEntry +GetDirEntry: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg5 (Word, 2B) --- + lda 26, s + pha + ; --- arg6 (Word, 2B) --- + lda 30, s + pha + ; --- arg7 (LongWord, 4B) --- + lda 36, s + pha + lda 36, s + pha + ; --- arg8 (LongWord, 4B) --- + lda 44, s + pha + lda 44, s + pha + ; --- arg9 (8B, 8B) --- + lda 50, s + pha + lda 52, s + pha + lda 54, s + pha + lda 56, s + pha + ; --- arg10 (8B, 8B) --- + lda 66, s + pha + lda 68, s + pha + lda 70, s + pha + lda 72, s + pha + ; --- arg11 (Word, 2B) --- + lda 82, s + pha + ; --- arg12 (LongWord, 4B) --- + lda 88, s + pha + lda 88, s + pha + ; --- arg13 (Word, 2B) --- + lda 94, s + pha + ; --- arg14 (Pointer, 4B) --- + lda 100, s + pha + lda 100, s + pha + ; --- arg15 (LongWord, 4B) --- + lda 108, s + pha + lda 108, s + pha + ; --- arg16 (LongWord, 4B) --- + lda 116, s + pha + lda 116, s + pha + ldx #0x201C + jsl 0xe100a8 + rtl + +; GetDevNumber(Pointer, Word) -> void +; tool 0x2020, set 0x20 (VideoOverlay) + .section .text.GetDevNumber,"ax" + .globl GetDevNumber +GetDevNumber: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -6172,10 +684,30 @@ NewList2: ; --- arg1 (Word, 2B) --- lda 8, s pha - ; --- arg2 (Ref, 4B) --- - lda 14, s + ldx #0x2020 + jsl 0xe100a8 + rtl + +; Format(Pointer, Pointer, Word, Word, Word, Word) -> void +; tool 0x2024, set 0x24 (?) + .section .text.Format,"ax" + .globl Format +Format: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 pha - lda 14, s + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s pha ; --- arg3 (Word, 2B) --- lda 20, s @@ -6183,288 +715,18 @@ NewList2: ; --- arg4 (Word, 2B) --- lda 24, s pha - ; --- arg5 (Handle, 4B) --- - lda 30, s + ; --- arg5 (Word, 2B) --- + lda 28, s pha - lda 30, s - pha - ldx #0x161C - jsl 0xe10000 + ldx #0x2024 + jsl 0xe100a8 rtl -; NextMember2(Word, Handle) -> Word -; tool 0x121C, set 0x1C (ListManager) - .section .text.NextMember2,"ax" - .globl NextMember2 -NextMember2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x121C - jsl 0xe10000 - pla ; result -> A - rtl - -; ResetMember2(Handle) -> Word -; tool 0x131C, set 0x1C (ListManager) - .section .text.ResetMember2,"ax" - .globl ResetMember2 -ResetMember2: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x131C - jsl 0xe10000 - pla ; result -> A - rtl - -; SelectMember2(Word, Handle) -> void -; tool 0x141C, set 0x1C (ListManager) - .section .text.SelectMember2,"ax" - .globl SelectMember2 -SelectMember2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x141C - jsl 0xe10000 - rtl - -; SortList2(Pointer, Handle) -> void -; tool 0x151C, set 0x1C (ListManager) - .section .text.SortList2,"ax" - .globl SortList2 -SortList2: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x151C - jsl 0xe10000 - rtl - -; CompareStrings(Word, Ptr, Ptr) -> Word -; tool 0x181C, set 0x1C (ListManager) - .section .text.CompareStrings,"ax" - .globl CompareStrings -CompareStrings: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Ptr, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x181C - jsl 0xe10000 - pla ; result -> A - rtl - -; ListKey(Word, EventRecordPtr, CtlRecHndl) -> void -; tool 0x171C, set 0x1C (ListManager) - .section .text.ListKey,"ax" - .globl ListKey -ListKey: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (EventRecordPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (CtlRecHndl, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x171C - jsl 0xe10000 - rtl - -; GetLoadSegInfo(Word, Word, Word, Pointer) -> void -; tool 0x0F11, set 0x11 (Loader) - .section .text.GetLoadSegInfo,"ax" - .globl GetLoadSegInfo -GetLoadSegInfo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (Pointer, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x0F11 - jsl 0xe10000 - rtl - -; GetUserID(Pointer) -> Word -; tool 0x1011, set 0x11 (Loader) - .section .text.GetUserID,"ax" - .globl GetUserID -GetUserID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1011 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetUserID2(Pointer) -> Word -; tool 0x2111, set 0x11 (Loader) - .section .text.GetUserID2,"ax" - .globl GetUserID2 -GetUserID2: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2111 - jsl 0xe10000 - pla ; result -> A - rtl - -; LGetPathname(Word, Word) -> Pointer -; tool 0x1111, set 0x11 (Loader) - .section .text.LGetPathname,"ax" - .globl LGetPathname -LGetPathname: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x1111 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LGetPathname2(Word, Word) -> Pointer -; tool 0x2211, set 0x11 (Loader) - .section .text.LGetPathname2,"ax" - .globl LGetPathname2 -LGetPathname2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x2211 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LoadSegNum(Word, Word, Word) -> Pointer -; tool 0x0B11, set 0x11 (Loader) - .section .text.LoadSegNum,"ax" - .globl LoadSegNum -LoadSegNum: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x0B11 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; RenamePathname(Pointer, Pointer) -> void -; tool 0x1311, set 0x11 (Loader) - .section .text.RenamePathname,"ax" - .globl RenamePathname -RenamePathname: +; EraseDisk(Pointer, Pointer, Word, Word, Word, Word) -> void +; tool 0x2025, set 0x25 (?) + .section .text.EraseDisk,"ax" + .globl EraseDisk +EraseDisk: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -6478,15 +740,81 @@ RenamePathname: pha lda 10, s pha - ldx #0x1311 - jsl 0xe10000 + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ; --- arg3 (Word, 2B) --- + lda 20, s + pha + ; --- arg4 (Word, 2B) --- + lda 24, s + pha + ; --- arg5 (Word, 2B) --- + lda 28, s + pha + ldx #0x2025 + jsl 0xe100a8 rtl -; UnloadSegNum(Word, Word, Word) -> void -; tool 0x0C11, set 0x11 (Loader) - .section .text.UnloadSegNum,"ax" - .globl UnloadSegNum -UnloadSegNum: +; GetName(Pointer) -> void +; tool 0x2027, set 0x27 (?) + .section .text.GetName,"ax" + .globl GetName +GetName: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2027 + jsl 0xe100a8 + rtl + +; GetBootvol(Pointer) -> void +; tool 0x2028, set 0x28 (?) + .section .text.GetBootvol,"ax" + .globl GetBootvol +GetBootvol: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2028 + jsl 0xe100a8 + rtl + +; Quit(Pointer, Word) -> void +; tool 0x2029, set 0x29 (?) + .section .text.Quit,"ax" + .globl Quit +Quit: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x2029 + jsl 0xe100a8 + rtl + +; GetFSTInfo(Word, Word, Pointer, Word, Word, Word, LongWord, LongWord) -> void +; tool 0x202B, set 0x2B (?) + .section .text.GetFSTInfo,"ax" + .globl GetFSTInfo +GetFSTInfo: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- @@ -6495,81 +823,388 @@ UnloadSegNum: ; --- arg1 (Word, 2B) --- lda 6, s pha - ; --- arg2 (Word, 2B) --- - lda 10, s + ; --- arg2 (Pointer, 4B) --- + lda 12, s pha - ldx #0x0C11 - jsl 0xe10000 + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ; --- arg4 (Word, 2B) --- + lda 22, s + pha + ; --- arg5 (Word, 2B) --- + lda 26, s + pha + ; --- arg6 (LongWord, 4B) --- + lda 32, s + pha + lda 32, s + pha + ; --- arg7 (LongWord, 4B) --- + lda 40, s + pha + lda 40, s + pha + ldx #0x202B + jsl 0xe100a8 rtl -; UserShutDown(Word, Word) -> Word -; tool 0x1211, set 0x11 (Loader) - .section .text.UserShutDown,"ax" - .globl UserShutDown -UserShutDown: +; DInfo(Word, Pointer, Word, LongWord, Word, Word, Word, Word, Pointer, Pointer) -> void +; tool 0x202C, set 0x2C (?) + .section .text.DInfo,"ax" + .globl DInfo +DInfo: ; --- stash arg0 (in A) --- sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 ; --- arg0 --- lda 0xE0 pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg4 (Word, 2B) --- + lda 26, s + pha + ; --- arg5 (Word, 2B) --- + lda 30, s + pha + ; --- arg6 (Word, 2B) --- + lda 34, s + pha + ; --- arg7 (Word, 2B) --- + lda 38, s + pha + ; --- arg8 (Pointer, 4B) --- + lda 44, s + pha + lda 44, s + pha + ; --- arg9 (Pointer, 4B) --- + lda 52, s + pha + lda 52, s + pha + ldx #0x202C + jsl 0xe100a8 + rtl + +; DStatus(Word, Word, Pointer, LongWord, LongWord) -> void +; tool 0x202D, set 0x2D (?) + .section .text.DStatus,"ax" + .globl DStatus +DStatus: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 28, s + pha + lda 28, s + pha + ldx #0x202D + jsl 0xe100a8 + rtl + +; DControl(Word, Word, Pointer, LongWord, LongWord) -> void +; tool 0x202E, set 0x2E (?) + .section .text.DControl,"ax" + .globl DControl +DControl: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 28, s + pha + lda 28, s + pha + ldx #0x202E + jsl 0xe100a8 + rtl + +; DRead(Word, Pointer, LongWord, LongWord, Word, LongWord) -> void +; tool 0x202F, set 0x2F (?) + .section .text.DRead,"ax" + .globl DRead +DRead: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg4 (Word, 2B) --- + lda 30, s + pha + ; --- arg5 (LongWord, 4B) --- + lda 36, s + pha + lda 36, s + pha + ldx #0x202F + jsl 0xe100a8 + rtl + +; DWrite(Word, Pointer, LongWord, LongWord, Word, LongWord) -> void +; tool 0x2030, set 0x30 (?) + .section .text.DWrite,"ax" + .globl DWrite +DWrite: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg4 (Word, 2B) --- + lda 30, s + pha + ; --- arg5 (LongWord, 4B) --- + lda 36, s + pha + lda 36, s + pha + ldx #0x2030 + jsl 0xe100a8 + rtl + +; BindInt(Word, Word, Pointer) -> void +; tool 0x2031, set 0x31 (?) + .section .text.BindInt,"ax" + .globl BindInt +BindInt: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x2031 + jsl 0xe100a8 + rtl + +; AddNotifyProc(Pointer) -> void +; tool 0x2034, set 0x34 (?) + .section .text.AddNotifyProc,"ax" + .globl AddNotifyProc +AddNotifyProc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2034 + jsl 0xe100a8 + rtl + +; DelNotifyProc(Pointer) -> void +; tool 0x2035, set 0x35 (?) + .section .text.DelNotifyProc,"ax" + .globl DelNotifyProc +DelNotifyProc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2035 + jsl 0xe100a8 + rtl + +; DRename(Word, Pointer) -> void +; tool 0x2036, set 0x36 (?) + .section .text.DRename,"ax" + .globl DRename +DRename: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x2036 + jsl 0xe100a8 + rtl + +; GetStdRefNum(Word, Word) -> void +; tool 0x2037, set 0x37 (?) + .section .text.GetStdRefNum,"ax" + .globl GetStdRefNum +GetStdRefNum: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2037 + jsl 0xe100a8 + rtl + +; GetRefNum(Pointer, Word, Word, Word, Word, Word) -> void +; tool 0x2038, set 0x38 (?) + .section .text.GetRefNum,"ax" + .globl GetRefNum +GetRefNum: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha ; --- arg1 (Word, 2B) --- lda 8, s pha - ldx #0x1211 - jsl 0xe10000 - pla ; result -> A + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 16, s + pha + ; --- arg4 (Word, 2B) --- + lda 20, s + pha + ; --- arg5 (Word, 2B) --- + lda 24, s + pha + ldx #0x2038 + jsl 0xe100a8 rtl -; GetPathname(void) -> Pointer -; tool 0x1111, set 0x11 (Loader) - .section .text.GetPathname,"ax" - .globl GetPathname -GetPathname: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1111 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetPathname2(void) -> Pointer -; tool 0x2211, set 0x11 (Loader) - .section .text.GetPathname2,"ax" - .globl GetPathname2 -GetPathname2: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2211 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetFuncPtr(Word, Word) -> Pointer -; tool 0x0B01, set 0x01 (ToolLocator) - .section .text.GetFuncPtr,"ax" - .globl GetFuncPtr -GetFuncPtr: +; GetRefInfo(Word, Word, Pointer, Word, Word) -> void +; tool 0x2039, set 0x39 (?) + .section .text.GetRefInfo,"ax" + .globl GetRefInfo +GetRefInfo: ; --- stash arg0 (in A) --- sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 ; --- arg0 --- lda 0xE0 pha ; --- arg1 (Word, 2B) --- - lda 10, s + lda 6, s pha - ldx #0x0B01 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ; --- arg4 (Word, 2B) --- + lda 22, s + pha + ldx #0x2039 + jsl 0xe100a8 + rtl + +; SetStdRefNum(Word, Word) -> void +; tool 0x203A, set 0x3A (?) + .section .text.SetStdRefNum,"ax" + .globl SetStdRefNum +SetStdRefNum: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x203A + jsl 0xe100a8 rtl ; GetTSPtr(Word, Word) -> Pointer @@ -6594,115 +1229,6 @@ GetTSPtr: plx ; result hi -> X rtl -; GetWAP(Word, Word) -> Pointer -; tool 0x0C01, set 0x01 (ToolLocator) - .section .text.GetWAP,"ax" - .globl GetWAP -GetWAP: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x0C01 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LoadOneTool(Word, Word) -> void -; tool 0x0F01, set 0x01 (ToolLocator) - .section .text.LoadOneTool,"ax" - .globl LoadOneTool -LoadOneTool: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0F01 - jsl 0xe10000 - rtl - -; LoadTools(Pointer) -> void -; tool 0x0E01, set 0x01 (ToolLocator) - .section .text.LoadTools,"ax" - .globl LoadTools -LoadTools: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0E01 - jsl 0xe10000 - rtl - -; MessageCenter(Word, Word, Handle) -> void -; tool 0x1501, set 0x01 (ToolLocator) - .section .text.MessageCenter,"ax" - .globl MessageCenter -MessageCenter: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Handle, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1501 - jsl 0xe10000 - rtl - -; RestoreTextState(Handle) -> void -; tool 0x1401, set 0x01 (ToolLocator) - .section .text.RestoreTextState,"ax" - .globl RestoreTextState -RestoreTextState: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1401 - jsl 0xe10000 - rtl - -; SaveTextState(void) -> Handle -; tool 0x1301, set 0x01 (ToolLocator) - .section .text.SaveTextState,"ax" - .globl SaveTextState -SaveTextState: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1301 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - ; SetTSPtr(Word, Word, Pointer) -> void ; tool 0x0A01, set 0x01 (ToolLocator) .section .text.SetTSPtr,"ax" @@ -6725,6 +1251,50 @@ SetTSPtr: jsl 0xe10000 rtl +; GetFuncPtr(Word, Word) -> Pointer +; tool 0x0B01, set 0x01 (ToolLocator) + .section .text.GetFuncPtr,"ax" + .globl GetFuncPtr +GetFuncPtr: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x0B01 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetWAP(Word, Word) -> Pointer +; tool 0x0C01, set 0x01 (ToolLocator) + .section .text.GetWAP,"ax" + .globl GetWAP +GetWAP: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x0C01 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + ; SetWAP(Word, Word, Pointer) -> void ; tool 0x0D01, set 0x01 (ToolLocator) .section .text.SetWAP,"ax" @@ -6747,7 +1317,41 @@ SetWAP: jsl 0xe10000 rtl -; TLMountVolume(Integer, Integer, Pointer, Pointer, Pointer, Pointer) -> Word +; LoadTools(Pointer) -> void +; tool 0x0E01, set 0x01 (ToolLocator) + .section .text.LoadTools,"ax" + .globl LoadTools +LoadTools: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0E01 + jsl 0xe10000 + rtl + +; LoadOneTool(Word, Word) -> void +; tool 0x0F01, set 0x01 (ToolLocator) + .section .text.LoadOneTool,"ax" + .globl LoadOneTool +LoadOneTool: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0F01 + jsl 0xe10000 + rtl + +; TLMountVolume(Word, Word, Pointer, Pointer, Pointer, Pointer) -> Word ; tool 0x1101, set 0x01 (ToolLocator) .section .text.TLMountVolume,"ax" .globl TLMountVolume @@ -6759,7 +1363,7 @@ TLMountVolume: ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (Integer, 2B) --- + ; --- arg1 (Word, 2B) --- lda 8, s pha ; --- arg2 (Pointer, 4B) --- @@ -6822,7 +1426,60 @@ TLTextMountVolume: pla ; result -> A rtl -; MessageByName(Boolean, Pointer) -> ResponseRecord +; SaveTextState(void) -> Pointer +; tool 0x1301, set 0x01 (ToolLocator) + .section .text.SaveTextState,"ax" + .globl SaveTextState +SaveTextState: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1301 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; RestoreTextState(Pointer) -> void +; tool 0x1401, set 0x01 (ToolLocator) + .section .text.RestoreTextState,"ax" + .globl RestoreTextState +RestoreTextState: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1401 + jsl 0xe10000 + rtl + +; MessageCenter(Word, Word, Pointer) -> void +; tool 0x1501, set 0x01 (ToolLocator) + .section .text.MessageCenter,"ax" + .globl MessageCenter +MessageCenter: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1501 + jsl 0xe10000 + rtl + +; MessageByName(Word, Pointer) -> LongWord ; tool 0x1701, set 0x01 (ToolLocator) .section .text.MessageByName,"ax" .globl MessageByName @@ -6846,26 +1503,7 @@ MessageByName: plx ; result hi -> X rtl -; ShutDownTools(Word, Ref) -> void -; tool 0x1901, set 0x01 (ToolLocator) - .section .text.ShutDownTools,"ax" - .globl ShutDownTools -ShutDownTools: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1901 - jsl 0xe10000 - rtl - -; StartUpTools(Word, Word, Ref) -> Ref +; StartUpTools(Word, Word, LongWord) -> LongWord ; tool 0x1801, set 0x01 (ToolLocator) .section .text.StartUpTools,"ax" .globl StartUpTools @@ -6881,7 +1519,7 @@ StartUpTools: ; --- arg1 (Word, 2B) --- lda 10, s pha - ; --- arg2 (Ref, 4B) --- + ; --- arg2 (LongWord, 4B) --- lda 16, s pha lda 16, s @@ -6892,7 +1530,50 @@ StartUpTools: plx ; result hi -> X rtl -; AcceptRequests(Pointer, Word, WordProcPtr) -> void +; ShutDownTools(Word, LongWord) -> void +; tool 0x1901, set 0x01 (ToolLocator) + .section .text.ShutDownTools,"ax" + .globl ShutDownTools +ShutDownTools: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1901 + jsl 0xe10000 + rtl + +; GetMsgHandle(Word, LongWord) -> Pointer +; tool 0x1A01, set 0x01 (ToolLocator) + .section .text.GetMsgHandle,"ax" + .globl GetMsgHandle +GetMsgHandle: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1A01 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; AcceptRequests(Pointer, Word, Pointer) -> void ; tool 0x1B01, set 0x01 (ToolLocator) .section .text.AcceptRequests,"ax" .globl AcceptRequests @@ -6908,7 +1589,7 @@ AcceptRequests: ; --- arg1 (Word, 2B) --- lda 8, s pha - ; --- arg2 (WordProcPtr, 4B) --- + ; --- arg2 (Pointer, 4B) --- lda 14, s pha lda 14, s @@ -6917,31 +1598,7 @@ AcceptRequests: jsl 0xe10000 rtl -; GetMsgHandle(Word, Long) -> Handle -; tool 0x1A01, set 0x01 (ToolLocator) - .section .text.GetMsgHandle,"ax" - .globl GetMsgHandle -GetMsgHandle: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1A01 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SendRequest(Word, Word, Long, Long, Ptr) -> void +; SendRequest(Word, Word, LongWord, Pointer, Pointer) -> void ; tool 0x1C01, set 0x01 (ToolLocator) .section .text.SendRequest,"ax" .globl SendRequest @@ -6954,17 +1611,17 @@ SendRequest: ; --- arg1 (Word, 2B) --- lda 6, s pha - ; --- arg2 (Long, 4B) --- + ; --- arg2 (LongWord, 4B) --- lda 12, s pha lda 12, s pha - ; --- arg3 (Long, 4B) --- + ; --- arg3 (Pointer, 4B) --- lda 20, s pha lda 20, s pha - ; --- arg4 (Ptr, 4B) --- + ; --- arg4 (Pointer, 4B) --- lda 28, s pha lda 28, s @@ -6973,11 +1630,11 @@ SendRequest: jsl 0xe10000 rtl -; MCBinToTime(Long) -> Long -; tool 0x0D26, set 0x26 (?) - .section .text.MCBinToTime,"ax" - .globl MCBinToTime -MCBinToTime: +; NewHandle(LongWord, Word, Word, Pointer) -> Pointer +; tool 0x0902, set 0x02 (MemoryManager) + .section .text.NewHandle,"ax" + .globl NewHandle +NewHandle: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -6989,608 +1646,61 @@ MCBinToTime: pha lda 0xE0 pha - ldx #0x0D26 + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 22, s + pha + lda 22, s + pha + ldx #0x0902 jsl 0xe10000 pla ; result lo -> A plx ; result hi -> X rtl -; MCControl(Word, Word) -> void -; tool 0x1B26, set 0x26 (?) - .section .text.MCControl,"ax" - .globl MCControl -MCControl: - ; --- stash arg0 (in A) --- +; ReAllocHandle(LongWord, Word, Word, Pointer, Pointer) -> void +; tool 0x0A02, set 0x02 (MemoryManager) + .section .text.ReAllocHandle,"ax" + .globl ReAllocHandle +ReAllocHandle: + ; --- stash arg0 (in A/X) --- sta 0xE0 + stx 0xE2 ; --- arg0 --- + lda 0xE2 + pha lda 0xE0 pha ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x1B26 - jsl 0xe10000 - rtl - -; MCDStartUp(Word, Ptr, Word) -> void -; tool 0x1426, set 0x26 (?) - .section .text.MCDStartUp,"ax" - .globl MCDStartUp -MCDStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 8, s - pha lda 8, s pha ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x1426 - jsl 0xe10000 - rtl - -; MCGetDiscID(Word) -> Long -; tool 0x2826, set 0x26 (?) - .section .text.MCGetDiscID,"ax" - .globl MCGetDiscID -MCGetDiscID: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x2826 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; MCGetDiscTitle(Long, Ptr) -> void -; tool 0x1226, set 0x26 (?) - .section .text.MCGetDiscTitle,"ax" - .globl MCGetDiscTitle -MCGetDiscTitle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1226 - jsl 0xe10000 - rtl - -; MCGetDiscTOC(Word, Word) -> Long -; tool 0x2726, set 0x26 (?) - .section .text.MCGetDiscTOC,"ax" - .globl MCGetDiscTOC -MCGetDiscTOC: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x2726 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; MCGetErrorMsg(Word, Ptr) -> void -; tool 0x0926, set 0x26 (?) - .section .text.MCGetErrorMsg,"ax" - .globl MCGetErrorMsg -MCGetErrorMsg: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x0926 - jsl 0xe10000 - rtl - -; MCGetFeatures(Word, Word) -> Long -; tool 0x1626, set 0x26 (?) - .section .text.MCGetFeatures,"ax" - .globl MCGetFeatures -MCGetFeatures: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x1626 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; MCGetName(Word, Ptr) -> void -; tool 0x2D26, set 0x26 (?) - .section .text.MCGetName,"ax" - .globl MCGetName -MCGetName: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x2D26 - jsl 0xe10000 - rtl - -; MCGetPosition(Word, Word) -> Long -; tool 0x2426, set 0x26 (?) - .section .text.MCGetPosition,"ax" - .globl MCGetPosition -MCGetPosition: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x2426 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; MCGetProgram(Long, Ptr) -> void -; tool 0x1026, set 0x26 (?) - .section .text.MCGetProgram,"ax" - .globl MCGetProgram -MCGetProgram: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1026 - jsl 0xe10000 - rtl - -; MCGetSpeeds(Word, Ptr) -> void -; tool 0x1D26, set 0x26 (?) - .section .text.MCGetSpeeds,"ax" - .globl MCGetSpeeds -MCGetSpeeds: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1D26 - jsl 0xe10000 - rtl - -; MCGetStatus(Word, Word) -> Word -; tool 0x1A26, set 0x26 (?) - .section .text.MCGetStatus,"ax" - .globl MCGetStatus -MCGetStatus: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x1A26 - jsl 0xe10000 - pla ; result -> A - rtl - -; MCGetTimes(Word, Word) -> Long -; tool 0x2626, set 0x26 (?) - .section .text.MCGetTimes,"ax" - .globl MCGetTimes -MCGetTimes: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x2626 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; MCGetTrackTitle(Long, Word, Ptr) -> void -; tool 0x0E26, set 0x26 (?) - .section .text.MCGetTrackTitle,"ax" - .globl MCGetTrackTitle -MCGetTrackTitle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Ptr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0E26 - jsl 0xe10000 - rtl - -; MCJog(Word, Long, Word) -> void -; tool 0x2026, set 0x26 (?) - .section .text.MCJog,"ax" - .globl MCJog -MCJog: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x2026 - jsl 0xe10000 - rtl - -; MCScan(Word, Word) -> void -; tool 0x1C26, set 0x26 (?) - .section .text.MCScan,"ax" - .globl MCScan -MCScan: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x1C26 - jsl 0xe10000 - rtl - -; MCSearchTo(Word, Word, Long) -> void -; tool 0x2126, set 0x26 (?) - .section .text.MCSearchTo,"ax" - .globl MCSearchTo -MCSearchTo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Long, 4B) --- lda 12, s pha - lda 12, s - pha - ldx #0x2126 - jsl 0xe10000 - rtl - -; MCSendRawData(Word, Long) -> void -; tool 0x1926, set 0x26 (?) - .section .text.MCSendRawData,"ax" - .globl MCSendRawData -MCSendRawData: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1926 - jsl 0xe10000 - rtl - -; MCSetAudio(Word, Word) -> void -; tool 0x2526, set 0x26 (?) - .section .text.MCSetAudio,"ax" - .globl MCSetAudio -MCSetAudio: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x2526 - jsl 0xe10000 - rtl - -; MCSetDiscTitle(Long, Long) -> void -; tool 0x1326, set 0x26 (?) - .section .text.MCSetDiscTitle,"ax" - .globl MCSetDiscTitle -MCSetDiscTitle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1326 - jsl 0xe10000 - rtl - -; MCSetProgram(Long, Long) -> void -; tool 0x1126, set 0x26 (?) - .section .text.MCSetProgram,"ax" - .globl MCSetProgram -MCSetProgram: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1126 - jsl 0xe10000 - rtl - -; MCSetTrackTitle(Long, Word, Ptr) -> void -; tool 0x0F26, set 0x26 (?) - .section .text.MCSetTrackTitle,"ax" - .globl MCSetTrackTitle -MCSetTrackTitle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Ptr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0F26 - jsl 0xe10000 - rtl - -; MCSetVolume(Word, Word, Word) -> void -; tool 0x2E26, set 0x26 (?) - .section .text.MCSetVolume,"ax" - .globl MCSetVolume -MCSetVolume: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ldx #0x2E26 - jsl 0xe10000 - rtl - -; MCSpeed(Word, Word) -> void -; tool 0x1E26, set 0x26 (?) - .section .text.MCSpeed,"ax" - .globl MCSpeed -MCSpeed: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x1E26 - jsl 0xe10000 - rtl - -; MCStopAt(Word, Word, Long) -> void -; tool 0x1F26, set 0x26 (?) - .section .text.MCStopAt,"ax" - .globl MCStopAt -MCStopAt: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1F26 - jsl 0xe10000 - rtl - -; MCTimeToBin(Long) -> Long -; tool 0x0C26, set 0x26 (?) - .section .text.MCTimeToBin,"ax" - .globl MCTimeToBin -MCTimeToBin: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0C26 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; MCWaitRawData(Word, Ptr, Word, Word) -> void -; tool 0x2C26, set 0x26 (?) - .section .text.MCWaitRawData,"ax" - .globl MCWaitRawData -MCWaitRawData: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ; --- arg3 (Word, 2B) --- - lda 18, s - pha - ldx #0x2C26 - jsl 0xe10000 - rtl - -; BlockMove(Pointer, Pointer, LongWord) -> void -; tool 0x2B02, set 0x02 (MemoryManager) - .section .text.BlockMove,"ax" - .globl BlockMove -BlockMove: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (LongWord, 4B) --- + ; --- arg3 (Pointer, 4B) --- lda 18, s pha lda 18, s pha - ldx #0x2B02 + ; --- arg4 (Pointer, 4B) --- + lda 26, s + pha + lda 26, s + pha + ldx #0x0A02 jsl 0xe10000 rtl -; CheckHandle(Handle) -> void -; tool 0x1E02, set 0x02 (MemoryManager) - .section .text.CheckHandle,"ax" - .globl CheckHandle -CheckHandle: +; RestoreHandle(Pointer) -> void +; tool 0x0B02, set 0x02 (MemoryManager) + .section .text.RestoreHandle,"ax" + .globl RestoreHandle +RestoreHandle: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -7599,11 +1709,45 @@ CheckHandle: pha lda 0xE0 pha - ldx #0x1E02 + ldx #0x0B02 jsl 0xe10000 rtl -; DisposeHandle(Handle) -> void +; AddToOOMQueue(Pointer) -> void +; tool 0x0C02, set 0x02 (MemoryManager) + .section .text.AddToOOMQueue,"ax" + .globl AddToOOMQueue +AddToOOMQueue: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0C02 + jsl 0xe10000 + rtl + +; RemoveFromOOMQueue(Pointer) -> void +; tool 0x0D02, set 0x02 (MemoryManager) + .section .text.RemoveFromOOMQueue,"ax" + .globl RemoveFromOOMQueue +RemoveFromOOMQueue: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0D02 + jsl 0xe10000 + rtl + +; DisposeHandle(Pointer) -> void ; tool 0x1002, set 0x02 (MemoryManager) .section .text.DisposeHandle,"ax" .globl DisposeHandle @@ -7620,7 +1764,68 @@ DisposeHandle: jsl 0xe10000 rtl -; FindHandle(Pointer) -> Handle +; PurgeHandle(Pointer) -> void +; tool 0x1202, set 0x02 (MemoryManager) + .section .text.PurgeHandle,"ax" + .globl PurgeHandle +PurgeHandle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1202 + jsl 0xe10000 + rtl + +; GetHandleSize(Pointer) -> LongWord +; tool 0x1802, set 0x02 (MemoryManager) + .section .text.GetHandleSize,"ax" + .globl GetHandleSize +GetHandleSize: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1802 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetHandleSize(LongWord, Pointer) -> void +; tool 0x1902, set 0x02 (MemoryManager) + .section .text.SetHandleSize,"ax" + .globl SetHandleSize +SetHandleSize: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1902 + jsl 0xe10000 + rtl + +; FindHandle(Pointer) -> Pointer ; tool 0x1A02, set 0x02 (MemoryManager) .section .text.FindHandle,"ax" .globl FindHandle @@ -7656,33 +1861,39 @@ FreeMem: plx ; result hi -> X rtl -; GetHandleSize(Handle) -> LongWord -; tool 0x1802, set 0x02 (MemoryManager) - .section .text.GetHandleSize,"ax" - .globl GetHandleSize -GetHandleSize: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 +; MaxBlock(void) -> LongWord +; tool 0x1C02, set 0x02 (MemoryManager) + .section .text.MaxBlock,"ax" + .globl MaxBlock +MaxBlock: ; --- result space (4 bytes) --- pea 0 pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1802 + ldx #0x1C02 jsl 0xe10000 pla ; result lo -> A plx ; result hi -> X rtl -; HandToHand(Handle, Handle, LongWord) -> void -; tool 0x2A02, set 0x02 (MemoryManager) - .section .text.HandToHand,"ax" - .globl HandToHand -HandToHand: +; TotalMem(void) -> LongWord +; tool 0x1D02, set 0x02 (MemoryManager) + .section .text.TotalMem,"ax" + .globl TotalMem +TotalMem: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1D02 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; CheckHandle(Pointer) -> void +; tool 0x1E02, set 0x02 (MemoryManager) + .section .text.CheckHandle,"ax" + .globl CheckHandle +CheckHandle: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -7691,7 +1902,94 @@ HandToHand: pha lda 0xE0 pha - ; --- arg1 (Handle, 4B) --- + ldx #0x1E02 + jsl 0xe10000 + rtl + +; HLock(Pointer) -> void +; tool 0x2002, set 0x02 (MemoryManager) + .section .text.HLock,"ax" + .globl HLock +HLock: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2002 + jsl 0xe10000 + rtl + +; HUnlock(Pointer) -> void +; tool 0x2202, set 0x02 (MemoryManager) + .section .text.HUnlock,"ax" + .globl HUnlock +HUnlock: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2202 + jsl 0xe10000 + rtl + +; SetPurge(Word, Pointer) -> void +; tool 0x2402, set 0x02 (MemoryManager) + .section .text.SetPurge,"ax" + .globl SetPurge +SetPurge: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x2402 + jsl 0xe10000 + rtl + +; SetPurgeAll(Word, Word) -> void +; tool 0x2502, set 0x02 (MemoryManager) + .section .text.SetPurgeAll,"ax" + .globl SetPurgeAll +SetPurgeAll: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2502 + jsl 0xe10000 + rtl + +; PtrToHand(Pointer, Pointer, LongWord) -> void +; tool 0x2802, set 0x02 (MemoryManager) + .section .text.PtrToHand,"ax" + .globl PtrToHand +PtrToHand: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- lda 10, s pha lda 10, s @@ -7701,11 +1999,11 @@ HandToHand: pha lda 18, s pha - ldx #0x2A02 + ldx #0x2802 jsl 0xe10000 rtl -; HandToPtr(Handle, Pointer, LongWord) -> void +; HandToPtr(Pointer, Pointer, LongWord) -> void ; tool 0x2902, set 0x02 (MemoryManager) .section .text.HandToPtr,"ax" .globl HandToPtr @@ -7732,11 +2030,11 @@ HandToPtr: jsl 0xe10000 rtl -; HLock(Handle) -> void -; tool 0x2002, set 0x02 (MemoryManager) - .section .text.HLock,"ax" - .globl HLock -HLock: +; HandToHand(Pointer, Pointer, LongWord) -> void +; tool 0x2A02, set 0x02 (MemoryManager) + .section .text.HandToHand,"ax" + .globl HandToHand +HandToHand: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -7745,88 +2043,7 @@ HLock: pha lda 0xE0 pha - ldx #0x2002 - jsl 0xe10000 - rtl - -; HUnlock(Handle) -> void -; tool 0x2202, set 0x02 (MemoryManager) - .section .text.HUnlock,"ax" - .globl HUnlock -HUnlock: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2202 - jsl 0xe10000 - rtl - -; MaxBlock(void) -> LongWord -; tool 0x1C02, set 0x02 (MemoryManager) - .section .text.MaxBlock,"ax" - .globl MaxBlock -MaxBlock: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1C02 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NewHandle(LongWord, Word, Word, Pointer) -> Handle -; tool 0x0902, set 0x02 (MemoryManager) - .section .text.NewHandle,"ax" - .globl NewHandle -NewHandle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 12, s - pha - ; --- arg2 (Word, 2B) --- - lda 16, s - pha - ; --- arg3 (Pointer, 4B) --- - lda 22, s - pha - lda 22, s - pha - ldx #0x0902 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PtrToHand(Pointer, Handle, LongWord) -> void -; tool 0x2802, set 0x02 (MemoryManager) - .section .text.PtrToHand,"ax" - .globl PtrToHand -PtrToHand: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- + ; --- arg1 (Pointer, 4B) --- lda 10, s pha lda 10, s @@ -7836,15 +2053,15 @@ PtrToHand: pha lda 18, s pha - ldx #0x2802 + ldx #0x2A02 jsl 0xe10000 rtl -; PurgeHandle(Handle) -> void -; tool 0x1202, set 0x02 (MemoryManager) - .section .text.PurgeHandle,"ax" - .globl PurgeHandle -PurgeHandle: +; BlockMove(Pointer, Pointer, LongWord) -> void +; tool 0x2B02, set 0x02 (MemoryManager) + .section .text.BlockMove,"ax" + .globl BlockMove +BlockMove: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -7853,146 +2070,17 @@ PurgeHandle: pha lda 0xE0 pha - ldx #0x1202 - jsl 0xe10000 - rtl - -; ReAllocHandle(LongWord, Word, Word, Pointer, Handle) -> void -; tool 0x0A02, set 0x02 (MemoryManager) - .section .text.ReAllocHandle,"ax" - .globl ReAllocHandle -ReAllocHandle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (Pointer, 4B) --- - lda 18, s - pha - lda 18, s - pha - ; --- arg4 (Handle, 4B) --- - lda 26, s - pha - lda 26, s - pha - ldx #0x0A02 - jsl 0xe10000 - rtl - -; RestoreHandle(Handle) -> void -; tool 0x0B02, set 0x02 (MemoryManager) - .section .text.RestoreHandle,"ax" - .globl RestoreHandle -RestoreHandle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0B02 - jsl 0xe10000 - rtl - -; SetHandleSize(LongWord, Handle) -> void -; tool 0x1902, set 0x02 (MemoryManager) - .section .text.SetHandleSize,"ax" - .globl SetHandleSize -SetHandleSize: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- + ; --- arg1 (Pointer, 4B) --- lda 10, s pha lda 10, s pha - ldx #0x1902 - jsl 0xe10000 - rtl - -; SetPurge(Word, Handle) -> void -; tool 0x2402, set 0x02 (MemoryManager) - .section .text.SetPurge,"ax" - .globl SetPurge -SetPurge: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 + ; --- arg2 (LongWord, 4B) --- + lda 18, s pha - ; --- arg1 (Handle, 4B) --- - lda 8, s + lda 18, s pha - lda 8, s - pha - ldx #0x2402 - jsl 0xe10000 - rtl - -; SetPurgeAll(Word, Word) -> void -; tool 0x2502, set 0x02 (MemoryManager) - .section .text.SetPurgeAll,"ax" - .globl SetPurgeAll -SetPurgeAll: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x2502 - jsl 0xe10000 - rtl - -; TotalMem(void) -> LongWord -; tool 0x1D02, set 0x02 (MemoryManager) - .section .text.TotalMem,"ax" - .globl TotalMem -TotalMem: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1D02 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; AddToOOMQueue(Pointer) -> void -; tool 0x0C02, set 0x02 (MemoryManager) - .section .text.AddToOOMQueue,"ax" - .globl AddToOOMQueue -AddToOOMQueue: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0C02 + ldx #0x2B02 jsl 0xe10000 rtl @@ -8010,24 +2098,7 @@ RealFreeMem: plx ; result hi -> X rtl -; RemoveFromOOMQueue(Pointer) -> void -; tool 0x0D02, set 0x02 (MemoryManager) - .section .text.RemoveFromOOMQueue,"ax" - .globl RemoveFromOOMQueue -RemoveFromOOMQueue: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0D02 - jsl 0xe10000 - rtl - -; SetHandleID(Word, Handle) -> Word +; SetHandleID(Word, Word) -> Word ; tool 0x3002, set 0x02 (MemoryManager) .section .text.SetHandleID,"ax" .globl SetHandleID @@ -8039,16 +2110,8096 @@ SetHandleID: ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s + ; --- arg1 (Word, 2B) --- + lda 8, s pha ldx #0x3002 jsl 0xe10000 pla ; result -> A rtl +; WriteBRam(Pointer) -> void +; tool 0x0903, set 0x03 (MiscTools) + .section .text.WriteBRam,"ax" + .globl WriteBRam +WriteBRam: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0903 + jsl 0xe10000 + rtl + +; ReadBRam(Pointer) -> void +; tool 0x0A03, set 0x03 (MiscTools) + .section .text.ReadBRam,"ax" + .globl ReadBRam +ReadBRam: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0A03 + jsl 0xe10000 + rtl + +; WriteBParam(Word, Word) -> void +; tool 0x0B03, set 0x03 (MiscTools) + .section .text.WriteBParam,"ax" + .globl WriteBParam +WriteBParam: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0B03 + jsl 0xe10000 + rtl + +; ReadTimeHex(void) -> 8B +; tool 0x0D03, set 0x03 (MiscTools) + .section .text.ReadTimeHex,"ax" + .globl ReadTimeHex +ReadTimeHex: + ; --- result space (8 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + ldx #0x0D03 + jsl 0xe10000 + pla + pla + pla + pla + rtl + +; WriteTimeHex(Word, Word, Word) -> void +; tool 0x0E03, set 0x03 (MiscTools) + .section .text.WriteTimeHex,"ax" + .globl WriteTimeHex +WriteTimeHex: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0x0E03 + jsl 0xe10000 + rtl + +; ReadAsciiTime(Pointer) -> void +; tool 0x0F03, set 0x03 (MiscTools) + .section .text.ReadAsciiTime,"ax" + .globl ReadAsciiTime +ReadAsciiTime: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0F03 + jsl 0xe10000 + rtl + +; SetVector(Word, Pointer) -> void +; tool 0x1003, set 0x03 (MiscTools) + .section .text.SetVector,"ax" + .globl SetVector +SetVector: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1003 + jsl 0xe10000 + rtl + +; GetVector(Word) -> Pointer +; tool 0x1103, set 0x03 (MiscTools) + .section .text.GetVector,"ax" + .globl GetVector +GetVector: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x1103 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetHeartBeat(Pointer) -> void +; tool 0x1203, set 0x03 (MiscTools) + .section .text.SetHeartBeat,"ax" + .globl SetHeartBeat +SetHeartBeat: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1203 + jsl 0xe10000 + rtl + +; DelHeartBeat(Pointer) -> void +; tool 0x1303, set 0x03 (MiscTools) + .section .text.DelHeartBeat,"ax" + .globl DelHeartBeat +DelHeartBeat: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1303 + jsl 0xe10000 + rtl + +; SysFailMgr(Word, Pointer) -> void +; tool 0x1503, set 0x03 (MiscTools) + .section .text.SysFailMgr,"ax" + .globl SysFailMgr +SysFailMgr: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1503 + jsl 0xe10000 + rtl + +; GetAddr(Word) -> Pointer +; tool 0x1603, set 0x03 (MiscTools) + .section .text.GetAddr,"ax" + .globl GetAddr +GetAddr: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x1603 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; ReadMouse(void) -> Pointer +; tool 0x1703, set 0x03 (MiscTools) + .section .text.ReadMouse,"ax" + .globl ReadMouse +ReadMouse: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1703 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; ClampMouse(Word, Word, Word, Word) -> void +; tool 0x1C03, set 0x03 (MiscTools) + .section .text.ClampMouse,"ax" + .globl ClampMouse +ClampMouse: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ldx #0x1C03 + jsl 0xe10000 + rtl + +; GetMouseClamp(void) -> 8B +; tool 0x1D03, set 0x03 (MiscTools) + .section .text.GetMouseClamp,"ax" + .globl GetMouseClamp +GetMouseClamp: + ; --- result space (8 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + ldx #0x1D03 + jsl 0xe10000 + pla + pla + pla + pla + rtl + +; PosMouse(Word, Word) -> void +; tool 0x1E03, set 0x03 (MiscTools) + .section .text.PosMouse,"ax" + .globl PosMouse +PosMouse: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1E03 + jsl 0xe10000 + rtl + +; FWEntry(Word, Word, Word, Word) -> 8B +; tool 0x2403, set 0x03 (MiscTools) + .section .text.FWEntry,"ax" + .globl FWEntry +FWEntry: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (8 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 14, s + pha + ; --- arg2 (Word, 2B) --- + lda 18, s + pha + ; --- arg3 (Word, 2B) --- + lda 22, s + pha + ldx #0x2403 + jsl 0xe10000 + pla + pla + pla + pla + rtl + +; GetTick(void) -> LongWord +; tool 0x2503, set 0x03 (MiscTools) + .section .text.GetTick,"ax" + .globl GetTick +GetTick: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2503 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PackBytes(Pointer, Pointer, Pointer, Word) -> Word +; tool 0x2603, set 0x03 (MiscTools) + .section .text.PackBytes,"ax" + .globl PackBytes +PackBytes: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg3 (Word, 2B) --- + lda 26, s + pha + ldx #0x2603 + jsl 0xe10000 + pla ; result -> A + rtl + +; UnPackBytes(Pointer, Word, Pointer, Pointer) -> Word +; tool 0x2703, set 0x03 (MiscTools) + .section .text.UnPackBytes,"ax" + .globl UnPackBytes +UnPackBytes: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 24, s + pha + lda 24, s + pha + ldx #0x2703 + jsl 0xe10000 + pla ; result -> A + rtl + +; Munger(Pointer, Pointer, Pointer, Word, Pointer, Word, Pointer) -> Word +; tool 0x2803, set 0x03 (MiscTools) + .section .text.Munger,"ax" + .globl Munger +Munger: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg3 (Word, 2B) --- + lda 26, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 32, s + pha + lda 32, s + pha + ; --- arg5 (Word, 2B) --- + lda 38, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 44, s + pha + lda 44, s + pha + ldx #0x2803 + jsl 0xe10000 + pla ; result -> A + rtl + +; SetAbsClamp(Word, Word, Word, Word) -> void +; tool 0x2A03, set 0x03 (MiscTools) + .section .text.SetAbsClamp,"ax" + .globl SetAbsClamp +SetAbsClamp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ldx #0x2A03 + jsl 0xe10000 + rtl + +; GetAbsClamp(void) -> 8B +; tool 0x2B03, set 0x03 (MiscTools) + .section .text.GetAbsClamp,"ax" + .globl GetAbsClamp +GetAbsClamp: + ; --- result space (8 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + ldx #0x2B03 + jsl 0xe10000 + pla + pla + pla + pla + rtl + +; AddToQueue(Pointer, Pointer) -> void +; tool 0x2E03, set 0x03 (MiscTools) + .section .text.AddToQueue,"ax" + .globl AddToQueue +AddToQueue: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x2E03 + jsl 0xe10000 + rtl + +; DeleteFromQueue(Pointer, Pointer) -> void +; tool 0x2F03, set 0x03 (MiscTools) + .section .text.DeleteFromQueue,"ax" + .globl DeleteFromQueue +DeleteFromQueue: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x2F03 + jsl 0xe10000 + rtl + +; SetInterruptState(Pointer, Word) -> void +; tool 0x3003, set 0x03 (MiscTools) + .section .text.SetInterruptState,"ax" + .globl SetInterruptState +SetInterruptState: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x3003 + jsl 0xe10000 + rtl + +; GetInterruptState(Pointer, Word) -> void +; tool 0x3103, set 0x03 (MiscTools) + .section .text.GetInterruptState,"ax" + .globl GetInterruptState +GetInterruptState: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x3103 + jsl 0xe10000 + rtl + +; ReadMouse2(void) -> Pointer +; tool 0x3303, set 0x03 (MiscTools) + .section .text.ReadMouse2,"ax" + .globl ReadMouse2 +ReadMouse2: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x3303 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetCodeResConverter(void) -> Pointer +; tool 0x3403, set 0x03 (MiscTools) + .section .text.GetCodeResConverter,"ax" + .globl GetCodeResConverter +GetCodeResConverter: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x3403 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetROMResource(Word, LongWord) -> Word +; tool 0x3503, set 0x03 (MiscTools) + .section .text.GetROMResource,"ax" + .globl GetROMResource +GetROMResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x3503 + jsl 0xe10000 + pla ; result -> A + rtl + +; ReleaseROMResource(Word, LongWord) -> void +; tool 0x3603, set 0x03 (MiscTools) + .section .text.ReleaseROMResource,"ax" + .globl ReleaseROMResource +ReleaseROMResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x3603 + jsl 0xe10000 + rtl + +; ConvSeconds(Word, LongWord, Pointer) -> LongWord +; tool 0x3703, set 0x03 (MiscTools) + .section .text.ConvSeconds,"ax" + .globl ConvSeconds +ConvSeconds: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x3703 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; VersionString(Word, LongWord, Pointer) -> void +; tool 0x3903, set 0x03 (MiscTools) + .section .text.VersionString,"ax" + .globl VersionString +VersionString: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x3903 + jsl 0xe10000 + rtl + +; WaitUntil(Word, Word) -> Word +; tool 0x3A03, set 0x03 (MiscTools) + .section .text.WaitUntil,"ax" + .globl WaitUntil +WaitUntil: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x3A03 + jsl 0xe10000 + pla ; result -> A + rtl + +; StringToText(Word, Pointer, Word, Pointer) -> LongWord +; tool 0x3B03, set 0x03 (MiscTools) + .section .text.StringToText,"ax" + .globl StringToText +StringToText: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Word, 2B) --- + lda 18, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 24, s + pha + lda 24, s + pha + ldx #0x3B03 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; ShowBootInfo(Pointer, Pointer) -> void +; tool 0x3C03, set 0x03 (MiscTools) + .section .text.ShowBootInfo,"ax" + .globl ShowBootInfo +ShowBootInfo: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x3C03 + jsl 0xe10000 + rtl + +; AlertMessage(Pointer, Word, Pointer) -> Word +; tool 0x3E03, set 0x03 (MiscTools) + .section .text.AlertMessage,"ax" + .globl AlertMessage +AlertMessage: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x3E03 + jsl 0xe10000 + pla ; result -> A + rtl + +; DoSysPrefs(Word, Word) -> Word +; tool 0x3F03, set 0x03 (MiscTools) + .section .text.DoSysPrefs,"ax" + .globl DoSysPrefs +DoSysPrefs: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x3F03 + jsl 0xe10000 + pla ; result -> A + rtl + +; QDStartUp(Word, Word, Word, Word) -> void +; tool 0x0204, set 0x04 (QuickDraw) + .section .text.QDStartUp,"ax" + .globl QDStartUp +QDStartUp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ldx #0x0204 + jsl 0xe10000 + rtl + +; GetAddress(Word) -> Pointer +; tool 0x0904, set 0x04 (QuickDraw) + .section .text.GetAddress,"ax" + .globl GetAddress +GetAddress: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x0904 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; InitColorTable(Pointer) -> void +; tool 0x0D04, set 0x04 (QuickDraw) + .section .text.InitColorTable,"ax" + .globl InitColorTable +InitColorTable: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0D04 + jsl 0xe10000 + rtl + +; SetColorTable(Word, Pointer) -> void +; tool 0x0E04, set 0x04 (QuickDraw) + .section .text.SetColorTable,"ax" + .globl SetColorTable +SetColorTable: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x0E04 + jsl 0xe10000 + rtl + +; GetColorTable(Word, Pointer) -> void +; tool 0x0F04, set 0x04 (QuickDraw) + .section .text.GetColorTable,"ax" + .globl GetColorTable +GetColorTable: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x0F04 + jsl 0xe10000 + rtl + +; SetColorEntry(Word, Word, Word) -> void +; tool 0x1004, set 0x04 (QuickDraw) + .section .text.SetColorEntry,"ax" + .globl SetColorEntry +SetColorEntry: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0x1004 + jsl 0xe10000 + rtl + +; GetColorEntry(Word, Word) -> Word +; tool 0x1104, set 0x04 (QuickDraw) + .section .text.GetColorEntry,"ax" + .globl GetColorEntry +GetColorEntry: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1104 + jsl 0xe10000 + pla ; result -> A + rtl + +; SetSCB(Word, Word) -> void +; tool 0x1204, set 0x04 (QuickDraw) + .section .text.SetSCB,"ax" + .globl SetSCB +SetSCB: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1204 + jsl 0xe10000 + rtl + +; OpenPort(Pointer) -> void +; tool 0x1804, set 0x04 (QuickDraw) + .section .text.OpenPort,"ax" + .globl OpenPort +OpenPort: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1804 + jsl 0xe10000 + rtl + +; InitPort(Pointer) -> void +; tool 0x1904, set 0x04 (QuickDraw) + .section .text.InitPort,"ax" + .globl InitPort +InitPort: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1904 + jsl 0xe10000 + rtl + +; ClosePort(Pointer) -> void +; tool 0x1A04, set 0x04 (QuickDraw) + .section .text.ClosePort,"ax" + .globl ClosePort +ClosePort: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1A04 + jsl 0xe10000 + rtl + +; SetPort(Pointer) -> void +; tool 0x1B04, set 0x04 (QuickDraw) + .section .text.SetPort,"ax" + .globl SetPort +SetPort: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1B04 + jsl 0xe10000 + rtl + +; GetPort(void) -> Pointer +; tool 0x1C04, set 0x04 (QuickDraw) + .section .text.GetPort,"ax" + .globl GetPort +GetPort: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1C04 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetPortLoc(Pointer) -> void +; tool 0x1D04, set 0x04 (QuickDraw) + .section .text.SetPortLoc,"ax" + .globl SetPortLoc +SetPortLoc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1D04 + jsl 0xe10000 + rtl + +; GetPortLoc(Pointer) -> void +; tool 0x1E04, set 0x04 (QuickDraw) + .section .text.GetPortLoc,"ax" + .globl GetPortLoc +GetPortLoc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1E04 + jsl 0xe10000 + rtl + +; SetPortRect(Pointer) -> void +; tool 0x1F04, set 0x04 (QuickDraw) + .section .text.SetPortRect,"ax" + .globl SetPortRect +SetPortRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1F04 + jsl 0xe10000 + rtl + +; GetPortRect(Pointer) -> void +; tool 0x2004, set 0x04 (QuickDraw) + .section .text.GetPortRect,"ax" + .globl GetPortRect +GetPortRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2004 + jsl 0xe10000 + rtl + +; SetPortSize(Word, Word) -> void +; tool 0x2104, set 0x04 (QuickDraw) + .section .text.SetPortSize,"ax" + .globl SetPortSize +SetPortSize: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2104 + jsl 0xe10000 + rtl + +; MovePortTo(Word, Word) -> void +; tool 0x2204, set 0x04 (QuickDraw) + .section .text.MovePortTo,"ax" + .globl MovePortTo +MovePortTo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2204 + jsl 0xe10000 + rtl + +; SetOrigin(Word, Word) -> void +; tool 0x2304, set 0x04 (QuickDraw) + .section .text.SetOrigin,"ax" + .globl SetOrigin +SetOrigin: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2304 + jsl 0xe10000 + rtl + +; SetClip(Pointer) -> void +; tool 0x2404, set 0x04 (QuickDraw) + .section .text.SetClip,"ax" + .globl SetClip +SetClip: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2404 + jsl 0xe10000 + rtl + +; GetClip(Pointer) -> void +; tool 0x2504, set 0x04 (QuickDraw) + .section .text.GetClip,"ax" + .globl GetClip +GetClip: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2504 + jsl 0xe10000 + rtl + +; ClipRect(Pointer) -> void +; tool 0x2604, set 0x04 (QuickDraw) + .section .text.ClipRect,"ax" + .globl ClipRect +ClipRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2604 + jsl 0xe10000 + rtl + +; GetPen(Pointer) -> void +; tool 0x2904, set 0x04 (QuickDraw) + .section .text.GetPen,"ax" + .globl GetPen +GetPen: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2904 + jsl 0xe10000 + rtl + +; SetPenState(Pointer) -> void +; tool 0x2A04, set 0x04 (QuickDraw) + .section .text.SetPenState,"ax" + .globl SetPenState +SetPenState: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2A04 + jsl 0xe10000 + rtl + +; GetPenState(Pointer) -> void +; tool 0x2B04, set 0x04 (QuickDraw) + .section .text.GetPenState,"ax" + .globl GetPenState +GetPenState: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2B04 + jsl 0xe10000 + rtl + +; SetPenSize(Word, Word) -> void +; tool 0x2C04, set 0x04 (QuickDraw) + .section .text.SetPenSize,"ax" + .globl SetPenSize +SetPenSize: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2C04 + jsl 0xe10000 + rtl + +; GetPenSize(Pointer) -> void +; tool 0x2D04, set 0x04 (QuickDraw) + .section .text.GetPenSize,"ax" + .globl GetPenSize +GetPenSize: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2D04 + jsl 0xe10000 + rtl + +; SetPenPat(Pointer) -> void +; tool 0x3004, set 0x04 (QuickDraw) + .section .text.SetPenPat,"ax" + .globl SetPenPat +SetPenPat: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3004 + jsl 0xe10000 + rtl + +; GetPenPat(Pointer) -> void +; tool 0x3104, set 0x04 (QuickDraw) + .section .text.GetPenPat,"ax" + .globl GetPenPat +GetPenPat: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3104 + jsl 0xe10000 + rtl + +; SetPenMask(Pointer) -> void +; tool 0x3204, set 0x04 (QuickDraw) + .section .text.SetPenMask,"ax" + .globl SetPenMask +SetPenMask: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3204 + jsl 0xe10000 + rtl + +; GetPenMask(Pointer) -> void +; tool 0x3304, set 0x04 (QuickDraw) + .section .text.GetPenMask,"ax" + .globl GetPenMask +GetPenMask: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3304 + jsl 0xe10000 + rtl + +; SetBackPat(Pointer) -> void +; tool 0x3404, set 0x04 (QuickDraw) + .section .text.SetBackPat,"ax" + .globl SetBackPat +SetBackPat: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3404 + jsl 0xe10000 + rtl + +; GetBackPat(Pointer) -> void +; tool 0x3504, set 0x04 (QuickDraw) + .section .text.GetBackPat,"ax" + .globl GetBackPat +GetBackPat: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3504 + jsl 0xe10000 + rtl + +; SolidPattern(Word, Pointer) -> void +; tool 0x3904, set 0x04 (QuickDraw) + .section .text.SolidPattern,"ax" + .globl SolidPattern +SolidPattern: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x3904 + jsl 0xe10000 + rtl + +; MoveTo(Word, Word) -> void +; tool 0x3A04, set 0x04 (QuickDraw) + .section .text.MoveTo,"ax" + .globl MoveTo +MoveTo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x3A04 + jsl 0xe10000 + rtl + +; Move(Word, Word) -> void +; tool 0x3B04, set 0x04 (QuickDraw) + .section .text.Move,"ax" + .globl Move +Move: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x3B04 + jsl 0xe10000 + rtl + +; LineTo(Word, Word) -> void +; tool 0x3C04, set 0x04 (QuickDraw) + .section .text.LineTo,"ax" + .globl LineTo +LineTo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x3C04 + jsl 0xe10000 + rtl + +; Line(Word, Word) -> void +; tool 0x3D04, set 0x04 (QuickDraw) + .section .text.Line,"ax" + .globl Line +Line: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x3D04 + jsl 0xe10000 + rtl + +; SetPicSave(LongWord) -> void +; tool 0x3E04, set 0x04 (QuickDraw) + .section .text.SetPicSave,"ax" + .globl SetPicSave +SetPicSave: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3E04 + jsl 0xe10000 + rtl + +; GetPicSave(void) -> LongWord +; tool 0x3F04, set 0x04 (QuickDraw) + .section .text.GetPicSave,"ax" + .globl GetPicSave +GetPicSave: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x3F04 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetRgnSave(LongWord) -> void +; tool 0x4004, set 0x04 (QuickDraw) + .section .text.SetRgnSave,"ax" + .globl SetRgnSave +SetRgnSave: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4004 + jsl 0xe10000 + rtl + +; GetRgnSave(void) -> LongWord +; tool 0x4104, set 0x04 (QuickDraw) + .section .text.GetRgnSave,"ax" + .globl GetRgnSave +GetRgnSave: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x4104 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetPolySave(LongWord) -> void +; tool 0x4204, set 0x04 (QuickDraw) + .section .text.SetPolySave,"ax" + .globl SetPolySave +SetPolySave: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4204 + jsl 0xe10000 + rtl + +; GetPolySave(void) -> LongWord +; tool 0x4304, set 0x04 (QuickDraw) + .section .text.GetPolySave,"ax" + .globl GetPolySave +GetPolySave: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x4304 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetGrafProcs(Pointer) -> void +; tool 0x4404, set 0x04 (QuickDraw) + .section .text.SetGrafProcs,"ax" + .globl SetGrafProcs +SetGrafProcs: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4404 + jsl 0xe10000 + rtl + +; GetGrafProcs(void) -> Pointer +; tool 0x4504, set 0x04 (QuickDraw) + .section .text.GetGrafProcs,"ax" + .globl GetGrafProcs +GetGrafProcs: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x4504 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetUserField(LongWord) -> void +; tool 0x4604, set 0x04 (QuickDraw) + .section .text.SetUserField,"ax" + .globl SetUserField +SetUserField: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4604 + jsl 0xe10000 + rtl + +; GetUserField(void) -> LongWord +; tool 0x4704, set 0x04 (QuickDraw) + .section .text.GetUserField,"ax" + .globl GetUserField +GetUserField: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x4704 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetSysField(LongWord) -> void +; tool 0x4804, set 0x04 (QuickDraw) + .section .text.SetSysField,"ax" + .globl SetSysField +SetSysField: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4804 + jsl 0xe10000 + rtl + +; GetSysField(void) -> LongWord +; tool 0x4904, set 0x04 (QuickDraw) + .section .text.GetSysField,"ax" + .globl GetSysField +GetSysField: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x4904 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetRect(Pointer, Word, Word, Word, Word) -> void +; tool 0x4A04, set 0x04 (QuickDraw) + .section .text.SetRect,"ax" + .globl SetRect +SetRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 16, s + pha + ; --- arg4 (Word, 2B) --- + lda 20, s + pha + ldx #0x4A04 + jsl 0xe10000 + rtl + +; OffsetRect(Pointer, Word, Word) -> void +; tool 0x4B04, set 0x04 (QuickDraw) + .section .text.OffsetRect,"ax" + .globl OffsetRect +OffsetRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x4B04 + jsl 0xe10000 + rtl + +; InsetRect(Pointer, Word, Word) -> void +; tool 0x4C04, set 0x04 (QuickDraw) + .section .text.InsetRect,"ax" + .globl InsetRect +InsetRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x4C04 + jsl 0xe10000 + rtl + +; SectRect(Pointer, Pointer, Pointer) -> Word +; tool 0x4D04, set 0x04 (QuickDraw) + .section .text.SectRect,"ax" + .globl SectRect +SectRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x4D04 + jsl 0xe10000 + pla ; result -> A + rtl + +; UnionRect(Pointer, Pointer, Pointer) -> void +; tool 0x4E04, set 0x04 (QuickDraw) + .section .text.UnionRect,"ax" + .globl UnionRect +UnionRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x4E04 + jsl 0xe10000 + rtl + +; PtInRect(Pointer, Pointer) -> Word +; tool 0x4F04, set 0x04 (QuickDraw) + .section .text.PtInRect,"ax" + .globl PtInRect +PtInRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x4F04 + jsl 0xe10000 + pla ; result -> A + rtl + +; Pt2Rect(Pointer, Pointer, Pointer) -> void +; tool 0x5004, set 0x04 (QuickDraw) + .section .text.Pt2Rect,"ax" + .globl Pt2Rect +Pt2Rect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x5004 + jsl 0xe10000 + rtl + +; EqualRect(Pointer, Pointer) -> Word +; tool 0x5104, set 0x04 (QuickDraw) + .section .text.EqualRect,"ax" + .globl EqualRect +EqualRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x5104 + jsl 0xe10000 + pla ; result -> A + rtl + +; NotEmptyRect(Pointer) -> Word +; tool 0x5204, set 0x04 (QuickDraw) + .section .text.NotEmptyRect,"ax" + .globl NotEmptyRect +NotEmptyRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5204 + jsl 0xe10000 + pla ; result -> A + rtl + +; FrameRect(Pointer) -> void +; tool 0x5304, set 0x04 (QuickDraw) + .section .text.FrameRect,"ax" + .globl FrameRect +FrameRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5304 + jsl 0xe10000 + rtl + +; PaintRect(Pointer) -> void +; tool 0x5404, set 0x04 (QuickDraw) + .section .text.PaintRect,"ax" + .globl PaintRect +PaintRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5404 + jsl 0xe10000 + rtl + +; EraseRect(Pointer) -> void +; tool 0x5504, set 0x04 (QuickDraw) + .section .text.EraseRect,"ax" + .globl EraseRect +EraseRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5504 + jsl 0xe10000 + rtl + +; InvertRect(Pointer) -> void +; tool 0x5604, set 0x04 (QuickDraw) + .section .text.InvertRect,"ax" + .globl InvertRect +InvertRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5604 + jsl 0xe10000 + rtl + +; FillRect(Pointer, Pointer) -> void +; tool 0x5704, set 0x04 (QuickDraw) + .section .text.FillRect,"ax" + .globl FillRect +FillRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x5704 + jsl 0xe10000 + rtl + +; FrameOval(Pointer) -> void +; tool 0x5804, set 0x04 (QuickDraw) + .section .text.FrameOval,"ax" + .globl FrameOval +FrameOval: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5804 + jsl 0xe10000 + rtl + +; PaintOval(Pointer) -> void +; tool 0x5904, set 0x04 (QuickDraw) + .section .text.PaintOval,"ax" + .globl PaintOval +PaintOval: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5904 + jsl 0xe10000 + rtl + +; EraseOval(Pointer) -> void +; tool 0x5A04, set 0x04 (QuickDraw) + .section .text.EraseOval,"ax" + .globl EraseOval +EraseOval: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5A04 + jsl 0xe10000 + rtl + +; InvertOval(Pointer) -> void +; tool 0x5B04, set 0x04 (QuickDraw) + .section .text.InvertOval,"ax" + .globl InvertOval +InvertOval: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5B04 + jsl 0xe10000 + rtl + +; FillOval(Pointer, Pointer) -> void +; tool 0x5C04, set 0x04 (QuickDraw) + .section .text.FillOval,"ax" + .globl FillOval +FillOval: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x5C04 + jsl 0xe10000 + rtl + +; FrameRRect(Pointer, Word, Word) -> void +; tool 0x5D04, set 0x04 (QuickDraw) + .section .text.FrameRRect,"ax" + .globl FrameRRect +FrameRRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x5D04 + jsl 0xe10000 + rtl + +; PaintRRect(Pointer, Word, Word) -> void +; tool 0x5E04, set 0x04 (QuickDraw) + .section .text.PaintRRect,"ax" + .globl PaintRRect +PaintRRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x5E04 + jsl 0xe10000 + rtl + +; EraseRRect(Pointer, Word, Word) -> void +; tool 0x5F04, set 0x04 (QuickDraw) + .section .text.EraseRRect,"ax" + .globl EraseRRect +EraseRRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x5F04 + jsl 0xe10000 + rtl + +; InvertRRect(Pointer, Word, Word) -> void +; tool 0x6004, set 0x04 (QuickDraw) + .section .text.InvertRRect,"ax" + .globl InvertRRect +InvertRRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x6004 + jsl 0xe10000 + rtl + +; FillRRect(Pointer, Word, Word, Pointer) -> void +; tool 0x6104, set 0x04 (QuickDraw) + .section .text.FillRRect,"ax" + .globl FillRRect +FillRRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x6104 + jsl 0xe10000 + rtl + +; FrameArc(Pointer, Word, Word) -> void +; tool 0x6204, set 0x04 (QuickDraw) + .section .text.FrameArc,"ax" + .globl FrameArc +FrameArc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x6204 + jsl 0xe10000 + rtl + +; PaintArc(Pointer, Word, Word) -> void +; tool 0x6304, set 0x04 (QuickDraw) + .section .text.PaintArc,"ax" + .globl PaintArc +PaintArc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x6304 + jsl 0xe10000 + rtl + +; EraseArc(Pointer, Word, Word) -> void +; tool 0x6404, set 0x04 (QuickDraw) + .section .text.EraseArc,"ax" + .globl EraseArc +EraseArc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x6404 + jsl 0xe10000 + rtl + +; InvertArc(Pointer, Word, Word) -> void +; tool 0x6504, set 0x04 (QuickDraw) + .section .text.InvertArc,"ax" + .globl InvertArc +InvertArc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x6504 + jsl 0xe10000 + rtl + +; FillArc(Pointer, Word, Word, Pointer) -> void +; tool 0x6604, set 0x04 (QuickDraw) + .section .text.FillArc,"ax" + .globl FillArc +FillArc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x6604 + jsl 0xe10000 + rtl + +; NewRgn(void) -> Pointer +; tool 0x6704, set 0x04 (QuickDraw) + .section .text.NewRgn,"ax" + .globl NewRgn +NewRgn: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x6704 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; DisposeRgn(Pointer) -> void +; tool 0x6804, set 0x04 (QuickDraw) + .section .text.DisposeRgn,"ax" + .globl DisposeRgn +DisposeRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x6804 + jsl 0xe10000 + rtl + +; CopyRgn(Pointer, Pointer) -> void +; tool 0x6904, set 0x04 (QuickDraw) + .section .text.CopyRgn,"ax" + .globl CopyRgn +CopyRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x6904 + jsl 0xe10000 + rtl + +; SetEmptyRgn(Pointer) -> void +; tool 0x6A04, set 0x04 (QuickDraw) + .section .text.SetEmptyRgn,"ax" + .globl SetEmptyRgn +SetEmptyRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x6A04 + jsl 0xe10000 + rtl + +; SetRectRgn(Pointer, Word, Word, Word, Word) -> void +; tool 0x6B04, set 0x04 (QuickDraw) + .section .text.SetRectRgn,"ax" + .globl SetRectRgn +SetRectRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 16, s + pha + ; --- arg4 (Word, 2B) --- + lda 20, s + pha + ldx #0x6B04 + jsl 0xe10000 + rtl + +; RectRgn(Pointer, Pointer) -> void +; tool 0x6C04, set 0x04 (QuickDraw) + .section .text.RectRgn,"ax" + .globl RectRgn +RectRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x6C04 + jsl 0xe10000 + rtl + +; CloseRgn(Pointer) -> void +; tool 0x6E04, set 0x04 (QuickDraw) + .section .text.CloseRgn,"ax" + .globl CloseRgn +CloseRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x6E04 + jsl 0xe10000 + rtl + +; OffsetRgn(Pointer, Word, Word) -> void +; tool 0x6F04, set 0x04 (QuickDraw) + .section .text.OffsetRgn,"ax" + .globl OffsetRgn +OffsetRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x6F04 + jsl 0xe10000 + rtl + +; InsetRgn(Pointer, Word, Word) -> void +; tool 0x7004, set 0x04 (QuickDraw) + .section .text.InsetRgn,"ax" + .globl InsetRgn +InsetRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x7004 + jsl 0xe10000 + rtl + +; SectRgn(Word, Word, Pointer) -> void +; tool 0x7104, set 0x04 (QuickDraw) + .section .text.SectRgn,"ax" + .globl SectRgn +SectRgn: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x7104 + jsl 0xe10000 + rtl + +; UnionRgn(Word, Word, Pointer) -> void +; tool 0x7204, set 0x04 (QuickDraw) + .section .text.UnionRgn,"ax" + .globl UnionRgn +UnionRgn: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x7204 + jsl 0xe10000 + rtl + +; DiffRgn(Word, Word, Pointer) -> void +; tool 0x7304, set 0x04 (QuickDraw) + .section .text.DiffRgn,"ax" + .globl DiffRgn +DiffRgn: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x7304 + jsl 0xe10000 + rtl + +; XorRgn(Word, Word, Pointer) -> void +; tool 0x7404, set 0x04 (QuickDraw) + .section .text.XorRgn,"ax" + .globl XorRgn +XorRgn: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x7404 + jsl 0xe10000 + rtl + +; PtInRgn(Pointer, Pointer) -> Word +; tool 0x7504, set 0x04 (QuickDraw) + .section .text.PtInRgn,"ax" + .globl PtInRgn +PtInRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x7504 + jsl 0xe10000 + pla ; result -> A + rtl + +; RectInRgn(Pointer, Pointer) -> Word +; tool 0x7604, set 0x04 (QuickDraw) + .section .text.RectInRgn,"ax" + .globl RectInRgn +RectInRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x7604 + jsl 0xe10000 + pla ; result -> A + rtl + +; EqualRgn(Word, Word) -> Word +; tool 0x7704, set 0x04 (QuickDraw) + .section .text.EqualRgn,"ax" + .globl EqualRgn +EqualRgn: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x7704 + jsl 0xe10000 + pla ; result -> A + rtl + +; EmptyRgn(Pointer) -> Word +; tool 0x7804, set 0x04 (QuickDraw) + .section .text.EmptyRgn,"ax" + .globl EmptyRgn +EmptyRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x7804 + jsl 0xe10000 + pla ; result -> A + rtl + +; FrameRgn(Pointer) -> void +; tool 0x7904, set 0x04 (QuickDraw) + .section .text.FrameRgn,"ax" + .globl FrameRgn +FrameRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x7904 + jsl 0xe10000 + rtl + +; PaintRgn(Pointer) -> void +; tool 0x7A04, set 0x04 (QuickDraw) + .section .text.PaintRgn,"ax" + .globl PaintRgn +PaintRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x7A04 + jsl 0xe10000 + rtl + +; EraseRgn(Pointer) -> void +; tool 0x7B04, set 0x04 (QuickDraw) + .section .text.EraseRgn,"ax" + .globl EraseRgn +EraseRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x7B04 + jsl 0xe10000 + rtl + +; InvertRgn(Pointer) -> void +; tool 0x7C04, set 0x04 (QuickDraw) + .section .text.InvertRgn,"ax" + .globl InvertRgn +InvertRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x7C04 + jsl 0xe10000 + rtl + +; FillRgn(Pointer, Pointer) -> void +; tool 0x7D04, set 0x04 (QuickDraw) + .section .text.FillRgn,"ax" + .globl FillRgn +FillRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x7D04 + jsl 0xe10000 + rtl + +; ScrollRect(Pointer, Word, Word, Pointer) -> void +; tool 0x7E04, set 0x04 (QuickDraw) + .section .text.ScrollRect,"ax" + .globl ScrollRect +ScrollRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x7E04 + jsl 0xe10000 + rtl + +; PaintPixels(Pointer) -> void +; tool 0x7F04, set 0x04 (QuickDraw) + .section .text.PaintPixels,"ax" + .globl PaintPixels +PaintPixels: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x7F04 + jsl 0xe10000 + rtl + +; AddPt(Pointer, Pointer) -> void +; tool 0x8004, set 0x04 (QuickDraw) + .section .text.AddPt,"ax" + .globl AddPt +AddPt: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x8004 + jsl 0xe10000 + rtl + +; SubPt(Pointer, Pointer) -> void +; tool 0x8104, set 0x04 (QuickDraw) + .section .text.SubPt,"ax" + .globl SubPt +SubPt: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x8104 + jsl 0xe10000 + rtl + +; SetPt(Pointer, Word, Word) -> void +; tool 0x8204, set 0x04 (QuickDraw) + .section .text.SetPt,"ax" + .globl SetPt +SetPt: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x8204 + jsl 0xe10000 + rtl + +; EqualPt(Pointer, Pointer) -> Word +; tool 0x8304, set 0x04 (QuickDraw) + .section .text.EqualPt,"ax" + .globl EqualPt +EqualPt: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x8304 + jsl 0xe10000 + pla ; result -> A + rtl + +; LocalToGlobal(Pointer) -> void +; tool 0x8404, set 0x04 (QuickDraw) + .section .text.LocalToGlobal,"ax" + .globl LocalToGlobal +LocalToGlobal: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x8404 + jsl 0xe10000 + rtl + +; GlobalToLocal(Pointer) -> void +; tool 0x8504, set 0x04 (QuickDraw) + .section .text.GlobalToLocal,"ax" + .globl GlobalToLocal +GlobalToLocal: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x8504 + jsl 0xe10000 + rtl + +; SetRandSeed(LongWord) -> void +; tool 0x8704, set 0x04 (QuickDraw) + .section .text.SetRandSeed,"ax" + .globl SetRandSeed +SetRandSeed: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x8704 + jsl 0xe10000 + rtl + +; GetPixel(Word, Word) -> Word +; tool 0x8804, set 0x04 (QuickDraw) + .section .text.GetPixel,"ax" + .globl GetPixel +GetPixel: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x8804 + jsl 0xe10000 + pla ; result -> A + rtl + +; ScalePt(Pointer, Pointer, Pointer) -> void +; tool 0x8904, set 0x04 (QuickDraw) + .section .text.ScalePt,"ax" + .globl ScalePt +ScalePt: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x8904 + jsl 0xe10000 + rtl + +; MapPt(Pointer, Pointer, Pointer) -> void +; tool 0x8A04, set 0x04 (QuickDraw) + .section .text.MapPt,"ax" + .globl MapPt +MapPt: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x8A04 + jsl 0xe10000 + rtl + +; MapRect(Pointer, Pointer, Pointer) -> void +; tool 0x8B04, set 0x04 (QuickDraw) + .section .text.MapRect,"ax" + .globl MapRect +MapRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x8B04 + jsl 0xe10000 + rtl + +; MapRgn(Pointer, Pointer, Pointer) -> void +; tool 0x8C04, set 0x04 (QuickDraw) + .section .text.MapRgn,"ax" + .globl MapRgn +MapRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x8C04 + jsl 0xe10000 + rtl + +; SetStdProcs(Pointer) -> void +; tool 0x8D04, set 0x04 (QuickDraw) + .section .text.SetStdProcs,"ax" + .globl SetStdProcs +SetStdProcs: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x8D04 + jsl 0xe10000 + rtl + +; SetCursor(Pointer) -> void +; tool 0x8E04, set 0x04 (QuickDraw) + .section .text.SetCursor,"ax" + .globl SetCursor +SetCursor: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x8E04 + jsl 0xe10000 + rtl + +; GetCursorAdr(void) -> Pointer +; tool 0x8F04, set 0x04 (QuickDraw) + .section .text.GetCursorAdr,"ax" + .globl GetCursorAdr +GetCursorAdr: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x8F04 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetFont(Pointer) -> void +; tool 0x9404, set 0x04 (QuickDraw) + .section .text.SetFont,"ax" + .globl SetFont +SetFont: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x9404 + jsl 0xe10000 + rtl + +; GetFont(void) -> Pointer +; tool 0x9504, set 0x04 (QuickDraw) + .section .text.GetFont,"ax" + .globl GetFont +GetFont: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x9504 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetFontInfo(Pointer) -> void +; tool 0x9604, set 0x04 (QuickDraw) + .section .text.GetFontInfo,"ax" + .globl GetFontInfo +GetFontInfo: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x9604 + jsl 0xe10000 + rtl + +; GetFontGlobals(Pointer) -> void +; tool 0x9704, set 0x04 (QuickDraw) + .section .text.GetFontGlobals,"ax" + .globl GetFontGlobals +GetFontGlobals: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x9704 + jsl 0xe10000 + rtl + +; DrawString(Pointer) -> void +; tool 0xA504, set 0x04 (QuickDraw) + .section .text.DrawString,"ax" + .globl DrawString +DrawString: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xA504 + jsl 0xe10000 + rtl + +; DrawCString(Pointer) -> void +; tool 0xA604, set 0x04 (QuickDraw) + .section .text.DrawCString,"ax" + .globl DrawCString +DrawCString: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xA604 + jsl 0xe10000 + rtl + +; DrawText(Pointer, Word) -> void +; tool 0xA704, set 0x04 (QuickDraw) + .section .text.DrawText,"ax" + .globl DrawText +DrawText: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0xA704 + jsl 0xe10000 + rtl + +; StringWidth(Pointer) -> Word +; tool 0xA904, set 0x04 (QuickDraw) + .section .text.StringWidth,"ax" + .globl StringWidth +StringWidth: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xA904 + jsl 0xe10000 + pla ; result -> A + rtl + +; CStringWidth(Pointer) -> Word +; tool 0xAA04, set 0x04 (QuickDraw) + .section .text.CStringWidth,"ax" + .globl CStringWidth +CStringWidth: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xAA04 + jsl 0xe10000 + pla ; result -> A + rtl + +; TextWidth(Pointer, Word) -> Word +; tool 0xAB04, set 0x04 (QuickDraw) + .section .text.TextWidth,"ax" + .globl TextWidth +TextWidth: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0xAB04 + jsl 0xe10000 + pla ; result -> A + rtl + +; CharBounds(Word, Pointer) -> void +; tool 0xAC04, set 0x04 (QuickDraw) + .section .text.CharBounds,"ax" + .globl CharBounds +CharBounds: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0xAC04 + jsl 0xe10000 + rtl + +; StringBounds(Pointer, Pointer) -> void +; tool 0xAD04, set 0x04 (QuickDraw) + .section .text.StringBounds,"ax" + .globl StringBounds +StringBounds: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0xAD04 + jsl 0xe10000 + rtl + +; CStringBounds(Pointer, Pointer) -> void +; tool 0xAE04, set 0x04 (QuickDraw) + .section .text.CStringBounds,"ax" + .globl CStringBounds +CStringBounds: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0xAE04 + jsl 0xe10000 + rtl + +; TextBounds(Pointer, Word, Pointer) -> void +; tool 0xAF04, set 0x04 (QuickDraw) + .section .text.TextBounds,"ax" + .globl TextBounds +TextBounds: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0xAF04 + jsl 0xe10000 + rtl + +; SetSysFont(Pointer) -> void +; tool 0xB204, set 0x04 (QuickDraw) + .section .text.SetSysFont,"ax" + .globl SetSysFont +SetSysFont: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xB204 + jsl 0xe10000 + rtl + +; GetSysFont(void) -> Pointer +; tool 0xB304, set 0x04 (QuickDraw) + .section .text.GetSysFont,"ax" + .globl GetSysFont +GetSysFont: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0xB304 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetVisRgn(Pointer) -> void +; tool 0xB404, set 0x04 (QuickDraw) + .section .text.SetVisRgn,"ax" + .globl SetVisRgn +SetVisRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xB404 + jsl 0xe10000 + rtl + +; GetVisRgn(Pointer) -> void +; tool 0xB504, set 0x04 (QuickDraw) + .section .text.GetVisRgn,"ax" + .globl GetVisRgn +GetVisRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xB504 + jsl 0xe10000 + rtl + +; OpenPicture(Pointer) -> Pointer +; tool 0xB704, set 0x04 (QuickDraw) + .section .text.OpenPicture,"ax" + .globl OpenPicture +OpenPicture: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xB704 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PicComment(Word, Word, Pointer) -> void +; tool 0xB804, set 0x04 (QuickDraw) + .section .text.PicComment,"ax" + .globl PicComment +PicComment: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0xB804 + jsl 0xe10000 + rtl + +; DrawPicture(Pointer, Pointer) -> void +; tool 0xBA04, set 0x04 (QuickDraw) + .section .text.DrawPicture,"ax" + .globl DrawPicture +DrawPicture: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0xBA04 + jsl 0xe10000 + rtl + +; KillPicture(Pointer) -> void +; tool 0xBB04, set 0x04 (QuickDraw) + .section .text.KillPicture,"ax" + .globl KillPicture +KillPicture: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xBB04 + jsl 0xe10000 + rtl + +; FramePoly(Pointer) -> void +; tool 0xBC04, set 0x04 (QuickDraw) + .section .text.FramePoly,"ax" + .globl FramePoly +FramePoly: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xBC04 + jsl 0xe10000 + rtl + +; PaintPoly(Pointer) -> void +; tool 0xBD04, set 0x04 (QuickDraw) + .section .text.PaintPoly,"ax" + .globl PaintPoly +PaintPoly: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xBD04 + jsl 0xe10000 + rtl + +; ErasePoly(Pointer) -> void +; tool 0xBE04, set 0x04 (QuickDraw) + .section .text.ErasePoly,"ax" + .globl ErasePoly +ErasePoly: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xBE04 + jsl 0xe10000 + rtl + +; InvertPoly(Pointer) -> void +; tool 0xBF04, set 0x04 (QuickDraw) + .section .text.InvertPoly,"ax" + .globl InvertPoly +InvertPoly: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xBF04 + jsl 0xe10000 + rtl + +; FillPoly(Pointer, Pointer) -> void +; tool 0xC004, set 0x04 (QuickDraw) + .section .text.FillPoly,"ax" + .globl FillPoly +FillPoly: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0xC004 + jsl 0xe10000 + rtl + +; OpenPoly(void) -> Pointer +; tool 0xC104, set 0x04 (QuickDraw) + .section .text.OpenPoly,"ax" + .globl OpenPoly +OpenPoly: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0xC104 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; KillPoly(Pointer) -> void +; tool 0xC304, set 0x04 (QuickDraw) + .section .text.KillPoly,"ax" + .globl KillPoly +KillPoly: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xC304 + jsl 0xe10000 + rtl + +; OffsetPoly(Pointer, Word, Word) -> void +; tool 0xC404, set 0x04 (QuickDraw) + .section .text.OffsetPoly,"ax" + .globl OffsetPoly +OffsetPoly: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0xC404 + jsl 0xe10000 + rtl + +; MapPoly(Pointer, Pointer, Pointer) -> void +; tool 0xC504, set 0x04 (QuickDraw) + .section .text.MapPoly,"ax" + .globl MapPoly +MapPoly: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0xC504 + jsl 0xe10000 + rtl + +; SetClipHandle(Pointer) -> void +; tool 0xC604, set 0x04 (QuickDraw) + .section .text.SetClipHandle,"ax" + .globl SetClipHandle +SetClipHandle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xC604 + jsl 0xe10000 + rtl + +; GetClipHandle(void) -> Pointer +; tool 0xC704, set 0x04 (QuickDraw) + .section .text.GetClipHandle,"ax" + .globl GetClipHandle +GetClipHandle: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0xC704 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetVisHandle(Pointer) -> void +; tool 0xC804, set 0x04 (QuickDraw) + .section .text.SetVisHandle,"ax" + .globl SetVisHandle +SetVisHandle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xC804 + jsl 0xe10000 + rtl + +; GetVisHandle(void) -> Pointer +; tool 0xC904, set 0x04 (QuickDraw) + .section .text.GetVisHandle,"ax" + .globl GetVisHandle +GetVisHandle: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0xC904 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetBufDims(Word, Word, Word) -> void +; tool 0xCB04, set 0x04 (QuickDraw) + .section .text.SetBufDims,"ax" + .globl SetBufDims +SetBufDims: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0xCB04 + jsl 0xe10000 + rtl + +; ForceBufDims(Word, Word, Word) -> void +; tool 0xCC04, set 0x04 (QuickDraw) + .section .text.ForceBufDims,"ax" + .globl ForceBufDims +ForceBufDims: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0xCC04 + jsl 0xe10000 + rtl + +; SaveBufDims(Pointer) -> void +; tool 0xCD04, set 0x04 (QuickDraw) + .section .text.SaveBufDims,"ax" + .globl SaveBufDims +SaveBufDims: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xCD04 + jsl 0xe10000 + rtl + +; RestoreBufDims(Pointer) -> void +; tool 0xCE04, set 0x04 (QuickDraw) + .section .text.RestoreBufDims,"ax" + .globl RestoreBufDims +RestoreBufDims: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xCE04 + jsl 0xe10000 + rtl + +; SetFontID(LongWord) -> void +; tool 0xD004, set 0x04 (QuickDraw) + .section .text.SetFontID,"ax" + .globl SetFontID +SetFontID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xD004 + jsl 0xe10000 + rtl + +; GetFontID(void) -> LongWord +; tool 0xD104, set 0x04 (QuickDraw) + .section .text.GetFontID,"ax" + .globl GetFontID +GetFontID: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0xD104 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PPToPort(Pointer, Pointer, Word, Word, Word) -> void +; tool 0xD604, set 0x04 (QuickDraw) + .section .text.PPToPort,"ax" + .globl PPToPort +PPToPort: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ; --- arg3 (Word, 2B) --- + lda 20, s + pha + ; --- arg4 (Word, 2B) --- + lda 24, s + pha + ldx #0xD604 + jsl 0xe10000 + rtl + +; InflateTextBuffer(Word, Word) -> void +; tool 0xD704, set 0x04 (QuickDraw) + .section .text.InflateTextBuffer,"ax" + .globl InflateTextBuffer +InflateTextBuffer: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0xD704 + jsl 0xe10000 + rtl + +; GetRomFont(Pointer) -> void +; tool 0xD804, set 0x04 (QuickDraw) + .section .text.GetRomFont,"ax" + .globl GetRomFont +GetRomFont: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0xD804 + jsl 0xe10000 + rtl + +; GetFontLore(Pointer, Word) -> Word +; tool 0xD904, set 0x04 (QuickDraw) + .section .text.GetFontLore,"ax" + .globl GetFontLore +GetFontLore: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0xD904 + jsl 0xe10000 + pla ; result -> A + rtl + +; Get640Colors(void) -> Pointer +; tool 0xDA04, set 0x04 (QuickDraw) + .section .text.Get640Colors,"ax" + .globl Get640Colors +Get640Colors: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0xDA04 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetDAStrPtr(Pointer, Pointer) -> void +; tool 0x1305, set 0x05 (DeskManager) + .section .text.SetDAStrPtr,"ax" + .globl SetDAStrPtr +SetDAStrPtr: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1305 + jsl 0xe10000 + rtl + +; GetDAStrPtr(void) -> Pointer +; tool 0x1405, set 0x05 (DeskManager) + .section .text.GetDAStrPtr,"ax" + .globl GetDAStrPtr +GetDAStrPtr: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1405 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SystemClick(Pointer, Pointer, Word) -> void +; tool 0x1705, set 0x05 (DeskManager) + .section .text.SystemClick,"ax" + .globl SystemClick +SystemClick: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x1705 + jsl 0xe10000 + rtl + +; SystemEvent(Word, LongWord, LongWord, LongWord, Word) -> Word +; tool 0x1A05, set 0x05 (DeskManager) + .section .text.SystemEvent,"ax" + .globl SystemEvent +SystemEvent: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 26, s + pha + lda 26, s + pha + ; --- arg4 (Word, 2B) --- + lda 32, s + pha + ldx #0x1A05 + jsl 0xe10000 + pla ; result -> A + rtl + +; CloseNDAbyWinPtr(Pointer) -> void +; tool 0x1C05, set 0x05 (DeskManager) + .section .text.CloseNDAbyWinPtr,"ax" + .globl CloseNDAbyWinPtr +CloseNDAbyWinPtr: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1C05 + jsl 0xe10000 + rtl + +; AddToRunQ(Pointer) -> void +; tool 0x1F05, set 0x05 (DeskManager) + .section .text.AddToRunQ,"ax" + .globl AddToRunQ +AddToRunQ: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1F05 + jsl 0xe10000 + rtl + +; RemoveFromRunQ(Pointer) -> void +; tool 0x2005, set 0x05 (DeskManager) + .section .text.RemoveFromRunQ,"ax" + .globl RemoveFromRunQ +RemoveFromRunQ: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2005 + jsl 0xe10000 + rtl + +; GetDeskAccInfo(Word, LongWord, Word, Pointer) -> void +; tool 0x2305, set 0x05 (DeskManager) + .section .text.GetDeskAccInfo,"ax" + .globl GetDeskAccInfo +GetDeskAccInfo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x2305 + jsl 0xe10000 + rtl + +; CallDeskAcc(Word, LongWord, Word, LongWord) -> Word +; tool 0x2405, set 0x05 (DeskManager) + .section .text.CallDeskAcc,"ax" + .globl CallDeskAcc +CallDeskAcc: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 22, s + pha + lda 22, s + pha + ldx #0x2405 + jsl 0xe10000 + pla ; result -> A + rtl + +; GetDeskGlobal(Word) -> LongWord +; tool 0x2505, set 0x05 (DeskManager) + .section .text.GetDeskGlobal,"ax" + .globl GetDeskGlobal +GetDeskGlobal: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x2505 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; EMStartUp(Word, Word, Word, Word, Word, Word, Word) -> void +; tool 0x0206, set 0x06 (EventManager) + .section .text.EMStartUp,"ax" + .globl EMStartUp +EMStartUp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ; --- arg4 (Word, 2B) --- + lda 18, s + pha + ; --- arg5 (Word, 2B) --- + lda 22, s + pha + ; --- arg6 (Word, 2B) --- + lda 26, s + pha + ldx #0x0206 + jsl 0xe10000 + rtl + +; GetNextEvent(Word, Pointer) -> Word +; tool 0x0A06, set 0x06 (EventManager) + .section .text.GetNextEvent,"ax" + .globl GetNextEvent +GetNextEvent: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0A06 + jsl 0xe10000 + pla ; result -> A + rtl + +; EventAvail(Word, Pointer) -> Word +; tool 0x0B06, set 0x06 (EventManager) + .section .text.EventAvail,"ax" + .globl EventAvail +EventAvail: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0B06 + jsl 0xe10000 + pla ; result -> A + rtl + +; GetMouse(Pointer) -> void +; tool 0x0C06, set 0x06 (EventManager) + .section .text.GetMouse,"ax" + .globl GetMouse +GetMouse: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0C06 + jsl 0xe10000 + rtl + +; TickCount(void) -> LongWord +; tool 0x1006, set 0x06 (EventManager) + .section .text.TickCount,"ax" + .globl TickCount +TickCount: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1006 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetDblTime(void) -> LongWord +; tool 0x1106, set 0x06 (EventManager) + .section .text.GetDblTime,"ax" + .globl GetDblTime +GetDblTime: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1106 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetCaretTime(void) -> LongWord +; tool 0x1206, set 0x06 (EventManager) + .section .text.GetCaretTime,"ax" + .globl GetCaretTime +GetCaretTime: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1206 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PostEvent(Word, LongWord) -> Word +; tool 0x1406, set 0x06 (EventManager) + .section .text.PostEvent,"ax" + .globl PostEvent +PostEvent: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1406 + jsl 0xe10000 + pla ; result -> A + rtl + +; FlushEvents(Word, Word) -> Word +; tool 0x1506, set 0x06 (EventManager) + .section .text.FlushEvents,"ax" + .globl FlushEvents +FlushEvents: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1506 + jsl 0xe10000 + pla ; result -> A + rtl + +; GetOSEvent(Word, Pointer) -> Word +; tool 0x1606, set 0x06 (EventManager) + .section .text.GetOSEvent,"ax" + .globl GetOSEvent +GetOSEvent: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1606 + jsl 0xe10000 + pla ; result -> A + rtl + +; OSEventAvail(Word, Pointer) -> Word +; tool 0x1706, set 0x06 (EventManager) + .section .text.OSEventAvail,"ax" + .globl OSEventAvail +OSEventAvail: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1706 + jsl 0xe10000 + pla ; result -> A + rtl + +; FakeMouse(Word, Word, Word, Word, Word) -> void +; tool 0x1906, set 0x06 (EventManager) + .section .text.FakeMouse,"ax" + .globl FakeMouse +FakeMouse: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ; --- arg4 (Word, 2B) --- + lda 18, s + pha + ldx #0x1906 + jsl 0xe10000 + rtl + +; SchAddTask(Pointer) -> Word +; tool 0x0907, set 0x07 (Scheduler) + .section .text.SchAddTask,"ax" + .globl SchAddTask +SchAddTask: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0907 + jsl 0xe10000 + pla ; result -> A + rtl + +; WriteRamBlock(Pointer, Word, Word) -> void +; tool 0x0908, set 0x08 (SoundManager) + .section .text.WriteRamBlock,"ax" + .globl WriteRamBlock +WriteRamBlock: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x0908 + jsl 0xe10000 + rtl + +; ReadRamBlock(Pointer, Word, Word) -> void +; tool 0x0A08, set 0x08 (SoundManager) + .section .text.ReadRamBlock,"ax" + .globl ReadRamBlock +ReadRamBlock: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x0A08 + jsl 0xe10000 + rtl + +; GetTableAddress(void) -> Pointer +; tool 0x0B08, set 0x08 (SoundManager) + .section .text.GetTableAddress,"ax" + .globl GetTableAddress +GetTableAddress: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x0B08 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetSoundVolume(Word, Word) -> void +; tool 0x0D08, set 0x08 (SoundManager) + .section .text.SetSoundVolume,"ax" + .globl SetSoundVolume +SetSoundVolume: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0D08 + jsl 0xe10000 + rtl + +; FFStartSound(Word, Pointer) -> void +; tool 0x0E08, set 0x08 (SoundManager) + .section .text.FFStartSound,"ax" + .globl FFStartSound +FFStartSound: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x0E08 + jsl 0xe10000 + rtl + +; SetSoundMIRQV(Pointer) -> void +; tool 0x1208, set 0x08 (SoundManager) + .section .text.SetSoundMIRQV,"ax" + .globl SetSoundMIRQV +SetSoundMIRQV: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1208 + jsl 0xe10000 + rtl + +; SetUserSoundIRQV(Pointer) -> Pointer +; tool 0x1308, set 0x08 (SoundManager) + .section .text.SetUserSoundIRQV,"ax" + .globl SetUserSoundIRQV +SetUserSoundIRQV: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1308 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FFSetUpSound(Word, Pointer) -> void +; tool 0x1508, set 0x08 (SoundManager) + .section .text.FFSetUpSound,"ax" + .globl FFSetUpSound +FFSetUpSound: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1508 + jsl 0xe10000 + rtl + +; SetDocReg(Pointer) -> void +; tool 0x1708, set 0x08 (SoundManager) + .section .text.SetDocReg,"ax" + .globl SetDocReg +SetDocReg: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1708 + jsl 0xe10000 + rtl + +; ReadDocReg(Pointer) -> void +; tool 0x1808, set 0x08 (SoundManager) + .section .text.ReadDocReg,"ax" + .globl ReadDocReg +ReadDocReg: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1808 + jsl 0xe10000 + rtl + +; SendInfo(Word, Pointer, Word) -> void +; tool 0x0909, set 0x09 (AppleDeskBus) + .section .text.SendInfo,"ax" + .globl SendInfo +SendInfo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x0909 + jsl 0xe10000 + rtl + +; ReadKeyMicroData(Word, Pointer, Word) -> void +; tool 0x0A09, set 0x09 (AppleDeskBus) + .section .text.ReadKeyMicroData,"ax" + .globl ReadKeyMicroData +ReadKeyMicroData: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x0A09 + jsl 0xe10000 + rtl + +; ReadKeyMicroMemory(Pointer, Pointer, Word) -> void +; tool 0x0B09, set 0x09 (AppleDeskBus) + .section .text.ReadKeyMicroMemory,"ax" + .globl ReadKeyMicroMemory +ReadKeyMicroMemory: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x0B09 + jsl 0xe10000 + rtl + +; AsyncADBReceive(Pointer, Word) -> void +; tool 0x0D09, set 0x09 (AppleDeskBus) + .section .text.AsyncADBReceive,"ax" + .globl AsyncADBReceive +AsyncADBReceive: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x0D09 + jsl 0xe10000 + rtl + +; SyncADBReceive(Word, Pointer, Word) -> void +; tool 0x0E09, set 0x09 (AppleDeskBus) + .section .text.SyncADBReceive,"ax" + .globl SyncADBReceive +SyncADBReceive: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x0E09 + jsl 0xe10000 + rtl + +; SetAbsScale(Pointer) -> void +; tool 0x1209, set 0x09 (AppleDeskBus) + .section .text.SetAbsScale,"ax" + .globl SetAbsScale +SetAbsScale: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1209 + jsl 0xe10000 + rtl + +; GetAbsScale(Pointer) -> void +; tool 0x1309, set 0x09 (AppleDeskBus) + .section .text.GetAbsScale,"ax" + .globl GetAbsScale +GetAbsScale: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1309 + jsl 0xe10000 + rtl + +; SRQPoll(Pointer, Word) -> void +; tool 0x1409, set 0x09 (AppleDeskBus) + .section .text.SRQPoll,"ax" + .globl SRQPoll +SRQPoll: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1409 + jsl 0xe10000 + rtl + +; Multiply(Word, Word) -> LongWord +; tool 0x090B, set 0x0B (IntegerMath) + .section .text.Multiply,"ax" + .globl Multiply +Multiply: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x090B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SDivide(Word, Word) -> LongWord +; tool 0x0A0B, set 0x0B (IntegerMath) + .section .text.SDivide,"ax" + .globl SDivide +SDivide: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x0A0B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; UDivide(Word, Word) -> LongWord +; tool 0x0B0B, set 0x0B (IntegerMath) + .section .text.UDivide,"ax" + .globl UDivide +UDivide: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x0B0B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; LongMul(LongWord, LongWord) -> 8B +; tool 0x0C0B, set 0x0B (IntegerMath) + .section .text.LongMul,"ax" + .globl LongMul +LongMul: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (8 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x0C0B + jsl 0xe10000 + pla + pla + pla + pla + rtl + +; LongDivide(LongWord, LongWord) -> 8B +; tool 0x0D0B, set 0x0B (IntegerMath) + .section .text.LongDivide,"ax" + .globl LongDivide +LongDivide: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (8 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x0D0B + jsl 0xe10000 + pla + pla + pla + pla + rtl + +; FixRatio(Word, Word) -> LongWord +; tool 0x0E0B, set 0x0B (IntegerMath) + .section .text.FixRatio,"ax" + .globl FixRatio +FixRatio: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x0E0B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FixMul(LongWord, LongWord) -> LongWord +; tool 0x0F0B, set 0x0B (IntegerMath) + .section .text.FixMul,"ax" + .globl FixMul +FixMul: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x0F0B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FracMul(LongWord, LongWord) -> LongWord +; tool 0x100B, set 0x0B (IntegerMath) + .section .text.FracMul,"ax" + .globl FracMul +FracMul: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x100B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FixDiv(LongWord, LongWord) -> LongWord +; tool 0x110B, set 0x0B (IntegerMath) + .section .text.FixDiv,"ax" + .globl FixDiv +FixDiv: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x110B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FracDiv(LongWord, LongWord) -> LongWord +; tool 0x120B, set 0x0B (IntegerMath) + .section .text.FracDiv,"ax" + .globl FracDiv +FracDiv: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x120B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FixRound(LongWord) -> Word +; tool 0x130B, set 0x0B (IntegerMath) + .section .text.FixRound,"ax" + .globl FixRound +FixRound: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x130B + jsl 0xe10000 + pla ; result -> A + rtl + +; FracSqrt(LongWord) -> LongWord +; tool 0x140B, set 0x0B (IntegerMath) + .section .text.FracSqrt,"ax" + .globl FracSqrt +FracSqrt: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x140B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FracCos(LongWord) -> LongWord +; tool 0x150B, set 0x0B (IntegerMath) + .section .text.FracCos,"ax" + .globl FracCos +FracCos: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x150B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FracSin(LongWord) -> LongWord +; tool 0x160B, set 0x0B (IntegerMath) + .section .text.FracSin,"ax" + .globl FracSin +FracSin: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x160B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FixATan2(LongWord, LongWord) -> LongWord +; tool 0x170B, set 0x0B (IntegerMath) + .section .text.FixATan2,"ax" + .globl FixATan2 +FixATan2: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x170B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; HiWord(LongWord) -> Word +; tool 0x180B, set 0x0B (IntegerMath) + .section .text.HiWord,"ax" + .globl HiWord +HiWord: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x180B + jsl 0xe10000 + pla ; result -> A + rtl + +; LoWord(LongWord) -> Word +; tool 0x190B, set 0x0B (IntegerMath) + .section .text.LoWord,"ax" + .globl LoWord +LoWord: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x190B + jsl 0xe10000 + pla ; result -> A + rtl + +; Long2Fix(LongWord) -> LongWord +; tool 0x1A0B, set 0x0B (IntegerMath) + .section .text.Long2Fix,"ax" + .globl Long2Fix +Long2Fix: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1A0B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; Fix2Long(LongWord) -> LongWord +; tool 0x1B0B, set 0x0B (IntegerMath) + .section .text.Fix2Long,"ax" + .globl Fix2Long +Fix2Long: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1B0B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; Fix2Frac(LongWord) -> LongWord +; tool 0x1C0B, set 0x0B (IntegerMath) + .section .text.Fix2Frac,"ax" + .globl Fix2Frac +Fix2Frac: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1C0B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; Frac2Fix(LongWord) -> LongWord +; tool 0x1D0B, set 0x0B (IntegerMath) + .section .text.Frac2Fix,"ax" + .globl Frac2Fix +Frac2Fix: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1D0B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; Fix2X(LongWord, Pointer) -> void +; tool 0x1E0B, set 0x0B (IntegerMath) + .section .text.Fix2X,"ax" + .globl Fix2X +Fix2X: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1E0B + jsl 0xe10000 + rtl + +; Frac2X(LongWord, Pointer) -> void +; tool 0x1F0B, set 0x0B (IntegerMath) + .section .text.Frac2X,"ax" + .globl Frac2X +Frac2X: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1F0B + jsl 0xe10000 + rtl + +; X2Fix(Pointer) -> LongWord +; tool 0x200B, set 0x0B (IntegerMath) + .section .text.X2Fix,"ax" + .globl X2Fix +X2Fix: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x200B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; X2Frac(Pointer) -> LongWord +; tool 0x210B, set 0x0B (IntegerMath) + .section .text.X2Frac,"ax" + .globl X2Frac +X2Frac: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x210B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; Int2Hex(Word, Pointer, Word) -> void +; tool 0x220B, set 0x0B (IntegerMath) + .section .text.Int2Hex,"ax" + .globl Int2Hex +Int2Hex: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x220B + jsl 0xe10000 + rtl + +; Long2Hex(LongWord, Pointer, Word) -> void +; tool 0x230B, set 0x0B (IntegerMath) + .section .text.Long2Hex,"ax" + .globl Long2Hex +Long2Hex: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x230B + jsl 0xe10000 + rtl + +; Hex2Int(Pointer, Word) -> Word +; tool 0x240B, set 0x0B (IntegerMath) + .section .text.Hex2Int,"ax" + .globl Hex2Int +Hex2Int: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x240B + jsl 0xe10000 + pla ; result -> A + rtl + +; Hex2Long(Pointer, Word) -> LongWord +; tool 0x250B, set 0x0B (IntegerMath) + .section .text.Hex2Long,"ax" + .globl Hex2Long +Hex2Long: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ldx #0x250B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; Int2Dec(Word, Pointer, Word, Word) -> void +; tool 0x260B, set 0x0B (IntegerMath) + .section .text.Int2Dec,"ax" + .globl Int2Dec +Int2Dec: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ldx #0x260B + jsl 0xe10000 + rtl + +; Long2Dec(LongWord, Pointer, Word, Word) -> void +; tool 0x270B, set 0x0B (IntegerMath) + .section .text.Long2Dec,"ax" + .globl Long2Dec +Long2Dec: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ; --- arg3 (Word, 2B) --- + lda 20, s + pha + ldx #0x270B + jsl 0xe10000 + rtl + +; Dec2Int(Pointer, Word, Word) -> Word +; tool 0x280B, set 0x0B (IntegerMath) + .section .text.Dec2Int,"ax" + .globl Dec2Int +Dec2Int: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x280B + jsl 0xe10000 + pla ; result -> A + rtl + +; Dec2Long(Pointer, Word, Word) -> LongWord +; tool 0x290B, set 0x0B (IntegerMath) + .section .text.Dec2Long,"ax" + .globl Dec2Long +Dec2Long: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x290B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; HexIt(Word) -> LongWord +; tool 0x2A0B, set 0x0B (IntegerMath) + .section .text.HexIt,"ax" + .globl HexIt +HexIt: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x2A0B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetInGlobals(Word, Word) -> void +; tool 0x090C, set 0x0C (TextTools) + .section .text.SetInGlobals,"ax" + .globl SetInGlobals +SetInGlobals: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x090C + jsl 0xe10000 + rtl + +; SetOutGlobals(Word, Word) -> void +; tool 0x0A0C, set 0x0C (TextTools) + .section .text.SetOutGlobals,"ax" + .globl SetOutGlobals +SetOutGlobals: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0A0C + jsl 0xe10000 + rtl + +; SetErrGlobals(Word, Word) -> void +; tool 0x0B0C, set 0x0C (TextTools) + .section .text.SetErrGlobals,"ax" + .globl SetErrGlobals +SetErrGlobals: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0B0C + jsl 0xe10000 + rtl + +; GetInGlobals(void) -> LongWord +; tool 0x0C0C, set 0x0C (TextTools) + .section .text.GetInGlobals,"ax" + .globl GetInGlobals +GetInGlobals: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x0C0C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetOutGlobals(void) -> LongWord +; tool 0x0D0C, set 0x0C (TextTools) + .section .text.GetOutGlobals,"ax" + .globl GetOutGlobals +GetOutGlobals: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x0D0C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetErrGlobals(void) -> LongWord +; tool 0x0E0C, set 0x0C (TextTools) + .section .text.GetErrGlobals,"ax" + .globl GetErrGlobals +GetErrGlobals: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x0E0C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetInputDevice(Word, Pointer) -> void +; tool 0x0F0C, set 0x0C (TextTools) + .section .text.SetInputDevice,"ax" + .globl SetInputDevice +SetInputDevice: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x0F0C + jsl 0xe10000 + rtl + +; SetOutputDevice(Word, Pointer) -> void +; tool 0x100C, set 0x0C (TextTools) + .section .text.SetOutputDevice,"ax" + .globl SetOutputDevice +SetOutputDevice: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x100C + jsl 0xe10000 + rtl + +; SetErrorDevice(Word, Pointer) -> void +; tool 0x110C, set 0x0C (TextTools) + .section .text.SetErrorDevice,"ax" + .globl SetErrorDevice +SetErrorDevice: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x110C + jsl 0xe10000 + rtl + +; GetInputDevice(void) -> Pointer +; tool 0x120C, set 0x0C (TextTools) + .section .text.GetInputDevice,"ax" + .globl GetInputDevice +GetInputDevice: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x120C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetOutputDevice(void) -> Pointer +; tool 0x130C, set 0x0C (TextTools) + .section .text.GetOutputDevice,"ax" + .globl GetOutputDevice +GetOutputDevice: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x130C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetErrorDevice(void) -> Pointer +; tool 0x140C, set 0x0C (TextTools) + .section .text.GetErrorDevice,"ax" + .globl GetErrorDevice +GetErrorDevice: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x140C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; CtlTextDev(Word, Word) -> void +; tool 0x160C, set 0x0C (TextTools) + .section .text.CtlTextDev,"ax" + .globl CtlTextDev +CtlTextDev: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x160C + jsl 0xe10000 + rtl + +; StatusTextDev(Word, Word) -> void +; tool 0x170C, set 0x0C (TextTools) + .section .text.StatusTextDev,"ax" + .globl StatusTextDev +StatusTextDev: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x170C + jsl 0xe10000 + rtl + +; WriteLine(Pointer) -> void +; tool 0x1A0C, set 0x0C (TextTools) + .section .text.WriteLine,"ax" + .globl WriteLine +WriteLine: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1A0C + jsl 0xe10000 + rtl + +; ErrWriteLine(Pointer) -> void +; tool 0x1B0C, set 0x0C (TextTools) + .section .text.ErrWriteLine,"ax" + .globl ErrWriteLine +ErrWriteLine: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1B0C + jsl 0xe10000 + rtl + +; WriteString(Pointer) -> void +; tool 0x1C0C, set 0x0C (TextTools) + .section .text.WriteString,"ax" + .globl WriteString +WriteString: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1C0C + jsl 0xe10000 + rtl + +; ErrWriteString(Pointer) -> void +; tool 0x1D0C, set 0x0C (TextTools) + .section .text.ErrWriteString,"ax" + .globl ErrWriteString +ErrWriteString: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1D0C + jsl 0xe10000 + rtl + +; TextWriteBlock(Pointer, Word, Word) -> void +; tool 0x1E0C, set 0x0C (TextTools) + .section .text.TextWriteBlock,"ax" + .globl TextWriteBlock +TextWriteBlock: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x1E0C + jsl 0xe10000 + rtl + +; ErrWriteBlock(Pointer, Word, Word) -> void +; tool 0x1F0C, set 0x0C (TextTools) + .section .text.ErrWriteBlock,"ax" + .globl ErrWriteBlock +ErrWriteBlock: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x1F0C + jsl 0xe10000 + rtl + +; WriteCString(Pointer) -> void +; tool 0x200C, set 0x0C (TextTools) + .section .text.WriteCString,"ax" + .globl WriteCString +WriteCString: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x200C + jsl 0xe10000 + rtl + +; ErrWriteCString(Pointer) -> void +; tool 0x210C, set 0x0C (TextTools) + .section .text.ErrWriteCString,"ax" + .globl ErrWriteCString +ErrWriteCString: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x210C + jsl 0xe10000 + rtl + +; TextReadBlock(Pointer, Word, Word, Word) -> void +; tool 0x230C, set 0x0C (TextTools) + .section .text.TextReadBlock,"ax" + .globl TextReadBlock +TextReadBlock: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 16, s + pha + ldx #0x230C + jsl 0xe10000 + rtl + +; ReadLine(Pointer, Word, Word, Word) -> Word +; tool 0x240C, set 0x0C (TextTools) + .section .text.ReadLine,"ax" + .globl ReadLine +ReadLine: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ldx #0x240C + jsl 0xe10000 + pla ; result -> A + rtl + +; NewWindow(Pointer) -> Pointer +; tool 0x090E, set 0x0E (WindowManager) + .section .text.NewWindow,"ax" + .globl NewWindow +NewWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x090E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; CheckUpdate(Pointer) -> Word +; tool 0x0A0E, set 0x0E (WindowManager) + .section .text.CheckUpdate,"ax" + .globl CheckUpdate +CheckUpdate: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0A0E + jsl 0xe10000 + pla ; result -> A + rtl + +; CloseWindow(Pointer) -> void +; tool 0x0B0E, set 0x0E (WindowManager) + .section .text.CloseWindow,"ax" + .globl CloseWindow +CloseWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0B0E + jsl 0xe10000 + rtl + +; Desktop(Word, LongWord) -> LongWord +; tool 0x0C0E, set 0x0E (WindowManager) + .section .text.Desktop,"ax" + .globl Desktop +Desktop: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x0C0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetWTitle(Pointer, Pointer) -> void +; tool 0x0D0E, set 0x0E (WindowManager) + .section .text.SetWTitle,"ax" + .globl SetWTitle +SetWTitle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0D0E + jsl 0xe10000 + rtl + +; GetWTitle(Pointer) -> Pointer +; tool 0x0E0E, set 0x0E (WindowManager) + .section .text.GetWTitle,"ax" + .globl GetWTitle +GetWTitle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0E0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetFrameColor(Pointer, Pointer) -> void +; tool 0x0F0E, set 0x0E (WindowManager) + .section .text.SetFrameColor,"ax" + .globl SetFrameColor +SetFrameColor: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0F0E + jsl 0xe10000 + rtl + +; GetFrameColor(Pointer, Pointer) -> void +; tool 0x100E, set 0x0E (WindowManager) + .section .text.GetFrameColor,"ax" + .globl GetFrameColor +GetFrameColor: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x100E + jsl 0xe10000 + rtl + +; SelectWindow(Pointer) -> void +; tool 0x110E, set 0x0E (WindowManager) + .section .text.SelectWindow,"ax" + .globl SelectWindow +SelectWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x110E + jsl 0xe10000 + rtl + +; HideWindow(Pointer) -> void +; tool 0x120E, set 0x0E (WindowManager) + .section .text.HideWindow,"ax" + .globl HideWindow +HideWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x120E + jsl 0xe10000 + rtl + +; ShowWindow(Pointer) -> void +; tool 0x130E, set 0x0E (WindowManager) + .section .text.ShowWindow,"ax" + .globl ShowWindow +ShowWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x130E + jsl 0xe10000 + rtl + +; SendBehind(Pointer, Pointer) -> void +; tool 0x140E, set 0x0E (WindowManager) + .section .text.SendBehind,"ax" + .globl SendBehind +SendBehind: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x140E + jsl 0xe10000 + rtl + +; FrontWindow(void) -> Pointer +; tool 0x150E, set 0x0E (WindowManager) + .section .text.FrontWindow,"ax" + .globl FrontWindow +FrontWindow: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x150E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetInfoDraw(Pointer, Pointer) -> void +; tool 0x160E, set 0x0E (WindowManager) + .section .text.SetInfoDraw,"ax" + .globl SetInfoDraw +SetInfoDraw: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x160E + jsl 0xe10000 + rtl + +; FindWindow(Pointer, Word, Word) -> Word +; tool 0x170E, set 0x0E (WindowManager) + .section .text.FindWindow,"ax" + .globl FindWindow +FindWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x170E + jsl 0xe10000 + pla ; result -> A + rtl + +; TrackGoAway(Word, Word, Pointer) -> Word +; tool 0x180E, set 0x0E (WindowManager) + .section .text.TrackGoAway,"ax" + .globl TrackGoAway +TrackGoAway: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x180E + jsl 0xe10000 + pla ; result -> A + rtl + +; MoveWindow(Word, Word, Pointer) -> void +; tool 0x190E, set 0x0E (WindowManager) + .section .text.MoveWindow,"ax" + .globl MoveWindow +MoveWindow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x190E + jsl 0xe10000 + rtl + +; DragWindow(Word, Word, Word, Word, Pointer, Pointer) -> void +; tool 0x1A0E, set 0x0E (WindowManager) + .section .text.DragWindow,"ax" + .globl DragWindow +DragWindow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 28, s + pha + lda 28, s + pha + ldx #0x1A0E + jsl 0xe10000 + rtl + +; GrowWindow(Word, Word, Word, Word, Pointer) -> LongWord +; tool 0x1B0E, set 0x0E (WindowManager) + .section .text.GrowWindow,"ax" + .globl GrowWindow +GrowWindow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 24, s + pha + lda 24, s + pha + ldx #0x1B0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SizeWindow(Word, Word, Pointer) -> void +; tool 0x1C0E, set 0x0E (WindowManager) + .section .text.SizeWindow,"ax" + .globl SizeWindow +SizeWindow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1C0E + jsl 0xe10000 + rtl + +; TaskMaster(Word, Pointer) -> Word +; tool 0x1D0E, set 0x0E (WindowManager) + .section .text.TaskMaster,"ax" + .globl TaskMaster +TaskMaster: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1D0E + jsl 0xe10000 + pla ; result -> A + rtl + +; BeginUpdate(Pointer) -> void +; tool 0x1E0E, set 0x0E (WindowManager) + .section .text.BeginUpdate,"ax" + .globl BeginUpdate +BeginUpdate: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1E0E + jsl 0xe10000 + rtl + +; EndUpdate(Pointer) -> void +; tool 0x1F0E, set 0x0E (WindowManager) + .section .text.EndUpdate,"ax" + .globl EndUpdate +EndUpdate: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1F0E + jsl 0xe10000 + rtl + +; GetWMgrPort(void) -> Pointer +; tool 0x200E, set 0x0E (WindowManager) + .section .text.GetWMgrPort,"ax" + .globl GetWMgrPort +GetWMgrPort: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x200E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PinRect(Word, Word, Pointer) -> LongWord +; tool 0x210E, set 0x0E (WindowManager) + .section .text.PinRect,"ax" + .globl PinRect +PinRect: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x210E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; HiliteWindow(Word, Pointer) -> void +; tool 0x220E, set 0x0E (WindowManager) + .section .text.HiliteWindow,"ax" + .globl HiliteWindow +HiliteWindow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x220E + jsl 0xe10000 + rtl + +; ShowHide(Word, Pointer) -> void +; tool 0x230E, set 0x0E (WindowManager) + .section .text.ShowHide,"ax" + .globl ShowHide +ShowHide: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x230E + jsl 0xe10000 + rtl + +; BringToFront(Pointer) -> void +; tool 0x240E, set 0x0E (WindowManager) + .section .text.BringToFront,"ax" + .globl BringToFront +BringToFront: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x240E + jsl 0xe10000 + rtl + +; TrackZoom(Word, Word, Pointer) -> Word +; tool 0x260E, set 0x0E (WindowManager) + .section .text.TrackZoom,"ax" + .globl TrackZoom +TrackZoom: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x260E + jsl 0xe10000 + pla ; result -> A + rtl + +; ZoomWindow(Pointer) -> void +; tool 0x270E, set 0x0E (WindowManager) + .section .text.ZoomWindow,"ax" + .globl ZoomWindow +ZoomWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x270E + jsl 0xe10000 + rtl + +; SetWRefCon(LongWord, Pointer) -> void +; tool 0x280E, set 0x0E (WindowManager) + .section .text.SetWRefCon,"ax" + .globl SetWRefCon +SetWRefCon: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x280E + jsl 0xe10000 + rtl + +; GetWRefCon(Pointer) -> LongWord +; tool 0x290E, set 0x0E (WindowManager) + .section .text.GetWRefCon,"ax" + .globl GetWRefCon +GetWRefCon: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x290E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetNextWindow(Pointer) -> Pointer +; tool 0x2A0E, set 0x0E (WindowManager) + .section .text.GetNextWindow,"ax" + .globl GetNextWindow +GetNextWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2A0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetWKind(Pointer) -> Word +; tool 0x2B0E, set 0x0E (WindowManager) + .section .text.GetWKind,"ax" + .globl GetWKind +GetWKind: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2B0E + jsl 0xe10000 + pla ; result -> A + rtl + +; GetWFrame(Pointer) -> Word +; tool 0x2C0E, set 0x0E (WindowManager) + .section .text.GetWFrame,"ax" + .globl GetWFrame +GetWFrame: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2C0E + jsl 0xe10000 + pla ; result -> A + rtl + +; SetWFrame(Word, Pointer) -> void +; tool 0x2D0E, set 0x0E (WindowManager) + .section .text.SetWFrame,"ax" + .globl SetWFrame +SetWFrame: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x2D0E + jsl 0xe10000 + rtl + +; GetStructRgn(Pointer) -> Pointer +; tool 0x2E0E, set 0x0E (WindowManager) + .section .text.GetStructRgn,"ax" + .globl GetStructRgn +GetStructRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2E0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetContentRgn(Pointer) -> Pointer +; tool 0x2F0E, set 0x0E (WindowManager) + .section .text.GetContentRgn,"ax" + .globl GetContentRgn +GetContentRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2F0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetUpdateRgn(Pointer) -> Pointer +; tool 0x300E, set 0x0E (WindowManager) + .section .text.GetUpdateRgn,"ax" + .globl GetUpdateRgn +GetUpdateRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x300E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetDefProc(Pointer) -> Pointer +; tool 0x310E, set 0x0E (WindowManager) + .section .text.GetDefProc,"ax" + .globl GetDefProc +GetDefProc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x310E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetDefProc(Pointer, Pointer) -> void +; tool 0x320E, set 0x0E (WindowManager) + .section .text.SetDefProc,"ax" + .globl SetDefProc +SetDefProc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x320E + jsl 0xe10000 + rtl + +; GetWControls(Pointer) -> Pointer +; tool 0x330E, set 0x0E (WindowManager) + .section .text.GetWControls,"ax" + .globl GetWControls +GetWControls: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x330E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetOriginMask(Word, Pointer) -> void +; tool 0x340E, set 0x0E (WindowManager) + .section .text.SetOriginMask,"ax" + .globl SetOriginMask +SetOriginMask: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x340E + jsl 0xe10000 + rtl + +; GetInfoRefCon(Pointer) -> LongWord +; tool 0x350E, set 0x0E (WindowManager) + .section .text.GetInfoRefCon,"ax" + .globl GetInfoRefCon +GetInfoRefCon: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x350E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetInfoRefCon(LongWord, Pointer) -> void +; tool 0x360E, set 0x0E (WindowManager) + .section .text.SetInfoRefCon,"ax" + .globl SetInfoRefCon +SetInfoRefCon: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x360E + jsl 0xe10000 + rtl + +; GetZoomRect(Pointer) -> Pointer +; tool 0x370E, set 0x0E (WindowManager) + .section .text.GetZoomRect,"ax" + .globl GetZoomRect +GetZoomRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x370E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetZoomRect(Pointer, Pointer) -> void +; tool 0x380E, set 0x0E (WindowManager) + .section .text.SetZoomRect,"ax" + .globl SetZoomRect +SetZoomRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x380E + jsl 0xe10000 + rtl + +; RefreshDesktop(Pointer) -> void +; tool 0x390E, set 0x0E (WindowManager) + .section .text.RefreshDesktop,"ax" + .globl RefreshDesktop +RefreshDesktop: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x390E + jsl 0xe10000 + rtl + +; InvalRect(Pointer) -> void +; tool 0x3A0E, set 0x0E (WindowManager) + .section .text.InvalRect,"ax" + .globl InvalRect +InvalRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3A0E + jsl 0xe10000 + rtl + +; InvalRgn(Pointer) -> void +; tool 0x3B0E, set 0x0E (WindowManager) + .section .text.InvalRgn,"ax" + .globl InvalRgn +InvalRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3B0E + jsl 0xe10000 + rtl + +; ValidRect(Pointer) -> void +; tool 0x3C0E, set 0x0E (WindowManager) + .section .text.ValidRect,"ax" + .globl ValidRect +ValidRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3C0E + jsl 0xe10000 + rtl + +; ValidRgn(Pointer) -> void +; tool 0x3D0E, set 0x0E (WindowManager) + .section .text.ValidRgn,"ax" + .globl ValidRgn +ValidRgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3D0E + jsl 0xe10000 + rtl + +; GetContentOrigin(Pointer) -> LongWord +; tool 0x3E0E, set 0x0E (WindowManager) + .section .text.GetContentOrigin,"ax" + .globl GetContentOrigin +GetContentOrigin: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3E0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetContentOrigin(Word, Word, Pointer) -> void +; tool 0x3F0E, set 0x0E (WindowManager) + .section .text.SetContentOrigin,"ax" + .globl SetContentOrigin +SetContentOrigin: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x3F0E + jsl 0xe10000 + rtl + +; GetDataSize(Pointer) -> LongWord +; tool 0x400E, set 0x0E (WindowManager) + .section .text.GetDataSize,"ax" + .globl GetDataSize +GetDataSize: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x400E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetDataSize(Word, Word, Pointer) -> void +; tool 0x410E, set 0x0E (WindowManager) + .section .text.SetDataSize,"ax" + .globl SetDataSize +SetDataSize: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x410E + jsl 0xe10000 + rtl + +; GetMaxGrow(Pointer) -> LongWord +; tool 0x420E, set 0x0E (WindowManager) + .section .text.GetMaxGrow,"ax" + .globl GetMaxGrow +GetMaxGrow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x420E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetMaxGrow(Word, Word, Pointer) -> void +; tool 0x430E, set 0x0E (WindowManager) + .section .text.SetMaxGrow,"ax" + .globl SetMaxGrow +SetMaxGrow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x430E + jsl 0xe10000 + rtl + +; GetScroll(Pointer) -> LongWord +; tool 0x440E, set 0x0E (WindowManager) + .section .text.GetScroll,"ax" + .globl GetScroll +GetScroll: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x440E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetScroll(Word, Word, Pointer) -> void +; tool 0x450E, set 0x0E (WindowManager) + .section .text.SetScroll,"ax" + .globl SetScroll +SetScroll: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x450E + jsl 0xe10000 + rtl + +; GetPage(Pointer) -> LongWord +; tool 0x460E, set 0x0E (WindowManager) + .section .text.GetPage,"ax" + .globl GetPage +GetPage: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x460E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetPage(Word, Word, Pointer) -> void +; tool 0x470E, set 0x0E (WindowManager) + .section .text.SetPage,"ax" + .globl SetPage +SetPage: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x470E + jsl 0xe10000 + rtl + +; GetContentDraw(Pointer) -> Pointer +; tool 0x480E, set 0x0E (WindowManager) + .section .text.GetContentDraw,"ax" + .globl GetContentDraw +GetContentDraw: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x480E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetContentDraw(Pointer, Pointer) -> void +; tool 0x490E, set 0x0E (WindowManager) + .section .text.SetContentDraw,"ax" + .globl SetContentDraw +SetContentDraw: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x490E + jsl 0xe10000 + rtl + +; GetInfoDraw(Pointer) -> Pointer +; tool 0x4A0E, set 0x0E (WindowManager) + .section .text.GetInfoDraw,"ax" + .globl GetInfoDraw +GetInfoDraw: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4A0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetSysWindow(Pointer) -> void +; tool 0x4B0E, set 0x0E (WindowManager) + .section .text.SetSysWindow,"ax" + .globl SetSysWindow +SetSysWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4B0E + jsl 0xe10000 + rtl + +; GetSysWFlag(Pointer) -> Word +; tool 0x4C0E, set 0x0E (WindowManager) + .section .text.GetSysWFlag,"ax" + .globl GetSysWFlag +GetSysWFlag: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4C0E + jsl 0xe10000 + pla ; result -> A + rtl + +; StartDrawing(Pointer) -> void +; tool 0x4D0E, set 0x0E (WindowManager) + .section .text.StartDrawing,"ax" + .globl StartDrawing +StartDrawing: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4D0E + jsl 0xe10000 + rtl + +; SetWindowIcons(Pointer) -> Pointer +; tool 0x4E0E, set 0x0E (WindowManager) + .section .text.SetWindowIcons,"ax" + .globl SetWindowIcons +SetWindowIcons: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x4E0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetRectInfo(Pointer, Pointer) -> void +; tool 0x4F0E, set 0x0E (WindowManager) + .section .text.GetRectInfo,"ax" + .globl GetRectInfo +GetRectInfo: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x4F0E + jsl 0xe10000 + rtl + +; StartInfoDrawing(Pointer, Pointer) -> void +; tool 0x500E, set 0x0E (WindowManager) + .section .text.StartInfoDrawing,"ax" + .globl StartInfoDrawing +StartInfoDrawing: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x500E + jsl 0xe10000 + rtl + +; GetFirstWindow(void) -> Pointer +; tool 0x520E, set 0x0E (WindowManager) + .section .text.GetFirstWindow,"ax" + .globl GetFirstWindow +GetFirstWindow: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x520E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; WindDragRect(Pointer, Pointer, Word, Word, Pointer, Pointer, Pointer, Word) -> LongWord +; tool 0x530E, set 0x0E (WindowManager) + .section .text.WindDragRect,"ax" + .globl WindDragRect +WindDragRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg2 (Word, 2B) --- + lda 20, s + pha + ; --- arg3 (Word, 2B) --- + lda 24, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 30, s + pha + lda 30, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 38, s + pha + lda 38, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 46, s + pha + lda 46, s + pha + ; --- arg7 (Word, 2B) --- + lda 52, s + pha + ldx #0x530E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; Private01(void) -> Pointer +; tool 0x540E, set 0x0E (WindowManager) + .section .text.Private01,"ax" + .globl Private01 +Private01: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x540E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; DrawInfoBar(Pointer) -> void +; tool 0x550E, set 0x0E (WindowManager) + .section .text.DrawInfoBar,"ax" + .globl DrawInfoBar +DrawInfoBar: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x550E + jsl 0xe10000 + rtl + +; SetContentOrigin2(Word, Word, Word, Pointer) -> void +; tool 0x570E, set 0x0E (WindowManager) + .section .text.SetContentOrigin2,"ax" + .globl SetContentOrigin2 +SetContentOrigin2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x570E + jsl 0xe10000 + rtl + +; GetWindowMgrGlobals(void) -> Pointer +; tool 0x580E, set 0x0E (WindowManager) + .section .text.GetWindowMgrGlobals,"ax" + .globl GetWindowMgrGlobals +GetWindowMgrGlobals: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x580E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; AlertWindow(Word, Pointer, LongWord) -> Word +; tool 0x590E, set 0x0E (WindowManager) + .section .text.AlertWindow,"ax" + .globl AlertWindow +AlertWindow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x590E + jsl 0xe10000 + pla ; result -> A + rtl + +; StartFrameDrawing(Pointer) -> void +; tool 0x5A0E, set 0x0E (WindowManager) + .section .text.StartFrameDrawing,"ax" + .globl StartFrameDrawing +StartFrameDrawing: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x5A0E + jsl 0xe10000 + rtl + +; ResizeWindow(Word, Pointer, Pointer) -> void +; tool 0x5C0E, set 0x0E (WindowManager) + .section .text.ResizeWindow,"ax" + .globl ResizeWindow +ResizeWindow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x5C0E + jsl 0xe10000 + rtl + +; TaskMasterDA(Word, Pointer) -> Word +; tool 0x5F0E, set 0x0E (WindowManager) + .section .text.TaskMasterDA,"ax" + .globl TaskMasterDA +TaskMasterDA: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x5F0E + jsl 0xe10000 + pla ; result -> A + rtl + +; CompileText(Word, Pointer, Pointer, Word) -> Pointer +; tool 0x600E, set 0x0E (WindowManager) + .section .text.CompileText,"ax" + .globl CompileText +CompileText: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg3 (Word, 2B) --- + lda 26, s + pha + ldx #0x600E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; NewWindow2(Pointer, LongWord, Pointer, Pointer, Word, LongWord, Word) -> Pointer +; tool 0x610E, set 0x0E (WindowManager) + .section .text.NewWindow2,"ax" + .globl NewWindow2 +NewWindow2: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 22, s + pha + lda 22, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 30, s + pha + lda 30, s + pha + ; --- arg4 (Word, 2B) --- + lda 36, s + pha + ; --- arg5 (LongWord, 4B) --- + lda 42, s + pha + lda 42, s + pha + ; --- arg6 (Word, 2B) --- + lda 48, s + pha + ldx #0x610E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; ErrorWindow(Word, Pointer, Word) -> Word +; tool 0x620E, set 0x0E (WindowManager) + .section .text.ErrorWindow,"ax" + .globl ErrorWindow +ErrorWindow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x620E + jsl 0xe10000 + pla ; result -> A + rtl + +; GetAuxWindInfo(Pointer) -> Pointer +; tool 0x630E, set 0x0E (WindowManager) + .section .text.GetAuxWindInfo,"ax" + .globl GetAuxWindInfo +GetAuxWindInfo: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x630E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; DoModalWindow(Pointer, Pointer, Pointer, Pointer, Word) -> LongWord +; tool 0x640E, set 0x0E (WindowManager) + .section .text.DoModalWindow,"ax" + .globl DoModalWindow +DoModalWindow: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 22, s + pha + lda 22, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 30, s + pha + lda 30, s + pha + ; --- arg4 (Word, 2B) --- + lda 36, s + pha + ldx #0x640E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MWSetMenuProc(Pointer) -> Pointer +; tool 0x660E, set 0x0E (WindowManager) + .section .text.MWSetMenuProc,"ax" + .globl MWSetMenuProc +MWSetMenuProc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x660E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FindCursorCtl(Pointer, Word, Word, Pointer) -> Word +; tool 0x690E, set 0x0E (WindowManager) + .section .text.FindCursorCtl,"ax" + .globl FindCursorCtl +FindCursorCtl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x690E + jsl 0xe10000 + pla ; result -> A + rtl + +; ResizeInfoBar(Word, Word, Pointer) -> void +; tool 0x6A0E, set 0x0E (WindowManager) + .section .text.ResizeInfoBar,"ax" + .globl ResizeInfoBar +ResizeInfoBar: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x6A0E + jsl 0xe10000 + rtl + +; HandleDiskInsert(Word, Word) -> LongWord +; tool 0x6B0E, set 0x0E (WindowManager) + .section .text.HandleDiskInsert,"ax" + .globl HandleDiskInsert +HandleDiskInsert: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x6B0E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; UpdateWindow(Word, Pointer) -> void +; tool 0x6C0E, set 0x0E (WindowManager) + .section .text.UpdateWindow,"ax" + .globl UpdateWindow +UpdateWindow: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x6C0E + jsl 0xe10000 + rtl + ; MenuStartUp(Word, Word) -> void ; tool 0x020F, set 0x0F (MenuManager) .section .text.MenuStartUp,"ax" @@ -8066,48 +10217,11 @@ MenuStartUp: jsl 0xe10000 rtl -; CalcMenuSize(Word, Word, Word) -> void -; tool 0x1C0F, set 0x0F (MenuManager) - .section .text.CalcMenuSize,"ax" - .globl CalcMenuSize -CalcMenuSize: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ldx #0x1C0F - jsl 0xe10000 - rtl - -; CheckMItem(Boolean, Word) -> void -; tool 0x320F, set 0x0F (MenuManager) - .section .text.CheckMItem,"ax" - .globl CheckMItem -CheckMItem: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x320F - jsl 0xe10000 - rtl - -; DisposeMenu(MenuRecHndl) -> void -; tool 0x2E0F, set 0x0F (MenuManager) - .section .text.DisposeMenu,"ax" - .globl DisposeMenu -DisposeMenu: +; MenuKey(Pointer, Pointer) -> void +; tool 0x090F, set 0x0F (MenuManager) + .section .text.MenuKey,"ax" + .globl MenuKey +MenuKey: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -8116,25 +10230,16 @@ DisposeMenu: pha lda 0xE0 pha - ldx #0x2E0F + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x090F jsl 0xe10000 rtl -; GetBarColors(void) -> LongWord -; tool 0x180F, set 0x0F (MenuManager) - .section .text.GetBarColors,"ax" - .globl GetBarColors -GetBarColors: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x180F - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetMenuBar(void) -> MenuBarRecHndl +; GetMenuBar(void) -> Pointer ; tool 0x0A0F, set 0x0F (MenuManager) .section .text.GetMenuBar,"ax" .globl GetMenuBar @@ -8148,128 +10253,24 @@ GetMenuBar: plx ; result hi -> X rtl -; GetMenuMgrPort(void) -> GrafPortPtr -; tool 0x1B0F, set 0x0F (MenuManager) - .section .text.GetMenuMgrPort,"ax" - .globl GetMenuMgrPort -GetMenuMgrPort: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1B0F - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetMenuTitle(Word) -> Pointer -; tool 0x220F, set 0x0F (MenuManager) - .section .text.GetMenuTitle,"ax" - .globl GetMenuTitle -GetMenuTitle: - ; --- stash arg0 (in A) --- +; MenuRefresh(Pointer) -> void +; tool 0x0B0F, set 0x0F (MenuManager) + .section .text.MenuRefresh,"ax" + .globl MenuRefresh +MenuRefresh: + ; --- stash arg0 (in A/X) --- sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 + stx 0xE2 ; --- arg0 --- + lda 0xE2 + pha lda 0xE0 pha - ldx #0x220F - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetMHandle(Word) -> MenuRecHndl -; tool 0x160F, set 0x0F (MenuManager) - .section .text.GetMHandle,"ax" - .globl GetMHandle -GetMHandle: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x160F - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetMItem(Word) -> StringPtr -; tool 0x250F, set 0x0F (MenuManager) - .section .text.GetMItem,"ax" - .globl GetMItem -GetMItem: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x250F - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetMItemStyle(Word) -> TextStyle -; tool 0x360F, set 0x0F (MenuManager) - .section .text.GetMItemStyle,"ax" - .globl GetMItemStyle -GetMItemStyle: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x360F - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetSysBar(void) -> MenuBarRecHndl -; tool 0x110F, set 0x0F (MenuManager) - .section .text.GetSysBar,"ax" - .globl GetSysBar -GetSysBar: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x110F - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; HiliteMenu(Boolean, Word) -> void -; tool 0x2C0F, set 0x0F (MenuManager) - .section .text.HiliteMenu,"ax" - .globl HiliteMenu -HiliteMenu: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x2C0F + ldx #0x0B0F jsl 0xe10000 rtl -; InsertMenu(MenuRecHndl, Word) -> void +; InsertMenu(Pointer, Word) -> void ; tool 0x0D0F, set 0x0F (MenuManager) .section .text.InsertMenu,"ax" .globl InsertMenu @@ -8312,90 +10313,38 @@ InsertMItem: jsl 0xe10000 rtl -; MenuKey(WmTaskRecPtr, MenuRecHndl) -> void -; tool 0x090F, set 0x0F (MenuManager) - .section .text.MenuKey,"ax" - .globl MenuKey -MenuKey: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (MenuRecHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x090F - jsl 0xe10000 - rtl - -; MenuRefresh(VoidProcPtr) -> void -; tool 0x0B0F, set 0x0F (MenuManager) - .section .text.MenuRefresh,"ax" - .globl MenuRefresh -MenuRefresh: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0B0F - jsl 0xe10000 - rtl - -; MenuSelect(WmTaskRecPtr, MenuRecHndl) -> void -; tool 0x2B0F, set 0x0F (MenuManager) - .section .text.MenuSelect,"ax" - .globl MenuSelect -MenuSelect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (MenuRecHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x2B0F - jsl 0xe10000 - rtl - -; NewMenu(Pointer) -> MenuRecHndl -; tool 0x2D0F, set 0x0F (MenuManager) - .section .text.NewMenu,"ax" - .globl NewMenu -NewMenu: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 +; GetSysBar(void) -> Pointer +; tool 0x110F, set 0x0F (MenuManager) + .section .text.GetSysBar,"ax" + .globl GetSysBar +GetSysBar: ; --- result space (4 bytes) --- pea 0 pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2D0F + ldx #0x110F jsl 0xe10000 pla ; result lo -> A plx ; result hi -> X rtl -; NewMenuBar(GrafPortPtr) -> MenuBarRecHndl +; SetSysBar(Pointer) -> void +; tool 0x120F, set 0x0F (MenuManager) + .section .text.SetSysBar,"ax" + .globl SetSysBar +SetSysBar: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x120F + jsl 0xe10000 + rtl + +; NewMenuBar(Pointer) -> Pointer ; tool 0x150F, set 0x0F (MenuManager) .section .text.NewMenuBar,"ax" .globl NewMenuBar @@ -8417,6 +10366,25 @@ NewMenuBar: plx ; result hi -> X rtl +; GetMHandle(Word) -> Pointer +; tool 0x160F, set 0x0F (MenuManager) + .section .text.GetMHandle,"ax" + .globl GetMHandle +GetMHandle: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x160F + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + ; SetBarColors(Word, Word, Word) -> void ; tool 0x170F, set 0x0F (MenuManager) .section .text.SetBarColors,"ax" @@ -8437,20 +10405,68 @@ SetBarColors: jsl 0xe10000 rtl -; SetMenuBar(MenuBarRecHndl) -> void -; tool 0x390F, set 0x0F (MenuManager) - .section .text.SetMenuBar,"ax" - .globl SetMenuBar -SetMenuBar: - ; --- stash arg0 (in A/X) --- +; GetBarColors(void) -> LongWord +; tool 0x180F, set 0x0F (MenuManager) + .section .text.GetBarColors,"ax" + .globl GetBarColors +GetBarColors: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x180F + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetMenuMgrPort(void) -> Pointer +; tool 0x1B0F, set 0x0F (MenuManager) + .section .text.GetMenuMgrPort,"ax" + .globl GetMenuMgrPort +GetMenuMgrPort: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1B0F + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; CalcMenuSize(Word, Word, Word) -> void +; tool 0x1C0F, set 0x0F (MenuManager) + .section .text.CalcMenuSize,"ax" + .globl CalcMenuSize +CalcMenuSize: + ; --- stash arg0 (in A) --- sta 0xE0 - stx 0xE2 ; --- arg0 --- - lda 0xE2 - pha lda 0xE0 pha - ldx #0x390F + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0x1C0F + jsl 0xe10000 + rtl + +; SetMTitleWidth(Word, Word) -> void +; tool 0x1D0F, set 0x0F (MenuManager) + .section .text.SetMTitleWidth,"ax" + .globl SetMTitleWidth +SetMTitleWidth: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1D0F jsl 0xe10000 rtl @@ -8471,23 +10487,6 @@ SetMenuFlag: jsl 0xe10000 rtl -; SetMenuID(Word, Word) -> void -; tool 0x370F, set 0x0F (MenuManager) - .section .text.SetMenuID,"ax" - .globl SetMenuID -SetMenuID: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x370F - jsl 0xe10000 - rtl - ; SetMenuTitle(Pointer, Word) -> void ; tool 0x210F, set 0x0F (MenuManager) .section .text.SetMenuTitle,"ax" @@ -8508,6 +10507,25 @@ SetMenuTitle: jsl 0xe10000 rtl +; GetMenuTitle(Word) -> Pointer +; tool 0x220F, set 0x0F (MenuManager) + .section .text.GetMenuTitle,"ax" + .globl GetMenuTitle +GetMenuTitle: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x220F + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + ; SetMItem(Pointer, Word) -> void ; tool 0x240F, set 0x0F (MenuManager) .section .text.SetMItem,"ax" @@ -8528,6 +10546,25 @@ SetMItem: jsl 0xe10000 rtl +; GetMItem(Word) -> Pointer +; tool 0x250F, set 0x0F (MenuManager) + .section .text.GetMItem,"ax" + .globl GetMItem +GetMItem: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x250F + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + ; SetMItemFlag(Word, Word) -> void ; tool 0x260F, set 0x0F (MenuManager) .section .text.SetMItemFlag,"ax" @@ -8545,6 +10582,152 @@ SetMItemFlag: jsl 0xe10000 rtl +; MenuSelect(Pointer, Pointer) -> void +; tool 0x2B0F, set 0x0F (MenuManager) + .section .text.MenuSelect,"ax" + .globl MenuSelect +MenuSelect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x2B0F + jsl 0xe10000 + rtl + +; HiliteMenu(Word, Word) -> void +; tool 0x2C0F, set 0x0F (MenuManager) + .section .text.HiliteMenu,"ax" + .globl HiliteMenu +HiliteMenu: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2C0F + jsl 0xe10000 + rtl + +; NewMenu(Pointer) -> Pointer +; tool 0x2D0F, set 0x0F (MenuManager) + .section .text.NewMenu,"ax" + .globl NewMenu +NewMenu: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2D0F + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; DisposeMenu(Pointer) -> void +; tool 0x2E0F, set 0x0F (MenuManager) + .section .text.DisposeMenu,"ax" + .globl DisposeMenu +DisposeMenu: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2E0F + jsl 0xe10000 + rtl + +; CheckMItem(Word, Word) -> void +; tool 0x320F, set 0x0F (MenuManager) + .section .text.CheckMItem,"ax" + .globl CheckMItem +CheckMItem: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x320F + jsl 0xe10000 + rtl + +; SetMItemMark(Word, Word) -> void +; tool 0x330F, set 0x0F (MenuManager) + .section .text.SetMItemMark,"ax" + .globl SetMItemMark +SetMItemMark: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x330F + jsl 0xe10000 + rtl + +; SetMItemStyle(Word, Word) -> void +; tool 0x350F, set 0x0F (MenuManager) + .section .text.SetMItemStyle,"ax" + .globl SetMItemStyle +SetMItemStyle: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x350F + jsl 0xe10000 + rtl + +; SetMenuID(Word, Word) -> void +; tool 0x370F, set 0x0F (MenuManager) + .section .text.SetMenuID,"ax" + .globl SetMenuID +SetMenuID: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x370F + jsl 0xe10000 + rtl + ; SetMItemID(Word, Word) -> void ; tool 0x380F, set 0x0F (MenuManager) .section .text.SetMItemID,"ax" @@ -8562,20 +10745,20 @@ SetMItemID: jsl 0xe10000 rtl -; SetMItemMark(Word, Word) -> void -; tool 0x330F, set 0x0F (MenuManager) - .section .text.SetMItemMark,"ax" - .globl SetMItemMark -SetMItemMark: - ; --- stash arg0 (in A) --- +; SetMenuBar(Pointer) -> void +; tool 0x390F, set 0x0F (MenuManager) + .section .text.SetMenuBar,"ax" + .globl SetMenuBar +SetMenuBar: + ; --- stash arg0 (in A/X) --- sta 0xE0 + stx 0xE2 ; --- arg0 --- + lda 0xE2 + pha lda 0xE0 pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x330F + ldx #0x390F jsl 0xe10000 rtl @@ -8599,60 +10782,6 @@ SetMItemName: jsl 0xe10000 rtl -; SetMItemStyle(TextStyle, Word) -> void -; tool 0x350F, set 0x0F (MenuManager) - .section .text.SetMItemStyle,"ax" - .globl SetMItemStyle -SetMItemStyle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x350F - jsl 0xe10000 - rtl - -; SetMTitleWidth(Word, Word) -> void -; tool 0x1D0F, set 0x0F (MenuManager) - .section .text.SetMTitleWidth,"ax" - .globl SetMTitleWidth -SetMTitleWidth: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x1D0F - jsl 0xe10000 - rtl - -; SetSysBar(MenuBarRecHndl) -> void -; tool 0x120F, set 0x0F (MenuManager) - .section .text.SetSysBar,"ax" - .globl SetSysBar -SetSysBar: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x120F - jsl 0xe10000 - rtl - ; GetPopUpDefProc(void) -> Pointer ; tool 0x3B0F, set 0x0F (MenuManager) .section .text.GetPopUpDefProc,"ax" @@ -8667,85 +10796,7 @@ GetPopUpDefProc: plx ; result hi -> X rtl -; InsertMItem2(Word, Ref, Word, Word) -> void -; tool 0x3F0F, set 0x0F (MenuManager) - .section .text.InsertMItem2,"ax" - .globl InsertMItem2 -InsertMItem2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ; --- arg3 (Word, 2B) --- - lda 18, s - pha - ldx #0x3F0F - jsl 0xe10000 - rtl - -; NewMenu2(Word, Ref) -> MenuRecHndl -; tool 0x3E0F, set 0x0F (MenuManager) - .section .text.NewMenu2,"ax" - .globl NewMenu2 -NewMenu2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x3E0F - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NewMenuBar2(Word, Ref, Pointer) -> MenuBarRecHndl -; tool 0x430F, set 0x0F (MenuManager) - .section .text.NewMenuBar2,"ax" - .globl NewMenuBar2 -NewMenuBar2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 20, s - pha - lda 20, s - pha - ldx #0x430F - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PopUpMenuSelect(Word, Word, Word, Word, MenuRecHndl) -> Word +; PopUpMenuSelect(Word, Word, Word, Word, Pointer) -> Word ; tool 0x3C0F, set 0x0F (MenuManager) .section .text.PopUpMenuSelect,"ax" .globl PopUpMenuSelect @@ -8766,7 +10817,7 @@ PopUpMenuSelect: ; --- arg3 (Word, 2B) --- lda 16, s pha - ; --- arg4 (MenuRecHndl, 4B) --- + ; --- arg4 (Pointer, 4B) --- lda 22, s pha lda 22, s @@ -8776,7 +10827,56 @@ PopUpMenuSelect: pla ; result -> A rtl -; SetMenuTitle2(Word, Ref, Word) -> void +; NewMenu2(Word, LongWord) -> Pointer +; tool 0x3E0F, set 0x0F (MenuManager) + .section .text.NewMenu2,"ax" + .globl NewMenu2 +NewMenu2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x3E0F + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; InsertMItem2(Word, LongWord, Word, Word) -> void +; tool 0x3F0F, set 0x0F (MenuManager) + .section .text.InsertMItem2,"ax" + .globl InsertMItem2 +InsertMItem2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ldx #0x3F0F + jsl 0xe10000 + rtl + +; SetMenuTitle2(Word, LongWord, Word) -> void ; tool 0x400F, set 0x0F (MenuManager) .section .text.SetMenuTitle2,"ax" .globl SetMenuTitle2 @@ -8786,7 +10886,7 @@ SetMenuTitle2: ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (Ref, 4B) --- + ; --- arg1 (LongWord, 4B) --- lda 8, s pha lda 8, s @@ -8798,7 +10898,7 @@ SetMenuTitle2: jsl 0xe10000 rtl -; SetMItem2(Word, Ref, Word) -> void +; SetMItem2(Word, LongWord, Word) -> void ; tool 0x410F, set 0x0F (MenuManager) .section .text.SetMItem2,"ax" .globl SetMItem2 @@ -8808,7 +10908,7 @@ SetMItem2: ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (Ref, 4B) --- + ; --- arg1 (LongWord, 4B) --- lda 8, s pha lda 8, s @@ -8820,7 +10920,7 @@ SetMItem2: jsl 0xe10000 rtl -; SetMItemName2(Word, Ref, Word) -> void +; SetMItemName2(Word, LongWord, Word) -> void ; tool 0x420F, set 0x0F (MenuManager) .section .text.SetMItemName2,"ax" .globl SetMItemName2 @@ -8830,7 +10930,7 @@ SetMItemName2: ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (Ref, 4B) --- + ; --- arg1 (LongWord, 4B) --- lda 8, s pha lda 8, s @@ -8842,7 +10942,58 @@ SetMItemName2: jsl 0xe10000 rtl -; GetMItemIcon(Word) -> Ref +; NewMenuBar2(Word, LongWord, Pointer) -> Pointer +; tool 0x430F, set 0x0F (MenuManager) + .section .text.NewMenuBar2,"ax" + .globl NewMenuBar2 +NewMenuBar2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x430F + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetMItemIcon(Word, LongWord, Word) -> void +; tool 0x470F, set 0x0F (MenuManager) + .section .text.SetMItemIcon,"ax" + .globl SetMItemIcon +SetMItemIcon: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x470F + jsl 0xe10000 + rtl + +; GetMItemIcon(Word) -> LongWord ; tool 0x480F, set 0x0F (MenuManager) .section .text.GetMItemIcon,"ax" .globl GetMItemIcon @@ -8861,7 +11012,29 @@ GetMItemIcon: plx ; result hi -> X rtl -; GetMItemStruct(Word) -> Ref +; SetMItemStruct(Word, LongWord, Word) -> void +; tool 0x490F, set 0x0F (MenuManager) + .section .text.SetMItemStruct,"ax" + .globl SetMItemStruct +SetMItemStruct: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x490F + jsl 0xe10000 + rtl + +; GetMItemStruct(Word) -> LongWord ; tool 0x4A0F, set 0x0F (MenuManager) .section .text.GetMItemStruct,"ax" .globl GetMItemStruct @@ -8880,7 +11053,24 @@ GetMItemStruct: plx ; result hi -> X rtl -; InsertPathMItems(Word, Pointer, Word, Word, Word, Word, Ptr) -> void +; SetMItemFlag2(Word, Word) -> void +; tool 0x4D0F, set 0x0F (MenuManager) + .section .text.SetMItemFlag2,"ax" + .globl SetMItemFlag2 +SetMItemFlag2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x4D0F + jsl 0xe10000 + rtl + +; InsertPathMItems(Word, Pointer, Word, Word, Word, Word, Pointer) -> void ; tool 0x500F, set 0x0F (MenuManager) .section .text.InsertPathMItems,"ax" .globl InsertPathMItems @@ -8907,7 +11097,7 @@ InsertPathMItems: ; --- arg5 (Word, 2B) --- lda 26, s pha - ; --- arg6 (Ptr, 4B) --- + ; --- arg6 (Pointer, 4B) --- lda 32, s pha lda 32, s @@ -8916,11 +11106,11 @@ InsertPathMItems: jsl 0xe10000 rtl -; SetMItemFlag2(Word, Word) -> void -; tool 0x4D0F, set 0x0F (MenuManager) - .section .text.SetMItemFlag2,"ax" - .globl SetMItemFlag2 -SetMItemFlag2: +; CtlStartUp(Word, Word) -> void +; tool 0x0210, set 0x10 (ControlManager) + .section .text.CtlStartUp,"ax" + .globl CtlStartUp +CtlStartUp: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- @@ -8929,21 +11119,1805 @@ SetMItemFlag2: ; --- arg1 (Word, 2B) --- lda 6, s pha - ldx #0x4D0F + ldx #0x0210 jsl 0xe10000 rtl -; SetMItemIcon(Word, Ref, Word) -> void -; tool 0x470F, set 0x0F (MenuManager) - .section .text.SetMItemIcon,"ax" - .globl SetMItemIcon -SetMItemIcon: +; NewControl(Pointer, Pointer, Pointer, Word, Word, Word, Word, Pointer, LongWord, Pointer) -> Word +; tool 0x0910, set 0x10 (ControlManager) + .section .text.NewControl,"ax" + .globl NewControl +NewControl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg3 (Word, 2B) --- + lda 26, s + pha + ; --- arg4 (Word, 2B) --- + lda 30, s + pha + ; --- arg5 (Word, 2B) --- + lda 34, s + pha + ; --- arg6 (Word, 2B) --- + lda 38, s + pha + ; --- arg7 (Pointer, 4B) --- + lda 44, s + pha + lda 44, s + pha + ; --- arg8 (LongWord, 4B) --- + lda 52, s + pha + lda 52, s + pha + ; --- arg9 (Pointer, 4B) --- + lda 60, s + pha + lda 60, s + pha + ldx #0x0910 + jsl 0xe10000 + pla ; result -> A + rtl + +; DisposeControl(Pointer) -> void +; tool 0x0A10, set 0x10 (ControlManager) + .section .text.DisposeControl,"ax" + .globl DisposeControl +DisposeControl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0A10 + jsl 0xe10000 + rtl + +; KillControls(Pointer) -> void +; tool 0x0B10, set 0x10 (ControlManager) + .section .text.KillControls,"ax" + .globl KillControls +KillControls: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0B10 + jsl 0xe10000 + rtl + +; SetCtlTitle(Pointer, Pointer) -> void +; tool 0x0C10, set 0x10 (ControlManager) + .section .text.SetCtlTitle,"ax" + .globl SetCtlTitle +SetCtlTitle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0C10 + jsl 0xe10000 + rtl + +; GetCtlTitle(Pointer) -> Pointer +; tool 0x0D10, set 0x10 (ControlManager) + .section .text.GetCtlTitle,"ax" + .globl GetCtlTitle +GetCtlTitle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0D10 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; HideControl(Pointer) -> void +; tool 0x0E10, set 0x10 (ControlManager) + .section .text.HideControl,"ax" + .globl HideControl +HideControl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0E10 + jsl 0xe10000 + rtl + +; ShowControl(Pointer) -> void +; tool 0x0F10, set 0x10 (ControlManager) + .section .text.ShowControl,"ax" + .globl ShowControl +ShowControl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0F10 + jsl 0xe10000 + rtl + +; DrawControls(Pointer) -> void +; tool 0x1010, set 0x10 (ControlManager) + .section .text.DrawControls,"ax" + .globl DrawControls +DrawControls: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1010 + jsl 0xe10000 + rtl + +; HiliteControl(Word, Pointer) -> void +; tool 0x1110, set 0x10 (ControlManager) + .section .text.HiliteControl,"ax" + .globl HiliteControl +HiliteControl: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (Ref, 4B) --- + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1110 + jsl 0xe10000 + rtl + +; FindControl(Pointer, Word, Word, Pointer) -> Word +; tool 0x1310, set 0x10 (ControlManager) + .section .text.FindControl,"ax" + .globl FindControl +FindControl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x1310 + jsl 0xe10000 + pla ; result -> A + rtl + +; TestControl(Word, Word, Pointer) -> Word +; tool 0x1410, set 0x10 (ControlManager) + .section .text.TestControl,"ax" + .globl TestControl +TestControl: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x1410 + jsl 0xe10000 + pla ; result -> A + rtl + +; TrackControl(Word, Word, Pointer, Pointer) -> Word +; tool 0x1510, set 0x10 (ControlManager) + .section .text.TrackControl,"ax" + .globl TrackControl +TrackControl: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 22, s + pha + lda 22, s + pha + ldx #0x1510 + jsl 0xe10000 + pla ; result -> A + rtl + +; MoveControl(Word, Word, Pointer) -> void +; tool 0x1610, set 0x10 (ControlManager) + .section .text.MoveControl,"ax" + .globl MoveControl +MoveControl: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1610 + jsl 0xe10000 + rtl + +; DragControl(Word, Word, Pointer, Pointer, Word, Pointer) -> void +; tool 0x1710, set 0x10 (ControlManager) + .section .text.DragControl,"ax" + .globl DragControl +DragControl: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg4 (Word, 2B) --- + lda 26, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 32, s + pha + lda 32, s + pha + ldx #0x1710 + jsl 0xe10000 + rtl + +; SetCtlIcons(Pointer) -> Pointer +; tool 0x1810, set 0x10 (ControlManager) + .section .text.SetCtlIcons,"ax" + .globl SetCtlIcons +SetCtlIcons: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1810 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetCtlValue(Word, Pointer) -> void +; tool 0x1910, set 0x10 (ControlManager) + .section .text.SetCtlValue,"ax" + .globl SetCtlValue +SetCtlValue: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1910 + jsl 0xe10000 + rtl + +; GetCtlValue(Pointer) -> Word +; tool 0x1A10, set 0x10 (ControlManager) + .section .text.GetCtlValue,"ax" + .globl GetCtlValue +GetCtlValue: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1A10 + jsl 0xe10000 + pla ; result -> A + rtl + +; SetCtlParams(Word, Word, Pointer) -> void +; tool 0x1B10, set 0x10 (ControlManager) + .section .text.SetCtlParams,"ax" + .globl SetCtlParams +SetCtlParams: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1B10 + jsl 0xe10000 + rtl + +; GetCtlParams(Pointer) -> LongWord +; tool 0x1C10, set 0x10 (ControlManager) + .section .text.GetCtlParams,"ax" + .globl GetCtlParams +GetCtlParams: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1C10 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; DragRect(Pointer, Pointer, Word, Word, Pointer, Pointer, Pointer, Word) -> LongWord +; tool 0x1D10, set 0x10 (ControlManager) + .section .text.DragRect,"ax" + .globl DragRect +DragRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg2 (Word, 2B) --- + lda 20, s + pha + ; --- arg3 (Word, 2B) --- + lda 24, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 30, s + pha + lda 30, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 38, s + pha + lda 38, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 46, s + pha + lda 46, s + pha + ; --- arg7 (Word, 2B) --- + lda 52, s + pha + ldx #0x1D10 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GrowSize(void) -> LongWord +; tool 0x1E10, set 0x10 (ControlManager) + .section .text.GrowSize,"ax" + .globl GrowSize +GrowSize: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1E10 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetCtlAction(Pointer, Pointer) -> void +; tool 0x2010, set 0x10 (ControlManager) + .section .text.SetCtlAction,"ax" + .globl SetCtlAction +SetCtlAction: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x2010 + jsl 0xe10000 + rtl + +; GetCtlAction(Pointer) -> LongWord +; tool 0x2110, set 0x10 (ControlManager) + .section .text.GetCtlAction,"ax" + .globl GetCtlAction +GetCtlAction: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2110 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetCtlRefCon(LongWord, Pointer) -> void +; tool 0x2210, set 0x10 (ControlManager) + .section .text.SetCtlRefCon,"ax" + .globl SetCtlRefCon +SetCtlRefCon: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x2210 + jsl 0xe10000 + rtl + +; GetCtlRefCon(Pointer) -> LongWord +; tool 0x2310, set 0x10 (ControlManager) + .section .text.GetCtlRefCon,"ax" + .globl GetCtlRefCon +GetCtlRefCon: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2310 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; EraseControl(Pointer) -> void +; tool 0x2410, set 0x10 (ControlManager) + .section .text.EraseControl,"ax" + .globl EraseControl +EraseControl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2410 + jsl 0xe10000 + rtl + +; DrawOneCtl(Pointer) -> void +; tool 0x2510, set 0x10 (ControlManager) + .section .text.DrawOneCtl,"ax" + .globl DrawOneCtl +DrawOneCtl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2510 + jsl 0xe10000 + rtl + +; FindTargetCtl(void) -> Pointer +; tool 0x2610, set 0x10 (ControlManager) + .section .text.FindTargetCtl,"ax" + .globl FindTargetCtl +FindTargetCtl: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2610 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MakeNextCtlTarget(void) -> Pointer +; tool 0x2710, set 0x10 (ControlManager) + .section .text.MakeNextCtlTarget,"ax" + .globl MakeNextCtlTarget +MakeNextCtlTarget: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2710 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MakeThisCtlTarget(Pointer) -> void +; tool 0x2810, set 0x10 (ControlManager) + .section .text.MakeThisCtlTarget,"ax" + .globl MakeThisCtlTarget +MakeThisCtlTarget: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2810 + jsl 0xe10000 + rtl + +; SendEventToCtl(Word, Pointer, Pointer) -> Word +; tool 0x2910, set 0x10 (ControlManager) + .section .text.SendEventToCtl,"ax" + .globl SendEventToCtl +SendEventToCtl: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x2910 + jsl 0xe10000 + pla ; result -> A + rtl + +; GetCtlID(Pointer) -> LongWord +; tool 0x2A10, set 0x10 (ControlManager) + .section .text.GetCtlID,"ax" + .globl GetCtlID +GetCtlID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2A10 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetCtlID(LongWord, Pointer) -> void +; tool 0x2B10, set 0x10 (ControlManager) + .section .text.SetCtlID,"ax" + .globl SetCtlID +SetCtlID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x2B10 + jsl 0xe10000 + rtl + +; CallCtlDefProc(Pointer, Word, LongWord) -> LongWord +; tool 0x2C10, set 0x10 (ControlManager) + .section .text.CallCtlDefProc,"ax" + .globl CallCtlDefProc +CallCtlDefProc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x2C10 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; NotifyCtls(Word, Word, LongWord, Pointer) -> void +; tool 0x2D10, set 0x10 (ControlManager) + .section .text.NotifyCtls,"ax" + .globl NotifyCtls +NotifyCtls: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x2D10 + jsl 0xe10000 + rtl + +; GetCtlMoreFlags(Pointer) -> Word +; tool 0x2E10, set 0x10 (ControlManager) + .section .text.GetCtlMoreFlags,"ax" + .globl GetCtlMoreFlags +GetCtlMoreFlags: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2E10 + jsl 0xe10000 + pla ; result -> A + rtl + +; SetCtlMoreFlags(Word, Pointer) -> void +; tool 0x2F10, set 0x10 (ControlManager) + .section .text.SetCtlMoreFlags,"ax" + .globl SetCtlMoreFlags +SetCtlMoreFlags: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x2F10 + jsl 0xe10000 + rtl + +; GetCtlHandleFromID(Pointer, LongWord) -> Pointer +; tool 0x3010, set 0x10 (ControlManager) + .section .text.GetCtlHandleFromID,"ax" + .globl GetCtlHandleFromID +GetCtlHandleFromID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x3010 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; NewControl2(Pointer, Word, LongWord) -> Pointer +; tool 0x3110, set 0x10 (ControlManager) + .section .text.NewControl2,"ax" + .globl NewControl2 +NewControl2: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x3110 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; CMLoadResource(Word, LongWord) -> Word +; tool 0x3210, set 0x10 (ControlManager) + .section .text.CMLoadResource,"ax" + .globl CMLoadResource +CMLoadResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x3210 + jsl 0xe10000 + pla ; result -> A + rtl + +; CMReleaseResource(Word, LongWord) -> void +; tool 0x3310, set 0x10 (ControlManager) + .section .text.CMReleaseResource,"ax" + .globl CMReleaseResource +CMReleaseResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x3310 + jsl 0xe10000 + rtl + +; SetCtlParamPtr(Pointer) -> void +; tool 0x3410, set 0x10 (ControlManager) + .section .text.SetCtlParamPtr,"ax" + .globl SetCtlParamPtr +SetCtlParamPtr: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3410 + jsl 0xe10000 + rtl + +; GetCtlParamPtr(void) -> Pointer +; tool 0x3510, set 0x10 (ControlManager) + .section .text.GetCtlParamPtr,"ax" + .globl GetCtlParamPtr +GetCtlParamPtr: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x3510 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; InvalCtls(Pointer) -> void +; tool 0x3710, set 0x10 (ControlManager) + .section .text.InvalCtls,"ax" + .globl InvalCtls +InvalCtls: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3710 + jsl 0xe10000 + rtl + +; FindRadioButton(Pointer, Word) -> Word +; tool 0x3910, set 0x10 (ControlManager) + .section .text.FindRadioButton,"ax" + .globl FindRadioButton +FindRadioButton: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x3910 + jsl 0xe10000 + pla ; result -> A + rtl + +; SetLETextByID(Pointer, LongWord, Pointer) -> void +; tool 0x3A10, set 0x10 (ControlManager) + .section .text.SetLETextByID,"ax" + .globl SetLETextByID +SetLETextByID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x3A10 + jsl 0xe10000 + rtl + +; GetLETextByID(Pointer, LongWord, Pointer) -> void +; tool 0x3B10, set 0x10 (ControlManager) + .section .text.GetLETextByID,"ax" + .globl GetLETextByID +GetLETextByID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x3B10 + jsl 0xe10000 + rtl + +; SetCtlValueByID(Word, Pointer, LongWord) -> void +; tool 0x3C10, set 0x10 (ControlManager) + .section .text.SetCtlValueByID,"ax" + .globl SetCtlValueByID +SetCtlValueByID: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x3C10 + jsl 0xe10000 + rtl + +; GetCtlValueByID(Pointer, LongWord) -> Word +; tool 0x3D10, set 0x10 (ControlManager) + .section .text.GetCtlValueByID,"ax" + .globl GetCtlValueByID +GetCtlValueByID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x3D10 + jsl 0xe10000 + pla ; result -> A + rtl + +; InvalOneCtlByID(Pointer, LongWord) -> void +; tool 0x3E10, set 0x10 (ControlManager) + .section .text.InvalOneCtlByID,"ax" + .globl InvalOneCtlByID +InvalOneCtlByID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x3E10 + jsl 0xe10000 + rtl + +; HiliteCtlByID(Word, Pointer, LongWord) -> void +; tool 0x3F10, set 0x10 (ControlManager) + .section .text.HiliteCtlByID,"ax" + .globl HiliteCtlByID +HiliteCtlByID: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x3F10 + jsl 0xe10000 + rtl + +; InitialLoad(Word, Pointer, Word) -> 10B +; tool 0x0911, set 0x11 (Loader) + .section .text.InitialLoad,"ax" + .globl InitialLoad +InitialLoad: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (10 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg2 (Word, 2B) --- + lda 24, s + pha + ldx #0x0911 + jsl 0xe10000 + pla + pla + pla + pla + pla + rtl + +; Restart(Word) -> 10B +; tool 0x0A11, set 0x11 (Loader) + .section .text.Restart,"ax" + .globl Restart +Restart: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (10 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x0A11 + jsl 0xe10000 + pla + pla + pla + pla + pla + rtl + +; LoadSegNum(Word, Word, Word) -> Pointer +; tool 0x0B11, set 0x11 (Loader) + .section .text.LoadSegNum,"ax" + .globl LoadSegNum +LoadSegNum: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x0B11 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; UnloadSegNum(Word, Word, Word) -> void +; tool 0x0C11, set 0x11 (Loader) + .section .text.UnloadSegNum,"ax" + .globl UnloadSegNum +UnloadSegNum: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0x0C11 + jsl 0xe10000 + rtl + +; LoadSegName(Word, Pointer, Pointer) -> 10B +; tool 0x0D11, set 0x11 (Loader) + .section .text.LoadSegName,"ax" + .globl LoadSegName +LoadSegName: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (10 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 26, s + pha + lda 26, s + pha + ldx #0x0D11 + jsl 0xe10000 + pla + pla + pla + pla + pla + rtl + +; UnloadSeg(Pointer) -> Pointer +; tool 0x0E11, set 0x11 (Loader) + .section .text.UnloadSeg,"ax" + .globl UnloadSeg +UnloadSeg: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0E11 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetLoadSegInfo(Word, Word, Word, Pointer) -> void +; tool 0x0F11, set 0x11 (Loader) + .section .text.GetLoadSegInfo,"ax" + .globl GetLoadSegInfo +GetLoadSegInfo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x0F11 + jsl 0xe10000 + rtl + +; GetUserID(Pointer) -> Word +; tool 0x1011, set 0x11 (Loader) + .section .text.GetUserID,"ax" + .globl GetUserID +GetUserID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1011 + jsl 0xe10000 + pla ; result -> A + rtl + +; LGetPathname(Word, Word) -> Pointer +; tool 0x1111, set 0x11 (Loader) + .section .text.LGetPathname,"ax" + .globl LGetPathname +LGetPathname: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x1111 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; UserShutDown(Word, Word) -> Word +; tool 0x1211, set 0x11 (Loader) + .section .text.UserShutDown,"ax" + .globl UserShutDown +UserShutDown: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1211 + jsl 0xe10000 + pla ; result -> A + rtl + +; RenamePathname(Pointer, Pointer) -> void +; tool 0x1311, set 0x11 (Loader) + .section .text.RenamePathname,"ax" + .globl RenamePathname +RenamePathname: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1311 + jsl 0xe10000 + rtl + +; InitialLoad2(Word, Pointer, Word, Word) -> 10B +; tool 0x2011, set 0x11 (Loader) + .section .text.InitialLoad2,"ax" + .globl InitialLoad2 +InitialLoad2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (10 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg2 (Word, 2B) --- + lda 24, s + pha + ; --- arg3 (Word, 2B) --- + lda 28, s + pha + ldx #0x2011 + jsl 0xe10000 + pla + pla + pla + pla + pla + rtl + +; GetUserID2(Pointer) -> Word +; tool 0x2111, set 0x11 (Loader) + .section .text.GetUserID2,"ax" + .globl GetUserID2 +GetUserID2: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2111 + jsl 0xe10000 + pla ; result -> A + rtl + +; LGetPathname2(Word, Word) -> Pointer +; tool 0x2211, set 0x11 (Loader) + .section .text.LGetPathname2,"ax" + .globl LGetPathname2 +LGetPathname2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x2211 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; CopyPixels(Pointer, Pointer, Pointer, Pointer, Word, Pointer) -> void +; tool 0x0912, set 0x12 (QDAuxiliary) + .section .text.CopyPixels,"ax" + .globl CopyPixels +CopyPixels: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 26, s + pha + lda 26, s + pha + ; --- arg4 (Word, 2B) --- + lda 32, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 38, s + pha + lda 38, s + pha + ldx #0x0912 + jsl 0xe10000 + rtl + +; DrawIcon(Pointer, Word, Word, Word) -> void +; tool 0x0B12, set 0x12 (QDAuxiliary) + .section .text.DrawIcon,"ax" + .globl DrawIcon +DrawIcon: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 16, s + pha + ldx #0x0B12 + jsl 0xe10000 + rtl + +; SpecialRect(Pointer, Word, Word) -> void +; tool 0x0C12, set 0x12 (QDAuxiliary) + .section .text.SpecialRect,"ax" + .globl SpecialRect +SpecialRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x0C12 + jsl 0xe10000 + rtl + +; SeedFill(Pointer, Pointer, Pointer, Pointer, Word, Word, Word, Pointer, Pointer) -> void +; tool 0x0D12, set 0x12 (QDAuxiliary) + .section .text.SeedFill,"ax" + .globl SeedFill +SeedFill: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 26, s + pha + lda 26, s + pha + ; --- arg4 (Word, 2B) --- + lda 32, s + pha + ; --- arg5 (Word, 2B) --- + lda 36, s + pha + ; --- arg6 (Word, 2B) --- + lda 40, s + pha + ; --- arg7 (Pointer, 4B) --- + lda 46, s + pha + lda 46, s + pha + ; --- arg8 (Pointer, 4B) --- + lda 54, s + pha + lda 54, s + pha + ldx #0x0D12 + jsl 0xe10000 + rtl + +; CalcMask(Pointer, Pointer, Pointer, Pointer, Word, Pointer, Pointer) -> void +; tool 0x0E12, set 0x12 (QDAuxiliary) + .section .text.CalcMask,"ax" + .globl CalcMask +CalcMask: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 26, s + pha + lda 26, s + pha + ; --- arg4 (Word, 2B) --- + lda 32, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 38, s + pha + lda 38, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 46, s + pha + lda 46, s + pha + ldx #0x0E12 + jsl 0xe10000 + rtl + +; GetSysIcon(Word, Word, LongWord) -> Pointer +; tool 0x0F12, set 0x12 (QDAuxiliary) + .section .text.GetSysIcon,"ax" + .globl GetSysIcon +GetSysIcon: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x0F12 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PixelMap2Rgn(Pointer, Word, Word) -> Pointer +; tool 0x1012, set 0x12 (QDAuxiliary) + .section .text.PixelMap2Rgn,"ax" + .globl PixelMap2Rgn +PixelMap2Rgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x1012 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; WhooshRect(LongWord, Pointer, Pointer) -> void +; tool 0x1412, set 0x12 (QDAuxiliary) + .section .text.WhooshRect,"ax" + .globl WhooshRect +WhooshRect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x1412 + jsl 0xe10000 + rtl + +; DrawStringWidth(Word, LongWord, Word) -> void +; tool 0x1512, set 0x12 (QDAuxiliary) + .section .text.DrawStringWidth,"ax" + .globl DrawStringWidth +DrawStringWidth: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- lda 8, s pha lda 8, s @@ -8951,21 +12925,1630 @@ SetMItemIcon: ; --- arg2 (Word, 2B) --- lda 14, s pha - ldx #0x470F + ldx #0x1512 jsl 0xe10000 rtl -; SetMItemStruct(Word, Ref, Word) -> void -; tool 0x490F, set 0x0F (MenuManager) - .section .text.SetMItemStruct,"ax" - .globl SetMItemStruct -SetMItemStruct: +; UseColorTable(Word, Pointer, Word) -> Pointer +; tool 0x1612, set 0x12 (QDAuxiliary) + .section .text.UseColorTable,"ax" + .globl UseColorTable +UseColorTable: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Word, 2B) --- + lda 18, s + pha + ldx #0x1612 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; RestoreColorTable(Pointer, Word) -> void +; tool 0x1712, set 0x12 (QDAuxiliary) + .section .text.RestoreColorTable,"ax" + .globl RestoreColorTable +RestoreColorTable: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1712 + jsl 0xe10000 + rtl + +; PMStartUp(Word, Word) -> void +; tool 0x0213, set 0x13 (PrintManager) + .section .text.PMStartUp,"ax" + .globl PMStartUp +PMStartUp: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (Ref, 4B) --- + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0213 + jsl 0xe10000 + rtl + +; PrDefault(Pointer) -> void +; tool 0x0913, set 0x13 (PrintManager) + .section .text.PrDefault,"ax" + .globl PrDefault +PrDefault: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0913 + jsl 0xe10000 + rtl + +; PrValidate(Pointer) -> Word +; tool 0x0A13, set 0x13 (PrintManager) + .section .text.PrValidate,"ax" + .globl PrValidate +PrValidate: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0A13 + jsl 0xe10000 + pla ; result -> A + rtl + +; PrStlDialog(Pointer) -> Word +; tool 0x0B13, set 0x13 (PrintManager) + .section .text.PrStlDialog,"ax" + .globl PrStlDialog +PrStlDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0B13 + jsl 0xe10000 + pla ; result -> A + rtl + +; PrJobDialog(Pointer) -> Word +; tool 0x0C13, set 0x13 (PrintManager) + .section .text.PrJobDialog,"ax" + .globl PrJobDialog +PrJobDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0C13 + jsl 0xe10000 + pla ; result -> A + rtl + +; PrPixelMap(Pointer, Pointer, Word) -> void +; tool 0x0D13, set 0x13 (PrintManager) + .section .text.PrPixelMap,"ax" + .globl PrPixelMap +PrPixelMap: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x0D13 + jsl 0xe10000 + rtl + +; PrOpenDoc(Pointer, Pointer) -> Pointer +; tool 0x0E13, set 0x13 (PrintManager) + .section .text.PrOpenDoc,"ax" + .globl PrOpenDoc +PrOpenDoc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x0E13 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PrCloseDoc(Pointer) -> void +; tool 0x0F13, set 0x13 (PrintManager) + .section .text.PrCloseDoc,"ax" + .globl PrCloseDoc +PrCloseDoc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0F13 + jsl 0xe10000 + rtl + +; PrOpenPage(Pointer, Pointer) -> void +; tool 0x1013, set 0x13 (PrintManager) + .section .text.PrOpenPage,"ax" + .globl PrOpenPage +PrOpenPage: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1013 + jsl 0xe10000 + rtl + +; PrClosePage(Pointer) -> void +; tool 0x1113, set 0x13 (PrintManager) + .section .text.PrClosePage,"ax" + .globl PrClosePage +PrClosePage: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1113 + jsl 0xe10000 + rtl + +; PrPicFile(Pointer, Pointer, Pointer) -> void +; tool 0x1213, set 0x13 (PrintManager) + .section .text.PrPicFile,"ax" + .globl PrPicFile +PrPicFile: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x1213 + jsl 0xe10000 + rtl + +; PrGetPrinterSpecs(void) -> LongWord +; tool 0x1813, set 0x13 (PrintManager) + .section .text.PrGetPrinterSpecs,"ax" + .globl PrGetPrinterSpecs +PrGetPrinterSpecs: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1813 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PrDevPrChanged(Pointer) -> void +; tool 0x1913, set 0x13 (PrintManager) + .section .text.PrDevPrChanged,"ax" + .globl PrDevPrChanged +PrDevPrChanged: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1913 + jsl 0xe10000 + rtl + +; PrDevStartup(Pointer, Pointer) -> void +; tool 0x1A13, set 0x13 (PrintManager) + .section .text.PrDevStartup,"ax" + .globl PrDevStartup +PrDevStartup: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1A13 + jsl 0xe10000 + rtl + +; PrDevOpen(Pointer, LongWord) -> void +; tool 0x1C13, set 0x13 (PrintManager) + .section .text.PrDevOpen,"ax" + .globl PrDevOpen +PrDevOpen: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1C13 + jsl 0xe10000 + rtl + +; PrDevRead(Pointer, Word) -> Word +; tool 0x1D13, set 0x13 (PrintManager) + .section .text.PrDevRead,"ax" + .globl PrDevRead +PrDevRead: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x1D13 + jsl 0xe10000 + pla ; result -> A + rtl + +; PrDevWrite(Pointer, Pointer, Word) -> void +; tool 0x1E13, set 0x13 (PrintManager) + .section .text.PrDevWrite,"ax" + .globl PrDevWrite +PrDevWrite: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x1E13 + jsl 0xe10000 + rtl + +; PrDevStatus(Pointer) -> void +; tool 0x2013, set 0x13 (PrintManager) + .section .text.PrDevStatus,"ax" + .globl PrDevStatus +PrDevStatus: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2013 + jsl 0xe10000 + rtl + +; PrDevAsyncRead(Pointer, Word, Pointer) -> Word +; tool 0x2113, set 0x13 (PrintManager) + .section .text.PrDevAsyncRead,"ax" + .globl PrDevAsyncRead +PrDevAsyncRead: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x2113 + jsl 0xe10000 + pla ; result -> A + rtl + +; PrDevWriteBackground(Pointer, Word, Pointer) -> void +; tool 0x2213, set 0x13 (PrintManager) + .section .text.PrDevWriteBackground,"ax" + .globl PrDevWriteBackground +PrDevWriteBackground: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x2213 + jsl 0xe10000 + rtl + +; PrGetZoneName(void) -> Pointer +; tool 0x2513, set 0x13 (PrintManager) + .section .text.PrGetZoneName,"ax" + .globl PrGetZoneName +PrGetZoneName: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2513 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PrGetPrinterDvrName(void) -> Pointer +; tool 0x2813, set 0x13 (PrintManager) + .section .text.PrGetPrinterDvrName,"ax" + .globl PrGetPrinterDvrName +PrGetPrinterDvrName: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2813 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PrGetPortDvrName(void) -> Pointer +; tool 0x2913, set 0x13 (PrintManager) + .section .text.PrGetPortDvrName,"ax" + .globl PrGetPortDvrName +PrGetPortDvrName: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2913 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PrGetUserName(void) -> Pointer +; tool 0x2A13, set 0x13 (PrintManager) + .section .text.PrGetUserName,"ax" + .globl PrGetUserName +PrGetUserName: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2A13 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PrGetNetworkName(void) -> Pointer +; tool 0x2B13, set 0x13 (PrintManager) + .section .text.PrGetNetworkName,"ax" + .globl PrGetNetworkName +PrGetNetworkName: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2B13 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PrGetDocName(void) -> Pointer +; tool 0x3613, set 0x13 (PrintManager) + .section .text.PrGetDocName,"ax" + .globl PrGetDocName +PrGetDocName: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x3613 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; PrSetDocName(Pointer) -> void +; tool 0x3713, set 0x13 (PrintManager) + .section .text.PrSetDocName,"ax" + .globl PrSetDocName +PrSetDocName: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3713 + jsl 0xe10000 + rtl + +; PrGetPgOrientation(Pointer) -> Word +; tool 0x3813, set 0x13 (PrintManager) + .section .text.PrGetPgOrientation,"ax" + .globl PrGetPgOrientation +PrGetPgOrientation: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3813 + jsl 0xe10000 + pla ; result -> A + rtl + +; LEStartUp(Word, Word) -> void +; tool 0x0214, set 0x14 (LineEdit) + .section .text.LEStartUp,"ax" + .globl LEStartUp +LEStartUp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0214 + jsl 0xe10000 + rtl + +; LENew(Pointer, Pointer, Word) -> Word +; tool 0x0914, set 0x14 (LineEdit) + .section .text.LENew,"ax" + .globl LENew +LENew: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Word, 2B) --- + lda 18, s + pha + ldx #0x0914 + jsl 0xe10000 + pla ; result -> A + rtl + +; LESetText(Pointer, Word, Word) -> void +; tool 0x0B14, set 0x14 (LineEdit) + .section .text.LESetText,"ax" + .globl LESetText +LESetText: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x0B14 + jsl 0xe10000 + rtl + +; LEClick(Pointer, Word) -> void +; tool 0x0D14, set 0x14 (LineEdit) + .section .text.LEClick,"ax" + .globl LEClick +LEClick: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x0D14 + jsl 0xe10000 + rtl + +; LESetSelect(Word, Word, Word) -> void +; tool 0x0E14, set 0x14 (LineEdit) + .section .text.LESetSelect,"ax" + .globl LESetSelect +LESetSelect: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0x0E14 + jsl 0xe10000 + rtl + +; LEKey(Word, Word, Word) -> void +; tool 0x1114, set 0x14 (LineEdit) + .section .text.LEKey,"ax" + .globl LEKey +LEKey: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0x1114 + jsl 0xe10000 + rtl + +; LEInsert(Pointer, Word, Word) -> void +; tool 0x1614, set 0x14 (LineEdit) + .section .text.LEInsert,"ax" + .globl LEInsert +LEInsert: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x1614 + jsl 0xe10000 + rtl + +; LETextBox(Pointer, Word, Pointer, Word) -> void +; tool 0x1814, set 0x14 (LineEdit) + .section .text.LETextBox,"ax" + .globl LETextBox +LETextBox: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 20, s + pha + ldx #0x1814 + jsl 0xe10000 + rtl + +; LEScrapHandle(void) -> Pointer +; tool 0x1B14, set 0x14 (LineEdit) + .section .text.LEScrapHandle,"ax" + .globl LEScrapHandle +LEScrapHandle: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1B14 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; LESetHilite(Pointer, Word) -> void +; tool 0x1E14, set 0x14 (LineEdit) + .section .text.LESetHilite,"ax" + .globl LESetHilite +LESetHilite: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1E14 + jsl 0xe10000 + rtl + +; LESetCaret(Pointer, Word) -> void +; tool 0x1F14, set 0x14 (LineEdit) + .section .text.LESetCaret,"ax" + .globl LESetCaret +LESetCaret: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1F14 + jsl 0xe10000 + rtl + +; LETextBox2(Pointer, Word, Pointer, Word) -> void +; tool 0x2014, set 0x14 (LineEdit) + .section .text.LETextBox2,"ax" + .globl LETextBox2 +LETextBox2: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 20, s + pha + ldx #0x2014 + jsl 0xe10000 + rtl + +; LESetJust(Word, Word) -> void +; tool 0x2114, set 0x14 (LineEdit) + .section .text.LESetJust,"ax" + .globl LESetJust +LESetJust: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2114 + jsl 0xe10000 + rtl + +; LEGetTextHand(Word) -> Pointer +; tool 0x2214, set 0x14 (LineEdit) + .section .text.LEGetTextHand,"ax" + .globl LEGetTextHand +LEGetTextHand: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x2214 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetLEDefProc(void) -> Pointer +; tool 0x2414, set 0x14 (LineEdit) + .section .text.GetLEDefProc,"ax" + .globl GetLEDefProc +GetLEDefProc: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2414 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; LEClassifyKey(Pointer) -> Word +; tool 0x2514, set 0x14 (LineEdit) + .section .text.LEClassifyKey,"ax" + .globl LEClassifyKey +LEClassifyKey: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2514 + jsl 0xe10000 + pla ; result -> A + rtl + +; ErrorSound(Pointer) -> void +; tool 0x0915, set 0x15 (DialogManager) + .section .text.ErrorSound,"ax" + .globl ErrorSound +ErrorSound: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0915 + jsl 0xe10000 + rtl + +; NewModalDialog(Pointer, Word, LongWord) -> Pointer +; tool 0x0A15, set 0x15 (DialogManager) + .section .text.NewModalDialog,"ax" + .globl NewModalDialog +NewModalDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x0A15 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; NewModelessDialog(Pointer, Pointer, Pointer, Word, LongWord, Pointer) -> Pointer +; tool 0x0B15, set 0x15 (DialogManager) + .section .text.NewModelessDialog,"ax" + .globl NewModelessDialog +NewModelessDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 22, s + pha + lda 22, s + pha + ; --- arg3 (Word, 2B) --- + lda 28, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 34, s + pha + lda 34, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 42, s + pha + lda 42, s + pha + ldx #0x0B15 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; CloseDialog(Pointer) -> void +; tool 0x0C15, set 0x15 (DialogManager) + .section .text.CloseDialog,"ax" + .globl CloseDialog +CloseDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0C15 + jsl 0xe10000 + rtl + +; NewDItem(Pointer, Word, Pointer, Word, LongWord, Word, Word, Pointer) -> void +; tool 0x0D15, set 0x15 (DialogManager) + .section .text.NewDItem,"ax" + .globl NewDItem +NewDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 20, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 26, s + pha + lda 26, s + pha + ; --- arg5 (Word, 2B) --- + lda 32, s + pha + ; --- arg6 (Word, 2B) --- + lda 36, s + pha + ; --- arg7 (Pointer, 4B) --- + lda 42, s + pha + lda 42, s + pha + ldx #0x0D15 + jsl 0xe10000 + rtl + +; RemoveDItem(Pointer, Word) -> void +; tool 0x0E15, set 0x15 (DialogManager) + .section .text.RemoveDItem,"ax" + .globl RemoveDItem +RemoveDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x0E15 + jsl 0xe10000 + rtl + +; ModalDialog(Pointer) -> Word +; tool 0x0F15, set 0x15 (DialogManager) + .section .text.ModalDialog,"ax" + .globl ModalDialog +ModalDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0F15 + jsl 0xe10000 + pla ; result -> A + rtl + +; IsDialogEvent(Pointer) -> Word +; tool 0x1015, set 0x15 (DialogManager) + .section .text.IsDialogEvent,"ax" + .globl IsDialogEvent +IsDialogEvent: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1015 + jsl 0xe10000 + pla ; result -> A + rtl + +; DialogSelect(Pointer, Pointer, Pointer) -> Word +; tool 0x1115, set 0x15 (DialogManager) + .section .text.DialogSelect,"ax" + .globl DialogSelect +DialogSelect: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x1115 + jsl 0xe10000 + pla ; result -> A + rtl + +; DlgCut(Pointer) -> void +; tool 0x1215, set 0x15 (DialogManager) + .section .text.DlgCut,"ax" + .globl DlgCut +DlgCut: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1215 + jsl 0xe10000 + rtl + +; DlgCopy(Pointer) -> void +; tool 0x1315, set 0x15 (DialogManager) + .section .text.DlgCopy,"ax" + .globl DlgCopy +DlgCopy: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1315 + jsl 0xe10000 + rtl + +; DlgPaste(Pointer) -> void +; tool 0x1415, set 0x15 (DialogManager) + .section .text.DlgPaste,"ax" + .globl DlgPaste +DlgPaste: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1415 + jsl 0xe10000 + rtl + +; DlgDelete(Pointer) -> void +; tool 0x1515, set 0x15 (DialogManager) + .section .text.DlgDelete,"ax" + .globl DlgDelete +DlgDelete: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1515 + jsl 0xe10000 + rtl + +; DrawDialog(Pointer) -> void +; tool 0x1615, set 0x15 (DialogManager) + .section .text.DrawDialog,"ax" + .globl DrawDialog +DrawDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1615 + jsl 0xe10000 + rtl + +; Alert(Pointer, Pointer) -> Word +; tool 0x1715, set 0x15 (DialogManager) + .section .text.Alert,"ax" + .globl Alert +Alert: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1715 + jsl 0xe10000 + pla ; result -> A + rtl + +; StopAlert(Pointer, Pointer) -> Word +; tool 0x1815, set 0x15 (DialogManager) + .section .text.StopAlert,"ax" + .globl StopAlert +StopAlert: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1815 + jsl 0xe10000 + pla ; result -> A + rtl + +; NoteAlert(Pointer, Pointer) -> Word +; tool 0x1915, set 0x15 (DialogManager) + .section .text.NoteAlert,"ax" + .globl NoteAlert +NoteAlert: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1915 + jsl 0xe10000 + pla ; result -> A + rtl + +; CautionAlert(Pointer, Pointer) -> Word +; tool 0x1A15, set 0x15 (DialogManager) + .section .text.CautionAlert,"ax" + .globl CautionAlert +CautionAlert: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1A15 + jsl 0xe10000 + pla ; result -> A + rtl + +; ParamText(Pointer, Pointer, Pointer, Pointer) -> void +; tool 0x1B15, set 0x15 (DialogManager) + .section .text.ParamText,"ax" + .globl ParamText +ParamText: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 26, s + pha + lda 26, s + pha + ldx #0x1B15 + jsl 0xe10000 + rtl + +; SetDAFont(Pointer) -> void +; tool 0x1C15, set 0x15 (DialogManager) + .section .text.SetDAFont,"ax" + .globl SetDAFont +SetDAFont: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1C15 + jsl 0xe10000 + rtl + +; GetControlDItem(Pointer, Word) -> Pointer +; tool 0x1E15, set 0x15 (DialogManager) + .section .text.GetControlDItem,"ax" + .globl GetControlDItem +GetControlDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ldx #0x1E15 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetIText(Pointer, Word, Pointer) -> void +; tool 0x1F15, set 0x15 (DialogManager) + .section .text.GetIText,"ax" + .globl GetIText +GetIText: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x1F15 + jsl 0xe10000 + rtl + +; SetIText(Pointer, Word, Pointer) -> void +; tool 0x2015, set 0x15 (DialogManager) + .section .text.SetIText,"ax" + .globl SetIText +SetIText: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x2015 + jsl 0xe10000 + rtl + +; SelectIText(Pointer, Word, Word, Word) -> void +; tool 0x2115, set 0x15 (DialogManager) + .section .text.SelectIText,"ax" + .globl SelectIText +SelectIText: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 16, s + pha + ldx #0x2115 + jsl 0xe10000 + rtl + +; HideDItem(Pointer, Word) -> void +; tool 0x2215, set 0x15 (DialogManager) + .section .text.HideDItem,"ax" + .globl HideDItem +HideDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x2215 + jsl 0xe10000 + rtl + +; ShowDItem(Pointer, Word) -> void +; tool 0x2315, set 0x15 (DialogManager) + .section .text.ShowDItem,"ax" + .globl ShowDItem +ShowDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x2315 + jsl 0xe10000 + rtl + +; FindDItem(Pointer, LongWord) -> Word +; tool 0x2415, set 0x15 (DialogManager) + .section .text.FindDItem,"ax" + .globl FindDItem +FindDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x2415 + jsl 0xe10000 + pla ; result -> A + rtl + +; UpdateDialog(Pointer, Pointer) -> void +; tool 0x2515, set 0x15 (DialogManager) + .section .text.UpdateDialog,"ax" + .globl UpdateDialog +UpdateDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x2515 + jsl 0xe10000 + rtl + +; GetDItemType(Pointer, Word) -> Word +; tool 0x2615, set 0x15 (DialogManager) + .section .text.GetDItemType,"ax" + .globl GetDItemType +GetDItemType: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x2615 + jsl 0xe10000 + pla ; result -> A + rtl + +; SetDItemType(Word, Pointer, Word) -> void +; tool 0x2715, set 0x15 (DialogManager) + .section .text.SetDItemType,"ax" + .globl SetDItemType +SetDItemType: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- lda 8, s pha lda 8, s @@ -8973,7 +14556,2682 @@ SetMItemStruct: ; --- arg2 (Word, 2B) --- lda 14, s pha - ldx #0x490F + ldx #0x2715 + jsl 0xe10000 + rtl + +; GetDItemBox(Pointer, Word, Pointer) -> void +; tool 0x2815, set 0x15 (DialogManager) + .section .text.GetDItemBox,"ax" + .globl GetDItemBox +GetDItemBox: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x2815 + jsl 0xe10000 + rtl + +; SetDItemBox(Pointer, Word, Pointer) -> void +; tool 0x2915, set 0x15 (DialogManager) + .section .text.SetDItemBox,"ax" + .globl SetDItemBox +SetDItemBox: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x2915 + jsl 0xe10000 + rtl + +; GetFirstDItem(Pointer) -> Word +; tool 0x2A15, set 0x15 (DialogManager) + .section .text.GetFirstDItem,"ax" + .globl GetFirstDItem +GetFirstDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2A15 + jsl 0xe10000 + pla ; result -> A + rtl + +; GetNextDItem(Pointer, Word) -> Word +; tool 0x2B15, set 0x15 (DialogManager) + .section .text.GetNextDItem,"ax" + .globl GetNextDItem +GetNextDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x2B15 + jsl 0xe10000 + pla ; result -> A + rtl + +; ModalDialog2(Pointer) -> LongWord +; tool 0x2C15, set 0x15 (DialogManager) + .section .text.ModalDialog2,"ax" + .globl ModalDialog2 +ModalDialog2: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2C15 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetDItemValue(Pointer, Word) -> Word +; tool 0x2E15, set 0x15 (DialogManager) + .section .text.GetDItemValue,"ax" + .globl GetDItemValue +GetDItemValue: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x2E15 + jsl 0xe10000 + pla ; result -> A + rtl + +; SetDItemValue(Word, Pointer, Word) -> void +; tool 0x2F15, set 0x15 (DialogManager) + .section .text.SetDItemValue,"ax" + .globl SetDItemValue +SetDItemValue: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x2F15 + jsl 0xe10000 + rtl + +; GetNewModalDialog(Pointer) -> Pointer +; tool 0x3215, set 0x15 (DialogManager) + .section .text.GetNewModalDialog,"ax" + .globl GetNewModalDialog +GetNewModalDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3215 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetNewDItem(Pointer, Pointer) -> void +; tool 0x3315, set 0x15 (DialogManager) + .section .text.GetNewDItem,"ax" + .globl GetNewDItem +GetNewDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x3315 + jsl 0xe10000 + rtl + +; DefaultFilter(Pointer, Pointer, Pointer) -> Word +; tool 0x3615, set 0x15 (DialogManager) + .section .text.DefaultFilter,"ax" + .globl DefaultFilter +DefaultFilter: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x3615 + jsl 0xe10000 + pla ; result -> A + rtl + +; GetDefButton(Pointer) -> Word +; tool 0x3715, set 0x15 (DialogManager) + .section .text.GetDefButton,"ax" + .globl GetDefButton +GetDefButton: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x3715 + jsl 0xe10000 + pla ; result -> A + rtl + +; SetDefButton(Word, Pointer) -> void +; tool 0x3815, set 0x15 (DialogManager) + .section .text.SetDefButton,"ax" + .globl SetDefButton +SetDefButton: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x3815 + jsl 0xe10000 + rtl + +; DisableDItem(Pointer, Word) -> void +; tool 0x3915, set 0x15 (DialogManager) + .section .text.DisableDItem,"ax" + .globl DisableDItem +DisableDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x3915 + jsl 0xe10000 + rtl + +; EnableDItem(Pointer, Word) -> void +; tool 0x3A15, set 0x15 (DialogManager) + .section .text.EnableDItem,"ax" + .globl EnableDItem +EnableDItem: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x3A15 + jsl 0xe10000 + rtl + +; PutScrap(LongWord, Word, Pointer) -> void +; tool 0x0C16, set 0x16 (ScrapManager) + .section .text.PutScrap,"ax" + .globl PutScrap +PutScrap: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x0C16 + jsl 0xe10000 + rtl + +; GetScrap(Pointer, Word) -> void +; tool 0x0D16, set 0x16 (ScrapManager) + .section .text.GetScrap,"ax" + .globl GetScrap +GetScrap: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x0D16 + jsl 0xe10000 + rtl + +; GetScrapHandle(Word) -> Pointer +; tool 0x0E16, set 0x16 (ScrapManager) + .section .text.GetScrapHandle,"ax" + .globl GetScrapHandle +GetScrapHandle: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x0E16 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetScrapSize(Word) -> LongWord +; tool 0x0F16, set 0x16 (ScrapManager) + .section .text.GetScrapSize,"ax" + .globl GetScrapSize +GetScrapSize: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x0F16 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetScrapPath(void) -> Pointer +; tool 0x1016, set 0x16 (ScrapManager) + .section .text.GetScrapPath,"ax" + .globl GetScrapPath +GetScrapPath: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1016 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetScrapPath(Pointer) -> void +; tool 0x1116, set 0x16 (ScrapManager) + .section .text.SetScrapPath,"ax" + .globl SetScrapPath +SetScrapPath: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1116 + jsl 0xe10000 + rtl + +; GetIndScrap(Word, Pointer) -> void +; tool 0x1416, set 0x16 (ScrapManager) + .section .text.GetIndScrap,"ax" + .globl GetIndScrap +GetIndScrap: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1416 + jsl 0xe10000 + rtl + +; ShowClipboard(Word, Pointer) -> Pointer +; tool 0x1516, set 0x16 (ScrapManager) + .section .text.ShowClipboard,"ax" + .globl ShowClipboard +ShowClipboard: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1516 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SFStartUp(Word, Word) -> void +; tool 0x0217, set 0x17 (StandardFile) + .section .text.SFStartUp,"ax" + .globl SFStartUp +SFStartUp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0217 + jsl 0xe10000 + rtl + +; SFGetFile(Word, Word, Pointer, Pointer, Pointer, Pointer) -> void +; tool 0x0917, set 0x17 (StandardFile) + .section .text.SFGetFile,"ax" + .globl SFGetFile +SFGetFile: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 28, s + pha + lda 28, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 36, s + pha + lda 36, s + pha + ldx #0x0917 + jsl 0xe10000 + rtl + +; SFPutFile(Word, Word, Pointer, Pointer, Word, Pointer) -> void +; tool 0x0A17, set 0x17 (StandardFile) + .section .text.SFPutFile,"ax" + .globl SFPutFile +SFPutFile: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg4 (Word, 2B) --- + lda 26, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 32, s + pha + lda 32, s + pha + ldx #0x0A17 + jsl 0xe10000 + rtl + +; SFPGetFile(Word, Word, Pointer, Pointer, Pointer, Pointer, Pointer, Pointer) -> void +; tool 0x0B17, set 0x17 (StandardFile) + .section .text.SFPGetFile,"ax" + .globl SFPGetFile +SFPGetFile: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 28, s + pha + lda 28, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 36, s + pha + lda 36, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 44, s + pha + lda 44, s + pha + ; --- arg7 (Pointer, 4B) --- + lda 52, s + pha + lda 52, s + pha + ldx #0x0B17 + jsl 0xe10000 + rtl + +; SFPPutFile(Word, Word, Pointer, Pointer, Word, Pointer, Pointer, Pointer) -> void +; tool 0x0C17, set 0x17 (StandardFile) + .section .text.SFPPutFile,"ax" + .globl SFPPutFile +SFPPutFile: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg4 (Word, 2B) --- + lda 26, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 32, s + pha + lda 32, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 40, s + pha + lda 40, s + pha + ; --- arg7 (Pointer, 4B) --- + lda 48, s + pha + lda 48, s + pha + ldx #0x0C17 + jsl 0xe10000 + rtl + +; SFGetFile2(Word, Word, Word, LongWord, Pointer, Pointer, Pointer) -> void +; tool 0x0E17, set 0x17 (StandardFile) + .section .text.SFGetFile2,"ax" + .globl SFGetFile2 +SFGetFile2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 32, s + pha + lda 32, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 40, s + pha + lda 40, s + pha + ldx #0x0E17 + jsl 0xe10000 + rtl + +; SFPutFile2(Word, Word, Word, LongWord, Word, LongWord, Pointer) -> void +; tool 0x0F17, set 0x17 (StandardFile) + .section .text.SFPutFile2,"ax" + .globl SFPutFile2 +SFPutFile2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg4 (Word, 2B) --- + lda 22, s + pha + ; --- arg5 (LongWord, 4B) --- + lda 28, s + pha + lda 28, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 36, s + pha + lda 36, s + pha + ldx #0x0F17 + jsl 0xe10000 + rtl + +; SFPGetFile2(Word, Word, Pointer, Word, LongWord, Pointer, Pointer, Pointer, Pointer, Pointer) -> void +; tool 0x1017, set 0x17 (StandardFile) + .section .text.SFPGetFile2,"ax" + .globl SFPGetFile2 +SFPGetFile2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 32, s + pha + lda 32, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 40, s + pha + lda 40, s + pha + ; --- arg7 (Pointer, 4B) --- + lda 48, s + pha + lda 48, s + pha + ; --- arg8 (Pointer, 4B) --- + lda 56, s + pha + lda 56, s + pha + ; --- arg9 (Pointer, 4B) --- + lda 64, s + pha + lda 64, s + pha + ldx #0x1017 + jsl 0xe10000 + rtl + +; SFPPutFile2(Word, Word, Pointer, Word, LongWord, Word, LongWord, Pointer, Pointer, Pointer) -> void +; tool 0x1117, set 0x17 (StandardFile) + .section .text.SFPPutFile2,"ax" + .globl SFPPutFile2 +SFPPutFile2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg5 (Word, 2B) --- + lda 30, s + pha + ; --- arg6 (LongWord, 4B) --- + lda 36, s + pha + lda 36, s + pha + ; --- arg7 (Pointer, 4B) --- + lda 44, s + pha + lda 44, s + pha + ; --- arg8 (Pointer, 4B) --- + lda 52, s + pha + lda 52, s + pha + ; --- arg9 (Pointer, 4B) --- + lda 60, s + pha + lda 60, s + pha + ldx #0x1117 + jsl 0xe10000 + rtl + +; SFReScan(Pointer, Pointer) -> void +; tool 0x1317, set 0x17 (StandardFile) + .section .text.SFReScan,"ax" + .globl SFReScan +SFReScan: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1317 + jsl 0xe10000 + rtl + +; SFMultiGet2(Word, Word, Word, LongWord, Pointer, Pointer, Pointer) -> void +; tool 0x1417, set 0x17 (StandardFile) + .section .text.SFMultiGet2,"ax" + .globl SFMultiGet2 +SFMultiGet2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg4 (Pointer, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 32, s + pha + lda 32, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 40, s + pha + lda 40, s + pha + ldx #0x1417 + jsl 0xe10000 + rtl + +; SFPMultiGet2(Word, Word, Pointer, Word, LongWord, Pointer, Pointer, Pointer, Pointer, Pointer) -> void +; tool 0x1517, set 0x17 (StandardFile) + .section .text.SFPMultiGet2,"ax" + .globl SFPMultiGet2 +SFPMultiGet2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 24, s + pha + lda 24, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 32, s + pha + lda 32, s + pha + ; --- arg6 (Pointer, 4B) --- + lda 40, s + pha + lda 40, s + pha + ; --- arg7 (Pointer, 4B) --- + lda 48, s + pha + lda 48, s + pha + ; --- arg8 (Pointer, 4B) --- + lda 56, s + pha + lda 56, s + pha + ; --- arg9 (Pointer, 4B) --- + lda 64, s + pha + lda 64, s + pha + ldx #0x1517 + jsl 0xe10000 + rtl + +; NSStartUp(Word, Pointer) -> void +; tool 0x0219, set 0x19 (NoteSynth) + .section .text.NSStartUp,"ax" + .globl NSStartUp +NSStartUp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x0219 + jsl 0xe10000 + rtl + +; NoteOn(Word, Word, Word, Pointer) -> void +; tool 0x0B19, set 0x19 (NoteSynth) + .section .text.NoteOn,"ax" + .globl NoteOn +NoteOn: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x0B19 + jsl 0xe10000 + rtl + +; NoteOff(Word, Word) -> void +; tool 0x0C19, set 0x19 (NoteSynth) + .section .text.NoteOff,"ax" + .globl NoteOff +NoteOff: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0C19 + jsl 0xe10000 + rtl + +; NSSetUserUpdateRtn(Pointer) -> Pointer +; tool 0x0F19, set 0x19 (NoteSynth) + .section .text.NSSetUserUpdateRtn,"ax" + .globl NSSetUserUpdateRtn +NSSetUserUpdateRtn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0F19 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SeqStartUp(Word, Word, Word, Word) -> void +; tool 0x021A, set 0x1A (NoteSequencer) + .section .text.SeqStartUp,"ax" + .globl SeqStartUp +SeqStartUp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ldx #0x021A + jsl 0xe10000 + rtl + +; GetLoc(void) -> Pointer +; tool 0x0C1A, set 0x1A (NoteSequencer) + .section .text.GetLoc,"ax" + .globl GetLoc +GetLoc: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x0C1A + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetTrkInfo(Word, Word, Word) -> void +; tool 0x0E1A, set 0x1A (NoteSequencer) + .section .text.SetTrkInfo,"ax" + .globl SetTrkInfo +SetTrkInfo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0x0E1A + jsl 0xe10000 + rtl + +; StartSeq(Pointer, Pointer, Pointer) -> void +; tool 0x0F1A, set 0x1A (NoteSequencer) + .section .text.StartSeq,"ax" + .globl StartSeq +StartSeq: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x0F1A + jsl 0xe10000 + rtl + +; SetInstTable(Pointer) -> void +; tool 0x121A, set 0x1A (NoteSequencer) + .section .text.SetInstTable,"ax" + .globl SetInstTable +SetInstTable: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x121A + jsl 0xe10000 + rtl + +; StartSeqRel(Pointer, Pointer, Pointer) -> void +; tool 0x151A, set 0x1A (NoteSequencer) + .section .text.StartSeqRel,"ax" + .globl StartSeqRel +StartSeqRel: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x151A + jsl 0xe10000 + rtl + +; FMStartUp(Word, Word) -> void +; tool 0x021B, set 0x1B (FontManager) + .section .text.FMStartUp,"ax" + .globl FMStartUp +FMStartUp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x021B + jsl 0xe10000 + rtl + +; FindFamily(Word, Word, Pointer) -> Word +; tool 0x0A1B, set 0x1B (FontManager) + .section .text.FindFamily,"ax" + .globl FindFamily +FindFamily: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x0A1B + jsl 0xe10000 + pla ; result -> A + rtl + +; GetFamInfo(Word, Pointer) -> Word +; tool 0x0B1B, set 0x1B (FontManager) + .section .text.GetFamInfo,"ax" + .globl GetFamInfo +GetFamInfo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0B1B + jsl 0xe10000 + pla ; result -> A + rtl + +; GetFamNum(Pointer) -> Word +; tool 0x0C1B, set 0x1B (FontManager) + .section .text.GetFamNum,"ax" + .globl GetFamNum +GetFamNum: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0C1B + jsl 0xe10000 + pla ; result -> A + rtl + +; AddFamily(Word, Pointer) -> void +; tool 0x0D1B, set 0x1B (FontManager) + .section .text.AddFamily,"ax" + .globl AddFamily +AddFamily: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x0D1B + jsl 0xe10000 + rtl + +; InstallFont(LongWord, Word) -> void +; tool 0x0E1B, set 0x1B (FontManager) + .section .text.InstallFont,"ax" + .globl InstallFont +InstallFont: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x0E1B + jsl 0xe10000 + rtl + +; SetPurgeStat(LongWord, Word) -> void +; tool 0x0F1B, set 0x1B (FontManager) + .section .text.SetPurgeStat,"ax" + .globl SetPurgeStat +SetPurgeStat: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x0F1B + jsl 0xe10000 + rtl + +; CountFonts(LongWord, Word) -> Word +; tool 0x101B, set 0x1B (FontManager) + .section .text.CountFonts,"ax" + .globl CountFonts +CountFonts: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x101B + jsl 0xe10000 + pla ; result -> A + rtl + +; FindFontStats(LongWord, Word, Word, Pointer) -> void +; tool 0x111B, set 0x1B (FontManager) + .section .text.FindFontStats,"ax" + .globl FindFontStats +FindFontStats: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x111B + jsl 0xe10000 + rtl + +; LoadFont(LongWord, Word, Word, Pointer) -> void +; tool 0x121B, set 0x1B (FontManager) + .section .text.LoadFont,"ax" + .globl LoadFont +LoadFont: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x121B + jsl 0xe10000 + rtl + +; AddFontVar(Pointer, Word) -> void +; tool 0x141B, set 0x1B (FontManager) + .section .text.AddFontVar,"ax" + .globl AddFontVar +AddFontVar: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x141B + jsl 0xe10000 + rtl + +; FixFontMenu(Word, Word, Word) -> void +; tool 0x151B, set 0x1B (FontManager) + .section .text.FixFontMenu,"ax" + .globl FixFontMenu +FixFontMenu: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0x151B + jsl 0xe10000 + rtl + +; ChooseFont(LongWord, Word) -> LongWord +; tool 0x161B, set 0x1B (FontManager) + .section .text.ChooseFont,"ax" + .globl ChooseFont +ChooseFont: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ldx #0x161B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FMSetSysFont(LongWord) -> void +; tool 0x181B, set 0x1B (FontManager) + .section .text.FMSetSysFont,"ax" + .globl FMSetSysFont +FMSetSysFont: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x181B + jsl 0xe10000 + rtl + +; FMGetSysFID(void) -> LongWord +; tool 0x191B, set 0x1B (FontManager) + .section .text.FMGetSysFID,"ax" + .globl FMGetSysFID +FMGetSysFID: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x191B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; FMGetCurFID(void) -> LongWord +; tool 0x1A1B, set 0x1B (FontManager) + .section .text.FMGetCurFID,"ax" + .globl FMGetCurFID +FMGetCurFID: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1A1B + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; InstallWithStats(LongWord, Word, Pointer) -> void +; tool 0x1C1B, set 0x1B (FontManager) + .section .text.InstallWithStats,"ax" + .globl InstallWithStats +InstallWithStats: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x1C1B + jsl 0xe10000 + rtl + +; CreateList(Pointer, Pointer) -> Pointer +; tool 0x091C, set 0x1C (ListManager) + .section .text.CreateList,"ax" + .globl CreateList +CreateList: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x091C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SortList(Pointer, Pointer) -> void +; tool 0x0A1C, set 0x1C (ListManager) + .section .text.SortList,"ax" + .globl SortList +SortList: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0A1C + jsl 0xe10000 + rtl + +; NextMember(Pointer, Pointer) -> Pointer +; tool 0x0B1C, set 0x1C (ListManager) + .section .text.NextMember,"ax" + .globl NextMember +NextMember: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x0B1C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; DrawMember(Pointer, Pointer) -> void +; tool 0x0C1C, set 0x1C (ListManager) + .section .text.DrawMember,"ax" + .globl DrawMember +DrawMember: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0C1C + jsl 0xe10000 + rtl + +; SelectMember(Pointer, Pointer) -> void +; tool 0x0D1C, set 0x1C (ListManager) + .section .text.SelectMember,"ax" + .globl SelectMember +SelectMember: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0D1C + jsl 0xe10000 + rtl + +; GetListDefProc(void) -> Pointer +; tool 0x0E1C, set 0x1C (ListManager) + .section .text.GetListDefProc,"ax" + .globl GetListDefProc +GetListDefProc: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x0E1C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; ResetMember(Pointer) -> LongWord +; tool 0x0F1C, set 0x1C (ListManager) + .section .text.ResetMember,"ax" + .globl ResetMember +ResetMember: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0F1C + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; NewList(Pointer, Pointer) -> void +; tool 0x101C, set 0x1C (ListManager) + .section .text.NewList,"ax" + .globl NewList +NewList: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x101C + jsl 0xe10000 + rtl + +; DrawMember2(Word, Pointer) -> void +; tool 0x111C, set 0x1C (ListManager) + .section .text.DrawMember2,"ax" + .globl DrawMember2 +DrawMember2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x111C + jsl 0xe10000 + rtl + +; NextMember2(Word, Pointer) -> Word +; tool 0x121C, set 0x1C (ListManager) + .section .text.NextMember2,"ax" + .globl NextMember2 +NextMember2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x121C + jsl 0xe10000 + pla ; result -> A + rtl + +; ResetMember2(Pointer) -> Word +; tool 0x131C, set 0x1C (ListManager) + .section .text.ResetMember2,"ax" + .globl ResetMember2 +ResetMember2: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x131C + jsl 0xe10000 + pla ; result -> A + rtl + +; SelectMember2(Word, Pointer) -> void +; tool 0x141C, set 0x1C (ListManager) + .section .text.SelectMember2,"ax" + .globl SelectMember2 +SelectMember2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x141C + jsl 0xe10000 + rtl + +; SortList2(Pointer, Pointer) -> void +; tool 0x151C, set 0x1C (ListManager) + .section .text.SortList2,"ax" + .globl SortList2 +SortList2: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x151C + jsl 0xe10000 + rtl + +; NewList2(Pointer, Word, LongWord, Word, Word, Pointer) -> void +; tool 0x161C, set 0x1C (ListManager) + .section .text.NewList2,"ax" + .globl NewList2 +NewList2: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 20, s + pha + ; --- arg4 (Word, 2B) --- + lda 24, s + pha + ; --- arg5 (Pointer, 4B) --- + lda 30, s + pha + lda 30, s + pha + ldx #0x161C + jsl 0xe10000 + rtl + +; ListKey(Word, Pointer, Pointer) -> void +; tool 0x171C, set 0x1C (ListManager) + .section .text.ListKey,"ax" + .globl ListKey +ListKey: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x171C + jsl 0xe10000 + rtl + +; CompareStrings(Word, Pointer, Pointer) -> Word +; tool 0x181C, set 0x1C (ListManager) + .section .text.CompareStrings,"ax" + .globl CompareStrings +CompareStrings: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x181C + jsl 0xe10000 + pla ; result -> A + rtl + +; ACEInfo(Word) -> LongWord +; tool 0x071D, set 0x1D (ACETools) + .section .text.ACEInfo,"ax" + .globl ACEInfo +ACEInfo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x071D + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; ACECompress(Pointer, LongWord, Pointer, LongWord, Word, Word) -> void +; tool 0x091D, set 0x1D (ACETools) + .section .text.ACECompress,"ax" + .globl ACECompress +ACECompress: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 26, s + pha + lda 26, s + pha + ; --- arg4 (Word, 2B) --- + lda 32, s + pha + ; --- arg5 (Word, 2B) --- + lda 36, s + pha + ldx #0x091D + jsl 0xe10000 + rtl + +; ACEExpand(Pointer, LongWord, Pointer, LongWord, Word, Word) -> void +; tool 0x0A1D, set 0x1D (ACETools) + .section .text.ACEExpand,"ax" + .globl ACEExpand +ACEExpand: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 26, s + pha + lda 26, s + pha + ; --- arg4 (Word, 2B) --- + lda 32, s + pha + ; --- arg5 (Word, 2B) --- + lda 36, s + pha + ldx #0x0A1D + jsl 0xe10000 + rtl + +; GetACEExpState(Pointer) -> void +; tool 0x0D1D, set 0x1D (ACETools) + .section .text.GetACEExpState,"ax" + .globl GetACEExpState +GetACEExpState: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0D1D + jsl 0xe10000 + rtl + +; SetACEExpState(Pointer) -> void +; tool 0x0E1D, set 0x1D (ACETools) + .section .text.SetACEExpState,"ax" + .globl SetACEExpState +SetACEExpState: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0E1D + jsl 0xe10000 + rtl + +; CreateResourceFile(LongWord, Word, Word, Pointer) -> void +; tool 0x091E, set 0x1E (ResourceManager) + .section .text.CreateResourceFile,"ax" + .globl CreateResourceFile +CreateResourceFile: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x091E + jsl 0xe10000 + rtl + +; OpenResourceFile(Word, Pointer, Pointer) -> Word +; tool 0x0A1E, set 0x1E (ResourceManager) + .section .text.OpenResourceFile,"ax" + .globl OpenResourceFile +OpenResourceFile: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x0A1E + jsl 0xe10000 + pla ; result -> A + rtl + +; AddResource(Pointer, Word, Word, LongWord) -> void +; tool 0x0C1E, set 0x1E (ResourceManager) + .section .text.AddResource,"ax" + .globl AddResource +AddResource: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x0C1E + jsl 0xe10000 + rtl + +; LoadResource(Word, LongWord) -> Pointer +; tool 0x0E1E, set 0x1E (ResourceManager) + .section .text.LoadResource,"ax" + .globl LoadResource +LoadResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x0E1E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; RemoveResource(Word, LongWord) -> void +; tool 0x0F1E, set 0x1E (ResourceManager) + .section .text.RemoveResource,"ax" + .globl RemoveResource +RemoveResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x0F1E + jsl 0xe10000 + rtl + +; MarkResourceChange(Word, Word, LongWord) -> void +; tool 0x101E, set 0x1E (ResourceManager) + .section .text.MarkResourceChange,"ax" + .globl MarkResourceChange +MarkResourceChange: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x101E + jsl 0xe10000 + rtl + +; HomeResourceFile(Word, LongWord) -> Word +; tool 0x151E, set 0x1E (ResourceManager) + .section .text.HomeResourceFile,"ax" + .globl HomeResourceFile +HomeResourceFile: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x151E + jsl 0xe10000 + pla ; result -> A + rtl + +; WriteResource(Word, LongWord) -> void +; tool 0x161E, set 0x1E (ResourceManager) + .section .text.WriteResource,"ax" + .globl WriteResource +WriteResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x161E + jsl 0xe10000 + rtl + +; ReleaseResource(Word, Word, LongWord) -> void +; tool 0x171E, set 0x1E (ResourceManager) + .section .text.ReleaseResource,"ax" + .globl ReleaseResource +ReleaseResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x171E + jsl 0xe10000 + rtl + +; DetachResource(Word, LongWord) -> void +; tool 0x181E, set 0x1E (ResourceManager) + .section .text.DetachResource,"ax" + .globl DetachResource +DetachResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x181E + jsl 0xe10000 + rtl + +; UniqueResourceID(Word, Word) -> LongWord +; tool 0x191E, set 0x1E (ResourceManager) + .section .text.UniqueResourceID,"ax" + .globl UniqueResourceID +UniqueResourceID: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x191E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetResourceID(LongWord, Word, LongWord) -> void +; tool 0x1A1E, set 0x1E (ResourceManager) + .section .text.SetResourceID,"ax" + .globl SetResourceID +SetResourceID: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x1A1E + jsl 0xe10000 + rtl + +; GetResourceAttr(Word, LongWord) -> Word +; tool 0x1B1E, set 0x1E (ResourceManager) + .section .text.GetResourceAttr,"ax" + .globl GetResourceAttr +GetResourceAttr: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1B1E + jsl 0xe10000 + pla ; result -> A + rtl + +; SetResourceAttr(Word, Word, LongWord) -> void +; tool 0x1C1E, set 0x1E (ResourceManager) + .section .text.SetResourceAttr,"ax" + .globl SetResourceAttr +SetResourceAttr: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1C1E + jsl 0xe10000 + rtl + +; GetResourceSize(Word, LongWord) -> LongWord +; tool 0x1D1E, set 0x1E (ResourceManager) + .section .text.GetResourceSize,"ax" + .globl GetResourceSize +GetResourceSize: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1D1E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MatchResourceHandle(Pointer, Pointer) -> void +; tool 0x1E1E, set 0x1E (ResourceManager) + .section .text.MatchResourceHandle,"ax" + .globl MatchResourceHandle +MatchResourceHandle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1E1E + jsl 0xe10000 + rtl + +; CountResources(Word) -> LongWord +; tool 0x221E, set 0x1E (ResourceManager) + .section .text.CountResources,"ax" + .globl CountResources +CountResources: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x221E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetIndResource(Word, LongWord) -> LongWord +; tool 0x231E, set 0x1E (ResourceManager) + .section .text.GetIndResource,"ax" + .globl GetIndResource +GetIndResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x231E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; GetMapHandle(Word) -> Pointer +; tool 0x261E, set 0x1E (ResourceManager) + .section .text.GetMapHandle,"ax" + .globl GetMapHandle +GetMapHandle: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x261E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; LoadAbsResource(Pointer, LongWord, Word, LongWord) -> LongWord +; tool 0x271E, set 0x1E (ResourceManager) + .section .text.LoadAbsResource,"ax" + .globl LoadAbsResource +LoadAbsResource: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg2 (Word, 2B) --- + lda 20, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 26, s + pha + lda 26, s + pha + ldx #0x271E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; ResourceConverter(Pointer, Word, Word) -> void +; tool 0x281E, set 0x1E (ResourceManager) + .section .text.ResourceConverter,"ax" + .globl ResourceConverter +ResourceConverter: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x281E + jsl 0xe10000 + rtl + +; LoadResource2(Word, Pointer, Word, LongWord) -> Pointer +; tool 0x291E, set 0x1E (ResourceManager) + .section .text.LoadResource2,"ax" + .globl LoadResource2 +LoadResource2: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Word, 2B) --- + lda 18, s + pha + ; --- arg3 (LongWord, 4B) --- + lda 24, s + pha + lda 24, s + pha + ldx #0x291E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; RMFindNamedResource(Word, Pointer, Pointer) -> LongWord +; tool 0x2A1E, set 0x1E (ResourceManager) + .section .text.RMFindNamedResource,"ax" + .globl RMFindNamedResource +RMFindNamedResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x2A1E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; RMGetResourceName(Word, LongWord, Pointer) -> void +; tool 0x2B1E, set 0x1E (ResourceManager) + .section .text.RMGetResourceName,"ax" + .globl RMGetResourceName +RMGetResourceName: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x2B1E + jsl 0xe10000 + rtl + +; RMLoadNamedResource(Word, Pointer) -> Pointer +; tool 0x2C1E, set 0x1E (ResourceManager) + .section .text.RMLoadNamedResource,"ax" + .globl RMLoadNamedResource +RMLoadNamedResource: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x2C1E + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; RMSetResourceName(Word, LongWord, Pointer) -> void +; tool 0x2D1E, set 0x1E (ResourceManager) + .section .text.RMSetResourceName,"ax" + .globl RMSetResourceName +RMSetResourceName: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x2D1E + jsl 0xe10000 + rtl + +; OpenResourceFileByID(Word, Word) -> Word +; tool 0x2E1E, set 0x1E (ResourceManager) + .section .text.OpenResourceFileByID,"ax" + .globl OpenResourceFileByID +OpenResourceFileByID: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x2E1E + jsl 0xe10000 + pla ; result -> A + rtl + +; CompactResourceFile(Word, Word) -> void +; tool 0x2F1E, set 0x1E (ResourceManager) + .section .text.CompactResourceFile,"ax" + .globl CompactResourceFile +CompactResourceFile: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2F1E jsl 0xe10000 rtl @@ -8994,26 +17252,7 @@ MidiStartUp: jsl 0xe10000 rtl -; MidiClock(Word, Long) -> void -; tool 0x0B20, set 0x20 (VideoOverlay) - .section .text.MidiClock,"ax" - .globl MidiClock -MidiClock: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x0B20 - jsl 0xe10000 - rtl - -; MidiControl(Word, Long) -> void +; MidiControl(Word, LongWord) -> void ; tool 0x0920, set 0x20 (VideoOverlay) .section .text.MidiControl,"ax" .globl MidiControl @@ -9023,7 +17262,7 @@ MidiControl: ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (Long, 4B) --- + ; --- arg1 (LongWord, 4B) --- lda 8, s pha lda 8, s @@ -9051,6 +17290,25 @@ MidiDevice: jsl 0xe10000 rtl +; MidiClock(Word, LongWord) -> void +; tool 0x0B20, set 0x20 (VideoOverlay) + .section .text.MidiClock,"ax" + .globl MidiClock +MidiClock: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x0B20 + jsl 0xe10000 + rtl + ; MidiInfo(Word) -> LongWord ; tool 0x0C20, set 0x20 (VideoOverlay) .section .text.MidiInfo,"ax" @@ -9113,8055 +17371,6 @@ MidiWritePacket: pla ; result -> A rtl -; MSVersion(void) -> word -; tool 0x0423, set 0x23 (MediaControl) - .section .text.MSVersion,"ax" - .globl MSVersion -MSVersion: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x0423 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; MSStatus(void) -> word -; tool 0x0623, set 0x23 (MediaControl) - .section .text.MSStatus,"ax" - .globl MSStatus -MSStatus: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x0623 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ConvertToTime(Word, Word, Word, Word) -> long -; tool 0x2023, set 0x23 (MediaControl) - .section .text.ConvertToTime,"ax" - .globl ConvertToTime -ConvertToTime: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ; --- arg3 (Word, 2B) --- - lda 18, s - pha - ldx #0x2023 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; DeleteTrack(Word, Ptr) -> void -; tool 0x1D23, set 0x23 (MediaControl) - .section .text.DeleteTrack,"ax" - .globl DeleteTrack -DeleteTrack: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1D23 - jsl 0xe10000 - rtl - -; GetTuningTable(Ptr) -> void -; tool 0x2523, set 0x23 (MediaControl) - .section .text.GetTuningTable,"ax" - .globl GetTuningTable -GetTuningTable: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2523 - jsl 0xe10000 - rtl - -; InitMIDIDriver(Word, Word, Word, ProcPtr) -> void -; tool 0x2723, set 0x23 (MediaControl) - .section .text.InitMIDIDriver,"ax" - .globl InitMIDIDriver -InitMIDIDriver: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (ProcPtr, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x2723 - jsl 0xe10000 - rtl - -; Locate(Long, Ptr) -> SeqItemRecPtr -; tool 0x1123, set 0x23 (MediaControl) - .section .text.Locate,"ax" - .globl Locate -Locate: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x1123 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LocateEnd(Ptr) -> pointer -; tool 0x1B23, set 0x23 (MediaControl) - .section .text.LocateEnd,"ax" - .globl LocateEnd -LocateEnd: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1B23 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; Merge(Ptr, Ptr) -> void -; tool 0x1C23, set 0x23 (MediaControl) - .section .text.Merge,"ax" - .globl Merge -Merge: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1C23 - jsl 0xe10000 - rtl - -; MIDIMessage(Word, Word, Word, Word, Word) -> void -; tool 0x1A23, set 0x23 (MediaControl) - .section .text.MIDIMessage,"ax" - .globl MIDIMessage -MIDIMessage: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (Word, 2B) --- - lda 14, s - pha - ; --- arg4 (Word, 2B) --- - lda 18, s - pha - ldx #0x1A23 - jsl 0xe10000 - rtl - -; PlayNote(Word, Word, Word) -> void -; tool 0x0B23, set 0x23 (MediaControl) - .section .text.PlayNote,"ax" - .globl PlayNote -PlayNote: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ldx #0x0B23 - jsl 0xe10000 - rtl - -; SeqPlayer(SeqPlayRecPtr) -> void -; tool 0x1523, set 0x23 (MediaControl) - .section .text.SeqPlayer,"ax" - .globl SeqPlayer -SeqPlayer: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1523 - jsl 0xe10000 - rtl - -; SetCallBack(CallBackRecPtr) -> void -; tool 0x1723, set 0x23 (MediaControl) - .section .text.SetCallBack,"ax" - .globl SetCallBack -SetCallBack: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1723 - jsl 0xe10000 - rtl - -; SetInstrument(InstrumentRecPtr, Word) -> void -; tool 0x1423, set 0x23 (MediaControl) - .section .text.SetInstrument,"ax" - .globl SetInstrument -SetInstrument: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x1423 - jsl 0xe10000 - rtl - -; SetMetro(Word, Word, Ptr) -> void -; tool 0x1E23, set 0x23 (MediaControl) - .section .text.SetMetro,"ax" - .globl SetMetro -SetMetro: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Ptr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1E23 - jsl 0xe10000 - rtl - -; SetMIDIPort(Boolean, Boolean) -> void -; tool 0x1323, set 0x23 (MediaControl) - .section .text.SetMIDIPort,"ax" - .globl SetMIDIPort -SetMIDIPort: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Boolean, 2B) --- - lda 6, s - pha - ldx #0x1323 - jsl 0xe10000 - rtl - -; SetPlayTrack(Word, Boolean) -> void -; tool 0x0F23, set 0x23 (MediaControl) - .section .text.SetPlayTrack,"ax" - .globl SetPlayTrack -SetPlayTrack: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Boolean, 2B) --- - lda 6, s - pha - ldx #0x0F23 - jsl 0xe10000 - rtl - -; SetTrackOut(Word, Word) -> void -; tool 0x2623, set 0x23 (MediaControl) - .section .text.SetTrackOut,"ax" - .globl SetTrackOut -SetTrackOut: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x2623 - jsl 0xe10000 - rtl - -; SetTuningTable(Ptr) -> void -; tool 0x2423, set 0x23 (MediaControl) - .section .text.SetTuningTable,"ax" - .globl SetTuningTable -SetTuningTable: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2423 - jsl 0xe10000 - rtl - -; StopNote(Word, Word) -> void -; tool 0x0C23, set 0x23 (MediaControl) - .section .text.StopNote,"ax" - .globl StopNote -StopNote: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0C23 - jsl 0xe10000 - rtl - -; SysExOut(Ptr, Word, ProcPtr) -> void -; tool 0x1823, set 0x23 (MediaControl) - .section .text.SysExOut,"ax" - .globl SysExOut -SysExOut: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (ProcPtr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x1823 - jsl 0xe10000 - rtl - -; TrackToChannel(Word, Word) -> void -; tool 0x1023, set 0x23 (MediaControl) - .section .text.TrackToChannel,"ax" - .globl TrackToChannel -TrackToChannel: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x1023 - jsl 0xe10000 - rtl - -; WriteBRam(Pointer) -> void -; tool 0x0903, set 0x03 (MiscTools) - .section .text.WriteBRam,"ax" - .globl WriteBRam -WriteBRam: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0903 - jsl 0xe10000 - rtl - -; ReadBRam(Pointer) -> void -; tool 0x0A03, set 0x03 (MiscTools) - .section .text.ReadBRam,"ax" - .globl ReadBRam -ReadBRam: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0A03 - jsl 0xe10000 - rtl - -; WriteBParam(Word, Word) -> void -; tool 0x0B03, set 0x03 (MiscTools) - .section .text.WriteBParam,"ax" - .globl WriteBParam -WriteBParam: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0B03 - jsl 0xe10000 - rtl - -; iigsReadTimeHex(unsigned char *buf8) -> void -; tool 0x0D03, set 0x03 (MiscTools). Returns 8 bytes of broken-down -; time via a stack-allocated result area: second, minute, hour, (pad), -; year-1900, day, month, weekday. ORCA's misctool.h declares this as -; returning a TimeRec struct, so genToolbox.py skips it (no inline() -; macro on the prototype). We expose a C-friendly wrapper that copies -; the 8 bytes into a caller-provided buffer. -; -; ABI: arg0 (the destination pointer) arrives in A/X (lo word in A, -; hi word in X), matching the LLVM W65816 first-arg-in-AX convention. -; We stash A/X to DP $E0..$E3 to form a 32-bit pointer and use -; sta [dp],y (DP-indirect-long-Y) so writes reach the buffer's bank. - .section .text.iigsReadTimeHex,"ax" - .globl iigsReadTimeHex -iigsReadTimeHex: - ; --- stash arg0 (destination pointer) at DP $E0..$E3 --- - sta 0xE0 ; A -> $E0:$E1 (lo16 of pointer) - stx 0xE2 ; X -> $E2:$E3 (hi16; only $E2 = bank used) - ; --- 8-byte result space (4 words) --- - pea 0 - pea 0 - pea 0 - pea 0 - ldx #0x0D03 - jsl 0xe10000 - ; --- copy 8 bytes from stack into the caller's buffer --- - ; PLA at M=16 pops the 4 result words in reverse push order, which - ; is the same order as the TimeRec layout (lowest-addr word first). - ldy #0 - pla - sta [0xE0], y ; bytes 0,1: second, minute - iny - iny - pla - sta [0xE0], y ; bytes 2,3: hour, pad - iny - iny - pla - sta [0xE0], y ; bytes 4,5: year-1900, day - iny - iny - pla - sta [0xE0], y ; bytes 6,7: month, weekday - rtl - -; WriteTimeHex(HexTime) -> void -; tool 0x0E03, set 0x03 (MiscTools) - .section .text.WriteTimeHex,"ax" - .globl WriteTimeHex -WriteTimeHex: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0E03 - jsl 0xe10000 - rtl - -; ReadAsciiTime(Pointer) -> void -; tool 0x0F03, set 0x03 (MiscTools) - .section .text.ReadAsciiTime,"ax" - .globl ReadAsciiTime -ReadAsciiTime: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0F03 - jsl 0xe10000 - rtl - -; GetAddr(Word) -> Pointer -; tool 0x1603, set 0x03 (MiscTools) - .section .text.GetAddr,"ax" - .globl GetAddr -GetAddr: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x1603 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetTick(void) -> LongWord -; tool 0x2503, set 0x03 (MiscTools) - .section .text.GetTick,"ax" - .globl GetTick -GetTick: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2503 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ClampMouse(Word, Word, Word, Word) -> void -; tool 0x1C03, set 0x03 (MiscTools) - .section .text.ClampMouse,"ax" - .globl ClampMouse -ClampMouse: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (Word, 2B) --- - lda 14, s - pha - ldx #0x1C03 - jsl 0xe10000 - rtl - -; PosMouse(Integer, Integer) -> void -; tool 0x1E03, set 0x03 (MiscTools) - .section .text.PosMouse,"ax" - .globl PosMouse -PosMouse: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ldx #0x1E03 - jsl 0xe10000 - rtl - -; PackBytes(Handle, Word, Pointer, Word) -> Word -; tool 0x2603, set 0x03 (MiscTools) - .section .text.PackBytes,"ax" - .globl PackBytes -PackBytes: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg3 (Word, 2B) --- - lda 22, s - pha - ldx #0x2603 - jsl 0xe10000 - pla ; result -> A - rtl - -; UnPackBytes(Pointer, Word, Handle, Word) -> Word -; tool 0x2703, set 0x03 (MiscTools) - .section .text.UnPackBytes,"ax" - .globl UnPackBytes -UnPackBytes: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Handle, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg3 (Word, 2B) --- - lda 22, s - pha - ldx #0x2703 - jsl 0xe10000 - pla ; result -> A - rtl - -; Munger(Handle, Word, Pointer, Word, Pointer, Word, Pointer) -> Word -; tool 0x2803, set 0x03 (MiscTools) - .section .text.Munger,"ax" - .globl Munger -Munger: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg3 (Word, 2B) --- - lda 22, s - pha - ; --- arg4 (Pointer, 4B) --- - lda 28, s - pha - lda 28, s - pha - ; --- arg5 (Word, 2B) --- - lda 34, s - pha - ; --- arg6 (Pointer, 4B) --- - lda 40, s - pha - lda 40, s - pha - ldx #0x2803 - jsl 0xe10000 - pla ; result -> A - rtl - -; SetHeartBeat(Pointer) -> void -; tool 0x1203, set 0x03 (MiscTools) - .section .text.SetHeartBeat,"ax" - .globl SetHeartBeat -SetHeartBeat: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1203 - jsl 0xe10000 - rtl - -; DelHeartBeat(Pointer) -> void -; tool 0x1303, set 0x03 (MiscTools) - .section .text.DelHeartBeat,"ax" - .globl DelHeartBeat -DelHeartBeat: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1303 - jsl 0xe10000 - rtl - -; SysFailMgr(Word, Pointer) -> void -; tool 0x1503, set 0x03 (MiscTools) - .section .text.SysFailMgr,"ax" - .globl SysFailMgr -SysFailMgr: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1503 - jsl 0xe10000 - rtl - -; SetVector(Word, Pointer) -> void -; tool 0x1003, set 0x03 (MiscTools) - .section .text.SetVector,"ax" - .globl SetVector -SetVector: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1003 - jsl 0xe10000 - rtl - -; GetVector(Word) -> Pointer -; tool 0x1103, set 0x03 (MiscTools) - .section .text.GetVector,"ax" - .globl GetVector -GetVector: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x1103 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; AddToQueue(Pointer, Pointer) -> void -; tool 0x2E03, set 0x03 (MiscTools) - .section .text.AddToQueue,"ax" - .globl AddToQueue -AddToQueue: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x2E03 - jsl 0xe10000 - rtl - -; DeleteFromQueue(Pointer, Pointer) -> void -; tool 0x2F03, set 0x03 (MiscTools) - .section .text.DeleteFromQueue,"ax" - .globl DeleteFromQueue -DeleteFromQueue: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x2F03 - jsl 0xe10000 - rtl - -; GetCodeResConverter(void) -> ProcPtr -; tool 0x3403, set 0x03 (MiscTools) - .section .text.GetCodeResConverter,"ax" - .globl GetCodeResConverter -GetCodeResConverter: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x3403 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetInterruptState(Pointer, Word) -> void -; tool 0x3103, set 0x03 (MiscTools) - .section .text.GetInterruptState,"ax" - .globl GetInterruptState -GetInterruptState: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x3103 - jsl 0xe10000 - rtl - -; SetInterruptState(Pointer, Word) -> void -; tool 0x3003, set 0x03 (MiscTools) - .section .text.SetInterruptState,"ax" - .globl SetInterruptState -SetInterruptState: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x3003 - jsl 0xe10000 - rtl - -; ConvSeconds(Word, Long, Pointer) -> LongWord -; tool 0x3703, set 0x03 (MiscTools) - .section .text.ConvSeconds,"ax" - .globl ConvSeconds -ConvSeconds: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 20, s - pha - lda 20, s - pha - ldx #0x3703 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ShowBootInfo(Pointer, Pointer) -> void -; tool 0x3C03, set 0x03 (MiscTools) - .section .text.ShowBootInfo,"ax" - .globl ShowBootInfo -ShowBootInfo: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x3C03 - jsl 0xe10000 - rtl - -; StringToText(Word, Ptr, Word, Ptr) -> LongWord -; tool 0x3B03, set 0x03 (MiscTools) - .section .text.StringToText,"ax" - .globl StringToText -StringToText: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Word, 2B) --- - lda 18, s - pha - ; --- arg3 (Ptr, 4B) --- - lda 24, s - pha - lda 24, s - pha - ldx #0x3B03 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; VersionString(Word, Long, Ptr) -> void -; tool 0x3903, set 0x03 (MiscTools) - .section .text.VersionString,"ax" - .globl VersionString -VersionString: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Ptr, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x3903 - jsl 0xe10000 - rtl - -; WaitUntil(Word, Word) -> Word -; tool 0x3A03, set 0x03 (MiscTools) - .section .text.WaitUntil,"ax" - .globl WaitUntil -WaitUntil: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x3A03 - jsl 0xe10000 - pla ; result -> A - rtl - -; AlertMessage(Ptr, Word, Ptr) -> Word -; tool 0x3E03, set 0x03 (MiscTools) - .section .text.AlertMessage,"ax" - .globl AlertMessage -AlertMessage: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Ptr, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x3E03 - jsl 0xe10000 - pla ; result -> A - rtl - -; DoSysPrefs(Word, Word) -> Word -; tool 0x3F03, set 0x03 (MiscTools) - .section .text.DoSysPrefs,"ax" - .globl DoSysPrefs -DoSysPrefs: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x3F03 - jsl 0xe10000 - pla ; result -> A - rtl - -; SeqStartUp(Word, Word, Word, Word) -> void -; tool 0x021A, set 0x1A (NoteSequencer) - .section .text.SeqStartUp,"ax" - .globl SeqStartUp -SeqStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (Word, 2B) --- - lda 14, s - pha - ldx #0x021A - jsl 0xe10000 - rtl - -; SetInstTable(Handle) -> void -; tool 0x121A, set 0x1A (NoteSequencer) - .section .text.SetInstTable,"ax" - .globl SetInstTable -SetInstTable: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x121A - jsl 0xe10000 - rtl - -; SetTrkInfo(Word, Word, Word) -> void -; tool 0x0E1A, set 0x1A (NoteSequencer) - .section .text.SetTrkInfo,"ax" - .globl SetTrkInfo -SetTrkInfo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ldx #0x0E1A - jsl 0xe10000 - rtl - -; StartSeq(Pointer, Pointer, Handle) -> void -; tool 0x0F1A, set 0x1A (NoteSequencer) - .section .text.StartSeq,"ax" - .globl StartSeq -StartSeq: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Handle, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x0F1A - jsl 0xe10000 - rtl - -; StartSeqRel(Pointer, Pointer, Handle) -> void -; tool 0x151A, set 0x1A (NoteSequencer) - .section .text.StartSeqRel,"ax" - .globl StartSeqRel -StartSeqRel: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Handle, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x151A - jsl 0xe10000 - rtl - -; NSStartUp(Word, Pointer) -> void -; tool 0x0219, set 0x19 (NoteSynth) - .section .text.NSStartUp,"ax" - .globl NSStartUp -NSStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x0219 - jsl 0xe10000 - rtl - -; NoteOff(Word, Word) -> void -; tool 0x0C19, set 0x19 (NoteSynth) - .section .text.NoteOff,"ax" - .globl NoteOff -NoteOff: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0C19 - jsl 0xe10000 - rtl - -; NoteOn(Word, Word, Word, Pointer) -> void -; tool 0x0B19, set 0x19 (NoteSynth) - .section .text.NoteOn,"ax" - .globl NoteOn -NoteOn: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (Pointer, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x0B19 - jsl 0xe10000 - rtl - -; NSSetUserUpdateRtn(Pointer) -> VoidProcPtr -; tool 0x0F19, set 0x19 (NoteSynth) - .section .text.NSSetUserUpdateRtn,"ax" - .globl NSSetUserUpdateRtn -NSSetUserUpdateRtn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0F19 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PMStartUp(Word, Word) -> void -; tool 0x0213, set 0x13 (PrintManager) - .section .text.PMStartUp,"ax" - .globl PMStartUp -PMStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0213 - jsl 0xe10000 - rtl - -; PrCloseDoc(GrafPortPtr) -> void -; tool 0x0F13, set 0x13 (PrintManager) - .section .text.PrCloseDoc,"ax" - .globl PrCloseDoc -PrCloseDoc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0F13 - jsl 0xe10000 - rtl - -; PrClosePage(GrafPortPtr) -> void -; tool 0x1113, set 0x13 (PrintManager) - .section .text.PrClosePage,"ax" - .globl PrClosePage -PrClosePage: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1113 - jsl 0xe10000 - rtl - -; PrDefault(PrRecHndl) -> void -; tool 0x0913, set 0x13 (PrintManager) - .section .text.PrDefault,"ax" - .globl PrDefault -PrDefault: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0913 - jsl 0xe10000 - rtl - -; PrJobDialog(PrRecHndl) -> Boolean -; tool 0x0C13, set 0x13 (PrintManager) - .section .text.PrJobDialog,"ax" - .globl PrJobDialog -PrJobDialog: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0C13 - jsl 0xe10000 - pla ; result -> A - rtl - -; PrOpenDoc(PrRecHndl, GrafPortPtr) -> GrafPortPtr -; tool 0x0E13, set 0x13 (PrintManager) - .section .text.PrOpenDoc,"ax" - .globl PrOpenDoc -PrOpenDoc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0E13 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PrOpenPage(GrafPortPtr, Rect) -> void -; tool 0x1013, set 0x13 (PrintManager) - .section .text.PrOpenPage,"ax" - .globl PrOpenPage -PrOpenPage: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1013 - jsl 0xe10000 - rtl - -; PrPicFile(PrRecHndl, GrafPortPtr, PrStatusRecPtr) -> void -; tool 0x1213, set 0x13 (PrintManager) - .section .text.PrPicFile,"ax" - .globl PrPicFile -PrPicFile: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (PrStatusRecPtr, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x1213 - jsl 0xe10000 - rtl - -; PrPixelMap(LocInfoPtr, RectPtr, Boolean) -> void -; tool 0x0D13, set 0x13 (PrintManager) - .section .text.PrPixelMap,"ax" - .globl PrPixelMap -PrPixelMap: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (RectPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Boolean, 2B) --- - lda 16, s - pha - ldx #0x0D13 - jsl 0xe10000 - rtl - -; PrStlDialog(PrRecHndl) -> Boolean -; tool 0x0B13, set 0x13 (PrintManager) - .section .text.PrStlDialog,"ax" - .globl PrStlDialog -PrStlDialog: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0B13 - jsl 0xe10000 - pla ; result -> A - rtl - -; PrValidate(PrRecHndl) -> Boolean -; tool 0x0A13, set 0x13 (PrintManager) - .section .text.PrValidate,"ax" - .globl PrValidate -PrValidate: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0A13 - jsl 0xe10000 - pla ; result -> A - rtl - -; PrGetDocName(void) -> StringPtr -; tool 0x3613, set 0x13 (PrintManager) - .section .text.PrGetDocName,"ax" - .globl PrGetDocName -PrGetDocName: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x3613 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PrGetPgOrientation(PrRecHndl) -> Word -; tool 0x3813, set 0x13 (PrintManager) - .section .text.PrGetPgOrientation,"ax" - .globl PrGetPgOrientation -PrGetPgOrientation: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3813 - jsl 0xe10000 - pla ; result -> A - rtl - -; PrGetPrinterSpecs(void) -> long -; tool 0x1813, set 0x13 (PrintManager) - .section .text.PrGetPrinterSpecs,"ax" - .globl PrGetPrinterSpecs -PrGetPrinterSpecs: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1813 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PrSetDocName(Pointer) -> void -; tool 0x3713, set 0x13 (PrintManager) - .section .text.PrSetDocName,"ax" - .globl PrSetDocName -PrSetDocName: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3713 - jsl 0xe10000 - rtl - -; PrGetNetworkName(void) -> StringPtr -; tool 0x2B13, set 0x13 (PrintManager) - .section .text.PrGetNetworkName,"ax" - .globl PrGetNetworkName -PrGetNetworkName: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2B13 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PrGetPortDvrName(void) -> StringPtr -; tool 0x2913, set 0x13 (PrintManager) - .section .text.PrGetPortDvrName,"ax" - .globl PrGetPortDvrName -PrGetPortDvrName: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2913 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PrGetPrinterDvrName(void) -> StringPtr -; tool 0x2813, set 0x13 (PrintManager) - .section .text.PrGetPrinterDvrName,"ax" - .globl PrGetPrinterDvrName -PrGetPrinterDvrName: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2813 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PrGetUserName(void) -> StringPtr -; tool 0x2A13, set 0x13 (PrintManager) - .section .text.PrGetUserName,"ax" - .globl PrGetUserName -PrGetUserName: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2A13 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PrGetZoneName(void) -> StringPtr -; tool 0x2513, set 0x13 (PrintManager) - .section .text.PrGetZoneName,"ax" - .globl PrGetZoneName -PrGetZoneName: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2513 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; CopyPixels(LocInfoPtr, LocInfoPtr, Rect, Rect, Word, RegionHndl) -> void -; tool 0x0912, set 0x12 (QDAuxiliary) - .section .text.CopyPixels,"ax" - .globl CopyPixels -CopyPixels: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (LocInfoPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 18, s - pha - lda 18, s - pha - ; --- arg3 (Rect, 4B) --- - lda 26, s - pha - lda 26, s - pha - ; --- arg4 (Word, 2B) --- - lda 32, s - pha - ; --- arg5 (RegionHndl, 4B) --- - lda 38, s - pha - lda 38, s - pha - ldx #0x0912 - jsl 0xe10000 - rtl - -; DrawIcon(Pointer, Word, Word, Word) -> void -; tool 0x0B12, set 0x12 (QDAuxiliary) - .section .text.DrawIcon,"ax" - .globl DrawIcon -DrawIcon: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (Word, 2B) --- - lda 16, s - pha - ldx #0x0B12 - jsl 0xe10000 - rtl - -; DrawPicture(Handle, Rect) -> void -; tool 0xBA04, set 0x04 (QuickDraw) - .section .text.DrawPicture,"ax" - .globl DrawPicture -DrawPicture: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0xBA04 - jsl 0xe10000 - rtl - -; KillPicture(Handle) -> void -; tool 0xBB04, set 0x04 (QuickDraw) - .section .text.KillPicture,"ax" - .globl KillPicture -KillPicture: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xBB04 - jsl 0xe10000 - rtl - -; OpenPicture(Pointer) -> PicHndl -; tool 0xB704, set 0x04 (QuickDraw) - .section .text.OpenPicture,"ax" - .globl OpenPicture -OpenPicture: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xB704 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PicComment(Integer, Integer, Handle) -> void -; tool 0xB804, set 0x04 (QuickDraw) - .section .text.PicComment,"ax" - .globl PicComment -PicComment: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Handle, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0xB804 - jsl 0xe10000 - rtl - -; CalcMask(LocInfoPtr, Rect, LocInfoPtr, Rect, Word, PatternPtr, Pointer) -> void -; tool 0x0E12, set 0x12 (QDAuxiliary) - .section .text.CalcMask,"ax" - .globl CalcMask -CalcMask: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (LocInfoPtr, 4B) --- - lda 18, s - pha - lda 18, s - pha - ; --- arg3 (Rect, 4B) --- - lda 26, s - pha - lda 26, s - pha - ; --- arg4 (Word, 2B) --- - lda 32, s - pha - ; --- arg5 (PatternPtr, 4B) --- - lda 38, s - pha - lda 38, s - pha - ; --- arg6 (Pointer, 4B) --- - lda 46, s - pha - lda 46, s - pha - ldx #0x0E12 - jsl 0xe10000 - rtl - -; SeedFill(LocInfoPtr, Rect, LocInfoPtr, Rect, Word, Word, Word, PatternPtr, Pointer) -> void -; tool 0x0D12, set 0x12 (QDAuxiliary) - .section .text.SeedFill,"ax" - .globl SeedFill -SeedFill: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (LocInfoPtr, 4B) --- - lda 18, s - pha - lda 18, s - pha - ; --- arg3 (Rect, 4B) --- - lda 26, s - pha - lda 26, s - pha - ; --- arg4 (Word, 2B) --- - lda 32, s - pha - ; --- arg5 (Word, 2B) --- - lda 36, s - pha - ; --- arg6 (Word, 2B) --- - lda 40, s - pha - ; --- arg7 (PatternPtr, 4B) --- - lda 46, s - pha - lda 46, s - pha - ; --- arg8 (Pointer, 4B) --- - lda 54, s - pha - lda 54, s - pha - ldx #0x0D12 - jsl 0xe10000 - rtl - -; SpecialRect(Rect, Word, Word) -> void -; tool 0x0C12, set 0x12 (QDAuxiliary) - .section .text.SpecialRect,"ax" - .globl SpecialRect -SpecialRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x0C12 - jsl 0xe10000 - rtl - -; GetSysIcon(Word, Word, Long) -> QDIconRecordPtr -; tool 0x0F12, set 0x12 (QDAuxiliary) - .section .text.GetSysIcon,"ax" - .globl GetSysIcon -GetSysIcon: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Long, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x0F12 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PixelMap2Rgn(LocInfoPtr, Word, Word) -> RegionHndl -; tool 0x1012, set 0x12 (QDAuxiliary) - .section .text.PixelMap2Rgn,"ax" - .globl PixelMap2Rgn -PixelMap2Rgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 12, s - pha - ; --- arg2 (Word, 2B) --- - lda 16, s - pha - ldx #0x1012 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; WhooshRect(Long, Rect, Rect) -> void -; tool 0x1412, set 0x12 (QDAuxiliary) - .section .text.WhooshRect,"ax" - .globl WhooshRect -WhooshRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x1412 - jsl 0xe10000 - rtl - -; DrawStringWidth(Word, Ref, Word) -> void -; tool 0x1512, set 0x12 (QDAuxiliary) - .section .text.DrawStringWidth,"ax" - .globl DrawStringWidth -DrawStringWidth: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ldx #0x1512 - jsl 0xe10000 - rtl - -; UseColorTable(Word, ColorTablePtr, Word) -> Handle -; tool 0x1612, set 0x12 (QDAuxiliary) - .section .text.UseColorTable,"ax" - .globl UseColorTable -UseColorTable: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (ColorTablePtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Word, 2B) --- - lda 18, s - pha - ldx #0x1612 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; RestoreColorTable(Handle, Word) -> void -; tool 0x1712, set 0x12 (QDAuxiliary) - .section .text.RestoreColorTable,"ax" - .globl RestoreColorTable -RestoreColorTable: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x1712 - jsl 0xe10000 - rtl - -; QDStartUp(Word, Word, Word, Word) -> void -; tool 0x0204, set 0x04 (QuickDraw) - .section .text.QDStartUp,"ax" - .globl QDStartUp -QDStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (Word, 2B) --- - lda 14, s - pha - ldx #0x0204 - jsl 0xe10000 - rtl - -; AddPt(Point, Point) -> void -; tool 0x8004, set 0x04 (QuickDraw) - .section .text.AddPt,"ax" - .globl AddPt -AddPt: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Point, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x8004 - jsl 0xe10000 - rtl - -; CharBounds(Word, Rect) -> void -; tool 0xAC04, set 0x04 (QuickDraw) - .section .text.CharBounds,"ax" - .globl CharBounds -CharBounds: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0xAC04 - jsl 0xe10000 - rtl - -; ClipRect(Rect) -> void -; tool 0x2604, set 0x04 (QuickDraw) - .section .text.ClipRect,"ax" - .globl ClipRect -ClipRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2604 - jsl 0xe10000 - rtl - -; ClosePort(GrafPortPtr) -> void -; tool 0x1A04, set 0x04 (QuickDraw) - .section .text.ClosePort,"ax" - .globl ClosePort -ClosePort: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1A04 - jsl 0xe10000 - rtl - -; CloseRgn(RegionHndl) -> void -; tool 0x6E04, set 0x04 (QuickDraw) - .section .text.CloseRgn,"ax" - .globl CloseRgn -CloseRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x6E04 - jsl 0xe10000 - rtl - -; CopyRgn(RegionHndl, RegionHndl) -> void -; tool 0x6904, set 0x04 (QuickDraw) - .section .text.CopyRgn,"ax" - .globl CopyRgn -CopyRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (RegionHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x6904 - jsl 0xe10000 - rtl - -; CStringBounds(Pointer, Rect) -> void -; tool 0xAE04, set 0x04 (QuickDraw) - .section .text.CStringBounds,"ax" - .globl CStringBounds -CStringBounds: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0xAE04 - jsl 0xe10000 - rtl - -; CStringWidth(Pointer) -> Word -; tool 0xAA04, set 0x04 (QuickDraw) - .section .text.CStringWidth,"ax" - .globl CStringWidth -CStringWidth: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xAA04 - jsl 0xe10000 - pla ; result -> A - rtl - -; DiffRgn(RegionHndl, RegionHndl, RegionHndl) -> void -; tool 0x7304, set 0x04 (QuickDraw) - .section .text.DiffRgn,"ax" - .globl DiffRgn -DiffRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (RegionHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (RegionHndl, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x7304 - jsl 0xe10000 - rtl - -; DisposeRgn(RegionHndl) -> void -; tool 0x6804, set 0x04 (QuickDraw) - .section .text.DisposeRgn,"ax" - .globl DisposeRgn -DisposeRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x6804 - jsl 0xe10000 - rtl - -; DrawCString(Pointer) -> void -; tool 0xA604, set 0x04 (QuickDraw) - .section .text.DrawCString,"ax" - .globl DrawCString -DrawCString: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xA604 - jsl 0xe10000 - rtl - -; DrawString(Pointer) -> void -; tool 0xA504, set 0x04 (QuickDraw) - .section .text.DrawString,"ax" - .globl DrawString -DrawString: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xA504 - jsl 0xe10000 - rtl - -; DrawText(Pointer, Word) -> void -; tool 0xA704, set 0x04 (QuickDraw) - .section .text.DrawText,"ax" - .globl DrawText -DrawText: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0xA704 - jsl 0xe10000 - rtl - -; EmptyRgn(RegionHndl) -> Boolean -; tool 0x7804, set 0x04 (QuickDraw) - .section .text.EmptyRgn,"ax" - .globl EmptyRgn -EmptyRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x7804 - jsl 0xe10000 - pla ; result -> A - rtl - -; EqualPt(Point, Point) -> Boolean -; tool 0x8304, set 0x04 (QuickDraw) - .section .text.EqualPt,"ax" - .globl EqualPt -EqualPt: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Point, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x8304 - jsl 0xe10000 - pla ; result -> A - rtl - -; EqualRect(Rect, Rect) -> Boolean -; tool 0x5104, set 0x04 (QuickDraw) - .section .text.EqualRect,"ax" - .globl EqualRect -EqualRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x5104 - jsl 0xe10000 - pla ; result -> A - rtl - -; EqualRgn(RegionHndl, RegionHndl) -> Boolean -; tool 0x7704, set 0x04 (QuickDraw) - .section .text.EqualRgn,"ax" - .globl EqualRgn -EqualRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (RegionHndl, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x7704 - jsl 0xe10000 - pla ; result -> A - rtl - -; EraseArc(Rect, Integer, Integer) -> void -; tool 0x6404, set 0x04 (QuickDraw) - .section .text.EraseArc,"ax" - .globl EraseArc -EraseArc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0x6404 - jsl 0xe10000 - rtl - -; EraseOval(Rect) -> void -; tool 0x5A04, set 0x04 (QuickDraw) - .section .text.EraseOval,"ax" - .globl EraseOval -EraseOval: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x5A04 - jsl 0xe10000 - rtl - -; ErasePoly(Handle) -> void -; tool 0xBE04, set 0x04 (QuickDraw) - .section .text.ErasePoly,"ax" - .globl ErasePoly -ErasePoly: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xBE04 - jsl 0xe10000 - rtl - -; EraseRect(Rect) -> void -; tool 0x5504, set 0x04 (QuickDraw) - .section .text.EraseRect,"ax" - .globl EraseRect -EraseRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x5504 - jsl 0xe10000 - rtl - -; EraseRgn(RegionHndl) -> void -; tool 0x7B04, set 0x04 (QuickDraw) - .section .text.EraseRgn,"ax" - .globl EraseRgn -EraseRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x7B04 - jsl 0xe10000 - rtl - -; EraseRRect(Rect, Word, Word) -> void -; tool 0x5F04, set 0x04 (QuickDraw) - .section .text.EraseRRect,"ax" - .globl EraseRRect -EraseRRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x5F04 - jsl 0xe10000 - rtl - -; FillArc(Rect, Integer, Integer, Pattern) -> void -; tool 0x6604, set 0x04 (QuickDraw) - .section .text.FillArc,"ax" - .globl FillArc -FillArc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ; --- arg3 (Pattern, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x6604 - jsl 0xe10000 - rtl - -; FillOval(Rect, Pattern) -> void -; tool 0x5C04, set 0x04 (QuickDraw) - .section .text.FillOval,"ax" - .globl FillOval -FillOval: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pattern, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x5C04 - jsl 0xe10000 - rtl - -; FillPoly(Handle, Pattern) -> void -; tool 0xC004, set 0x04 (QuickDraw) - .section .text.FillPoly,"ax" - .globl FillPoly -FillPoly: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pattern, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0xC004 - jsl 0xe10000 - rtl - -; FillRect(Rect, Pattern) -> void -; tool 0x5704, set 0x04 (QuickDraw) - .section .text.FillRect,"ax" - .globl FillRect -FillRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pattern, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x5704 - jsl 0xe10000 - rtl - -; FillRgn(RegionHndl, Pattern) -> void -; tool 0x7D04, set 0x04 (QuickDraw) - .section .text.FillRgn,"ax" - .globl FillRgn -FillRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pattern, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x7D04 - jsl 0xe10000 - rtl - -; FillRRect(Rect, Word, Word, Pattern) -> void -; tool 0x6104, set 0x04 (QuickDraw) - .section .text.FillRRect,"ax" - .globl FillRRect -FillRRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (Pattern, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x6104 - jsl 0xe10000 - rtl - -; ForceBufDims(Word, Word, Word) -> void -; tool 0xCC04, set 0x04 (QuickDraw) - .section .text.ForceBufDims,"ax" - .globl ForceBufDims -ForceBufDims: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ldx #0xCC04 - jsl 0xe10000 - rtl - -; FrameArc(Rect, Integer, Integer) -> void -; tool 0x6204, set 0x04 (QuickDraw) - .section .text.FrameArc,"ax" - .globl FrameArc -FrameArc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0x6204 - jsl 0xe10000 - rtl - -; FrameOval(Rect) -> void -; tool 0x5804, set 0x04 (QuickDraw) - .section .text.FrameOval,"ax" - .globl FrameOval -FrameOval: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x5804 - jsl 0xe10000 - rtl - -; FramePoly(Handle) -> void -; tool 0xBC04, set 0x04 (QuickDraw) - .section .text.FramePoly,"ax" - .globl FramePoly -FramePoly: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xBC04 - jsl 0xe10000 - rtl - -; FrameRect(Rect) -> void -; tool 0x5304, set 0x04 (QuickDraw) - .section .text.FrameRect,"ax" - .globl FrameRect -FrameRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x5304 - jsl 0xe10000 - rtl - -; FrameRgn(RegionHndl) -> void -; tool 0x7904, set 0x04 (QuickDraw) - .section .text.FrameRgn,"ax" - .globl FrameRgn -FrameRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x7904 - jsl 0xe10000 - rtl - -; FrameRRect(Rect, Word, Word) -> void -; tool 0x5D04, set 0x04 (QuickDraw) - .section .text.FrameRRect,"ax" - .globl FrameRRect -FrameRRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x5D04 - jsl 0xe10000 - rtl - -; GetAddress(Word) -> Pointer -; tool 0x0904, set 0x04 (QuickDraw) - .section .text.GetAddress,"ax" - .globl GetAddress -GetAddress: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x0904 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetBackPat(Pattern) -> void -; tool 0x3504, set 0x04 (QuickDraw) - .section .text.GetBackPat,"ax" - .globl GetBackPat -GetBackPat: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3504 - jsl 0xe10000 - rtl - -; GetCharExtra(void) -> Fixed -; tool 0xD504, set 0x04 (QuickDraw) - .section .text.GetCharExtra,"ax" - .globl GetCharExtra -GetCharExtra: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0xD504 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetClip(RegionHndl) -> void -; tool 0x2504, set 0x04 (QuickDraw) - .section .text.GetClip,"ax" - .globl GetClip -GetClip: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2504 - jsl 0xe10000 - rtl - -; GetClipHandle(void) -> RegionHndl -; tool 0xC704, set 0x04 (QuickDraw) - .section .text.GetClipHandle,"ax" - .globl GetClipHandle -GetClipHandle: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0xC704 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetColorEntry(Word, Word) -> Word -; tool 0x1104, set 0x04 (QuickDraw) - .section .text.GetColorEntry,"ax" - .globl GetColorEntry -GetColorEntry: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x1104 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetColorTable(Word, ColorTable) -> void -; tool 0x0F04, set 0x04 (QuickDraw) - .section .text.GetColorTable,"ax" - .globl GetColorTable -GetColorTable: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (ColorTable, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x0F04 - jsl 0xe10000 - rtl - -; GetCursorAdr(void) -> Pointer -; tool 0x8F04, set 0x04 (QuickDraw) - .section .text.GetCursorAdr,"ax" - .globl GetCursorAdr -GetCursorAdr: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x8F04 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetFont(void) -> FontHndl -; tool 0x9504, set 0x04 (QuickDraw) - .section .text.GetFont,"ax" - .globl GetFont -GetFont: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x9504 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetFontGlobals(FontGlobalsRecPtr) -> void -; tool 0x9704, set 0x04 (QuickDraw) - .section .text.GetFontGlobals,"ax" - .globl GetFontGlobals -GetFontGlobals: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x9704 - jsl 0xe10000 - rtl - -; GetFontID(void) -> Long -; tool 0xD104, set 0x04 (QuickDraw) - .section .text.GetFontID,"ax" - .globl GetFontID -GetFontID: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0xD104 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetFontInfo(FontInfoRecPtr) -> void -; tool 0x9604, set 0x04 (QuickDraw) - .section .text.GetFontInfo,"ax" - .globl GetFontInfo -GetFontInfo: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x9604 - jsl 0xe10000 - rtl - -; GetFontLore(FontGlobalsRecPtr, Word) -> Word -; tool 0xD904, set 0x04 (QuickDraw) - .section .text.GetFontLore,"ax" - .globl GetFontLore -GetFontLore: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0xD904 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetGrafProcs(void) -> QDProcsPtr -; tool 0x4504, set 0x04 (QuickDraw) - .section .text.GetGrafProcs,"ax" - .globl GetGrafProcs -GetGrafProcs: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x4504 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetPen(Point) -> void -; tool 0x2904, set 0x04 (QuickDraw) - .section .text.GetPen,"ax" - .globl GetPen -GetPen: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2904 - jsl 0xe10000 - rtl - -; GetPenMask(Mask) -> void -; tool 0x3304, set 0x04 (QuickDraw) - .section .text.GetPenMask,"ax" - .globl GetPenMask -GetPenMask: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3304 - jsl 0xe10000 - rtl - -; GetPenPat(Pattern) -> void -; tool 0x3104, set 0x04 (QuickDraw) - .section .text.GetPenPat,"ax" - .globl GetPenPat -GetPenPat: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3104 - jsl 0xe10000 - rtl - -; GetPenSize(Point) -> void -; tool 0x2D04, set 0x04 (QuickDraw) - .section .text.GetPenSize,"ax" - .globl GetPenSize -GetPenSize: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2D04 - jsl 0xe10000 - rtl - -; GetPenState(PenStatePtr) -> void -; tool 0x2B04, set 0x04 (QuickDraw) - .section .text.GetPenState,"ax" - .globl GetPenState -GetPenState: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2B04 - jsl 0xe10000 - rtl - -; GetPicSave(void) -> Longint -; tool 0x3F04, set 0x04 (QuickDraw) - .section .text.GetPicSave,"ax" - .globl GetPicSave -GetPicSave: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x3F04 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetPixel(Integer, Integer) -> Word -; tool 0x8804, set 0x04 (QuickDraw) - .section .text.GetPixel,"ax" - .globl GetPixel -GetPixel: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ldx #0x8804 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetPolySave(void) -> LongWord -; tool 0x4304, set 0x04 (QuickDraw) - .section .text.GetPolySave,"ax" - .globl GetPolySave -GetPolySave: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x4304 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetPort(void) -> GrafPortPtr -; tool 0x1C04, set 0x04 (QuickDraw) - .section .text.GetPort,"ax" - .globl GetPort -GetPort: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1C04 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetPortLoc(LocInfoPtr) -> void -; tool 0x1E04, set 0x04 (QuickDraw) - .section .text.GetPortLoc,"ax" - .globl GetPortLoc -GetPortLoc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1E04 - jsl 0xe10000 - rtl - -; GetPortRect(Rect) -> void -; tool 0x2004, set 0x04 (QuickDraw) - .section .text.GetPortRect,"ax" - .globl GetPortRect -GetPortRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2004 - jsl 0xe10000 - rtl - -; GetRgnSave(void) -> LongWord -; tool 0x4104, set 0x04 (QuickDraw) - .section .text.GetRgnSave,"ax" - .globl GetRgnSave -GetRgnSave: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x4104 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetROMFont(RomFontRecPtr) -> void -; tool 0xD804, set 0x04 (QuickDraw) - .section .text.GetROMFont,"ax" - .globl GetROMFont -GetROMFont: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xD804 - jsl 0xe10000 - rtl - -; GetRomFont(RomFontRecPtr) -> void -; tool 0xD804, set 0x04 (QuickDraw) - .section .text.GetRomFont,"ax" - .globl GetRomFont -GetRomFont: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xD804 - jsl 0xe10000 - rtl - -; GetSpaceExtra(void) -> Fixed -; tool 0x9F04, set 0x04 (QuickDraw) - .section .text.GetSpaceExtra,"ax" - .globl GetSpaceExtra -GetSpaceExtra: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x9F04 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetSysField(void) -> Longint -; tool 0x4904, set 0x04 (QuickDraw) - .section .text.GetSysField,"ax" - .globl GetSysField -GetSysField: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x4904 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetSysFont(void) -> FontHndl -; tool 0xB304, set 0x04 (QuickDraw) - .section .text.GetSysFont,"ax" - .globl GetSysFont -GetSysFont: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0xB304 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetTextFace(void) -> TextStyle -; tool 0x9B04, set 0x04 (QuickDraw) - .section .text.GetTextFace,"ax" - .globl GetTextFace -GetTextFace: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x9B04 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetUserField(void) -> Longint -; tool 0x4704, set 0x04 (QuickDraw) - .section .text.GetUserField,"ax" - .globl GetUserField -GetUserField: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x4704 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetVisHandle(void) -> RegionHndl -; tool 0xC904, set 0x04 (QuickDraw) - .section .text.GetVisHandle,"ax" - .globl GetVisHandle -GetVisHandle: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0xC904 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetVisRgn(RegionHndl) -> void -; tool 0xB504, set 0x04 (QuickDraw) - .section .text.GetVisRgn,"ax" - .globl GetVisRgn -GetVisRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xB504 - jsl 0xe10000 - rtl - -; GlobalToLocal(Point) -> void -; tool 0x8504, set 0x04 (QuickDraw) - .section .text.GlobalToLocal,"ax" - .globl GlobalToLocal -GlobalToLocal: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x8504 - jsl 0xe10000 - rtl - -; InflateTextBuffer(Word, Word) -> void -; tool 0xD704, set 0x04 (QuickDraw) - .section .text.InflateTextBuffer,"ax" - .globl InflateTextBuffer -InflateTextBuffer: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0xD704 - jsl 0xe10000 - rtl - -; InitColorTable(ColorTable) -> void -; tool 0x0D04, set 0x04 (QuickDraw) - .section .text.InitColorTable,"ax" - .globl InitColorTable -InitColorTable: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0D04 - jsl 0xe10000 - rtl - -; InitPort(GrafPortPtr) -> void -; tool 0x1904, set 0x04 (QuickDraw) - .section .text.InitPort,"ax" - .globl InitPort -InitPort: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1904 - jsl 0xe10000 - rtl - -; InsetRect(Rect, Integer, Integer) -> void -; tool 0x4C04, set 0x04 (QuickDraw) - .section .text.InsetRect,"ax" - .globl InsetRect -InsetRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0x4C04 - jsl 0xe10000 - rtl - -; InsetRgn(RegionHndl, Integer, Integer) -> void -; tool 0x7004, set 0x04 (QuickDraw) - .section .text.InsetRgn,"ax" - .globl InsetRgn -InsetRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0x7004 - jsl 0xe10000 - rtl - -; InvertArc(Rect, Integer, Integer) -> void -; tool 0x6504, set 0x04 (QuickDraw) - .section .text.InvertArc,"ax" - .globl InvertArc -InvertArc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0x6504 - jsl 0xe10000 - rtl - -; InvertOval(Rect) -> void -; tool 0x5B04, set 0x04 (QuickDraw) - .section .text.InvertOval,"ax" - .globl InvertOval -InvertOval: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x5B04 - jsl 0xe10000 - rtl - -; InvertPoly(Handle) -> void -; tool 0xBF04, set 0x04 (QuickDraw) - .section .text.InvertPoly,"ax" - .globl InvertPoly -InvertPoly: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xBF04 - jsl 0xe10000 - rtl - -; InvertRect(Rect) -> void -; tool 0x5604, set 0x04 (QuickDraw) - .section .text.InvertRect,"ax" - .globl InvertRect -InvertRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x5604 - jsl 0xe10000 - rtl - -; InvertRgn(RegionHndl) -> void -; tool 0x7C04, set 0x04 (QuickDraw) - .section .text.InvertRgn,"ax" - .globl InvertRgn -InvertRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x7C04 - jsl 0xe10000 - rtl - -; InvertRRect(Rect, Word, Word) -> void -; tool 0x6004, set 0x04 (QuickDraw) - .section .text.InvertRRect,"ax" - .globl InvertRRect -InvertRRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x6004 - jsl 0xe10000 - rtl - -; KillPoly(Handle) -> void -; tool 0xC304, set 0x04 (QuickDraw) - .section .text.KillPoly,"ax" - .globl KillPoly -KillPoly: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xC304 - jsl 0xe10000 - rtl - -; Line(Integer, Integer) -> void -; tool 0x3D04, set 0x04 (QuickDraw) - .section .text.Line,"ax" - .globl Line -Line: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ldx #0x3D04 - jsl 0xe10000 - rtl - -; LineTo(Integer, Integer) -> void -; tool 0x3C04, set 0x04 (QuickDraw) - .section .text.LineTo,"ax" - .globl LineTo -LineTo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ldx #0x3C04 - jsl 0xe10000 - rtl - -; LocalToGlobal(Point) -> void -; tool 0x8404, set 0x04 (QuickDraw) - .section .text.LocalToGlobal,"ax" - .globl LocalToGlobal -LocalToGlobal: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x8404 - jsl 0xe10000 - rtl - -; MapPoly(Handle, Rect, Rect) -> void -; tool 0xC504, set 0x04 (QuickDraw) - .section .text.MapPoly,"ax" - .globl MapPoly -MapPoly: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0xC504 - jsl 0xe10000 - rtl - -; MapPt(Point, Rect, Rect) -> void -; tool 0x8A04, set 0x04 (QuickDraw) - .section .text.MapPt,"ax" - .globl MapPt -MapPt: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x8A04 - jsl 0xe10000 - rtl - -; MapRect(Rect, Rect, Rect) -> void -; tool 0x8B04, set 0x04 (QuickDraw) - .section .text.MapRect,"ax" - .globl MapRect -MapRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x8B04 - jsl 0xe10000 - rtl - -; MapRgn(RegionHndl, Rect, Rect) -> void -; tool 0x8C04, set 0x04 (QuickDraw) - .section .text.MapRgn,"ax" - .globl MapRgn -MapRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x8C04 - jsl 0xe10000 - rtl - -; Move(Integer, Integer) -> void -; tool 0x3B04, set 0x04 (QuickDraw) - .section .text.Move,"ax" - .globl Move -Move: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ldx #0x3B04 - jsl 0xe10000 - rtl - -; MovePortTo(Integer, Integer) -> void -; tool 0x2204, set 0x04 (QuickDraw) - .section .text.MovePortTo,"ax" - .globl MovePortTo -MovePortTo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ldx #0x2204 - jsl 0xe10000 - rtl - -; MoveTo(Integer, Integer) -> void -; tool 0x3A04, set 0x04 (QuickDraw) - .section .text.MoveTo,"ax" - .globl MoveTo -MoveTo: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ldx #0x3A04 - jsl 0xe10000 - rtl - -; NewRgn(void) -> RegionHndl -; tool 0x6704, set 0x04 (QuickDraw) - .section .text.NewRgn,"ax" - .globl NewRgn -NewRgn: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x6704 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NotEmptyRect(Rect) -> Boolean -; tool 0x5204, set 0x04 (QuickDraw) - .section .text.NotEmptyRect,"ax" - .globl NotEmptyRect -NotEmptyRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x5204 - jsl 0xe10000 - pla ; result -> A - rtl - -; OffsetPoly(Handle, Integer, Integer) -> void -; tool 0xC404, set 0x04 (QuickDraw) - .section .text.OffsetPoly,"ax" - .globl OffsetPoly -OffsetPoly: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0xC404 - jsl 0xe10000 - rtl - -; OffsetRect(Rect, Integer, Integer) -> void -; tool 0x4B04, set 0x04 (QuickDraw) - .section .text.OffsetRect,"ax" - .globl OffsetRect -OffsetRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0x4B04 - jsl 0xe10000 - rtl - -; OffsetRgn(RegionHndl, Integer, Integer) -> void -; tool 0x6F04, set 0x04 (QuickDraw) - .section .text.OffsetRgn,"ax" - .globl OffsetRgn -OffsetRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0x6F04 - jsl 0xe10000 - rtl - -; OpenPoly(void) -> handle -; tool 0xC104, set 0x04 (QuickDraw) - .section .text.OpenPoly,"ax" - .globl OpenPoly -OpenPoly: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0xC104 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; OpenPort(GrafPortPtr) -> void -; tool 0x1804, set 0x04 (QuickDraw) - .section .text.OpenPort,"ax" - .globl OpenPort -OpenPort: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1804 - jsl 0xe10000 - rtl - -; PaintArc(Rect, Integer, Integer) -> void -; tool 0x6304, set 0x04 (QuickDraw) - .section .text.PaintArc,"ax" - .globl PaintArc -PaintArc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0x6304 - jsl 0xe10000 - rtl - -; PaintOval(Rect) -> void -; tool 0x5904, set 0x04 (QuickDraw) - .section .text.PaintOval,"ax" - .globl PaintOval -PaintOval: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x5904 - jsl 0xe10000 - rtl - -; PaintPixels(PaintParamPtr) -> void -; tool 0x7F04, set 0x04 (QuickDraw) - .section .text.PaintPixels,"ax" - .globl PaintPixels -PaintPixels: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x7F04 - jsl 0xe10000 - rtl - -; PaintPoly(Handle) -> void -; tool 0xBD04, set 0x04 (QuickDraw) - .section .text.PaintPoly,"ax" - .globl PaintPoly -PaintPoly: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xBD04 - jsl 0xe10000 - rtl - -; PaintRect(Rect) -> void -; tool 0x5404, set 0x04 (QuickDraw) - .section .text.PaintRect,"ax" - .globl PaintRect -PaintRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x5404 - jsl 0xe10000 - rtl - -; PaintRgn(RegionHndl) -> void -; tool 0x7A04, set 0x04 (QuickDraw) - .section .text.PaintRgn,"ax" - .globl PaintRgn -PaintRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x7A04 - jsl 0xe10000 - rtl - -; PaintRRect(Rect, Word, Word) -> void -; tool 0x5E04, set 0x04 (QuickDraw) - .section .text.PaintRRect,"ax" - .globl PaintRRect -PaintRRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x5E04 - jsl 0xe10000 - rtl - -; PPToPort(LocInfoPtr, Rect, Integer, Integer, Word) -> void -; tool 0xD604, set 0x04 (QuickDraw) - .section .text.PPToPort,"ax" - .globl PPToPort -PPToPort: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Integer, 2B) --- - lda 16, s - pha - ; --- arg3 (Integer, 2B) --- - lda 20, s - pha - ; --- arg4 (Word, 2B) --- - lda 24, s - pha - ldx #0xD604 - jsl 0xe10000 - rtl - -; Pt2Rect(Point, Point, Rect) -> void -; tool 0x5004, set 0x04 (QuickDraw) - .section .text.Pt2Rect,"ax" - .globl Pt2Rect -Pt2Rect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Point, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x5004 - jsl 0xe10000 - rtl - -; PtInRect(Point, Rect) -> Boolean -; tool 0x4F04, set 0x04 (QuickDraw) - .section .text.PtInRect,"ax" - .globl PtInRect -PtInRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x4F04 - jsl 0xe10000 - pla ; result -> A - rtl - -; PtInRgn(Point, RegionHndl) -> Boolean -; tool 0x7504, set 0x04 (QuickDraw) - .section .text.PtInRgn,"ax" - .globl PtInRgn -PtInRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (RegionHndl, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x7504 - jsl 0xe10000 - pla ; result -> A - rtl - -; RectInRgn(Rect, RegionHndl) -> Boolean -; tool 0x7604, set 0x04 (QuickDraw) - .section .text.RectInRgn,"ax" - .globl RectInRgn -RectInRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (RegionHndl, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x7604 - jsl 0xe10000 - pla ; result -> A - rtl - -; RectRgn(RegionHndl, Rect) -> void -; tool 0x6C04, set 0x04 (QuickDraw) - .section .text.RectRgn,"ax" - .globl RectRgn -RectRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x6C04 - jsl 0xe10000 - rtl - -; RestoreBufDims(BufDimRecPtr) -> void -; tool 0xCE04, set 0x04 (QuickDraw) - .section .text.RestoreBufDims,"ax" - .globl RestoreBufDims -RestoreBufDims: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xCE04 - jsl 0xe10000 - rtl - -; SaveBufDims(BufDimRecPtr) -> void -; tool 0xCD04, set 0x04 (QuickDraw) - .section .text.SaveBufDims,"ax" - .globl SaveBufDims -SaveBufDims: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xCD04 - jsl 0xe10000 - rtl - -; ScalePt(Point, Rect, Rect) -> void -; tool 0x8904, set 0x04 (QuickDraw) - .section .text.ScalePt,"ax" - .globl ScalePt -ScalePt: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x8904 - jsl 0xe10000 - rtl - -; ScrollRect(Rect, Integer, Integer, RegionHndl) -> void -; tool 0x7E04, set 0x04 (QuickDraw) - .section .text.ScrollRect,"ax" - .globl ScrollRect -ScrollRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ; --- arg3 (RegionHndl, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x7E04 - jsl 0xe10000 - rtl - -; SectRect(Rect, Rect, Rect) -> Boolean -; tool 0x4D04, set 0x04 (QuickDraw) - .section .text.SectRect,"ax" - .globl SectRect -SectRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Rect, 4B) --- - lda 20, s - pha - lda 20, s - pha - ldx #0x4D04 - jsl 0xe10000 - pla ; result -> A - rtl - -; SectRgn(RegionHndl, RegionHndl, RegionHndl) -> void -; tool 0x7104, set 0x04 (QuickDraw) - .section .text.SectRgn,"ax" - .globl SectRgn -SectRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (RegionHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (RegionHndl, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x7104 - jsl 0xe10000 - rtl - -; SetBackPat(Pattern) -> void -; tool 0x3404, set 0x04 (QuickDraw) - .section .text.SetBackPat,"ax" - .globl SetBackPat -SetBackPat: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3404 - jsl 0xe10000 - rtl - -; SetBufDims(Word, Word, Word) -> void -; tool 0xCB04, set 0x04 (QuickDraw) - .section .text.SetBufDims,"ax" - .globl SetBufDims -SetBufDims: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ldx #0xCB04 - jsl 0xe10000 - rtl - -; SetCharExtra(Fixed) -> void -; tool 0xD404, set 0x04 (QuickDraw) - .section .text.SetCharExtra,"ax" - .globl SetCharExtra -SetCharExtra: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xD404 - jsl 0xe10000 - rtl - -; SetClip(RegionHndl) -> void -; tool 0x2404, set 0x04 (QuickDraw) - .section .text.SetClip,"ax" - .globl SetClip -SetClip: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2404 - jsl 0xe10000 - rtl - -; SetClipHandle(RegionHndl) -> void -; tool 0xC604, set 0x04 (QuickDraw) - .section .text.SetClipHandle,"ax" - .globl SetClipHandle -SetClipHandle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xC604 - jsl 0xe10000 - rtl - -; SetColorEntry(Word, Word, ColorValue) -> void -; tool 0x1004, set 0x04 (QuickDraw) - .section .text.SetColorEntry,"ax" - .globl SetColorEntry -SetColorEntry: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (ColorValue, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1004 - jsl 0xe10000 - rtl - -; SetColorTable(Word, ColorTable) -> void -; tool 0x0E04, set 0x04 (QuickDraw) - .section .text.SetColorTable,"ax" - .globl SetColorTable -SetColorTable: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (ColorTable, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x0E04 - jsl 0xe10000 - rtl - -; SetCursor(Pointer) -> void -; tool 0x8E04, set 0x04 (QuickDraw) - .section .text.SetCursor,"ax" - .globl SetCursor -SetCursor: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x8E04 - jsl 0xe10000 - rtl - -; SetEmptyRgn(RegionHndl) -> void -; tool 0x6A04, set 0x04 (QuickDraw) - .section .text.SetEmptyRgn,"ax" - .globl SetEmptyRgn -SetEmptyRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x6A04 - jsl 0xe10000 - rtl - -; SetFont(FontHndl) -> void -; tool 0x9404, set 0x04 (QuickDraw) - .section .text.SetFont,"ax" - .globl SetFont -SetFont: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x9404 - jsl 0xe10000 - rtl - -; SetFontID(FontID) -> void -; tool 0xD004, set 0x04 (QuickDraw) - .section .text.SetFontID,"ax" - .globl SetFontID -SetFontID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xD004 - jsl 0xe10000 - rtl - -; SetGrafProcs(QDProcsPtr) -> void -; tool 0x4404, set 0x04 (QuickDraw) - .section .text.SetGrafProcs,"ax" - .globl SetGrafProcs -SetGrafProcs: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4404 - jsl 0xe10000 - rtl - -; SetOrigin(Integer, Integer) -> void -; tool 0x2304, set 0x04 (QuickDraw) - .section .text.SetOrigin,"ax" - .globl SetOrigin -SetOrigin: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ldx #0x2304 - jsl 0xe10000 - rtl - -; SetPenMask(Mask) -> void -; tool 0x3204, set 0x04 (QuickDraw) - .section .text.SetPenMask,"ax" - .globl SetPenMask -SetPenMask: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3204 - jsl 0xe10000 - rtl - -; SetPenPat(Pattern) -> void -; tool 0x3004, set 0x04 (QuickDraw) - .section .text.SetPenPat,"ax" - .globl SetPenPat -SetPenPat: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3004 - jsl 0xe10000 - rtl - -; SetPenSize(Word, Word) -> void -; tool 0x2C04, set 0x04 (QuickDraw) - .section .text.SetPenSize,"ax" - .globl SetPenSize -SetPenSize: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x2C04 - jsl 0xe10000 - rtl - -; SetPenState(PenStatePtr) -> void -; tool 0x2A04, set 0x04 (QuickDraw) - .section .text.SetPenState,"ax" - .globl SetPenState -SetPenState: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2A04 - jsl 0xe10000 - rtl - -; SetPicSave(Longint) -> void -; tool 0x3E04, set 0x04 (QuickDraw) - .section .text.SetPicSave,"ax" - .globl SetPicSave -SetPicSave: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3E04 - jsl 0xe10000 - rtl - -; SetPolySave(Longint) -> void -; tool 0x4204, set 0x04 (QuickDraw) - .section .text.SetPolySave,"ax" - .globl SetPolySave -SetPolySave: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4204 - jsl 0xe10000 - rtl - -; SetPort(GrafPortPtr) -> void -; tool 0x1B04, set 0x04 (QuickDraw) - .section .text.SetPort,"ax" - .globl SetPort -SetPort: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1B04 - jsl 0xe10000 - rtl - -; SetPortLoc(LocInfoPtr) -> void -; tool 0x1D04, set 0x04 (QuickDraw) - .section .text.SetPortLoc,"ax" - .globl SetPortLoc -SetPortLoc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1D04 - jsl 0xe10000 - rtl - -; SetPortRect(Rect) -> void -; tool 0x1F04, set 0x04 (QuickDraw) - .section .text.SetPortRect,"ax" - .globl SetPortRect -SetPortRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1F04 - jsl 0xe10000 - rtl - -; SetPortSize(Word, Word) -> void -; tool 0x2104, set 0x04 (QuickDraw) - .section .text.SetPortSize,"ax" - .globl SetPortSize -SetPortSize: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x2104 - jsl 0xe10000 - rtl - -; SetPt(Point, Integer, Integer) -> void -; tool 0x8204, set 0x04 (QuickDraw) - .section .text.SetPt,"ax" - .globl SetPt -SetPt: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ldx #0x8204 - jsl 0xe10000 - rtl - -; SetRandSeed(Longint) -> void -; tool 0x8704, set 0x04 (QuickDraw) - .section .text.SetRandSeed,"ax" - .globl SetRandSeed -SetRandSeed: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x8704 - jsl 0xe10000 - rtl - -; SetRect(Rect, Integer, Integer, Integer, Integer) -> void -; tool 0x4A04, set 0x04 (QuickDraw) - .section .text.SetRect,"ax" - .globl SetRect -SetRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ; --- arg3 (Integer, 2B) --- - lda 16, s - pha - ; --- arg4 (Integer, 2B) --- - lda 20, s - pha - ldx #0x4A04 - jsl 0xe10000 - rtl - -; SetRectRgn(RegionHndl, Integer, Integer, Integer, Integer) -> void -; tool 0x6B04, set 0x04 (QuickDraw) - .section .text.SetRectRgn,"ax" - .globl SetRectRgn -SetRectRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (Integer, 2B) --- - lda 12, s - pha - ; --- arg3 (Integer, 2B) --- - lda 16, s - pha - ; --- arg4 (Integer, 2B) --- - lda 20, s - pha - ldx #0x6B04 - jsl 0xe10000 - rtl - -; SetRgnSave(Handle) -> void -; tool 0x4004, set 0x04 (QuickDraw) - .section .text.SetRgnSave,"ax" - .globl SetRgnSave -SetRgnSave: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4004 - jsl 0xe10000 - rtl - -; SetSCB(Word, Word) -> void -; tool 0x1204, set 0x04 (QuickDraw) - .section .text.SetSCB,"ax" - .globl SetSCB -SetSCB: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x1204 - jsl 0xe10000 - rtl - -; SetSpaceExtra(Fixed) -> void -; tool 0x9E04, set 0x04 (QuickDraw) - .section .text.SetSpaceExtra,"ax" - .globl SetSpaceExtra -SetSpaceExtra: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x9E04 - jsl 0xe10000 - rtl - -; SetStdProcs(QDProcsPtr) -> void -; tool 0x8D04, set 0x04 (QuickDraw) - .section .text.SetStdProcs,"ax" - .globl SetStdProcs -SetStdProcs: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x8D04 - jsl 0xe10000 - rtl - -; SetSysField(Longint) -> void -; tool 0x4804, set 0x04 (QuickDraw) - .section .text.SetSysField,"ax" - .globl SetSysField -SetSysField: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4804 - jsl 0xe10000 - rtl - -; SetSysFont(FontHndl) -> void -; tool 0xB204, set 0x04 (QuickDraw) - .section .text.SetSysFont,"ax" - .globl SetSysFont -SetSysFont: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xB204 - jsl 0xe10000 - rtl - -; SetTextFace(TextStyle) -> void -; tool 0x9A04, set 0x04 (QuickDraw) - .section .text.SetTextFace,"ax" - .globl SetTextFace -SetTextFace: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x9A04 - jsl 0xe10000 - rtl - -; SetUserField(Longint) -> void -; tool 0x4604, set 0x04 (QuickDraw) - .section .text.SetUserField,"ax" - .globl SetUserField -SetUserField: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4604 - jsl 0xe10000 - rtl - -; SetVisHandle(RegionHndl) -> void -; tool 0xC804, set 0x04 (QuickDraw) - .section .text.SetVisHandle,"ax" - .globl SetVisHandle -SetVisHandle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xC804 - jsl 0xe10000 - rtl - -; SetVisRgn(RegionHndl) -> void -; tool 0xB404, set 0x04 (QuickDraw) - .section .text.SetVisRgn,"ax" - .globl SetVisRgn -SetVisRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xB404 - jsl 0xe10000 - rtl - -; SolidPattern(Word, Pattern) -> void -; tool 0x3904, set 0x04 (QuickDraw) - .section .text.SolidPattern,"ax" - .globl SolidPattern -SolidPattern: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pattern, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x3904 - jsl 0xe10000 - rtl - -; StringBounds(Pointer, Rect) -> void -; tool 0xAD04, set 0x04 (QuickDraw) - .section .text.StringBounds,"ax" - .globl StringBounds -StringBounds: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0xAD04 - jsl 0xe10000 - rtl - -; StringWidth(Pointer) -> Word -; tool 0xA904, set 0x04 (QuickDraw) - .section .text.StringWidth,"ax" - .globl StringWidth -StringWidth: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0xA904 - jsl 0xe10000 - pla ; result -> A - rtl - -; SubPt(Point, Point) -> void -; tool 0x8104, set 0x04 (QuickDraw) - .section .text.SubPt,"ax" - .globl SubPt -SubPt: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Point, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x8104 - jsl 0xe10000 - rtl - -; TextBounds(Pointer, Word, Rect) -> void -; tool 0xAF04, set 0x04 (QuickDraw) - .section .text.TextBounds,"ax" - .globl TextBounds -TextBounds: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Rect, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0xAF04 - jsl 0xe10000 - rtl - -; TextWidth(Pointer, Word) -> Word -; tool 0xAB04, set 0x04 (QuickDraw) - .section .text.TextWidth,"ax" - .globl TextWidth -TextWidth: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0xAB04 - jsl 0xe10000 - pla ; result -> A - rtl - -; UnionRect(Rect, Rect, Rect) -> void -; tool 0x4E04, set 0x04 (QuickDraw) - .section .text.UnionRect,"ax" - .globl UnionRect -UnionRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x4E04 - jsl 0xe10000 - rtl - -; UnionRgn(RegionHndl, RegionHndl, RegionHndl) -> void -; tool 0x7204, set 0x04 (QuickDraw) - .section .text.UnionRgn,"ax" - .globl UnionRgn -UnionRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (RegionHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (RegionHndl, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x7204 - jsl 0xe10000 - rtl - -; XorRgn(RegionHndl, RegionHndl, RegionHndl) -> void -; tool 0x7404, set 0x04 (QuickDraw) - .section .text.XorRgn,"ax" - .globl XorRgn -XorRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (RegionHndl, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (RegionHndl, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x7404 - jsl 0xe10000 - rtl - -; Get640Colors(void) -> PatternPtr -; tool 0xDA04, set 0x04 (QuickDraw) - .section .text.Get640Colors,"ax" - .globl Get640Colors -Get640Colors: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0xDA04 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; AddResource(Handle, Word, Word, Long) -> void -; tool 0x0C1E, set 0x1E (ResourceManager) - .section .text.AddResource,"ax" - .globl AddResource -AddResource: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (Long, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x0C1E - jsl 0xe10000 - rtl - -; CountResources(Word) -> LongWord -; tool 0x221E, set 0x1E (ResourceManager) - .section .text.CountResources,"ax" - .globl CountResources -CountResources: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x221E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; CreateResourceFile(Long, Word, Word, Pointer) -> void -; tool 0x091E, set 0x1E (ResourceManager) - .section .text.CreateResourceFile,"ax" - .globl CreateResourceFile -CreateResourceFile: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (Pointer, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x091E - jsl 0xe10000 - rtl - -; DetachResource(Word, Long) -> void -; tool 0x181E, set 0x1E (ResourceManager) - .section .text.DetachResource,"ax" - .globl DetachResource -DetachResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x181E - jsl 0xe10000 - rtl - -; GetIndResource(Word, Long) -> ResID -; tool 0x231E, set 0x1E (ResourceManager) - .section .text.GetIndResource,"ax" - .globl GetIndResource -GetIndResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x231E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetIndType(Word) -> ResType -; tool 0x211E, set 0x1E (ResourceManager) - .section .text.GetIndType,"ax" - .globl GetIndType -GetIndType: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x211E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetMapHandle(Word) -> ResMapHndl -; tool 0x261E, set 0x1E (ResourceManager) - .section .text.GetMapHandle,"ax" - .globl GetMapHandle -GetMapHandle: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x261E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetResourceAttr(Word, Long) -> ResAttr -; tool 0x1B1E, set 0x1E (ResourceManager) - .section .text.GetResourceAttr,"ax" - .globl GetResourceAttr -GetResourceAttr: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1B1E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetResourceSize(Word, Long) -> LongWord -; tool 0x1D1E, set 0x1E (ResourceManager) - .section .text.GetResourceSize,"ax" - .globl GetResourceSize -GetResourceSize: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1D1E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; HomeResourceFile(Word, Long) -> Word -; tool 0x151E, set 0x1E (ResourceManager) - .section .text.HomeResourceFile,"ax" - .globl HomeResourceFile -HomeResourceFile: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x151E - jsl 0xe10000 - pla ; result -> A - rtl - -; LoadAbsResource(Pointer, Long, Word, Long) -> LongWord -; tool 0x271E, set 0x1E (ResourceManager) - .section .text.LoadAbsResource,"ax" - .globl LoadAbsResource -LoadAbsResource: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg2 (Word, 2B) --- - lda 20, s - pha - ; --- arg3 (Long, 4B) --- - lda 26, s - pha - lda 26, s - pha - ldx #0x271E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; LoadResource(Word, Long) -> Handle -; tool 0x0E1E, set 0x1E (ResourceManager) - .section .text.LoadResource,"ax" - .globl LoadResource -LoadResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x0E1E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; MarkResourceChange(Word, Word, Long) -> void -; tool 0x101E, set 0x1E (ResourceManager) - .section .text.MarkResourceChange,"ax" - .globl MarkResourceChange -MarkResourceChange: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x101E - jsl 0xe10000 - rtl - -; MatchResourceHandle(Pointer, Handle) -> void -; tool 0x1E1E, set 0x1E (ResourceManager) - .section .text.MatchResourceHandle,"ax" - .globl MatchResourceHandle -MatchResourceHandle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1E1E - jsl 0xe10000 - rtl - -; OpenResourceFile(Word, Pointer, Pointer) -> Word -; tool 0x0A1E, set 0x1E (ResourceManager) - .section .text.OpenResourceFile,"ax" - .globl OpenResourceFile -OpenResourceFile: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x0A1E - jsl 0xe10000 - pla ; result -> A - rtl - -; ReleaseResource(Word, Word, Long) -> void -; tool 0x171E, set 0x1E (ResourceManager) - .section .text.ReleaseResource,"ax" - .globl ReleaseResource -ReleaseResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x171E - jsl 0xe10000 - rtl - -; RemoveResource(Word, Long) -> void -; tool 0x0F1E, set 0x1E (ResourceManager) - .section .text.RemoveResource,"ax" - .globl RemoveResource -RemoveResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x0F1E - jsl 0xe10000 - rtl - -; ResourceConverter(Pointer, Word, Word) -> void -; tool 0x281E, set 0x1E (ResourceManager) - .section .text.ResourceConverter,"ax" - .globl ResourceConverter -ResourceConverter: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x281E - jsl 0xe10000 - rtl - -; SetResourceAttr(Word, Word, Long) -> void -; tool 0x1C1E, set 0x1E (ResourceManager) - .section .text.SetResourceAttr,"ax" - .globl SetResourceAttr -SetResourceAttr: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Long, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1C1E - jsl 0xe10000 - rtl - -; SetResourceID(Long, Word, Long) -> void -; tool 0x1A1E, set 0x1E (ResourceManager) - .section .text.SetResourceID,"ax" - .globl SetResourceID -SetResourceID: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Long, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x1A1E - jsl 0xe10000 - rtl - -; UniqueResourceID(Word, Word) -> ResID -; tool 0x191E, set 0x1E (ResourceManager) - .section .text.UniqueResourceID,"ax" - .globl UniqueResourceID -UniqueResourceID: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ldx #0x191E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; WriteResource(Word, Long) -> void -; tool 0x161E, set 0x1E (ResourceManager) - .section .text.WriteResource,"ax" - .globl WriteResource -WriteResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x161E - jsl 0xe10000 - rtl - -; LoadResource2(Word, Ptr, Word, Long) -> Handle -; tool 0x291E, set 0x1E (ResourceManager) - .section .text.LoadResource2,"ax" - .globl LoadResource2 -LoadResource2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Word, 2B) --- - lda 18, s - pha - ; --- arg3 (Long, 4B) --- - lda 24, s - pha - lda 24, s - pha - ldx #0x291E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; RMFindNamedResource(Word, Ptr, Word) -> LongWord -; tool 0x2A1E, set 0x1E (ResourceManager) - .section .text.RMFindNamedResource,"ax" - .globl RMFindNamedResource -RMFindNamedResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Word, 2B) --- - lda 18, s - pha - ldx #0x2A1E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; RMGetResourceName(Word, Long, Ptr) -> void -; tool 0x2B1E, set 0x1E (ResourceManager) - .section .text.RMGetResourceName,"ax" - .globl RMGetResourceName -RMGetResourceName: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Ptr, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x2B1E - jsl 0xe10000 - rtl - -; RMLoadNamedResource(Word, Ptr) -> Handle -; tool 0x2C1E, set 0x1E (ResourceManager) - .section .text.RMLoadNamedResource,"ax" - .globl RMLoadNamedResource -RMLoadNamedResource: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x2C1E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; RMSetResourceName(Word, Long, Ptr) -> void -; tool 0x2D1E, set 0x1E (ResourceManager) - .section .text.RMSetResourceName,"ax" - .globl RMSetResourceName -RMSetResourceName: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Ptr, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x2D1E - jsl 0xe10000 - rtl - -; OpenResourceFileByID(Word, Word) -> Word -; tool 0x2E1E, set 0x1E (ResourceManager) - .section .text.OpenResourceFileByID,"ax" - .globl OpenResourceFileByID -OpenResourceFileByID: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x2E1E - jsl 0xe10000 - pla ; result -> A - rtl - -; CompactResourceFile(Word, Word) -> void -; tool 0x2F1E, set 0x1E (ResourceManager) - .section .text.CompactResourceFile,"ax" - .globl CompactResourceFile -CompactResourceFile: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x2F1E - jsl 0xe10000 - rtl - -; SchAddTask(VoidProcPtr) -> Boolean -; tool 0x0907, set 0x07 (Scheduler) - .section .text.SchAddTask,"ax" - .globl SchAddTask -SchAddTask: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0907 - jsl 0xe10000 - pla ; result -> A - rtl - -; GetScrap(Handle, Word) -> void -; tool 0x0D16, set 0x16 (ScrapManager) - .section .text.GetScrap,"ax" - .globl GetScrap -GetScrap: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ldx #0x0D16 - jsl 0xe10000 - rtl - -; GetScrapHandle(Word) -> handle -; tool 0x0E16, set 0x16 (ScrapManager) - .section .text.GetScrapHandle,"ax" - .globl GetScrapHandle -GetScrapHandle: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x0E16 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetScrapPath(void) -> Pointer -; tool 0x1016, set 0x16 (ScrapManager) - .section .text.GetScrapPath,"ax" - .globl GetScrapPath -GetScrapPath: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x1016 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetScrapSize(Word) -> LongWord -; tool 0x0F16, set 0x16 (ScrapManager) - .section .text.GetScrapSize,"ax" - .globl GetScrapSize -GetScrapSize: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ldx #0x0F16 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PutScrap(LongWord, Word, Pointer) -> void -; tool 0x0C16, set 0x16 (ScrapManager) - .section .text.PutScrap,"ax" - .globl PutScrap -PutScrap: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0C16 - jsl 0xe10000 - rtl - -; SetScrapPath(Pointer) -> void -; tool 0x1116, set 0x16 (ScrapManager) - .section .text.SetScrapPath,"ax" - .globl SetScrapPath -SetScrapPath: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1116 - jsl 0xe10000 - rtl - -; GetIndScrap(Word, Ptr) -> void -; tool 0x1416, set 0x16 (ScrapManager) - .section .text.GetIndScrap,"ax" - .globl GetIndScrap -GetIndScrap: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ptr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1416 - jsl 0xe10000 - rtl - -; ShowClipboard(Word, Rect) -> GrafPortPtr -; tool 0x1516, set 0x16 (ScrapManager) - .section .text.ShowClipboard,"ax" - .globl ShowClipboard -ShowClipboard: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1516 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FFStartSound(Word, Pointer) -> void -; tool 0x0E08, set 0x08 (SoundManager) - .section .text.FFStartSound,"ax" - .globl FFStartSound -FFStartSound: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x0E08 - jsl 0xe10000 - rtl - -; GetTableAddress(void) -> Pointer -; tool 0x0B08, set 0x08 (SoundManager) - .section .text.GetTableAddress,"ax" - .globl GetTableAddress -GetTableAddress: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x0B08 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ReadRamBlock(Pointer, Word, Word) -> void -; tool 0x0A08, set 0x08 (SoundManager) - .section .text.ReadRamBlock,"ax" - .globl ReadRamBlock -ReadRamBlock: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x0A08 - jsl 0xe10000 - rtl - -; SetSoundMIRQV(VoidProcPtr) -> void -; tool 0x1208, set 0x08 (SoundManager) - .section .text.SetSoundMIRQV,"ax" - .globl SetSoundMIRQV -SetSoundMIRQV: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1208 - jsl 0xe10000 - rtl - -; SetSoundVolume(Word, Word) -> void -; tool 0x0D08, set 0x08 (SoundManager) - .section .text.SetSoundVolume,"ax" - .globl SetSoundVolume -SetSoundVolume: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0D08 - jsl 0xe10000 - rtl - -; SetUserSoundIRQV(VoidProcPtr) -> ProcPtr -; tool 0x1308, set 0x08 (SoundManager) - .section .text.SetUserSoundIRQV,"ax" - .globl SetUserSoundIRQV -SetUserSoundIRQV: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1308 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; WriteRamBlock(Pointer, Word, Word) -> void -; tool 0x0908, set 0x08 (SoundManager) - .section .text.WriteRamBlock,"ax" - .globl WriteRamBlock -WriteRamBlock: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x0908 - jsl 0xe10000 - rtl - -; FFSetUpSound(Word, Pointer) -> void -; tool 0x1508, set 0x08 (SoundManager) - .section .text.FFSetUpSound,"ax" - .globl FFSetUpSound -FFSetUpSound: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x1508 - jsl 0xe10000 - rtl - -; ReadDOCReg(Pointer) -> void -; tool 0x1808, set 0x08 (SoundManager) - .section .text.ReadDOCReg,"ax" - .globl ReadDOCReg -ReadDOCReg: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1808 - jsl 0xe10000 - rtl - -; SetDOCReg(Pointer) -> void -; tool 0x1708, set 0x08 (SoundManager) - .section .text.SetDOCReg,"ax" - .globl SetDOCReg -SetDOCReg: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1708 - jsl 0xe10000 - rtl - -; SFStartUp(Word, Word) -> void -; tool 0x0217, set 0x17 (StandardFile) - .section .text.SFStartUp,"ax" - .globl SFStartUp -SFStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0217 - jsl 0xe10000 - rtl - -; SFGetFile(Integer, Integer, Pointer, WordProcPtr, Pointer, SFReplyRecPtr) -> void -; tool 0x0917, set 0x17 (StandardFile) - .section .text.SFGetFile,"ax" - .globl SFGetFile -SFGetFile: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg3 (WordProcPtr, 4B) --- - lda 20, s - pha - lda 20, s - pha - ; --- arg4 (Pointer, 4B) --- - lda 28, s - pha - lda 28, s - pha - ; --- arg5 (SFReplyRecPtr, 4B) --- - lda 36, s - pha - lda 36, s - pha - ldx #0x0917 - jsl 0xe10000 - rtl - -; SFPGetFile(Integer, Integer, Pointer, WordProcPtr, Pointer, Pointer, VoidProcPtr, SFReplyRecPtr) -> void -; tool 0x0B17, set 0x17 (StandardFile) - .section .text.SFPGetFile,"ax" - .globl SFPGetFile -SFPGetFile: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg3 (WordProcPtr, 4B) --- - lda 20, s - pha - lda 20, s - pha - ; --- arg4 (Pointer, 4B) --- - lda 28, s - pha - lda 28, s - pha - ; --- arg5 (Pointer, 4B) --- - lda 36, s - pha - lda 36, s - pha - ; --- arg6 (VoidProcPtr, 4B) --- - lda 44, s - pha - lda 44, s - pha - ; --- arg7 (SFReplyRecPtr, 4B) --- - lda 52, s - pha - lda 52, s - pha - ldx #0x0B17 - jsl 0xe10000 - rtl - -; SFPPutFile(Integer, Integer, Pointer, Pointer, Word, Pointer, VoidProcPtr, SFReplyRecPtr) -> void -; tool 0x0C17, set 0x17 (StandardFile) - .section .text.SFPPutFile,"ax" - .globl SFPPutFile -SFPPutFile: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg3 (Pointer, 4B) --- - lda 20, s - pha - lda 20, s - pha - ; --- arg4 (Word, 2B) --- - lda 26, s - pha - ; --- arg5 (Pointer, 4B) --- - lda 32, s - pha - lda 32, s - pha - ; --- arg6 (VoidProcPtr, 4B) --- - lda 40, s - pha - lda 40, s - pha - ; --- arg7 (SFReplyRecPtr, 4B) --- - lda 48, s - pha - lda 48, s - pha - ldx #0x0C17 - jsl 0xe10000 - rtl - -; SFPutFile(Integer, Integer, Pointer, Pointer, Word, SFReplyRecPtr) -> void -; tool 0x0A17, set 0x17 (StandardFile) - .section .text.SFPutFile,"ax" - .globl SFPutFile -SFPutFile: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Pointer, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg3 (Pointer, 4B) --- - lda 20, s - pha - lda 20, s - pha - ; --- arg4 (Word, 2B) --- - lda 26, s - pha - ; --- arg5 (SFReplyRecPtr, 4B) --- - lda 32, s - pha - lda 32, s - pha - ldx #0x0A17 - jsl 0xe10000 - rtl - -; SFGetFile2(Integer, Integer, Word, Ref, WordProcPtr, SFTypeList2Ptr, SFReplyRec2Ptr) -> void -; tool 0x0E17, set 0x17 (StandardFile) - .section .text.SFGetFile2,"ax" - .globl SFGetFile2 -SFGetFile2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (Ref, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg4 (WordProcPtr, 4B) --- - lda 24, s - pha - lda 24, s - pha - ; --- arg5 (SFTypeList2Ptr, 4B) --- - lda 32, s - pha - lda 32, s - pha - ; --- arg6 (SFReplyRec2Ptr, 4B) --- - lda 40, s - pha - lda 40, s - pha - ldx #0x0E17 - jsl 0xe10000 - rtl - -; SFMultiGet2(Integer, Integer, Word, Ref, WordProcPtr, SFTypeList2Ptr, MultiReplyPtr) -> void -; tool 0x1417, set 0x17 (StandardFile) - .section .text.SFMultiGet2,"ax" - .globl SFMultiGet2 -SFMultiGet2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (Ref, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg4 (WordProcPtr, 4B) --- - lda 24, s - pha - lda 24, s - pha - ; --- arg5 (SFTypeList2Ptr, 4B) --- - lda 32, s - pha - lda 32, s - pha - ; --- arg6 (MultiReplyPtr, 4B) --- - lda 40, s - pha - lda 40, s - pha - ldx #0x1417 - jsl 0xe10000 - rtl - -; SFPGetFile2(Integer, Integer, VoidProcPtr, Word, Ref, WordProcPtr, SFTypeList2Ptr, Pointer, VoidProcPtr, SFReplyRec2Ptr) -> void -; tool 0x1017, set 0x17 (StandardFile) - .section .text.SFPGetFile2,"ax" - .globl SFPGetFile2 -SFPGetFile2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (VoidProcPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg3 (Word, 2B) --- - lda 18, s - pha - ; --- arg4 (Ref, 4B) --- - lda 24, s - pha - lda 24, s - pha - ; --- arg5 (WordProcPtr, 4B) --- - lda 32, s - pha - lda 32, s - pha - ; --- arg6 (SFTypeList2Ptr, 4B) --- - lda 40, s - pha - lda 40, s - pha - ; --- arg7 (Pointer, 4B) --- - lda 48, s - pha - lda 48, s - pha - ; --- arg8 (VoidProcPtr, 4B) --- - lda 56, s - pha - lda 56, s - pha - ; --- arg9 (SFReplyRec2Ptr, 4B) --- - lda 64, s - pha - lda 64, s - pha - ldx #0x1017 - jsl 0xe10000 - rtl - -; SFPMultiGet2(Integer, Integer, VoidProcPtr, Word, Ref, WordProcPtr, SFTypeList2Ptr, Pointer, VoidProcPtr, MultiReplyPtr) -> void -; tool 0x1517, set 0x17 (StandardFile) - .section .text.SFPMultiGet2,"ax" - .globl SFPMultiGet2 -SFPMultiGet2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (VoidProcPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg3 (Word, 2B) --- - lda 18, s - pha - ; --- arg4 (Ref, 4B) --- - lda 24, s - pha - lda 24, s - pha - ; --- arg5 (WordProcPtr, 4B) --- - lda 32, s - pha - lda 32, s - pha - ; --- arg6 (SFTypeList2Ptr, 4B) --- - lda 40, s - pha - lda 40, s - pha - ; --- arg7 (Pointer, 4B) --- - lda 48, s - pha - lda 48, s - pha - ; --- arg8 (VoidProcPtr, 4B) --- - lda 56, s - pha - lda 56, s - pha - ; --- arg9 (MultiReplyPtr, 4B) --- - lda 64, s - pha - lda 64, s - pha - ldx #0x1517 - jsl 0xe10000 - rtl - -; SFPPutFile2(Integer, Integer, VoidProcPtr, Word, Ref, Word, Ref, Pointer, VoidProcPtr, SFReplyRec2Ptr) -> void -; tool 0x1117, set 0x17 (StandardFile) - .section .text.SFPPutFile2,"ax" - .globl SFPPutFile2 -SFPPutFile2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (VoidProcPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg3 (Word, 2B) --- - lda 18, s - pha - ; --- arg4 (Ref, 4B) --- - lda 24, s - pha - lda 24, s - pha - ; --- arg5 (Word, 2B) --- - lda 30, s - pha - ; --- arg6 (Ref, 4B) --- - lda 36, s - pha - lda 36, s - pha - ; --- arg7 (Pointer, 4B) --- - lda 44, s - pha - lda 44, s - pha - ; --- arg8 (VoidProcPtr, 4B) --- - lda 52, s - pha - lda 52, s - pha - ; --- arg9 (SFReplyRec2Ptr, 4B) --- - lda 60, s - pha - lda 60, s - pha - ldx #0x1117 - jsl 0xe10000 - rtl - -; SFPutFile2(Integer, Integer, Word, Ref, Word, Ref, SFReplyRec2Ptr) -> void -; tool 0x0F17, set 0x17 (StandardFile) - .section .text.SFPutFile2,"ax" - .globl SFPutFile2 -SFPutFile2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (Ref, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg4 (Word, 2B) --- - lda 22, s - pha - ; --- arg5 (Ref, 4B) --- - lda 28, s - pha - lda 28, s - pha - ; --- arg6 (SFReplyRec2Ptr, 4B) --- - lda 36, s - pha - lda 36, s - pha - ldx #0x0F17 - jsl 0xe10000 - rtl - -; SFReScan(WordProcPtr, SFTypeList2Ptr) -> void -; tool 0x1317, set 0x17 (StandardFile) - .section .text.SFReScan,"ax" - .globl SFReScan -SFReScan: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (SFTypeList2Ptr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1317 - jsl 0xe10000 - rtl - -; TEStartUp(Word, Word) -> void -; tool 0x0222, set 0x22 (TextEdit) - .section .text.TEStartUp,"ax" - .globl TEStartUp -TEStartUp: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0222 - jsl 0xe10000 - rtl - -; TEActivate(Handle) -> void -; tool 0x0F22, set 0x22 (TextEdit) - .section .text.TEActivate,"ax" - .globl TEActivate -TEActivate: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0F22 - jsl 0xe10000 - rtl - -; TEClear(Handle) -> void -; tool 0x1922, set 0x22 (TextEdit) - .section .text.TEClear,"ax" - .globl TEClear -TEClear: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1922 - jsl 0xe10000 - rtl - -; TEClick(EventRecordPtr, Handle) -> void -; tool 0x1122, set 0x22 (TextEdit) - .section .text.TEClick,"ax" - .globl TEClick -TEClick: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1122 - jsl 0xe10000 - rtl - -; TECompactRecord(Handle) -> void -; tool 0x2822, set 0x22 (TextEdit) - .section .text.TECompactRecord,"ax" - .globl TECompactRecord -TECompactRecord: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2822 - jsl 0xe10000 - rtl - -; TECopy(Handle) -> void -; tool 0x1722, set 0x22 (TextEdit) - .section .text.TECopy,"ax" - .globl TECopy -TECopy: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1722 - jsl 0xe10000 - rtl - -; TECut(Handle) -> void -; tool 0x1622, set 0x22 (TextEdit) - .section .text.TECut,"ax" - .globl TECut -TECut: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1622 - jsl 0xe10000 - rtl - -; TEDeactivate(Handle) -> void -; tool 0x1022, set 0x22 (TextEdit) - .section .text.TEDeactivate,"ax" - .globl TEDeactivate -TEDeactivate: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1022 - jsl 0xe10000 - rtl - -; TEGetDefProc(void) -> ProcPtr -; tool 0x2222, set 0x22 (TextEdit) - .section .text.TEGetDefProc,"ax" - .globl TEGetDefProc -TEGetDefProc: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2222 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; TEGetInternalProc(void) -> ProcPtr -; tool 0x2622, set 0x22 (TextEdit) - .section .text.TEGetInternalProc,"ax" - .globl TEGetInternalProc -TEGetInternalProc: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x2622 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; TEGetLastError(Word, Handle) -> Word -; tool 0x2722, set 0x22 (TextEdit) - .section .text.TEGetLastError,"ax" - .globl TEGetLastError -TEGetLastError: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x2722 - jsl 0xe10000 - pla ; result -> A - rtl - -; TEGetRuler(Word, Ref, Handle) -> void -; tool 0x2322, set 0x22 (TextEdit) - .section .text.TEGetRuler,"ax" - .globl TEGetRuler -TEGetRuler: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Handle, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x2322 - jsl 0xe10000 - rtl - -; TEGetSelection(Pointer, Pointer, Handle) -> void -; tool 0x1C22, set 0x22 (TextEdit) - .section .text.TEGetSelection,"ax" - .globl TEGetSelection -TEGetSelection: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Handle, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x1C22 - jsl 0xe10000 - rtl - -; TEGetSelectionStyle(TEStylePtr, Handle, Handle) -> Word -; tool 0x1E22, set 0x22 (TextEdit) - .section .text.TEGetSelectionStyle,"ax" - .globl TEGetSelectionStyle -TEGetSelectionStyle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Handle, 4B) --- - lda 20, s - pha - lda 20, s - pha - ldx #0x1E22 - jsl 0xe10000 - pla ; result -> A - rtl - -; TEGetText(Word, Ref, Long, Word, Ref, Handle) -> LongWord -; tool 0x0C22, set 0x22 (TextEdit) - .section .text.TEGetText,"ax" - .globl TEGetText -TEGetText: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Long, 4B) --- - lda 20, s - pha - lda 20, s - pha - ; --- arg3 (Word, 2B) --- - lda 26, s - pha - ; --- arg4 (Ref, 4B) --- - lda 32, s - pha - lda 32, s - pha - ; --- arg5 (Handle, 4B) --- - lda 40, s - pha - lda 40, s - pha - ldx #0x0C22 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; TEGetTextInfo(Pointer, Word, Handle) -> void -; tool 0x0D22, set 0x22 (TextEdit) - .section .text.TEGetTextInfo,"ax" - .globl TEGetTextInfo -TEGetTextInfo: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Handle, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x0D22 - jsl 0xe10000 - rtl - -; TEIdle(Handle) -> void -; tool 0x0E22, set 0x22 (TextEdit) - .section .text.TEIdle,"ax" - .globl TEIdle -TEIdle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0E22 - jsl 0xe10000 - rtl - -; TEInsert(Word, Ref, Long, Word, Ref, Handle) -> void -; tool 0x1A22, set 0x22 (TextEdit) - .section .text.TEInsert,"ax" - .globl TEInsert -TEInsert: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Long, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg3 (Word, 2B) --- - lda 22, s - pha - ; --- arg4 (Ref, 4B) --- - lda 28, s - pha - lda 28, s - pha - ; --- arg5 (Handle, 4B) --- - lda 36, s - pha - lda 36, s - pha - ldx #0x1A22 - jsl 0xe10000 - rtl - -; TEKey(EventRecordPtr, Handle) -> void -; tool 0x1422, set 0x22 (TextEdit) - .section .text.TEKey,"ax" - .globl TEKey -TEKey: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Handle, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1422 - jsl 0xe10000 - rtl - -; TEKill(Handle) -> void -; tool 0x0A22, set 0x22 (TextEdit) - .section .text.TEKill,"ax" - .globl TEKill -TEKill: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0A22 - jsl 0xe10000 - rtl - -; TENew(TEParamBlockPtr) -> TERecordHndl -; tool 0x0922, set 0x22 (TextEdit) - .section .text.TENew,"ax" - .globl TENew -TENew: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0922 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; TEOffsetToPoint(Long, Long, Long, Handle) -> void -; tool 0x2022, set 0x22 (TextEdit) - .section .text.TEOffsetToPoint,"ax" - .globl TEOffsetToPoint -TEOffsetToPoint: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Long, 4B) --- - lda 18, s - pha - lda 18, s - pha - ; --- arg3 (Handle, 4B) --- - lda 26, s - pha - lda 26, s - pha - ldx #0x2022 - jsl 0xe10000 - rtl - -; TEPaintText(GrafPortPtr, Long, Rect, Word, Handle) -> LongWord -; tool 0x1322, set 0x22 (TextEdit) - .section .text.TEPaintText,"ax" - .globl TEPaintText -TEPaintText: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg2 (Rect, 4B) --- - lda 22, s - pha - lda 22, s - pha - ; --- arg3 (Word, 2B) --- - lda 28, s - pha - ; --- arg4 (Handle, 4B) --- - lda 34, s - pha - lda 34, s - pha - ldx #0x1322 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; TEPaste(Handle) -> void -; tool 0x1822, set 0x22 (TextEdit) - .section .text.TEPaste,"ax" - .globl TEPaste -TEPaste: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1822 - jsl 0xe10000 - rtl - -; TEPointToOffset(Long, Long, Handle) -> LongWord -; tool 0x2122, set 0x22 (TextEdit) - .section .text.TEPointToOffset,"ax" - .globl TEPointToOffset -TEPointToOffset: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg2 (Handle, 4B) --- - lda 22, s - pha - lda 22, s - pha - ldx #0x2122 - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; TEReplace(Word, Ref, Long, Word, Ref, Handle) -> void -; tool 0x1B22, set 0x22 (TextEdit) - .section .text.TEReplace,"ax" - .globl TEReplace -TEReplace: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Long, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg3 (Word, 2B) --- - lda 22, s - pha - ; --- arg4 (Ref, 4B) --- - lda 28, s - pha - lda 28, s - pha - ; --- arg5 (Handle, 4B) --- - lda 36, s - pha - lda 36, s - pha - ldx #0x1B22 - jsl 0xe10000 - rtl - -; TEScroll(Word, Long, Long, Handle) -> void -; tool 0x2522, set 0x22 (TextEdit) - .section .text.TEScroll,"ax" - .globl TEScroll -TEScroll: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Long, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg3 (Handle, 4B) --- - lda 24, s - pha - lda 24, s - pha - ldx #0x2522 - jsl 0xe10000 - rtl - -; TESetRuler(Word, Ref, Handle) -> void -; tool 0x2422, set 0x22 (TextEdit) - .section .text.TESetRuler,"ax" - .globl TESetRuler -TESetRuler: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Handle, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x2422 - jsl 0xe10000 - rtl - -; TESetSelection(Pointer, Pointer, Handle) -> void -; tool 0x1D22, set 0x22 (TextEdit) - .section .text.TESetSelection,"ax" - .globl TESetSelection -TESetSelection: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Handle, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x1D22 - jsl 0xe10000 - rtl - -; TESetText(Word, Ref, Long, Word, Ref, Handle) -> void -; tool 0x0B22, set 0x22 (TextEdit) - .section .text.TESetText,"ax" - .globl TESetText -TESetText: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Ref, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Long, 4B) --- - lda 16, s - pha - lda 16, s - pha - ; --- arg3 (Word, 2B) --- - lda 22, s - pha - ; --- arg4 (Ref, 4B) --- - lda 28, s - pha - lda 28, s - pha - ; --- arg5 (Handle, 4B) --- - lda 36, s - pha - lda 36, s - pha - ldx #0x0B22 - jsl 0xe10000 - rtl - -; TEStyleChange(Word, TEStylePtr, Handle) -> void -; tool 0x1F22, set 0x22 (TextEdit) - .section .text.TEStyleChange,"ax" - .globl TEStyleChange -TEStyleChange: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (TEStylePtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (Handle, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x1F22 - jsl 0xe10000 - rtl - -; TEUpdate(Handle) -> void -; tool 0x1222, set 0x22 (TextEdit) - .section .text.TEUpdate,"ax" - .globl TEUpdate -TEUpdate: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1222 - jsl 0xe10000 - rtl - -; CtlTextDev(Word, Word) -> void -; tool 0x160C, set 0x0C (TextTools) - .section .text.CtlTextDev,"ax" - .globl CtlTextDev -CtlTextDev: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x160C - jsl 0xe10000 - rtl - -; ErrWriteBlock(Pointer, Word, Word) -> void -; tool 0x1F0C, set 0x0C (TextTools) - .section .text.ErrWriteBlock,"ax" - .globl ErrWriteBlock -ErrWriteBlock: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x1F0C - jsl 0xe10000 - rtl - -; ErrWriteCString(Pointer) -> void -; tool 0x210C, set 0x0C (TextTools) - .section .text.ErrWriteCString,"ax" - .globl ErrWriteCString -ErrWriteCString: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x210C - jsl 0xe10000 - rtl - -; ErrWriteLine(Pointer) -> void -; tool 0x1B0C, set 0x0C (TextTools) - .section .text.ErrWriteLine,"ax" - .globl ErrWriteLine -ErrWriteLine: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1B0C - jsl 0xe10000 - rtl - -; ErrWriteString(Pointer) -> void -; tool 0x1D0C, set 0x0C (TextTools) - .section .text.ErrWriteString,"ax" - .globl ErrWriteString -ErrWriteString: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1D0C - jsl 0xe10000 - rtl - -; GetErrGlobals(void) -> Long -; tool 0x0E0C, set 0x0C (TextTools) - .section .text.GetErrGlobals,"ax" - .globl GetErrGlobals -GetErrGlobals: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x0E0C - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetInGlobals(void) -> Long -; tool 0x0C0C, set 0x0C (TextTools) - .section .text.GetInGlobals,"ax" - .globl GetInGlobals -GetInGlobals: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x0C0C - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetOutGlobals(void) -> Long -; tool 0x0D0C, set 0x0C (TextTools) - .section .text.GetOutGlobals,"ax" - .globl GetOutGlobals -GetOutGlobals: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x0D0C - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ReadLine(Pointer, Word, Word, Word) -> Word -; tool 0x240C, set 0x0C (TextTools) - .section .text.ReadLine,"ax" - .globl ReadLine -ReadLine: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Word, 2B) --- - lda 14, s - pha - ; --- arg3 (Word, 2B) --- - lda 18, s - pha - ldx #0x240C - jsl 0xe10000 - pla ; result -> A - rtl - -; SetErrGlobals(Word, Word) -> void -; tool 0x0B0C, set 0x0C (TextTools) - .section .text.SetErrGlobals,"ax" - .globl SetErrGlobals -SetErrGlobals: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0B0C - jsl 0xe10000 - rtl - -; SetErrorDevice(Word, LongWord) -> void -; tool 0x110C, set 0x0C (TextTools) - .section .text.SetErrorDevice,"ax" - .globl SetErrorDevice -SetErrorDevice: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (LongWord, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x110C - jsl 0xe10000 - rtl - -; SetInGlobals(Word, Word) -> void -; tool 0x090C, set 0x0C (TextTools) - .section .text.SetInGlobals,"ax" - .globl SetInGlobals -SetInGlobals: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x090C - jsl 0xe10000 - rtl - -; SetInputDevice(Word, LongWord) -> void -; tool 0x0F0C, set 0x0C (TextTools) - .section .text.SetInputDevice,"ax" - .globl SetInputDevice -SetInputDevice: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (LongWord, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x0F0C - jsl 0xe10000 - rtl - -; SetOutGlobals(Word, Word) -> void -; tool 0x0A0C, set 0x0C (TextTools) - .section .text.SetOutGlobals,"ax" - .globl SetOutGlobals -SetOutGlobals: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x0A0C - jsl 0xe10000 - rtl - -; SetOutputDevice(Word, LongWord) -> void -; tool 0x100C, set 0x0C (TextTools) - .section .text.SetOutputDevice,"ax" - .globl SetOutputDevice -SetOutputDevice: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (LongWord, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x100C - jsl 0xe10000 - rtl - -; StatusTextDev(Word, Word) -> void -; tool 0x170C, set 0x0C (TextTools) - .section .text.StatusTextDev,"ax" - .globl StatusTextDev -StatusTextDev: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x170C - jsl 0xe10000 - rtl - -; TextReadBlock(Pointer, Word, Word, Word) -> void -; tool 0x230C, set 0x0C (TextTools) - .section .text.TextReadBlock,"ax" - .globl TextReadBlock -TextReadBlock: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ; --- arg3 (Word, 2B) --- - lda 16, s - pha - ldx #0x230C - jsl 0xe10000 - rtl - -; TextWriteBlock(Pointer, Word, Word) -> void -; tool 0x1E0C, set 0x0C (TextTools) - .section .text.TextWriteBlock,"ax" - .globl TextWriteBlock -TextWriteBlock: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 8, s - pha - ; --- arg2 (Word, 2B) --- - lda 12, s - pha - ldx #0x1E0C - jsl 0xe10000 - rtl - -; WriteCString(Pointer) -> void -; tool 0x200C, set 0x0C (TextTools) - .section .text.WriteCString,"ax" - .globl WriteCString -WriteCString: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x200C - jsl 0xe10000 - rtl - -; WriteLine(Pointer) -> void -; tool 0x1A0C, set 0x0C (TextTools) - .section .text.WriteLine,"ax" - .globl WriteLine -WriteLine: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1A0C - jsl 0xe10000 - rtl - -; WriteString(Pointer) -> void -; tool 0x1C0C, set 0x0C (TextTools) - .section .text.WriteString,"ax" - .globl WriteString -WriteString: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1C0C - jsl 0xe10000 - rtl - -; VDGGControl(Word, Word) -> void -; tool 0x1D21, set 0x21 (Teletext) - .section .text.VDGGControl,"ax" - .globl VDGGControl -VDGGControl: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x1D21 - jsl 0xe10000 - rtl - -; VDInControl(Word, Word) -> void -; tool 0x1C21, set 0x21 (Teletext) - .section .text.VDInControl,"ax" - .globl VDInControl -VDInControl: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ldx #0x1C21 - jsl 0xe10000 - rtl - ; VDInConvAdj(Word, Word) -> void ; tool 0x0C21, set 0x21 (Teletext) .section .text.VDInConvAdj,"ax" @@ -17233,45 +17442,62 @@ VDOutControl: jsl 0xe10000 rtl -; BeginUpdate(GrafPortPtr) -> void -; tool 0x1E0E, set 0x0E (WindowManager) - .section .text.BeginUpdate,"ax" - .globl BeginUpdate -BeginUpdate: - ; --- stash arg0 (in A/X) --- +; VDInControl(Word, Word) -> void +; tool 0x1C21, set 0x21 (Teletext) + .section .text.VDInControl,"ax" + .globl VDInControl +VDInControl: + ; --- stash arg0 (in A) --- sta 0xE0 - stx 0xE2 ; --- arg0 --- - lda 0xE2 - pha lda 0xE0 pha - ldx #0x1E0E + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1C21 jsl 0xe10000 rtl -; BringToFront(GrafPortPtr) -> void -; tool 0x240E, set 0x0E (WindowManager) - .section .text.BringToFront,"ax" - .globl BringToFront -BringToFront: - ; --- stash arg0 (in A/X) --- +; VDGGControl(Word, Word) -> void +; tool 0x1D21, set 0x21 (Teletext) + .section .text.VDGGControl,"ax" + .globl VDGGControl +VDGGControl: + ; --- stash arg0 (in A) --- sta 0xE0 - stx 0xE2 ; --- arg0 --- - lda 0xE2 - pha lda 0xE0 pha - ldx #0x240E + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1D21 jsl 0xe10000 rtl -; CheckUpdate(EventRecordPtr) -> Boolean -; tool 0x0A0E, set 0x0E (WindowManager) - .section .text.CheckUpdate,"ax" - .globl CheckUpdate -CheckUpdate: +; TEStartUp(Word, Word) -> void +; tool 0x0222, set 0x22 (TextEdit) + .section .text.TEStartUp,"ax" + .globl TEStartUp +TEStartUp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0222 + jsl 0xe10000 + rtl + +; TENew(Pointer) -> Word +; tool 0x0922, set 0x22 (TextEdit) + .section .text.TENew,"ax" + .globl TENew +TENew: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -17282,33 +17508,51 @@ CheckUpdate: pha lda 0xE0 pha - ldx #0x0A0E + ldx #0x0922 jsl 0xe10000 pla ; result -> A rtl -; CloseWindow(GrafPortPtr) -> void -; tool 0x0B0E, set 0x0E (WindowManager) - .section .text.CloseWindow,"ax" - .globl CloseWindow -CloseWindow: - ; --- stash arg0 (in A/X) --- +; TESetText(Word, LongWord, LongWord, Word, LongWord, Word) -> void +; tool 0x0B22, set 0x22 (TextEdit) + .section .text.TESetText,"ax" + .globl TESetText +TESetText: + ; --- stash arg0 (in A) --- sta 0xE0 - stx 0xE2 ; --- arg0 --- - lda 0xE2 - pha lda 0xE0 pha - ldx #0x0B0E + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg3 (Word, 2B) --- + lda 22, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 28, s + pha + lda 28, s + pha + ; --- arg5 (Word, 2B) --- + lda 34, s + pha + ldx #0x0B22 jsl 0xe10000 rtl -; Desktop(Word, LongWord) -> Pointer -; tool 0x0C0E, set 0x0E (WindowManager) - .section .text.Desktop,"ax" - .globl Desktop -Desktop: +; TEGetText(Word, LongWord, LongWord, Word, LongWord, Word) -> LongWord +; tool 0x0C22, set 0x22 (TextEdit) + .section .text.TEGetText,"ax" + .globl TEGetText +TEGetText: ; --- stash arg0 (in A) --- sta 0xE0 ; --- result space (4 bytes) --- @@ -17322,1521 +17566,7 @@ Desktop: pha lda 12, s pha - ldx #0x0C0E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; DragWindow(Word, Integer, Integer, Word, Rect, GrafPortPtr) -> void -; tool 0x1A0E, set 0x0E (WindowManager) - .section .text.DragWindow,"ax" - .globl DragWindow -DragWindow: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (Integer, 2B) --- - lda 10, s - pha - ; --- arg3 (Word, 2B) --- - lda 14, s - pha - ; --- arg4 (Rect, 4B) --- - lda 20, s - pha - lda 20, s - pha - ; --- arg5 (GrafPortPtr, 4B) --- - lda 28, s - pha - lda 28, s - pha - ldx #0x1A0E - jsl 0xe10000 - rtl - -; EndUpdate(GrafPortPtr) -> void -; tool 0x1F0E, set 0x0E (WindowManager) - .section .text.EndUpdate,"ax" - .globl EndUpdate -EndUpdate: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x1F0E - jsl 0xe10000 - rtl - -; FindWindow(GrafPortPtr, Integer, Integer) -> Word -; tool 0x170E, set 0x0E (WindowManager) - .section .text.FindWindow,"ax" - .globl FindWindow -FindWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 10, s - pha - ; --- arg2 (Integer, 2B) --- - lda 14, s - pha - ldx #0x170E - jsl 0xe10000 - pla ; result -> A - rtl - -; FrontWindow(void) -> WindowPtr -; tool 0x150E, set 0x0E (WindowManager) - .section .text.FrontWindow,"ax" - .globl FrontWindow -FrontWindow: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x150E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetContentDraw(GrafPortPtr) -> VoidProcPtr -; tool 0x480E, set 0x0E (WindowManager) - .section .text.GetContentDraw,"ax" - .globl GetContentDraw -GetContentDraw: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x480E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetContentOrigin(GrafPortPtr) -> Long -; tool 0x3E0E, set 0x0E (WindowManager) - .section .text.GetContentOrigin,"ax" - .globl GetContentOrigin -GetContentOrigin: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3E0E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetContentRgn(GrafPortPtr) -> RegionHndl -; tool 0x2F0E, set 0x0E (WindowManager) - .section .text.GetContentRgn,"ax" - .globl GetContentRgn -GetContentRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2F0E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetDataSize(GrafPortPtr) -> LongWord -; tool 0x400E, set 0x0E (WindowManager) - .section .text.GetDataSize,"ax" - .globl GetDataSize -GetDataSize: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x400E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetDefProc(GrafPortPtr) -> LongProcPtr -; tool 0x310E, set 0x0E (WindowManager) - .section .text.GetDefProc,"ax" - .globl GetDefProc -GetDefProc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x310E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetFirstWindow(void) -> WindowPtr -; tool 0x520E, set 0x0E (WindowManager) - .section .text.GetFirstWindow,"ax" - .globl GetFirstWindow -GetFirstWindow: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x520E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetFrameColor(WindColorPtr, GrafPortPtr) -> void -; tool 0x100E, set 0x0E (WindowManager) - .section .text.GetFrameColor,"ax" - .globl GetFrameColor -GetFrameColor: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x100E - jsl 0xe10000 - rtl - -; GetInfoDraw(GrafPortPtr) -> VoidProcPtr -; tool 0x4A0E, set 0x0E (WindowManager) - .section .text.GetInfoDraw,"ax" - .globl GetInfoDraw -GetInfoDraw: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4A0E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetInfoRefCon(GrafPortPtr) -> LongWord -; tool 0x350E, set 0x0E (WindowManager) - .section .text.GetInfoRefCon,"ax" - .globl GetInfoRefCon -GetInfoRefCon: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x350E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetMaxGrow(GrafPortPtr) -> LongWord -; tool 0x420E, set 0x0E (WindowManager) - .section .text.GetMaxGrow,"ax" - .globl GetMaxGrow -GetMaxGrow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x420E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetNextWindow(GrafPortPtr) -> WindowPtr -; tool 0x2A0E, set 0x0E (WindowManager) - .section .text.GetNextWindow,"ax" - .globl GetNextWindow -GetNextWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2A0E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetPage(GrafPortPtr) -> LongWord -; tool 0x460E, set 0x0E (WindowManager) - .section .text.GetPage,"ax" - .globl GetPage -GetPage: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x460E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetRectInfo(Rect, GrafPortPtr) -> void -; tool 0x4F0E, set 0x0E (WindowManager) - .section .text.GetRectInfo,"ax" - .globl GetRectInfo -GetRectInfo: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x4F0E - jsl 0xe10000 - rtl - -; GetScroll(GrafPortPtr) -> LongWord -; tool 0x440E, set 0x0E (WindowManager) - .section .text.GetScroll,"ax" - .globl GetScroll -GetScroll: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x440E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetStructRgn(GrafPortPtr) -> RegionHndl -; tool 0x2E0E, set 0x0E (WindowManager) - .section .text.GetStructRgn,"ax" - .globl GetStructRgn -GetStructRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2E0E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetSysWFlag(GrafPortPtr) -> Boolean -; tool 0x4C0E, set 0x0E (WindowManager) - .section .text.GetSysWFlag,"ax" - .globl GetSysWFlag -GetSysWFlag: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4C0E - jsl 0xe10000 - pla ; result -> A - rtl - -; GetUpdateRgn(GrafPortPtr) -> RegionHndl -; tool 0x300E, set 0x0E (WindowManager) - .section .text.GetUpdateRgn,"ax" - .globl GetUpdateRgn -GetUpdateRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x300E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetWControls(GrafPortPtr) -> CtlRecHndl -; tool 0x330E, set 0x0E (WindowManager) - .section .text.GetWControls,"ax" - .globl GetWControls -GetWControls: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x330E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetWFrame(GrafPortPtr) -> Word -; tool 0x2C0E, set 0x0E (WindowManager) - .section .text.GetWFrame,"ax" - .globl GetWFrame -GetWFrame: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2C0E - jsl 0xe10000 - pla ; result -> A - rtl - -; GetWKind(GrafPortPtr) -> Word -; tool 0x2B0E, set 0x0E (WindowManager) - .section .text.GetWKind,"ax" - .globl GetWKind -GetWKind: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x2B0E - jsl 0xe10000 - pla ; result -> A - rtl - -; GetWMgrPort(void) -> WindowPtr -; tool 0x200E, set 0x0E (WindowManager) - .section .text.GetWMgrPort,"ax" - .globl GetWMgrPort -GetWMgrPort: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x200E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetWRefCon(GrafPortPtr) -> LongWord -; tool 0x290E, set 0x0E (WindowManager) - .section .text.GetWRefCon,"ax" - .globl GetWRefCon -GetWRefCon: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x290E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GetWTitle(GrafPortPtr) -> Pointer -; tool 0x0E0E, set 0x0E (WindowManager) - .section .text.GetWTitle,"ax" - .globl GetWTitle -GetWTitle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x0E0E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; GrowWindow(Word, Word, Integer, Integer, GrafPortPtr) -> LongWord -; tool 0x1B0E, set 0x0E (WindowManager) - .section .text.GrowWindow,"ax" - .globl GrowWindow -GrowWindow: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 10, s - pha - ; --- arg2 (Integer, 2B) --- - lda 14, s - pha - ; --- arg3 (Integer, 2B) --- - lda 18, s - pha - ; --- arg4 (GrafPortPtr, 4B) --- - lda 24, s - pha - lda 24, s - pha - ldx #0x1B0E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; HideWindow(GrafPortPtr) -> void -; tool 0x120E, set 0x0E (WindowManager) - .section .text.HideWindow,"ax" - .globl HideWindow -HideWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x120E - jsl 0xe10000 - rtl - -; HiliteWindow(Boolean, GrafPortPtr) -> void -; tool 0x220E, set 0x0E (WindowManager) - .section .text.HiliteWindow,"ax" - .globl HiliteWindow -HiliteWindow: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x220E - jsl 0xe10000 - rtl - -; InvalRect(Rect) -> void -; tool 0x3A0E, set 0x0E (WindowManager) - .section .text.InvalRect,"ax" - .globl InvalRect -InvalRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3A0E - jsl 0xe10000 - rtl - -; InvalRgn(Handle) -> void -; tool 0x3B0E, set 0x0E (WindowManager) - .section .text.InvalRgn,"ax" - .globl InvalRgn -InvalRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3B0E - jsl 0xe10000 - rtl - -; MoveWindow(Integer, Integer, GrafPortPtr) -> void -; tool 0x190E, set 0x0E (WindowManager) - .section .text.MoveWindow,"ax" - .globl MoveWindow -MoveWindow: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 6, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x190E - jsl 0xe10000 - rtl - -; NewWindow(ParamListPtr) -> WindowPtr -; tool 0x090E, set 0x0E (WindowManager) - .section .text.NewWindow,"ax" - .globl NewWindow -NewWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x090E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; PinRect(Integer, Integer, Rect) -> Point -; tool 0x210E, set 0x0E (WindowManager) - .section .text.PinRect,"ax" - .globl PinRect -PinRect: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 10, s - pha - ; --- arg2 (Rect, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x210E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; RefreshDesktop(Rect) -> void -; tool 0x390E, set 0x0E (WindowManager) - .section .text.RefreshDesktop,"ax" - .globl RefreshDesktop -RefreshDesktop: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x390E - jsl 0xe10000 - rtl - -; SelectWindow(GrafPortPtr) -> void -; tool 0x110E, set 0x0E (WindowManager) - .section .text.SelectWindow,"ax" - .globl SelectWindow -SelectWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x110E - jsl 0xe10000 - rtl - -; SendBehind(GrafPortPtr, GrafPortPtr) -> void -; tool 0x140E, set 0x0E (WindowManager) - .section .text.SendBehind,"ax" - .globl SendBehind -SendBehind: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x140E - jsl 0xe10000 - rtl - -; SetContentDraw(VoidProcPtr, GrafPortPtr) -> void -; tool 0x490E, set 0x0E (WindowManager) - .section .text.SetContentDraw,"ax" - .globl SetContentDraw -SetContentDraw: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x490E - jsl 0xe10000 - rtl - -; SetContentOrigin(Word, Word, GrafPortPtr) -> void -; tool 0x3F0E, set 0x0E (WindowManager) - .section .text.SetContentOrigin,"ax" - .globl SetContentOrigin -SetContentOrigin: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x3F0E - jsl 0xe10000 - rtl - -; SetContentOrigin2(Word, Word, Word, GrafPortPtr) -> void -; tool 0x570E, set 0x0E (WindowManager) - .section .text.SetContentOrigin2,"ax" - .globl SetContentOrigin2 -SetContentOrigin2: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (Word, 2B) --- - lda 10, s - pha - ; --- arg3 (GrafPortPtr, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x570E - jsl 0xe10000 - rtl - -; SetDataSize(Word, Word, GrafPortPtr) -> void -; tool 0x410E, set 0x0E (WindowManager) - .section .text.SetDataSize,"ax" - .globl SetDataSize -SetDataSize: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x410E - jsl 0xe10000 - rtl - -; SetDefProc(LongProcPtr, GrafPortPtr) -> void -; tool 0x320E, set 0x0E (WindowManager) - .section .text.SetDefProc,"ax" - .globl SetDefProc -SetDefProc: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x320E - jsl 0xe10000 - rtl - -; SetFrameColor(WindColorPtr, GrafPortPtr) -> void -; tool 0x0F0E, set 0x0E (WindowManager) - .section .text.SetFrameColor,"ax" - .globl SetFrameColor -SetFrameColor: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0F0E - jsl 0xe10000 - rtl - -; SetInfoDraw(VoidProcPtr, GrafPortPtr) -> void -; tool 0x160E, set 0x0E (WindowManager) - .section .text.SetInfoDraw,"ax" - .globl SetInfoDraw -SetInfoDraw: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x160E - jsl 0xe10000 - rtl - -; SetInfoRefCon(LongWord, GrafPortPtr) -> void -; tool 0x360E, set 0x0E (WindowManager) - .section .text.SetInfoRefCon,"ax" - .globl SetInfoRefCon -SetInfoRefCon: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x360E - jsl 0xe10000 - rtl - -; SetMaxGrow(Word, Word, GrafPortPtr) -> void -; tool 0x430E, set 0x0E (WindowManager) - .section .text.SetMaxGrow,"ax" - .globl SetMaxGrow -SetMaxGrow: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x430E - jsl 0xe10000 - rtl - -; SetOriginMask(Word, GrafPortPtr) -> void -; tool 0x340E, set 0x0E (WindowManager) - .section .text.SetOriginMask,"ax" - .globl SetOriginMask -SetOriginMask: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x340E - jsl 0xe10000 - rtl - -; SetPage(Word, Word, GrafPortPtr) -> void -; tool 0x470E, set 0x0E (WindowManager) - .section .text.SetPage,"ax" - .globl SetPage -SetPage: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x470E - jsl 0xe10000 - rtl - -; SetScroll(Word, Word, GrafPortPtr) -> void -; tool 0x450E, set 0x0E (WindowManager) - .section .text.SetScroll,"ax" - .globl SetScroll -SetScroll: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x450E - jsl 0xe10000 - rtl - -; SetSysWindow(GrafPortPtr) -> void -; tool 0x4B0E, set 0x0E (WindowManager) - .section .text.SetSysWindow,"ax" - .globl SetSysWindow -SetSysWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4B0E - jsl 0xe10000 - rtl - -; SetWFrame(Word, GrafPortPtr) -> void -; tool 0x2D0E, set 0x0E (WindowManager) - .section .text.SetWFrame,"ax" - .globl SetWFrame -SetWFrame: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x2D0E - jsl 0xe10000 - rtl - -; SetWindowIcons(FontHndl) -> FontHndl -; tool 0x4E0E, set 0x0E (WindowManager) - .section .text.SetWindowIcons,"ax" - .globl SetWindowIcons -SetWindowIcons: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4E0E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; SetWRefCon(Longint, GrafPortPtr) -> void -; tool 0x280E, set 0x0E (WindowManager) - .section .text.SetWRefCon,"ax" - .globl SetWRefCon -SetWRefCon: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x280E - jsl 0xe10000 - rtl - -; SetWTitle(Pointer, GrafPortPtr) -> void -; tool 0x0D0E, set 0x0E (WindowManager) - .section .text.SetWTitle,"ax" - .globl SetWTitle -SetWTitle: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x0D0E - jsl 0xe10000 - rtl - -; SetZoomRect(Rect, GrafPortPtr) -> void -; tool 0x380E, set 0x0E (WindowManager) - .section .text.SetZoomRect,"ax" - .globl SetZoomRect -SetZoomRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x380E - jsl 0xe10000 - rtl - -; ShowHide(Boolean, GrafPortPtr) -> void -; tool 0x230E, set 0x0E (WindowManager) - .section .text.ShowHide,"ax" - .globl ShowHide -ShowHide: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s - pha - lda 8, s - pha - ldx #0x230E - jsl 0xe10000 - rtl - -; ShowWindow(GrafPortPtr) -> void -; tool 0x130E, set 0x0E (WindowManager) - .section .text.ShowWindow,"ax" - .globl ShowWindow -ShowWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x130E - jsl 0xe10000 - rtl - -; SizeWindow(Word, Word, GrafPortPtr) -> void -; tool 0x1C0E, set 0x0E (WindowManager) - .section .text.SizeWindow,"ax" - .globl SizeWindow -SizeWindow: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Word, 2B) --- - lda 6, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 12, s - pha - lda 12, s - pha - ldx #0x1C0E - jsl 0xe10000 - rtl - -; StartDrawing(GrafPortPtr) -> void -; tool 0x4D0E, set 0x0E (WindowManager) - .section .text.StartDrawing,"ax" - .globl StartDrawing -StartDrawing: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x4D0E - jsl 0xe10000 - rtl - -; StartInfoDrawing(Rect, GrafPortPtr) -> void -; tool 0x500E, set 0x0E (WindowManager) - .section .text.StartInfoDrawing,"ax" - .globl StartInfoDrawing -StartInfoDrawing: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x500E - jsl 0xe10000 - rtl - -; TaskMaster(Word, WmTaskRecPtr) -> Word -; tool 0x1D0E, set 0x0E (WindowManager) - .section .text.TaskMaster,"ax" - .globl TaskMaster -TaskMaster: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (WmTaskRecPtr, 4B) --- - lda 10, s - pha - lda 10, s - pha - ldx #0x1D0E - jsl 0xe10000 - pla ; result -> A - rtl - -; TrackGoAway(Integer, Integer, GrafPortPtr) -> Boolean -; tool 0x180E, set 0x0E (WindowManager) - .section .text.TrackGoAway,"ax" - .globl TrackGoAway -TrackGoAway: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x180E - jsl 0xe10000 - pla ; result -> A - rtl - -; TrackZoom(Integer, Integer, GrafPortPtr) -> Boolean -; tool 0x260E, set 0x0E (WindowManager) - .section .text.TrackZoom,"ax" - .globl TrackZoom -TrackZoom: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Integer, 2B) --- - lda 8, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ldx #0x260E - jsl 0xe10000 - pla ; result -> A - rtl - -; ValidRect(Rect) -> void -; tool 0x3C0E, set 0x0E (WindowManager) - .section .text.ValidRect,"ax" - .globl ValidRect -ValidRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3C0E - jsl 0xe10000 - rtl - -; ValidRgn(Handle) -> void -; tool 0x3D0E, set 0x0E (WindowManager) - .section .text.ValidRgn,"ax" - .globl ValidRgn -ValidRgn: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x3D0E - jsl 0xe10000 - rtl - -; WindDragRect(VoidProcPtr, Pattern, Integer, Integer, Rect, Rect, Rect, Word) -> LongWord -; tool 0x530E, set 0x0E (WindowManager) - .section .text.WindDragRect,"ax" - .globl WindDragRect -WindDragRect: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Pattern, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg2 (Integer, 2B) --- - lda 20, s - pha - ; --- arg3 (Integer, 2B) --- - lda 24, s - pha - ; --- arg4 (Rect, 4B) --- - lda 30, s - pha - lda 30, s - pha - ; --- arg5 (Rect, 4B) --- - lda 38, s - pha - lda 38, s - pha - ; --- arg6 (Rect, 4B) --- - lda 46, s - pha - lda 46, s - pha - ; --- arg7 (Word, 2B) --- - lda 52, s - pha - ldx #0x530E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ZoomWindow(GrafPortPtr) -> void -; tool 0x270E, set 0x0E (WindowManager) - .section .text.ZoomWindow,"ax" - .globl ZoomWindow -ZoomWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x270E - jsl 0xe10000 - rtl - -; AlertWindow(Word, Pointer, Ref) -> Word -; tool 0x590E, set 0x0E (WindowManager) - .section .text.AlertWindow,"ax" - .globl AlertWindow -AlertWindow: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 10, s - pha - lda 10, s - pha - ; --- arg2 (Ref, 4B) --- - lda 18, s - pha - lda 18, s - pha - ldx #0x590E - jsl 0xe10000 - pla ; result -> A - rtl - -; CompileText(Word, Pointer, Pointer, Word) -> Handle -; tool 0x600E, set 0x0E (WindowManager) - .section .text.CompileText,"ax" - .globl CompileText -CompileText: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Pointer, 4B) --- - lda 12, s - pha - lda 12, s - pha - ; --- arg2 (Pointer, 4B) --- + ; --- arg2 (LongWord, 4B) --- lda 20, s pha lda 20, s @@ -18844,17 +17574,25 @@ CompileText: ; --- arg3 (Word, 2B) --- lda 26, s pha - ldx #0x600E + ; --- arg4 (LongWord, 4B) --- + lda 32, s + pha + lda 32, s + pha + ; --- arg5 (Word, 2B) --- + lda 38, s + pha + ldx #0x0C22 jsl 0xe10000 pla ; result lo -> A plx ; result hi -> X rtl -; DrawInfoBar(GrafPortPtr) -> void -; tool 0x550E, set 0x0E (WindowManager) - .section .text.DrawInfoBar,"ax" - .globl DrawInfoBar -DrawInfoBar: +; TEGetTextInfo(Pointer, Word, Word) -> void +; tool 0x0D22, set 0x22 (TextEdit) + .section .text.TEGetTextInfo,"ax" + .globl TEGetTextInfo +TEGetTextInfo: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -18863,20 +17601,175 @@ DrawInfoBar: pha lda 0xE0 pha - ldx #0x550E + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 12, s + pha + ldx #0x0D22 jsl 0xe10000 rtl -; ErrorWindow(Word, Pointer, Word) -> Word -; tool 0x620E, set 0x0E (WindowManager) - .section .text.ErrorWindow,"ax" - .globl ErrorWindow -ErrorWindow: - ; --- stash arg0 (in A) --- +; TEClick(Pointer, Word) -> void +; tool 0x1122, set 0x22 (TextEdit) + .section .text.TEClick,"ax" + .globl TEClick +TEClick: + ; --- stash arg0 (in A/X) --- sta 0xE0 - ; --- result space (2 bytes) --- + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1122 + jsl 0xe10000 + rtl + +; TEPaintText(Pointer, LongWord, Pointer, Word, Word) -> LongWord +; tool 0x1322, set 0x22 (TextEdit) + .section .text.TEPaintText,"ax" + .globl TEPaintText +TEPaintText: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 pea 0 ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 22, s + pha + lda 22, s + pha + ; --- arg3 (Word, 2B) --- + lda 28, s + pha + ; --- arg4 (Word, 2B) --- + lda 32, s + pha + ldx #0x1322 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; TEKey(Pointer, Word) -> void +; tool 0x1422, set 0x22 (TextEdit) + .section .text.TEKey,"ax" + .globl TEKey +TEKey: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1422 + jsl 0xe10000 + rtl + +; TEInsert(Word, LongWord, LongWord, Word, LongWord, Word) -> void +; tool 0x1A22, set 0x22 (TextEdit) + .section .text.TEInsert,"ax" + .globl TEInsert +TEInsert: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg3 (Word, 2B) --- + lda 22, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 28, s + pha + lda 28, s + pha + ; --- arg5 (Word, 2B) --- + lda 34, s + pha + ldx #0x1A22 + jsl 0xe10000 + rtl + +; TEReplace(Word, LongWord, LongWord, Word, LongWord, Word) -> void +; tool 0x1B22, set 0x22 (TextEdit) + .section .text.TEReplace,"ax" + .globl TEReplace +TEReplace: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ; --- arg3 (Word, 2B) --- + lda 22, s + pha + ; --- arg4 (LongWord, 4B) --- + lda 28, s + pha + lda 28, s + pha + ; --- arg5 (Word, 2B) --- + lda 34, s + pha + ldx #0x1B22 + jsl 0xe10000 + rtl + +; TEGetSelection(Pointer, Pointer, Word) -> void +; tool 0x1C22, set 0x22 (TextEdit) + .section .text.TEGetSelection,"ax" + .globl TEGetSelection +TEGetSelection: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha lda 0xE0 pha ; --- arg1 (Pointer, 4B) --- @@ -18887,102 +17780,15 @@ ErrorWindow: ; --- arg2 (Word, 2B) --- lda 16, s pha - ldx #0x620E - jsl 0xe10000 - pla ; result -> A - rtl - -; GetWindowMgrGlobals(void) -> Ptr -; tool 0x580E, set 0x0E (WindowManager) - .section .text.GetWindowMgrGlobals,"ax" - .globl GetWindowMgrGlobals -GetWindowMgrGlobals: - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ldx #0x580E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; NewWindow2(Pointer, Long, VoidProcPtr, LongProcPtr, Word, Ref, Word) -> WindowPtr -; tool 0x610E, set 0x0E (WindowManager) - .section .text.NewWindow2,"ax" - .globl NewWindow2 -NewWindow2: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (Long, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg2 (VoidProcPtr, 4B) --- - lda 22, s - pha - lda 22, s - pha - ; --- arg3 (LongProcPtr, 4B) --- - lda 30, s - pha - lda 30, s - pha - ; --- arg4 (Word, 2B) --- - lda 36, s - pha - ; --- arg5 (Ref, 4B) --- - lda 42, s - pha - lda 42, s - pha - ; --- arg6 (Word, 2B) --- - lda 48, s - pha - ldx #0x610E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; ResizeWindow(Boolean, Rect, GrafPortPtr) -> void -; tool 0x5C0E, set 0x0E (WindowManager) - .section .text.ResizeWindow,"ax" - .globl ResizeWindow -ResizeWindow: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (Rect, 4B) --- - lda 8, s - pha - lda 8, s - pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 16, s - pha - lda 16, s - pha - ldx #0x5C0E + ldx #0x1C22 jsl 0xe10000 rtl -; StartFrameDrawing(GrafPortPtr) -> void -; tool 0x5A0E, set 0x0E (WindowManager) - .section .text.StartFrameDrawing,"ax" - .globl StartFrameDrawing -StartFrameDrawing: +; TESetSelection(LongWord, LongWord, Word) -> void +; tool 0x1D22, set 0x22 (TextEdit) + .section .text.TESetSelection,"ax" + .globl TESetSelection +TESetSelection: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -18991,77 +17797,23 @@ StartFrameDrawing: pha lda 0xE0 pha - ldx #0x5A0E - jsl 0xe10000 - rtl - -; TaskMasterDA(Word, WmTaskRecPtr) -> Word -; tool 0x5F0E, set 0x0E (WindowManager) - .section .text.TaskMasterDA,"ax" - .globl TaskMasterDA -TaskMasterDA: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (2 bytes) --- - pea 0 - ; --- arg0 --- - lda 0xE0 - pha - ; --- arg1 (WmTaskRecPtr, 4B) --- + ; --- arg1 (LongWord, 4B) --- lda 10, s pha lda 10, s pha - ldx #0x5F0E + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x1D22 jsl 0xe10000 - pla ; result -> A rtl -; DoModalWindow(EventRecordPtr, VoidProcPtr, VoidProcPtr, VoidProcPtr, Word) -> LongWord -; tool 0x640E, set 0x0E (WindowManager) - .section .text.DoModalWindow,"ax" - .globl DoModalWindow -DoModalWindow: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ; --- arg1 (VoidProcPtr, 4B) --- - lda 14, s - pha - lda 14, s - pha - ; --- arg2 (VoidProcPtr, 4B) --- - lda 22, s - pha - lda 22, s - pha - ; --- arg3 (VoidProcPtr, 4B) --- - lda 30, s - pha - lda 30, s - pha - ; --- arg4 (Word, 2B) --- - lda 36, s - pha - ldx #0x640E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; FindCursorCtl(CtlRecHndlPtr, Integer, Integer, GrafPortPtr) -> Word -; tool 0x690E, set 0x0E (WindowManager) - .section .text.FindCursorCtl,"ax" - .globl FindCursorCtl -FindCursorCtl: +; TEGetSelectionStyle(Pointer, Word, Word) -> Word +; tool 0x1E22, set 0x22 (TextEdit) + .section .text.TEGetSelectionStyle,"ax" + .globl TEGetSelectionStyle +TEGetSelectionStyle: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -19072,71 +17824,74 @@ FindCursorCtl: pha lda 0xE0 pha - ; --- arg1 (Integer, 2B) --- - lda 10, s - pha - ; --- arg2 (Integer, 2B) --- - lda 14, s - pha - ; --- arg3 (GrafPortPtr, 4B) --- - lda 20, s - pha - lda 20, s - pha - ldx #0x690E - jsl 0xe10000 - pla ; result -> A - rtl - -; GetAuxWindInfo(GrafPortPtr) -> AuxWindInfoPtr -; tool 0x630E, set 0x0E (WindowManager) - .section .text.GetAuxWindInfo,"ax" - .globl GetAuxWindInfo -GetAuxWindInfo: - ; --- stash arg0 (in A/X) --- - sta 0xE0 - stx 0xE2 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE2 - pha - lda 0xE0 - pha - ldx #0x630E - jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X - rtl - -; HandleDiskInsert(Word, Word) -> LongWord -; tool 0x6B0E, set 0x0E (WindowManager) - .section .text.HandleDiskInsert,"ax" - .globl HandleDiskInsert -HandleDiskInsert: - ; --- stash arg0 (in A) --- - sta 0xE0 - ; --- result space (4 bytes) --- - pea 0 - pea 0 - ; --- arg0 --- - lda 0xE0 - pha ; --- arg1 (Word, 2B) --- lda 10, s pha - ldx #0x6B0E + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x1E22 jsl 0xe10000 - pla ; result lo -> A - plx ; result hi -> X + pla ; result -> A rtl -; MWSetMenuProc(VoidProcPtr) -> VoidProcPtr -; tool 0x660E, set 0x0E (WindowManager) - .section .text.MWSetMenuProc,"ax" - .globl MWSetMenuProc -MWSetMenuProc: +; TEStyleChange(Word, Pointer, Word) -> void +; tool 0x1F22, set 0x22 (TextEdit) + .section .text.TEStyleChange,"ax" + .globl TEStyleChange +TEStyleChange: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x1F22 + jsl 0xe10000 + rtl + +; TEOffsetToPoint(LongWord, Pointer, Pointer, Word) -> void +; tool 0x2022, set 0x22 (TextEdit) + .section .text.TEOffsetToPoint,"ax" + .globl TEOffsetToPoint +TEOffsetToPoint: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ; --- arg3 (Word, 2B) --- + lda 24, s + pha + ldx #0x2022 + jsl 0xe10000 + rtl + +; TEPointToOffset(LongWord, LongWord, Word) -> LongWord +; tool 0x2122, set 0x22 (TextEdit) + .section .text.TEPointToOffset,"ax" + .globl TEPointToOffset +TEPointToOffset: ; --- stash arg0 (in A/X) --- sta 0xE0 stx 0xE2 @@ -19148,39 +17903,149 @@ MWSetMenuProc: pha lda 0xE0 pha - ldx #0x660E + ; --- arg1 (LongWord, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg2 (Word, 2B) --- + lda 20, s + pha + ldx #0x2122 jsl 0xe10000 pla ; result lo -> A plx ; result hi -> X rtl -; SetMenuProc(VoidProcPtr) -> VoidProcPtr -; tool 0x660E, set 0x0E (WindowManager) - .section .text.SetMenuProc,"ax" - .globl SetMenuProc -SetMenuProc: - ; --- stash arg0 (in A/X) --- +; TEGetDefProc(void) -> Pointer +; tool 0x2222, set 0x22 (TextEdit) + .section .text.TEGetDefProc,"ax" + .globl TEGetDefProc +TEGetDefProc: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2222 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; TEGetRuler(Word, LongWord, Word) -> void +; tool 0x2322, set 0x22 (TextEdit) + .section .text.TEGetRuler,"ax" + .globl TEGetRuler +TEGetRuler: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x2322 + jsl 0xe10000 + rtl + +; TESetRuler(Word, LongWord, Word) -> void +; tool 0x2422, set 0x22 (TextEdit) + .section .text.TESetRuler,"ax" + .globl TESetRuler +TESetRuler: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x2422 + jsl 0xe10000 + rtl + +; TEScroll(Word, LongWord, LongWord, Word) -> LongWord +; tool 0x2522, set 0x22 (TextEdit) + .section .text.TEScroll,"ax" + .globl TEScroll +TEScroll: + ; --- stash arg0 (in A) --- sta 0xE0 - stx 0xE2 ; --- result space (4 bytes) --- pea 0 pea 0 ; --- arg0 --- - lda 0xE2 - pha lda 0xE0 pha - ldx #0x660E + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 20, s + pha + lda 20, s + pha + ; --- arg3 (Word, 2B) --- + lda 26, s + pha + ldx #0x2522 jsl 0xe10000 pla ; result lo -> A plx ; result hi -> X rtl -; ResizeInfoBar(Word, Word, GrafPortPtr) -> void -; tool 0x6A0E, set 0x0E (WindowManager) - .section .text.ResizeInfoBar,"ax" - .globl ResizeInfoBar -ResizeInfoBar: +; TEGetInternalProc(void) -> Pointer +; tool 0x2622, set 0x22 (TextEdit) + .section .text.TEGetInternalProc,"ax" + .globl TEGetInternalProc +TEGetInternalProc: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x2622 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; TEGetLastError(Word, Word) -> Word +; tool 0x2722, set 0x22 (TextEdit) + .section .text.TEGetLastError,"ax" + .globl TEGetLastError +TEGetLastError: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x2722 + jsl 0xe10000 + pla ; result -> A + rtl + +; PlayNote(Word, Word, Word) -> void +; tool 0x0B23, set 0x23 (MediaControl) + .section .text.PlayNote,"ax" + .globl PlayNote +PlayNote: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- @@ -19189,30 +18054,1638 @@ ResizeInfoBar: ; --- arg1 (Word, 2B) --- lda 6, s pha - ; --- arg2 (GrafPortPtr, 4B) --- - lda 12, s + ; --- arg2 (Word, 2B) --- + lda 10, s pha - lda 12, s - pha - ldx #0x6A0E + ldx #0x0B23 jsl 0xe10000 rtl -; UpdateWindow(Word, GrafPortPtr) -> void -; tool 0x6C0E, set 0x0E (WindowManager) - .section .text.UpdateWindow,"ax" - .globl UpdateWindow -UpdateWindow: +; StopNote(Word, Word) -> void +; tool 0x0C23, set 0x23 (MediaControl) + .section .text.StopNote,"ax" + .globl StopNote +StopNote: ; --- stash arg0 (in A) --- sta 0xE0 ; --- arg0 --- lda 0xE0 pha - ; --- arg1 (GrafPortPtr, 4B) --- - lda 8, s + ; --- arg1 (Word, 2B) --- + lda 6, s pha - lda 8, s - pha - ldx #0x6C0E + ldx #0x0C23 + jsl 0xe10000 + rtl + +; SetPlayTrack(Word, Word) -> void +; tool 0x0F23, set 0x23 (MediaControl) + .section .text.SetPlayTrack,"ax" + .globl SetPlayTrack +SetPlayTrack: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x0F23 + jsl 0xe10000 + rtl + +; TrackToChannel(Word, Word) -> void +; tool 0x1023, set 0x23 (MediaControl) + .section .text.TrackToChannel,"ax" + .globl TrackToChannel +TrackToChannel: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1023 + jsl 0xe10000 + rtl + +; Locate(LongWord, Pointer) -> Pointer +; tool 0x1123, set 0x23 (MediaControl) + .section .text.Locate,"ax" + .globl Locate +Locate: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x1123 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetMIDIPort(Word, Word) -> void +; tool 0x1323, set 0x23 (MediaControl) + .section .text.SetMIDIPort,"ax" + .globl SetMIDIPort +SetMIDIPort: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1323 + jsl 0xe10000 + rtl + +; SetInstrument(Pointer, Word) -> void +; tool 0x1423, set 0x23 (MediaControl) + .section .text.SetInstrument,"ax" + .globl SetInstrument +SetInstrument: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1423 + jsl 0xe10000 + rtl + +; SeqPlayer(Pointer) -> void +; tool 0x1523, set 0x23 (MediaControl) + .section .text.SeqPlayer,"ax" + .globl SeqPlayer +SeqPlayer: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1523 + jsl 0xe10000 + rtl + +; SetCallBack(Pointer) -> void +; tool 0x1723, set 0x23 (MediaControl) + .section .text.SetCallBack,"ax" + .globl SetCallBack +SetCallBack: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1723 + jsl 0xe10000 + rtl + +; SysExOut(Pointer, Word, Pointer) -> void +; tool 0x1823, set 0x23 (MediaControl) + .section .text.SysExOut,"ax" + .globl SysExOut +SysExOut: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x1823 + jsl 0xe10000 + rtl + +; MIDIMessage(Word, Word, Word, Word, Word) -> void +; tool 0x1A23, set 0x23 (MediaControl) + .section .text.MIDIMessage,"ax" + .globl MIDIMessage +MIDIMessage: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ; --- arg4 (Word, 2B) --- + lda 18, s + pha + ldx #0x1A23 + jsl 0xe10000 + rtl + +; LocateEnd(Pointer) -> Pointer +; tool 0x1B23, set 0x23 (MediaControl) + .section .text.LocateEnd,"ax" + .globl LocateEnd +LocateEnd: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1B23 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; Merge(Pointer, Pointer) -> void +; tool 0x1C23, set 0x23 (MediaControl) + .section .text.Merge,"ax" + .globl Merge +Merge: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1C23 + jsl 0xe10000 + rtl + +; DeleteTrack(Word, Pointer) -> void +; tool 0x1D23, set 0x23 (MediaControl) + .section .text.DeleteTrack,"ax" + .globl DeleteTrack +DeleteTrack: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1D23 + jsl 0xe10000 + rtl + +; SetMetro(Word, Word, Pointer) -> void +; tool 0x1E23, set 0x23 (MediaControl) + .section .text.SetMetro,"ax" + .globl SetMetro +SetMetro: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1E23 + jsl 0xe10000 + rtl + +; GetMSData(void) -> 8B +; tool 0x1F23, set 0x23 (MediaControl) + .section .text.GetMSData,"ax" + .globl GetMSData +GetMSData: + ; --- result space (8 bytes) --- + pea 0 + pea 0 + pea 0 + pea 0 + ldx #0x1F23 + jsl 0xe10000 + pla + pla + pla + pla + rtl + +; ConvertToTime(Word, Word, Word, Word) -> LongWord +; tool 0x2023, set 0x23 (MediaControl) + .section .text.ConvertToTime,"ax" + .globl ConvertToTime +ConvertToTime: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ldx #0x2023 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; ConvertToMeasure(Word, Word, LongWord) -> Pointer +; tool 0x2123, set 0x23 (MediaControl) + .section .text.ConvertToMeasure,"ax" + .globl ConvertToMeasure +ConvertToMeasure: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x2123 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetTuningTable(Pointer) -> void +; tool 0x2423, set 0x23 (MediaControl) + .section .text.SetTuningTable,"ax" + .globl SetTuningTable +SetTuningTable: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2423 + jsl 0xe10000 + rtl + +; GetTuningTable(Pointer) -> void +; tool 0x2523, set 0x23 (MediaControl) + .section .text.GetTuningTable,"ax" + .globl GetTuningTable +GetTuningTable: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x2523 + jsl 0xe10000 + rtl + +; SetTrackOut(Word, Word) -> void +; tool 0x2623, set 0x23 (MediaControl) + .section .text.SetTrackOut,"ax" + .globl SetTrackOut +SetTrackOut: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2623 + jsl 0xe10000 + rtl + +; InitMIDIDriver(Word, Word, Word, Pointer) -> void +; tool 0x2723, set 0x23 (MediaControl) + .section .text.InitMIDIDriver,"ax" + .globl InitMIDIDriver +InitMIDIDriver: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x2723 + jsl 0xe10000 + rtl + +; MCGetErrorMsg(Word, Pointer) -> void +; tool 0x0926, set 0x26 (?) + .section .text.MCGetErrorMsg,"ax" + .globl MCGetErrorMsg +MCGetErrorMsg: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x0926 + jsl 0xe10000 + rtl + +; MCTimeToBin(LongWord) -> LongWord +; tool 0x0C26, set 0x26 (?) + .section .text.MCTimeToBin,"ax" + .globl MCTimeToBin +MCTimeToBin: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0C26 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MCBinToTime(LongWord) -> LongWord +; tool 0x0D26, set 0x26 (?) + .section .text.MCBinToTime,"ax" + .globl MCBinToTime +MCBinToTime: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0D26 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MCGetTrackTitle(LongWord, Word, Pointer) -> void +; tool 0x0E26, set 0x26 (?) + .section .text.MCGetTrackTitle,"ax" + .globl MCGetTrackTitle +MCGetTrackTitle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x0E26 + jsl 0xe10000 + rtl + +; MCSetTrackTitle(LongWord, Word, Pointer) -> void +; tool 0x0F26, set 0x26 (?) + .section .text.MCSetTrackTitle,"ax" + .globl MCSetTrackTitle +MCSetTrackTitle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x0F26 + jsl 0xe10000 + rtl + +; MCGetProgram(LongWord, Pointer) -> void +; tool 0x1026, set 0x26 (?) + .section .text.MCGetProgram,"ax" + .globl MCGetProgram +MCGetProgram: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1026 + jsl 0xe10000 + rtl + +; MCSetProgram(LongWord, Pointer) -> void +; tool 0x1126, set 0x26 (?) + .section .text.MCSetProgram,"ax" + .globl MCSetProgram +MCSetProgram: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1126 + jsl 0xe10000 + rtl + +; MCGetDiscTitle(LongWord, Pointer) -> void +; tool 0x1226, set 0x26 (?) + .section .text.MCGetDiscTitle,"ax" + .globl MCGetDiscTitle +MCGetDiscTitle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1226 + jsl 0xe10000 + rtl + +; MCSetDiscTitle(LongWord, Pointer) -> void +; tool 0x1326, set 0x26 (?) + .section .text.MCSetDiscTitle,"ax" + .globl MCSetDiscTitle +MCSetDiscTitle: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x1326 + jsl 0xe10000 + rtl + +; MCDStartUp(Word, Pointer, Word) -> void +; tool 0x1426, set 0x26 (?) + .section .text.MCDStartUp,"ax" + .globl MCDStartUp +MCDStartUp: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ldx #0x1426 + jsl 0xe10000 + rtl + +; MCGetFeatures(Word, Word) -> LongWord +; tool 0x1626, set 0x26 (?) + .section .text.MCGetFeatures,"ax" + .globl MCGetFeatures +MCGetFeatures: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x1626 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MCSendRawData(Word, Pointer) -> void +; tool 0x1926, set 0x26 (?) + .section .text.MCSendRawData,"ax" + .globl MCSendRawData +MCSendRawData: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1926 + jsl 0xe10000 + rtl + +; MCGetStatus(Word, Word) -> Word +; tool 0x1A26, set 0x26 (?) + .section .text.MCGetStatus,"ax" + .globl MCGetStatus +MCGetStatus: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 8, s + pha + ldx #0x1A26 + jsl 0xe10000 + pla ; result -> A + rtl + +; MCControl(Word, Word) -> void +; tool 0x1B26, set 0x26 (?) + .section .text.MCControl,"ax" + .globl MCControl +MCControl: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1B26 + jsl 0xe10000 + rtl + +; MCScan(Word, Word) -> void +; tool 0x1C26, set 0x26 (?) + .section .text.MCScan,"ax" + .globl MCScan +MCScan: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1C26 + jsl 0xe10000 + rtl + +; MCGetSpeeds(Word, Pointer) -> void +; tool 0x1D26, set 0x26 (?) + .section .text.MCGetSpeeds,"ax" + .globl MCGetSpeeds +MCGetSpeeds: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x1D26 + jsl 0xe10000 + rtl + +; MCSpeed(Word, Word) -> void +; tool 0x1E26, set 0x26 (?) + .section .text.MCSpeed,"ax" + .globl MCSpeed +MCSpeed: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x1E26 + jsl 0xe10000 + rtl + +; MCStopAt(Word, Word, LongWord) -> void +; tool 0x1F26, set 0x26 (?) + .section .text.MCStopAt,"ax" + .globl MCStopAt +MCStopAt: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1F26 + jsl 0xe10000 + rtl + +; MCJog(Word, Word, LongWord, Word) -> void +; tool 0x2026, set 0x26 (?) + .section .text.MCJog,"ax" + .globl MCJog +MCJog: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ldx #0x2026 + jsl 0xe10000 + rtl + +; MCSearchTo(Word, Word, LongWord) -> void +; tool 0x2126, set 0x26 (?) + .section .text.MCSearchTo,"ax" + .globl MCSearchTo +MCSearchTo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x2126 + jsl 0xe10000 + rtl + +; MCGetPosition(Word, Word) -> LongWord +; tool 0x2426, set 0x26 (?) + .section .text.MCGetPosition,"ax" + .globl MCGetPosition +MCGetPosition: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x2426 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MCSetAudio(Word, Word) -> void +; tool 0x2526, set 0x26 (?) + .section .text.MCSetAudio,"ax" + .globl MCSetAudio +MCSetAudio: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x2526 + jsl 0xe10000 + rtl + +; MCGetTimes(Word, Word) -> LongWord +; tool 0x2626, set 0x26 (?) + .section .text.MCGetTimes,"ax" + .globl MCGetTimes +MCGetTimes: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x2626 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MCGetDiscTOC(Word, Word) -> LongWord +; tool 0x2726, set 0x26 (?) + .section .text.MCGetDiscTOC,"ax" + .globl MCGetDiscTOC +MCGetDiscTOC: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ldx #0x2726 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MCGetDiscID(Word) -> LongWord +; tool 0x2826, set 0x26 (?) + .section .text.MCGetDiscID,"ax" + .globl MCGetDiscID +MCGetDiscID: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x2826 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; MCWaitRawData(Word, Pointer, Word, Word) -> void +; tool 0x2C26, set 0x26 (?) + .section .text.MCWaitRawData,"ax" + .globl MCWaitRawData +MCWaitRawData: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Word, 2B) --- + lda 18, s + pha + ldx #0x2C26 + jsl 0xe10000 + rtl + +; MCGetName(Word, Pointer) -> void +; tool 0x2D26, set 0x26 (?) + .section .text.MCGetName,"ax" + .globl MCGetName +MCGetName: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 8, s + pha + lda 8, s + pha + ldx #0x2D26 + jsl 0xe10000 + rtl + +; MCSetVolume(Word, Word, Word) -> void +; tool 0x2E26, set 0x26 (?) + .section .text.MCSetVolume,"ax" + .globl MCSetVolume +MCSetVolume: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ldx #0x2E26 + jsl 0xe10000 + rtl + +; MaleSpeak(Word, Word, Word, Pointer) -> void +; tool 0x0932, set 0x32 (MediaControl2) + .section .text.MaleSpeak,"ax" + .globl MaleSpeak +MaleSpeak: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x0932 + jsl 0xe10000 + rtl + +; FemaleSpeak(Word, Word, Word, Pointer) -> void +; tool 0x0933, set 0x33 (?) + .section .text.FemaleSpeak,"ax" + .globl FemaleSpeak +FemaleSpeak: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 16, s + pha + lda 16, s + pha + ldx #0x0933 + jsl 0xe10000 + rtl + +; Parse(Pointer, Pointer, Word) -> void +; tool 0x0934, set 0x34 (?) + .section .text.Parse,"ax" + .globl Parse +Parse: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x0934 + jsl 0xe10000 + rtl + +; DictInsert(Pointer, Pointer) -> void +; tool 0x0A34, set 0x34 (?) + .section .text.DictInsert,"ax" + .globl DictInsert +DictInsert: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 10, s + pha + lda 10, s + pha + ldx #0x0A34 + jsl 0xe10000 + rtl + +; DictDelete(Pointer) -> void +; tool 0x0B34, set 0x34 (?) + .section .text.DictDelete,"ax" + .globl DictDelete +DictDelete: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0B34 + jsl 0xe10000 + rtl + +; DictDump(Pointer, Pointer) -> Pointer +; tool 0x0C34, set 0x34 (?) + .section .text.DictDump,"ax" + .globl DictDump +DictDump: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ldx #0x0C34 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; SetSayGlobals(Word, Word, Word, Word, Word) -> void +; tool 0x0D34, set 0x34 (?) + .section .text.SetSayGlobals,"ax" + .globl SetSayGlobals +SetSayGlobals: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ; --- arg2 (Word, 2B) --- + lda 10, s + pha + ; --- arg3 (Word, 2B) --- + lda 14, s + pha + ; --- arg4 (Word, 2B) --- + lda 18, s + pha + ldx #0x0D34 + jsl 0xe10000 + rtl + +; Say(Pointer) -> void +; tool 0x0F34, set 0x34 (?) + .section .text.Say,"ax" + .globl Say +Say: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0F34 + jsl 0xe10000 + rtl + +; DebugStr(Pointer) -> void +; tool 0x09FF, set 0xFF (?) + .section .text.DebugStr,"ax" + .globl DebugStr +DebugStr: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x09FF + jsl 0xe10000 + rtl + +; SetMileStone(Pointer) -> void +; tool 0x0AFF, set 0xFF (?) + .section .text.SetMileStone,"ax" + .globl SetMileStone +SetMileStone: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0AFF + jsl 0xe10000 + rtl + +; DebugSetHook(Pointer) -> void +; tool 0x0BFF, set 0xFF (?) + .section .text.DebugSetHook,"ax" + .globl DebugSetHook +DebugSetHook: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0BFF + jsl 0xe10000 + rtl + +; DebugGetInfo(Word) -> LongWord +; tool 0x0CFF, set 0xFF (?) + .section .text.DebugGetInfo,"ax" + .globl DebugGetInfo +DebugGetInfo: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE0 + pha + ldx #0x0CFF + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; DebugControl(LongWord, LongWord, Word, Word) -> void +; tool 0x0DFF, set 0xFF (?) + .section .text.DebugControl,"ax" + .globl DebugControl +DebugControl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ; --- arg3 (Word, 2B) --- + lda 20, s + pha + ldx #0x0DFF + jsl 0xe10000 + rtl + +; DebugQuery(LongWord, Word, Word) -> LongWord +; tool 0x0EFF, set 0xFF (?) + .section .text.DebugQuery,"ax" + .globl DebugQuery +DebugQuery: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x0EFF + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; fakeModalDialog(Pointer, Pointer, Pointer, Pointer, Word) -> LongWord +; tool 0x0901, set 0x01 (ToolLocator) + .section .text.fakeModalDialog,"ax" + .globl fakeModalDialog +fakeModalDialog: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Pointer, 4B) --- + lda 14, s + pha + lda 14, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 22, s + pha + lda 22, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 30, s + pha + lda 30, s + pha + ; --- arg4 (Word, 2B) --- + lda 36, s + pha + ldx #0x0901 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; fmdSetMenuProc(Pointer) -> void +; tool 0x0A01, set 0x01 (ToolLocator) + .section .text.fmdSetMenuProc,"ax" + .globl fmdSetMenuProc +fmdSetMenuProc: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0A01 + jsl 0xe10000 + rtl + +; fmdGetMenuProc(void) -> Pointer +; tool 0x0B01, set 0x01 (ToolLocator) + .section .text.fmdGetMenuProc,"ax" + .globl fmdGetMenuProc +fmdGetMenuProc: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x0B01 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; fmdFindCursorCtl(Pointer, Word, Word, Pointer) -> Word +; tool 0x0E01, set 0x01 (ToolLocator) + .section .text.fmdFindCursorCtl,"ax" + .globl fmdFindCursorCtl +fmdFindCursorCtl: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 10, s + pha + ; --- arg2 (Word, 2B) --- + lda 14, s + pha + ; --- arg3 (Pointer, 4B) --- + lda 20, s + pha + lda 20, s + pha + ldx #0x0E01 + jsl 0xe10000 + pla ; result -> A + rtl + +; fmdLESetText(Pointer, LongWord, Pointer) -> void +; tool 0x0F01, set 0x01 (ToolLocator) + .section .text.fmdLESetText,"ax" + .globl fmdLESetText +fmdLESetText: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x0F01 + jsl 0xe10000 + rtl + +; fmdLEGetText(Pointer, LongWord, Pointer) -> void +; tool 0x1001, set 0x01 (ToolLocator) + .section .text.fmdLEGetText,"ax" + .globl fmdLEGetText +fmdLEGetText: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 10, s + pha + lda 10, s + pha + ; --- arg2 (Pointer, 4B) --- + lda 18, s + pha + lda 18, s + pha + ldx #0x1001 + jsl 0xe10000 + rtl + +; fmdWhichRadio(Pointer, LongWord) -> Word +; tool 0x1101, set 0x01 (ToolLocator) + .section .text.fmdWhichRadio,"ax" + .globl fmdWhichRadio +fmdWhichRadio: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (2 bytes) --- + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (LongWord, 4B) --- + lda 12, s + pha + lda 12, s + pha + ldx #0x1101 + jsl 0xe10000 + pla ; result -> A + rtl + +; fmdSetIBeam(Pointer) -> void +; tool 0x1401, set 0x01 (ToolLocator) + .section .text.fmdSetIBeam,"ax" + .globl fmdSetIBeam +fmdSetIBeam: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x1401 + jsl 0xe10000 + rtl + +; fmdGetIBeamAdr(void) -> Pointer +; tool 0x1501, set 0x01 (ToolLocator) + .section .text.fmdGetIBeamAdr,"ax" + .globl fmdGetIBeamAdr +fmdGetIBeamAdr: + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ldx #0x1501 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; pixelMap2Rgn(Pointer, Word, Word) -> Pointer +; tool 0x0902, set 0x02 (MemoryManager) + .section .text.pixelMap2Rgn,"ax" + .globl pixelMap2Rgn +pixelMap2Rgn: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 12, s + pha + ; --- arg2 (Word, 2B) --- + lda 16, s + pha + ldx #0x0902 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; newPort(Pointer) -> Pointer +; tool 0x0A02, set 0x02 (MemoryManager) + .section .text.newPort,"ax" + .globl newPort +newPort: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- result space (4 bytes) --- + pea 0 + pea 0 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0A02 + jsl 0xe10000 + pla ; result lo -> A + plx ; result hi -> X + rtl + +; killPort(Pointer) -> void +; tool 0x0B02, set 0x02 (MemoryManager) + .section .text.killPort,"ax" + .globl killPort +killPort: + ; --- stash arg0 (in A/X) --- + sta 0xE0 + stx 0xE2 + ; --- arg0 --- + lda 0xE2 + pha + lda 0xE0 + pha + ldx #0x0B02 + jsl 0xe10000 + rtl + +; OS_KIND(Word, Word) -> void +; tool 0x00BC, set 0xBC (?) + .section .text.OS_KIND,"ax" + .globl OS_KIND +OS_KIND: + ; --- stash arg0 (in A) --- + sta 0xE0 + ; --- arg0 --- + lda 0xE0 + pha + ; --- arg1 (Word, 2B) --- + lda 6, s + pha + ldx #0x00BC jsl 0xe10000 rtl diff --git a/runtime/src/iigsToolboxExtra.s b/runtime/src/iigsToolboxExtra.s new file mode 100644 index 0000000..e002d37 --- /dev/null +++ b/runtime/src/iigsToolboxExtra.s @@ -0,0 +1,56 @@ +; iigsToolboxExtra.s — hand-written toolbox wrappers that don't fit the +; standard genToolbox.py shape and therefore aren't auto-generated. +; Anything in this file is preserved across regenerations of +; iigsToolbox.s. +; +; Keep it small. Each wrapper should justify its custom existence in +; the leading comment block (typically: struct-returning toolbox call +; whose Pascal-on-stack result needs explicit memcpy into a caller +; buffer). + + .text + +; iigsReadTimeHex(unsigned char *buf8) -> void +; tool 0x0D03, set 0x03 (MiscTools). Returns 8 bytes of broken-down +; time via a stack-allocated result area: second, minute, hour, (pad), +; year-1900, day, month, weekday. ORCA's misctool.h declares this as +; returning a TimeRec struct, so genToolbox.py skips it (no inline() +; macro on the prototype). We expose a C-friendly wrapper that copies +; the 8 bytes into a caller-provided buffer. +; +; ABI: arg0 (the destination pointer) arrives in A/X (lo word in A, +; hi word in X), matching the LLVM W65816 first-arg-in-AX convention. +; We stash A/X to DP $E0..$E3 to form a 32-bit pointer and use +; sta [dp],y (DP-indirect-long-Y) so writes reach the buffer's bank. + .section .text.iigsReadTimeHex,"ax" + .globl iigsReadTimeHex +iigsReadTimeHex: + ; --- stash arg0 (destination pointer) at DP $E0..$E3 --- + sta 0xE0 ; A -> $E0:$E1 (lo16 of pointer) + stx 0xE2 ; X -> $E2:$E3 (hi16; only $E2 = bank used) + ; --- 8-byte result space (4 words) --- + pea 0 + pea 0 + pea 0 + pea 0 + ldx #0x0D03 + jsl 0xe10000 + ; --- copy 8 bytes from stack into the caller's buffer --- + ; PLA at M=16 pops the 4 result words in reverse push order, which + ; is the same order as the TimeRec layout (lowest-addr word first). + ldy #0 + pla + sta [0xE0], y ; bytes 0,1: second, minute + iny + iny + pla + sta [0xE0], y ; bytes 2,3: hour, pad + iny + iny + pla + sta [0xE0], y ; bytes 4,5: year-1900, day + iny + iny + pla + sta [0xE0], y ; bytes 6,7: month, weekday + rtl diff --git a/scripts/genToolbox.py b/scripts/genToolbox.py index 709defe..a7f79c4 100644 --- a/scripts/genToolbox.py +++ b/scripts/genToolbox.py @@ -1,29 +1,25 @@ #!/usr/bin/env python3 -# genToolbox.py — generate IIgs toolbox wrappers from ORCA-C headers. +# genToolbox.py — generate IIgs toolbox wrappers from NList.Data. # -# Reads ORCA's extern declarations of the form: -# extern pascal RetType FuncName(ArgType, ArgType) inline(0xNNTT, dispatcher); -# and emits two outputs: +# Reads Dave Lyons' NiftyList database (`tools/nlist/NList.Data.txt`), +# which catalogues every IIgs toolbox call and GS/OS call with tool +# number, parameter sizes, and return-value size. Emits two outputs: # - C header with `static inline` wrappers using clang inline-asm # - .s file with extern wrapper bodies for multi-arg routines that # can't fit in inline asm (our backend's constraints don't take # memory operands). # -# Tool number convention: 0xNNTT high byte = function, low byte = tool set -# Dispatcher: JSL $E10000 for normal toolbox; JSL $E100A8 for GS/OS -# (only the ProDOS-16 / GS/OS calls use _CallBackVector). +# NList line format (see tools/nlist/README.md): +# TTTT [NS:]FuncName([N:]arg[/sz], ...)[:ret[/sz]] # -# Calling convention conversion: ORCA uses Pascal (args pushed L-to-R), -# our C ABI passes arg0 in A and arg1+ on stack RTL. Each generated -# wrapper re-pushes args in toolbox order. +# Tool number convention: TTTT loaded into X; low byte = tool-set, +# high byte = function code. Dispatcher: JSL $E10000 for normal +# toolbox; JSL $E100A8 for GS/OS (entries prefixed `GS/OS:`). # -# Type widths (matching ORCA): -# Word, Boolean, Integer, Char, Byte = 2 bytes (16-bit) -# LongWord, Long, Handle, Pointer = 4 bytes (32-bit) -# Ptr, Ref, ResType = 4 bytes -# (Pointer is 4 bytes in ORCA -- it's a far/24-bit pointer. Our backend -# uses 16-bit pointers, but the toolbox expects 32-bit on the stack; -# we extend with a zero high word.) +# Calling convention: C ABI passes arg0 (i16) in A, arg0 (i32) in A:X, +# arg1+ on stack RTL. Each generated wrapper re-pushes args in toolbox +# (Pascal-style L-to-R) order, with result space first (if any), then +# JSL the dispatcher, then pops result. # # Output files are written to the runtime tree. @@ -31,7 +27,7 @@ import re import sys from pathlib import Path -ORCA_DIR = Path("/home/scott/claude/llvm816/tools/orca-c/ORCACDefs") +NLIST_PATH = Path("/home/scott/claude/llvm816/tools/nlist/NList.Data.txt") OUT_HEADER = Path("/home/scott/claude/llvm816/runtime/include/iigs/toolbox.h") OUT_ASM = Path("/home/scott/claude/llvm816/runtime/src/iigsToolbox.s") @@ -106,32 +102,128 @@ TOOLSET_NAME = { } -def parseLine(line): - """Parse `extern pascal RetType Name(args) inline(0xNNTT, dispatcher);` - Returns dict or None if not a toolbox decl. +# NList default sizes. Pointer (`@name`) is 4 bytes; an explicit `/N` +# suffix overrides. Also: a handle abbreviation (bare `H`, or any +# trailing capital `H` on a short name like `StateH`, `MsgH`) is 4 +# bytes — that's NList's convention for `:H`-style return values +# (NewHandle, GetMsgHandle, SaveTextState all use it). Everything +# else defaults to 2 bytes (Word). +_HANDLE_SHORTHAND_RE = re.compile(r"^[A-Z][a-zA-Z]*H$") + + +def parseSize(rawName): + """Strip a trailing /N size suffix and return (bareName, size, isPtr). + isPtr is True when the source spelling implied a pointer/handle (the + `@` prefix or an `H`-shorthand for handle); the generator then picks + `void *` rather than `unsigned long` as the C type. """ - m = re.match( - r'^\s*extern\s+pascal\s+(\w+)\s+(\w+)\s*\((.*?)\)\s+inline\(0x([0-9A-Fa-f]+)\s*,\s*(\w+)\)\s*;', - line, - ) + rawName = rawName.strip() + if not rawName: + return ("", 0, False) + sz = None + m = re.search(r"/(\d+)$", rawName) + if m: + sz = int(m.group(1)) + rawName = rawName[: m.start()].strip() + isPtr = rawName.startswith("@") + if isPtr: + rawName = rawName[1:] + isHandle = rawName == "H" or bool(_HANDLE_SHORTHAND_RE.match(rawName)) + if sz is None: + if isPtr: + sz = 4 + elif isHandle: + sz = 4 + else: + sz = 2 + return (rawName, sz, isPtr or (sz == 4 and isHandle)) + + +_ENTRY_RE = re.compile( + r"^([0-9A-Fa-f]{4})\s+" + r"(?:(GS/OS|P8|P16|Shell|\w+:[\w/]+):)?" # optional namespace prefix(es) + r"(\w+)\s*" # function name + r"\(([^)]*)\)" # arg list + r"(?::([^,\s]+(?:,[^,\s]+)*))?\s*$" # optional :ret(,ret2,...) +) + + +def parseLine(line): + """Parse an NList.Data line into a toolbox decl dict. + Returns None for comments, section dividers, unfilled stubs, or + non-toolbox namespaces (P8 / P16 / Shell). + """ + line = line.rstrip() + if not line: + return None + # Comment forms: `* ...`, `fff9 | ...`, `TTTT === name ===`. + head4 = line[:4] + rest = line[4:].lstrip() if len(line) > 4 else "" + if not re.fullmatch(r"[0-9A-Fa-f]{4}", head4): + return None + if rest.startswith("|") or rest.startswith("==="): + return None + if rest.startswith("(...)") or "(...)" in rest: + return None + + # Filter by namespace. Standard toolbox calls have no prefix. + # GS/OS calls have `GS/OS:` and dispatch via $E100A8. Skip P8/P16/ + # Shell — they use other dispatchers we don't currently expose. + dispatcher = "dispatcher" # → JSL $E10000 + nsMatch = re.match(r"^([A-Za-z][\w/]*):", rest) + if nsMatch: + ns = nsMatch.group(1) + if ns == "GS/OS": + dispatcher = "_CallBackVector" # → JSL $E100A8 + rest = rest[nsMatch.end():] + elif ns in ("P8", "P16", "Shell"): + return None + else: + # Sub-prefix like `P8:ATLK:...` — already filtered above by + # the outer P8; anything else unknown gets skipped. + return None + + m = re.match(r"^(\w+)\s*\(([^)]*)\)(.*)$", rest) if not m: return None - retType, name, args, toolHex, dispatcher = m.group(1, 2, 3, 4, 5) - toolNum = int(toolHex, 16) + name, argsRaw, tail = m.group(1, 2, 3) + toolNum = int(head4, 16) + + # Return type lives after `:`. Strip optional leading whitespace. + # Multi-value returns (e.g. `:Created,Type`) sum sizes; if any + # element looked pointer-ish, the overall return type is `void *` + # (handle-style returns are the dominant 4-byte case). + retSize = 0 + retIsPtr = False + tail = tail.strip() + if tail.startswith(":"): + retSpec = tail[1:].strip() + for r in retSpec.split(","): + _, sz, isPtr = parseSize(r) + retSize += sz + retIsPtr = retIsPtr or isPtr + + # Arg list: strip optional leading arg-count `N:` (e.g. `1-7:` or + # `4or84:`) and split on commas. + argsRaw = argsRaw.strip() + if ":" in argsRaw: + head, sep, body = argsRaw.partition(":") + if re.fullmatch(r"[\d\-or ]+", head.strip()): + argsRaw = body.strip() + + argSpec = [] + if argsRaw and argsRaw != "void": + for a in argsRaw.split(","): + _, sz, isPtr = parseSize(a) + if sz == 0: + return None + argSpec.append((sz, isPtr)) - # Parse arg types (just the types, no names since ORCA omits them). - args = args.strip() - argTypes = [] - if args and args != "void": - for a in args.split(","): - a = a.strip() - # ORCA may have type-only or "type name"; take the first word. - t = a.split()[0] - argTypes.append(t) return { - "ret": retType, "name": name, - "args": argTypes, + "argSpec": argSpec, # list of (size, isPtr) + "retSize": retSize, + "retIsPtr": retIsPtr, "tool": toolNum, "dispatcher": dispatcher, } @@ -145,14 +237,40 @@ def typeInfo(t): return (4, "void *") +# Map an (NList byte size, isPtr) tuple to a (stack-size, c-type) tuple. +# NList only carries sizes — no semantic type names — so the generator +# picks a generic C type. isPtr=True (NList `@name` prefix or `H` +# shorthand) selects `void *` for 4-byte slots; otherwise 4-byte +# non-pointer args become `unsigned long` so the common +# `NewHandle(0x900UL, ...)` pattern compiles without a pointer cast. +def sizeInfo(sz, isPtr=False): + """Return (effective-size, c-type) for an NList byte size.""" + if sz == 0: + return (0, "void") + if sz == 1: + return (2, "unsigned char") # widened on stack + if sz == 2: + return (2, "unsigned short") + if sz == 3: + return (4, "unsigned long") # rare; widened to 4 + if sz == 4: + return (4, "void *" if isPtr else "unsigned long") + if sz == 8: + return (8, "long long") + if sz == 10: + return (10, "long double") + return (4, "void *") + + def emit(decls): """Generate C header and .s file from parsed decls.""" cLines = [ - "// AUTOGENERATED by scripts/genToolbox.py from ORCA-C ORCACDefs/.", + "// AUTOGENERATED by scripts/genToolbox.py from NList.Data.", "// DO NOT EDIT by hand — regenerate to update.", + "// Source: tools/nlist/NList.Data.txt (Dave Lyons' NiftyList database).", "//", - "// Complete IIgs toolbox: ~1300 routines across 35 tool sets.", + "// Complete IIgs toolbox + GS/OS surface (~2000 routines).", "// Names match Apple's IIgs Toolbox Reference (TLStartUp,", "// MMStartUp, NewWindow, SysBeep, etc.). Multi-arg wrappers", "// (those whose stub body uses memory operands) live in", @@ -177,8 +295,9 @@ def emit(decls): ] sLines = [ - "; AUTOGENERATED by scripts/genToolbox.py from ORCA-C ORCACDefs/.", + "; AUTOGENERATED by scripts/genToolbox.py from NList.Data.", "; DO NOT EDIT by hand — regenerate to update.", + "; Source: tools/nlist/NList.Data.txt (Dave Lyons' NiftyList database).", ";", "; IIgs toolbox multi-arg wrappers.", ";", @@ -201,20 +320,36 @@ def emit(decls): for d in decls: name = d["name"] if name in seenNames: - continue # duplicate from header re-include, etc. + continue # duplicate (e.g. P16 / GS/OS overload of same name). seenNames.add(name) - retType = d["ret"] - argTypes = d["args"] tool = d["tool"] dispatcher = d["dispatcher"] - # Check if all types are known. - retSize, retC = typeInfo(retType) - argInfo = [typeInfo(a) for a in argTypes] - if any(ai is None for ai in argInfo): - skipped.append((name, "unknown arg type")) - continue + # Translate NList byte sizes into (effective-size, c-type) tuples + # the emit logic expects. argTypes is rebuilt for the diagnostic + # comment only. Pointer detection follows NList's signal: an + # `@name` prefix or `H`/`*H`-shorthand → `void *`; an explicit + # `/4` without those markers → `unsigned long`. That matches + # how the NList catalog distinguishes integer Long/LongWord + # values (TickCount → :Ticks/4) from pointers/handles + # (NewHandle → :H, GetCursorAdr → :@Curs). + retSize, retC = sizeInfo(d["retSize"], d["retIsPtr"]) + argInfo = [sizeInfo(sz, isPtr) for (sz, isPtr) in d["argSpec"]] + argTypes = [ + "Pointer" if ai[1] == "void *" else + "LongWord" if ai[0] == 4 else + "Word" if ai[0] == 2 else + f"{ai[0]}B" + for ai in argInfo + ] + retType = ( + "Pointer" if retC == "void *" else + "LongWord" if retSize == 4 else + "Word" if retSize == 2 else + "void" if retSize == 0 else + f"{retSize}B" + ) # Build C-style arg list. cArgs = ", ".join(f"{ai[1]} a{i}" for i, ai in enumerate(argInfo)) @@ -448,12 +583,14 @@ def emit(decls): def main(): decls = [] - for h in sorted(ORCA_DIR.glob("*.h")): - for line in h.read_text().splitlines(): - d = parseLine(line) - if d: - decls.append(d) - print(f"parsed {len(decls)} declarations from {ORCA_DIR}") + if not NLIST_PATH.exists(): + print(f"error: {NLIST_PATH} not found", file=sys.stderr) + sys.exit(1) + for line in NLIST_PATH.read_text().splitlines(): + d = parseLine(line) + if d: + decls.append(d) + print(f"parsed {len(decls)} declarations from {NLIST_PATH}") emit(decls) diff --git a/scripts/installOrcaC.sh b/scripts/installOrcaC.sh deleted file mode 100755 index bf8e4cc..0000000 --- a/scripts/installOrcaC.sh +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/env bash -# Clone ORCA/C as an on-disk reference. It's an on-machine compiler — we only -# need the source to study codegen choices, not to build. - -set -euo pipefail -source "$(dirname "$0")/common.sh" - -ORCA_DIR="$TOOLS_DIR/orca-c" -ORCA_URL="https://github.com/byteworksinc/ORCA-C.git" - -if [ -d "$ORCA_DIR/.git" ]; then - log "orca-c already cloned; pulling latest" - git -C "$ORCA_DIR" pull --ff-only -else - log "cloning ORCA/C reference source" - git clone --depth=1 "$ORCA_URL" "$ORCA_DIR" -fi - -log "orca-c reference at $ORCA_DIR" diff --git a/scripts/smokeTest.sh b/scripts/smokeTest.sh index 5eae04a..322adeb 100755 --- a/scripts/smokeTest.sh +++ b/scripts/smokeTest.sh @@ -5526,8 +5526,8 @@ EOF # real ROM dispatcher, smoke runs in bare-CPU mode); just check # the codegen. # iigs/toolbox.h — autogenerated wrappers for the entire IIgs - # toolbox (~1300 routines from 35 tool sets, sourced from ORCA-C - # ORCACDefs/ via scripts/genToolbox.py). Names match Apple's + # toolbox (~1900 routines from 35 tool sets, sourced from Dave + # Lyons' NList.Data via scripts/genToolbox.py). Names match Apple's # IIgs Toolbox Reference (TLStartUp, MMStartUp, NewWindow, # SysBeep, ...). Verify the header compiles, the multi-arg # asm bodies in iigsToolbox.s assemble, and that linking @@ -5567,7 +5567,7 @@ EOF if ! grep -qE '\bjsl\s+0xe10000\b' "$sToolFile"; then die "iigs/toolbox.h: JSL \$E10000 (Tool Locator) not emitted" fi - # SysBeep tool number $2C03 per ORCA (function $2C of Misc Tools $03). + # SysBeep tool number $2C03 (function $2C of Misc Tools $03). # Match case-insensitively — clang lowercases hex constants. if ! grep -qiE '\bldx\s+#0x2c03\b' "$sToolFile"; then die "iigs/toolbox.h: SysBeep tool number 0x2C03 not in output" @@ -6496,7 +6496,7 @@ EOF "$PROJECT_ROOT/runtime/softFloat.o" \ "$PROJECT_ROOT/runtime/softDouble.o" \ "$PROJECT_ROOT/runtime/iigsGsos.o" \ - "$PROJECT_ROOT/runtime/iigsToolbox.o" \ + "$PROJECT_ROOT/runtime/iigsToolbox.o" "$PROJECT_ROOT/runtime/iigsToolboxExtra.o" \ "$PROJECT_ROOT/runtime/libgcc.o" 2>/tmp/gsosfopen-link.err >/dev/null \ || die "GS/OS file smoke: link failed: $(cat /tmp/gsosfopen-link.err)" "$PROJECT_ROOT/tools/omfEmit" --input "$binGsf" --map "$mapGsf" \ @@ -6619,7 +6619,7 @@ EOF "$PROJECT_ROOT/runtime/softFloat.o" \ "$PROJECT_ROOT/runtime/softDouble.o" \ "$PROJECT_ROOT/runtime/iigsGsos.o" \ - "$PROJECT_ROOT/runtime/iigsToolbox.o" \ + "$PROJECT_ROOT/runtime/iigsToolbox.o" "$PROJECT_ROOT/runtime/iigsToolboxExtra.o" \ "$PROJECT_ROOT/runtime/libgcc.o" 2>/tmp/stkprobe-link.err >/dev/null \ || die "stack-size smoke: link failed: $(cat /tmp/stkprobe-link.err)" # WITH --stack-size 0x4000 (16 KB chunk; Loader places at $0800, diff --git a/scripts/verify.sh b/scripts/verify.sh index 2ba89b5..324c643 100755 --- a/scripts/verify.sh +++ b/scripts/verify.sh @@ -60,10 +60,9 @@ if [ -d "$TOOLS_DIR/calypsi" ]; then test -x "$TOOLS_DIR/calypsi/usr/local/lib/calypsi-65816-5.16/bin/cc65816" fi -# ORCA/C reference (optional; --skip-orca skips this). -if [ -d "$TOOLS_DIR/orca-c" ]; then - check "orca-c source" test -d "$TOOLS_DIR/orca-c/.git" -fi +# Toolbox bindings come from NList.Data (Dave Lyons' NiftyList catalog +# at tools/nlist/NList.Data.txt) — no ORCA/OPUS source required. +check "nlist data" test -s "$PROJECT_ROOT/tools/nlist/NList.Data.txt" # End-to-end smoke: compile a tiny C program for W65816 to prove the # toolchain actually produces machine code. diff --git a/setup.sh b/setup.sh index 3e26ca8..c2f3b1c 100755 --- a/setup.sh +++ b/setup.sh @@ -2,23 +2,25 @@ # Top-level installer for the llvm816 project. Installs everything into # ./tools/ so the tree is self-contained and deletable. # -# Stages (6/6): +# Stages (5/5): # 1. apt dependencies # 2. llvm-mos clone + W65816 backend apply + cmake/ninja build of # clang/llc/llvm-mc + build link816/omfEmit + build runtime (.o) # 3. MAME + apple2gs ROMs # 4. Calypsi 5.16 (reference compiler — optional) -# 5. ORCA/C source (header reference — optional) -# 6. GNO/ME 2.0.6 + GS/OS 6.0.4 (shell-command runtime — optional; +# 5. GNO/ME 2.0.6 + GS/OS 6.0.4 (shell-command runtime — optional; # cadius + .shk archives + system disks for runInGno.sh) # +# Toolbox bindings (iigs/toolbox.h) are generated from NList.Data — a +# non-ORCA, non-OPUS toolbox database checked into tools/nlist/. No +# Byte Works / ORCA / OPUS sources are required or installed. +# # Usage: # ./setup.sh # install + build everything (~30-60 min) # ./setup.sh --skip-deps # skip apt packages # ./setup.sh --skip-llvm # skip stage 2 (clang/runtime/link816) # ./setup.sh --skip-mame # skip MAME + ROM fetch # ./setup.sh --skip-calypsi # skip Calypsi -# ./setup.sh --skip-orca # skip ORCA/C reference # ./setup.sh --skip-gno # skip GNO/ME + GS/OS 6.0.4 fetch # ./setup.sh --skip-verify # skip the post-install verification # ./setup.sh --verify-only # run verification only @@ -33,7 +35,6 @@ doDeps=1 doLlvm=1 doMame=1 doCalypsi=1 -doOrca=1 doGno=1 doVerify=1 buildLlvm=0 @@ -45,7 +46,6 @@ for arg in "$@"; do --skip-llvm) doLlvm=0 ;; --skip-mame) doMame=0 ;; --skip-calypsi) doCalypsi=0 ;; - --skip-orca) doOrca=0 ;; --skip-gno) doGno=0 ;; --skip-verify) doVerify=0 ;; --build-llvm) buildLlvm=1 ;; @@ -85,17 +85,12 @@ if [ "$doMame" -eq 1 ]; then fi if [ "$doCalypsi" -eq 1 ]; then - log "=== 4/6 calypsi ===" + log "=== 4/5 calypsi ===" bash "$SCRIPT_DIR/scripts/installCalypsi.sh" fi -if [ "$doOrca" -eq 1 ]; then - log "=== 5/6 orca-c reference ===" - bash "$SCRIPT_DIR/scripts/installOrcaC.sh" -fi - if [ "$doGno" -eq 1 ]; then - log "=== 6/6 gno/me + gs/os 6.0.4 ===" + log "=== 5/5 gno/me + gs/os 6.0.4 ===" bash "$SCRIPT_DIR/scripts/installGno.sh" fi diff --git a/tests/cxxSmoke/build.sh b/tests/cxxSmoke/build.sh index 41cf840..c3af80e 100755 --- a/tests/cxxSmoke/build.sh +++ b/tests/cxxSmoke/build.sh @@ -50,7 +50,7 @@ echo "link: -> $BASE.bin" "$RT/libc.o" "$RT/snprintf.o" "$RT/extras.o" \ "$RT/softFloat.o" "$RT/softDouble.o" \ "$RT/math.o" \ - "$RT/iigsToolbox.o" \ + "$RT/iigsToolbox.o" "$RT/iigsToolboxExtra.o" \ "$RT/libgcc.o" \ "$RT/libcxxabi.o" "$RT/libcxxabiSjlj.o"