Add Plus/4 wrapper for KERNAL's GETIN.

2024-08-18 21:57:06 +02:00
parent 925a589b90
commit 3f618d7de9
1 changed files with 14 additions and 0 deletions
--- a/libsrc/plus4/kgetin.s
+++ b/libsrc/plus4/kgetin.s
@@ -0,0 +1,14 @@
+.export GETIN
+
+.include "plus4.inc"
+
+KERNAL_GETIN := $FFE4
+
+.segment "LOWCODE" ; Stay out of ROM area.
+
+.proc   GETIN
+        sta ENABLE_ROM
+        jsr KERNAL_GETIN
+        sta ENABLE_RAM
+        rts
+.endproc