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

   1 ;
   2 ; Maciej 'YTM/Alliance' Witkowiak
   3 ;
   4 ; 21.12.99
   5
   6 ; int CalcBlksFree (void);
   7
   8             .import __oserror
   9             .export _CalcBlksFree
  10
  11             .include "jumptab.inc"
  12             .include "diskdrv.inc"
  13             .include "geossym.inc"
  14
  15 _CalcBlksFree:
  16         jsr CalcBlksFree
  17         stx __oserror
  18         lda r4L
  19         ldx r4H
  20         rts