; quick bits of code for tracking down specific failures :

detect_at	equ	$8
detect_size	equ	$1

Debug_init::
	movem.l	d0/a0/a1,-(sp)

	movea.l	#detect_at,a0
	movea.l	#debug_store,a1
	move.l	#detect_size-1,d0

.lp:	move.l	(a0)+,(a1)+
	dbra	d0,.lp

	movem.l	(sp)+,d0/a0/a1
	rts

Debug_test::
	movem.l	d0/a0/a1,-(sp)

	movea.l	#detect_at,a0
	movea.l	#debug_store,a1
	move.l	#detect_size-1,d0

.lp:	cmp.l	(a0)+,(a1)+
	dbne	d0,.lp

	bne.b	.forever

	movem.l	(sp)+,d0/a0/a1
	rts

.forever:
	move.l	#'bugs',-(sp)
.on:	nop
	bra	.on

.bss
debug_store:
	ds.l	detect_size
