1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
cc65/libsrc/plus4/kbasin.s

22 lines
529 B
ArmAsm
Raw Normal View History

;
; Ullrich von Bassewitz, 22.11.2002
;
; BASIN/CHRIN replacement function
;
.export BASIN
.export CHRIN
.include "plus4.inc"
.segment "LOWCODE" ; Must go into low memory
.proc BASIN
sta ENABLE_ROM ; Enable the ROM
jsr $FFCF ; Call the ROM routine
sta ENABLE_RAM ; Switch back to RAM
rts ; Return to caller
.endproc
CHRIN := BASIN