1 files changed, 26 insertions, 0 deletions
diff --git a/timed_getch.s b/timed_getch.s
new file mode 100644
index 0000000..8675290
--- /dev/null
+++ b/timed_getch.s
@@ -0,0 +1,26 @@
+
+ .export _timed_getch, _set_jiffy_timer
+ .import _cgetc
+
+_set_jiffy_timer:
+ sei
+ sta 540
+ stx 541
+ cli
+ rts
+
+_timed_getch:
+ jsr _set_jiffy_timer
+wait4key:
+ lda 540
+ ora 541
+ beq done
+ ldx 764
+ inx
+ beq wait4key
+ jmp _cgetc
+
+done:
+ lda #$ff ; return -1
+ tax
+ rts