會(huì)員中心
會(huì)員注冊(cè)
單片機(jī)數(shù)字鐘完整原程序如下：
;Lxa0--12864LCD數(shù)字鐘代碼2008-6-21
;************************************************定義端口
CS1 EQU P2.7 ;CS1=L,選擇左半屏
CS2 EQU P2.6 ;CS2=L,選擇右半屏
RESET EQU P2.5 ;L=Lcm復(fù)位有效
RW EQU P2.4 ;H=讀,L=寫(xiě)
RS EQU P2.3 ;H=寫(xiě)數(shù)據(jù),L=寫(xiě)指令
E EQU P2.2 ;L讀寫(xiě)使能
com EQU 30H ;指令寄存器
dat EQU 31H ;數(shù)據(jù)寄存器
DATZC EQU 32H ;讀數(shù)據(jù)暫存寄存器
DH EQU 33H ;行地址
DY EQU 34H ;頁(yè)地址
DL EQU 35H ;列地址
;************************************************
org 0000h
ljmp mm
org 000bh
ljmp ttxx
org 0013h
ljmp tt1
;************************************************初始化
ORG 0100H
mm: mov th0,#03ch ;T0設(shè)初始值
mov tl0,#0b0h ;TH0=3ch,TL0=b0h
mov tmod,#91h ;T0設(shè)方式1
mov tcon,#14h ;T0設(shè)控制方式
mov ie,#86h ;設(shè)中斷允許
mov ip,#04h ;設(shè)中斷優(yōu)先級(jí)別
mov sp,#7fh ;設(shè)堆棧入口
mov r0,#0 ;區(qū)1間址用
mov r1,#0 ;顯示對(duì)象的首地址
mov r2,#0 ;顯示對(duì)象的寬度
mov 08h,#2fh ;解碼轉(zhuǎn)換用
mov 09h,#07h ;解碼轉(zhuǎn)換用
mov 10h,#50h ;讀紅外波頭存放首址
mov 11h,#2fh ;讀紅外波頭48個(gè)
mov 20h,#00h ;動(dòng)作標(biāo)志位1
mov 21h,#00h ;動(dòng)作標(biāo)志位2
mov 22h,#00h ;備用
mov 23h,#00h ;備用
mov 24h,#00h ;備用
mov 25h,#7 ;周
mov 26h,#1 ;日
mov 27h,#7 ;月
mov 28h,#00h ;5次
mov 29h,#00h ;2次
mov 2ah,#00h ;秒個(gè)位
mov 2bh,#00h ;秒十位
mov 2ch,#00h ;分個(gè)位
mov 2dh,#00h ;分十位
mov 2eh,#00h ;時(shí)個(gè)位
mov 2fh,#00h ;時(shí)十位
mov 30h,#00h ;com占用
mov 31h,#00h ;dat占用
mov 32h,#00h ;讀數(shù)據(jù)暫存
mov 33h,#00h ;行
mov 34h,#00h ;頁(yè)
mov 35h,#00h ;列
MOV P0,#0FFH
MOV P0,#0FFH
LCALL YS300 ;延時(shí)等待穩(wěn)定
CLR RESET ;LCD復(fù)位
LCALL YS300 ;延時(shí)300mS
SETB RESET
CLR CS1 ;選中雙屏
CLR CS2
MOV com,#3EH ;關(guān)顯示
LCALL Wcom
MOV com,#3fh ;開(kāi)顯示開(kāi)光標(biāo)
LCALL Wcom
LCALL CLEAR ;清屏
LCALL CSH ;lcd行頁(yè)列復(fù)位
CLR CS1
SETB CS2
MOV 33H,#0C0H ;設(shè)行單元初值
MOV 34H,#0BEH ;設(shè)頁(yè)單元初值
MOV 35H,#40H ;設(shè)列單元初值
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁(yè)
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#0 ;寫(xiě)入烏
LCALL lxazzz
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁(yè)
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#24 ;寫(xiě)入石
LCALL lxazzz
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁(yè)
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#48 ;寫(xiě)入化
LCALL lxazzz
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁(yè)
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#72 ;寫(xiě)入賓
LCALL lxazzz
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁(yè)
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#96 ;寫(xiě)入館
LCALL lxazzz
SETB CS1
CLR CS2
MOV 33H,#0C0H ;設(shè)行單元初值
MOV 34H,#0BEH ;設(shè)頁(yè)單元初值
MOV 35H,#40H ;設(shè)列單元初值
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁(yè)
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#120 ;寫(xiě)入李
LCALL lxazzz
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁(yè)
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#144 ;寫(xiě)入小
LCALL lxazzz
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁(yè)
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#168 ;寫(xiě)入安
LCALL lxazzz
MOV com,33H ;設(shè)置起始為第1行
LCALL Wcom
MOV com,34H ;設(shè)置第1行0頁(yè)
LCALL Wcom
MOV com,35H ;設(shè)置第1行0列
LCALL Wcom
MOV R1,#192 ;寫(xiě)入制
LCALL lxazzz
MOV com,33H
返回頂部
刷新頁(yè)面
下到頁(yè)底