使用单片机制作的6位数字钟

万家正

51单片机作的电子钟程序在很多地方已经有了介绍， 对于单片机学习者而言这个程序基本上是一道门槛，掌握了电子钟程序， 基本上可以说51单片机就掌握了80%。常见的电子钟程序由显示部分， 计算部分， 时钟调整部分构成。
    时钟的基本显示原理：时钟开始显示为0时0分0秒，也就是数码管显示000000，然后每秒秒位加1 ，到9后，10秒位加1，秒位回0。10秒位到5后，即59秒 ，分钟加1，10秒位回0。依次类推，时钟最大的显示值为23小时59分59秒。这里只要确定了1秒的定时时间， 其他位均以此为基准往上累加。
7 S; |1 @6 j7 N' _    开始程序定义了秒， 十秒， 分， 十分，小时， 十小时，共6位的寄存器， 分别存在30h，31h，32h，33h，34h，35h单元，便于程序以后调用和理解。
+ M5 o$ f( D- Z! u8 X5 J3 u    6个数码管分别显示时、分、秒，一个功能键，可以切换调整时分秒、增加数值、熄灭节电等功能全部集一键。
/ s+ S* G1 O% z1 {3 ?& J% v# m
( O6 D% E' w& L' }
* a2 n  M0 d  m! u% `3 f3 t* \

* \- z  t, Y3 |  E# K1 D1 R5 y

以下是部分汇编源程序，购买我们产品后我们用光盘将完整的单片机汇编源程序和烧写文件送给客户。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 中断入口程序 ;;  (仅供参考)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
# s" W& Z8 L# NORG 0000H ;程序执行开始地址
LJMP START ;跳到标号START执行
ORG 0003H ;外中断0中断程序入口
2 }* b. s8 i2 ^4 _7 x6 cRETI ;外中断0中断返回
0 L$ J- t7 Y* I8 B" _; M8 GORG 000BH ;定时器T0中断程序入口
3 I# m+ ^3 M1 z# G4 K  J7 OLJMP INTT0 ;跳至INTTO执行
. m1 v1 w2 q$ ^' \3 X+ X6 a5 u2 GORG 0013H ;外中断1中断程序入口
3 n% n3 j3 R1 q2 X% A) VRETI ;外中断1中断返回
ORG 001BH ;定时器T1中断程序入口
% l- \& K9 J  ?- ILJMP INTT1 ;跳至INTT1执行
ORG 0023H ;串行中断程序入口地址
1 b  @  M1 u7 j: k6 k1 N2 x9 a* `RETI ;串行中断程序返回
  x  |+ s" _0 f2 ];;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- a5 Q6 o+ G5 N" I/ B  y;; 主 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$ g$ w) s% P0 z) H' b) L;
