;----------------------------------------
;  Announce Voice
;
;
; PORT0 : 0-126 : DJ
;	    127 : ANN 
;		     
; PORT1 : ANN NUMBER (0-28)
;
;
; PORT7 : STACK WORK
; PORT6 : MODE NUMBER (0xff: STOP 0x00: Player
;		       0x01: D.J. 0x02: Ann)	
; PORT5 : HOLD MODE (RACE:00 OTHER:01)
;----------------------------------------

_VOICE_SE
   Bmode
   monomode,3	;	Sub limit + note mono
   panmode,1

   fxline,1	;Environment sound.

   spanpow,0	;Change with span ?
   span,64
   strans,0

   sr_load,#$ff
   sr_portwrite,PORT6		;Reset Mode

   evolume,127
   svolume,127
   priority,14
   bprg,BANK_DJ,127	
   fxmix,60

@_openwait
  waith,8
   sr_portread ,PORT0
   brN,@_openwait
   allocvoice,2	
@_restart
@_playstart
   sr_store,0,@_Note(+1)
   opennote, 0,@_Note_L
   opennote, 1,@_Note_R

@_now_on
   waith,8
   sr_portread ,PORT0
   jumpP,@_restart
   chknote,0
   br0,@_now_on
@_stop
   deallocvoice
   bra,@_openwait

;----------------------------	Note


@_Note_R
   npan,96
   bra,@_Note
@_Note_L
   npan,32
@_Note
   ntrans,0			;0-127 offset	
   killpan			;Ignore Percussion Pan
   p00b0w, 1200,127,0		;Velo 127,Gate Max 
   fin