//************************************************************
// SD Read/Write Check
//
// Used Microchip Memory Disk Drive File System:FAT16
//
// LCD unlook busy : not switch direction (write fixed)
//
//// CPU dsPIC30F2012(Program Memory:12kBytes)
// CPU dsPIC30F4013(Program Memory:48kBytes)
// 7.37MHz Internal RC oscillator, 16x PLL enabled
// Fcy=7.37MHzx16/4=29.48MHz, Tcy=33.92ns
//
// 2010/8/17: N.Ishii
//*************************************************************

/* Addition to MPLAB Project File (Be connected  File System) */
// Source Files Folder   FSIO.c
//                       SD-SPI.c
//                       sd_r_w_check.c
// Header Files Folder   FScohfig.h
//                       FSDefs.h
//                       FSIO.h
//                       GenericTypeDefs.h
//                       SD-SPI.h

// Linker Script Folder  p30f4013.gld

#include <p30f4013.h>
#include "stdio.h"

#include "FSIO.h"

//--------------------------------------------------------------

// Divice configuration
_FWDT(WDT_OFF);
_FGS(CODE_PROT_OFF);
_FOSC(CSW_FSCM_OFF & FRC_PLL16);	//OSC, PLL Setting
_FBORPOR(PBOR_OFF & PWRT_64 & MCLR_EN);

//----------------------------------------------------------------
// message table for SD
char msg1[] = {"SD Card R/W !!\0"};

char msg2[] = {"Initial OK !!\0"};
char msg3[] = {"FileOpen OK !!\0"};
char msg4[] = {"(Write Mode)\0"};
char msg5[] = {"(Read Mode)\0"};
char msg6[] = {"Write OK !!\0"};
char msg7[] = {"SD Data=\0"};

char msg8[] = {"W ModeOpen Error\0"};
char msg9[] = {"Write NG !!\0"};
char msg10[] = {"R ModeOpen Error\0"};
char msg11[] = {"SD Not Mount\0"};

//------------------------------------------------------------------------------

// LCD Define: R/W_pin= GND (Fixed Write)

#define LCD_DATA_WR_MODE LATFbits.LATF1 = 1	// RS_pin = 1
#define LCD_INST_WR_MODE LATFbits.LATF1 = 0	// RS_pin = 0

#define LCD_ENABLE_ON LATFbits.LATF0 = 1
#define LCD_ENABLE_OFF LATFbits.LATF0 = 0

#define LCD_DATA_BIT4 LATBbits.LATB9
#define LCD_DATA_BIT5 LATBbits.LATB10
#define LCD_DATA_BIT6 LATBbits.LATB11
#define LCD_DATA_BIT7 LATBbits.LATB12

//---------------------------------------------------------------------------------------------
// LCD Instraction Code
#define FOUR_BIT_FONT5x7dot 0x28	// + TWO_LINE(1/16Duty), SEG1_50_SEG51_100, COM1_COM16
#define DISP_ON_CURSOR_ON_BLINK_OFF 0x0e
#define DISP_CLEAR_CURSOR_HOME 0x01
#define RAM_WR_AFTER_PLUS_1 0x06	// Entory mode set
#define DDRAM_START_ADDRESS_SET 0x80

#define DISP_ON_CURSOR_OFF_BLINK_OFF 0x0c

//---------------------------------------------------------------------------------------------
// SD Define

#define SD_CS_ENABLE PORTBbits.RB2 = 0	// CS_pin = 0
#define SD_CS_DISABLE PORTBbits.RB2 = 1	// CS_pin = 1

//---------------------------------------------------------------------------------------------

FSFILE *pfile;	// Structure Pointer for FAT File

unsigned int Buf_Input[3];	// Write Vol for SD Card
unsigned int Buf_SD[3];		// Read  Vol for SD Card
int N_Write;			// The Number of Write Times 

//-------------------------------------------------------------------------
// Delay Subrutin

void Waitx1ms(int x)	// Td = 1mS * x
{
	int i,j;

	for(i = 0 ; i < x ; ++i) {
		for(j = 0 ; j < 5000 ; ++j) asm("clrwdt");	//Td=1mS
	}
}

