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

2018-02-28 14:59:52 -05:00 · 2018-02-28 14:59:52 -05:00 · 549f09db9c
parent 9ca004eacf
commit 549f09db9c
2 changed files with 30 additions and 0 deletions
--- a/libsrc/pce/call.s
+++ 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
--- a/libsrc/pce/callptr4.s
+++ 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)