//************************************************************
// SD Read/Write Check (EOF)
//
// Used Microchip Memory Disk Drive File System:FAT16
//
// LCD unlook busy : not switch direction (write fixed)
//
// Write Integer/ 500mS in SD
// Read SD/500mS and LCD Disp
//
//
// CPU dsPIC30F4013(Program Memory:48kBytes)
// 7.37MHz Internal RC oscillator, 16x PLL enabled
// Fcy=7.37MHzx16/4=29.48MHz, Tcy=33.92ns
//
// 2010/8/20: 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 "timer.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"};

char msg12[] = {"6 Data Write OK !!\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[1];	// Write Vol for SD Card
unsigned int Buf_Output[1];	// Read  Vol for SD Card
unsigned int SD[20];		// Read FIFO Buf

int N_Write;			// The Number of Write Times 
int N_Read;			// The Number of Read Times

unsigned int ix = 0,iy = 0;
int Mode_SD = 0;		// Write Mode

unsigned char write_error_flag;

//-------------------------------------------------------------------------
// 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: 0x000-0x3e7( 000-999 Disp)

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

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

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

	// LCD Disp
	lcd_inst_wr(loc);

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

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

// Interrupt routine (T1 = 0.5Sec)
void __attribute__((__interrupt__, no_auto_psv)) _T1Interrupt(void)
{
	if (Mode_SD == 0) {	// Write_Mode
		Buf_Input[0] = 100 * (ix + 1);
		N_Write = FSfwrite((const void*)Buf_Input , sizeof(unsigned int) , 1 , pfile);	// File in Write Data
		if (N_Write == 1) {	// Complete Write
			PORTDbits.RD0 = 0;	// LED ON
			lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
			lcd_chr_wr(msg6);	// 'Write OK !!' Disp
			Waitx1ms(100);
		}
			else {
				lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
				lcd_chr_wr(msg9);	// 'Write NG !!' Disp
//				return 0;
				write_error_flag = 1;
			}
		ix++;
}
		else {	// Read Mode
			N_Read = FSfread(Buf_Output , sizeof(unsigned int) , 1 , pfile);	// Data Read from File
			if (N_Read != 0) {	// Not EOF
				PORTDbits.RD0 = 0;	// LED ON
				SD[iy] = Buf_Output[0];
				iy++;
			}
		}
	
	
	//Intterrupt Timer1 Clear
	IFS0bits.T1IF = 0;
}			
			


//------------------------------------------------------------------------------------------
// Main routine
int main(void)
{
	int i;

	// 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

	// Reset SD[i]
	for (i = 0; i < 20; i++) SD[i] = 0;

	write_error_flag = 0;

	// Inittalize Timer1(2Hz = Fcy /256 * 57578)
// 	OpenTimer1(T1_ON & T1_GATE_OFF & T1_PS_1_256 & T1_SYNC_EXT_OFF & T1_SOURCE_INT, 57579-1);
	OpenTimer1(T1_ON & T1_GATE_OFF & T1_PS_1_256 & T1_SYNC_EXT_OFF & T1_SOURCE_INT, 57578-1);	// Mod 110103

	// 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

	pfile = FSfopen("DATA.DAT" , "w");	// File Open (Write Mode) Non File Then Make New File

	Mode_SD = 0;	//Write Mode
	ix = 0;

	// Enable Interrupt
 	ConfigIntTimer1(T1_INT_PRIOR_5 & T1_INT_ON);
	EnableIntT1;

	// Wait till Write Six Data
	do {
		PORTDbits.RD0 = 1;	// LED OFF
		if (write_error_flag == 1) {
				DisableIntT1;
				FSfclose(pfile);	// File Close			
 				while(1);
		}
	}
	while(ix < 6);

	PORTDbits.RD0 = 1;	// LED OFF	
	lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);
	lcd_chr_wr(msg12);	// '6 Data Write OK !!' Disp
	DisableIntT1;

	Waitx1ms(1000);

	FSfclose(pfile);	// File Close

//	while(1);//	PORTDbits.RD0 = 1;	// LED OFF

	pfile = FSfopen("DATA.DAT" , "r");	// File Open (Read Mode)

	Mode_SD = 1;	//Read Mode
	iy = 0;
	N_Read = 1;

	EnableIntT1;

	// Wait till Read Six Data
	do {PORTDbits.RD0 = 1;}	// LED OFF
	while(N_Read != 0);	// Wait till Return Zero(EOF)

	FSfclose(pfile);	// File Close
	DisableIntT1;	

	SD_CS_DISABLE;		// CS = 1

	// Disp Read Data
	lcd_inst_wr(DISP_CLEAR_CURSOR_HOME);

	SD_Read_Data_Disp(SD[0], 0x80);
	one_chr_wr(0x20);
	SD_Read_Data_Disp(SD[1], 0x84);
	one_chr_wr(0x20);
	SD_Read_Data_Disp(SD[2], 0x88);
	one_chr_wr(0x20);
	SD_Read_Data_Disp(SD[3], 0x8c);
	one_chr_wr(0x20);

	SD_Read_Data_Disp(SD[4], 0xc0);
	one_chr_wr(0x20);
	SD_Read_Data_Disp(SD[5], 0xc4);
	one_chr_wr(0x20);
	SD_Read_Data_Disp(SD[6], 0xc8);
	one_chr_wr(0x20);
	SD_Read_Data_Disp(SD[7], 0xcc);
	one_chr_wr(0x20);

	while(1);				

	return 0;
}