;======================================================================================================================
; Init Colours
;======================================================================================================================

InitColours:
		move.l	#GameScreenBitplanes,d0			; Source Image Address
		add.l	#40*256*4,d0					; Add a bitplane size * number of bitplanes to get First Colour Address
		move.l	d0,a0							; Move to A0 since we will work with Address Register

		lea		GameScreenColours,a1			; Get the Address of where the colours are in the Copper list
		moveq	#16-1,d1						; Number of Colours
	.NextColour:
		move.w	(a0)+,(a1)						; Copy the Word to teh Copper list Address Word
		addq.l	#4,a1							; Add 4 to the Copper list Address
		dbra	d1,.NextColour					; Loop

		rts