;


#define PRG_CHEER1 15
#define PRG_CHEER2 15

#define PRG_START $10

_CHEER_SE
   Amode
   initpitch
;    	        pause,mono,pri,trs, pan,pow,fxmix,line
   multiparamset, $a0 ,$01, 14 , 0 , 64, 127, 80 ,  1

;   monomode,1		;no limit & note mono
    panmode,1
    
   vibdelay,0
   vibdepth,16		;very soft
   vibpitch,16		;very slow
      
;   fxmix,80
;   fxline,1
;   span,64
;   spanpow,127
;   priority,14

   svolume,127
   evolume,127
  
   release,120
   bprg, BANK_CHEER,0

@_WAIT
   waith,8
   sr_portread  ,PORT0
   jumpN, @_WAIT
@_RESTART
   sr_portwrite ,PORT4

   sr_sbc,#PRG_START			;This is Start Cheer Only.
   jump0,@_CHEER_START
   sr_portread  ,PORT4

   allocvoice,1
   sr_store,0,@_NORMALCHEER_PROG(+1)

   opennote,0,@_NORMALCHEER

@_ACTIVE
   waith,8
   sr_portread  ,PORT0
   jumpN,@_ACTIVE2
   deallocvoice
   jump,@_RESTART
@_ACTIVE2   
   chknote, 0
   jump0,@_ACTIVE
   deallocvoice
   jump,@_WAIT

@_CHEER_START
   allocvoice,2
   opennote,0,@_CHEER1
   opennote,1,@_CHEER2
   waitw,1200
   sr_portread,0		;Cancel data.
   deallocvoice
   jump,@_WAIT
      

@_CHEER1
   velo,127
   tgate,15
   nprg,PRG_CHEER1
   cn4w,1200
   fin
   	
@_CHEER2
   velo,127
   tgate,15
   nprg,PRG_CHEER2
   cn4w,1200
   fin
   	
@_NORMALCHEER
   velo,127
   tgate,15
@_NORMALCHEER_PROG
   nprg,0
   cn4w,1200
   fin