2 ; Initial version: Stefan Haubenthal, 2005-12-24
3 ; Some fixes: Christian Groessler, 2009-01-28
5 ; unsigned char _sysmkdir (const char* name, ...);
6 ; for SpartaDOS and MYDOS
26 dey ; parm count < 2 shouldn't be needed to be...
27 dey ; ...checked (it generates a C compiler warning)
28 beq parmok ; branch if parameter count ok
29 jsr addysp ; fix stack, throw away unused parameters
31 parmok: jsr popax ; get name
32 pha ; save input parameter
37 beq iocbok ; we found one
42 lda #TMOF ; too many open files
45 iocbok: stx tmp4 ; remember IOCB index
48 pla ; get argument again
54 sty tmp2 ; set flag for ucase_fn
59 lda #183 ; see oserror.s
63 .endif ; defined UCASE_FILENAME
66 sta ICBAL,y ; store pointer to filename
85 jsr addysp ; free used space on the stack
88 .endif ; defined UCASE_FILENAME