View Single Post
Old 10 February 2017, 10:19   #4
Don_Adan
Registered User
 
Join Date: Jan 2008
Location: Warsaw/Poland
Age: 49
Posts: 915
Code:
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
.colsloop
		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
		rts
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.05948 seconds with 9 queries