/*
	I2C.c
	標準80C51單片機模擬I2C總線的主機程序
	Copyright (c) 2005，廣州周立功單片機發(fā)展有限公司
	All rights reserved.
	本程序僅供學(xué)習(xí)參考，不提供任何可靠性方面的擔(dān)保；請勿用于商業(yè)目的
*/

#include "I2C.h"

//定義延時變量，用于宏I2C_Delay()
unsigned char data I2C_Delay_t;

/*
宏定義：I2C_Delay()
功能：延時，模擬I2C總線專用
*/
#define I2C_Delay()\
{\
	I2C_Delay_t = (I2C_DELAY_VALUE);\
	while ( --I2C_Delay_t != 0 );\
}

/*
函數(shù)：I2C_Init()
功能：I2C總線初始化，使總線處于空閑狀態(tài)
說明：在main()函數(shù)的開始處，通常應(yīng)當(dāng)要執(zhí)行一次本函數(shù)
*/
void I2C_Init()
{
	I2C_SCL = 1;
	I2C_Delay();
	I2C_SDA = 1;
	I2C_Delay();
}

/*
函數(shù)：I2C_Start()
功能：產(chǎn)生I2C總線的起始狀態(tài)
說明：
	SCL處于高電平期間，當(dāng)SDA出現(xiàn)下降沿時啟動I2C總線
	不論SDA和SCL處于什么電平狀態(tài)，本函數(shù)總能正確產(chǎn)生起始狀態(tài)
	本函數(shù)也可以用來產(chǎn)生重復(fù)起始狀態(tài)
	本函數(shù)執(zhí)行后，I2C總線處于忙狀態(tài)
*/
void I2C_Start()
{
	I2C_SDA = 1;
	I2C_Delay();
	I2C_SCL = 1;
	I2C_Delay();
	I2C_SDA = 0;
	I2C_Delay();
	I2C_SCL = 0;
	I2C_Delay();
}

/*
函數(shù)：I2C_Write()
功能：向I2C總線寫1個字節(jié)的數(shù)據(jù)
參數(shù)：
	dat：要寫到總線上的數(shù)據(jù)
*/
void I2C_Write(char dat)
{
	unsigned char t = 8;
	do
	{
		I2C_SDA = (bit)(dat & 0x80);
		dat <<= 1;
		I2C_SCL = 1;
		I2C_Delay();
		I2C_SCL = 0;
		I2C_Delay();
	} while ( --t != 0 );
}

/*
函數(shù)：I2C_Read()
功能：從從機讀取1個字節(jié)的數(shù)據(jù)
返回：讀取的一個字節(jié)數(shù)據(jù)
*/
char I2C_Read()
{
	char dat;
	unsigned char t = 8;
	I2C_SDA = 1;	//在讀取數(shù)據(jù)之前，要把SDA拉高
	do
	{
		I2C_SCL = 1;
		I2C_Delay();
		dat <<= 1;
		if ( I2C_SDA ) dat |= 0x01;
		I2C_SCL = 0;
		I2C_Delay();
	} while ( --t != 0 );
	return dat;
}

/*
函數(shù)：I2C_GetAck()
功能：讀取從機應(yīng)答位
返回：
	0：從機應(yīng)答
	1：從機非應(yīng)答
說明：
	從機在收到每個字節(jié)的數(shù)據(jù)后，要產(chǎn)生應(yīng)答位
	從機在收到最后1個字節(jié)的數(shù)據(jù)后，一般要產(chǎn)生非應(yīng)答位
*/
bit I2C_GetAck()
{
	bit ack;
	I2C_SDA = 1;
	I2C_Delay();
	I2C_SCL = 1;
	I2C_Delay();
	ack = I2C_SDA;
	I2C_SCL = 0;
	I2C_Delay();
	return ack;
}

/*
函數(shù)：I2C_PutAck()
功能：主機產(chǎn)生應(yīng)答位或非應(yīng)答位
參數(shù)：
	ack=0：主機產(chǎn)生應(yīng)答位
	ack=1：主機產(chǎn)生非應(yīng)答位
說明：
	主機在接收完每一個字節(jié)的數(shù)據(jù)后，都應(yīng)當(dāng)產(chǎn)生應(yīng)答位
	主機在接收完最后一個字節(jié)的數(shù)據(jù)后，應(yīng)當(dāng)產(chǎn)生非應(yīng)答位
*/
void I2C_PutAck(bit ack)
{
	I2C_SDA = ack;
	I2C_Delay();
	I2C_SCL = 1;
	I2C_Delay();
	I2C_SCL = 0;
	I2C_Delay();
}

/*
函數(shù)：I2C_Stop()
功能：產(chǎn)生I2C總線的停止狀態(tài)
說明：
	SCL處于高電平期間，當(dāng)SDA出現(xiàn)上升沿時停止I2C總線
	不論SDA和SCL處于什么電平狀態(tài)，本函數(shù)總能正確產(chǎn)生停止狀態(tài)
	本函數(shù)執(zhí)行后，I2C總線處于空閑狀態(tài)
*/
void I2C_Stop()
{
	unsigned int t = I2C_STOP_WAIT_VALUE;
	I2C_SDA = 0;
	I2C_Delay();
	I2C_SCL = 1;
	I2C_Delay();
	I2C_SDA = 1;
	I2C_Delay();
	while ( --t != 0 );		//在下一次產(chǎn)生Start之前，要加一定的延時
}

