added GetFile implementation

git-svn-id: svn://svn.cc65.org/cc65/trunk@2038 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst
2003-04-04 14:41:06 +00:00
parent c415dc82d9
commit 2ff9fd615b
4 changed files with 47 additions and 2 deletions

View File

@@ -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)

View 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