1
0
mirror of https://github.com/cc65/cc65.git synced 2024-10-31 20:06:11 +00:00
cc65/libsrc/plus4/kscnkey.s

20 lines
497 B
ArmAsm

;
; 2002-11-22, Ullrich von Bassewitz
; 2016-08-07, Greg King
;
; SCNKEY replacement function
;
.export SCNKEY
.include "plus4.inc"
.segment "LOWCODE" ; Must go into low memory
.proc SCNKEY
sta ENABLE_ROM ; Enable the ROM
jsr $FF9F ; Call the ROM routine
sta ENABLE_RAM ; Switch back to RAM
rts ; Return to caller
.endproc