; a0 screen
; d0 n
; d1 r
; d2 g
; d3 b
	xdef	_SetColour

_SetColour
	movem.l	d0-d4/a6,-(a7)
	add.w	#44,a0
	move.l	4.w,a6
	move.w	20(a6),d4
	move.l	_GfxBase,a6
	cmp.w	#39,d4
	bpl.s	.39
	lsr.l	#4,d1
	lsr.l	#4,d2
	lsr.l	#4,d3
	jsr	-$120(a6)
	movem.l	(a7)+,d0-d4/a6
	rts
.39	moveq	#24,d4
	lsl.l	d4,d1
	lsl.l	d4,d2
	lsl.l	d4,d3
	jsr	-852(a6)
	movem.l	(a7)+,d0-d4/a6
	rts

	xref	_GfxBase