void Waitx1us(int x)	// Td = 1uS * x
{
	int i,j;

	for(i = 0 ; i < x ; ++i) {
		for(j = 0 ; j < 5 ; ++j) asm("clrwdt");	//Td=1uS
	}
}

//--------------------------------------------------------------------

void one_chr_wr(char chr_code)
{
	LCD_DATA_WR_MODE;	//RS_pin = 1: select data Reg

	// A Higher 4bit data out
	LCD_DATA_BIT7 = (unsigned int)((chr_code & 0x80)>>7);
	LCD_DATA_BIT6 = (unsigned int)((chr_code & 0x40)>>6);
 	LCD_DATA_BIT5 = (unsigned int)((chr_code & 0x20)>>5);
 	LCD_DATA_BIT4 = (unsigned int)((chr_code & 0x10)>>4);

	Waitx1us(1);
	LCD_ENABLE_ON;
	Waitx1us(1);
	LCD_ENABLE_OFF;

	// A Lower 4bit data out
	LCD_DATA_BIT7 = (unsigned int)((chr_code & 0x08)>>3);
   	LCD_DATA_BIT6 = (unsigned int)((chr_code & 0x04)>>2);
   	LCD_DATA_BIT5 = (unsigned int)((chr_code & 0x02)>>1);
   	LCD_DATA_BIT4 = (unsigned int)(chr_code & 0x01);

	Waitx1us(1);
	LCD_ENABLE_ON;
	Waitx1us(1);
	LCD_ENABLE_OFF;

	Waitx1us(50);
}

void lcd_chr_wr(char *buffer)
{
    while(*buffer != '\0')
    {
        one_chr_wr(*buffer); /* calling another function */
                                /* to write each char to the lcd module */
        buffer++;
    }
}

void lcd_inst_wr(char inst_code)
{
	LCD_INST_WR_MODE;	//RS_pin = 0: select Instruction Reg
	
	// A Higher 4bit data out
	LCD_DATA_BIT7 = (unsigned int)((inst_code & 0x80)>>7);
  	LCD_DATA_BIT6 = (unsigned int)((inst_code & 0x40)>>6);
  	LCD_DATA_BIT5 = (unsigned int)((inst_code & 0x20)>>5);
   	LCD_DATA_BIT4 = (unsigned int)((inst_code & 0x10)>>4);

	Waitx1us(1);
	LCD_ENABLE_ON;
	Waitx1us(1);
	LCD_ENABLE_OFF;

	// A Lower 4bit data out
	LCD_DATA_BIT7 = (unsigned int)((inst_code & 0x08)>>3);
   	LCD_DATA_BIT6 = (unsigned int)((inst_code & 0x04)>>2);
  	LCD_DATA_BIT5 = (unsigned int)((inst_code & 0x02)>>1);
  	LCD_DATA_BIT4 = (unsigned int)(inst_code & 0x01);

	Waitx1us(1);
	LCD_ENABLE_ON;
	Waitx1us(1);
	LCD_ENABLE_OFF;
	
	if ((inst_code & 0x03) != 0) Waitx1ms(20);	// inst_code is Clear(0x01) or Cursor Home(0x02) Then Wait 20mS
		else Waitx1us(50);			// other code Then Wait 50uS  
}

