; this function writes a coloured pixel into the chunky buffer

; use this function with care, it doesn't check for bounds or if chunky array is correct

; PutPixelFast(chunky:a0:PTR TO chunky,x:d0:LONG,y:d1:LONG,colour:d2:LONG)

	machine	mc68020

	xdef	_PutPixelFast

_PutPixelFast
	movea.l	(8,a0),a1
	muls.l	(a0),d1
	add.l	d0,d1		; d1 now contains position in buffer
	move.b	d2,(a1,d1.l)
	rts