From: jede <jede@oric.org>
Date: Sun, 1 Oct 2017 21:23:03 +0000 (+0200)
Subject: telestrat : cgetc add for conio
X-Git-Tag: V2.17~88^2~3
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=a1c8860f63132f34258053bb90884b35ff264022;p=cc65

telestrat : cgetc add for conio
---

diff --git a/libsrc/telestrat/cgetc.s b/libsrc/telestrat/cgetc.s
new file mode 100644
index 000000000..85ea4fccb
--- /dev/null
+++ b/libsrc/telestrat/cgetc.s
@@ -0,0 +1,15 @@
+;
+; jede jede@oric.org 2017-10-01
+;
+    .export    _cgetc
+   
+    .include   "telestrat.inc"
+
+.proc _cgetc
+loop:   
+        BRK_TELEMON XRD0
+        bcc     key_pressed
+        jmp     loop
+key_pressed:
+        rts
+.endproc