Update kgetin.s
use symbol from cbm_kernal.inc
This commit is contained in:
@@ -1,14 +1,17 @@
|
|||||||
.export GETIN
|
|
||||||
|
|
||||||
.include "plus4.inc"
|
.export GETIN
|
||||||
|
|
||||||
KERNAL_GETIN := $FFE4
|
.scope KERNAL
|
||||||
|
.include "cbm_kernal.inc"
|
||||||
|
.endscope
|
||||||
|
|
||||||
|
.include "plus4.inc"
|
||||||
|
|
||||||
.segment "LOWCODE" ; Stay out of ROM area.
|
.segment "LOWCODE" ; Stay out of ROM area.
|
||||||
|
|
||||||
.proc GETIN
|
.proc GETIN
|
||||||
sta ENABLE_ROM
|
sta ENABLE_ROM
|
||||||
jsr KERNAL_GETIN
|
jsr KERNAL::GETIN
|
||||||
sta ENABLE_RAM
|
sta ENABLE_RAM
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|||||||
Reference in New Issue
Block a user