; My short routine - 46 bytes

_initcode
	RTS

_circle

; Entry: A0-Plane D0-X D1-Y D2-Radius D3-Colour
ShortAndSlow:
	MOVEQ	#0,D4
	MOVEQ	#0,D5
1$	MOVEQ	#3,D7
2$	MOVE.L	D1,D6
	ADD.B	D4,D6
	LSL.W	#8,D6
	MOVE.B	D0,D6
	ADD.B	D2,D6
	MOVE.B	D3,(A0,D6.L)
	NEG.L	D4
	EXG	D2,D4
	DBF	D7,2$
	NEG.L	D2
	BMI.B	1$
	ADDQ.L	#1,D4
	SUB.L	D4,D5
	BHS.B	1$
	SUBQ.L	#1,D2
	ADD.L	D2,D5
	BLO.B	1$
	RTS
.