標(biāo)題: 單片機(jī)制作—6位LED數(shù)碼管時(shí)鐘 匯編程序+電路圖 [打印本頁(yè)]

作者: lianlian    時(shí)間: 2015-7-14 17:06
標(biāo)題: 單片機(jī)制作—6位LED數(shù)碼管時(shí)鐘 匯編程序+電路圖

6位共陰數(shù)碼管,可作時(shí)鐘也可作秒表(估計(jì)沒(méi)人用這么多位的秒表喲)
時(shí)、分和秒可分別調(diào)整,有開(kāi)始、暫停和清零鍵。


程序清單:

;12M晶振 2010 01 14 調(diào)試完成  03 15 修改  2011 03 03 注釋

STRT EQU P2.6
STP EQU P2.7
CLRR EQU P3.0
SEC EQU P3.5
MIN EQU P3.6
HOUR EQU P3.7

ORG 00H
SJMP MAIN
ORG 0BH
AJMP T0INT0
ORG 30H

MAIN: MOV  SP,#60H
MOV R4,#20
MOV TMOD,#01H
MOV TH0,#03CH  ;#9EH 12M晶振時(shí)定時(shí)初值取#3CB0H,還可細(xì)調(diào),如 TL=#0B7H,可以更準(zhǔn)  
MOV TL0,#0B0H   ;#58H
SETB ET0
SETB EA
;MOV 28H,#12

kS: LCALL DISP ;秒調(diào)整按鍵
JB SEC,KM
LCALL DISP
JNB SEC,$-3
AJMP SINC

kM: JB MIN,KH ;分調(diào)整按鍵
LCALL DISP
JNB MIN,$-3
AJMP MINC

KH: JB HOUR,K1 ;時(shí)調(diào)整按鍵
LCALL DISP
JNB HOUR,$-3
AJMP HINC

SINC: INC 26H ;秒調(diào)整
MOV A,26H
CJNE A,#60,SINC0
MOV 26H,#0
SINC0: AJMP KS

MINC: INC 27H ;分調(diào)整
MOV A,27H
CJNE A,#60,MINC0
MOV 27H,#0
MINC0: AJMP KM

HINC: INC 28H ;時(shí)調(diào)整
MOV A,28H
CJNE A,#24,HINC0
MOV 28H,#0
HINC0: AJMP KH  
  

k1: LCALL DISP ;開(kāi)始鍵
JB STRT,K2
LCALL DISP
JNB STRT,$-3
AJMP START

k2: JB STP,K3 ;暫停鍵
LCALL DISP
JNB STP,STOP
K3: JB CLRR,KS
LCALL DISP
JNB CLRR,CLEAR ;清零鍵
AJMP KS

START: SETB TR0     ;開(kāi)始
AJMP K1

STOP: CLR TR0 ;暫停
AJMP K2

CLEAR: CLR     TR0 ;清零
MOV A,#0
MOV 26H,A
MOV     27H,A
MOV 28H,A
AJMP KS

DISP:
MOV A,26H
MOV B,#10
DIV AB
MOV 20H,B  ;余數(shù)(秒個(gè)位數(shù))
MOV 21H,A  ;商(秒十位數(shù))
MOV A,27H
MOV B,#10
DIV AB
MOV 22H,B  ;余數(shù)(分個(gè)位數(shù))
MOV 23H,A  ;商(分十位數(shù))
MOV A,28H
MOV B,#10
DIV AB
MOV 24H,B  ;余數(shù)(時(shí)個(gè)位數(shù))
MOV 25H,A  ;商(時(shí)十位數(shù))
MOV A,20H  ;秒個(gè)位
ACALL SEG7
MOV P0,A
CLR P2.0
ACALL DLY
SETB P2.0
MOV A,21H  ;秒十位
ACALL SEG7
MOV P0,A
CLR P2.1
ACALL DLY
SETB P2.1
MOV A,22H  ;分個(gè)位
ACALL SEG7
MOV P0,A
SETB P0.7
CLR P2.2
ACALL DLY
SETB P2.2
MOV A,23H  ;分十位
ACALL SEG7
MOV P0,A
CLR P2.3
ACALL DLY
SETB P2.3
MOV A,24H  ;時(shí)個(gè)位
ACALL SEG7
MOV P0,A
SETB P0.7
CLR P2.4
ACALL DLY
SETB P2.4
MOV A,25H  ;時(shí)十位
ACALL SEG7
MOV P0,A
CLR P2.5
ACALL DLY
SETB P2.5
RET


