#define PRG_KAMOME  0
#define PRG_DOLPHIN 1

#define PRG_KAMOSTART 5
#define PRG_KAMOFLY   6

#define PRG_ICEBREAK  7

_Object_Se
    Bmode
   initpitch
;    	        pause,mono,pri,trs, pan,pow,fxmix,line
   multiparamset, $20 ,$01, 12 , 0 , 64, 0, 80 ,  1


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

@_WAIT
   bprg, BANK_OBJECT,0
   waith,8
   sr_portread ,PORT0	;type input
   jumpN,@_WAIT
   sr_portwrite ,PORT4	;reserve
   sr_store,0,@_OBJ_PROG(+1)

   sr_sbc,#16
   jumpP,@_SEQUENCES


   pausestatus,$20

   sr_portread ,PORT1	;verocity input
   sr_store,0,@_OBJ_TONE(+3)
   sr_portread ,PORT2	;pan input
   sr_store,0,@_OBJ_PAN(+1)
   sr_portread ,PORT3	;obj pitch
   sr_store,0,@_OBJ_TRANS(+1)

;...........................................For Debug
;   sr_load,#3
;   sr_extbl,@_OBJ_TONE	;Get Velocity
;   sr_portwrite,PORT7	;Write CheckPort
;...........................................

   opennote,0,@_OBJ_NOTE
   jump,@_WAIT

@_SEQUENCES
   tblset, @_CALL_TABLE
   ctblcall
   jump,@_WAIT


#evenw
@_CALL_TABLE		; 16 -
#label _SEQ_GATEOPEN
#label _SEQ_HERICOPTER   	   	   
#label _SEQ_KAMO
#label _SEQ_ICE
#label _SEQ_DOLIN
#label _SEQ_ORCAIN

@_OBJ_NOTE

@_OBJ_TRANS
   ntrans,0
@_OBJ_PROG
   nprg,0
@_OBJ_PAN
   npan, 64
@_OBJ_TONE
   cn4b0w,400 ,127,0
   fin



;---------------------------------
;	GATE OPEN SE
;=================================


_SEQ_GATEOPEN
;   opennote,1,@_NOTE2
;  opennote,2,@_NOTE0
;   opennote,3,@_NOTE1
   pausestatus,$A0		;pause stop,vol down

   opennote,0,@_NOTE
   opennote,1,@_NOTE2
   opennote,2,@_NOTE3
   waitw,450
   fin

@_NOTE
    npan,64
    nprg,1
    gn3b0w,250,107,0
    nprg,2
    cn4b0w,200,127,0
    fin
@_NOTE2
    npan,16
    nprg,1
    xxx,1
    cn3b0w,249,107,0
    nprg,2
    npan,32
    cn4b0w,200,127,0
    fin
@_NOTE3
    npan,102
    nprg,1
    xxx,2
    cn2b0w,248,117,0
    nprg,2
    npan,96
    cn5b0w,200,127,0
    fin
    
   

;@_NOTE0
;    nprg,1
;    tieon
;    sweep,_ASWEEP_AB1_,an3,255	
;    as3b0w,260,100,0
;    tieoff
;    nprg,2
;    gn4b0w,100,120,0
;    fin
    
;@_NOTE1
;    nprg,1
;    cn3b0w,280,120,0
;    nprg,2
;    cn2b0w,100,120,0
;    fin
    
;@_NOTE2
;    nprg,2
;    gn2b0w,280,90,0
;    fin
    


;_SEQ_GATEOPEN
;   envelope,@_GATEOPEN_ENV
;   opennote,2,@_NOTE0
;   opennote,3,@_NOTE1
;   fin

;#evenw
;@_GATEOPEN_ENV
;#word 32,32000,-1,0
	
;@_NOTE0
;   nprg,130
;   sweep,_ASWEEP_AB1_,cn1,24
;   fn2b0w,400,127,0
;   an0b0,032,127,0
;   an0b0,064,96,0
;   fin
 