/*
函數(shù)：I2C_Puts()
功能：I2C總線綜合發(fā)送函數(shù)，向從機發(fā)送多個字節(jié)的數(shù)據(jù)
參數(shù)：
	SlaveAddr：從機地址（7位純地址，不含讀寫位）
	SubAddr：從機的子地址
	SubMod：子地址模式，0－無子地址，1－單字節(jié)子地址，2－雙字節(jié)子地址
	*dat：要發(fā)送的數(shù)據(jù)
	Size：數(shù)據(jù)的字節(jié)數(shù)
返回：
	0：發(fā)送成功
	1：在發(fā)送過程中出現(xiàn)異常
說明：
	本函數(shù)能夠很好地適應(yīng)所有常見的I2C器件，不論其是否有子地址
	當(dāng)從機沒有子地址時，參數(shù)SubAddr任意，而SubMod應(yīng)當(dāng)為0
*/
bit I2C_Puts
(
	unsigned char SlaveAddr,
	unsigned int SubAddr,
	unsigned char SubMod,
	char *dat,
	unsigned int Size
)
{
//定義臨時變量
	unsigned char i;
	char a[3];
//檢查長度
	if ( Size == 0 ) return 0;
//準備從機地址
	a[0] = (SlaveAddr << 1);
//檢查子地址模式
	if ( SubMod > 2 ) SubMod = 2;
//確定子地址
	switch ( SubMod )
	{
	case 0:
		break;
	case 1:
		a[1] = (char)(SubAddr);
		break;
	case 2:
		a[1] = (char)(SubAddr >> 8);
		a[2] = (char)(SubAddr);
		break;
	default:
		break;
	}
//發(fā)送從機地址，接著發(fā)送子地址（如果有子地址的話）
	SubMod++;
	I2C_Start();
	for ( i=0; i<SubMod; i++ )
	{
		I2C_Write(a[i]);
		if ( I2C_GetAck() )
		{
			I2C_Stop();
			return 1;
		}
	}
//發(fā)送數(shù)據(jù)
	do
	{
		I2C_Write(*dat++);
		if ( I2C_GetAck() ) break;
	} while ( --Size != 0 );
//發(fā)送完畢，停止I2C總線，并返回結(jié)果
	I2C_Stop();
	if ( Size == 0 )
	{
		return 0;
	}
	else
	{
		return 1;
	}
}

/*
函數(shù)：I2C_Gets()
功能：I2C總線綜合接收函數(shù)，從從機接收多個字節(jié)的數(shù)據(jù)
參數(shù)：
	SlaveAddr：從機地址（7位純地址，不含讀寫位）
	SubAddr：從機的子地址
	SubMod：子地址模式，0－無子地址，1－單字節(jié)子地址，2－雙字節(jié)子地址
	*dat：保存接收到的數(shù)據(jù)
	Size：數(shù)據(jù)的字節(jié)數(shù)
返回：
	0：接收成功
	1：在接收過程中出現(xiàn)異常
說明：
	本函數(shù)能夠很好地適應(yīng)所有常見的I2C器件，不論其是否有子地址
	當(dāng)從機沒有子地址時，參數(shù)SubAddr任意，而SubMod應(yīng)當(dāng)為0
*/
bit I2C_Gets
(
	unsigned char SlaveAddr,
	unsigned int SubAddr,
	unsigned char SubMod,
	char *dat,
	unsigned int Size
)
{
//定義臨時變量
	unsigned char i;
	char a[3];
//檢查長度
	if ( Size == 0 ) return 0;
//準備從機地址
	a[0] = (SlaveAddr << 1);
//檢查子地址模式
	if ( SubMod > 2 ) SubMod = 2;
//如果是有子地址的從機，則要先發(fā)送從機地址和子地址
	if ( SubMod != 0 )
	{
	//確定子地址
		if ( SubMod == 1 )
		{
			a[1] = (char)(SubAddr);
		}
		else
		{
			a[1] = (char)(SubAddr >> 8);
			a[2] = (char)(SubAddr);
		}
	//發(fā)送從機地址，接著發(fā)送子地址
		SubMod++;
		I2C_Start();
		for ( i=0; i<SubMod; i++ )
		{
			I2C_Write(a[i]);
			if ( I2C_GetAck() )
			{
				I2C_Stop();
				return 1;
			}
		}
	}
//這里的I2C_Start()對于有子地址的從機是重復(fù)起始狀態(tài)
//對于無子地址的從機則是正常的起始狀態(tài)
	I2C_Start();
//發(fā)送從機地址
	I2C_Write(a[0]+1);
	if ( I2C_GetAck() )
	{
		I2C_Stop();
		return 1;
	}
//接收數(shù)據(jù)
	for (;;)
	{
		*dat++ = I2C_Read();
		if ( --Size == 0 )
		{
			I2C_PutAck(1);
			break;
		}
		I2C_PutAck(0);
	}
//接收完畢，停止I2C總線，并返回結(jié)果
	I2C_Stop();
	return 0;
}