T0INT0: MOV TH0,#03CH;#9EH ;定時(shí)中斷子程序。重裝定時(shí)常數(shù)
MOV TL0,#0B0H;#58H
DJNZ R4,T0INTR ;50msX20=1S,未滿20次,跳出中斷子程序
MOV R4,#20
INC 26H  ;1S,秒存儲(chǔ)單元內(nèi)數(shù)+1
MOV A,26H
CJNE A,#60,T0INTR    ;未滿60S,跳出中斷。
MOV 26H,#0  ;滿60S,秒單元清零
INC 27H  ;分+1
MOV A,27H
CJNE A,#60,T0INTR
MOV 27H,#0
INC 28H
MOV A,28H
CJNE A,#24,T0INTR
MOV 28H,#0
T0INTR: RETI

DLY10:  MOV R3,#30
D0: ACALL DLY
DJNZ R3,D0
RET
DLY: MOV R7,#2
D1: MOV R6,#40
DJNZ R6,$
DJNZ R7,D1
RET

SEG7: INC A
MOVC A,@A+PC
RET

     DB      03FH  ;0          共陰
        DB      006H  ;1
        DB      05BH  ;2
        DB      04FH  ;3
        DB      066H  ;4
        DB      06DH  ;5
        DB      07DH  ;6
        DB      007H  ;7
        DB      07FH  ;8
        DB      06FH  ;9

END







;2011 11 25   更新。加上鬧鈴 ,按鍵功能稍作改動(dòng) E:\DPJ\CLOCK\CLOCK-MX\CLOCKADJCC-MX.ASM

STRT EQU P2.6
STP EQU P2.7
CLRR EQU P3.0
SEC EQU P3.5
MIN EQU P3.6
HOUR EQU P3.7

ORG 00H
AJMP MAIN
ORG 0BH
AJMP T0INT
ORG 1BH
AJMP T1INT
ORG 30H

MAIN:
MOV  SP,#60H
MOV R4,#20
MOV TMOD,#11H
MOV TH0,#03CH;#9EH 12M晶振時(shí)定時(shí)初值取#3CB0H,還可細(xì)調(diào)如 TL=#0B7H,可以更準(zhǔn)  
MOV TL0,#0B0H;#58H
MOV TH1,#0FEH
MOV TL1,#0CH
SETB EA
SETB ET0
SETB ET1

kS:
ACALL DISP
ACALL ALARM

JB SEC,KM   ;秒調(diào)整按鍵
ACALL DISP
JNB SEC,$-2
AJMP SINC

kM:
JB MIN,KH   ;分調(diào)整按鍵
ACALL DISP
JNB MIN,$-2
AJMP MINC

KH:
JB HOUR,K1   ;時(shí)調(diào)整按鍵
ACALL DISP
JNB HOUR,$-2
AJMP HINC

SINC:
JB 7FH,SINC_A
INC 26H ;秒調(diào)整
MOV A,26H
CJNE A,#60,SINC0
MOV 26H,#0
AJMP SINC0
SINC_A:
INC 36H ;鬧秒調(diào)整
MOV A,36H
CJNE A,#60,SINC0
MOV 36H,#0
SINC0: AJMP KS

MINC:
JB 7FH,MINC_A
INC 27H ;分調(diào)整
MOV A,27H
CJNE A,#60,MINC0
MOV 27H,#0
MINC_A:
INC 37H ;鬧分調(diào)整
MOV A,37H
CJNE A,#60,MINC0
MOV 37H,#0
MINC0:
AJMP KM

