//////////////////////////////////////////////////////////////////////////////////////////////////
//E51Pro.c
//Easy 51Pro編程器主程序，負(fù)責(zé)通訊，管理編程操作
///////////////////////////////////////////////////////////////////////////////////////////////////

#include <E51Pro.h>

BYTE ComBuf[18];//串口通訊數(shù)據(jù)緩存，發(fā)送和接收都使用
UINT nAddress;//ROM中地址計(jì)數(shù)
UINT nTimeOut;//超時計(jì)數(shù)
ProWork pw;//編程器一般操作

void Delay_us(BYTE nUs)//微秒級延時<255us
{
	TH0=0;
	TL0=0;
	TR0=1;
	while(TL0<nUs)//利用T0做定時計(jì)數(shù)器，循環(huán)采樣，直到達(dá)到定時值
	{
	}
	TR0=0;
}

void Delay_ms(UINT nMs)//豪秒級的延時<65535ms
{
	UINT n=0;
	TR0=1;
	while(n<nMs)////利用T0做定時計(jì)數(shù)器，循環(huán)采樣，直到達(dá)到定時值
	{
		TH0=0;
		TL0=20;
		while(TH0<4)
		{
		}
		n++;
	}
	TR0=0;
}
 
BOOL WaitComm()//等待上位機(jī)的命令,18字節(jié)
{
	BYTE n=0;
	RI=0;
	while(!RI){}//等待第一個字節(jié)
	ComBuf[n]=SBUF;
	RI=0;
	n++;
	for(n;n<=17;n++)
	{
		nTimeOut=0;
		while(!RI)
		{
			nTimeOut++;
			if(nTimeOut>10000)//后17個字節(jié)都有超時限制 
				return 0;
		}
		ComBuf[n]=SBUF;
		RI=0;
	}
	return 1;
}

BOOL WaitResp()//等待上位機(jī)回應(yīng),1字節(jié),有超時限制 
{
	nTimeOut=0;
	RI=0;
	while(!RI)
	{
		nTimeOut++;
		if(nTimeOut>50000) 
		{
			return 0;
		}
	}
	RI=0;
	ComBuf[0]=SBUF;
	return 1;
}

BOOL WaitData()//寫器件時等待上位機(jī)數(shù)據(jù)，18字節(jié)，有超時限制 
{
	BYTE n;
	RI=0;
	for(n=0;n<=17;n++)
	{
		nTimeOut=0;
		while(!RI)
		{
			nTimeOut++;
			if(nTimeOut>10000)
			{
				return 0;
			}
		}
		RI=0;
		ComBuf[n]=SBUF;
	}
	return 1;
}

void SendData()//發(fā)送數(shù)據(jù)或回應(yīng)操作完成,18字節(jié)
{
	BYTE n=0;
	for(n;n<=17;n++)
	{
		TI=0;
		SBUF=ComBuf[n];
		while(!TI){}
		TI=0;
	}
}

void SendResp()//回應(yīng)上位機(jī)1個字節(jié),在寫器件函數(shù)中使用
{
	TI=0;
	SBUF=ComBuf[0];
	while(!TI){}
	TI=0;
}

void SetVpp5V()//設(shè)置Vpp為5v
{
	P3_4=0;
	P3_3=0;
}

void SetVpp0V()//設(shè)置Vpp為0v
{
	P3_3=0;
	P3_4=1;
}

void SetVpp12V()//設(shè)置Vpp為12v
{
	P3_4=0;
	P3_3=1;
}

void RstPro()//編程器復(fù)位
{
	pw.fpProOver();//直接編程結(jié)束
	SendData();//通知上位機(jī)，表示編程器就緒，可以直接用此函數(shù)因?yàn)閰f(xié)議號（ComBuf[0]）還沒被修改，下同
}

void ReadSign()//讀特征字
{
	pw.fpReadSign();
	SendData();//通知上位機(jī)，送出讀出器件特征字
}

void Erase()//擦除器件
{
	pw.fpErase();
	SendData();//通知上位機(jī)，擦除了器件
}

