git.sur5r.net Git - cc65/blob - libsrc/geos-common/disk/setnextfree.s

   1 ;
   2 ; Maciej 'YTM/Alliance' Witkowiak
   3 ;
   4 ; 21.12.99
   5
   6 ; struct tr_se SetNextFree (struct tr_se *startTS);
   7
   8             .import __oserror
   9             .import gettrse
  10             .export _SetNextFree
  11
  12             .include "jumptab.inc"
  13             .include "diskdrv.inc"
  14             .include "geossym.inc"
  15
  16 _SetNextFree:
  17         jsr gettrse
  18         sta r3L
  19         stx r3H
  20         jsr SetNextFree
  21         stx __oserror
  22         lda r3L
  23         ldx r3H
  24         rts