now it really works (tested w/MYDOS only)

git-svn-id: svn://svn.cc65.org/cc65/trunk@3918 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/atari/sysmkdir.s b/libsrc/atari/sysmkdir.s
index 75e4c28e3e2408b5aba82682f7ac302b9e0773d8..967daf1c8fe4d993544e03bd116726749a51b225 100644 (file)
--- a/libsrc/atari/sysmkdir.s
+++ b/libsrc/atari/sysmkdir.s
@@ -1,23 +1,31 @@
 ;
-; Stefan Haubenthal, 2005-12-24
-; Based on Christian Groessler
+; Initial version: Stefan Haubenthal, 2005-12-24
+; Some fixes: Christian Groessler, 2009-01-28
 ;
 ; unsigned char _sysmkdir (const char* name, ...);
+; for SpartaDOS and MYDOS
 ;
 
        .include "atari.inc"
        .include "errno.inc"
+       .import addysp
+       .import popax
        .import findfreeiocb
        .importzp tmp4
 .ifdef UCASE_FILENAME
        .importzp tmp3
-       .import addysp
        .import ucase_fn
 .endif
        .export __sysmkdir
 
 .proc  __sysmkdir
 
+       dey                     ; parm count < 2 shouldn't be needed to be...
+       dey                     ; ...checked (it generates a C compiler warning)
+       beq     parmok          ; branch if parameter count ok
+       jsr     addysp          ; fix stack, throw away unused parameters
+
+parmok:        jsr     popax           ; get name
        pha                     ; save input parameter
        txa
        pha
@@ -53,10 +61,11 @@ ucok1:
        sta     ICBAH,y
        tya
        tax
-       lda     #34
+       lda     #42
        sta     ICCOM,x
-       lda     #0
+       lda     #8
        sta     ICAX1,x
+       lda     #0
        sta     ICAX2,x
        sta     ICBLL,x
        sta     ICBLH,x