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

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 25.12.1999, 2.1.2003
   5
   6 ; char ReadFile  (struct tr_se *myTS, char *buffer, int length);
   7
   8             .export _ReadFile
   9             .import popax, setoserror
  10             .import gettrse
  11
  12             .include "jumptab.inc"
  13             .include "diskdrv.inc"
  14             .include "geossym.inc"
  15
  16 _ReadFile:
  17         sta r2L
  18         stx r2H
  19         jsr popax
  20         sta r7L
  21         stx r7H
  22         jsr popax
  23         jsr gettrse
  24         sta r1L
  25         stx r1H
  26         jsr ReadFile
  27         jmp setoserror