From 03a57138f0198a3e69b043428859438af8d942e4 Mon Sep 17 00:00:00 2001
From: Karol Stasiak <karol.m.stasiak@gmail.com>
Date: Fri, 31 Jul 2020 13:29:13 +0200
Subject: [PATCH] CoCo: Improvements

---
 include/coco/kernal.mfk   | 5 ++++-
 include/coco/keyboard.mfk | 5 +++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/include/coco/kernal.mfk b/include/coco/kernal.mfk
index ae76344d..10bc6adb 100644
--- a/include/coco/kernal.mfk
+++ b/include/coco/kernal.mfk
@@ -1,7 +1,10 @@
 
 noinline asm void putchar(byte register(a) character) {
-    clr <$6f
+    clr $6f
     jsr [$a002]
     rts
 }
 
+inline void new_line() {
+    putchar(13)
+}
diff --git a/include/coco/keyboard.mfk b/include/coco/keyboard.mfk
index 7270a369..7d34c6c0 100644
--- a/include/coco/keyboard.mfk
+++ b/include/coco/keyboard.mfk
@@ -1,7 +1,8 @@
 
 noinline asm byte readkey() {
-    clr <$6f
+    clr $6f
     jsr [$A000]
-    tfr b,a
+    beq readkey
+    tfr a,b
     rts
 }