Implement readkey and readline for Apple II

2026-04-20 18:16:35 +00:00 · 2020-04-08 11:11:25 +02:00
parent 29335d376a
commit cd5e9decac
10 changed files with 35 additions and 9 deletions
@@ -10,3 +10,16 @@ asm void bell() @$FBE4 extern

 asm void putchar(byte register(a) char) @$FDED extern
 asm void new_line() @$FC62 extern
+asm pointer readline() {
+    jsr $FD6A
+    ldx #$ff
+    __readline_loop:
+    inx
+    lda $200,x
+    cmp #$8d
+    bne __readline_loop
+    lda #0
+    sta $200,x
+    ldx #2
+    rts
+}