// Чтение файла из 64 Мб MMC-памяти под FAT16
// Последовательный интерфейс (9600,n,8,1) на 20MHz
// Компилятор CC5x

#include 
#pragma config |= 0b.11.111101.11.00.10
#pragma bit CS @ PORTC.2 // Выход для выбора микросхемы CS

uns16 AL, BytN,ByteLes,Claster,FAT,Verz,Dat; // Объявляем переменные
char AH ;

#pragma origin 100

//******************************************************************************
void InitUSART()
{
 BRGH=1;
 SPBRG=129; // (9600 бод при входной тактовой частоте 20 МГц)
 SPEN = 1; // Set_Serial_Pins;
 SYNC = 0; // Set_Async_Mode;
 TX9 = 0; // Set_8bit_Tx;
 RX9 = 0; // Set_8bit_Rx;
 CREN = 1; // Enable_Rx;
 TXEN = 1; // Enable_Tx;
 RCIE=0; // Отключить прерывание Rx
}

//**************************************************************************
void SerString(const char *str) //Передача последовательной строки
{
 char ps;
 ps = *str; // Запомнить указатель на начало строки в ps
 while(ps>0) // Проверка, не достигнут ли конец строки
 {
 str++; // Увеличение указателя для доступа к следующем символу
 if (ps== 0) break; // Проверка, не достигнут ли конец строки
 while(!TXIF); // Проверка, пуст ли регистр TXREG
 TXREG =ps ; // Передача байта данных
 ps = *str; // Запомнить содержимое указателя в ps
 }
}

//*****************************************************************************
char SPI(char d) // Передача по интерфейсу SPI
{
 SSPBUF=d;
 while (!BF); // Ожидание, пока идёт передача
 return SSPBUF; // Одновременный приём
}

//******************************************************************************
char Command(char befF,uns16 AdrH,uns16 AdrL,char befH )
{ // Передача команды в MMC
 char a;
 for (a=0;a<9;a++)
 {
 Carry=0;
 AdrL = rl(AdrL);
 AdrH = rl(AdrH);
 }
 SPI(0xFF);
 SPI(befF);
 SPI(AdrH.high8);
 SPI(AdrH.low8);
 SPI(AdrL.high8);
 SPI(AdrL.low8);
 SPI(befH);
 SPI(0xFF);
 return SPI(0xFF); // Возвращаем ответ на команду
}

//****************************************************************************
bit MMC_Init()
{
 SMP=0; // Вход действителен в середине синхроимпульса
 CKE=0; // CKE=1; // Фронт передачи (Fordere Flanke) (передний)
 CKP=1; // CKP=0; // Низкий уровень – пассивное состояние
 SSPM0=1;
 SSPEN=1; // Включить SPI
 CS=1; // Отключить MMC
 char i; // Переменная
 for(i=0; i < 10; i++)SPI(0xFF);
 CS=0;
 if (Command(0x40,0,0,0x95) !=1)goto Fehler ;
 st:
 if (Command(0x41,0,0,0xFF) !=0) goto st ;
 return 1;
 Fehler:
 return 0;
}

//***********************************************************************************
void Byte_lesen (void)
{
 bit zw;
 char a;
 int16 i;
 zw=0;
 Command(0x51,AH,AL,0xFF);
 while(SPI(0xFF) != 0xFE); // Ожидание 0xFE – начала каждой передачи данных
 for(i=0; i < 512; i++)
 {
 a=SPI(0xFF);
 if (zw)
 {
 ByteLes.high8=a;
 zw=0;
 }
 if (i==BytN)
 {
 ByteLes.low8=a;
 zw=1;
 }

 }
 SPI(0xFF); // В конце 2 незначимых байта
 SPI(0xFF);
}

//******************************************************************************
void Suche(const char *wort)
{
 uns16 i,L,N;
 bit gef;
 char a,m,b;
 gef=0;
 m=0;
 N=Verz+32; // Конец области каталога
 for (L=Verz;Lwhile(SPI(0xFF) != 0xFE);
 for(i=0; i < 512; i++)
 {
 a=SPI(0xFF) ;
 b=wort[m];
 if(a==b)
 {
 m++;
 if(!wort[m])
 {
 SerString("Gefunden ");
 m=0;
 BytN=i;
 AL=L;
 AH=0;
 gef=1;
 }
 goto fu;
 }

 m=0;
 fu:
 }
 SPI(0xFF); // В конце 2 незначимых байта
 SPI(0xFF);
 if(gef) goto raus;
 }
 raus:
 SerString("Beendet ");
 BytN+=16;
 Byte_lesen();
}

//*******************************************************************************
void Lesen(char H,uns16 L)
{
 uns16 i;

 // 512-байтное чтение
 if (Command(0x51,H,L,0xFF) !=0) SerString("Lese_resp_Fehler"); // "Ошибка"
 while(SPI(0xFF) != 0xFE); // Ожидание 0xFE – начала каждой передачи данных
 for(i=0; i < 512; i++)
 {
 while(!TXIF); // Проверка, пуст ли регистр TXREG
 TXREG =SPI(0xFF); // Передача байта данных
 }
 SPI(0xFF); // В конце 2 незначимых байта
 SPI(0xFF);
}

//*********************************************************************************

void main(void)
{
 uns16 temp;
 INTCON=0; // Отключить прерывания
 ADCON1=0x6; // Все выходы PortA - цифровые
 TRISC=0b.1101.0011; // sck rc3-0, sdo rc5-0, CS rc2-0.
 TRISB=0b.0000.0010; // RB2>TX, RB1<RX
 InitUSART(); // 1 шаг. Инициализация последовательной передачи данных
 //SerString("Ich bin ON "); // Стартовое сообщение
 MMC_Init(); // 2 шаг

 // Определение начала каждой области
 AL=0; // 3 шаг
 AH=0;
 BytN=0x1C6;
 Byte_lesen();
 AL=ByteLes; // 4 шаг
 BytN=0xE; // 5 шаг
 Byte_lesen();
 FAT=ByteLes+AL; // 6 шаг
 BytN=0x16; // 7 шаг
 Byte_lesen();
 ByteLes=ByteLes*2;
 Verz=FAT+ByteLes; // 8 шаг
 Dat=Verz+32; // 9, 10 шаги


 Suche("TEST TXT"); // 11 шаг

 while(ByteLes != 0xFFFF) // 12, 25 шаги
 {
 Claster=ByteLes; // 13 шаг
 Claster=Claster-2; // 14 шаг
 AL=Claster; // 15 шаг
 Carry=0; // 16 шаг Здесь учитываются границы переменной (флаг переноса)
 AL = rl(AL); // Умножение на 2 с переносом
 AH = rl(AH);

 #asm // 17 шаг
 MOVF Dat+1,W
 ADDWF AL+1,1
 MOVF Dat,W
 ADDWF AL,1
 BTFSS 0x03,Carry
 GOTO keinCarry
 BCF 0x03,Carry
 INCF AL+1,1
 BTFSC 0x03,Carry
 INCF AH,1
 keinCarry:
 #endasm

 Lesen(AH,AL); // 18 шаг Первый блок кластеров
 Carry=0; // 19 шаг
 AL++;
 if(Carry)AH++; // Здесь учитываются границы переменной (флаг переноса)
 Lesen(AH,AL); // 20 шаг Второй блок кластеров

 AL=FAT; // 21 шаг следующий кластер
 temp=ByteLes/0x100;
 AL=AL+temp; // 22 шаг
 temp=temp*0x100; // 23 шаг
 BytN=ByteLes-temp;
 BytN=BytN*2;
 Byte_lesen(); // 24 шаг

 }