add cputc & remove

diff --git a/asminc/telestrat.inc b/asminc/telestrat.inc
index cb28919c26eb71c0c6bb5a16f1018ef47004359e..956d31be32b3de49f44661c0becf1b96f75f4017 100644 (file)
--- 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 (file)
index 0000000..d107446
--- /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 (file)
index 0000000..565dfc1
--- /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