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

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 21.12.99
   6
   7 ; char FindBAMBit (struct tr_se *TS);
   8 ; (might be called inUSE (if (!inUSE(block))))
   9
  10             .import gettrse
  11             .export _FindBAMBit
  12
  13             .include "../inc/jumptab.inc"
  14             .include "../inc/geossym.inc"
  15
  16 _FindBAMBit:
  17         jsr gettrse
  18         sta r6L
  19         stx r6H
  20         jsr FindBAMBit
  21         bne inUse
  22         lda #0
  23         rts
  24 inUse:  lda #$ff
  25         rts