;************************************
;* SUB TRACK 15: System SE           *
;************************************   
;
; No.
;    0    Button Decide
;    1    Cursor Move
;    2    Pause
;
;    8    LapTime!
;    9    Miss!
;   10    Go back!

;   32    cheer



_SYSTEM_SE
	pausestatus,$00
	spanpow,64
	span,64
	panmode,1
	bankchg,BANK_SYS
	Amode
	svolume,110
	evolume,127
	priority,14
	prg,128
	fxmix,0
@_Loop
	waith,8		;2 vframes
	sr_portread,0
	brN,@_Loop
	
	sr_portwrite,7	;stack
	
	sr_sbc,32
	jumpP,@_Subse

	closenote,0
	release,208
	sr_portread,7	;stack
;	sr_extbl,@_NotePrgtable
;	brN,@_WaveMem
;	br0,@_Inst

;............................. Percussion Sound 
@_Perc
	call,@_PercMain
	brA,@_Loop
@_Subse
	tblset,@_Subcall
	ctblcall
	bra,@_Loop	

@_Subcall
#label @_NULL
#label @_NULL,@_NULL,@_NULL,@_NULL,@_NULL,@_NULL,@_NULL
#label @_SS09,@_NULL
#label @_NULL,@_NULL,@_NULL
#label @_NULL,@_ss0d,@_ss0e,@_ss0f


@_NULL
@_SS09
	sopensub,14,_WIPE_SUB
	fin

@_SS0D
	sopensub,13,_NAME_SUB_L
	fin

@_SS0E
	sopensub,13,_NAME_SUB_R
	fin

@_SS0F
	sopensub,13,_NAME_SUB_END
	fin


;---------------------------------------------------
;	PERCUSIION SOUND
;===================================================

@_PercMain
	bprg,BANK_SYS,127
	sr_portread,7
	sr_store,$f0,@_Note(+1)		;-0x10
	opennote,1,@_Note
	fin
	
@_Note
	ntrans,0
	velo,127
	p00w,1000
	fin


;---------------------------------------------------
;	NAME ENTRY SOUND
;===================================================


_NAME_SUB_COMMON
  	Amode
	initpitch
	panmode,1
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 14 , 0 , 64,64, 16 ,  1
	bprg ,BANK_SYS,127
	release,2
 	svolume,127
	fin	

_NAME_SUB_L
	call,_NAME_SUB_COMMON
	opennote,0,@_N0
	wait,4
	opennote,1,@_N1
	
	waitw,360       
	fin
@_N0
	velo,127
	npan,0
	bra,_NAME_NOTE_PLAY

@_N1
	velo,64
_NAME_NOTE_PLAY_RIGHT
	npan,127
_NAME_NOTE_PLAY
	tgate,15
	killpan
	p0bw,360
	fin	

_NAME_SUB_R
	call,_NAME_SUB_COMMON
	opennote,0,@_N0
	wait,4
	opennote,1,@_N1
	
	waitw,360       
	fin
@_N0
	velo,127
	bra,_NAME_NOTE_PLAY_RIGHT
@_N1
	velo,64
	npan,0
	bra,_NAME_NOTE_PLAY

;-------------------------------------------------------
;NAME ENTRY END
;


_NAME_SUB_END
  	Amode
	initpitch
	panmode,1
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 14 , 0 , 64,127, 32 ,  1
	bprg ,BANK_WAVE,0
	envelope,@_ENV_LONG
	release,32
 	svolume,127
	opennote,0,@_N0
	opennote,1,@_N1
	sr_load,#0
	sr_portwrite,PORT7	;PanPower Stock

	wait,32
       loops,127
	sr_portread,PORT7
	sr_store,0,@_Pan(+1)	
	sr_sbc,$ff		; panpow ++
	sr_portwrite,PORT7
@_Pan
	spanpow,0
	waith,2
       loope
	wait,32       
	fin

#evenw
@_ENV_LONG
#word	32,32000,480,0,0,0

@_N0
	npan,32
	bra,@_Play
@_N1
	npan,96
@_Play
	tgate,15
	velo,127
	tieon
	sweep,_ASWEEP_NBL_,gn3,255
	gn3,40
	gn4,50
	gn3,45
	gn2,40
	gn1,30
	fin	



;  		     pause,mono,pri,trs,pan,pow,fxmix,line

_WIPE_SUB
  	Amode
	panmode,1
	initpitch
	multiparamset, $00 ,$00, 14 , 0 , 127,127, 16 ,  0
;	bprg ,BANK_WAVE,0
	bprg ,BANK_SYS,127
 	svolume,127
	opennote,0,@_N1
	sr_load,#0
	sr_portwrite,PORT7	;Pan Stock

       loops,127
	sr_portread,PORT7
	sr_store,0,@_Pan(+1)	
	sr_sbc,$ff		; pan ++
	sr_portwrite,PORT7
@_Pan
	span,0
	waith,1
       loope
	wait,20       
	fin


@_N1
	tgate,15
	velo,127
;	bn4w,260
	dn2w,147		;perc.17
	fin