; d0 - x
; d1 - y
; d2 - colour=-1

	xdef	_Plot

_Plot	tst.l	_stdrast
	beq.s	.end
	move.l	_stdrast,a1
	move.l	d0,d3		; store x
	tst.l	d2
	bge.s	.new
	move.l	coloura,d0
	bra.s	.ok
.new	move.l	d2,d0		; set colour
.ok	move.l	_GfxBase,a6
	jsr	(-342,a6)		; SetAPen()
	move.l	d3,d0
	jsr	(-324,a6)		; WritePixel()
.end	rts

	xref	_stdrast
	xref	coloura
	xref	_GfxBase