** Draws it in 34 bytes (or even 36 , if wanted)
** d0.w = x-origin
** d1.w = y-origin
** d2.w = radius
** d3.b = color
** a0.l = buffer
** Coded by Trevor / Outlaws
Piru=1
Trevor=0

optimization_style	SET	Piru

	IF	optimization_style=Piru
	 moveq	#-128,d7	;too much steps, but shorter in code :)
	ELSE
	 move.w	#256*7,d7	;steps*2*pi
	ENDC
	lsl	#8,d2		;d2=x
	moveq	#0,d4		;d4=y
.hamburger
	move.w	d2,d5
	asr.w	#8,d5
	subx.w	d5,d4		;y=y+(x/256)

	move.l	d4,d6
	asr.w	#8,d6
	addx.w	d6,d2		;x=x-(y/256)

	add.b	d1,d6		;000000000000y+y1
	lsl.w	#8,d6		;00000000y+y10000
	move.b	d5,d6		;00000000y+y1000x
	add.b	d0,d6		;00000000y+y1x+x0
	move.b	d3,(a0,d6.l)	
	dbf     d7,.hamburger	; :P
.