1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00

now it really works (tested w/MYDOS only)

git-svn-id: svn://svn.cc65.org/cc65/trunk@3918 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2009-01-28 22:01:28 +00:00
parent 46cb2548c1
commit 8008a980bb

View File

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