Hello

I wrote my MP3-Player in mikroPascal. I used a VS1001 decoding IC,
a PIC18F458, a Nokia 3310 LCD and a 256MB Compact Flash

The player can support MP3 up to 256KBPs, reads the ID3 tag and
supports long file names but only on the root directory.

I used SPI to communicate with the VS1001

Here are the procedures:

//**********************************************************//
Procedure VS1001_MP3(data : byte);
Begin
SetBit(PortC,2); //Take BSYNQ high
SSPBUF := data; //Start sending data via SPI
while TestBit(SSPSTAT, BF) = 0 do //wait for spi to finish
ClearBit(PortC,2); // Take BSYNQ low

End;
//**********************************************************//
Procedure VS1001_Set (data : byte);
Begin
SSPBUF := data; //Start sending data via SPI
while TestBit(SSPSTAT, BF) = 0 do //wait for spi to finish
nop;
End;
//**********************************************************//

Example program:

1. To set the volume to 100%:
ClearBit(PortC,7); // clear xCS
VS1001_Set(0x02); // command to enable write (0x03 to read)
VS1001_Set(0x0B); // volume register
VS1001_Set(0x00); // left volume
VS1001_Set(0x00); // right volume
SetBit(PortC,7); // set xCS

2. To send the actual MP3 data:
If TestBit(PortC,0) = 1 then // Test the DREQ line
Begin
bloop := 32; // Sends 32 bytes
INTCON := 0; // Disable interrupts
While bloop > 0 do
Begin
VS1001_MP3(CF_Read_Byte(PortB,PortD)); // Read byte from CF and sends it to the VS1001
dec(bloop);
End;
INTCON := $A0; // Enable interrupts

Hope you find this usefull
Anton