CoCo: Improvements

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)
+}

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
 }