git.sur5r.net Git - cc65/blob - libsrc/geos-cbm/disk/readblock.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 21.12.1999, 2.1.2003
   5
   6 ; char ReadBlock (struct tr_se myTS, char *buffer);
   7
   8             .export _ReadBlock
   9             .import popax, setoserror
  10             .import gettrse
  11
  12             .include "jumptab.inc"
  13             .include "geossym.inc"
  14
  15 _ReadBlock:
  16         sta r4L
  17         stx r4H
  18         jsr popax
  19         jsr gettrse
  20         sta r1L
  21         stx r1H
  22         jsr ReadBlock
  23         jmp setoserror