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

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

_PASS_INIT
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 15 , 0 , 64,127, 64 ,  0
;	allocvoice,2
	panmode,1
	bprg, BANK_SYS,132
	envelope,_PassEnv
	release,128
 	svolume,60
	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_NOTE
	tgate,14
	velo,127
	sweep,_SWEEP_AB1_,an5,4
	bn5,48
	fin

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

	
_PASS_NOTE2
	tgate,14
	velo,127
	sweep,_SWEEP_AB1_,an4,4
	bn4,48
	fin