會(huì)員中心
會(huì)員注冊(cè)
sp; LCALL wdatsz
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#64 ;寫入日
LCALL wdatnyr
m0: lcall xszsfm
lcall xsznyr
lcall xszxq
lcall zh
lcall dz
SJMP m0
;***************************************************顯示星期子程序<占用區(qū)0>
xszxq: push dph ;保護(hù)現(xiàn)場(chǎng)
push dpl
push acc
push psw
clr psw.3 ;進(jìn)入第0組工作寄存器
clr psw.4
CLR CS2
SETB CS1
MOV 33H,#0C0H ;設(shè)行單元初值
MOV 34H,#0BAH ;設(shè)頁單元初值
MOV 35H,#58H ;設(shè)列單元初值
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV A,25H
CJNE A,#1,LOOP16
MOV R1,#0
LCALL Wxqsz
LJMP xxxx
LOOP16: CJNE A,#2,LOOP17
MOV R1,#24
LCALL Wxqsz
LJMP xxxx
LOOP17: CJNE A,#3,LOOP18
MOV R1,#48
LCALL Wxqsz
LJMP xxxx
LOOP18: CJNE A,#4,LOOP19
MOV R1,#72
LCALL Wxqsz
LJMP xxxx
LOOP19: CJNE A,#5,LOOP20
MOV R1,#96
LCALL Wxqsz
LJMP xxxx
LOOP20: CJNE A,#6,LOOP21
MOV R1,#120
LCALL Wxqsz
LJMP xxxx
LOOP21: MOV R1,#144
LCALL Wxqsz
xxxx: pop psw ;回復(fù)現(xiàn)場(chǎng)
pop acc
pop dph
pop dpl
RET
;***************************************************顯示月日子程序<占用區(qū)0>
xsznyr: push dph ;保護(hù)現(xiàn)場(chǎng)
push dpl
push acc
push psw
clr psw.3 ;進(jìn)入第0組工作寄存器
clr psw.4
CLR CS1
SETB CS2
MOV 33H,#0C0H ;設(shè)行單元初值
MOV 34H,#0B8H ;設(shè)頁單元初值
MOV 35H,#78H ;設(shè)列單元初值
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV A,27H
ANL A,#0F0h
CJNE A,#0,LOOP10
MOV R1,#0A0H
LCALL WDATSZ
SJMP LOOP11 ;月十位為0時(shí)消隱
LOOP10: MOV R1,A ;否則月十位輸出數(shù)字
LCALL WDATSZ
LOOP11: CLR CS2
SETB CS1
MOV 33H,#0C0H ;設(shè)行單元初值
MOV 34H,#0B8H ;設(shè)頁單元初值
MOV 35H,#40H ;設(shè)列單元初值
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV A,27H
ANL A,#0Fh
SWAP A
MOV R1,A ;寫月個(gè)位
LCALL WDATSZ
MOV 33H,#0C0H ;設(shè)行單元初值
MOV 34H,#0B8H ;設(shè)頁單元初值
MOV 35H,#58H ;設(shè)列單元初值
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV A,26H
ANL A,#0F0h
CJNE A,#0,LOOP12
MOV R1,#0A0H
LCALL WDATSZ
SJMP LOOP13 ;日十位為0時(shí)消隱
LOOP12: MOV R1,A ;否則日十位輸出數(shù)字
LCALL WDATSZ
LOOP13: MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV A,26H
ANL A,#0Fh
SWAP A
MOV R1,A ;寫日個(gè)位
LCALL WDATSZ
pop psw ;回復(fù)現(xiàn)場(chǎng)
pop acc
pop dph
pop dpl
RET
;***************************************************顯示時(shí)分秒子程序<占用區(qū)0>
xszsfm: push dph ;保護(hù)現(xiàn)場(chǎng)
push dpl
push acc
push psw
clr psw.3 ;進(jìn)入第0組工作寄存器
clr psw.4
CLR CS1
SETB CS2
MOV 33H,#0C0H ;設(shè)行單元初值
MOV 34H,#0BCH ;設(shè)頁單元初值
MOV 35H,#60H ;設(shè)列單元初值
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV A,2fh ;寫入時(shí)十位
swap A
MOV R1,A
LCALL WDATSZ
MOV com,33H ;重新設(shè)行單元
LCALL Wcom
MOV com,34H ;重新設(shè)頁單元
LCALL Wcom
MOV com,35H &
單片機(jī)制作的12864數(shù)字鐘
作者：佚名 文章來源：本站原創(chuàng) 點(diǎn)擊數(shù)： 更新時(shí)間：2008-12-4
Tags：單片機(jī)數(shù)字鐘,單片機(jī),數(shù)字鐘制作
責(zé)任編輯：admin相關(guān)文章列表
8052單片機(jī)T2定時(shí)器用法詳解,定時(shí)器案例AT89S51電腦自動(dòng)溫度控制器,AT89S51 temperature controller
51單片機(jī)制作的四位數(shù)字溫度計(jì),Digital thermometer
用單片機(jī)AT89C2051做音樂門鈴 AT89C2051 DOOR BELL
單片機(jī)串口通訊程序(C51)
單片機(jī)制作“ 叮咚”門鈴電路圖
單片機(jī)多路開關(guān)狀態(tài)指示,Switch indicator
如何實(shí)現(xiàn)步進(jìn)電機(jī)的基本控制？
簡(jiǎn)單流水燈的實(shí)現(xiàn)程序
51單片機(jī)制作的經(jīng)濟(jì)、安全的電子密碼鎖
[ 查看全部 ] 網(wǎng)友評(píng)論
推薦文章
最新推薦
熱門文章
- · 單片機(jī)數(shù)字時(shí)鐘 89C2051數(shù)字鐘套件
- · 單片機(jī)制作的12864數(shù)字鐘
- · Rs232轉(zhuǎn)Rs485接線圖
- · 單片機(jī)實(shí)踐A/D和D/A轉(zhuǎn)換的程序
- · 51單片機(jī)制作的經(jīng)濟(jì)、安全的電子密碼鎖
- · 單片機(jī)時(shí)鐘，8位數(shù)碼管數(shù)字鐘的制作
- · 單片機(jī)發(fā)展的歷史
- · 單片機(jī)交通燈設(shè)計(jì)
- · 51單片機(jī)驅(qū)動(dòng)步進(jìn)電機(jī)電路及程序
- · 51系列單片機(jī)最小系統(tǒng)
- · 匯編：?jiǎn)纹瑱C(jī)驅(qū)動(dòng)LED數(shù)碼管電路及編程
- · 51單片機(jī)按鍵程序中 while(!key)的作用
返回頂部
刷新頁面
下到頁底