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

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