View Single Post
Old 10 February 2017, 10:19   #4
Registered User
Join Date: Jan 2008
Location: Warsaw/Poland
Age: 50
Posts: 971
CreatePalette	lea	Palette,a0
		move.w	#256,(a0)+			;Number of colours to load
		clr.w	(a0)+				;Register number to start from
                moveq  #-1,D6
                move.l   #$01010101,D7
		not.l	d6
		move.l	d6,(a0)+
		move.l	d6,(a0)+
		move.l	d6,(a0)+
                not.l d6
                sub.l D7,D6
		bcc.b .colsloop
		clr.l	(a0)				;Close Structure
Maybe it can works, but I dont checked this.

Last edited by Don_Adan; 10 February 2017 at 11:42. Reason: shortest version
Don_Adan is offline  
Page generated in 0.03932 seconds with 10 queries