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

   1
   2 ;
   3 ; Maciej 'YTM/Elysium' Witkowiak
   4 ;
   5 ; 25.12.1999, 2.1.2003
   6
   7 ; char SaveFile  (char skip, struct fileheader *myHeader);
   8
   9             .import setoserror
  10             .import popa
  11             .export _SaveFile
  12
  13             .include "jumptab.inc"
  14             .include "geossym.inc"
  15
  16 _SaveFile:
  17         sta r9L
  18         stx r9H
  19         jsr popa
  20         sta r10L
  21         jsr SaveFile
  22         jmp setoserror