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

25 lines
400 B
ArmAsm
Raw Normal View History

;
; Maciej 'YTM/Elysium' Witkowiak
;
; 21.12.1999, 2.1.2003
; char FindBAMBit (struct tr_se *TS);
; (might be called inUSE (if (!inUSE(block))))
.import gettrse
.import return0, return1
.export _FindBAMBit
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
_FindBAMBit:
jsr gettrse
sta r6L
stx r6H
jsr FindBAMBit
bne inUse
jmp return0
inUse: jmp return1