HINC:
JB 7FH,HINC_A
INC 28H ;時(shí)調(diào)整
MOV A,28H
CJNE A,#24,HINC0
MOV 28H,#0
HINC_A:
INC 38H ;鬧時(shí)調(diào)整
MOV A,38H
CJNE A,#24,HINC0
MOV 38H,#0
HINC0:
AJMP KH  
  

k1:
ACALL DISP ;開(kāi)始鍵
JB STRT,K2
ACALL DISP
JNB STRT,$-2
AJMP START

k2:
JB STP,K3 ;暫停鍵
ACALL DISP
JNB STP,$-2
AJMP CL_AL
K3:
JB CLRR,KS0
ACALL DISP
JNB CLRR,CLEAR ;清零鍵
KS0:
AJMP KS

START:
CPL TR0       ;開(kāi)始/暫停
CPL 7DH  ;7DH為開(kāi)始鍵按下標(biāo)志,此作為允許鬧鈴標(biāo)志
AJMP K1

CL_AL:
CPL 7FH  ;7FH作時(shí)鐘和鬧鈴標(biāo)志位?
AJMP K2

CLEAR:
CLR     TR0  ;清零
MOV A,#0
MOV 26H,A  
MOV   27H,A
MOV 28H,A
MOV 36H,A
MOV   37H,A
MOV 38H,A

AJMP KS

DISP:
JB 7FH,DISP_A
MOV 29H,26H  ;秒送秒顯示緩存
MOV 2AH,27H
MOV 2BH,28H
AJMP DISP1
DISP_A:
MOV 29H,36H
MOV 2AH,37H
MOV 2BH,38H
DISP1:
MOV A,29H
MOV B,#10
DIV AB
MOV 20H,B   ;余數(shù)(秒個(gè)位數(shù))
MOV 21H,A   ;商(秒十位數(shù))
MOV A,2AH
MOV B,#10
DIV AB
MOV 22H,B   ;余數(shù)(分個(gè)位數(shù))
MOV 23H,A   ;商(分十位數(shù))
MOV A,2BH
MOV B,#10
DIV AB
MOV 24H,B   ;余數(shù)(時(shí)個(gè)位數(shù))
MOV 25H,A   ;商(時(shí)十位數(shù))
MOV A,20H   ;秒個(gè)位
ACALL SEG7
MOV P0,A
CLR P2.0
ACALL DLY
SETB P2.0
MOV A,21H   ;秒十位
ACALL SEG7
MOV P0,A
CLR P2.1
ACALL DLY
SETB P2.1
MOV A,22H   ;分個(gè)位
ACALL SEG7
MOV P0,A
SETB P0.7
CLR P2.2
ACALL DLY
SETB P2.2
MOV A,23H  ;分十位
ACALL SEG7
MOV P0,A
CLR P2.3
ACALL DLY
SETB P2.3
MOV A,24H    ;時(shí)個(gè)位
ACALL SEG7
MOV P0,A
SETB P0.7
CLR P2.4
ACALL DLY
SETB P2.4
MOV A,25H    ;時(shí)十位
ACALL SEG7
MOV P0,A
CLR P2.5
ACALL DLY
SETB P2.5
RET

ALARM:
JNB 7DH,ALRT
MOV A,28H    ;比較小時(shí)
CJNE A,38H,RT   ;不等返回。 相等,轉(zhuǎn)分鐘比較
MOV A,27H    ;比較分鐘
CJNE A,37H,RT
MOV A,26H    ;比較秒
CJNE A,36H,RT
SETB TR1
MOV R0,#0    ;鬧鈴時(shí)間到,鬧鈴計(jì)時(shí)清零
ALRT:
RET

RT:
RET

T0INT: MOV TH0,#03CH;#9EH ;定時(shí)中斷子程序。重裝定時(shí)常數(shù)
MOV TL0,#0B0H  #58H
DJNZ R4,T0INTR  ;50msX20=1S,未滿20次,跳出中斷子程序
MOV R4,#20
INC 26H    ;1S,秒存儲(chǔ)單元內(nèi)數(shù)+1
INC R0     ;響鈴時(shí)間
MOV A,26H
CJNE A,#60,T0INTR     ;未滿60S,跳出中斷。
MOV 26H,#0    ;滿60S,秒單元清零
INC 27H    ;分+1
MOV A,27H
CJNE A,#60,T0INTR
MOV 27H,#0
INC 28H
MOV A,28H
CJNE A,#24,T0INTR
MOV 28H,#0
T0INTR:
RETI

