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[page]
disp10: mov 34h,#0bfh  ;"-"显示
        mov a,34h
        mov p0,a
  clr p2.5
  lcall del1ms
  setb p2.5
disp11: mov 35h,#0bfh  ;"-"显示
        mov a,35h
  mov p0,a
  clr p2.2
  lcall del1ms
  setb p2.2
  ret
display1:mov a,38h   ;闹钟分显示
         mov b,#10
   div ab
   mov 26h,a
   mov 27h,b
      d1:mov a,26h    ;闹钟分十位显示
         mov dptr,#table
   movc a,@a+dptr
   mov p0,a
   clr p2.3
   lcall del1ms
   setb p2.3
      d2:mov a,27h    ;闹钟分个位显示
      mov dptr,#table
   movc a,@a+dptr
   mov p0,a
   clr p2.4
   lcall del1ms
      setb p2.4
dispnz: mov a,39h  ;闹钟时显示
        mov b,#10
  div ab
  mov 28h,a
  mov 29h,b
 d5: mov a,28h   ;闹钟时十位显示
     mov dptr,#table
  movc a,@a+dptr
  mov p0,a
  clr p2.0
  lcall del1ms
  setb p2.0
 d6: mov a,29h   ;闹钟时个位显示
     mov dptr,#table
  movc a,@a+dptr
  mov p0,a
  clr p2.1
  lcall del1ms
  setb p2.1
        mov 35h,#0bfh  ;"-"显示
        mov a,35h
  mov p0,a
  clr p2.2
  lcall del1ms
  setb p2.2 
   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
keysan:jnb p3.1,key1 ;秒加1按钮
       jnb p3.2,key2 ;分加1按钮
    jnb p3.3,key3 ;时加1按钮
      
    sjmp keyout
key1: lcall del20ms
      jb p3.1,keyout
   jnb p3.1,$
   inc 31h  ;秒加1
   mov a,31h
   cjne a,#60,keyout
   mov 31h,#00
   sjmp keyout
key2:lcall del20ms
     jb p3.2,keyout
  jnb p3.2,$
  inc 32h  ;分加1
  mov a,32h
  cjne a,#60,keyout
  mov 32h,#00
  sjmp keyout
key3:lcall del20ms
     jb p3.3,keyout
  jnb p3.3,$
  inc 33h ;时加1
  mov a,33h
  cjne a,#24,keyout
  mov 33h,#00
  sjmp keyout
keyout:ret
keynz:jnb p3.4,keynz4 ;显示闹钟并可修改和显示当前时间
    jnb p3.7,keynz5
    jnb p3.5,nz3
    jnb p3.6,nz4
    sjmp nzout
nzout:ret
nz2:lcall display1
    jnb p3.5,nz3
 jnb p3.6,nz4
keynz4:jnb p3.4,nz2
  sjmp nzout
nz3:lcall del20ms
    jb p3.5,nzout
 jnb p3.5,$
    inc 38h
 mov a,38h
 cjne a,#60,nzout
 mov 38h,#00
 sjmp nzout
nz4:lcall del20ms
    jb p3.6,nzout
 jnb p3.6,$
 inc 39h
 mov a,39h
 cjne a,#24,nzout
 mov 39h,#00
 sjmp keyout
keynz5:jb p3.7,nzout
     jnb p3.7,$
  setb p1.0
 sjmp nzout
end