From 7435c2f3ca932a9945757cb0ec755ba6613b6157 Mon Sep 17 00:00:00 2001 From: jede Date: Thu, 26 Oct 2017 22:00:12 +0200 Subject: [PATCH 1/4] Fix doc/telestrat.sgml --- doc/telestrat.sgml | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/doc/telestrat.sgml b/doc/telestrat.sgml index 2d05f8985..d85dac2a3 100644 --- a/doc/telestrat.sgml +++ b/doc/telestrat.sgml @@ -9,10 +9,7 @@ 2017-01-22 - -An overview over the Telestrat (Telemon 2.4 & Telemon 3.x : http://orix.oric.org) runtime system as it is implemented for the cc65 C -compiler.) - +An overview over the Telestrat (Telemon 2.4 & Telemon 3.x : http://orix.oric.org) runtime system as it is implemented for the cc65 C compiler. From 807b55862d7f51a8d1106a501d4be82d9c15e9de Mon Sep 17 00:00:00 2001 From: jede Date: Sat, 28 Oct 2017 00:37:47 +0200 Subject: [PATCH 2/4] Now mkdir is working --- asminc/telestrat.inc | 1 + libsrc/telestrat/oserror.s | 17 +++++++++++++++++ libsrc/telestrat/sysmkdir.s | 30 ++++++++++++++++++++++++++++++ 3 files changed, 48 insertions(+) create mode 100644 libsrc/telestrat/oserror.s create mode 100644 libsrc/telestrat/sysmkdir.s diff --git a/asminc/telestrat.inc b/asminc/telestrat.inc index 737c4b6ae..cb28919c2 100644 --- a/asminc/telestrat.inc +++ b/asminc/telestrat.inc @@ -171,6 +171,7 @@ XSOUND = $44 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 XHRSSE = $8C ; set hires position cursor XDRAWA = $8D ; draw a line diff --git a/libsrc/telestrat/oserror.s b/libsrc/telestrat/oserror.s new file mode 100644 index 000000000..e3b9e619a --- /dev/null +++ b/libsrc/telestrat/oserror.s @@ -0,0 +1,17 @@ +; +; Jede, 2017-10-27 +; +; int __fastcall__ _osmaperrno (unsigned char oserror); +; /* Map a system specific error into a system independent code */ +; + + .include "errno.inc" + .export __osmaperrno + +.proc __osmaperrno + + lda #EUNKNOWN + rts + +.endproc diff --git a/libsrc/telestrat/sysmkdir.s b/libsrc/telestrat/sysmkdir.s new file mode 100644 index 000000000..26d97c4b0 --- /dev/null +++ b/libsrc/telestrat/sysmkdir.s @@ -0,0 +1,30 @@ +; +; Jede (jede@oric.org), 2017-10-27 +; +; unsigned char _sysmkdir (const char* name, ...); +; + + .export __sysmkdir + .import addysp, popax + + .include "telestrat.inc" + .include "zeropage.inc" + + +__sysmkdir: + ; Throw away all parameters except the name + dey + dey + jsr addysp + + ; Get name + jsr popax + + ; Call telemon primitive + + BRK_TELEMON(XMKDIR) + + rts + + + From eae485dc64c0ea1aab567fe7500122beda9b9eb0 Mon Sep 17 00:00:00 2001 From: jede Date: Sat, 28 Oct 2017 00:40:56 +0200 Subject: [PATCH 3/4] Empty item removed --- doc/telestrat.sgml | 1 - 1 file changed, 1 deletion(-) diff --git a/doc/telestrat.sgml b/doc/telestrat.sgml index d85dac2a3..b640e5aa8 100644 --- a/doc/telestrat.sgml +++ b/doc/telestrat.sgml @@ -120,7 +120,6 @@ structures; accessing the struct fields will access the chip registers. TGI drivers is available on Oric Telestrat with some functions : - tgi_install tgi_init tgi_clear From 64ed0a1937fe9ab172c7a12bfe06d9f06130470a Mon Sep 17 00:00:00 2001 From: jede Date: Fri, 10 Nov 2017 10:58:01 +0100 Subject: [PATCH 4/4] Doc modified --- doc/telestrat.sgml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/doc/telestrat.sgml b/doc/telestrat.sgml index b640e5aa8..76b3cdd30 100644 --- a/doc/telestrat.sgml +++ b/doc/telestrat.sgml @@ -120,12 +120,12 @@ structures; accessing the struct fields will access the chip registers. TGI drivers is available on Oric Telestrat with some functions : +tgi_done tgi_install tgi_init tgi_clear +tgi_line tgi_setpixel -tgi_getmaxx -tgi_getmaxy