fix mkdir

2024-12-23 19:29:37 +00:00 · 2022-05-05 22:43:06 +02:00 · 2022-05-05 22:43:06 +02:00 · 348ea815b0
commit 348ea815b0
parent b8f7167dcd
1 changed files with 8 additions and 5 deletions
--- 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

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