From: Greg King <gregdk@users.sf.net>
Date: Wed, 28 Feb 2018 19:59:52 +0000 (-0500)
Subject: Made two indirect jumps through the zero-page go through page $20 on the PC-Engine.
X-Git-Tag: V2.17~9^2
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=refs%2Fpull%2F599%2Fhead;p=cc65

Made two indirect jumps through the zero-page go through page $20 on the PC-Engine.
---

diff --git a/libsrc/pce/call.s b/libsrc/pce/call.s
new file mode 100644
index 000000000..f99879866
--- /dev/null
+++ b/libsrc/pce/call.s
@@ -0,0 +1,16 @@
+;
+; CC65 runtime: call function via pointer in ax
+;
+; 1998-08-06, Ullrich von Bassewitz
+; 2018-02-28, Greg King
+;
+
+        .export         callax
+        .importzp       ptr1
+
+callax: sta     ptr1
+        stx     ptr1+1
+
+; The PC-Engine puts the zero-page at $2000.
+
+        jmp     (ptr1 + $2000)  ; go there
diff --git a/libsrc/pce/callptr4.s b/libsrc/pce/callptr4.s
new file mode 100644
index 000000000..7829cdb8e
--- /dev/null
+++ b/libsrc/pce/callptr4.s
@@ -0,0 +1,14 @@
+;
+; CC65 runtime: call function via pointer in ptr4
+;
+; 2018-02-28, Greg King
+;
+
+        .export         callptr4
+        .importzp       ptr4
+
+callptr4:
+
+; The PC-Engine puts the zero-page at $2000.
+
+        jmp     (ptr4 + $2000)