用89S51制作简易并行编程器ATmega16

;***********************ATmega16(L)简易并行编程器**********************/
;说明：
;用于没有烧写ATmega16并行编程器的朋友，初用ATmega16的工程师在串行
;编程时写错熔丝位，及加密位，造成不能再应用串行编程，构成不便，没并行
;编程将无法再使用，做了一个简易的并行编程器(很简单，用万能板搭焊即可)，

;将的芯片加密位及熔丝恢复出厂默认值及恢复串行在线编程功能(ISP)。
;**********************************************************************
;使用说明:
;本电路有1按键(key)，执行1次将芯片加密位擦除,都要按下按键1秒钟才
;执行操作,可将at89S51的P3.1(TXD)连接1只NPN三极管(9014)、2支电阻作为
;P3.1(TXD)输出5V反相器，连接PC的RS-232接收端(RXD)，就可通过在PC执行1
;个串口调试软件SSCOMV3.0，设置波特率(2400、8、1、N)，查看到之前的加
;密位及熔丝高低字节内容，以及执行了加密位擦除之后的加密位及熔丝高低字
;节内容(FF99E1)。
;//////////////////////////////////////////////////////////////
;主控at89S51,晶振6M
;P0口编程数据输入输出,;P2编程控制
;/*******************AT89C51与ATmega16(L)各脚连接********************/
;P0.0~7<-->PB.0~PB.7
;P0.0~7要连接4.7Kx8上拉电阻到VCC(要注意:没有上拉电阻本电路是不能工作)
;********************************************************************
;P2.0-PD7(PAGEL)
;P2.1-PD6(XA1)
;P2.2-PD5(XA0)
;P2.3-PD4(BS1)
;P2.4-PD3(_WR)
;P2.5-PD2(_OE)
;P2.6-PD1(RDY/BSY)
;P2.7-(XTAL1)
;P1.0-PA0(BS2)
;-----------------------------------------
;P1.1---LED指示运行状态(p1.1=0时LED亮)
;P1.2---控制reset脚的12v电压(p1.2=1时输出12v，0时没有电压输出)
;P1.3---连接1个按键(key)的1接点，按键另1接点连接到GND
;////////////////////////////////////////////////////////////////////
;若不用不清楚请参考datesheet;
;制作成功后你就狂烧熔丝和加密位吧!!!!!!!!!!!!!!!!!!
PAGELBITP2.0;PD7flash和E2PROM页装入
XA1BITP2.1;PD6XTAL编程动作位1
XA0BITP2.2;PD5XTAL编程动作位0
BS1BITP2.3;PD4字节选择1（0：选低字节，1：选高字节）
_WRBITP2.4;PD3写脉冲
_OEBITP2.5;PD2输出允许（低有效)
RDY_BSYBITP2.6;PD10:器件正在编程，1：器件就绪等待命令
XTAL1BITP2.7;晶振输入端
;-----------------------------------------------------
BS2BITP1.0;PA0字节选择2（0：选低字节，1：选高字节）
;-----------------------------------------------------
LAMPBITP1.1;编程指示灯
_RST_12VBITP1.2;复位端12V电压
KEYBITP1.3;执行按键

CREQU0DH;CARRIAGERETURN
LFEQU0AH;LINEFEED
;****************************************************************************

ORG0000H
AJMPMAIN
ORG0030H
MAIN:
MOVSP,#70H
MOVP0,#0FFH;初始化P0,P1,P2
MOVP1,#11111000B;P1.7~4=1,KEY=1,_RST_12V=0,LED=0V.BS2=0
MOVP2,#01110000B;XTAL1=0,RDY_BSY=1,_OE=1,_WR=1,(BS1,XA0,XA1,PAGEL=0)
ACALLINT_SIO;初始化SIO
LOOP:
CPLLAMP
ACALLDELAY_1S
JBKEY,LOOP
JNBKEY,$
SETBLAMP

