git.sur5r.net Git - cc65/blob - libsrc/geos-common/file/getfile.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 4.4.2003
   5
   6 ; char __fastcall__ GetFile(char flag, const char *fname, const char *loadaddr, const char *datadname, char *datafname);
   7
   8             .export _GetFile
   9             .import popa, popax, setoserror
  10
  11             .include "jumptab.inc"
  12             .include "diskdrv.inc"
  13             .include "geossym.inc"
  14
  15 _GetFile:
  16         sta r3L
  17         stx r3H
  18         jsr popax
  19         sta r2L
  20         stx r2H
  21         jsr popax
  22         sta r7L
  23         stx r7H
  24         jsr popax
  25         sta r6L
  26         stx r6H
  27         jsr popa
  28         sta r0L
  29         lda #0
  30         sta r10L
  31         jsr GetFile
  32         jmp setoserror