电子时钟程序

//=======主函数==================================

ORG 0000H

LJMP MAIN

ORG000BH

LJMP T00

//ORG001BH

//LJMP T11

ORG 0030H

//=======程序初始化=============================

MAIN:

MOV TMOD,#11H

MOV TH0,#3CH

MOV TL0,#0B0H

MOV TH1,#0F0H

MOV TL1,#0B0H

SETB EA

SETB ET0

// SETB ET1

SETB TR0

//橘段配 SETB TR1

CLR P3.4

MOV R7,#00H 秒值

MOV 30H,#00H 秒个位值

MOV 31H,#00H 秒十位值

MOV 32H,#00H 分个位

MOV 33H,#00H 分十位

MOV 34H,#00H 时个位

MOV 35H,#00H 时十位

MOV 44H,#00H 秒表毫秒十燃纳位

MOV 45H,#00H 秒表秒毫秒百位

MOV 46H,#00H 秒表秒个位

MOV 47H,#00H 秒表秒十位

MOV 48H,#00H 秒表分个位

MOV 49H,#00H 秒表分十位

MOV P2,#0F0H P2口按键初始化

MOV 40H,#01H 数码管休眠值 /流水灯/秒表开关数

MOV 41H,#08H 流水灯循环值

MOV 42H,#00H 秒表暂停

// ACALL T11

//-----------------------------------------------

MAIN1:

MOV P0,#0FFH

MOV P1,#0FFH

MOV R0,40H

CJNE R0,#01H,ACL1

ACALL MAIN2时钟显示

ACL1:CJNE R0,#02H,ACL2

ACALL MAIN3秒表

ACL2:CJNE R0,#03H,ACL3

ACALL LED流水灯

ACL3:ACALL KEY 按键扫描

/圆指/ ACALL BAO定时报警

LJMP MAIN1

//=======报警子程序============================

BAO:MOV R4,33H

CJNE R4,#03H,YY1

CLR P3.2

ACALL KEY

LJMP YY2

YY1:CJNE R4,#05H,YY2

SETB P3.2

ACALL KEY

YY2:RET

//======时钟扫描子程序=======================

MAIN2:

MOV A,30H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.0

ACALL DELAY

MOV A,31H

MOV DPTR,#TAB

MOVC A,@A+ DPTR

MOV P0,A

CLR P1.1

SETB P1.0

ACALL DELAY

MOV A,32H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.2

SETB P1.1

ACALL DELAY

MOV A,33H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.3

SETB P1.2

ACALL DELAY

MOV A,34H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.4

SETB P1.3

ACALL DELAY

MOV A,35H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.5

SETB P1.4

ACALL DELAY

MOV P0,#7FH

MOV P1,#0EBH

ACALL DELAY

MOV P1,#0FFH

RET

//========秒表扫描子程序=========================

MAIN3:

MOV A,44H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.0

ACALL DELAY

MOV A,45H

MOV DPTR,#TAB

MOVC A,@A+ DPTR

MOV P0,A

CLR P1.1

SETB P1.0

ACALL DELAY

MOV A,46H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.2

SETB P1.1

ACALL DELAY

MOV A,47H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.3

SETB P1.2

ACALL DELAY

MOV A,48H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.4

SETB P1.3

ACALL DELAY

MOV A,49H

MOV DPTR,#TAB

MOVC A,@A+DPTR

MOV P0,A

CLR P1.5

SETB P1.4

ACALL DELAY

MOV P0,#7FH

MOV P1,#0EBH

ACALL DELAY

MOV P1,#0FFH

RET

//=======定时器T0中断服务========================

T00:MOV TH0,#0D8H

MOV TL0,#0F0H

INC R7

CJNE R7,#64H,AA

MOV R7,#00H

//-------时钟跑值--------------------------------

TK1:INC 30H 每秒钟秒个位增一

MOV R6,30H

CJNE R6,#0AH,AA

MOV 30H,#00H

