Now mkdir is working
This commit is contained in:
17
libsrc/telestrat/oserror.s
Normal file
17
libsrc/telestrat/oserror.s
Normal file
@@ -0,0 +1,17 @@
|
||||
;
|
||||
; Jede, 2017-10-27
|
||||
;
|
||||
; int __fastcall__ _osmaperrno (unsigned char oserror);
|
||||
; /* Map a system specific error into a system independent code */
|
||||
;
|
||||
|
||||
.include "errno.inc"
|
||||
.export __osmaperrno
|
||||
|
||||
.proc __osmaperrno
|
||||
|
||||
lda #<EUNKNOWN
|
||||
ldx #>EUNKNOWN
|
||||
rts
|
||||
|
||||
.endproc
|
||||
30
libsrc/telestrat/sysmkdir.s
Normal file
30
libsrc/telestrat/sysmkdir.s
Normal file
@@ -0,0 +1,30 @@
|
||||
;
|
||||
; Jede (jede@oric.org), 2017-10-27
|
||||
;
|
||||
; unsigned char _sysmkdir (const char* name, ...);
|
||||
;
|
||||
|
||||
.export __sysmkdir
|
||||
.import addysp, popax
|
||||
|
||||
.include "telestrat.inc"
|
||||
.include "zeropage.inc"
|
||||
|
||||
|
||||
__sysmkdir:
|
||||
; Throw away all parameters except the name
|
||||
dey
|
||||
dey
|
||||
jsr addysp
|
||||
|
||||
; Get name
|
||||
jsr popax
|
||||
|
||||
; Call telemon primitive
|
||||
|
||||
BRK_TELEMON(XMKDIR)
|
||||
|
||||
rts
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user