/ ?  p6 V4 R* @0 `& ASTART: MOV R0,#70H ;清70H-7AH共11个内存单元
6 j0 @$ Z, B* k7 d8 YMOV R7,#0BH
8 |5 D+ u( W  [" |! i: u( U;clr P3.7 ;
CLEARDISP: MOV @R0,#00H ;
4 E# k/ O3 g+ J; ^" l9 Y$ WINC R0 ;
& q! n5 p4 M0 Y: h- Q* T: _DJNZ R7,CLEARDISP ;
MOV 20H,#00H ;清20H（标志用）
. N8 |& ^- u; t1 e, z9 m, m( ?% i% FMOV 7AH,#0AH ;放入"熄灭符"数据
MOV TMOD,#11H ;设T0、T1为16位定时器
' d% s* N3 \, g/ x( p3 [" RMOV TL0,#0B0H ;50MS定时初值（T0计时用）
* @$ r3 j- P1 X9 _3 W$ bMOV TH0,#3CH ;50MS定时初值
MOV TL1,#0B0H ;50MS定时初值（T1闪烁定时用）
MOV TH1,#3CH ;50MS定时初值
; `9 i8 W- o6 |, T+ [SETB EA ;总中断开放
SETB ET0 ;答应T0中断
$ m( {" k9 P' X5 O/ R. T% |' P" GSETB TR0 ;开启T0定时器
8 f5 Q9 s/ h. lMOV R4,#14H ;1秒定时用初值（50MS×20）
! s- a) n; a' g8 VSTART1: LCALL DISPLAY ;调用显示子程序
JNB P3.7,SETMM1 ;P3.7口为0时转时间调整程序
SJMP START1 ;P3.7口为1时跳回START1
1 ?% B" _8 N( U! P' X# S. h+ M- wSETMM1: LJMP SETMM ;转到时间调整程序SETMM
;
, \7 m  s% H8 o) W* m;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 1秒计时程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
" M. l, w5 H3 r; i/ k;T0中断服务程序
INTT0: PUSH ACC ;累加器入栈保护
PUSH PSW ;状态字入栈保护
CLR ET0 ;关T0中断答应
- l+ [. c; S% }: L, YCLR TR0 ;封闭定时器T0
MOV A,#0B7H ;中断响应时间同步修正
ADD A,TL0 ;低8位初值修正
MOV TL0,A ;重装初值（低8位修正值）
% h3 \( W/ S; W  M+ X2 E6 x9 DMOV A,#3CH ;高8位初值修正
ADDC A,TH0 ;
$ h3 }- z  x; _0 L1 {: w# |MOV TH0,A ;重装初值（高8位修正值）
SETB TR0 ;开启定时器T0
DJNZ R4, OUTT0 ;20次中断未到中断退出
ADDSS: MOV R4,#14H ;20次中断到（1秒）重赋初值
MOV R0,#71H ;指向秒计时单元（71H-72H）
% Q# H, U( o! w( F$ h- @ACALL ADD1 ;调用加1程序（加1秒操作）
MOV A,R3 ;秒数据放入A（R3为2位十进制数组合）
/ U7 I8 R, l3 H3 t2 @! MCLR C ;清进位标志
  K1 t) q. q% t$ DCJNE A,#60H,ADDMM ;
ADDMM: JC OUTT0 ;小于60秒时中断退出
9 A% v$ z$ B+ |6 h' W; N+ @3 P  oACALL CLR0 ;大于或即是60秒时对秒计时单元清0
MOV R0,#77H ;指向分计时单元（76H-77H）
ACALL ADD1 ;分计时单元加1分钟
MOV A,R3 ;分数据放入A
CLR C ;清进位标志
CJNE A,#60H,ADDHH ;
* W1 k' }  |# W6 y6 w7 @* h! UADDHH: JC OUTT0 ;小于60分时中断退出
! B" [5 m) x8 v% dACALL CLR0 ;大于或即是60分时分计时单元清0
MOV R0,#79H ;指向小时计时单（78H-79H）
ACALL ADD1 ;小时计时单元加1小时
" ~; k" S4 r( O. h0 V# p9 AMOV A,R3 ;时数据放入A
2 b4 G5 J9 c1 f5 G2 J: R) K3 ZCLR C ;清进位标志
  u+ f  z, h) X3 B- s+ \8 a) A, B$ ~CJNE A,#24H,HOUR ;
HOUR: JC OUTT0 ;小于24小时中断退出
% ^: u) q: G* ?3 lACALL CLR0 ;大于或即是24小时小时计时单元清0
# u5 M) y. x* v; Z: ROUTT0: MOV 72H,76H ;中断退出时将分、时计时单元数据移
MOV 73H,77H ;入对应显示单元
MOV 74H,78H ;
MOV 75H,79H ;
POP PSW ;恢复状态字（出栈）
POP ACC ;恢复累加器
SETB ET0 ;开放T0中断
1 k( Q+ ^* @* X9 ORETI ;中断返回
;
% I+ B/ U2 h6 L1 v;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 闪动调时 程 序 ;;
# ]4 F, ~# o- @- O# ~( U$ H9 T2 T;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! a1 H2 L( t" k2 }) J6 w;T1中断服务程序，用作时间调整时调整单元闪烁指示
% b; t) H# Q( g) B* L7 wINTT1: PUSH ACC ;中断现场保护
PUSH PSW ;
  J* \* b: i$ n# I& lMOV TL1, #0B0H ;装定时器T1定时初值
