; colour cycler routines :
; 1. Add a cycle - specifies which palette entry(ies) to cycle, and points to the cycle data
; 2. Stop a cycle - clears cycle from list
; 3. Perform cycle update

;do_cycles::
;	movem.l	d0-d2/a0,-(sp)
;	movea.l	#cycle_list,a0


	inmax	= $80
	inmin	= $60

colhack::
	move.b	Palette.w,d0
	add.b	cycdir.w,d0
	cmpi.b	#inmax,d0
	bhi	.chg
	cmpi.b	#inmin,d0
	bhs	.use
.chg:	neg.b	cycdir.w
	add.b	cycdir.w,d0
.use:	move.b	d0,Palette.w
	rts