void Write()//寫器件
{
	BYTE n;
	pw.fpInitPro();//編程前的準(zhǔn)備工作
	SendData();//回應(yīng)上位機(jī)表示進(jìn)入寫器件狀態(tài)，可以發(fā)來數(shù)據(jù)
	while(1)
	{
		if(WaitData())//如果等待數(shù)據(jù)成功
		{
			if(ComBuf[0]==0x07)//判斷是否繼續(xù)寫
			{
				for(n=2;n<=17;n++)//ComBuf[2~17]為待寫入數(shù)據(jù)塊
				{
					if(!pw.fpWrite(ComBuf[n]))//<<<<<<<<<<<<<<<<<<<調(diào)用寫該器件一個單元的函數(shù)
					{
						pw.fpProOver();//出錯了就結(jié)束編程
						ComBuf[0]=0xff;
						SendResp();//回應(yīng)上位機(jī)一個字節(jié)，表示寫數(shù)據(jù)出錯了
						WaitData();//等待上位機(jī)的回應(yīng)后就結(jié)束
						return;	
					}
					nAddress++;//下一個單元
				}
				ComBuf[0]=1;//回應(yīng)上位機(jī)一個字節(jié)，表示數(shù)據(jù)塊順利完成，請求繼續(xù)
				SendResp();
			}
			else if(ComBuf[0]==0x00)//寫器件結(jié)束
				break;
			else//可能是通訊出錯了
			{
				pw.fpProOver();
				return;
			}
		}
		else//等待數(shù)據(jù)失敗
		{
			pw.fpProOver();
			return;
		}
	}
	pw.fpProOver();//編程結(jié)束后的工作
	Delay_ms(50);//延時等待上位機(jī)寫線程結(jié)束
	ComBuf[0]=0;//通知上位機(jī)編程器進(jìn)入就緒狀態(tài)
	SendData();
}

void Read()//讀器件
{
	BYTE n;
	pw.fpInitPro();//先設(shè)置成編程狀態(tài)
	SendData();//回應(yīng)上位機(jī)表示進(jìn)入讀狀態(tài)
	while(1)
	{
		if(WaitResp())//等待上位機(jī)回應(yīng)1個字節(jié)
		{
			if(ComBuf[0]==0)//ComBuf[0]==0表示讀結(jié)束
			{
				break;
			}
			else if(ComBuf[0]==0xff)//0xff表示重發(fā)
			{
				nAddress=nAddress-0x0010;
			}
			for(n=2;n<=17;n++)//ComBuf[2~17]保存讀出的數(shù)據(jù)塊
			{
				ComBuf[n]=pw.fpRead();//<<<<<<<<調(diào)用寫該器件一個單元的函數(shù)
				nAddress++;//下一個單元
			}
			ComBuf[0]=6;//向上位機(jī)發(fā)送讀出的數(shù)據(jù)塊
			SendData();
		}
		else
			break;//等待回應(yīng)失敗	

	}
	pw.fpProOver();//操作結(jié)束設(shè)置為運(yùn)行狀態(tài)
	ComBuf[0]=0;//通知上位機(jī)編程器進(jìn)入就緒狀態(tài)
	SendData();
}

void Lock()//寫鎖定位
{
	pw.fpLock();
	SendData();
}

///////////////////////////////////////////////////////////////////////////////////////////////////
//所支持的FID,請?jiān)谶@里繼續(xù)添加
///////////////////////////////////////////////////////////////////////////////////////////////////
extern void PreparePro00();//FID=00:AT89C51編程器
extern void PreparePro01();//FID=01:AT89C2051編程器
extern void PreparePro02();//FID=02:AT89S51編程器
void main()
{
	SP=0x60;
	SetVpp5V();//先初始化Vpp為5v
	SCON=0x00;
	TCON=0x00;
	//PCON=0x00;//波特率*2
	IE=0x00;
	//TMOD: GATE|C/!T|M1|M0|GATE|C/!T|M1|M0
	//        0    0   1  0   0    0   0  1
	TMOD=0x21;//T0用于延時程序
	TH1=0xff;
	TL1=0xff;//波特率28800*2,注意PCON
	//SCON: SM0|SM1|SM2|REN|TB8|RB8|TI|RI
    //        0   1   0   1   0   0  0  0
	SCON=0x50;
	TR1=1;
	Delay_ms(1000);//延時1秒后編程器自舉
	ComBuf[0]=0;
	SendData();
 	while(1)//串口通訊采用查詢方式
	{
		if(!WaitComm())//如果超時,通訊出錯
		{
			Delay_ms(500);
			ComBuf[0]=0;//讓編程器復(fù)位,使編程器就緒
		}
		switch(ComBuf[1])//根據(jù)FID設(shè)置(ProWork)pw中的函數(shù)指針
		{
			case 0://at89c51編程器
				PreparePro00();
				break;
			case 1://at89c2051編程器
				PreparePro01();
				break;
			case 2://at89s51編程器
				PreparePro02();
				break;
			//case 3:支持新器件時，請繼續(xù)向下添加
			//	break;
			//case 4:
			//	break;
			default:
				ComBuf[0]=0xff;
				ComBuf[1]=0xff;//表示無效的操作
				break;
		}
		switch(ComBuf[0])//根據(jù)操作ID跳到不同的操作函數(shù)
		{
			case 0x00:
				RstPro();//編程器復(fù)位
				break;
			case 0x01:
				ReadSign();//讀特征字
				break;
			case 0x02:
				Erase();//擦除器件
				break;
			case 0x03:
				Write();//寫器件
				break;
			case 0x04:
				Read();//讀器件
				break;
			case 0x05:
				Lock();//寫鎖定位
				break;
			default:
				SendData();
				break;
		}
	}
}