TK2:INC 31H

MOV R6,31H

CJNE R6,#06H,AA

MOV 31H,#00H

TK3:INC 32H

MOVR6,32H

CJNE R6,#0AH,AA

MOV32H,#00H

TK4:INC33H

MOVR6,33H

CJNE R6,#06H,AA

MOV33H,#00H

TK5:INC34H

MOVR5,34H

MOVR6,35H

CJNE R5,#04H,TK6

CJNE R6,#02H,TK6

MOV34H,#00H

MOV35H,#00H

TK6:CJNE R5,#0AH,AA

MOV34H,#00H

INC35H

//-------秒表跑值----------------------

AA:

MOV R5,42H

CJNE R5,#01H,TK7

INC 44H

TK7:MOV R5,44H

CJNE R5,#0AH,AA1

MOV 44H,#00H

INC 45H

MOV R5,45H

CJNE R5,#0AH,AA1

MOV 45H,#00H

INC 46H

MOV R5,46H

CJNE R5,#0AH,AA1

MOV 46H,#00H

INC 47H

MOV R5,47H

CJNE R5,#06H,AA1

MOV 47H,#00H

INC 48H

MOV R5,48H

CJNE R5,#0AH,AA1

MOV 48H,#00H

INC 49H

MOV R5,49H

CJNE R5,#06H,AA1

MOV 49H,#00H

AA1:RETI

//====定时器T1中断服务子程序====================

//T11:MOV TH1,#0F0H

// MOV TL1,#0B0H

// RETI

//******定时时间调整子程序*************************//

TBAO:

MOV 50H,#00H

MOV 51H,#00H

MOV 52H,#00H

MOV 53H,#00H

MOV 54H,#00H

MOV 55H,#00H

MOV R3,50H

DJNZ 30H,RET1

RET1: RET

//======键盘扫描子程序==========================

KEY:MOV P2,#0F0H

MOV R3,P2

CJNE R3,#0F0H,KE0

LJMP KK13

KE0:CJNE R3,#0E0H,KE1 P2.4行

MOV P2,#0EFH

JB P2.3,KK1 //用作调定时时间 K13 秒个位增一

ACALL DELAY1

ACALL TK1

KK1:JB P2.2,KK2 K14 秒十增一

ACALL DELAY1

ACALL TK2

KK2:JB P2.1,KK3 K15 分个位增一

ACALL DELAY1

ACALL TK3

KK3:JB P2.0,KE1 K16 分十位增一

ACALL DELAY1

ACALL TK4

KE1:MOV P2,#0DFH P2.5行

JB P2.3,KK4 K9 时个位增一

ACALL DELAY1

ACALL TK5

KK4:JB P2.2,KK5 K10 时十位增一

ACALL DELAY1

INC 35H

MOV R3,35H

CJNE R3,#03H,HH0

MOV 35H,#00H

LJMP KK5

HH0:CJNE R3,#02H,HH1

LJMP KK5

HH1:CJNE R3,#01H,HH2

LJMP KK5

HH2:MOV 35H,#00H

KK5:JB P2.1,KK6

ACALL DELAY1 K11开/关蜂鸣器

CPL P3.2

KK6:JB P2.0,KE2 K12 秒表暂停

MOV 42H,#00H

KE2:MOV P2,#0BFH P.6行

JB P2.3,KK7K5 时钟暂停/取消暂停

ACALL DELAY1

CPL ET0

KK7:JB P2.2,KK8 K6 显示/休眠/流水灯

ACALL DELAY2

INC 40H

MOV R3,40H

CJNE R3,#04H,KK8

MOV 40H,#01H

KK8:JB P2.1,KK9

// ACALL DELAY3 K7 秒表清0

MOV 44H,#00H

MOV 45H,#00H

MOV 46H,#00H

MOV 47H,#00H

MOV 48H,#00H

MOV 49H,#00H

KK9:JB P2.0,KE3 K8 秒表开始跑

