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

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 21.12.99
   6
   7 ; char FreeBlock (struct tr_se *TS);
   8
   9             .import gettrse, __oserror
  10             .export _FreeBlock
  11
  12             .include "../inc/jumptab.inc"
  13             .include "../inc/geossym.inc"
  14
  15 _FreeBlock:
  16         jsr gettrse
  17         sta r6L
  18         stx r6H
  19         jsr FreeBlock
  20         stx __oserror
  21         txa
  22         rts