From 3f618d7de96ce32e41544d8a1e7e67f010168cf9 Mon Sep 17 00:00:00 2001
From: Sven Michael Klose <pixel@hugbox.org>
Date: Sun, 18 Aug 2024 21:57:06 +0200
Subject: [PATCH] Add Plus/4 wrapper for KERNAL's GETIN.

---
 libsrc/plus4/kgetin.s | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 libsrc/plus4/kgetin.s

diff --git a/libsrc/plus4/kgetin.s b/libsrc/plus4/kgetin.s
new file mode 100644
index 000000000..14919f750
--- /dev/null
+++ 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