;This a 40 bytes long circle routine by nAo/rAmjAm
;sorry, i'm leaving to university, and no time to add comments :-(


_circle		moveq	#-1,d6
		moveq	#0,d4
		moveq	#0,d5

.loop		rol.l	#8,d2
		add.w	d4,d2
		ror.l	#8,d2
		ext.w	d2
		rol.l	#8,d4
		sub.w	d2,d4
		ror.l	#8,d4
		ext.w	d4

		move.b	d2,d5
		add.b	d1,d5
		lsl.w	#8,d5
		move.b	d4,d5
		add.w	d0,d5
		move.b	d3,(a0,d5.l)		
		dbra	d6,.loop
		rts
.