6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues Projects Releases Wiki Activity

now it really works (tested w/MYDOS only)

Browse Source 
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
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
libsrc/atari/sysmkdir.s
View File

@ -1,23 +1,31 @@
; ;
; Stefan Haubenthal, 2005-12-24 ; Initial version: Stefan Haubenthal, 2005-12-24
; Based on Christian Groessler ; Some fixes: Christian Groessler, 2009-01-28
; ;
; unsigned char _sysmkdir (const char* name, ...); ; unsigned char _sysmkdir (const char* name, ...);
; for SpartaDOS and MYDOS
; ;
.include "atari.inc" .include "atari.inc"
.include "errno.inc" .include "errno.inc"
.import addysp
.import popax
.import findfreeiocb .import findfreeiocb
.importzp tmp4 .importzp tmp4
.ifdef UCASE_FILENAME .ifdef UCASE_FILENAME
.importzp tmp3 .importzp tmp3
.import addysp
.import ucase_fn .import ucase_fn
.endif .endif
.export __sysmkdir .export __sysmkdir
.proc __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 pha ; save input parameter
txa txa
pha pha
@ -53,10 +61,11 @@ ucok1:
sta ICBAH,y sta ICBAH,y
tya tya
tax tax
lda #34 lda #42
sta ICCOM,x sta ICCOM,x
lda #0 lda #8
sta ICAX1,x sta ICAX1,x
lda #0
sta ICAX2,x sta ICAX2,x
sta ICBLL,x sta ICBLL,x
sta ICBLH,x sta ICBLH,x