Click here for download archive with source code and schematic

'///////////////////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////
'
' MP_3_PLAYER with VS1001k FOR MP3.FILES FORMAT Name 8.3 FAT16 AVR-DOS 5.5
' data 14-06-2007 versione BASCOM 1.8.11.3 AVR-DOS 5.5
' written by GIOVANNI DE LUCA
' HTTP://delucagiovanni.interfree.it robot applications and others
' HTTP://WWW.LNS.INFN.IT nuclear phisics applications
' HTTP://www.youtube.com/tubincolo my video mobile-robots
' deluca@lns.infn.it my e-mail
' to control it's used serial port com1 and pul "UP" to change songs
' to make test I used 64Mb MMC with 20 songs in the MMC
' but I thing that it's possible read bigger MMC memory without problem
'
'///////////////////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////

$prog &HFF , &H4F , &HC5 , &HFF 'FUSE BITS generated
$regfile = "M128def.dat" 'IT'S POSSIBLE USE DIFFERENT AVR-CHIPS
$crystal = 14745600 'BUT this NOT TESTED
$baud = 115200
'-------------------------------------------------------------------------------
Config Timer1 = Timer , Prescale = 64
Config Clock = Soft
Enable Interrupts
Enable Timer1
Enable Urxc 'abilita rs232
On Timer1 Timer_1
On Urxc Rs_232 'salto per rs232
Config Date = Dmy , Separator = .
'-------------------------------------------------------------------------------
 Avanti Alias Ping.0
 Led Alias Portg.1
 Vs_miso Alias Pinc.0
 Vs_mosi Alias Portc.1
Vs_clock Alias Portc.2
 Xcs Alias Portc.3
 Xreset Alias Portc.4
 Dreq Alias Pinc.5
 Bsync Alias Portc.6
'-------------------------------------------------------------------------------
Config Avanti = Input 'pulsante avanti
Config Led = Output 'led
Config Vs_miso = Input 'serial input vs-1001
Config Vs_mosi = Output  'serial out vs-1001
Config Vs_clock = Output 'serial clock vs-1001
Config Xcs = Output 'VS Chip Select
Config Xreset = Output 'VS Reset
Config Dreq = Input 'VS Data Request
Config Bsync = Output 'VS Stream Request
'-------------------------------------------------------------------------------
Declare Sub Vs_init()
Declare Sub Soft_reset()
Declare Sub Vs_write(byval Vs_address As Byte , Byval Data1 As Byte , Byval Data2 As Byte)
Declare Function Vs_read(byval Vs_address As Byte) As Word
Declare Sub Send_mp3(byval Filename As String)
'-------------------------------------------------------------------------------
Const Vs_rd = &B0000_0011 'Write command vs1001
Const Vs_wr = &B0000_0010 'Read command vs1001
Const Vs_mode = 0
Const Vs_status = 1
Const Vs_clockf = 3
Const Vs_decode_time = 4
Const Vs_audata = 5
Const Vs_volume = 11
'-------------------------------------------------------------------------------
Dim B As Byte
Dim I As Integer
Dim J As Long
Dim Curbyte As Long
Dim S As String * 20
Dim Sample_rate As Word
Dim Bit_rate As Word
Dim Is_stereo As Word
Dim Audata As Word
Dim Filename As String * 11
Dim Mmc_data(512) As Byte '512 byte
Dim Tempo_new As Word
Dim Tempo_old As Word
Dim Flag_read As Bit
Dim Flag_play As Bit
Dim Comando As String * 10
Dim Mode_low As Byte
Dim Mode_hig As Byte
Dim Volume As Word
Dim Volume_low As Byte
Dim Volume_hig As Byte
'-------------------------------------------------------------------------------
$Include "Config_MMC.bas" 'include mmc

If Gbdriveerror <> 0 Then End
$Include "Config_AVR-DOS.BAS" 'include avr-dos

B = Initfilesystem(1) 'init file system
If B <> 0 Then Print "Errore MMC" 'se errore
'-------------------------------------------------------------------------------
Bsync = 0
Xreset = 0
Xcs = 1
Portg.0 = 1  'res pull up
Flag_play = 0 'sta suonando ?
Flag_read = 1 'gia letto ?
'-------------------------------------------------------------------------------
'-------------------------- PROGRAM START -------------------------------------
'-------------------------------------------------------------------------------
Print "Dir *.mp3" 'dir mp3
Print
'-------------------------------------------------------------------------------
'---------------------- crea una lista dei brani mp3 presenti sulla MMC --------
'-------------------------------------------------------------------------------
Open "Lista.txt" For Output As #9 'create file.list in MMC
S = Dir( "*.mp3")
While Len(s) > 0
 Print S ; " " ; Filedate() ; " " ; Filetime() ; " " ; Filelen()
 Print #9 , S 'memorizza la lista
 S = Dir()
Wend
Close #9
'-------------------------------------------------------------------------------
Print "VS1001 Init"
Vs_init 'reset hardware e inizializza
'-------------------------------------------------------------------------------
'--------------------------- MAIN PROGRAMM -------------------------------------
'-------------------------------------------------------------------------------
Do

 Loop
End
'-------------------------------------------------------------------------------
'---------------------------- TIMER 1 ------------------------------------------
'-------------------------------------------------------------------------------
Timer_1:
  If Bsync = 0 And Flag_play = 1 And Flag_read = 1 Then 'per leggere inforamzioni

 End If

 If Bsync = 0 And Flag_play = 1 And Flag_read = 0 Then
 Tempo_new = Vs_read(vs_decode_time)

 If Tempo_new <> Tempo_old Then Print Tempo_new ; " Sec"

 End If

Return
'-------------------------------------------------------------------------------
'---------------------- RS 232 -------------------------------------------------
'-------------------------------------------------------------------------------
Rs_232:
 Comando = Inkey()
 If Comando = "1" Then

 End If
 If Comando = "2" Then

 End If
 If Comando = "3" Then

 End If
 If Comando = "4" Then

 End If
 If Comando = "5" And Volume_low < 250 Then

 End If
 If Comando = "6" And Volume_low > 0 Then

 End If
 Comando = ""
Return
'-------------------------------------------------------------------------------
'------------------------------ MP3 SUBROUTINES --------------------------------
'-------------------------------------------------------------------------------
Function Vs_read(byval Vs_address As Byte) As Word

 End Function
'-------------------------------------------------------------------------------
'-------------------------------- WRITE ROUTINE --------------------------------
'-------------------------------------------------------------------------------
Sub Vs_write(byval Vs_address As Byte , Byval Data1 As Byte , Byval Data2 As Byte)

 End Sub
'-------------------------------------------------------------------------------
'------------------------------- RESETTA E INIZILIZZA --------------------------
'-------------------------------------------------------------------------------
Sub Vs_init()

 
End Sub
'-------------------------------------------------------------------------------
'--------------------------- SOFT RESET VS1001 ---------------------------------
'-------------------------------------------------------------------------------
Sub Soft_reset

 End Sub
'-------------------------------------------------------------------------------
'---------------------------- SEND FILE MP3 ------------------------------------
'-------------------------------------------------------------------------------
Sub Send_mp3(byval Filename As String)

 Wend

Esci:
 Flag_play = 0 'stop play
 Close #10
 For I = 1 To 2048 'send 2048 zeros to clear buffer

 Next I
 Print "MP3 End" 'end song

 Waitms 100 'aspetta 100
End Sub
'-------------------------------------------------------------------------------