'****************************************************************
'*  Name    : VMUSIC2_MAGIC_WAND.BAS                                 *
'*  Author  : Gidi van Liempd                                   *
'*  Notice  : Copyright (c) 2010 Gee!Design (www.geedesign.com) *
'*          : All Rights Reserved                               *
'*  Date    : 21-1-2010                                         *
'*  Version : 1.0                                               *
'*  Notes   :                           *
'*          :                                                  *
'****************************************************************
DEVICE 16F628A                ;Gebruik een 16F628A type 
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF 
ALL_DIGITAL True              ;Alle ingangen digitaal 

SYMBOL LED_ON = 0             ;LED is aan als de uitgang laag is
SYMBOL LED_OFF = 1            ;LED is uit als de uitgang hoog is

'A1 = led (output) 
'A2 = relais (output)
'B1 = RX (hardware serial input) 
'B2 = TX (hardware serial output) 
'B3 = irPin (receive serial input from IR device)

'        76543210 
PORTA = %00000010             ;Alle PORTA poorten laag behalve A.1
TRISA = %11111001             ;Alleen PORTA.1 en PORTA.2 als uitgang 
TRISB = %11111011             ;B.2 is een uitgang

SYMBOL LED1 = PORTA.1 
SYMBOL RELAIS1 = PORTA.2 
SYMBOL True = 1
SYMBOL False = 0
; For the VMUSIC2
SYMBOL RS232_out = PORTB.2 
SYMBOL RS232_in = PORTB.1 
SYMBOL Baudrate = 84          ; 9600 baud, 8-bit, no parity, true
SYMBOL CR = 13  
SYMBOL Stop_track = 32
; For the IR input device 
SYMBOL irPin = PORTB.3
SYMBOL irBaud = 84            ; 9600 baud, 8-bit, no parity, true
SYMBOL com10 = 0              ; command attached to gesture 10
SYMBOL com5 = 5       
SYMBOL com6 = 6

DIM devNum AS BYTE
DIM command AS BYTE

CLEAR                         ;Wis alle RAM geheugen 

init: 
DELAYMS 10000 
' Initialize VMUSIC2
SEROUT RS232_out,Baudrate,["ipa",CR]
DELAYMS 200 
SEROUT RS232_out,Baudrate,["scs",CR]
DELAYMS 10000 

LED1 = LED_OFF
RELAIS1 = 0

;Main program 
MAIN: 

  SERIN irPin,irBaud,[devNum,command];
  IF command = com10 AND LED1 = LED_OFF THEN
    LED1 = LED_ON
    SEROUT RS232_out,Baudrate,[Stop_track,CR]
    SERIN RS232_in,Baudrate,10000,TO_ERROR,[WAIT (">")]     ; confirmation that the track has stopped playing
    SEROUT RS232_out,Baudrate,[29,32,"1.mp3",CR] ;
    SERIN RS232_in,Baudrate,10000,TO_ERROR,[WAIT("P")]      ; wait till file is playing 
    RELAIS1 = 1
    ; DELAYMS 50                                              ; 
  ELSE
    RELAIS1 = 0 
    LED1 = LED_OFF
  ENDIF
      
GOTO MAIN  

TO_ERROR:
; time_out error, initialize VMUSIC again?
GOTO init
 
END