#include "I2C.h"

void I2C_Initial( void )
{
    P1DIR |= SCL;		//將SCL管腳（P1.3)設置為輸出管腳
    I2C_Set_sck_low();
    I2C_STOP();
    Delay_ms(10);
    return;
}
void I2C_Set_sda_high( void )
{
    P1DIR |= SDA;		//將SDA設置為輸出模式
    P1OUT |= SDA;		//SDA管腳輸出為高電平
    
    _NOP();
    _NOP();
    return;
}
void I2C_Set_sda_low ( void )
{
    P1DIR |= SDA;		//將SDA設置為輸出模式
    P1OUT &= ~(SDA);		//SDA管腳輸出為低電平
    
    _NOP();
    _NOP();
    return;
}
void I2C_Set_sck_high( void )
{
    P1DIR |= SCL;		//將SCL設置為輸出模式
    P1OUT |= SCL;		//SCL管腳輸出為高電平
    
    _NOP();
    _NOP();
    return;
}
void I2C_Set_sck_low ( void )
{
    P1DIR |= SCL;		//將SCL設置為輸出模式
    P1OUT &= ~(SCL);		//SCL管腳輸出為低電平
    
    _NOP();
    _NOP();
    return;
}
int  I2C_GetACK(void)
{
    int nTemp = 0;
    int j;
    
    _NOP();
    _NOP();
    I2C_Set_sck_low();
    for(j = 30;j > 0;j--);
    P1DIR &= ~(SDA);		//將SDA設置為輸入方向
    //I2C_Set_sda_high();
    I2C_Set_sck_high();
    
    for(j = 30;j > 0;j--);
    nTemp = (int)(P1IN & SDA);	//獲得數據
    
    I2C_Set_sck_low();
    
    return (nTemp & SDA);
}
void I2C_SetACK(void)
{   
    I2C_Set_sck_low();
    I2C_Set_sda_low();
    I2C_Set_sck_high();
    I2C_Set_sck_low();
    return;
}
void I2C_SetNAk(void)
{
    I2C_Set_sck_low();
    I2C_Set_sda_high();
    I2C_Set_sck_high();
    I2C_Set_sck_low();
    return;
}
void I2C_START(void)
{
    int i;
    
    I2C_Set_sda_high();
    for(i = 5;i > 0;i--);
    I2C_Set_sck_high();
    for(i = 5;i > 0;i--);
    I2C_Set_sda_low();
    for(i = 5;i > 0;i--);
    I2C_Set_sck_low();
    return;
}
void I2C_STOP(void)
{
    int i;
    
    I2C_Set_sda_low();
    for(i = 5;i > 0;i--);
    I2C_Set_sck_low();
    for(i = 5;i > 0;i--);
    I2C_Set_sck_high();
    for(i = 5;i > 0;i--);
    I2C_Set_sda_high();
    for(i = 5;i > 0;i--);
    I2C_Set_sck_low();
    Delay_ms(10);		//延遲一點時間
    
    return;
}
void I2C_TxByte(int nValue)
{
    int i;
    int j;
    
    for(i = 0;i < 8;i++)
    {
    	if(nValue & 0x80)
    	    I2C_Set_sda_high();
    	else
    	    I2C_Set_sda_low();
    	for(j = 30;j > 0;j--);
    	I2C_Set_sck_high();
    	nValue <<= 1;
    	for(j = 30;j > 0;j--);
    	I2C_Set_sck_low();
    }
    
    return;
}
/////////////////////////////////////////////
// 接收是從 LSB 到 MSB 的順序
int  I2C_RxByte(void)
{
    int nTemp = 0;
    int i;
    int j;
    
    I2C_Set_sda_high();
    
    P1DIR &= ~(SDA);			//將SDA管腳設置為輸入方向
    _NOP();
    _NOP();
    _NOP();
    _NOP();
    for(i = 0;i < 8;i++)
    {
    	I2C_Set_sck_high();
    	
    	if(P1IN & SDA)
    	{
    	    nTemp |= (0x01 << i);
    	}
    	for(j = 30;j > 0;j--);
    	I2C_Set_sck_low();
    }
    
    return nTemp;
}
void I2C_Write(char nAddr,char nValue)
{
	int nTemp = 0xA0;//寫命令
	// 啟動數據總線
	I2C_START();
	// 發送控制字節
	I2C_TxByte(nTemp);
	// 等待 ACK
	nTemp = I2C_GetACK();

	// 發送地址字節
	I2C_TxByte(nAddr);
	// 等待 ACK
	nTemp = I2C_GetACK();

	// 發送數據字節
	I2C_TxByte(nValue);
	// 等待 ACK
	nTemp = I2C_GetACK();

	// 停止總線
	I2C_STOP();				
        return;
}
int PageWrite(char nAddr,char pBuf[])
{
	int i;
	int nTemp = 0xA0;//寫命令
	// 啟動數據總線
	I2C_START();
	// 發送控制字節
	I2C_TxByte(nTemp);
	// 等待 ACK
	nTemp = I2C_GetACK();
	if(nTemp & BIT3) return 0;

	// 發送地址字節
	I2C_TxByte(nAddr);
	// 等待 ACK
	nTemp = I2C_GetACK();
	if(nTemp & BIT3) return 0;

	// 發送數據字節
	for(i = 0; i < 8;i++)
	{
		I2C_TxByte(pBuf[0]);
		// 等待 ACK
		nTemp = I2C_GetACK();
		if(nTemp & BIT3) return 0;
	}
	
	// 停止總線
	I2C_STOP();				
    return (nTemp & SDA);
}
char I2C_Read(int nAddr)
{
        int nRes = -1;
	//寫命令
	int nTemp = 0xA0;
	// 啟動數據總線
	I2C_START();
	// 發送控制字節
	I2C_TxByte(nTemp);
	// 等待 ACK
	nTemp = I2C_GetACK();

	// 發送地址字節
	I2C_TxByte(nAddr);
	// 等待 ACK
	nTemp = I2C_GetACK();

	// 啟動數據總線
	I2C_START();
	// 發送控制字節
	nTemp = 0xA1;
	I2C_TxByte(nTemp);
	// 等待 ACK
	nTemp = I2C_GetACK();

	//讀取數據
    nRes = I2C_RxByte();

	// 停止總線
	I2C_STOP();
	//成功返回
	return nRes;
}
int ReadSeq(char nAddr, char nValue[], int nLen)
{
	int i;
	//寫命令
	int nTemp = 0xA0;
	// 啟動數據總線
	I2C_START();
	// 發送控制字節
	I2C_TxByte(nTemp);
	// 等待 ACK
	nTemp = I2C_GetACK();
	if(nTemp & BIT3) return 0;

	// 發送地址字節
	I2C_TxByte(nAddr);
	// 等待 ACK
	nTemp = I2C_GetACK();
	if(nTemp & BIT3) return 0;

	// 啟動數據總線
	I2C_START();
	// 發送控制字節
	nTemp = 0xA1;
	I2C_TxByte(nTemp);
	// 等待 ACK
	nTemp = I2C_GetACK();
	if(nTemp & BIT3) return 0;

	//讀取數據
	for(i = 0; i < nLen; i++)
	{
		//讀一個字節數據
		nValue[i] = I2C_RxByte();
		//發送ACK
		I2C_SetACK();
	}    

	// 停止總線
	I2C_STOP();
	//成功返回
	return 1;
}
void Delay_ms(unsigned long nValue)//毫秒為單位，8MHz為主時鐘
{
    unsigned long nCount;
    int i;
    unsigned long j;
    nCount = 2667;
    for(i = nValue;i > 0;i--)
    {
    	for(j = nCount;j > 0;j--);
    }
    return;
}
void Delay_us(unsigned long nValue)//微秒為單位，8MHz為主時鐘
{
    int nCount;
    int i;
    int j;
    nCount = 3;
    for(i = nValue;i > 0;i--)
    {
    	for(j = nCount;j > 0;j--);
    }
    return;
}