#dontinclude
#dontinclude
; include file

equalizer


	if	x,#1=sid_playmusic_gate4
	lda	#8
	sta	eq_s1
	endif
	if	x,#1=sid_playmusic_gate5
	lda	#8
	sta	eq_s2
	endif
	if	x,#1=sid_playmusic_gate1
	lda	#8
	sta	eq_s3
	endif
	if	x,#1=sid_playmusic_gate2
	lda	#8
	sta	eq_s4
	endif
	if	x,#1=sid_playmusic_gate3
	lda	#8
	sta	eq_s5
	endif

	line(#0,#6,#8,#6,eq_s1,#0)	;8-12
	line(#0,#6,eq_s1,#6,#12,#7)	;8-12
	line(#0,#8,#8,#8,eq_s2,#0)	;8-12
	line(#0,#8,eq_s2,#8,#12,#3)	;8-12
	line(#0,#10,#8,#10,eq_s3,#0)	;8-12
	line(#0,#10,eq_s3,#10,#12,#5)	;8-12 gat 1
	line(#0,#12,#8,#12,eq_s4,#0)	;8-12
	line(#0,#12,eq_s4,#12,#12,#3)	;8-12
	line(#0,#14,#8,#14,eq_s5,#0)	;8-12
	line(#0,#14,eq_s5,#14,#12,#7)	;8-12



	inc	eq_c1
	if	b,eq_c1>#2
	clr	eq_c1
	if	b,eq_s1<#12
	inc	eq_s1
	endif
	if	b,eq_s2<#12
	inc	eq_s2
	endif
	if	b,eq_s3<#12
	inc	eq_s3
	endif
	if	b,eq_s4<#12
	inc	eq_s4
	endif
	if	b,eq_s5<#12
	inc	eq_s5
	endif
	endif




	rts



def	eq_c1	byte
def	eq_s1	byte
def	eq_s2	byte
def	eq_s3	byte
def	eq_s4	byte
def	eq_s5	byte


