	opt l-

Loop	btst #6,$BFE001
	beq ende
	bra Loop
ende	rts

