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

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 25.12.99
   6
   7 ; char ReadFile  (struct tr_se *myTS, char *buffer, int length);
   8
   9             .export _ReadFile
  10             .import popax, __oserror
  11             .import gettrse
  12
  13             .include "../inc/jumptab.inc"
  14             .include "../inc/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         stx __oserror
  28         txa
  29         rts