waitvs:	
	ld a, &F5
	in a, (&DB)
	rra
	jr nc, waitvs