added GetFile implementation
git-svn-id: svn://svn.cc65.org/cc65/trunk@2038 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -12,7 +12,7 @@ S_OBJS = get1stdirentry.o getnxtdirentry.o\
|
||||
deleterecord.o insertrecord.o appendrecord.o readrecord.o writerecord.o\
|
||||
updaterecordfile.o\
|
||||
findfile.o followchain.o getfhdrinfo.o readfile.o savefile.o freefile.o\
|
||||
deletefile.o renamefile.o findftypes.o readbyte.o
|
||||
deletefile.o renamefile.o findftypes.o readbyte.o getfile.o
|
||||
|
||||
all: $(S_OBJS)
|
||||
|
||||
|
||||
30
libsrc/geos/file/getfile.s
Normal file
30
libsrc/geos/file/getfile.s
Normal file
@@ -0,0 +1,30 @@
|
||||
|
||||
;
|
||||
; Maciej 'YTM/Elysium' Witkowiak
|
||||
;
|
||||
; 4.4.2003
|
||||
|
||||
; char __fastcall__ GetFile(char flag, const char *fname, const char *loadaddr, const char *datadname, char *datafname);
|
||||
|
||||
.export _GetFile
|
||||
.import popa, popax, setoserror
|
||||
|
||||
.include "../inc/jumptab.inc"
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
_GetFile:
|
||||
sta r3L
|
||||
stx r3H
|
||||
jsr popax
|
||||
sta r2L
|
||||
stx r2H
|
||||
jsr popax
|
||||
sta r7L
|
||||
stx r7H
|
||||
jsr popax
|
||||
sta r6L
|
||||
stx r6H
|
||||
jsr popa
|
||||
sta r0L
|
||||
jsr GetFile
|
||||
jmp setoserror
|
||||
Reference in New Issue
Block a user