	org	$0
	incbin	"Zero Tolerance (UE) [!].gen"

	org	$78
	dc.l	VBL


	org	$AA2-10
VBL:
	tst.b	(counter).w
	beq.s	clear_counter_
	subq.b	#1,(counter).w
clear_counter_

	org	$1442

	jsr	($1b0).w

	org	$1b0
wait_for_5_vbl:
	nop
	tst.b	(counter).w
	nop
	bne.s	wait_for_5_vbl
	addq.b	#5,(counter).w
	tst.w   -$58D4(a6)
	rts
clear_counter:
	clr.b	(counter).w
	clr.w   -$56EA(a6)
	rts

	org	$143E
	jsr	(clear_counter).w


counter equ	$FFFFD000