單片機(jī)匯編語言模擬時(shí)鐘程序(LCD12864顯示)精校時(shí)間(開源)

ID:61140 · 發(fā)表于 2022-5-5 16:41

本帖最后由 xiaoyuxinke 于 2022-5-8 14:11 編輯

本程序無需DS1302,無需定時(shí)器,另本程序使用匯編語言編寫,只要按所使用的晶振修改延時(shí)部分,可以做到一年誤差5秒以內(nèi).
視頻已上傳至優(yōu)酷,需要的可以看一下.https://v.youku.com/v_show/id_XN ... o_XNTg2ODI5MDQ3Mg==
需要精校時(shí)間的可調(diào)整此四個(gè)值,需要更精準(zhǔn)可在延時(shí)部分加NOP修整(可做到年誤差3秒以內(nèi)),此程序雖然不使用DS1302,但可以做到比DS1302更為精準(zhǔn)

下面是單片機(jī)匯編語言程序部分:

;******************************************************************************
;* 【LCD12864數(shù)據(jù)接口定義】
;******************************************************************************
RS BIT P2.7 //高電平數(shù)據(jù)低電平指令
RW BIT P2.6 //高電平讀低電平寫
E BIT P2.5 //LCD12864使能控制端
DATE EQU P0 //八位數(shù)據(jù)送P0口(八位數(shù)據(jù)總線)
COM EQU 70H //LCD12864指令暫存地址
COOD EQU 91H //LCD12864數(shù)據(jù)暫存地址
;******************************************************************************
;* 【時(shí)間顯示定義】
;******************************************************************************
SHI EQU 40H
FEN EQU 41H
MIAO EQU 42H
SHIH EQU 43H
SHIL EQU 44H
FENH EQU 45H
FENL EQU 46H
MIAOH EQU 47H
MIAOL EQU 48H
;******************************************************************************
;* 【按鍵功能和標(biāo)志位定義】
;******************************************************************************
KEY1 EQU P1.1
KEY2 BIT P1.4
KEY3 BIT P1.5
KEY4 BIT P1.6
BUZZ BIT P3.7
ORG 0000H
AJMP SDATA
ORG 0030H
AJMP INTT0
ORG 0060H
SDATA:
SETB PX0 //外部中斷0優(yōu)先權(quán)第1
SETB EX0 //下降沿觸發(fā)中斷
SETB IT0 //外部中斷0被允許
SETB EA //總中斷位被允許
MOV SHI,#17 //小時(shí)賦初值
MOV FEN,#33 //分鐘賦初值
MOV MIAO,#00 //秒鐘賦初值
MOV SHIH,#0 //小時(shí)高位賦初值
MOV SHIL,#0 //小時(shí)低位賦初值
MOV FENH,#0 //分鐘高位賦初值
MOV FENL,#0 //分鐘低位賦初值
MOV MIAOH,#0 //秒鐘高位賦初值
MOV MIAOL,#0 //秒鐘低位賦初值
LCALL LCDCSH //LCD12864初始化
LCALL FMQ //蜂鳴器響一聲
JMP MAIN //
MAIN:
LCALL HZXSCX //
JMP MAIN
INTT0: //
JNB KEY1,DISP1 //
JNB KEY2,DISP2
JNB KEY3,DISP3 //
JNB KEY4,DISP4
RETI //
DISP1:
LCALL FMQ
CLR P3.2 //
INC SHI
RET //
DISP2:
RET //
DISP3: //
RET
DISP4: //
RET
//
LCDCSH:
MOV COM,#01H //DDRAM寫入20H，DDRAM的AC計(jì)數(shù)器清零
LCALL WCOM //12864寫入指令
LCALL DEL10MS //延時(shí)4.6毫秒
MOV COM,#02H // AC清零，游標(biāo)到開頭位置
LCALL WCOM //12864寫入指令
LCALL DEL10MS //延時(shí)4.6毫秒
MOV COM,#0CH //游標(biāo)開，整體顯示開，游標(biāo)位置開
LCALL WCOM //12864寫入指令
LCALL DEL10MS //延時(shí)4.6毫秒
RET
;******************************************************************************
;* 【時(shí)間計(jì)算部分】
;******************************************************************************
SJJSBF: //時(shí)間計(jì)算部分,秒到60分進(jìn)一,分到60時(shí)進(jìn)一,時(shí)到24全清零
MOV A,MIAO //秒鐘數(shù)據(jù)送到累加器
CJNE A,#60,FAG //如果不等于60就退出,否則向下執(zhí)行
MOV MIAO,#00 //秒鐘數(shù)據(jù)清零
INC FEN //分鐘數(shù)據(jù)加一
MOV A,FEN //分鐘數(shù)據(jù)送到累加器
CJNE A,#60,FAG //如果不等于60就退出,否則向下熱行
MOV FEN,#00 //分鐘數(shù)據(jù)清零
INC SHI //小時(shí)數(shù)據(jù)加一
MOV A,SHI //小時(shí)數(shù)據(jù)送到累加器
CJNE A,#24,FAG //如果不等于24就退出,否則向下執(zhí)行
MOV SHI,#00 //小時(shí)數(shù)據(jù)清零
RET
FAG:
RET
HZXSCX:
MOV COM,#9CH //從第四行第四個(gè)位置開始寫
LCALL WCOM //12864寫入指令
LCALL DEL10MS
//********************************* //時(shí)分秒分配，把時(shí)分秒分別算出高低位
MOV A,SHI //小時(shí)數(shù)據(jù)送到累加器
MOV B,#10 //立既數(shù)10送到B
DIV AB //小時(shí)數(shù)除以10
MOV SHIH,A //整數(shù)送到小時(shí)高位
MOV SHIL,B //余數(shù)送到小時(shí)低位
MOV A,FEN
MOV B,#10
DIV AB
MOV FENH,A
MOV FENL,B
MOV A,MIAO
MOV B,#10
DIV AB
MOV MIAOH,A
MOV MIAOL,B
//*********************************
MOV A,SHIH
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV COOD,A
LCALL WCOD
LCALL DEL1MS
MOV A,SHIL
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV COOD,A
LCALL WCOD
LCALL DEL1MS
//****************************
MOV COOD,#":"
LCALL WCOD
LCALL DEL1MS
//****************************
MOV A,FENH
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV COOD,A
LCALL WCOD
LCALL DEL1MS
MOV A,FENL
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV COOD,A
LCALL WCOD
LCALL DEL1MS
//****************************
MOV COOD,#":"
LCALL WCOD
LCALL DEL1MS
//****************************
MOV A,MIAOH
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV COOD,A
LCALL WCOD
LCALL DEL1MS
MOV A,MIAOL
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV COOD,A
LCALL WCOD
LCALL DEL1MS
INC MIAO
LCALL DEL1S
LCALL SJJSBF
RET
WCOD: ;寫12864數(shù)據(jù)
SETB RS ;選擇數(shù)據(jù)
LCALL DEL1MS
CLR RW ;寫模式
LCALL DEL1MS
SETB E ;使能允許
LCALL DEL1MS
MOV DATE,COOD ;數(shù)據(jù)寫入
LCALL DEL10MS
CLR E
LCALL DEL10MS
RET
WCOM: ;寫12864指令
CLR RS ;選擇指令
LCALL DEL1MS
CLR RW ;寫模式
LCALL DEL1MS
SETB E ;使能允許
LCALL DEL1MS
MOV DATE,COM ;指令寫入
LCALL DEL10MS
CLR E
LCALL DEL10MS
RET
FMQ:
CLR BUZZ
LCALL DEL80MS
SETB BUZZ
RET
;**************************************************************
;* 【延時(shí)程序】
;**************************************************************
DEL1MS: //延時(shí)1毫秒子程序
MOV R7,#01H //
DL1: //
MOV R6,#8EH //
DL0: //
MOV R5,#02H //
DJNZ R5,[ DISCUZ_CODE_1 ]nbsp; //
DJNZ R6,DL0 //
DJNZ R7,DL1 //
RET //子程序退出
DEL10MS: //延時(shí)10毫秒子程序
MOV R3,#02H //
DEL41: //
MOV R4,#20 //
E11: //
MOV R5,#25 //
DJNZ R5,[ DISCUZ_CODE_1 ]nbsp; //
DJNZ R4,E11 //
DJNZ R3,DEL41 //
RET //子程序退出
DEL80MS: //延時(shí)80毫秒子程序
MOV R3,#20 //
DEL40: //
MOV R4,#250 //
E1: //
MOV R5,#150 //
DJNZ R5,[ DISCUZ_CODE_1 ]nbsp; //
DJNZ R4,E1 //
DJNZ R3,DEL40 //
RET //子程序退出
DEL1S: //延時(shí)1秒子程序
MOV R3,#05H //
E21: //
MOV R4,#255 //
E31: //
MOV R5,#20 //
E41: //
MOV R6,#248 //
DJNZ R6,[ DISCUZ_CODE_1 ]nbsp; //
DJNZ R5,E41 //
DJNZ R4,E31 //
DJNZ R3,E21 //
RET //子程序退出
TAB:
DB "0","1","2","3","4","5","6","7","8","9",":"
END

