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

万家正

51单片机作的电子钟程序在很多地方已经有了介绍， 对于单片机学习者而言这个程序基本上是一道门槛，掌握了电子钟程序， 基本上可以说51单片机就掌握了80%。常见的电子钟程序由显示部分， 计算部分， 时钟调整部分构成。
    时钟的基本显示原理：时钟开始显示为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单元，便于程序以后调用和理解。
    6个数码管分别显示时、分、秒，一个功能键，可以切换调整时分秒、增加数值、熄灭节电等功能全部集一键。
1 A; I& e2 g* K6 I
5 ~9 W6 Z- Y! f  r5 e
  T  \  O( G8 D5 @  i

& K/ Q- h- g2 a! }7 Z

以下是部分汇编源程序，购买我们产品后我们用光盘将完整的单片机汇编源程序和烧写文件送给客户。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 H, V8 p/ D- T! D* d' Z;; 中断入口程序 ;;  (仅供参考)
; X( q7 r/ F5 t% F0 Z/ S;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
. K: p5 S0 f& v7 t8 F' |% X# s2 S;
% D9 ?& n. l! K+ T/ cORG 0000H ;程序执行开始地址
- {8 T7 w$ @, DLJMP START ;跳到标号START执行
2 q1 s& [# n& u2 n7 T( K7 o0 IORG 0003H ;外中断0中断程序入口
RETI ;外中断0中断返回
1 x2 j3 a- @# fORG 000BH ;定时器T0中断程序入口
- u7 }1 {0 A! S7 O9 k3 y$ D( j2 dLJMP INTT0 ;跳至INTTO执行
ORG 0013H ;外中断1中断程序入口
RETI ;外中断1中断返回
2 }5 Z+ d2 D( D* e4 G- o7 n4 j! ~ORG 001BH ;定时器T1中断程序入口
LJMP INTT1 ;跳至INTT1执行
# Q" P. ?# z) }. [5 m- DORG 0023H ;串行中断程序入口地址
RETI ;串行中断程序返回
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
" K: d: F! @; q/ U;; 主 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
: _& T' i" H7 S5 X& w  Y, MSTART: MOV R0,#70H ;清70H-7AH共11个内存单元
( n% d" S3 C! ^; V5 iMOV R7,#0BH
( l, M& t) t# @0 t* Y7 _/ ]6 H* {;clr P3.7 ;
- s2 S+ d  Z' Y; bCLEARDISP: MOV @R0,#00H ;
: s  L7 K$ [. T: z  x  Q+ }! AINC R0 ;
7 f4 Z: Z  `% p2 R/ v$ kDJNZ R7,CLEARDISP ;
MOV 20H,#00H ;清20H（标志用）
7 U! R1 m* h4 Q" L' mMOV 7AH,#0AH ;放入"熄灭符"数据
MOV TMOD,#11H ;设T0、T1为16位定时器
MOV TL0,#0B0H ;50MS定时初值（T0计时用）
$ X- H" }3 r, G! ?% X3 g/ ZMOV TH0,#3CH ;50MS定时初值
7 I9 S% ]; m) X9 lMOV TL1,#0B0H ;50MS定时初值（T1闪烁定时用）
/ P/ U: e, P; b& \4 I/ T- eMOV TH1,#3CH ;50MS定时初值
: ~6 P, M! q5 n4 n0 \2 nSETB EA ;总中断开放
SETB ET0 ;答应T0中断
SETB TR0 ;开启T0定时器
/ X) D/ h4 D, [- CMOV R4,#14H ;1秒定时用初值（50MS×20）
* `) C' M; Z, v3 J6 N7 L+ {" |START1: LCALL DISPLAY ;调用显示子程序
JNB P3.7,SETMM1 ;P3.7口为0时转时间调整程序
4 M: i2 {5 C1 g0 B% nSJMP START1 ;P3.7口为1时跳回START1
SETMM1: LJMP SETMM ;转到时间调整程序SETMM
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7 G- D& f- F0 i;; 1秒计时程序 ;;
" H4 |1 l  Y! v" u2 I) p0 _; I;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
/ Z$ _- g$ ^6 ?$ u1 v8 o;T0中断服务程序
% `) H( j3 i6 B) T: g" tINTT0: PUSH ACC ;累加器入栈保护
$ f& |! w& J. u+ o6 GPUSH PSW ;状态字入栈保护
$ n: `; K" o, \1 l6 S0 h3 _  c2 ^* ^CLR ET0 ;关T0中断答应
CLR TR0 ;封闭定时器T0
MOV A,#0B7H ;中断响应时间同步修正
ADD A,TL0 ;低8位初值修正
MOV TL0,A ;重装初值（低8位修正值）
MOV A,#3CH ;高8位初值修正
# b- O7 O. c; y% T& R* g5 x6 YADDC A,TH0 ;
MOV TH0,A ;重装初值（高8位修正值）
SETB TR0 ;开启定时器T0
DJNZ R4, OUTT0 ;20次中断未到中断退出
2 b9 t% @1 ?: O' u! u* QADDSS: MOV R4,#14H ;20次中断到（1秒）重赋初值
/ Q; ]  [  f9 ]% |  iMOV R0,#71H ;指向秒计时单元（71H-72H）
- k# E) n9 G! @( h: rACALL ADD1 ;调用加1程序（加1秒操作）
' Z1 ^& N/ v  ]0 q! S( f( IMOV A,R3 ;秒数据放入A（R3为2位十进制数组合）
CLR C ;清进位标志
# o1 y) u: s2 G$ bCJNE A,#60H,ADDMM ;
5 o6 s: A: n2 \: i1 `8 B# g+ p6 LADDMM: JC OUTT0 ;小于60秒时中断退出
ACALL CLR0 ;大于或即是60秒时对秒计时单元清0
2 L# \! Y+ X5 L; g0 K3 |$ S0 LMOV R0,#77H ;指向分计时单元（76H-77H）
ACALL ADD1 ;分计时单元加1分钟
MOV A,R3 ;分数据放入A
( g9 {' U- V. i: nCLR C ;清进位标志
CJNE A,#60H,ADDHH ;
' W" ~( B$ l2 F3 |7 Z7 T/ ZADDHH: JC OUTT0 ;小于60分时中断退出
/ R! w& n3 J, r' ^+ I* r; a+ yACALL CLR0 ;大于或即是60分时分计时单元清0
* g! _. H& J% W1 MMOV R0,#79H ;指向小时计时单（78H-79H）
% z- D* S/ n7 s* u. eACALL ADD1 ;小时计时单元加1小时
3 g7 q- i5 m: [4 d4 `) QMOV A,R3 ;时数据放入A
6 e  U& ~3 O9 j; a" D) ^CLR C ;清进位标志
! {7 A1 e  w. ~& M3 h9 eCJNE A,#24H,HOUR ;
1 L2 C- m8 K+ r( dHOUR: JC OUTT0 ;小于24小时中断退出
ACALL CLR0 ;大于或即是24小时小时计时单元清0
+ }+ F$ n0 [  XOUTT0: MOV 72H,76H ;中断退出时将分、时计时单元数据移
MOV 73H,77H ;入对应显示单元
# s% ]: W( u, v3 h, P- aMOV 74H,78H ;
- K, c" {: J  a/ L# Q( qMOV 75H,79H ;
POP PSW ;恢复状态字（出栈）
6 a, G4 _( \9 ]  O2 fPOP ACC ;恢复累加器
SETB ET0 ;开放T0中断
RETI ;中断返回
;
$ y* ]" G6 R( p  X( x9 ~* g" H;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$ b( k" F( o0 C;; 闪动调时 程 序 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1 h+ g' h8 }3 }5 V+ v6 c- A: f;T1中断服务程序，用作时间调整时调整单元闪烁指示
7 }) Q( I" p  X$ w1 cINTT1: PUSH ACC ;中断现场保护
PUSH PSW ;
MOV TL1, #0B0H ;装定时器T1定时初值
7 J$ S- v- K! F; p2 t7 P% F' RMOV TH1, #3CH ;
9 ]1 W7 b3 M; x% v8 F, ]DJNZ R2,INTT1OUT ;0.3秒未到退出中断（50MS中断6次）
0 o: O, D3 ]. \; ^- d: ?MOV R2,#06H ;重装0.3秒定时用初值
CPL 02H ;0.3秒定时到对闪烁标志取反
; c5 I$ l% m, t3 K9 [JB 02H,FLASH1 ;02H位为1时显示单元"熄灭"
MOV 72H,76H ;02H位为0时正常显示
MOV 73H,77H ;
MOV 74H,78H ;
MOV 75H,79H ;
/ I* Y0 k0 h5 k: j- nINTT1OUT: POP PSW ;恢复现场
! p( L+ l) y+ Z0 i7 lPOP ACC ;
8 b0 _. ]" X: p1 [# O% \1 IRETI ;中断退出
: n9 q  I" k. T; g( E( ~# Y0 ?FLASH1: JB 01H,FLASH2 ;01H位为1时，转小时熄灭控制
5 y9 k( b+ M% f  V* _2 vMOV 72H,7AH ;01H位为0时，"熄灭符"数据放入分
MOV 73H,7AH ;显示单元（72H-73H），将不显示分数据
) z& K% }3 D7 p6 t( {1 FMOV 74H,78H ;
* T3 W* C" X! M  GMOV 75H,79H ;
AJMP INTT1OUT ;转中断退出
( ~- p* l6 h- T9 CFLASH2: MOV 72H,76H ;01H位为1时，"熄灭符"数据放入小时
2 |- u8 w) C* I- P( c% G: wMOV 73H,77H ;显示单元（74H-75H），小时数据将不显示
MOV 74H,7AH ;
- q1 j. O) p2 BMOV 75H,7AH ;
3 D+ }8 E" l+ W0 q4 VAJMP INTT1OUT ;转中断退出
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 加1子 程 序 ;;
& j- q1 u* k+ ~  `: ^;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
ADD1: MOV A,@R0 ;取当前计时单元数据到A
DEC R0 ;指向前一地址
  d1 _  G& [7 d  r- S5 x/ rSWAP A ;A中数据高四位与低四位交换
1 B9 e- s# F0 h2 R) {" aORL A,@R0 ;前一地址中数据放入A中低四位
ADD A,#01H ;A加1操作
DA A ;十进制调整
MOV R3,A ;移入R3寄存器
" X" ^+ D4 W2 sANL A,#0FH ;高四位变0
1 t3 v, s$ E, ~& wMOV @R0,A ;放回前一地址单元
MOV A,R3 ;取回R3中暂存数据
  p, }3 u5 C: t. B+ ?- BINC R0 ;指向当前地址单元
SWAP A ;A中数据高四位与低四位交换
ANL A,#0FH ;高四位变0
! W2 I( ]" u6 E; A: b- z; G+ _MOV @R0,A ;数据放入当削地址单元中
RET ;子程序返回
- {+ p2 D+ G! V) @( X8 m;
" A' n; g; k, B;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 清零程序 ;;
8 Y8 E$ X% T7 A9 d- N; W$ h: ^;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;.............
) T- z! u- a* }/ A) m0 q;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 时钟调整程序 ;;
& B6 s( q1 D; \2 J+ r, _* V8 F;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; B4 R0 b( r% U4 t  R( u;当调时按键按下时进入此程序
- Z+ I) S( k3 Z6 a" tSETMM: cLR ET0 ;关定时器T0中断
CLR TR0 ;封闭定时器T0
/ `) a; h. Z  w" h4 `5 D( V8 c% \) VLCALL DL1S ;调用1秒延时程序
6 F" S  j7 l- ]% P  tJB P3.7,CLOSEDIS ;键按下时间小于1秒，封闭显示（省电）
MOV R2,#06H ;进入调时状态，赋闪烁定时初值
SETB ET1 ;答应T1中断
SETB TR1 ;开启定时器T1
/ m6 w8 I- {/ H9 Z9 U9 X+ ZSET2: JNB P3.7,SET1 ;P3.7口为0（键未开释），等待
1 Y1 I8 e2 d* J. `# t! FSETB 00H ;键开释，分调整闪烁标志置1
' Q8 x/ D( b9 g; w5 R6 OSET4: JB P3.7,SET3 ;等待键按下
LCALL DL05S ;有键按下，延时0.5秒
9 Y8 t8 Y4 N- ^& L2 p. D8 kJNB P3.7,SETHH ;按下时间大于0.5秒转调小时状态
MOV R0,#77H ;按下时间小于0.5秒加1分钟操作
LCALL ADD1 ;调用加1子程序
' l: i1 N+ {* JMOV A,R3 ;取调整单元数据
CLR C ;清进位标志
5 Y1 w5 @$ }6 Z4 Y, x3 X8 qCJNE A,#60H,HHH ;调整单元数据与60比较
; N, n, p) J) I, R% D' |HHH: JC SET4 ;调整单元数据小于60转SET4循环
0 Y' _8 e0 E: R( q$ x' YLCALL CLR0 ;调整单元数据大于或即是60时清0
CLR C ;清进位标志
  w: A  R3 @$ Q' B; ?6 d6 EAJMP SET4 ;跳转到SET4循环
! w: k5 B  C, sCLOSEDIS: SETB ET0 ;省电（LED不显示）状态。开T0中断
) P9 g  R5 t9 \0 E* G0 k5 u* dSETB TR0 ;开启T0定时器（开时钟）
  o9 ^! G2 ?- W8 kCLOSE: JB P3.7,CLOSE ;无按键按下，等待。
9 g. |8 D- ~! Q5 w5 H: r6 o# e" QLCALL DISPLAY ;有键按下，调显示子程序延时削抖
. i0 `+ t6 U% J' pJB P3.7,CLOSE ;是干扰返回CLOSE等待
: ?0 k8 v+ O5 n* g" a4 gWAITH: JNB P3.7,WAITH ;等待键开释
  Z  q/ \8 Z3 e5 V0 `LJMP START1 ;返回主程序（LED数据显示亮）
, l) j: _2 Q3 _) ySETHH: 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 ;
& i; S) @, v# gCLR C ;
CJNE A,#24H,HOUU ;计时单元数据与24比较
HOUU: JC SET6 ;小于24转SET6循环
' W1 ?3 y% A% j. CLCALL CLR0 ;大于或即是24时清0操作
8 e. ^6 Z% \9 v( eAJMP SET6 ;跳转到SET6循环
* W, Y7 C9 F, g- r9 CSETOUT: JNB P3.7,SETOUT1 ;调时退出程序。等待键开释
LCALL DISPLAY ;延时削抖
) J. ]" x. F# O' s! e0 {. vJNB P3.7,SETOUT ;是抖动，返回SETOUT再等待
CLR 01H ;清调小时标志
* o' u" u5 {. s2 HCLR 00H ;清调分标志
/ f7 l( m* T& U; ~$ JCLR 02H ;清闪烁标志
6 a7 X* P6 f. Z& s9 s9 GCLR TR1 ;封闭定时器T1
& q! e' g# n  W- o! e3 GCLR ET1 ;关定时器T1中断
SETB TR0 ;开启定时器T0
& o5 f; _5 N: E, w/ RSETB ET0 ;开定时器T0中断（计时开始）
$ ?: D7 E- y$ V4 a8 {0 qLJMP START1 ;跳回主程序
9 a- j" Y% z( O2 l* w2 e; T1 y3 WSET1: LCALL DISPLAY ;键开释等待时调用显示程序（调分）
1 m9 M( W; u9 B+ t3 u; h$ O) G. }0 J  qAJMP SET2 ;防止键按下时无时钟显示
' q/ o# I) [, T! m4 t  gSET3: LCALL DISPLAY ;等待调分按键时时钟显示用
AJMP SET4
SET5: LCALL DISPLAY ;键开释等待时调用显示程序（调小时）
AJMP SETHH1 ;防止键按下时无时钟显示
7 n) P, S# w2 t5 c& uSET7: LCALL DISPLAY ;等待调小时按键时时钟显示用
- ?% f9 x5 i1 HAJMP SET6
7 I% A+ P; N' @) J5 {# A3 ^/ }SETOUT1: LCALL DISPLAY ;退出时钟调整时键开释等待
AJMP SETOUT ;防止键按下时无时钟显示
& m- m# l2 c* O$ ^;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 显示程序 ;;
, l& K( a; s7 s* E# |$ o;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  \( _; U% t. i1 [: y2 o3 s$$$$$$$$$$$$$$$$$$$$$$$$$$$
( K7 ^; f( r# k( K;1MS延时程序，LED显示程序用
DL1MS: MOV R6,#14H
DL1: MOV R7,#19H
1 M9 @7 p! U- CDL2: DJNZ R7,DL2
+ @+ z, d0 H8 z+ U* l0 H  G* \DJNZ R6,DL1
RET
;20MS延时程序，采用调用显示子程序以改善LED的显示闪烁现象
DS20MS: ACALL DISPLAY
; I9 v8 P! ?3 E6 FACALL DISPLAY
: H" ~! k, q- k. \ACALL DISPLAY
  a( I" ~$ s' r/ g2 F8 h* h# L$ zRET
;延时程序，用作按键时间的长短判定
' l5 z. o4 r/ B" C8 t+ e9 CDL1S: LCALL DL05S
  o, f" a& J% f0 K2 hLCALL DL05S
* X3 u$ \% Q0 M$ e8 U1 i3 bRET
DL05S: MOV R3,#20H ;8毫秒*32=0.196秒
( F6 @# B' h7 F0 IDL05S1: LCALL DISPLAY
" _4 x- ]* L' S, C2 ^* p5 nDJNZ R3,DL05S1
RET
% k' R9 i: D9 o# z1 ]3 }END ;程序结束
% F; a5 N0 x0 v3 ]6 D$ q