CoCo: Improvements

2025-01-10 20:29:35 +00:00 · 2020-07-31 13:29:13 +02:00 · 2020-07-31 13:29:13 +02:00 · 03a57138f0
commit 03a57138f0
parent 72dcf2342e
2 changed files with 7 additions and 3 deletions
--- 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)
+}
--- 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
 }