ACALLPROG_ST;进入并行编程模式
ACALLREAD_FUSE;读之前熔丝字节及经过TXD将内容发送到PCRS-232
ACALLChip_ERASE;擦除加密位,存储器
ACALLWRITE_FUSE;写熔丝字节
ACALLREAD_FUSE;读之后熔丝字节及经过TXD将内容发送到PCRS-232
CLR_RST_12V
CLRLAMP
ACALLSIO_CR_LF
AJMPLOOP
;**********************************
;进入并行编程模式子程序
;**********************************
PROG_ST:
MOVR1,#6
PLS:
SETBXTAL1;产生6个的XTAL1时钟脉冲触发
CLRXTAL1
DJNZR1,PLS
ANLP2,#01110000B;PAGEL,XTAL1,XA1,XA0,BS1==0
NOP;延时大于100ns
SETB_RST_12V;RST加12v电压
NOP;延时大于100ns
RET
;**********************************
;擦除加密位、存储器子程序
;***********************************
CHIP_ERASE:
CLRLAMP;指示正忙
SETBXA1;设置XA1,XA0="10"允许装入命令
CLRXA0
CLRBS1
CLRBS2
MOVP0,#80H;送出芯片擦除命令
SETBXTAL1
CLRXTAL1;输入正脉冲将命令装入芯片
NOP
SETB_WR
CLR_WR
SETB_WR;输入一个负脉冲，开始执行命令擦除芯片
JBRDY_BSY,$;等待RDY/BSY变高，表示擦除完成
JNBRDY_BSY,$
ACALLDELAY_106US
SETBLAMP;指示空闲
ACALLDELAY_106US
RET
;///////////////写熔丝高低字节子程序////////////////
WRITE_FUSE:
CLRLAMP;指示正忙
SETBXA1;设置XA1,XA0="10"允许装入命令
CLRXA0
CLRBS1
CLRBS2
MOVP0,#40H;送出写熔丝命令
SETBXTAL1
CLRXTAL1;XTAL1输入正脉冲将命令装入芯片
CLRXA1;设置XA1,XA0="01"允许装入数据
SETBXA0
NOP
CLRBS1;BS1,BS2="00"表示熔丝低字节“10”表示高字节
CLRBS2
MOVP0,#0E1H;DOBLEVEL=1,BODEN=1,SUT1=1,SUT1=0,SKSEL3=0,
;SKSEL2=0,SKSEL1=0,SKSEL0=1(工厂设定值)
SETBXTAL1
CLRXTAL1;XTAL1输入正脉冲数据装入芯片
SETB_WR
CLR_WR
SETB_WR;_WR输入一个负脉冲，开始执行命令
JBRDY_BSY,$;等待RDY/BSY变高，表示完成
JNBRDY_BSY,$
ACALLDELAY_106US
;/*********写高字节**********/
MOVP0,#99H;'99'为出厂设定值
SETBXTAL1
CLRXTAL1;XTAL1输入正脉冲数据装入芯片
SETBBS1
SETB_WR
CLR_WR
SETB_WR;_WR输入一个负脉冲，开始执行命令
JBRDY_BSY,$;等待RDY/BSY变高，表示完成
JNBRDY_BSY,$
CLRBS1
ACALLDELAY_106US
SETBLAMP;指示空闲
RET
;/**********读熔丝及加密位************/
READ_FUSE:
CLRLAMP;指示正忙
SETBXA1;设置XA1,XA0="10"允许装入命令
CLRXA0
CLRBS1
CLRBS2
MOVP0,#04H;送出读熔丝和锁定位命令
CLRXTAL1
SETBXTAL1
CLRXTAL1;XTAL1输入正脉冲将命令装入芯片
NOP
CLR_OE
CLRBS2;读熔丝低字节
CLRBS1
MOVP0,#0FFH
MOVR7,P0
SETBBS2;读熔丝高字节
SETBBS1
MOVR6,P0
CLRBS2;读加密位
MOVR5,P0
SETB_OE
SETBLAMP
ACALLSIO_TO_PC
RET
;------------------
DELAY_1S:
MOVR7,#1
DELAY11:
MOVR6,#0FFH
DELAY12:
MOVR5,#0FFH
DJNZR5,$
DJNZR6,DELAY12
DJNZR7,DELAY11
RET
;-------------------
DELAY_106US:
MOVR5,#18H
DJNZR5,$
RET
;************************************************************
;将R5R6R7的内容经TXD发送到PC子程序
;*************************************************************
SIO_TO_PC:
MOVA,R5;加密锁定字节
SWAPA
ACALLHEX_ASC
ACALLSIO_SEND_OUT;经TXD发送加密锁定字节的高4BIT
MOVA,R5
ACALLHEX_ASC
ACALLSIO_SEND_OUT;经TXD发送加密锁定字节的低4BIT

MOVA,#''
ACALLSIO_SEND_OUT;经TXD发送空格

MOVA,R6;熔丝高字节
SWAPA
ACALLHEX_ASC
ACALLSIO_SEND_OUT;经TXD发送熔丝高字节的高4BIT
MOVA,R6
ACALLHEX_ASC
ACALLSIO_SEND_OUT;经TXD发送熔丝高字节的低4BIT

MOVA,R7;熔丝低字节
SWAPA
ACALLHEX_ASC
ACALLSIO_SEND_OUT;经TXD发送熔丝低字节的高4BIT
MOVA,R7
ACALLHEX_ASC
ACALLSIO_SEND_OUT;经TXD发送熔丝低字节的低4BIT
MOVA,#CR
ACALLSIO_SEND_OUT
MOVA,#LF
ACALLSIO_SEND_OUT
RET
;*****************************************
;初始化SIO波特率2400(晶振6MHz)
;*****************************************
INT_SIO:
ORLPCON,#10000000B;SMOD=1T1
MOVTMOD,#00100000B
MOVTH1,#256-13;设置波特率为2400
MOVTL1,#256-13;6.MHZ石英/12/16/13=2400
SETBTR1;启动定时器T1TR1=1
ORLSCON,#01000000B;SETSIOMODE1
;******************************************
SIO_CR_LF:
MOVA,#CR
ACALLSIO_SEND_OUT
MOVA,#LF
ACALLSIO_SEND_OUT
RET
;*****************************************
;*SENDONEDATASUBROUTINE*
;*USEAFORSENDDATA*
;*****************************************
SIO_SEND_OUT:
MOVSBUF,A
JNBTI,$
CLRTI
RET
;*****************************************
;*INVERTHEXTOASCIISUBROUTINE*
;*INPUTHEXLOW4BITTOA*
;*OUTPUTASCIIFORMA*
;*****************************************
HEX_ASC:
ANLA,#00001111B
INCA
MOVCA,@A+PC
RET

DB'0123456789ABCDEF'
END