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

万家正

51单片机作的电子钟程序在很多地方已经有了介绍， 对于单片机学习者而言这个程序基本上是一道门槛，掌握了电子钟程序， 基本上可以说51单片机就掌握了80%。常见的电子钟程序由显示部分， 计算部分， 时钟调整部分构成。
! ^  f! F& I" ], `    时钟的基本显示原理：时钟开始显示为0时0分0秒，也就是数码管显示000000，然后每秒秒位加1 ，到9后，10秒位加1，秒位回0。10秒位到5后，即59秒 ，分钟加1，10秒位回0。依次类推，时钟最大的显示值为23小时59分59秒。这里只要确定了1秒的定时时间， 其他位均以此为基准往上累加。
    开始程序定义了秒， 十秒， 分， 十分，小时， 十小时，共6位的寄存器， 分别存在30h，31h，32h，33h，34h，35h单元，便于程序以后调用和理解。
; v3 F8 `/ ^, ~) ^7 S9 I    6个数码管分别显示时、分、秒，一个功能键，可以切换调整时分秒、增加数值、熄灭节电等功能全部集一键。
* P4 e% ^$ [4 b! t
+ L+ ?5 Q/ O" d4 F# D

以下是部分汇编源程序，购买我们产品后我们用光盘将完整的单片机汇编源程序和烧写文件送给客户。
5 y# O5 w) @' j% c+ r& \; }* r1 k" y;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 中断入口程序 ;;  (仅供参考)
' C) n! j7 M& X4 e9 C* |" \;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
! g0 n; l% K+ u+ M! j; wORG 0000H ;程序执行开始地址
LJMP START ;跳到标号START执行
ORG 0003H ;外中断0中断程序入口
RETI ;外中断0中断返回
ORG 000BH ;定时器T0中断程序入口
LJMP INTT0 ;跳至INTTO执行
- h4 O: D# M8 r$ PORG 0013H ;外中断1中断程序入口
RETI ;外中断1中断返回
ORG 001BH ;定时器T1中断程序入口
0 m0 e5 L7 ~  ZLJMP INTT1 ;跳至INTT1执行
9 J2 L9 L, p' t8 E" r  T& RORG 0023H ;串行中断程序入口地址
9 S2 ]+ x3 _' E& q% @! k9 ^8 gRETI ;串行中断程序返回
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- N1 c. ?* Y; u  {;; 主 程 序 ;;
3 Z$ T2 E% i& n;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
* _0 S% \1 y4 p- n! ~3 `4 i0 r: _( kSTART: MOV R0,#70H ;清70H-7AH共11个内存单元
MOV R7,#0BH
;clr P3.7 ;
0 J( m# L! [# n; A- eCLEARDISP: MOV @R0,#00H ;
$ a" s& u7 o+ H- }INC R0 ;
: o4 l; y" ]7 e( [7 P) y7 EDJNZ R7,CLEARDISP ;
MOV 20H,#00H ;清20H（标志用）
MOV 7AH,#0AH ;放入"熄灭符"数据
MOV TMOD,#11H ;设T0、T1为16位定时器
# {; r; g' O& A( t& g( v5 dMOV TL0,#0B0H ;50MS定时初值（T0计时用）
MOV TH0,#3CH ;50MS定时初值
: H4 y% O! [& z1 A& a* R  _& QMOV TL1,#0B0H ;50MS定时初值（T1闪烁定时用）
MOV TH1,#3CH ;50MS定时初值
SETB EA ;总中断开放
, [9 {/ O3 E0 M2 CSETB ET0 ;答应T0中断
SETB TR0 ;开启T0定时器
MOV R4,#14H ;1秒定时用初值（50MS×20）
# P# b& N, H% {4 g* n; d# tSTART1: LCALL DISPLAY ;调用显示子程序
; B) k3 K) a' L3 U/ @1 A/ \- r( HJNB P3.7,SETMM1 ;P3.7口为0时转时间调整程序
  S0 \; u5 C  X) h: B- wSJMP START1 ;P3.7口为1时跳回START1
SETMM1: LJMP SETMM ;转到时间调整程序SETMM
;
. K3 z+ Z' e$ E) g, ~3 n;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 1秒计时程序 ;;
# i" B# J) _9 T9 P7 e3 {- n% L9 l;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
: H+ T# x% ~# |0 k;T0中断服务程序
INTT0: PUSH ACC ;累加器入栈保护
PUSH PSW ;状态字入栈保护
CLR ET0 ;关T0中断答应
CLR TR0 ;封闭定时器T0
- V* ]& f9 U9 A* k# f" F  j! }) ~MOV A,#0B7H ;中断响应时间同步修正
ADD A,TL0 ;低8位初值修正
MOV TL0,A ;重装初值（低8位修正值）
MOV A,#3CH ;高8位初值修正
ADDC A,TH0 ;
2 w: f% A3 _7 R( gMOV TH0,A ;重装初值（高8位修正值）
SETB TR0 ;开启定时器T0
DJNZ R4, OUTT0 ;20次中断未到中断退出
3 G) s) \1 B0 `8 X9 xADDSS: MOV R4,#14H ;20次中断到（1秒）重赋初值
MOV R0,#71H ;指向秒计时单元（71H-72H）
' Y+ e1 }4 `; N; WACALL ADD1 ;调用加1程序（加1秒操作）
. C: j% W/ o6 a, iMOV A,R3 ;秒数据放入A（R3为2位十进制数组合）
CLR C ;清进位标志
# [4 o3 l" p( s# eCJNE A,#60H,ADDMM ;
ADDMM: JC OUTT0 ;小于60秒时中断退出
ACALL CLR0 ;大于或即是60秒时对秒计时单元清0
) k5 a7 U# a! O, m2 _" v8 AMOV R0,#77H ;指向分计时单元（76H-77H）
" h/ K* f' }6 {" f' X9 wACALL ADD1 ;分计时单元加1分钟
3 d* m7 j; P/ U* @' [" U1 KMOV A,R3 ;分数据放入A
& n/ y+ I( h0 V: x' P0 G" Q% }" xCLR C ;清进位标志
CJNE A,#60H,ADDHH ;
/ B( g6 a  L, V6 q& e! T& A, {ADDHH: JC OUTT0 ;小于60分时中断退出
ACALL CLR0 ;大于或即是60分时分计时单元清0
MOV R0,#79H ;指向小时计时单（78H-79H）
5 Q) ~5 B5 q  t3 m: y( EACALL ADD1 ;小时计时单元加1小时
MOV A,R3 ;时数据放入A
CLR C ;清进位标志
CJNE A,#24H,HOUR ;
5 a; W4 ^# u- [- U: z2 G( Y- m- RHOUR: JC OUTT0 ;小于24小时中断退出
ACALL CLR0 ;大于或即是24小时小时计时单元清0
OUTT0: MOV 72H,76H ;中断退出时将分、时计时单元数据移
MOV 73H,77H ;入对应显示单元
MOV 74H,78H ;
; k4 d3 x( r) P8 n! S8 M6 v4 tMOV 75H,79H ;
+ h0 a5 T9 E9 j9 n" MPOP PSW ;恢复状态字（出栈）
POP ACC ;恢复累加器
8 T1 ^7 k. C1 z! C/ eSETB ET0 ;开放T0中断
5 _  ?* ]/ u3 @3 c9 i% \. VRETI ;中断返回
;
) k$ z" G# b8 A  ]; F$ T;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 闪动调时 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;T1中断服务程序，用作时间调整时调整单元闪烁指示
INTT1: PUSH ACC ;中断现场保护
PUSH PSW ;
MOV TL1, #0B0H ;装定时器T1定时初值
MOV TH1, #3CH ;
DJNZ R2,INTT1OUT ;0.3秒未到退出中断（50MS中断6次）
MOV R2,#06H ;重装0.3秒定时用初值
7 i, a0 X" n1 C6 a9 x7 sCPL 02H ;0.3秒定时到对闪烁标志取反
) ?0 a- ]" D1 j4 e. J! {JB 02H,FLASH1 ;02H位为1时显示单元"熄灭"
MOV 72H,76H ;02H位为0时正常显示
MOV 73H,77H ;
# U" Y7 `% l8 r3 A" w  H0 ?MOV 74H,78H ;
1 T# C: S  x  B: T/ i* JMOV 75H,79H ;
INTT1OUT: POP PSW ;恢复现场
POP ACC ;
RETI ;中断退出
FLASH1: JB 01H,FLASH2 ;01H位为1时，转小时熄灭控制
MOV 72H,7AH ;01H位为0时，"熄灭符"数据放入分
6 W) Y" K+ g, |3 ~MOV 73H,7AH ;显示单元（72H-73H），将不显示分数据
- p& B* @7 g4 c7 J  {! ?- fMOV 74H,78H ;
! y4 l: ^, y: ~( XMOV 75H,79H ;
8 }% F# ^, N) u( Y3 b; PAJMP INTT1OUT ;转中断退出
FLASH2: MOV 72H,76H ;01H位为1时，"熄灭符"数据放入小时
MOV 73H,77H ;显示单元（74H-75H），小时数据将不显示
1 W; P% v# ?; F# K; I0 ?MOV 74H,7AH ;
MOV 75H,7AH ;
1 G! j3 v1 Y) Z/ J/ eAJMP INTT1OUT ;转中断退出
;
2 u: M  T  N/ d4 \2 V! g3 b;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 加1子 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
ADD1: MOV A,@R0 ;取当前计时单元数据到A
2 _/ g0 r8 g: v1 kDEC R0 ;指向前一地址
) \% r8 F* `2 u& \  vSWAP A ;A中数据高四位与低四位交换
ORL A,@R0 ;前一地址中数据放入A中低四位
* l/ k, [7 o! n8 V4 w' j% M6 tADD A,#01H ;A加1操作
DA A ;十进制调整
0 v) V1 P# _/ o  \MOV R3,A ;移入R3寄存器
ANL A,#0FH ;高四位变0
$ W* D6 g# e" ~% C! r8 d) JMOV @R0,A ;放回前一地址单元
MOV A,R3 ;取回R3中暂存数据
INC R0 ;指向当前地址单元
SWAP A ;A中数据高四位与低四位交换
( v" M! O$ B) D: p/ A6 L9 T8 k( EANL A,#0FH ;高四位变0
MOV @R0,A ;数据放入当削地址单元中
RET ;子程序返回
2 }- g% D. i0 c  Z% s! E;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 清零程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;.............
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 时钟调整程序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;当调时按键按下时进入此程序
SETMM: cLR ET0 ;关定时器T0中断
  D" |8 a- z5 |0 DCLR TR0 ;封闭定时器T0
LCALL DL1S ;调用1秒延时程序
' p+ h, j; X8 yJB P3.7,CLOSEDIS ;键按下时间小于1秒，封闭显示（省电）
MOV R2,#06H ;进入调时状态，赋闪烁定时初值
/ y( `; W' e  J$ h8 x# wSETB ET1 ;答应T1中断
SETB TR1 ;开启定时器T1
1 v7 q& n- X/ t; ^6 @SET2: JNB P3.7,SET1 ;P3.7口为0（键未开释），等待
/ |5 b1 |' I% d! s3 e3 hSETB 00H ;键开释，分调整闪烁标志置1
SET4: JB P3.7,SET3 ;等待键按下
LCALL DL05S ;有键按下，延时0.5秒
; P/ q* {; d4 VJNB P3.7,SETHH ;按下时间大于0.5秒转调小时状态
MOV R0,#77H ;按下时间小于0.5秒加1分钟操作
6 V: D! L; q. n3 z. W+ g6 sLCALL ADD1 ;调用加1子程序
MOV A,R3 ;取调整单元数据
9 _4 d* @2 |7 Q3 s+ H, ICLR C ;清进位标志
CJNE A,#60H,HHH ;调整单元数据与60比较
HHH: JC SET4 ;调整单元数据小于60转SET4循环
LCALL CLR0 ;调整单元数据大于或即是60时清0
CLR C ;清进位标志
/ b* e( o5 |. ], n3 B! @& hAJMP SET4 ;跳转到SET4循环
  L" c4 M% q) G/ [* Z6 oCLOSEDIS: SETB ET0 ;省电（LED不显示）状态。开T0中断
. @" s& _9 s$ a$ jSETB TR0 ;开启T0定时器（开时钟）
CLOSE: JB P3.7,CLOSE ;无按键按下，等待。
& l8 {& b# ]2 j! tLCALL DISPLAY ;有键按下，调显示子程序延时削抖
6 J6 t5 q2 V3 a. g5 Z7 I6 i# jJB P3.7,CLOSE ;是干扰返回CLOSE等待
) [7 ]) S4 u0 E% e3 p/ S' FWAITH: JNB P3.7,WAITH ;等待键开释
LJMP START1 ;返回主程序（LED数据显示亮）
" ^/ `+ k' Q: }$ `0 ?' v1 RSETHH: CLR 00H ;分闪烁标志清除（进入调小时状态）
SETHH1: JNB P3.7,SET5 ;等待键开释
( r4 G+ W* P# f) @SETB 01H ;小时调整标志置1
SET6: JB P3.7,SET7 ;等待按键按下
& m) W; a8 z6 E" QLCALL DL05S ;有键按下延时0.5秒
JNB P3.7,SETOUT ;按下时间大于0.5秒退出时间调整
MOV R0,#79H ;按下时间小于0.5秒加1小时操作
- [5 C1 b8 y' `% _* E) m; BLCALL ADD1 ;调加1子程序
: j( w$ O' @0 oMOV A,R3 ;
' i% P! S+ z& n# WCLR C ;
CJNE A,#24H,HOUU ;计时单元数据与24比较
6 H, t+ t5 _8 b+ Z3 {+ Q' Y( EHOUU: JC SET6 ;小于24转SET6循环
LCALL CLR0 ;大于或即是24时清0操作
! B: s# W7 C% A1 X* I: QAJMP SET6 ;跳转到SET6循环
SETOUT: JNB P3.7,SETOUT1 ;调时退出程序。等待键开释
LCALL DISPLAY ;延时削抖
JNB P3.7,SETOUT ;是抖动，返回SETOUT再等待
CLR 01H ;清调小时标志
5 j' J  a  \5 ^3 K, ~' |CLR 00H ;清调分标志
) k8 i4 t, A! p; O, }CLR 02H ;清闪烁标志
3 c* L! w( a5 C1 N0 v/ ~% ?$ yCLR TR1 ;封闭定时器T1
2 I+ I2 d- q$ d$ |2 r- g5 z6 ECLR ET1 ;关定时器T1中断
SETB TR0 ;开启定时器T0
( V* t, b' {- O4 `: s5 GSETB ET0 ;开定时器T0中断（计时开始）
LJMP START1 ;跳回主程序
SET1: LCALL DISPLAY ;键开释等待时调用显示程序（调分）
AJMP SET2 ;防止键按下时无时钟显示
SET3: LCALL DISPLAY ;等待调分按键时时钟显示用
; s% t1 ?1 E9 L6 M5 @# UAJMP SET4
2 ]3 N. V7 B; r* XSET5: LCALL DISPLAY ;键开释等待时调用显示程序（调小时）
! a( r1 v- Q1 m1 j; l. z! rAJMP SETHH1 ;防止键按下时无时钟显示
- [( c; s1 Y' b1 {SET7: LCALL DISPLAY ;等待调小时按键时时钟显示用
' k7 P9 u% ^: N& U. N& DAJMP SET6
# u. Y8 N2 G4 }0 g& p' ySETOUT1: LCALL DISPLAY ;退出时钟调整时键开释等待
AJMP SETOUT ;防止键按下时无时钟显示
;
9 X. |9 |3 u& l/ u& |3 M;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
, w$ P$ s0 y7 `! u) }( j;; 显示程序 ;;
- S& F" B4 n" e5 l# }+ R. v" j6 r- b;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$$$$$$$$$$$$$$$$$$$$$$$$$$$
;1MS延时程序，LED显示程序用
' S* Y" E4 W; s0 mDL1MS: MOV R6,#14H
, V4 Y7 i" w! b9 M# UDL1: MOV R7,#19H
' b' f2 Y0 \$ p4 |1 PDL2: DJNZ R7,DL2
% g# d$ b: k  z3 r8 V, x; [' UDJNZ R6,DL1
RET
3 w4 E4 L6 L# I+ h- [1 [;20MS延时程序，采用调用显示子程序以改善LED的显示闪烁现象
DS20MS: ACALL DISPLAY
% T' L8 ^& ^  Y; @ACALL DISPLAY
+ V  t' W- d$ N- CACALL DISPLAY
# c  ^& d1 \0 n9 h+ JRET
;延时程序，用作按键时间的长短判定
( x+ ^9 R1 x! D6 _DL1S: LCALL DL05S
LCALL DL05S
: h) _$ f# y+ z/ b; s. cRET
DL05S: MOV R3,#20H ;8毫秒*32=0.196秒
3 J5 [6 K6 ^2 |' |% D# o9 S" [DL05S1: LCALL DISPLAY
DJNZ R3,DL05S1
RET
  }+ {; U, }, X+ TEND ;程序结束
8 m: t$ E; w% K5 N$ X. c/ H