added support for remove() and rename() standard functions
git-svn-id: svn://svn.cc65.org/cc65/trunk@3533 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
b393a52f97
commit
56420208c7
3 changed files with 46 additions and 1 deletions
|
@ -12,7 +12,8 @@ S_OBJS = get1stdirentry.o getnxtdirentry.o\
|
||||||
deleterecord.o insertrecord.o appendrecord.o readrecord.o writerecord.o\
|
deleterecord.o insertrecord.o appendrecord.o readrecord.o writerecord.o\
|
||||||
updaterecordfile.o\
|
updaterecordfile.o\
|
||||||
findfile.o followchain.o getfhdrinfo.o readfile.o savefile.o freefile.o\
|
findfile.o followchain.o getfhdrinfo.o readfile.o savefile.o freefile.o\
|
||||||
deletefile.o renamefile.o findftypes.o readbyte.o getfile.o
|
deletefile.o renamefile.o findftypes.o readbyte.o getfile.o\
|
||||||
|
sysremove.o sysrename.o
|
||||||
|
|
||||||
all: $(S_OBJS)
|
all: $(S_OBJS)
|
||||||
|
|
||||||
|
|
20
libsrc/geos/file/sysremove.s
Normal file
20
libsrc/geos/file/sysremove.s
Normal file
|
@ -0,0 +1,20 @@
|
||||||
|
|
||||||
|
;
|
||||||
|
; Maciej 'YTM/Elysium' Witkowiak
|
||||||
|
;
|
||||||
|
; 19.07.2005
|
||||||
|
|
||||||
|
; unsigned char __fastcall__ _sysremove (const char* name);
|
||||||
|
|
||||||
|
.export __sysremove
|
||||||
|
|
||||||
|
.include "../inc/jumptab.inc"
|
||||||
|
.include "../inc/geossym.inc"
|
||||||
|
|
||||||
|
__sysremove:
|
||||||
|
sta r0L
|
||||||
|
stx r0H
|
||||||
|
jsr DeleteFile
|
||||||
|
txa
|
||||||
|
ldx #0
|
||||||
|
rts
|
24
libsrc/geos/file/sysrename.s
Normal file
24
libsrc/geos/file/sysrename.s
Normal file
|
@ -0,0 +1,24 @@
|
||||||
|
|
||||||
|
;
|
||||||
|
; Maciej 'YTM/Elysium' Witkowiak
|
||||||
|
;
|
||||||
|
; 19.07.2005
|
||||||
|
|
||||||
|
; unsigned char __fastcall__ _sysrename (const char* oldname, const char* newname);
|
||||||
|
|
||||||
|
.export __sysrename
|
||||||
|
.import popax
|
||||||
|
|
||||||
|
.include "../inc/jumptab.inc"
|
||||||
|
.include "../inc/geossym.inc"
|
||||||
|
|
||||||
|
__sysrename:
|
||||||
|
sta r0L
|
||||||
|
stx r0H
|
||||||
|
jsr popax
|
||||||
|
sta r6L
|
||||||
|
stx r6H
|
||||||
|
jsr RenameFile
|
||||||
|
txa
|
||||||
|
ldx #0
|
||||||
|
rts
|
Loading…
Add table
Reference in a new issue