復(fù)制代碼

ID:61140 · 發(fā)表于 2023-2-12 12:36

songxia8013 發(fā)表于 2023-2-10 15:49
請教一下，這個(gè)DJNZ R6,[ DISCUZ_CODE_1 ]nbsp; 是什么意思？

DJNZ R6,[ DISCUZ_CODE_1 ]nbsp;
這個(gè)原來是DJNZ R6,$
壇子里發(fā)不了$,所以自動轉(zhuǎn)成那樣了

ID:262 · 發(fā)表于 2022-5-6 16:13

一般來說是不可能達(dá)到一年幾秒誤差的精度的,樓主測試過嗎?

ID:61140 · 發(fā)表于 2022-5-6 16:21

heicad 發(fā)表于 2022-5-6 16:13
一般來說是不可能達(dá)到一年幾秒誤差的精度的,樓主測試過嗎?

去理解一下C和匯編的差別,你會懂,一個(gè)匯編NOP指令,最多2-3微秒的時(shí)間,一個(gè)24M的晶振,幾微秒,一年誤差不會超過5秒種.
在C語言中,延時(shí)只是個(gè)模糊概念,不管你寫延時(shí)多少都不一定,要看編譯器怎么去做,但匯編語言你寫延時(shí)多少就是多少,可以做到很精準(zhǔn).

