Datasheet

{$IFDEF RS232_debug}
UART1_Write_Text('PIC-Started'); // If PIC present report
UART1_Write(13);
UART1_Write(10);
{$ENDIF}
// Before all, we must initialize a MMC card
SPI1_Init_Advanced(_SPI_MASTER, _SPI_FCY_DIV2, _SPI_CLK_LO_LEAD-
ING);
Spi_Rd_Ptr := @SPI1_Read;
i := Mmc_Init();
PORTC := i;
{$IFDEF RS232_debug}
if(i = 0) then
begin
UART1_Write_Text('MMC Init-OK'); // If MMC present report
UART1_Write(13);
UART1_Write(10);
end;
if(i) then
begin
UART1_Write_Text('MMC Init-error'); // If error report
UART1_Write(13);
UART1_Write(10);
end;
{$ENDIF}
for i:=0 to 511 do
dData[i] := 'E'; // Fill MMC buffer with same characters
i := Mmc_Write_Sector(55, dData);
{$IFDEF RS232_debug}
if(i = 0) then
UART1_Write_Text('Write-OK')
else // if there are errors.....
UART1_Write_Text('Write-Error');
UART1_Write(13);
UART1_Write(10);
{$ENDIF}
// Reading of CID and CSD register on MMC card.....
{$IFDEF RS232_debug}
i := Mmc_Read_Cid(data_for_registers);
if(i = 0) then
begin
for k:=0 to 15 do
begin
287
MIKROELEKTRONIKA - SOFTWARE AND HARDWARE SOLUTIONS FOR EMBEDDED WORLD
Libraries
mikroPASCAL PRO for AVR
CHAPTER 6