at89s51pro.c

串行编程器源程序(Keil C语言)

///////////////////////////////////////////////////////////////////////////////////////////////////
//FID=02:AT89S51系列编程器
//实现编程的读，写，擦等细节
//特殊处:采用ISP编程方式，只需对P1.5,P1.6,P1.7,RST引脚控制；用MOSI串行发送命令的同时用MISO接收相关数据
//SCK输出同步时钟脉冲
///////////////////////////////////////////////////////////////////////////////////////////////////

#include <e51pro.h>

#define	MOSI	P1_5
#define MISO	P1_6
#define SCK		P1_7	

BYTE OutBuf[4];//发送命令缓冲
BYTE InBuf[4];//接收缓冲

void SendInstrc(BYTE nByte)//用MOSI串行发送命令的同时用MISO接收相关数据
{
	BYTE n;
	for(n=0;n<nByte;n++)//发送nByte个字节
	{
		ACC=OutBuf[n];
		SCK=0;
		MOSI=A_7;//低电平时输出一位
		SCK=1;
		B_7=MISO;//高电平时接收一位
		SCK=0;
		MOSI=A_6;
		SCK=1;
		B_6=MISO;
		SCK=0;
		MOSI=A_5;
		SCK=1;
		B_5=MISO;
		SCK=0;
		MOSI=A_4;
		SCK=1;
		B_4=MISO;
		SCK=0;
		MOSI=A_3;
		SCK=1;
		B_3=MISO;
		SCK=0;
		MOSI=A_2;
		SCK=1;
		B_2=MISO;
		SCK=0;
		MOSI=A_1;
		SCK=1;
		B_1=MISO;
		SCK=0;
		MOSI=A_0;
		SCK=1;
		B_0=MISO;
		SCK=0;
		InBuf[n]=B;
	}
}

void InitPro02()//编程前的准备工作
{
	SetVpp5V();
	P3_5=0;//p3.5接RST
	P3_2=1;//p3.2接PROG
	P0=0xff;
	P1=0xff;
	P2=0xff;
	Delay_ms(10);
	MOSI=0;
	MISO=1;
	SCK=1;
	P3_5=1;
	Delay_ms(10);
	nAddress=0x0000;
	OutBuf[0]=0xac;//正好在这里可以安排DataSheet上所规定的
	OutBuf[1]=0x53;//Eanable Programming命令
	OutBuf[2]=0;
	OutBuf[3]=0;
	SendInstrc(4);
}

void ProOver02()//编程结束后的工作，设置合适的引脚电平
{
	SetVpp5V();
	P0=0xff;
	P1=0xff;
	P2=0xff;
	P3_6=1;
	P3_7=1;
	P3_5=0;//RST=0;
	P3_2=2;//PROG=0
}

BYTE Read02()
{
	OutBuf[0]=0x20;
	OutBuf[1]=((BYTE*)&nAddress)[0];
	OutBuf[2]=((BYTE*)&nAddress)[1];
	SendInstrc(4);
	return InBuf[3];
}

void ReadSign02()//读特征字
{
	InitPro02();//先设置成编程状态
//-----------------------------------------------------------------------------
	//根据器件的DataSheet，设置相应的编程控制信号
	OutBuf[0]=0x28;
	OutBuf[1]=0x00;
	OutBuf[2]=0x00;
	OutBuf[3]=0x00;
	SendInstrc(4);
	ComBuf[2]=InBuf[3];
	OutBuf[1]=0x01;
	SendInstrc(4);
	ComBuf[3]=InBuf[3];
	OutBuf[1]=0x02;
	SendInstrc(4);
	ComBuf[4]=InBuf[3];
//-----------------------------------------------------------------------------
	ProOver02();
}

void Erase02()//擦除器件
{
	InitPro02();
//-----------------------------------------------------------------------------
	//根据器件的DataSheet，设置相应的编程控制信号
	OutBuf[0]=0xac;
	OutBuf[1]=0x80;
	SendInstrc(4);
	Delay_ms(500);	
//-----------------------------------------------------------------------------
	ProOver02();
}

BOOL Write02(BYTE Data)//写器件
{

//-----------------------------------------------------------------------------
	//根据器件的DataSheet，设置相应的编程控制信号
	//写一个单元
	OutBuf[0]=0x40;
	OutBuf[1]=((BYTE*)&nAddress)[0];
	OutBuf[2]=((BYTE*)&nAddress)[1];
	OutBuf[3]=Data;
	SendInstrc(4);
	nTimeOut=0;
	while(Read02()!=Data)//效验:循环读，直到读出与写入的数相同
	{
		nTimeOut++;
		if(nTimeOut>1000)//超时了
		{
			return  0;
		}
				
	}
//-----------------------------------------------------------------------------
	return 1;
}

void Lock02()//写锁定位
{
//-----------------------------------------------------------------------------
	//根据器件的DataSheet，设置相应的编程控制信号
	if(ComBuf[2]>=1)//ComBuf[2]为锁定位
	{
		InitPro02();
		OutBuf[0]=0xac;
		OutBuf[1]=0xe1;
		SendInstrc(4);
		Delay_ms(1);
	}
	if(ComBuf[2]>=2)
	{
		InitPro02();
		OutBuf[0]=0xac;
		OutBuf[1]=0xe2;
		SendInstrc(4);
		Delay_ms(1);
	}
	if(ComBuf[2]==3)
	{
		InitPro02();
		OutBuf[0]=0xac;
		OutBuf[1]=0xe3;
		SendInstrc(4);
		Delay_ms(1);
	}
//-----------------------------------------------------------------------------
	ProOver02();
}

void PreparePro02()//设置pw中的函数指针，让主程序可以调用上面的函数
{
	pw.fpInitPro=InitPro02;
	pw.fpReadSign=ReadSign02;
	pw.fpErase=Erase02;
	pw.fpWrite=Write02;
	pw.fpRead=Read02;
	pw.fpLock=Lock02;
	pw.fpProOver=ProOver02;
}