fix mkdir

libsrc/telestrat/sysmkdir.s

@@ -3,6 +3,8 @@
 ;
 ; unsigned char _sysmkdir (const char* name, ...);
 ;
+; This routine only works with Orix
+
 
         .export         __sysmkdir
         .import         addysp, popax
@@ -10,7 +12,6 @@
         .include        "telestrat.inc"
         .include        "zeropage.inc"
 
-
 __sysmkdir:
         ; Throw away all parameters except the name
         dey
@@ -20,11 +21,13 @@ __sysmkdir:
         ; Get name
         jsr     popax
 
-        ; Call telemon primitive
+        stx     tmp1
+        ldy     tmp1
 
+        ldx     #$00         ; X register is used to set if all folders must be created
+
+        ; Call telemon primitive
+        
         BRK_TELEMON(XMKDIR)
 
         rts
-
-
-