T1INT:
MOV TH1,#0FEH
MOV TL1,#0CH
CPL P1.0
CJNE R0,#5,T1RTI   ;鬧鈴時(shí)間設(shè)為5秒
CLR TR1     ;關(guān)鬧鈴
T1RTI:
RETI

DLY:
MOV R7,#20
MOV R6,#25
DJNZ R6,$
DJNZ R7,$-4
RET


SEG7:
INC A
MOVC A,@A+PC
RET

DB      03FH  ;0          共陰
DB      006H  ;1
DB      05BH  ;2
DB      04FH  ;3
DB      066H  ;4
DB      06DH  ;5
DB      07DH  ;6
DB      007H  ;7
DB      07FH  ;8
DB      06FH  ;9

END

;12M晶振 2010 01 14 調(diào)試完成  3.15 修改  2011 03 03 注釋
;2011 11 25   加上鬧鈴  E:\DPJ\CLOCK\CLOCK-MX\CLOCKADJCC-MX.ASM
;2011 12 03   加上整點(diǎn)提醒,響1S   鬧鈴響3 S   E:\DPJ\CLOCK\CLOCK-定時(shí)整點(diǎn)\CLOCKADJCC-ZDNL.ASM


STRT EQU P2.6
STP EQU P2.7
CLRR EQU P3.0
SEC EQU P3.5
MIN EQU P3.6
HOUR EQU P3.7

ORG 00H
AJMP MAIN
ORG 0BH
AJMP T0INT
ORG 1BH
AJMP T1INT
ORG 30H

MAIN:
MOV  SP,#60H
MOV R4,#20
MOV TMOD,#11H
MOV TH0,#03CH;#9EH 12M晶振時(shí)定時(shí)初值取#3CB0H,還可細(xì)調(diào)如 TL=#0B7H,可以更準(zhǔn)  
MOV TL0,#0B0H;#58H
MOV TH1,#0FEH
MOV TL1,#0CH
SETB EA
SETB ET0
SETB ET1

kS:
ACALL DISP
ACALL ALARM

JB SEC,KM   ;秒調(diào)整按鍵
ACALL DISP
JNB SEC,$-2
AJMP SINC

kM:
JB MIN,KH   ;分調(diào)整按鍵
ACALL DISP
JNB MIN,$-2
AJMP MINC

KH:
JB HOUR,K1   ;時(shí)調(diào)整按鍵
ACALL DISP
JNB HOUR,$-2
AJMP HINC

SINC:
JB 7FH,SINC_A
INC 26H ;秒調(diào)整
MOV A,26H
CJNE A,#60,SINC0
MOV 26H,#0
AJMP SINC0
SINC_A:
INC 36H ;鬧秒調(diào)整
MOV A,36H
CJNE A,#60,SINC0
MOV 36H,#0
SINC0: AJMP KS

MINC:
JB 7FH,MINC_A
INC 27H ;分調(diào)整
MOV A,27H
CJNE A,#60,MINC0
MOV 27H,#0
MINC_A:
INC 37H ;鬧分調(diào)整
MOV A,37H
CJNE A,#60,MINC0
MOV 37H,#0
MINC0:
AJMP KM

HINC:
JB 7FH,HINC_A
INC 28H ;時(shí)調(diào)整
MOV A,28H
CJNE A,#24,HINC0
MOV 28H,#0
HINC_A:
INC 38H ;鬧時(shí)調(diào)整
MOV A,38H
CJNE A,#24,HINC0
MOV 38H,#0
HINC0:
AJMP KH  
  

k1:
ACALL DISP ;開(kāi)始鍵
JB STRT,K2
ACALL DISP
JNB STRT,$-2
AJMP START

