From a1c8860f63132f34258053bb90884b35ff264022 Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Sun, 1 Oct 2017 23:23:03 +0200
Subject: [PATCH] telestrat : cgetc add for conio

---
 libsrc/telestrat/cgetc.s | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 libsrc/telestrat/cgetc.s

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	
-- 
2.39.5