;******************************************************************************

;*  標(biāo)題:  電子時(shí)鐘的程序

;*  文件:  clock.asm

;*  日期:  2014年4月7日08:27:48

;*  版本:  1.0

;*  作者:  明亮

;*  郵箱:  success20120116@sina.cn.com

;*  網(wǎng)站:  http://www.tsinghua.edu.cn

;******************************************************************************

;*  描述:

;*  電子時(shí)鐘的程序

;******************************************************************************　

        WELA     BIT    P2.0    ;數(shù)碼管位選控制信號線

        DULA     BIT    P2.1    ;數(shù)碼管段選控制信號線

 

        S_SET   BIT  P3.5 ; SECOND按鈕位

        M_SET   BIT  P3.6 ; MINUTE按鈕位

        H_SET   BIT  P3.7 ; HOUR按鈕位

 

        SECOND EQU 30H ; 秒計(jì)數(shù)值變量　

        MINUTE     EQU 31H ; 分計(jì)數(shù)值變量　

        HOUR     EQU 32H ; 小時(shí)計(jì)數(shù)值變量　

 

        TCNT  EQU 34H ; 1秒定時(shí)計(jì)數(shù)器

 

        ORG 00H          ; 起始地址

        JMP START

 

        ORG 0BH          ; Timer 0中斷向量地址

        JMP INT_T0

 

        ORG     30H

START:

        MOV DPTR,#TABLE ; 裝七段數(shù)碼管段碼數(shù)據(jù)表TABLE

 

        MOV HOUR,#0 ; 計(jì)數(shù)值全部清0

MOV MINUTE,#0

MOV SECOND,#0

        MOV TCNT,#0

 

MOV TMOD,#01H ; Timer 0作定時(shí)器，模式1

MOV TH0,#3CH ; 裝計(jì)數(shù)初始值

        MOV TL0,#0B0H

MOV IE,#82H ; 中斷使能

SETB TR0 ; 啟動Timer 0

 

; 以下是判斷SECOND、MINUTE、HOUR按鈕是否被按下

A1:

CALL DISPLAY

JNB S_SET,S1 ; 判斷SECOND按鈕

JNB M_SET,S2 ; 判斷MINUTE按鈕

JNB H_SET,S3 ; 判斷HOUR按鈕

JMP A1 ; 循環(huán)檢測

 

S1:

CALL DELAY ; 去抖動

JB S_SET,A1

INC SECOND ; 秒位計(jì)數(shù)值加1

MOV A,SECOND ; A=SECOND

CJNE A,#60,J0 ; 判斷是否到60秒

MOV SECOND,#0 ; 如果到了就清0秒位計(jì)數(shù)值

JMP K1 ; 跳到K1段

S2:

CALL DELAY

JB M_SET,A1

K1:

INC MINUTE ; 分位計(jì)數(shù)值加1

MOV A,MINUTE ; A=MINUTE

CJNE A,#60,J1 ; 判斷是否到60分

MOV MINUTE,#0 ; 如果到了就清0分位計(jì)數(shù)值

JMP K2 ; 跳到K2段

S3:

        CALL DELAY

JB H_SET,A1

K2:

INC HOUR ; 小時(shí)計(jì)數(shù)值加1

MOV A,HOUR ; A=HOUR

CJNE A,#24,J2 ; 判斷是否到24小時(shí)

MOV HOUR,#0 ; 如果到了就清0秒、分、小時(shí)位計(jì)數(shù)值

MOV MINUTE,#0

MOV SECOND,#0

JMP A1

 

; 以下程序等待SECOND、MINUTE、HOUR按鈕放開

J0:

JB S_SET,A1

CALL DISPLAY

JMP J0

J1:

JB M_SET,A1

CALL DISPLAY

JMP J1

J2:

        JB H_SET,A1

CALL DISPLAY

JMP J2

 

; Timer 0中斷服務(wù)子程序, 進(jìn)行秒、分、小時(shí)的計(jì)時(shí)

INT_T0:

MOV TH0,#3CH         ; 裝計(jì)數(shù)初始值

MOV TL0,#0B0H

INC TCNT ; 1秒計(jì)數(shù)器增加1

MOV A,TCNT ; A=TCNT

CJNE A,#20,RETUNE     ; 計(jì)時(shí)1秒