ID:61140 · 發(fā)表于 2022-5-6 16:26

如果加上年累積誤差校正,一年走時(shí)誤差控制在1秒以內(nèi)是做的到的(這里只計(jì)論走時(shí)誤差,晶振的熱穩(wěn)定誤差不討論,那個(gè)是元件性能決定的)

ID:99987 · 發(fā)表于 2022-5-6 18:53

厲害，匯編做的延時(shí)是很精確的，直擊底層，是C無法比擬的。

ID:744744 · 發(fā)表于 2022-5-6 20:03

看不懂匯編程序，失敗

ID:61140 · 發(fā)表于 2022-5-8 14:05

本人不會C,所以只好匯編充大頭了,各位見笑/

ID:864787 · 發(fā)表于 2022-5-9 23:53

就喜歡匯編的可操作性，就好比開車一樣，我自己握方向盤總比使喚別人握方向盤爽的多，當(dāng)然使喚別人握方向盤肯定輕松多(類似C語言)，但缺少那份激情，我喜歡匯編也是這原因，別跟我算法，我就編個(gè)時(shí)鐘或者一個(gè)手電筒控制程序，你跟我談算法

ID:61140 · 發(fā)表于 2022-5-25 22:37

axiongzhang 發(fā)表于 2022-5-6 20:03
看不懂匯編程序，失敗

匯編并不是很難的,有人教就可以

ID:61140 · 發(fā)表于 2022-5-25 22:37

madell 發(fā)表于 2022-5-6 18:53
厲害，匯編做的延時(shí)是很精確的，直擊底層，是C無法比擬的。

說的對,這是匯編的優(yōu)點(diǎn),C和匯編各有優(yōu)缺點(diǎn).

ID:61140 · 發(fā)表于 2022-5-25 22:38

風(fēng)云101 發(fā)表于 2022-5-9 23:53
就喜歡匯編的可操作性，就好比開車一樣，我自己握方向盤總比使喚別人握方向盤爽的多，當(dāng)然使喚別人握方向盤 ...

喜歡就好,喜歡的才是適合自己的.

ID:829973 · 發(fā)表于 2022-5-26 14:58

不錯(cuò)，我也是喜歡匯編�。。�

ID:78901 · 發(fā)表于 2022-5-26 17:40

不管是c還是匯編，中斷操作肯定影響計(jì)時(shí)

ID:61140 · 發(fā)表于 2022-5-30 18:04

fsj5098 發(fā)表于 2022-5-26 17:40
不管是c還是匯編，中斷操作肯定影響計(jì)時(shí)

整個(gè)程序沒用到中斷,為什么要用中斷呢

ID:102963 · 發(fā)表于 2023-2-10 15:49