k2:
JB STP,K3 ;暫停鍵
ACALL DISP
JNB STP,$-2
AJMP CL_AL
K3:
JB CLRR,KS0
ACALL DISP
JNB CLRR,CLEAR ;清零鍵
KS0:
AJMP KS

START:
CPL TR0       ;開(kāi)始/暫停
SETB 7DH  ;7DH為開(kāi)始鍵按下標(biāo)志,此作為允許鬧鈴標(biāo)志
AJMP K1

CL_AL:
CPL 7FH  ;7FH作時(shí)鐘和鬧鈴標(biāo)志位
AJMP K2

CLEAR:
CLR     TR0  ;清零
MOV A,#0
MOV 26H,A  
MOV 27H,A
MOV 28H,A
MOV 36H,A
MOV   37H,A
MOV 38H,A

AJMP KS

DISP:
JB 7FH,DISP_A
MOV 29H,26H  ;秒送秒顯示緩存
MOV 2AH,27H
MOV 2BH,28H
AJMP DISP1
DISP_A:
MOV 29H,36H
MOV 2AH,37H
MOV 2BH,38H
DISP1:
MOV A,29H
MOV B,#10
DIV AB
MOV 20H,B   ;余數(shù)(秒個(gè)位數(shù))
MOV 21H,A   ;商(秒十位數(shù))
MOV A,2AH
MOV B,#10
DIV AB
MOV 22H,B   ;余數(shù)(分個(gè)位數(shù))
MOV 23H,A   ;商(分十位數(shù))
MOV A,2BH
MOV B,#10
DIV AB
MOV 24H,B   ;余數(shù)(時(shí)個(gè)位數(shù))
MOV 25H,A   ;商(時(shí)十位數(shù))
MOV A,20H   ;秒個(gè)位
ACALL SEG7
MOV P0,A
CLR P2.0
ACALL DLY
SETB P2.0
MOV A,21H   ;秒十位
ACALL SEG7
MOV P0,A
CLR P2.1
ACALL DLY
SETB P2.1
MOV A,22H   ;分個(gè)位
ACALL SEG7
MOV P0,A
SETB P0.7
CLR P2.2
ACALL DLY
SETB P2.2
MOV A,23H  ;分十位
ACALL SEG7
MOV P0,A
CLR P2.3
ACALL DLY
SETB P2.3
MOV A,24H  ;時(shí)個(gè)位
ACALL SEG7
MOV P0,A
SETB P0.7
CLR P2.4
ACALL DLY
SETB P2.4
MOV A,25H  ;時(shí)十位
ACALL SEG7
MOV P0,A
CLR P2.5
ACALL DLY
SETB P2.5
RET

ALARM:
JNB 7DH,RT  ;開(kāi)始鍵未按下跳出
MOV A,28H  ;開(kāi)機(jī)時(shí),時(shí)分秒都 為0,跳出
JZ AL0M
AJMP ALARM1
AL0M:
MOV A,27H
JZ AL0S
AJMP ALARM1
AL0S:
MOV A,26H
JZ RT   
ALARM1:
MOV A,28H  ;比較小時(shí)
CJNE A,38H,AL  ;不等返回,相等,轉(zhuǎn)分鐘比較
MOV A,27H  ;比較分鐘?
CJNE A,37H,AL
MOV A,26H  ;比較秒
CJNE A,36H,AL
AJMP ALARM2 ;轉(zhuǎn)鬧鈴

AL:    ;整點(diǎn)提醒
MOV A,28H
JZ RT   ;小時(shí)不是00,判分是不是00
MOV A,27H
JNZ RT   ;分不是00,跳出
MOV A,26H
JNZ RT
AJMP ALARM3 ;秒不為00,跳出。為00,整點(diǎn)提醒
ALARM2:   ;鬧鈴3 S
SETB TR1  
MOV R0,#0
AJMP RT
ALARM3:   ;整點(diǎn)提醒1S
SETB TR1
MOV R0,#2
RT:
RET

