采用AT89C2051的6位电子钟

采用AT89C2051的6位电子钟原理如下图所示，只要硬件连接无误，保证成功。另外图中的SET按纽用于校准时间。按住2秒以上进入校准时间状态及换档和退出，快速点触用于调节时间数值。三极管采用9015即可。数码管最好采用红色的共阳型LED数码管，亮度高些，因为是扫描的显示方式，所以各个数码管的abcdefg各脚采用了总线并联,改动510欧姆的电阻可以改变显示亮度。

本文引用地址： //m.amcfsurvey.com/article/173454.htm

电子钟源程序

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;AT89C2051时钟程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;定时器T0、T1溢出周期为50MS，T0为秒计数用， T1为调整时闪烁用，
;P3.7为调整按钮，P1口 为字符输出口，采用共阳显示管。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 中断入口程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ORG0000H ;程序执行开始地址
LJMPSTART;跳到标号START执行
ORG0003H ;外中断0中断程序入口
RETI;外中断0中断返回
ORG000BH ;定时器T0中断程序入口
LJMPINTT0;跳至INTTO执行
ORG0013H ;外中断1中断程序入口
RETI;外中断1中断返回
ORG001BH ;定时器T1中断程序入口
LJMPINTT1;跳至INTT1执行
ORG0023H ;串行中断程序入口地址
RETI;串行中断程序返回
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 主 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
START:MOVR0,#70H ;清70H-7AH共11个内存单元
MOVR7,#0BH
CLEARDISP:
MOV@R0,#00H
INCR0
DJNZR7,CLEARDISP
MOV20H,#00H ;清20H（标志用）
MOV7AH,#0AH ;放入熄灭符数据
MOVTMOD,#11H ;设T0、T1为16位定时器
MOVTL0,#0B0H ;50MS定时初值（T0计时用）
MOVTH0,#3CH ;50MS定时初值
MOVTL1,#0B0H ;50MS定时初值（T1闪烁定时用）
MOVTH1,#3CH ;50MS定时初值
SETBEA ;总中断开放
SETBET0 ;允许T0中断
SETBTR0 ;开启T0定时器
MOVR4,#14H ;1秒定时用初值（50MS×20）
START1:LCALLDISPLAY;调用显示子程序
JNBP3.7,SETMM1;P3.7口为0时转时间调整程序
SJMPSTART1;P3.7口为1时跳回START1
SETMM1:LJMPSETMM;转到时间调整程序SETMM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 1秒计时程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;T0中断服务程序
INTT0:PUSHACC ;累加器入栈保护
PUSHPSW ;状态字入栈保护
CLRET0 ;关T0中断允许
CLRTR0 ;关闭定时器T0
MOVA,#0B7H ;中断响应时间同步修正
ADDA,TL0 ;低8位初值修正
MOVTL0,A;重装初值（低8位修正值）
MOVA,#3CH ;高8位初值修正
ADDCA,TH0
MOVTH0,A;重装初值（高8位修正值）
SETBTR0 ;开启定时器T0
DJNZR4,OUTT0;20次中断未到中断退出
ADDSS:MOVR4,#14H ;20次中断到（1秒）重赋初值
MOVR0,#71H ;指向秒计时单元（71H-72H）
ACALLADD1;调用加1程序（加1秒操作）
MOVA,R3;秒数据放入A（R3为2位十进制数组合）
CLRC;清进位标志
CJNEA,#60H,ADDMM
ADDMM:JCOUTT0;小于60秒时中断退出
ACALLCLR0;大于或等于60秒时对秒计时单元清0
MOVR0,#77H ;指向分计时单元（76H-77H）
ACALLADD1;分计时单元加1分钟
MOVA,R3;分数据放入A
CLRC;清进位标志
CJNEA,#60H,ADDHH
ADDHH:JCOUTT0;小于60分时中断退出
ACALLCLR0;大于或等于60分时分计时单元清0
MOVR0,#79H ;指向小时计时单元（78H-79H）
ACALLADD1;小时计时单元加1小时
MOVA,R3;时数据放入A
CLRC;清进位标志
CJNEA,#24H,HOUR
HOUR:JCOUTT0;小于24小时中断退出
ACALLCLR0;大于或等于24小时小时计时单元清0
OUTT0:MOV72H,76H ;中断退出时将分、时计时单元数据移
MOV73H,77H ;入对应显示单元
MOV74H,78H
MOV75H,79H
POPPSW ;恢复状态字（出栈）
POPACC ;恢复累加器
SETBET0 ;开放T0中断
RETI;中断返回
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 闪动调时 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;T1中断服务程序，用作时间调整时调整单元闪烁指示
INTT1:PUSHACC ;中断现场保护
PUSHPSW
MOVTL1, #0B0H;装定时器T1定时初值
MOVTH1, #3CH
DJNZR2,INTT1OUT;0.3秒未到退出中断（50MS中断6次）
MOVR2,#06H ;重装0.3秒定时用初值
CPL02H ;0.3秒定时到对闪烁标志取反
JB02H,FLASH1;02H位为1时显示单元熄灭
MOV72H,76H ;02H位为0时正常显示
MOV73H,77H
MOV74H,78H
MOV75H,79H
INTT1OUT:
POPPSW ;恢复现场
POPACC
RETI;中断退出
FLASH1:JB01H,FLASH2;01H位为1时，转小时熄灭控制
MOV72H,7AH ;01H位为0时，熄灭符数据放入分
MOV73H,7AH ;显示单元（72H-73H），将不显示分数据
MOV74H,78H
MOV75H,79H
AJMPINTT1OUT;转中断退出
FLASH2:MOV72H,76H ;01H位为1时，熄灭符数据放入小时
MOV73H,77H ;显示单元（74H-75H），小时数据将不显示
MOV74H,7AH
MOV75H,7AH
AJMPINTT1OUT;转中断退出
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 加1子 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ADD1:MOVA,@R0;取当前计时单元数据到A
DECR0;指向前一地址
SWAPA;A中数据高四位与低四位交换
ORLA,@R0;前一地址中数据放入A中低四位
ADDA,#01H ;A加1操作
DAA;十进制调整
MOVR3,A;移入R3寄存器
ANLA,#0FH ;高四位变0
MOV@R0,A;放回前一地址单元
MOVA,R3;取回R3中暂存数据
INCR0;指向当前地址单元
SWAPA;A中数据高四位与低四位交换
ANLA,#0FH ;高四位变0
MOV@R0,A;数据放入当削地址单元中
RET;子程序返回
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 清零程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;对计时单元复零用
CLR0:CLRA;清累加器
MOV@R0,A;清当前地址单元
DECR0;指向前一地址
MOV@R0,A;前一地址单元清0
RET;子程序返回
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 时钟调整程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;当调时按键按下时进入此程序
SETMM:CLRET0 ;关定时器T0中断
CLRTR0 ;关闭定时器T0
LCALLDL1S;调用1秒延时程序
JBP3.7,CLOSEDIS;键按下时间小于1秒，关闭显示（省电）
MOVR2,#06H ;进入调时状态，赋闪烁定时初值
SETBET1 ;允许T1中断
SETBTR1 ;开启定时器T1
SET2:JNBP3.7,SET1;P3.7口为0（键未释放），等待
SETB00H ;键释放，分调整闪烁标志置1
SET4:JBP3.7,SET3;等待键按下
LCALLDL05S;有键按下，延时0.5秒
JNBP3.7,SETHH;按下时间大于0.5秒转调小时状态
MOVR0,#77H ;按下时间小于0.5秒加1分钟操作
LCALLADD1;调用加1子程序
MOVA,R3;取调整单元数据
CLRC;清进位标志
CJNEA,#60H,HHH;调整单元数据与60比较
HHH:JCSET4;调整单元数据小于60转SET4循环
LCALLCLR0;调整单元数据大于或等于60时清0
CLRC;清进位标志
AJMPSET4;跳转到SET4循环
CLOSEDIS:
SETBET0 ;省电（LED不显示）状态。开T0中断
SETBTR0 ;开启T0定时器（开时钟）
CLOSE:JBP3.7,CLOSE;无按键按下，等待。
LCALLDISPLAY;有键按下，调显示子程序延时削抖
JBP3.7,CLOSE;是干扰返回CLOSE等待
WAITH:JNBP3.7,WAITH;等待键释放
LJMPSTART1;返回主程序（LED数据显示亮）
SETHH:CLR00H ;分闪烁标志清除（进入调小时状态）
SETHH1:JNBP3.7,SET5;等待键释放
SETB01H ;小时调整标志置1
SET6:JBP3.7,SET7;等待按键按下
LCALLDL05S;有键按下延时0.5秒
JNBP3.7,SETOUT;按下时间大于0.5秒退出时间调整
MOVR0,#79H ;按下时间小于0.5秒加1小时操作
LCALLADD1;调加1子程序
MOVA,R3
CLRC
CJNEA,#24H,HOUU;计时单元数据与24比较
HOUU:JCSET6;小于24转SET6循环
LCALLCLR0;大于或等于24时清0操作
AJMPSET6;跳转到SET6循环
SETOUT:JNBP3.7,SETOUT1;调时退出程序。等待键释放
LCALLDISPLAY;延时削抖
JNBP3.7,SETOUT;是抖动，返回SETOUT再等待
CLR01H ;清调小时标志
CLR00H ;清调分标志
CLR02H ;清闪烁标志
CLRTR1 ;关闭定时器T1
CLRET1 ;关定时器T1中断
SETBTR0 ;开启定时器T0
SETBET0 ;开定时器T0中断（计时开始）
LJMPSTART1;跳回主程序
SET1:LCALLDISPLAY;键释放等待时调用显示程序（调分）
AJMPSET2;防止键按下时无时钟显示
SET3:LCALLDISPLAY;等待调分按键时时钟显示用
AJMPSET4
SET5:LCALLDISPLAY;键释放等待时调用显示程序（调小时）
AJMPSETHH1;防止键按下时无时钟显示
SET7:LCALLDISPLAY;等待调小时按键时时钟显示用
AJMPSET6
SETOUT1:LCALLDISPLAY;退出时钟调整时键释放等待
AJMPSETOUT;防止键按下时无时钟显示
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 显示程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;显示数据在70H-75H单元内，用六位LED共阳数码管显示，P1口输出段码数据，P3口作
;扫描控制，每个LED数码管亮1MS时间再逐位循环。
DISPLAY:MOVR1,#70H ;指向显示数据首址
MOVR5,#0FEH ;扫描控制字初值
PLAY:MOVA,R5;扫描字放入A
MOVP3,A;从P3口输出
MOVA,@R1;取显示数据到A
MOVDPTR,#TAB;取段码表地址
MOVCA,@A+DPTR;查显示数据对应段码
MOVP1,A;段码放入P1口
LCALLDL1MS;显示1MS
INCR1;指向下一地址
MOVA,R5;扫描控制字放入A
JNBACC.5,ENDOUT;ACC.5=0时一次显示结束
RLA;A中数据循环左移
MOVR5,A;放回R5内
AJMPPLAY;跳回PLAY循环
ENDOUT:SETBP3.5 ;一次显示结束，P3口复位
MOVP1,#0FFH ;P1口复位
RET;子程序返回
TAB:DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH
;共阳段码表 012 34567 89不亮
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 延时程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;1MS延时程序，LED显示程序用
DL1MS:MOVR6,#14H
DL1:MOVR7,#19H
DL2:DJNZR7,DL2
DJNZR6,DL1
RET
;20MS延时程序，采用调用显示子程序以改善LED的显示闪烁现象
DS20MS:ACALLDISPLAY
ACALLDISPLAY
ACALLDISPLAY
RET
;延时程序，用作按键时间的长短判断
DL1S:LCALLDL05S
LCALLDL05S
RET
DL05S:MOVR3,#20H ;8毫秒*32=0.196秒
DL05S1:LCALLDISPLAY
DJNZR3,DL05S1
RET
END