MOV 42H,#01H

KE3:MOV P2,#7FH P2.7行

JB P2.3,KK10 K1 秒十位减一

ACALL DELAY1

MOV R3,31H

CJNE R3,#00H,JA1

LJMP KK10

JA1:DEC 31H

KK10:JB P2.2,KK11K2分个位减一

ACALL DELAY1

MOV R3,32H

CJNE R3,#00H,JA2

LJMP KK11

JA2: DEC 32H

KK11:JB P2.1,KK12 K3 分十位减一

ACALL DELAY1

MOV R3,33H

CJNE R3,#00H,JA3

LJMP KK12

JA3:DEC 33H

KK12:JB P2.0,KK13 K4 时个位减一

ACALL DELAY1

MOV R3,34H

CJNE R3,#00H,JA4

LJMP KK13

JA4:DEC 34H

KK13:RET

//=====流水灯子程序===========================

LED: MOV A,#0feH

MOV 41H,#08H

MOV P0,#0FFH

LED1:

MOV P1,A

MOV R3,#100

D0: ACALL DELAY

DJNZ R3,D0

MOV R3,41H

DJNZ R3,AAA

LJMP BB

AAA:RL A

MOV 41H,R3

ACALL KEY

LJMP LED1

BB:

MOV 41H,#07H

CC: MOV P1,A

MOV R3,#30

D1: ACALL DELAY

DJNZ R3,D1

MOV R3,41H

DJNZ R3,DD

LJMP LED0

DD:RR A

MOV 41H,R3

ACALL KEY

LJMP CC

LED0:RET

//=====延时子程序==============================

DELAY:MOV R1,#250

DEL1:NOP

NOP

NOP

NOP

DJNZ R1,DEL1

RET

//====调用时钟显示作延时========================

DELAY1:MOV R2,#20

DELA3: ACALL MAIN2

DJNZ R2,DELA3

RET

//====调用秒表显示作延时========================

DELAY3:MOV R2,#20

DELA5:ACALL MAIN3

DJNZ R2,DELA5

RET

//====调用延时子程序作延时======================

DELAY2:MOV R2,#100

DELA4:ACALL DELAY

DJNZ R2,DELA4

RET

//======共阳数码管段码表=================================

TAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,87H

END

汇编如下：

S_SET BIT P3.4 秒增加1按钮位

M_SET BIT P3.5 分增加1按钮位

H_SET BIT P3.7 小时增加1按钮位

SECONDEQU 30H 秒计数值变量　

MINUTEEQU 31H 分计数值变量

HOUR EQU 32H 小时计数值变量

TCNT EQU 34H 1秒定时计数器

ORG 00H 起始地址

JMP START

ORG 0BH Timer0中断向量地并盯址

JMP INT_T0

START:

MOVDPTR,#TABLE 装七段数码管段码数败滚据表TABLE

MOVHOUR,#0 计数值全部清0

MOVMINUTE,#0

MOVSECOND,#0

MOVTCNT,#0

MOVTMOD,#01H Timer 0作定时器，模式1

MOVTH0,#(65536-50000)/256定时50毫秒

MOVTL0,#(65536-50000)MOD 256

MOVIE,#82H中断使能

SETBTR0 启动Timer 0

以下是判断秒、分、小时增加1按钮是否被按下

A1:

CALL DISPLAY

JNB S_SET,S1 判断秒按钮

JNB M_SET,S2判断分按钮

JNB H_SET,S3 判断小时按钮

JMP A1循环检测

S1:

CALL DELAY去抖动

JBS_SET,A1

INC SECOND 秒位计数值加1

MOVA,SECOND A=SECOND

CJNEA,#60,J0 判断是否到60秒

MOVSECOND,#0 如果到了就清0秒位计数值

JMP K1跳到K1段

S2:

CALL DELAY

JBM_SET,A1

K1:

INC MINUTE 分位计数值加1

MOVA,MINUTE A=MINUTE

