Made two indirect jumps through the zero-page go through page $20 on the PC-Engine.
This commit is contained in:
parent
9ca004eacf
commit
549f09db9c
2 changed files with 30 additions and 0 deletions
16
libsrc/pce/call.s
Normal file
16
libsrc/pce/call.s
Normal file
|
@ -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
|
14
libsrc/pce/callptr4.s
Normal file
14
libsrc/pce/callptr4.s
Normal file
|
@ -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)
|
Loading…
Add table
Reference in a new issue