#define PORT0	0
#define PORT1	1
#define PORT2	2
#define PORT3	3
#define PORT4	4
#define PORT5	5
#define PORT6	6
#define PORT7	7

#include "neos64.def"

;****************
;* GROUP TRACK  *
;****************   

_Start
   defpause,$20
   pausevolume,60

   volumemode,_VOLCHG_FADEIN_,10
   volumechg,127

   tempochg,200			;2process / 1 Vframe
   allocsub,$ffff		;Track 0-7 ,89,,10-11,13-15

;------------------------------ First Needs 
   opensub , 0, _BTEST_SUB

@_Wait   
   wait,16
   jump, @_Wait
   FIN



_BTEST_SUB
   panmode,1
   spanpow,0
   Amode
   svolume,127
   evolume,127


@_Wait1
   return
   sr_portread,0
   jumpN,@_Wait1

@_Restart
   sr_store,0,_BTEST_TONE
   sr_portwrite,4		;Current Stack.
   sr_portread,1
   sr_store,0,@_BTEST_BANK(+1)	;Bank Number
   sr_portread,2
   sr_store,0,@_BTEST_PRG(+1)	;Tone Number

@_BTEST_BANK
   bankchg,0
@_BTEST_PRG
   prg,0
   opennote,0,_BTEST_NOTE

@_Wait2
   return
   sr_portread,0
   jumpP,@_Restart
   sr_portread,4
   jumpP,@_Wait2
@_Stop 
   closenote,0
   jump,@_Wait1


_BTEST_NOTE
   npan,64
   velo,127
   dgate,0
   tieon
_BTEST_TONE
@_Loop
   cn4w, 1024			;Velo 127,Gate Max 
   jump,@_Loop   
   fin