T0INT:
MOV TH0,#03CH;定時(shí)中斷子程序。重裝定時(shí)常數(shù)
MOV TL0,#0B0H  
DJNZ R4,T0INTR  ;50msX20=1S,未滿20次,跳出中斷子程序
MOV R4,#20
INC 26H    ;1S,秒存儲(chǔ)單元內(nèi)數(shù)+1
INC R0     ;響鈴時(shí)間
MOV A,26H
CJNE A,#60,T0INTR     ;未滿60S,跳出中斷。
MOV 26H,#0    ;滿60S,秒單元清零
INC 27H    ;分+1
MOV A,27H
CJNE A,#60,T0INTR
MOV 27H,#0
INC 28H
MOV A,28H
CJNE A,#24,T0INTR
MOV 28H,#0
T0INTR:
RETI

T1INT:
MOV TH1,#0FEH
MOV TL1,#0CH
CPL P1.0
CJNE R0,#3,T1RTI   ;鬧鈴時(shí)間設(shè)為5秒
CLR TR1     ;關(guān)鬧鈴
T1RTI:
RETI

DLY:
MOV R7,#20
MOV R6,#25
DJNZ R6,$
DJNZ R7,$-4
RET


SEG7:
INC A
MOVC A,@A+PC
RET

DB      03FH  ;0          共陰
DB      006H  ;1
DB      05BH  ;2
DB      04FH  ;3
DB      066H  ;4
DB      06DH  ;5
DB      07DH  ;6
DB      007H  ;7
DB      07FH  ;8
DB      06FH  ;9

END





作者: wyk1237    時(shí)間: 2015-10-31 11:26
線路圖在哪兒
作者: 暗光    時(shí)間: 2016-1-16 01:00
這用的什么仿真軟件,一直沒(méi)用過(guò)仿真做,但是這個(gè)仿真軟件看起來(lái)很溜啊
作者: 農(nóng)夫三拳2    時(shí)間: 2016-5-19 19:52
暗光 發(fā)表于 2016-1-16 01:00
這用的什么仿真軟件,一直沒(méi)用過(guò)仿真做,但是這個(gè)仿真軟件看起來(lái)很溜啊

Professional
作者: 暗光    時(shí)間: 2016-5-20 14:30
農(nóng)夫三拳2 發(fā)表于 2016-5-19 19:52
Professional

謝謝你回復(fù),這個(gè)軟件是protues,那個(gè)時(shí)候沒(méi)用過(guò),現(xiàn)在用過(guò)了
作者: T1997    時(shí)間: 2017-12-5 23:21
請(qǐng)問(wèn),這個(gè)要怎么改一下能改成倒計(jì)時(shí)器呢,再加一個(gè)報(bào)警功能
作者: 2547694235    時(shí)間: 2018-12-30 16:10
為什么我連完之后不亮 在線等 挺急的
作者: monarchy    時(shí)間: 2019-7-26 21:49
樓主,有原文件嗎?能不能發(fā)給我,郵箱:13423799975@163.com
作者: monarchy    時(shí)間: 2019-7-26 21:50
不需要鬧鐘
作者: LIUSHENGXUE    時(shí)間: 2020-11-3 21:34
代碼復(fù)制到keil軟件上怎么亂碼了?
作者: LIUSHENGXUE    時(shí)間: 2020-11-5 18:16
這個(gè)代碼復(fù)制了以后編譯不了,不能形成hex文件
作者: 吾心悅?cè)?nbsp;   時(shí)間: 2021-5-16 13:31
LIUSHENGXUE 發(fā)表于 2020-11-5 18:16
這個(gè)代碼復(fù)制了以后編譯不了,不能形成hex文件

這是匯編語(yǔ)言
作者: 小劉要加油    時(shí)間: 2021-5-25 15:37
沒(méi)有C語(yǔ)言的代碼?
作者: hrhxh    時(shí)間: 2021-6-1 13:00
感覺(jué)有一點(diǎn)復(fù)雜 看不太懂
作者: shenqiwei    時(shí)間: 2021-12-16 02:55
剛學(xué)匯編,有點(diǎn)入門,謝謝分享




歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1