add cputc & remove

2018-04-14 21:52:11 +02:00
parent 4e0958eae6
commit e34ef0fc17
3 changed files with 34 additions and 1 deletions
--- a/libsrc/telestrat/cputc.s
+++ 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
+
--- a/libsrc/telestrat/sysremove.s
+++ 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