1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 02:29:52 +00:00
cc65/libsrc/atari/sysmkdir.s
cpg 0a6412b147 add "invalid parameter" error code -- contributed by Stefan Haubenthal
git-svn-id: svn://svn.cc65.org/cc65/trunk@5426 b7a2c559-68d2-44c3-8de9-860c34a00d81
2012-01-26 12:12:34 +00:00

90 lines
1.4 KiB
ArmAsm

;
; 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 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
jsr findfreeiocb
beq iocbok ; we found one
pla
pla ; fix up stack
lda #TMOF ; too many open files
rts
iocbok: stx tmp4 ; remember IOCB index
pla
tax
pla ; get argument again
.ifdef UCASE_FILENAME
jsr ucase_fn
bcc ucok1
lda #183 ; see oserror.s
rts
ucok1:
.endif ; defined UCASE_FILENAME
ldy tmp4 ; IOCB index
sta ICBAL,y ; store pointer to filename
txa
sta ICBAH,y
tya
tax
lda #42
sta ICCOM,x
lda #8
sta ICAX1,x
lda #0
sta ICAX2,x
sta ICBLL,x
sta ICBLH,x
jsr CIOV
.ifdef UCASE_FILENAME
tya
pha
ldy tmp3 ; get size
jsr addysp ; free used space on the stack
pla
tay
.endif ; defined UCASE_FILENAME
bmi cioerr
lda #0
rts
cioerr: tya
rts
.endproc ; __sysmkdir