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

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

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

	envelope,_PassEnv
	release,96
; 	svolume,60
 	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,64
	fin

_PASS_NOTE2
	detune,+16	

_PASS_NOTE
	tgate,10
	velo,127
;	sweep,_SWEEP_BAL_,gn4,16
;	cn5,8
;	en5,8
;	xxx,12	

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

;_PASS_NOTE
;	tgate,14
;	velo,127
;;	sweep,_ASWEEP_NBL_,bn4,255
;	tieon
;	bn4,12
;	bn5,12
;	sweepend
;	bn4,12
;	bn5,12
;	fin