From 03550ab786696e937a7965e76ef352fa29bac466 Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Tue, 23 Apr 2019 00:07:16 +0930
Subject: [PATCH] implement GETIN function

---
 c64/kernal/getin.s | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/c64/kernal/getin.s b/c64/kernal/getin.s
index 4e5e66d9..f7a0aa16 100644
--- a/c64/kernal/getin.s
+++ b/c64/kernal/getin.s
@@ -1,3 +1,22 @@
 ; Function defined on pp272-273 of C64 Programmers Reference Guide
 getin:
+
+	;; Wait for a key
+	lda keys_in_key_buffer
+	bne +
+
+	;; Nothing in keyboard buffer to read
+	lda #$00
+	sec
+	rts
+	
+*
+	lda keyboard_buffer
+	pha
+
+	jsr pop_keyboard_buffer
+
+	pla
+	clc
+
 	rts