89C51单片机编程程序

　　#include "at89x52.h"

　　#include "stdio.h"

　　#include "intrins.h"

　　#include "ctype.h"

　　sbit rdy=P3^2;

　　sbit vpp=P3^3;

　　sbit p26=P3^4;

　　sbit p27=P3^5;

　　sbit p36=P3^6;

　　sbit p37=P3^7;

　　sbit prog=P2^7;

　　void init_serial()

　　{

　　SCON=0x50; /*mode 1*/

　　TMOD=0x20;

　　TH1=0xfd;

　　PCON=0x80; /*38400bps*/

　　TR1=1; /*load tmr1*/

　　TI=1;

　　ES=1;}

　　void init_pro()

　　{

　　p26=0;

　　p27=0;

　　p36=0;

　　p37=0;

　　vpp=1;

　　prog=1;

　　}

　　void sendbyte(unsigned char da) /*send a byte*/

　　{

　　while(!TI);

　　TI=0;

　　SBUF=da;}

　　unsigned char IntToAscii(unsigned char a) /*change DEC to ASCII HEX code*/

　　{

　　if(a<10) return a+48;

　　if(a>9) return a+55;}

　　unsigned int getadr() /*get 5 diti DEC adr*/

　　{

　　unsigned char i,a[5];

　　for(i=0;i<5;i++)

　　{

　　while(!RI);

　　RI=0;

　　a[i]=SBUF-48;

　　}

　　return a[0]*10000+a[1]*1000+a[2]*100+a[3]*10+a[4];}

　　unsigned char getdata() /*get 2 diti HEX data*/

　　{

　　unsigned char d1,d2;

　　while(!RI);

　　RI=0;

　　d1=toint(SBUF);

　　while(!RI);

　　RI=0;

　　d2=toint(SBUF);

　　return d1*16+d2;}

　　unsigned int detChip(int adr)

　　{

　　P0=0xff;

　　P1=adr%256;P2=adr/256;

　　init_pro();

　　_nop_();_nop_();_nop_();_nop_();_nop_(); /*delay 10 us*/

　　_nop_();_nop_();_nop_();_nop_();_nop_();

　　return P0;}

　　void read()

　　{

　　unsigned int adr,maxadr;

　　unsigned char h,l;

　　P0=0xff;

　　maxadr=getadr();

　　for(adr=0;adr

　　{

　　P1=adr%256;P2=adr/256;

　　p26=0;

　　p27=0;

　　p36=1;

　　p37=1;

　　vpp=1;

　　prog=1;

　　h=IntToAscii(P0/16);

　　sendbyte(h);

　　l=IntToAscii(P0%16);

　　sendbyte(l);}

　　init_pro();}

　　unsigned int test(unsigned int nn)

　　{

　　unsigned int adr,counter=0;

　　P0=0xff;

　　for(adr=0;adr

　　{

　　P1=adr%256;P2=adr/256;

　　p26=0;

　　p27=0;

　　p36=1;

　　p37=1;

　　vpp=1;

　　prog=1;

　　_nop_();_nop_();_nop_();_nop_();_nop_(); /*delay 10 us*/

　　_nop_();_nop_();_nop_();_nop_();_nop_();

　　if(P0!=0xff) counter++;}

　　init_pro();

　　return counter;}

　　unsigned char erase(unsigned int nn,unsigned int p)

　　{

　　unsigned int i;

　　P0=0xff;

　　p26=1;

　　p27=0;

　　p36=0;

　　p37=0;

　　vpp=0;

　　prog=1;

　　for(i=0;i<50000;i++) _nop_();

　　switch(p)

　　{

　　case 0 : prog=0;

　　prog=1;

　　break;

　　case 1 : prog=0;

　　_nop_();

　　prog=1;

　　break;

　　case 2 : prog=0;

　　_nop_();_nop_();

　　prog=1;

　　break;

　　case 3 : prog=0;

　　_nop_();_nop_();_nop_();

　　prog=1;

　　break;

　　case 4 : prog=0;

　　_nop_();_nop_();_nop_();_nop_();

　　prog=1;

　　break;

　　case 5 : prog=0;

　　_nop_();_nop_();_nop_();_nop_();_nop_();

　　prog=1;

　　break;

　　case 6 : prog=0;

　　_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();

　　prog=1;

　　break;

　　case 7 : prog=0;

　　_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();

　　prog=1;

　　break;

　　case 8 : prog=0;

　　_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();_nop_();

　　prog=1;

　　break;

　　default: prog=0;

　　for(i=0;i

　　prog=1;

　　break;}

　　_nop_();_nop_();_nop_();_nop_();

　　_nop_();_nop_();_nop_();_nop_();

　　vpp=1;

　　for(i=0;i

　　if(test(nn)==0) return 's';

　　else return 'f';}

　　unsigned char write()

　　{

　　unsigned int adr,d,i;

　　p26=0;

　　p27=1;

　　p36=1;

　　p37=1;

　　vpp=0;

　　prog=1;

　　for(i=0;i<4000;i++) _nop_();

　　adr=getadr();

　　d=getdata();

　　while(1)

　　{

　　if(adr>50000) break;

　　P1=adr%256;P2=(adr/256)|0x80;

　　P0=d;

　　TI=0;

　　SBUF='s';

　　prog=0;

　　_nop_();_nop_();_nop_();

　　prog=1;

　　adr=getadr();

　　d=getdata();

　　while(!rdy);}

　　init_pro();

　　return 'f';}

　　unsigned charLOCk(unsigned char level)

　　{

　　unsigned int i;

　　vpp=0;

　　if(level==1) {p26=1;p27=1;p36=1;p37=1;}

　　if(level==2) {p26=1;p27=1;p36=0;p37=0;}

　　if(level==3) {p26=1;p27=0;p36=1;p37=0;}

　　for(i=0;i<4000;i++) _nop_();

　　prog=1;

　　_nop_();_nop_();_nop_();_nop_();_nop_(); /*delay 10 us*/

　　_nop_();_nop_();_nop_();_nop_();_nop_();

　　prog=0;

　　_nop_();_nop_();_nop_();_nop_();_nop_(); /*delay 10 us*/

　　_nop_();_nop_();_nop_();_nop_();_nop_();

　　prog=1;

　　_nop_();_nop_();_nop_();_nop_();_nop_();

　　while(!rdy);

　　init_pro();

　　return 'o';}

　　void main()

　　{

　　unsigned char data c;

　　unsigned int data adr,l,dx;

　　init_pro();

　　init_serial();

　　while(1)

　　{

　　init_pro();

　　sCANf("%c",&c);

　　switch(c)

　　{

　　case 'c' : printf("%c",'o');

　　break;

　　case 'd' : scanf("%x",&adr);

　　printf("%x",detchip(adr));

　　break;

　　case 't' : scanf("%u",&dx);

　　printf("%u",test(dx));

　　break;

　　case 'r' : read();

　　break;

　　case 'e' : scanf("%u,%u",&adr,&dx);

　　printf("%c",erase(adr,dx));

　　break;

　　case 'w' : printf("%c",write());

　　break;

　　case 'l' : scanf("%u",&l);

　　printf("%c",lock(l));

　　break;

　　case 'h' : printf("**********Er6y Programmer Help Window***********n");

　　break;

　　default : break;}

　　}

　　}