telestrat : cgetc add for conio

diff --git a/libsrc/telestrat/cgetc.s b/libsrc/telestrat/cgetc.s
new file mode 100644 (file)
index 0000000..85ea4fc
--- /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