void lcd_init(void)
{
	// Allow a delay(minimum of 15ms)
	Waitx1ms(20);

//------ 1st step: port_output regster set --------------

	// Initialize the data port/control pins to zero
 	LCD_DATA_BIT7 = 0;
 	LCD_DATA_BIT6 = 0;
 	LCD_DATA_BIT5 = 0;
 	LCD_DATA_BIT4 = 0;

	LCD_INST_WR_MODE;	//RS_pin = 0
	LCD_ENABLE_OFF;		//E_pin  = 0
	
//--------------------------------------------------------

// dsPIC30F4013

//------- 2nd step: port_mode regster set ---------------

	// Configure the data pins as output

	TRISBbits.TRISB9 =0;  // RB9  is LCD DB4 OUTPUT
	TRISBbits.TRISB10 =0;  // RB10 is LCD DB5 OUTPUT
	TRISBbits.TRISB11 =0;  // RB11  is LCD DB6 OUTPUT
	TRISBbits.TRISB12 =0;  // RB12  is LCD DB7 OUTPUT

	// Make all control pins as outputs
	TRISFbits.TRISF0 =0;  // RF0 is LCD Enable OUTPUT
	TRISFbits.TRISF1 =0;  // RF1  is LCD RS OUTPUT

//-------------------------------------------------------


 	// Initialize stage 1: Set stage 1 only 8-bit Interface

	// Set Upper 4 Bit Data on RB9 - RB12
 	LCD_DATA_BIT7 = 0;
 	LCD_DATA_BIT6 = 0;
 	LCD_DATA_BIT5 = 1;
 	LCD_DATA_BIT4 = 1;

	Waitx1us(1);
	LCD_ENABLE_ON;
	Waitx1us(1);
	LCD_ENABLE_OFF;

	Waitx1ms(5);	

 	// Initialize stage 2: Set stage 2 only 8-bit Interface
 	LCD_DATA_BIT7 = 0;
 	LCD_DATA_BIT6 = 0;
 	LCD_DATA_BIT5 = 1;
 	LCD_DATA_BIT4 = 1;

	Waitx1us(1);
	LCD_ENABLE_ON;
	Waitx1us(1);
	LCD_ENABLE_OFF;

	Waitx1ms(1);	

 	// Initialize stage 3: Set stage 3 only 8-bit Interface
 	LCD_DATA_BIT7 = 0;
 	LCD_DATA_BIT6 = 0;
 	LCD_DATA_BIT5 = 1;
 	LCD_DATA_BIT4 = 1;

	Waitx1us(1);
	LCD_ENABLE_ON;
	Waitx1us(1);
	LCD_ENABLE_OFF;

	Waitx1ms(1);	

	// Initialize stage 4: 4-bit Interface
 	LCD_DATA_BIT7 = 0;
 	LCD_DATA_BIT6 = 0;
 	LCD_DATA_BIT5 = 1;
 	LCD_DATA_BIT4 = 0;
	
	Waitx1us(1);
	LCD_ENABLE_ON;
	Waitx1us(1);
	LCD_ENABLE_OFF;

	Waitx1ms(1);	

	//----- Fixed LCD Setting------------

	lcd_inst_wr(FOUR_BIT_FONT5x7dot);	// Function Set
	lcd_inst_wr(DISP_ON_CURSOR_ON_BLINK_OFF);
	lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);	// Set DDRAM Address = 0
	lcd_inst_wr(RAM_WR_AFTER_PLUS_1);	// Entry mode Set
}


//-------------------------------------------------------------------------

void SD_Read_Data_Disp(unsigned int Vol, unsigned char loc)
{
	// Vol: 0x0000-0xffff( 000-65535 Disp)

	unsigned char i;
	unsigned char digit[5];
	unsigned char ascii[5];

	// Bin_to_pacdec
	digit[0] = Vol%10;
	digit[1] = (Vol/10)%10;
	digit[2] = (Vol/100)%10;
	digit[3] = (Vol/1000)%10;
	digit[4] = (Vol/1000)/10;


	// Decimal_to_ascii
	for (i = 0; i <= 4; ++i) {ascii[i] = digit[i] | 0x30;}

	// LCD Disp
	lcd_inst_wr(loc);

	one_chr_wr(ascii[4]);
	one_chr_wr(ascii[3]);
	one_chr_wr(ascii[2]);
	one_chr_wr(ascii[1]);
	one_chr_wr(ascii[0]);
}


