单片机4位数码管电子时钟

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与查表的值相加，回存给A
mov p0,a ;将A的值赋给P0口
clr p2.0 ;点亮秒十位
lcall del1ms ;调用延时1MS子程序
setb p2.0 ;灭秒十位
disp2: mov a,21h ;秒个位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.1
lcall del1ms
setb p2.1
disp3: mov a,32h ;分显示
mov b,#10
div ab
mov 22h,a
mov 23h,b
disp4: mov a,22h ;分十位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.6
lcall del1ms
setb p2.6
disp5: mov a,23h ;分个位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.7
lcall del1ms
setb p2.7
disp6: mov a,33h ;时显示
mov b,#10
div ab
mov 24h,a
mov 25h,b
disp7: mov a,24h ;时十位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.4
lcall del1ms
setb p2.4
disp8: mov a,25h ;时个位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.5
lcall del1ms
setb p2.5
ret
display1:mov a,38h ;闹钟分显示
mov b,#10
div ab
mov 26h,a
mov 27h,b
dispnz1:mov a,26h ;闹钟分十位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.6
lcall del1ms
setb p2.6
dispnz2:mov a,27h ;闹钟分个位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.7
lcall del1ms
setb p2.7
dispnz3:mov a,39h ;闹钟时显示
mov b,#10
div ab
mov 28h,a
mov 29h,b
dispnz4:mov a,28h ;闹钟时十位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.4
lcall del1ms
setb p2.4
dispnz5:mov a,29h ;闹钟时个位显示
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.5
lcall del1ms
setb p2.5
ret
table:db 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;数字0-9的十六进制数
del1ms:mov r7,#10 ;1ms延时子程序
del1: mov r6,#50
del2:djnz r6,del2
djnz r7,del1
ret
del20ms:mov r5,#40 ;20ms延时子程序
del3:mov r4,#250
del4:djnz r4,del4
djnz r5,del3
ret
key:jnb p3.2,key1 ;时间分加1按钮
jnb p3.3,key2 ;时间时加1按钮
sjmp keyout
key1:lcall del20ms ;20ms延时消抖
jb p3.2,keyout
jnb p3.2,$ ;等待按键放开
inc 32h ;分加1
mov a,32h
cjne a,#60,keyout ;判分是否加到60，没有就返回
mov 32h,#00
sjmp keyout
key2:lcall del20ms ;20ms延时消抖
jb p3.3,keyout
jnb p3.3,$ ;等待按键放开
inc 33h ;时加1
mov a,33h
cjne a,#24,keyout ;判时是否加到24，没有就返回
mov 33h,#00 ;时加到24，时清零
sjmp keyout
keyout:ret
keynz:jnb p3.4,keynz1 ;闹钟时间和当前时间切换按钮
jnb p3.5,keynz2 ;闹钟加分1按钮
jnb p3.6,keynz3 ;闹钟时加1按钮
jnb p3.7,keynz4 ;关闭闹钟按钮
sjmp nzout
nz1:lcall display1 ;调用显示闹钟时间子程序
jnb p3.5,keynz2
jnb p3.6,keynz3
keynz1:jnb p3.4,nz1 ;按住按键不放开显示闹钟时间并可以调，放开则显示当前时间
sjmp nzout
keynz2:lcall del20ms
jb p3.5,nzout
jnb p3.5,$ ;等待按键放开
inc 38h ;闹钟分加1
mov a,38h
cjne a,#60,nzout ;判闹钟分是否加到60，没有就返回
mov 38h,#00 ;闹钟分加到60，将闹钟分清零
sjmp nzout
keynz3:lcall del20ms
jb p3.6,nzout
jnb p3.6,$ ;等待按键放开
inc 39h ;闹钟时加1
mov a,39h
cjne a,#24,nzout ;判闹钟时是否加到24，没有就中断返回
mov 39h,#00 ;闹钟时加到24，闹钟时清零
sjmp nzout
keynz4:jb p3.7,nzout
jnb p3.7,$ ;等待按键放开
setb p1.0 ;关闭闹钟
sjmp nzout
nzout:ret
end

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