請教一下，這個(gè)DJNZ R6,[ DISCUZ_CODE_1 ]nbsp; 是什么意思？

ID:61140 · 發(fā)表于 2023-2-12 12:37

songxia8013 發(fā)表于 2023-2-10 15:49
請教一下，這個(gè)DJNZ R6,[ DISCUZ_CODE_1 ]nbsp; 是什么意思？

看我前面發(fā)的圖片上面就知道了

ID:1072680 · 發(fā)表于 2023-4-25 16:55

您好，我想問你點(diǎn)關(guān)于單片機(jī)匯編的問題可以嗎？我是個(gè)新手小白，在做設(shè)計(jì)遇到了一些問題不知道咋解決想找您幫個(gè)忙。如果不方便的話就算了，叨嘮您了，不好意思啊

ID:61140 · 發(fā)表于 2023-10-21 20:24

Dream匯編男孩發(fā)表于 2023-4-25 16:55
您好，我想問你點(diǎn)關(guān)于單片機(jī)匯編的問題可以嗎？我是個(gè)新手小白，在做設(shè)計(jì)遇到了一些問題不知道咋解決想找您 ...

什么問題，工只是業(yè)余來一下這里，平時(shí)工作較忙。

ID:78901 · 發(fā)表于 2023-10-21 22:49

如果環(huán)境溫度不變更的情況下，時(shí)鐘可以做得很準(zhǔn)（不管是匯編還是C）

ID:397054 · 發(fā)表于 2023-10-22 09:42

xiaoyuxinke 發(fā)表于 2023-2-12 12:37
看我前面發(fā)的圖片上面就知道了

是啊，就是這個(gè)DJNZ R6,$是什么意思呢？
遍觀整個(gè)程序中并沒有這個(gè)標(biāo)號，跳到哪里去呢？

ID:611626 · 發(fā)表于 2023-10-22 10:00

xiaoyuxinke 發(fā)表于 2022-5-8 14:05
本人不會C,所以只好匯編充大頭了,各位見笑/

樓主既然對匯編熟系，對OD跟蹤 WINhex這些一定也不陌生吧，能不能出個(gè)教程，工業(yè)控制上經(jīng)常用

ID:397054 · 發(fā)表于 2023-10-22 10:58

剛試了下，可以編譯，結(jié)果是-2，這樣就省了個(gè)標(biāo)號，這在Keil中行得通，在其他的匯編環(huán)境中不知怎樣，這不是個(gè)標(biāo)準(zhǔn)用法，第一次看到。

ID:61140 · 發(fā)表于 2023-10-22 22:51

鵜鶘發(fā)表于 2023-10-22 09:42
是啊，就是這個(gè)DJNZ R6,$是什么意思呢？
遍觀整個(gè)程序中并沒有這個(gè)標(biāo)號，跳到哪里去呢？

R6中的數(shù)減一，如果不為0原地執(zhí)行，
就是說R6中的數(shù)不為0就重復(fù)執(zhí)行這句，
直到R6等于0，才跳到下一句。

ID:61140 · 發(fā)表于 2023-10-22 22:54

songxia8013 發(fā)表于 2023-2-10 15:49
請教一下，這個(gè)DJNZ R6,[ DISCUZ_CODE_1 ]nbsp; 是什么意思？

原程序中是：
DJNZ R6，$
但是壇子里不讓發(fā)$這個(gè)符號，所以變成這樣了

ID:61140 · 發(fā)表于 2023-10-22 22:56

宏達(dá)工控發(fā)表于 2023-10-22 10:00
樓主既然對匯編熟系，對OD跟蹤 WINhex這些一定也不陌生吧，能不能出個(gè)教程，工業(yè)控制上經(jīng)常用

我還要工作，沒太多時(shí)間來這里，只是偶然過來看看，所以實(shí)在報(bào)歉

ID:61140 · 發(fā)表于 2023-10-22 22:57

鵜鶘發(fā)表于 2023-10-22 10:58
剛試了下，可以編譯，結(jié)果是-2，這樣就省了個(gè)標(biāo)號，這在Keil中行得通，在其他的匯編環(huán)境中不知怎樣，這不是 ...

匯編的移植性本來就不太友好，這是公認(rèn)的缺點(diǎn)，所以這個(gè)我只能呵呵了

帳號		自動登錄	找回密碼
密碼			立即注冊

單片機(jī)匯編語言模擬時(shí)鐘程序(LCD12864顯示)精校時(shí)間(開源)

評分