//------------------------------------------------------------------------------------------
// Main routine
int main(void)
{
	// Set ADPCFG: RB Port is All Digital Pin
	ADPCFG = 0xFFFF;

	TRISDbits.TRISD0=0;	// RD0 is LED output used debug

	PORTDbits.RD0 = 1;	// LED OFF

	// SD Port Mode Set
	TRISBbits.TRISB2 = 0;	// RB2 is CS/ output
	TRISFbits.TRISF3 = 0;	// RF3 is SDO output
	TRISFbits.TRISF6 = 0;	// RF6 is SCK output

	TRISFbits.TRISF2 = 1;	// RF2 is SDI input
	TRISBbits.TRISB4 = 1;	// RB4 is CD input
	TRISBbits.TRISB5 = 1;	// RB5 is WE input

	SD_CS_DISABLE;		// CS = 1

	// Initialize LCD
	lcd_init();
	lcd_inst_wr(DISP_ON_CURSOR_OFF_BLINK_OFF);

	// Initial Disp 'SD Card R/W !!'
	lcd_inst_wr(0x80);
	lcd_chr_wr(msg1);

	Waitx1ms(1000);


	// Check Mount SD Card and Format
	PORTDbits.RD0 = 0;	// LED ON
	SD_CS_ENABLE;		// CS = 0

	while(FSInit() != 1)	// Check Mount SD Card and Format
	{
		lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
		lcd_chr_wr(msg11);	// 'SD Not Mount' Disp
		Waitx1ms(1000);
		lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
		Waitx1ms(1000);
	}
	// SD Mount
	PORTDbits.RD0 = 1;	// LED OFF
	lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
	lcd_chr_wr(msg2);	// 'Initial OK !!' Disp			
	Waitx1ms(1000);

	SD_CS_DISABLE;		// CS = 1
	
	// File Open (Write Mode)
	PORTDbits.RD0 = 0;	// LED ON
	SD_CS_ENABLE;		// CS = 0
	pfile = FSfopen("DATA.DAT" , "w");	// File Open (Write Mode) Non File Then Make New File
	if (pfile == NULL) {
		lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
		lcd_chr_wr(msg8);	// 'W ModeOpen Error' Disp
		return 0;
	}
		else {	// When Success File Open
			PORTDbits.RD0 = 1;	// LED OFF
			lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
			lcd_chr_wr(msg3);	// 'FileOpen OK !!' Disp
			lcd_inst_wr(0xc0);
			lcd_chr_wr(msg4);	// '(Write Mode)' Disp
			Waitx1ms(1000);
		}


	// Write 1Times 5Byte Data
	PORTDbits.RD0 = 0;	// LED ON
	Buf_Input[0] = 12345;	// Set Write Data
	N_Write = FSfwrite((const void*)Buf_Input , sizeof(Buf_Input) , 1 , pfile);	// Write 1Times 5Byte Data 
	if (N_Write == 1) {	// Complete Write
		PORTDbits.RD0 = 1;	// LED OFF
		lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
		lcd_chr_wr(msg6);	// 'Write OK !!' Disp
		Waitx1ms(1000);
	}
		else {
			lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
			lcd_chr_wr(msg9);	// 'Write NG !!' Disp
			return 0;
		}

	FSfclose(pfile);	// File Close
	SD_CS_DISABLE;		// CS = 1

	//  File Open (Read Mode)
	PORTDbits.RD0 = 0;	// LED ON
	SD_CS_ENABLE;		// CS = 0
	pfile = FSfopen("DATA.DAT" , "r");	// File Open (Read Mode)
	if (pfile == NULL) {
		lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
		lcd_chr_wr(msg10);	// 'R ModeOpen Error' Disp
		return 0;
	}
		else {	// When Success File Open
			PORTDbits.RD0 = 1;	// LED OFF
			lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
			lcd_chr_wr(msg3);	// 'FileOpen OK !!' Disp
			lcd_inst_wr(0xc0);
			lcd_chr_wr(msg5);	// '(Read Mode)' Disp
			Waitx1ms(1000);
		}	

	//  Data Read from File
	PORTDbits.RD0 = 0;	// LED ON
	FSfread(Buf_SD , sizeof(Buf_SD) , 1 , pfile);	// Data Read from File

	FSfclose(pfile);	// File Close
	SD_CS_DISABLE;		// CS = 1

	PORTDbits.RD0 = 1;	// LED OFF

	// Disp Read Data
	lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
	lcd_chr_wr(msg7);	// 'SD Data=' Disp
	SD_Read_Data_Disp(Buf_SD[0], 0x88);

	Waitx1ms(5000);

	return 0;
}