;---------------------------------
;  PASS BUOY
;=================================

#evenw
_PassEnv
#word	6,16000,4,32000,16,31000,12,16000,8,28000,128,0,0,0

_PASS_INIT
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$01, 15 , +2, 64,127, 48 ,  0
;	allocvoice,2
	priority,$f0	;release 15
	panmode,1
	bprg, BANK_SYS,8
	filgain,$20

	envelope,_PassEnv
;	release,46
	release,6
 	svolume,120
	sreverb,0
	fin
	

_PASS_L_SUB
	call,_PASS_INIT
	span,0
;	opennote,0,_PASS_Note1
;	opennote,1,_PASS_Note2
	bra,_PASS_KYOTU	

_PASS_R_SUB
	call,_PASS_INIT
	span,127
;	opennote,0,_PASS_Note1
;	opennote,1,_PASS_Note2
_PASS_KYOTU
;	waitw,80
	opennote,0,_PASS_NOTE
	opennote,1,_PASS_NOTE2
	waitw,80
	fin

_PASS_NOTE2
	detune,-16	
	xxx,12
	tgate,15
	tieon
	velo,64
	sweep,_SWEEP_ABL_,gn4,16
	cn5,8
	en5,8

;	sweep,_SWEEP_BAL_,gn3,16
	gn5,6
	bn5,6
;	sweep,_SWEEP_ABL_,gn1,12
	gn5,6
	bn5,8
	
	fin



_PASS_NOTE
	tgate,15
	tieon
	velo,127
	sweep,_SWEEP_ABL_,gn4,16
	cn5,8
	en5,8

;	sweep,_SWEEP_BAL_,gn3,16
	gn5,6
	bn5,6
;	sweep,_SWEEP_ABL_,gn1,12
	gn5,6
	bn5,8
	
	fin