# PutPixel(chunky:r3:PTR TO chunky,x:r4:LONG,y:r5:LONG,colour:r6:LONG)

	.text
	.global	_PutPixel

_PutPixel:
	mr.	r7,r3
	beq	.finish
	mr.	r4,r4
	blt	.finish
	mr.	r5,r5
	blt	.finish
	lwz	r8,0(r7)
	cmpw	r4,r8
	bge	.finish
	lwz	r0,4(r7)
	cmpw	r5,r0
	bge	.finish

	lwz	r7,8(r7)
	mullw	r5,r5,r8
	add	r5,r5,r4
	lbzx	r3,r7,r5
	stbx	r6,r7,r5
	andi.	r3,r3,0xff
.finish:	blr

	.type	_PutPixel,@function
	.size	_PutPixel,$-_PutPixel