Merge pull request #2485 from SvenMichaelKlose/add_plus4_getin_wrapper
Add Plus/4 wrapper for KERNAL's GETIN.
This commit is contained in:
17
libsrc/plus4/kgetin.s
Normal file
17
libsrc/plus4/kgetin.s
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
|
||||||
|
.export GETIN
|
||||||
|
|
||||||
|
.scope KERNAL
|
||||||
|
.include "cbm_kernal.inc"
|
||||||
|
.endscope
|
||||||
|
|
||||||
|
.include "plus4.inc"
|
||||||
|
|
||||||
|
.segment "LOWCODE" ; Stay out of ROM area.
|
||||||
|
|
||||||
|
.proc GETIN
|
||||||
|
sta ENABLE_ROM
|
||||||
|
jsr KERNAL::GETIN
|
||||||
|
sta ENABLE_RAM
|
||||||
|
rts
|
||||||
|
.endproc
|
||||||
Reference in New Issue
Block a user