//78E516ISP單片機程序下載程序
//11.0592Mhz
//通訊速率57600
//進入ISP：復位時使P2^6 P2^7同時為低
//將本程序的目標碼寫入boot 區

/****************IAP功能實現***********************************
//利用本程序實現IAP功能示例
sfr CHPCON  = 0xBF;
sfr CHPENR  = 0xF6;
sfr SFRAL   = 0xC4;
sfr SFRAH   = 0xC5;
sfr SFRFD   = 0xC6;
sfr SFRCN   = 0xC7;
sbit UPDATE	=P1^6;
void update64k()
{
	CHPENR=0x87;
	CHPENR=0x59;
	CHPCON=0x03;
	TCON=0;
	IP=0;
	IE=0x82;
	TL0=0xF0;
	TH0=0xF0;
	TMOD=1;
	TCON=0x10;
	PCON=0x01;
}
//主程序
void main(void)
{
	unsigned char tempc,inset;
	unsigned char tempd,tempe;
	unsigned int tempi;
	//下載程序到主程序存儲器中
	if(!UPDATE)
		update64k();	
	.....
	while(1)
	{
		
	};
}
************************************************************/

#include <reg52.h>
#include <absacc.h>
#include <intrins.h>
#include <stdio.h>

union {unsigned int add;
	struct {unsigned char ah;unsigned char al;}half;
}dvault;
unsigned char data tedate[64];
unsigned char data myadd;
unsigned char data readd;

sfr CHPCON  = 0xBF;
sfr CHPENR  = 0xF6;
sfr SFRAL   = 0xC4;
sfr SFRAH   = 0xC5;
sfr SFRFD   = 0xC6;
sfr SFRCN   = 0xC7;

sbit    RS485=P1^5;   //RS485輸入輸出控制 1為接收0為發送
sbit    ONE=P1^0;                                  
sbit    TWO=P1^1;                                   
sbit    THR=P1^2;                                  

void update64k()
{
	CHPENR=0x87;
	CHPENR=0x59;
	CHPCON=0x03;
	TCON=0;
	IP=0;
	IE=0x82;
	TL0=0xF0;
	TH0=0xF0;
	TMOD=1;
	TCON=0x10;
	PCON=0x01;
}

void timer0(void) interrupt 1 using 1
{
	TR0=0;
	ET0=0;
}
void init_timer0(void)
{
     TMOD &= 0XF0;                    /* clear Timer 0   */
     TMOD  |= 0X1;
     TL0 =2;                   /* value set by user    */
     TH0 =0;                  /* value set by user  */
     ET0 = 1;       
     TR0 = 1;                /* TCON.4 start timer  */
}
void init_serial()
{
	SCON = 0X50;
	PCON = 0X80 | PCON;
	TMOD = 0X20;
	TH1 = 0XFF;
	TR1 = 1;            /*TCON.6*/
	RI = 0;              /*SCON.0*/
	TI=1;
}

void txchar(unsigned char c)
{
	do{
		if((SCON&0x02)==0x02)
			break;
	}while(1);
	TI=0;
	SBUF=c;
	do{
		if((SCON&0x02)==0x02)
			break;
	}while(1);	
}
unsigned char rxchar()
{
	do{
		if((SCON&0x01)==0x01)
			break;
	}while(1);
	RI=0;
	return(SBUF);
}
//////////清空主程序存儲區	
void erase()
{
	init_timer0();
	SFRCN=0x22;
	PCON=0x81;
}
//空檢測
void bankcheck()
{
	SFRCN=0;
	SFRAH=0;
	SFRAL=0;
CHECKBYTE:
	TL0=0xFB;
	TH0=0xFF;
	TR0=1;
	ET0=1;
	PCON=0x81;
	if(SFRFD!=0xFF)
	{
		ONE=1;
		TWO=1;
		THR=1;
		while(1);
	}
	SFRAL++;
	if(SFRAL)
		goto CHECKBYTE;
	SFRAH++;
	TWO=!TWO;
	if(SFRAH)
		goto CHECKBYTE;
	ONE=0;
	TWO=0;
	THR=0;
}

void grog64b()
{
	unsigned tem;
	tem=0;
	SFRCN=0x21;
PROGD:
	SFRAH=dvault.half.ah;
	SFRAL=dvault.half.al;
	SFRFD=tedate[tem];
	TL0=0;
	TH0=0xFF;
	TR0=1;
	ET0=1;
	PCON=0x81;
	tem++;
	dvault.add++;
	if(tem<64)
		goto PROGD;
}
//主程序
void main(void)
{
	unsigned char data tempa;
	update64k();
	ONE=0;
	TWO=1;
	THR=1;
	init_serial();
	RS485=1;			//接收
	dvault.add=0;
	CHPENR=0x87;
	CHPENR=0x59;
	if(CHPCON&0x80)
	{
		CHPENR=0x87;
		CHPENR=0x59;
		CHPCON=0x03;
	}
	CHPENR=0;
	//清空主程序存儲區
	erase();
	//空檢驗
	bankcheck();
	//串口初始化
	init_serial();
	RS485=1;			//接收	
	do{
		for(tempa=0;tempa<64;tempa++)
		{
			tedate[tempa]=rxchar();
		}
		ONE=!ONE;
		TWO=!TWO;
		THR=!THR;
		myadd=rxchar();
		RS485=0;			//發送
		//將代碼寫入相應位置并校驗
		grog64b();
		txchar(myadd);		
		RS485=1;
		//接收
		if(dvault.add==0xFFFF)
		{
			ONE=1;
			TWO=1;
			THR=0;
			while(1);				
		}
	}while(1);		
}