Merge pull request #519 from jedeoric/master

[Telestrat] mkdir is now available

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 

doc/telestrat.sgml

@@ -9,10 +9,7 @@
 <date>2017-01-22
 
 <abstract>
-
-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.
 </abstract>
 
 <!-- Table of contents -->
@@ -123,13 +120,12 @@ structures; accessing the struct fields will access the chip registers.
 TGI drivers is available on Oric Telestrat with some functions :
 
 <itemize>
-<item>
+<item>tgi_done
 <item>tgi_install
 <item>tgi_init
 <item>tgi_clear
+<item>tgi_line
 <item>tgi_setpixel
-<item>tgi_getmaxx
-<item>tgi_getmaxy
 </itemize>
 
 

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
+        ldx     #>EUNKNOWN
+        rts
+
+.endproc

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
+
+
+