From e34ef0fc17378df795a1fa01c2cefae0abb34d09 Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Sat, 14 Apr 2018 21:52:11 +0200
Subject: [PATCH] add cputc & remove

---
 asminc/telestrat.inc         |  3 ++-
 libsrc/telestrat/cputc.s     | 16 ++++++++++++++++
 libsrc/telestrat/sysremove.s | 16 ++++++++++++++++
 3 files changed, 34 insertions(+), 1 deletion(-)
 create mode 100644 libsrc/telestrat/cputc.s
 create mode 100644 libsrc/telestrat/sysremove.s

diff --git a/asminc/telestrat.inc b/asminc/telestrat.inc
index cb28919c2..956d31be3 100644
--- a/asminc/telestrat.inc
+++ b/asminc/telestrat.inc
@@ -172,7 +172,8 @@ XMUSIC           = $45
 XZAP             = $46
 XSHOOT           = $47
 XMKDIR           = $4B          ; create a folder. Only available in telemon 3.x
-XSOUT            = $67          ; send A register to RS232, available in telemon 2.4 & 3.x
+XRM              = $4D          ; remove a folder or a file. Only available in telemon 3.x
+XSOUT            = $67          ; send accumulator value (A) to RS232, available in telemon 2.4 & 3.x : if RS232 buffer is full, the Oric Telestrat freezes
 XHRSSE           = $8C          ; set hires position cursor
 XDRAWA           = $8D          ; draw a line 
 XDRAWR           = $8E          ; draw a line 
diff --git a/libsrc/telestrat/cputc.s b/libsrc/telestrat/cputc.s
new file mode 100644
index 000000000..d107446c3
--- /dev/null
+++ b/libsrc/telestrat/cputc.s
@@ -0,0 +1,16 @@
+; 2018-04-13, Jede (jede@oric.org)
+;
+
+; void cputc (char c);
+;
+
+        .export         _cputc
+        
+
+        .include        "telestrat.inc"
+
+.proc _cputc
+    BRK_TELEMON  XWR0       ; macro send char to screen (channel 0 in telemon terms)
+    rts
+.endproc
+
diff --git a/libsrc/telestrat/sysremove.s b/libsrc/telestrat/sysremove.s
new file mode 100644
index 000000000..565dfc111
--- /dev/null
+++ b/libsrc/telestrat/sysremove.s
@@ -0,0 +1,16 @@
+;
+; Jede, 10.11.2017
+;
+; unsigned char __fastcall__ _sysremove (const char* name);
+;
+
+        .export         __sysremove
+
+
+        .include        "zeropage.inc"
+        .include        "telestrat.inc"
+
+__sysremove:
+        ; Push name
+        BRK_TELEMON(XRM)
+        rts
-- 
2.39.5