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

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 21.12.1999, 2.1.2003
   5
   6 ; char FreeBlock (struct tr_se *TS);
   7
   8             .import gettrse, setoserror
   9             .export _FreeBlock
  10
  11             .include "jumptab.inc"
  12             .include "geossym.inc"
  13
  14 _FreeBlock:
  15         jsr gettrse
  16         sta r6L
  17         stx r6H
  18         jsr FreeBlock
  19         jmp setoserror