51单片机8位数码管电子时钟（完结）

仿真图：

程序源代码:
作者：胡琴
联系qq：1257394091
本程序版本规本人所有可以任意转载：
技术支持网站：http://www.51hei.com
本程序已经通过在线软件仿真和硬件制作.
org 0000h ;程序开始入口地址
sjmp main ;跳转至主程序
org 000bh ;T0中断入口地址
ljmp inti0 ;跳转至T0中断程序
org 001bh ;T1中断入口地址
ljmp inti1 ;跳转至T1中断程序
org 0030h
main:mov tmod,#11h ;设T0、T1为模式1
mov ie,#8ah ;开T0、T1允许中断
mov th0,#4ch ;赋T0 50ms初值
mov tl0,#00h
mov th1,#4ch ;赋T1 50ms初值
mov tl1,#00h
mov sp,#60h ;设置堆栈指针
mov 38h,#00 ;闹钟分初值
mov 39h,#00 ;闹钟时初值
mov 31h,#00 ;时间秒初值
mov 32h,#00 ;时间分初值
mov 33h,#00 ;时间时初值
setb tr0 ;启动定时器T0
setb tr1 ;启动定时器T1
loop:lcall display ;调用时间显示程序
lcall keysan ;调用时间调节按钮
lcall keynz ;调用闹钟控制按钮
ajmp loop
inti0:push psw ;压入堆栈指针，保护现场
push acc
clr ea ;关中断
mov th0,#4ch ;重赋T0定时初值
mov tl0,#00h
inc 3ah ;3ah为50ms计数单元
mov a,3ah
cjne a,#20,out ;1秒计数是否到
mov 3ah,#00 ;清50ms计数初值
inc 31h ;秒加1
mov a,31h
cjne a,#60,out ;60秒计数是否到
mov 31h,#00
inc 32h ;分加1
mov a,32h
cjne a,#60,out ;60分计数是否到
mov 32h,#00
inc 33h ;时加1
mov a,33h
cjne a,#24,out ;24时计数是否到
mov 33h,#00
out: setb ea ;开中断
pop acc ;弹出堆栈指针，恢复现场
pop psw
reti ;中断返回
inti1:push psw ;压入堆栈指针，恢复现场
push acc
clr ea
mov th1,#4ch ;重赋T1定时初值
mov tl1,#00h
inc 71h ;71h为50ms计数单元
mov a,71h
cjne a,#20,out1
mov 71h,#00
mov a,32h ;闹钟判断
cjne a,38h,out1 ;闹钟时间分判断
mov a,33h
cjne a,39h,out1 ;闹钟时间时判断
clr p1.0 ;到闹钟时间，清p1.0
out1:setb ea ;开中断
pop acc
pop psw
reti ;中断返回
display:mov a,31h ;秒显示
mov b,#10
div ab
mov 20h,a ;将十位放入20h单元
mov 21h,b ;将个位、余数放入21h单元
disp1: mov a,20h ;秒十位显示
mov dptr,#table
movc a,@a+dptr ;将A的内容+table内容，结果回存给A
mov p0,a ;将A给P0口
clr p2.6 ;清p2.6,点亮第7位数码管
lcall del1ms ;调用1ms延时子程序
setb p2.6 ;灭第7位数码管
disp2: mov a,21h ;秒个位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.7
lcall del1ms
setb p2.7
disp4: mov a,32h ;分显示
mov b,#10
div ab
mov 22h,a
mov 23h,b
disp5: mov a,22h ;分十位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.3
lcall del1ms
setb p2.3
disp6: mov a,23h ;分个位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.4
lcall del1ms
setb p2.4
disp7: mov a,33h ;时显示
mov b,#10
div ab
mov 24h,a
mov 25h,b
disp8: mov a,24h ;时十位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.0
lcall del1ms
setb p2.0
disp9: mov a,25h ;时个位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.1
lcall del1ms
setb p2.1