; d0 - apen
; d1 - bpen

	xdef	_Colour

_Colour	move.l	d0,coloura
	tst.l	_stdrast
	beq.s	.exit
	move.l	_stdrast,a1
	move.l	a6,-(a7)
	move.l	_GfxBase,a6
	move.l	d1,-(a7)
	jsr	-342(a6)		; SetAPen()
	move.l	_stdrast,a1
	move.l	(a7)+,d0
	jsr	-348(a6)		; SetBPen()
	move.l	(a7)+,a6
.exit	rts

	xref	_GfxBase
	xref	_stdrast
	xref	coloura