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

万家正

51单片机作的电子钟程序在很多地方已经有了介绍， 对于单片机学习者而言这个程序基本上是一道门槛，掌握了电子钟程序， 基本上可以说51单片机就掌握了80%。常见的电子钟程序由显示部分， 计算部分， 时钟调整部分构成。
    时钟的基本显示原理：时钟开始显示为0时0分0秒，也就是数码管显示000000，然后每秒秒位加1 ，到9后，10秒位加1，秒位回0。10秒位到5后，即59秒 ，分钟加1，10秒位回0。依次类推，时钟最大的显示值为23小时59分59秒。这里只要确定了1秒的定时时间， 其他位均以此为基准往上累加。
6 r' l. j2 t. H/ O& g- U0 w+ Q    开始程序定义了秒， 十秒， 分， 十分，小时， 十小时，共6位的寄存器， 分别存在30h，31h，32h，33h，34h，35h单元，便于程序以后调用和理解。
1 K5 X& V* d6 V9 V4 d    6个数码管分别显示时、分、秒，一个功能键，可以切换调整时分秒、增加数值、熄灭节电等功能全部集一键。
/ e/ w+ E7 l/ n. U( I0 F
: B8 i: R3 \/ g
3 F* L# w. _! m( |

以下是部分汇编源程序，购买我们产品后我们用光盘将完整的单片机汇编源程序和烧写文件送给客户。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5 `+ a/ h/ \$ ~9 A, y$ e;; 中断入口程序 ;;  (仅供参考)
1 ]# A; N& s& M7 e: y! u* U;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
2 B; g& u) |5 d1 AORG 0000H ;程序执行开始地址
# c% t# }* l" z$ h. w7 ~- K- QLJMP START ;跳到标号START执行
. I) [% c* y* D2 b3 G+ r. d  @% |ORG 0003H ;外中断0中断程序入口
RETI ;外中断0中断返回
) ^* }6 \7 V. y  R$ O5 {3 GORG 000BH ;定时器T0中断程序入口
4 `/ \2 G  {  @, SLJMP INTT0 ;跳至INTTO执行
ORG 0013H ;外中断1中断程序入口
2 {* C: E/ A/ _" |RETI ;外中断1中断返回
ORG 001BH ;定时器T1中断程序入口
$ G# t) E  W! ?5 h& ^LJMP INTT1 ;跳至INTT1执行
ORG 0023H ;串行中断程序入口地址
. h5 Z1 U, a6 |RETI ;串行中断程序返回
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 主 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( g+ d) n7 R7 |2 W, S- W  A! n0 C;
! l) b  T" P# |5 k% HSTART: MOV R0,#70H ;清70H-7AH共11个内存单元
MOV R7,#0BH
2 J5 L$ K+ }$ Q# X# K;clr P3.7 ;
- ~+ t0 ^8 V! D$ p& R  yCLEARDISP: MOV @R0,#00H ;
+ o2 ]1 e  Z1 V9 D" MINC R0 ;
DJNZ R7,CLEARDISP ;
3 Q/ }5 L- G- p2 O( g5 \, ?MOV 20H,#00H ;清20H（标志用）
MOV 7AH,#0AH ;放入"熄灭符"数据
MOV TMOD,#11H ;设T0、T1为16位定时器
MOV TL0,#0B0H ;50MS定时初值（T0计时用）
2 r9 o/ }; Z" i8 O) n5 \+ tMOV TH0,#3CH ;50MS定时初值
' |# t+ g: K3 F4 R( ^0 o, q. NMOV TL1,#0B0H ;50MS定时初值（T1闪烁定时用）
MOV TH1,#3CH ;50MS定时初值
- J3 m7 q0 w5 NSETB EA ;总中断开放
  {- E/ j5 z& {% B  Z$ WSETB ET0 ;答应T0中断
! {' u4 Y" g- q( Z' e) i5 A) [SETB TR0 ;开启T0定时器
! D0 X; i( ~( g, I' F' @MOV R4,#14H ;1秒定时用初值（50MS×20）
% u- `  j" _. l0 \& ]  W- a) ^, v! ySTART1: LCALL DISPLAY ;调用显示子程序
JNB P3.7,SETMM1 ;P3.7口为0时转时间调整程序
SJMP START1 ;P3.7口为1时跳回START1
3 d+ F! s- ^; l: V6 A6 J& E$ KSETMM1: LJMP SETMM ;转到时间调整程序SETMM
: A; a& ?9 l$ z# H;
- w* i7 b. _  f1 W, G) _;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 E- n% Z4 f8 Z2 e  T;; 1秒计时程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;T0中断服务程序
INTT0: PUSH ACC ;累加器入栈保护
PUSH PSW ;状态字入栈保护
& p0 S% z* E8 p' ]- Y' m6 tCLR ET0 ;关T0中断答应
7 u) O. U- i# `& q$ bCLR TR0 ;封闭定时器T0
5 j6 l2 c, n6 q& n/ N4 ~  `. @MOV A,#0B7H ;中断响应时间同步修正
ADD A,TL0 ;低8位初值修正
MOV TL0,A ;重装初值（低8位修正值）
MOV A,#3CH ;高8位初值修正
ADDC A,TH0 ;
; V, Q) D1 s( j5 s  C& R# f3 @MOV TH0,A ;重装初值（高8位修正值）
7 ~4 q' x# v( L9 z! W) }; @0 i5 N2 NSETB TR0 ;开启定时器T0
DJNZ R4, OUTT0 ;20次中断未到中断退出
ADDSS: MOV R4,#14H ;20次中断到（1秒）重赋初值
) ~7 [! s% C* ~- H- VMOV R0,#71H ;指向秒计时单元（71H-72H）
( x/ \5 U  w( |* {- LACALL ADD1 ;调用加1程序（加1秒操作）
MOV A,R3 ;秒数据放入A（R3为2位十进制数组合）
CLR C ;清进位标志
CJNE A,#60H,ADDMM ;
ADDMM: JC OUTT0 ;小于60秒时中断退出
ACALL CLR0 ;大于或即是60秒时对秒计时单元清0
MOV R0,#77H ;指向分计时单元（76H-77H）
ACALL ADD1 ;分计时单元加1分钟
MOV A,R3 ;分数据放入A
% g/ K8 K; r# k3 Z) T& ?CLR C ;清进位标志
" v3 p- [+ p7 D) q1 K; uCJNE A,#60H,ADDHH ;
" \. b; T- d0 L$ {% a/ h8 ]ADDHH: JC OUTT0 ;小于60分时中断退出
3 L* D5 Y6 a. bACALL CLR0 ;大于或即是60分时分计时单元清0
MOV R0,#79H ;指向小时计时单（78H-79H）
! L( `" I: [; d# s4 w& S& _' gACALL ADD1 ;小时计时单元加1小时
MOV A,R3 ;时数据放入A
CLR C ;清进位标志
CJNE A,#24H,HOUR ;
/ p) |( ?( E& E1 P9 m7 ]HOUR: JC OUTT0 ;小于24小时中断退出
ACALL CLR0 ;大于或即是24小时小时计时单元清0
7 `4 N8 \* K# s- EOUTT0: MOV 72H,76H ;中断退出时将分、时计时单元数据移
MOV 73H,77H ;入对应显示单元
MOV 74H,78H ;
2 R& c4 s+ H2 j+ K) q0 lMOV 75H,79H ;
' x1 X* l2 f6 GPOP PSW ;恢复状态字（出栈）
POP ACC ;恢复累加器
- f7 G# @, e9 ~& ASETB ET0 ;开放T0中断
( t/ d% T& W/ D% W; o: M) y: }RETI ;中断返回
% [5 V5 w, a" ?, l8 b0 J  }7 T;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 闪动调时 程 序 ;;
+ m5 z- Q2 ^# Y; X;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
: _3 t7 _" I5 Y;T1中断服务程序，用作时间调整时调整单元闪烁指示
3 Z2 Z. ~' i! ?  J5 O$ N) JINTT1: PUSH ACC ;中断现场保护
PUSH PSW ;
5 `, C) k5 |5 x, lMOV TL1, #0B0H ;装定时器T1定时初值
MOV TH1, #3CH ;
, p4 D1 E% u9 [. V# k9 ]DJNZ R2,INTT1OUT ;0.3秒未到退出中断（50MS中断6次）
) }) v4 q8 T7 W" Z% [MOV R2,#06H ;重装0.3秒定时用初值
9 L6 t. m- Y6 J4 z3 sCPL 02H ;0.3秒定时到对闪烁标志取反
( P# d7 P: Y8 S4 U& c* yJB 02H,FLASH1 ;02H位为1时显示单元"熄灭"
; R6 B! A1 [" }* ?MOV 72H,76H ;02H位为0时正常显示
- w0 G4 x/ \9 \/ j$ k4 ZMOV 73H,77H ;
6 s& ?# ?6 k6 ]! ]1 rMOV 74H,78H ;
MOV 75H,79H ;
INTT1OUT: POP PSW ;恢复现场
POP ACC ;
  h) U2 z5 n" v; M. i* j9 FRETI ;中断退出
FLASH1: JB 01H,FLASH2 ;01H位为1时，转小时熄灭控制
' z0 O* W, P5 `+ dMOV 72H,7AH ;01H位为0时，"熄灭符"数据放入分
- w4 @4 s* j& v+ A3 P* G# qMOV 73H,7AH ;显示单元（72H-73H），将不显示分数据
& q6 u, {; A! T" j/ k9 o7 `  E2 ?MOV 74H,78H ;
/ W" ]) w. _) S. A+ S! {MOV 75H,79H ;
# a, e: {( U; p% }% C+ `7 `: S5 C, ~AJMP INTT1OUT ;转中断退出
9 b. m1 G, n% U/ v- v3 qFLASH2: MOV 72H,76H ;01H位为1时，"熄灭符"数据放入小时
6 u. X2 A  I3 d8 t6 \( Q% i& XMOV 73H,77H ;显示单元（74H-75H），小时数据将不显示
4 Z4 |: K# a) h( ^7 J5 ~MOV 74H,7AH ;
MOV 75H,7AH ;
2 i0 b# @, t, }AJMP INTT1OUT ;转中断退出
;
, r7 F9 k  x& m3 n8 J" p;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 加1子 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5 u& |! b  k) `$ m: N2 Y;
7 P+ e& L- J; B# }; U$ ZADD1: MOV A,@R0 ;取当前计时单元数据到A
DEC R0 ;指向前一地址
SWAP A ;A中数据高四位与低四位交换
5 C5 f# F+ O3 o1 W2 b% v1 Q& H3 P0 wORL A,@R0 ;前一地址中数据放入A中低四位
. W% w+ f2 Y6 A8 Q/ t( o/ V4 UADD A,#01H ;A加1操作
DA A ;十进制调整
MOV R3,A ;移入R3寄存器
) t7 c) d( F1 G0 V3 }6 s3 q; PANL A,#0FH ;高四位变0
MOV @R0,A ;放回前一地址单元
8 M. D, \) m/ n& bMOV A,R3 ;取回R3中暂存数据
INC R0 ;指向当前地址单元
SWAP A ;A中数据高四位与低四位交换
6 }: A0 N9 v- p) q% |. CANL A,#0FH ;高四位变0
MOV @R0,A ;数据放入当削地址单元中
RET ;子程序返回
;
. l) R# b; E# L; K) e& ~* D' D;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 I% E% r" j0 Y# X7 z) x;; 清零程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;.............
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 时钟调整程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
" f7 [# d* A" _- G;当调时按键按下时进入此程序
SETMM: cLR ET0 ;关定时器T0中断
# ]4 j, s; P8 fCLR TR0 ;封闭定时器T0
) V+ X% \8 B# `2 r5 j. u) Z$ n0 i0 FLCALL DL1S ;调用1秒延时程序
9 I. D. [* K) wJB P3.7,CLOSEDIS ;键按下时间小于1秒，封闭显示（省电）
. R' ?! j, v  A; ZMOV R2,#06H ;进入调时状态，赋闪烁定时初值
5 Y; d# v, l* N, K6 D1 |4 z7 [SETB ET1 ;答应T1中断
, _: }# T1 c  @SETB TR1 ;开启定时器T1
7 d$ K; d( N  [9 O. ^2 cSET2: JNB P3.7,SET1 ;P3.7口为0（键未开释），等待
/ }% k5 E. @! ^  V# g/ l  L+ QSETB 00H ;键开释，分调整闪烁标志置1
' s' ?% M  u, OSET4: JB P3.7,SET3 ;等待键按下
) w" v, q+ W2 H' ELCALL DL05S ;有键按下，延时0.5秒
6 j0 R, _. N% m2 N3 n) o) YJNB P3.7,SETHH ;按下时间大于0.5秒转调小时状态
MOV R0,#77H ;按下时间小于0.5秒加1分钟操作
LCALL ADD1 ;调用加1子程序
$ z& Z' A0 [& D5 F' R8 XMOV A,R3 ;取调整单元数据
* u! d" p4 s* w4 c% mCLR C ;清进位标志
7 x5 w+ L; \7 i+ f, H/ w" h9 nCJNE A,#60H,HHH ;调整单元数据与60比较
HHH: JC SET4 ;调整单元数据小于60转SET4循环
: _* `. i+ f# ]4 W# r$ P, yLCALL CLR0 ;调整单元数据大于或即是60时清0
CLR C ;清进位标志
" ?% B2 J  L/ J$ B  X8 VAJMP SET4 ;跳转到SET4循环
CLOSEDIS: SETB ET0 ;省电（LED不显示）状态。开T0中断
SETB TR0 ;开启T0定时器（开时钟）
CLOSE: JB P3.7,CLOSE ;无按键按下，等待。
) m3 B, _3 ]. O- yLCALL DISPLAY ;有键按下，调显示子程序延时削抖
3 M4 G; ~, X4 yJB P3.7,CLOSE ;是干扰返回CLOSE等待
8 i% B* o: A! l* i# q, |; v) rWAITH: JNB P3.7,WAITH ;等待键开释
8 I! e4 R: s" rLJMP START1 ;返回主程序（LED数据显示亮）
SETHH: CLR 00H ;分闪烁标志清除（进入调小时状态）
SETHH1: JNB P3.7,SET5 ;等待键开释
# S& Q( f# _8 `  g0 ?0 GSETB 01H ;小时调整标志置1
SET6: JB P3.7,SET7 ;等待按键按下
8 ?$ ]8 K( |8 H- m+ X1 \9 o4 WLCALL DL05S ;有键按下延时0.5秒
3 L, n( @* U8 V4 M( ^6 ^JNB P3.7,SETOUT ;按下时间大于0.5秒退出时间调整
MOV R0,#79H ;按下时间小于0.5秒加1小时操作
7 [. s% {2 s0 |5 [- S4 aLCALL ADD1 ;调加1子程序
$ i. l* f  w! v7 aMOV A,R3 ;
CLR C ;
, ]2 |( o( o  i8 OCJNE A,#24H,HOUU ;计时单元数据与24比较
HOUU: JC SET6 ;小于24转SET6循环
LCALL CLR0 ;大于或即是24时清0操作
2 J, y, y5 p' L% Q2 N) n# ^6 p, vAJMP SET6 ;跳转到SET6循环
$ X3 P5 [2 A7 J/ X! |SETOUT: JNB P3.7,SETOUT1 ;调时退出程序。等待键开释
9 L0 [  B# _* F7 tLCALL DISPLAY ;延时削抖
/ G7 D: Q% r0 o, N0 q4 ZJNB P3.7,SETOUT ;是抖动，返回SETOUT再等待
CLR 01H ;清调小时标志
CLR 00H ;清调分标志
( u4 ]0 Q: @, r! d5 u+ |. hCLR 02H ;清闪烁标志
. \( f4 y: q3 TCLR TR1 ;封闭定时器T1
+ U1 s, n2 z) |& Q3 a3 ACLR ET1 ;关定时器T1中断
! A# D! t# |4 Q+ E5 xSETB TR0 ;开启定时器T0
$ m+ x- }$ H& W* E- nSETB ET0 ;开定时器T0中断（计时开始）
4 J+ c; j8 V4 j. ]4 a8 c9 v) x5 LLJMP START1 ;跳回主程序
SET1: LCALL DISPLAY ;键开释等待时调用显示程序（调分）
AJMP SET2 ;防止键按下时无时钟显示
SET3: LCALL DISPLAY ;等待调分按键时时钟显示用
( p# v! R! i4 f% k) U( |( e$ J2 sAJMP SET4
5 }7 [& {( A5 x+ t! Q3 USET5: LCALL DISPLAY ;键开释等待时调用显示程序（调小时）
AJMP SETHH1 ;防止键按下时无时钟显示
  |3 ~! A$ ?, }0 HSET7: LCALL DISPLAY ;等待调小时按键时时钟显示用
' p4 u4 ?3 J( D. G3 @AJMP SET6
. a8 {% ]1 f: N9 _SETOUT1: LCALL DISPLAY ;退出时钟调整时键开释等待
6 t' m0 G' j  P6 y, QAJMP SETOUT ;防止键按下时无时钟显示
! s- X: l! U4 r2 A3 _;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 显示程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$$$$$$$$$$$$$$$$$$$$$$$$$$$
;1MS延时程序，LED显示程序用
DL1MS: MOV R6,#14H
DL1: MOV R7,#19H
DL2: DJNZ R7,DL2
DJNZ R6,DL1
4 c4 D; b+ g1 Q$ [' w0 tRET
, o4 D$ _2 z  ^! d;20MS延时程序，采用调用显示子程序以改善LED的显示闪烁现象
4 x5 n; N. C- m# }6 }' H! bDS20MS: ACALL DISPLAY
ACALL DISPLAY
ACALL DISPLAY
) @$ J3 G/ H2 p" t3 WRET
;延时程序，用作按键时间的长短判定
DL1S: LCALL DL05S
) t9 K+ S0 N3 i1 p5 X6 g. W% B( ]LCALL DL05S
RET
DL05S: MOV R3,#20H ;8毫秒*32=0.196秒
& p) D% b' ~: m. E" fDL05S1: LCALL DISPLAY
+ K) \2 t+ B! O9 B7 D# \- {4 x0 NDJNZ R3,DL05S1
4 \/ ~  c6 M" ]0 z4 j. A% o7 mRET
END ;程序结束