;@_NOTE1
;   nprg,131
;   xxx,001
;   sweep,_ASWEEP_AB1_,cn1,24
;   cs1b0w,400,96,0
;   cn1b0,032,127,0
;   cn1b0,064,96,0
;   fin


 
;---------------------------------
;	HERICOPTER SE
;=================================

_SEQ_HERICOPTER
   pausestatus,$20		;vol down
;   evolume,0	
   opennote,0,@_note1
;   fxmix,32
    fxmix,48
    
@_Check
   waith,8   
   sr_portread ,PORT4	;End code
   brN,@_Exit		;PORT4=0xff stop
   bra,@_Check

@_Exit
   closenote,0
   fxmix,80
   stune,$8000
   evolume,127
   fin 
   
 
@_note1
   nprg,3
   sweep,_ASWEEP_NBL_,cn4,255
   tieon
@_loop
 loops,3
   loops,2
     cn4b0,30  ,127,0
     bn3b0,100 ,117,0
     cs4b0,50  ,107,0
     as3b0,120 ,117,0
   loope
  
   bn3b0,30   ,107,0
   cs4b0,70   ,117,0
   bn3b0,50   ,127,0
 loope
 cn4b0,60 ,107,0
 bn3b0,10 ,127,0
 cs4b0,70 ,107,0
 as3b0,90 ,117,0
 jump,@_loop
 

;---------------------------------
;	KAMO SE
;=================================

_SEQ_KAMO
   pausestatus,$d0		;seq stop,mute,vol down
   fxmix,64
   prg,PRG_KAMOSTART
   opennote,0,@_Note1

   waitw,200
   prg,PRG_KAMOFLY
   opennote,0,@_Note2
@_Check
   waith,8   
   sr_portread ,PORT4	;End code
   brN,@_Exit		;PORT4=0xff stop
   bra,@_Check

@_Exit
   closenote,0
   fxmix,80
   evolume,127	 
    fin 
   
 

@_Note1
   cn4b0w,200,127,0
   fin
      
@_Note2
   tieon
@_N2Loop
   cn4b0,8,127,0
   bra,@_N2Loop
 
;---------------------------------
;	ICE SE
;=================================

_SEQ_ICE
   pausestatus,$40
   fxmix,64
   prg,PRG_ICEBREAK
   opennote,0,@_Note1
   wait,14
   opennote,1,@_Note2
   wait,20
   opennote,2,@_Note3
   waitw,160
   closenote,0
   closenote,1
   closenote,2
   fxmix,80
   fin 
   
@_Note1
   an3b0 ,10,127,0
@_Note2
   cn4b0w,120,127,0
   fin
      
@_Note3
   en4b0w,10,127,0
   gn4b0w,120,127,0
   fin
   
;---------------------------------
;	DOLPHIN IN
;=================================

_SEQ_DOLIN
   bprg,BANK_TEST,127

   sr_portread ,PORT2	;pan input
   sr_store,0,@_OBJ_PAN(+1)
   sr_portread ,PORT1	;verocity input
   sr_store,0,@_OBJ_TONE(+3)

   opennote,0,@_OBJ_NOTE
   waitw,260
   closenote,0
   fin 

@_OBJ_NOTE
   killpan
@_OBJ_PAN
   npan, 64
@_OBJ_TONE
   p00b0w(+9),260 ,127,0
   fin
   
;---------------------------------
;	ORCA IN
;=================================

_SEQ_ORCAIN
   bprg,BANK_TEST,127
   fxmix,64
   pitchbend,-80
   sr_portread ,PORT2	;pan input
   sr_store,0,@_OBJ_PAN(+1)
   sr_portread ,PORT1	;verocity input
   sr_store,0,@_OBJ_TONE(+3)

   opennote,0,@_OBJ_NOTE
   waitw,260
   closenote,0
   fxmix,80
   pitchbend,0
   fin 

@_OBJ_NOTE
   killpan
@_OBJ_PAN
   npan, 64
@_OBJ_TONE
   p00b0w(+11),260 ,127,0
   fin