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

#evenw
_PassEnv
#word	2,32000,16,31000,16,16000,12,24000,48,0,0,0

_PASS_INIT
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$02, 14 , 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
;	bn5,48
;	fin

_PASS_NOTE
	tgate,15
	velo,127
	tieon
	bn4,8
	bn5,12
	xxx,4
	bn4,8
	bn5,12
	xxx,4

	bn4,12
	tgate,13
	bn5,12
	fin

	
_PASS_NOTE2
	tgate,14
	velo,127
	bn4,48
	fin