; FillChunky(dst:a0:PTR TO chunky,colour:d0:LONG)

	machine	mc68020

	xdef	_FillChunky
_FillChunky
	and.l	#$ff,d0
	move.l	d0,d1
	lsl.l	#8,d1
	or.l	d1,d0
	move.l	d0,d1
	swap	d1
	or.l	d1,d0		; d0 contains four times the coloour

	move.l	(4,a0),d1
	muls.l	(a0),d1
	lsr.l	#2,d1		; divide by four
	move.l	(8,a0),a1
.loop	move.l	d0,(a1)+
	subq.l	#1,d1
	bgt.s	.loop
	rts