1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00
cc65/libsrc/geos/disk/findbambit.s

26 lines
362 B
ArmAsm
Raw Normal View History

;
; Maciej 'YTM/Alliance' Witkowiak
;
; 21.12.99
; char FindBAMBit (struct tr_se *TS);
; (might be called inUSE (if (!inUSE(block))))
.import gettrse
.export _FindBAMBit
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
_FindBAMBit:
jsr gettrse
sta r6L
stx r6H
jsr FindBAMBit
bne inUse
lda #0
rts
inUse: lda #$ff
rts