MOV TH1, #3CH ;
DJNZ R2,INTT1OUT ;0.3秒未到退出中断（50MS中断6次）
0 R# @( a% ?# aMOV R2,#06H ;重装0.3秒定时用初值
CPL 02H ;0.3秒定时到对闪烁标志取反
( m4 T: x: q5 a+ X3 RJB 02H,FLASH1 ;02H位为1时显示单元"熄灭"
% w: j1 K3 h$ t3 c# J/ X3 E& b' @MOV 72H,76H ;02H位为0时正常显示
MOV 73H,77H ;
MOV 74H,78H ;
MOV 75H,79H ;
" E( S, X0 i& P( X; b$ M/ G$ U* ]INTT1OUT: POP PSW ;恢复现场
4 {2 X$ l( t! A% h# `5 EPOP ACC ;
. a9 x+ O9 M* M% G- j9 URETI ;中断退出
* B% }( P! V6 q- UFLASH1: JB 01H,FLASH2 ;01H位为1时，转小时熄灭控制
MOV 72H,7AH ;01H位为0时，"熄灭符"数据放入分
. O- b# p8 c/ X" a, jMOV 73H,7AH ;显示单元（72H-73H），将不显示分数据
+ P- n7 e1 o7 z$ `# S4 ^MOV 74H,78H ;
: ?1 i# u/ D3 r( EMOV 75H,79H ;
4 m8 p! `- S  U- f2 e& GAJMP INTT1OUT ;转中断退出
FLASH2: MOV 72H,76H ;01H位为1时，"熄灭符"数据放入小时
MOV 73H,77H ;显示单元（74H-75H），小时数据将不显示
MOV 74H,7AH ;
MOV 75H,7AH ;
AJMP INTT1OUT ;转中断退出
7 C2 S) X6 z7 \; z  y% s5 m! l;
9 a: b  B* f" x% Q6 p/ m% r6 {# v0 p. };;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 加1子 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
& j% t+ f; O% I3 Y6 tADD1: MOV A,@R0 ;取当前计时单元数据到A
+ ^) T3 X$ A, A: [+ u4 {: U5 f% {DEC R0 ;指向前一地址
SWAP A ;A中数据高四位与低四位交换
1 ?9 K( v, G1 k' V" ~' p; I, CORL A,@R0 ;前一地址中数据放入A中低四位
ADD A,#01H ;A加1操作
DA A ;十进制调整
MOV R3,A ;移入R3寄存器
ANL A,#0FH ;高四位变0
, u9 Y$ Q9 I, MMOV @R0,A ;放回前一地址单元
; n# x( f$ x# W5 ?$ c$ `MOV A,R3 ;取回R3中暂存数据
9 {: R6 X% {7 c& Z( uINC R0 ;指向当前地址单元
SWAP A ;A中数据高四位与低四位交换
ANL A,#0FH ;高四位变0
MOV @R0,A ;数据放入当削地址单元中
RET ;子程序返回
;
( ?7 ]( h1 X, G* X+ j;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
& ~# y/ x& Y4 O$ P. Q( Q;; 清零程序 ;;
) u) Q1 {# m% ?* J( b;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;.............
& O) H/ W2 R6 g1 P, i( x- s3 [# U;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ n1 B( k5 i# b! u;; 时钟调整程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; M! m4 K) Y; r$ R( F# C% ?, M0 @6 R;当调时按键按下时进入此程序
9 r* Q6 X9 s, K8 J0 K0 DSETMM: cLR ET0 ;关定时器T0中断
" L" g6 I0 _$ |, v8 zCLR TR0 ;封闭定时器T0
% V  M; v: o: g. n& R* CLCALL DL1S ;调用1秒延时程序
/ f* L0 M( n' r- `$ _JB P3.7,CLOSEDIS ;键按下时间小于1秒，封闭显示（省电）
. w1 P& \7 v- Z' _9 l2 Z+ hMOV R2,#06H ;进入调时状态，赋闪烁定时初值
5 r  z  a% q3 xSETB ET1 ;答应T1中断
. b5 m/ Y3 ^, TSETB TR1 ;开启定时器T1
SET2: JNB P3.7,SET1 ;P3.7口为0（键未开释），等待
9 X" S9 L& f. ?2 L5 hSETB 00H ;键开释，分调整闪烁标志置1
SET4: JB P3.7,SET3 ;等待键按下
9 [! Q+ j0 U9 y* U  I( N7 OLCALL DL05S ;有键按下，延时0.5秒
9 E# s: d- n7 \0 ^7 eJNB P3.7,SETHH ;按下时间大于0.5秒转调小时状态
5 S5 L* u/ f8 UMOV R0,#77H ;按下时间小于0.5秒加1分钟操作
LCALL ADD1 ;调用加1子程序
1 k/ e* Y$ t8 o7 ^* b) I& V, eMOV A,R3 ;取调整单元数据
CLR C ;清进位标志
CJNE A,#60H,HHH ;调整单元数据与60比较
HHH: JC SET4 ;调整单元数据小于60转SET4循环
3 [" \' s: W: j0 f- C5 w5 yLCALL CLR0 ;调整单元数据大于或即是60时清0
CLR C ;清进位标志
AJMP SET4 ;跳转到SET4循环
CLOSEDIS: SETB ET0 ;省电（LED不显示）状态。开T0中断
: C' D8 c4 \1 l+ H7 \SETB TR0 ;开启T0定时器（开时钟）
CLOSE: JB P3.7,CLOSE ;无按键按下，等待。
4 G+ a8 T& L  C& r2 n  KLCALL DISPLAY ;有键按下，调显示子程序延时削抖
* U0 j' I; |0 aJB P3.7,CLOSE ;是干扰返回CLOSE等待
  x0 u. ]4 H$ cWAITH: JNB P3.7,WAITH ;等待键开释
& A/ Q% m# z3 p; dLJMP START1 ;返回主程序（LED数据显示亮）
8 O3 s) E5 }9 n, o, p& WSETHH: CLR 00H ;分闪烁标志清除（进入调小时状态）
SETHH1: JNB P3.7,SET5 ;等待键开释
SETB 01H ;小时调整标志置1
SET6: JB P3.7,SET7 ;等待按键按下
LCALL DL05S ;有键按下延时0.5秒
JNB P3.7,SETOUT ;按下时间大于0.5秒退出时间调整
MOV R0,#79H ;按下时间小于0.5秒加1小时操作
LCALL ADD1 ;调加1子程序
MOV A,R3 ;
8 R* T) K0 B. s9 `1 A$ s) p0 z$ ZCLR C ;
- h. R* i" S& h) S/ M8 m6 [CJNE A,#24H,HOUU ;计时单元数据与24比较
6 s9 f( |) K, M4 B+ |  wHOUU: JC SET6 ;小于24转SET6循环
LCALL CLR0 ;大于或即是24时清0操作
AJMP SET6 ;跳转到SET6循环
SETOUT: JNB P3.7,SETOUT1 ;调时退出程序。等待键开释
LCALL DISPLAY ;延时削抖
JNB P3.7,SETOUT ;是抖动，返回SETOUT再等待
CLR 01H ;清调小时标志
$ Z( N4 J" t& f. A  ^: _! VCLR 00H ;清调分标志
CLR 02H ;清闪烁标志
, ^5 S+ ]' t% t, g3 f8 c* CCLR TR1 ;封闭定时器T1
CLR ET1 ;关定时器T1中断
: \0 D+ l) x0 H/ @7 nSETB TR0 ;开启定时器T0
2 j- @5 L+ t( ]7 K2 ESETB ET0 ;开定时器T0中断（计时开始）
LJMP START1 ;跳回主程序
3 s& h- ^5 }! S( KSET1: LCALL DISPLAY ;键开释等待时调用显示程序（调分）
AJMP SET2 ;防止键按下时无时钟显示
. }% Y! _3 o0 G8 k: p) gSET3: LCALL DISPLAY ;等待调分按键时时钟显示用
5 w0 f1 y  F3 G8 m! PAJMP SET4
3 T) g5 Z5 @5 ySET5: LCALL DISPLAY ;键开释等待时调用显示程序（调小时）
AJMP SETHH1 ;防止键按下时无时钟显示
SET7: LCALL DISPLAY ;等待调小时按键时时钟显示用
0 G% d3 M2 m$ R% y$ BAJMP SET6
+ Y% D8 ?& J% r* I7 FSETOUT1: LCALL DISPLAY ;退出时钟调整时键开释等待
0 o/ a' s  t! F) l# A4 gAJMP SETOUT ;防止键按下时无时钟显示
( r( m" K- N8 P. ]; u3 T;
! [6 e3 W/ m% R6 Z;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 c5 X& `8 u  _: O;; 显示程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  G, @4 y# r; g8 ^% r: a$$$$$$$$$$$$$$$$$$$$$$$$$$$
;1MS延时程序，LED显示程序用
) c8 r+ q  G+ t7 f/ eDL1MS: MOV R6,#14H
7 y/ x8 {& S$ J9 K0 ODL1: MOV R7,#19H
DL2: DJNZ R7,DL2
DJNZ R6,DL1
RET
;20MS延时程序，采用调用显示子程序以改善LED的显示闪烁现象
DS20MS: ACALL DISPLAY
ACALL DISPLAY
2 t% F  @  p8 o. [3 s* `) sACALL DISPLAY
RET
;延时程序，用作按键时间的长短判定
9 \# m/ h$ l) K5 M( i( FDL1S: LCALL DL05S
LCALL DL05S
6 d# `  V. s" }5 `% @9 _* ^RET
DL05S: MOV R3,#20H ;8毫秒*32=0.196秒
DL05S1: LCALL DISPLAY
+ w  y7 z" y) I2 P& WDJNZ R3,DL05S1
RET
) H. }" Z/ c" b, y: y1 h1 mEND ;程序结束
0 w0 m/ W& v: q( N