;shortest circleroutine by Nitch
;40 Bytes

	move.l	d2,a1
	add.l	a1,a1
	muls	d2,d2
	eor.l	d7,d7
loop:	move.l	d7,d6
	lsr.l	#8,d6
	eor.l	d5,d5
	move.b	d7,d5
	sub.l	d0,d5
	sub.l	d1,d6
	muls	d5,d5
	muls	d6,d6
	add.l	d5,d6
	sub.l	d2,d6
	cmp.l	d6,a1
	bcs.b	nothing
	move.b	d3,(a0)
nothing:	addq.l	#1,a0
	addq.w	#1,d7
	bcc.b	loop
.