INC SECOND ; 秒計(jì)數(shù)器增加1

MOV TCNT,#0 ; 清零TCNT

 

MOV A,SECOND ; A=SECOND

CJNE A,#60,RETUNE     ; 計(jì)時(shí)60秒

INC MINUTE ; 分計(jì)數(shù)器增加1

MOV SECOND,#0 ; 清零SECOND

 

MOV A,MINUTE ; A=MINUTE

CJNE A,#60,RETUNE ; 計(jì)時(shí)60分

INC HOUR ; 小時(shí)計(jì)數(shù)器增加1

MOV MINUTE,#0 ; 清零MINUTE

 

MOV A,HOUR ; A=HOUR

CJNE A,#24,RETUNE ; 計(jì)時(shí)24小時(shí)　

MOV HOUR,#0 ; 秒、分、小時(shí)計(jì)數(shù)值清0

MOV MINUTE,#0

MOV SECOND,#0

MOV TCNT,#0

 

RETUNE:

RETI ; 中斷服務(wù)子程序結(jié)束

 

; 以下為七段數(shù)碼管顯示的子程序

DISPLAY:

MOV A,SECOND ; A=SECOND，顯示秒

MOV B,#10 ; B=10

DIV AB ; A除以B

        MOV     P1,#0BFH

        SETB    P2.0

        CLR     P2.0

MOVC A,@A+DPTR ; 七段數(shù)碼管段碼數(shù)據(jù)裝入A

MOV P1,A            ; 從P1口輸出

        SETB    P2.1

        CLR     P2.1

CALL DELAY

 

MOV A,B ; A=B

MOV     P1,#07FH

        SETB    P2.0

        CLR     P2.0

MOVC A,@A+DPTR ; 七段數(shù)碼管段碼數(shù)據(jù)裝入A

MOV P1,A ; 從P1口輸出

SETB    P2.1

        CLR     P2.1

CALL DELAY

 

MOV     P1,#0DFH

        SETB    P2.0

        CLR     P2.0

MOV P1,#40H ; 顯示短線分隔符

SETB    P2.1

        CLR     P2.1 ; 從P1口輸出

CALL DELAY

 

MOV A,MINUTE ; A=MINUTE，顯示分

MOV B,#10 ; B=10

DIV AB ; A除以B

        MOV     P1,#0F7H

        SETB    P2.0

        CLR     P2.0

MOVC A,@A+DPTR ; 七段數(shù)碼管段碼數(shù)據(jù)裝入A

MOV P1,A ; 從P1口輸出

SETB    P2.1

        CLR     P2.1

CALL DELAY

        

MOV A,B ; A=B

MOV     P1,#0EFH

        SETB    P2.0

        CLR     P2.0

MOVC A,@A+DPTR ; 七段數(shù)碼管段碼數(shù)據(jù)裝入A

MOV P1,A ; 從P1口輸出

SETB    P2.1

        CLR     P2.1

CALL DELAY

 

MOV     P1,#0FBH

        SETB    P2.0

        CLR     P2.0

MOV P1,#40H ; 顯示短線分隔符

SETB    P2.1

        CLR     P2.1 ; 從P1口輸出

CALL DELAY

 

MOV A,HOUR ; A=HOUR，顯示小時(shí)

MOV B,#10 ; B=10

DIV AB ; A除以B

        MOV     P1,#0FEH

        SETB    P2.0

        CLR     P2.0

MOVC A,@A+DPTR ; 七段數(shù)碼管段碼數(shù)據(jù)裝入A

MOV P1,A ; 從P1口輸出

SETB    P2.1

        CLR     P2.1

CALL DELAY

        

MOV A,B ; A=B

MOV     P1,#0FDH

        SETB    P2.0

        CLR     P2.0

MOVC A,@A+DPTR ; 七段數(shù)碼管段碼數(shù)據(jù)裝入A

MOV P1,A ; 從P1口輸出

SETB    P2.1

        CLR     P2.1

CALL DELAY

RET

 

TABLE:

        DB  3FH,06H,5BH,4FH,66H

DB 6DH,7DH,07H,7FH,6FH

 

DELAY:

MOV R6,#9

D1:

MOV R7,#250

DJNZ R7,$

DJNZ R6,D1

RET

 

END