/* 89C51系列CPU編程器接收CPU程序*/

#include <reg51.h>
#include <intrins.h>
#include <absacc.h>

#define e 8
#define p 9
#define l 10

sbit led=P3^2;
sbit p27=P2^7;
sbit p26=P2^6;
sbit p36=P3^6;
sbit p37=P3^7;
sbit rst=P3^3;
sbit ale=P3^5;
sbit vpp=P3^4;

bit b_break;
unsigned int adds;

//

// 13.8mS
void int_t0(void) interrupt 1 {
 TH0=-100;
 b_break=1;
}

void wait(unsigned char w) {
 unsigned int t=w*184;
 b_break=0;
 TL0=-t%256-1;TH0=-t/256;
 while (b_break==0) {}
}

void nop(void) {
 _nop_();_nop_();_nop_();_nop_();
 _nop_();_nop_();_nop_();_nop_();
 _nop_();_nop_();_nop_();_nop_();
 _nop_();_nop_();_nop_();_nop_();
 _nop_();_nop_();_nop_();_nop_();
}

unsigned char command(void) {
 TH0=-100;b_break=0;
 while (RI==0) {if (b_break==1) return(0);}
 RI=0;
 return(SBUF);
}

void earsure(unsigned char cpu) {
 switch (cpu) {
 case 1:  //89C51
 case 2:rst=p26=1;p27=p36=p37=0;nop();vpp=1;nop();
  ale=0;wait(110);ale=1;nop();
  break;
 case 3:
 case 4:break;
 case 5:
 case 6:break;
 }
}

void program(unsigned char cpu) {
 unsigned int bdata adds=0;
 unsigned char d;
 switch (cpu) {
 case 1: //89C51
 case 2:
  p36=p37=1;rst=1;
  while (1) {
   TH0=-100;b_break=0;
   while (RI==0) {if (b_break==1) return;}
   RI=0;
   d=SBUF;
   //address
   P0=adds%256;
   P2=adds/256;
   p27=1;
   //data
   P1=d;
   nop(); //48clcl
   //vpp
   vpp=1;
   nop(); //48clcl
   //ale
   ale=0;
   wait(1);//100uS
   ale=1;
   nop(); //10uS
   vpp=0;
   nop(); //48clcl
   p27=0;
   nop(); //48clcl
   P1=0xff;
   TH0=-100;b_break=0;
   while (d!=P1) {if (b_break==1) return;} //data polling
   SBUF=d;
   adds++;
  }
  break;
 case 3:
 case 4:
 case 5:
 case 6:break;
 }
}

void lock(unsigned char cpu) {
 unsigned char i;
 switch (cpu) {
 case 1: //89c51
 case 2:
  //lock 1
  rst=p26=p36=p27=p37=1;nop();
  vpp=1;
  nop();
  ale=0;
 // for (i=0;i<6;i++) wait(100);
  wait(1);
  ale=1;
  nop();
  vpp=0;
  nop();
 
  //lock 2
  rst=p26=p27=1;p36=p37=0;nop();
  vpp=1;
  nop();
  ale=0;
 // for (i=0;i<6;i++) wait(100);
  wait(1);
  ale=1;
  nop();
  vpp=0;
  nop();
 
  //lock 3
  rst=p26=p36=1;p27=p37=0;nop();
  vpp=1;
  nop();
  ale=0;
 // for (i=0;i<6;i++) wait(100);
  wait(1);
  ale=1;
  nop();
  vpp=0;
  nop();
  break;
 case 3:
 case 4:
 case 5:
 case 6:break;
 }
}

void main(void) {
 unsigned char disp,flash,temp,cpu;
 EA=1;
 SCON=0xd8;PCON=0x80;
 TMOD=0x21;
 TL1=TH1=0xff;TR1=1;
 TH0=-100;ET0=TR0=1;

 flash=0x80;

 while (1) {
  temp=command();
  switch (temp) {
  case 0:
  case 1:  //89c51
  case 2:  //89C52
  case 3:  //80f51
  case 4:  //80F52
  case 5:  //87F51
  case 6:cpu=temp;SBUF=temp;break;//87f52
  case e:SBUF=temp;earsure(cpu);break; //erasure
  case p:SBUF=temp;program(cpu);break; //program
  case l:lock(cpu);SBUF=temp;break; //lock
  default:SBUF=temp;break;
  }
  b_break=0;
  if ((++disp)>flash) {disp=0;led=!led;}
 }
}