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 "geossym.inc"
  13
  14 _GetFile:
  15         sta r3L
  16         stx r3H
  17         jsr popax
  18         sta r2L
  19         stx r2H
  20         jsr popax
  21         sta r7L
  22         stx r7H
  23         jsr popax
  24         sta r6L
  25         stx r6H
  26         jsr popa
  27         sta r0L
  28         lda #0
  29         sta r10L
  30         jsr GetFile
  31         jmp setoserror