6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-10 04:25:21 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #1742 from jedeoric/mkdir_fix_telestrat

Browse Source 
Mkdir : fix registers calls
This commit is contained in:
Bob Andrews
2022-05-06 13:00:03 +02:00
committed by GitHub
parent b8f7167dcd 47743d5fcf
commit 14c7ae6f0c
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
libsrc/telestrat/sysmkdir.s
View File

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