CJNEA,#60,J1 判断察蔽余是否到60分

MOVMINUTE,#0 如果到了就清0分位计数值

JMP K2

S3:

CALL DELAY

JBH_SET,A1

K2:

INC HOUR 小时计数值加1

MOVA,HOUR A=HOUR

CJNEA,#24,J2 判断是否到24小时

MOVHOUR,#0 如果到了就清0秒、分、小时位计数值

MOVMINUTE,#0

MOVSECOND,#0

JMP A1

以下程序等待秒、分、小时按钮放开

J0:

JBS_SET,A1

CALL DISPLAY

JMP J0

J1:

JBM_SET,A1

CALL DISPLAY

JMP J1

J2:

JBH_SET,A1

CALL DISPLAY

JMP J2

Timer0中断服务子程序, 进行秒、分、小时的计时

INT_T0:

MOVTH0,#(65536-50000)/256装计数初始值

MOVTL0,#(65536-50000)MOD 256

INC TCNT 1秒计数器增加1

MOVA,TCNTA=TCNT

CJNEA,#20,RETUNE 计时1秒

INC SECOND 秒计数器增加1

MOVTCNT,#0 清零TCNT

MOVA,SECOND A=SECOND

CJNEA,#60,RETUNE 计时60秒

INC MINUTE 分计数器增加1

MOVSECOND,#0 清零秒

MOVA,MINUTE A=MINUTE

CJNEA,#60,RETUNE 计时60分

INC HOUR 小时计数器增加1

MOVMINUTE,#0 清零分

MOVA,HOUR A=HOUR

CJNEA,#24,RETUNE 计时24小时　

MOVHOUR,#0 秒、分、小时计数值清0

MOVMINUTE,#0

MOVSECOND,#0

MOVTCNT,#0

RETUNE:

RETI中断服务子程序结束

以下为七段数码管显示的子程序

DISPLAY:

MOVA,SECOND A=SECOND，显示秒

MOVB,#10B=10

DIV AB A除以B

MOV P2,#00100000B 使能秒的十位

MOVC A,@A+DPTR七段数码管段码数据装入A

MOVP0,A 从P0口输出

CALL DELAY

ORL P2,#0FFH 熄灭七段数码管

MOVA,B A=B

MOV P2,#00000000B 使能秒的个位

MOVC A,@A+DPTR七段数码管段码数据装入A

MOVP0,A 从P0口输出

CALL DELAY

ORL P2,#0FFH 熄灭七段数码管

MOVA,MINUTE A=MINUTE，显示分

MOVB,#10B=10

DIV AB A除以B

MOV P2,#01100000B 使能分的十位

MOVC A,@A+DPTR七段数码管段码数据装入A

MOVP0,A 从P0口输出

CALL DELAY

ORL P2,#0FFH 熄灭七段数码管

MOVA,B A=B

MOV P2,#01000000B 使能分的个位

MOVC A,@A+DPTR七段数码管段码数据装入A

MOVP0,A 从P0口输出

CALL DELAY

ORL P2,#0FFH 熄灭七段数码管

MOVA,HOUR A=HOUR，显示小时

MOVB,#10B=10

DIV AB A除以B

MOV P2,#10100000B 使能小时的十位

MOVC A,@A+DPTR七段数码管段码数据装入A

MOVP0,A 从P0口输出

CALL DELAY

ORL P2,#0FFH 熄灭七段数码管

MOVA,B A=B

MOV P2,#10000000B 使能小时的个位

MOVC A,@A+DPTR七段数码管段码数据装入A

MOVP0,A 从P0口输出

CALL DELAY

ORL P2,#0FFH 熄灭七段数码管

RET

TABLE: 七段数码管显示码表

DB 40H,79H,24H,30H,19H

DB 12H,02H,78H,00H,10H

DELAY: 延时子程序

MOVR6,#2

D1:

MOVR7,#250

DJNZR7,$

DJNZR6,D1

RET

END

---