From 348ea815b0beca2ac7c8ab293caf4e0c01ca5dc5 Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Thu, 5 May 2022 22:43:06 +0200
Subject: [PATCH] fix mkdir

---
 libsrc/telestrat/sysmkdir.s | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/libsrc/telestrat/sysmkdir.s b/libsrc/telestrat/sysmkdir.s
index 259be8d7c..0ca897c17 100644
--- a/libsrc/telestrat/sysmkdir.s
+++ b/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
-
-
-