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

#evenw
_PassEnv
#word	4,32000,16,31000,24,0,0,0

_PASS_INIT
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$02, 14 , 0 , 64,127, 48 ,  0
	allocvoice,2
	panmode,1
	bprg, BANK_SYS,128	;129,128,
	envelope,_PassEnv
	release,80
 	svolume,127
	fin
	

_PASS_L_SUB
	call,_PASS_INIT
	span,0
	bra,_PASS_KYOTU	

_PASS_R_SUB
	call,_PASS_INIT
	span,127
_PASS_KYOTU
	opennote,0,@_PASS_NOTE
	waitw,16
	opennote,1,@_PASS_NOTE_2
	waitw,64
	fin

@_PASS_NOTE
	ntrans,+7
@_PASS_NOTE_K
	tgate,15
	velo,127
	tieon
	en4,4
	velo,87
	gn4,4
	cn5,4
	velo,67
	gn4,4
	cn5,4
	velo,47
	en5,4
	gn5,8
	fin


@_PASS_NOTE_2
	ntrans,+7
	tgate,15
	velo,97
	tieon
	en4,4
	velo,67
	gn4,4
	cn5,4
	velo,47
	gn4,4
	cn5,4
	velo,27
	en5,4
	gn5,8
	fin