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

   1
   2 ;
   3 ; Maciej 'YTM/Elysium' Witkowiak
   4 ;
   5 ; 21.12.1999, 2.1.2003
   6
   7 ; char FindBAMBit (struct tr_se *TS);
   8 ; (might be called inUSE (if (!inUSE(block))))
   9
  10             .import gettrse
  11             .import return0, return1
  12             .export _FindBAMBit
  13
  14             .include "jumptab.inc"
  15             .include "geossym.inc"
  16
  17 _FindBAMBit:
  18         jsr gettrse
  19         sta r6L
  20         stx r6H
  21         jsr FindBAMBit
  22         bne inUse
  23         jmp return0
  24 inUse:  jmp return1