MOV A,#098H ;设置 LCD 的第三行地址
CALL WCOM
FILL: CLR A ;填入字符
MOVC A,@A+DPTR ;由消息区取出字符
CJNE A,#0,LC1 ;判断是否为结束码
LINE5: RET
LC1: CALL WDATA ;写入数据
INC DPTR ;指针加1
JMP FILL ;继续填入字符
RET
;=================================================
;清除该行 LCM 的字符
;=================================================
CLR_LINE:
MOV R0,#16 ;
CL1: MOV A,#
' ' CALL WDATA
DJNZ R0,CL1
RET
;==================================================
;LCM 显示工作菜单信息
;==================================================
MENU1:
MOV DPTR,#MENU1A
MOV A,#1 ;在第一行显示信息
CALL LCD_SHOW
RET
MENU1A: DB
"红外遥控码读取器
",0
MENU2:
MOV DPTR,#MENU2A
MOV A,#2 ;在第二行显示信息
CALL LCD_SHOW
RET
MENU2A: DB
"--www.willar.com
",0
MENU3:
MOV DPTR,#MENU3A
MOV A,#3 ;在第三行显示信息
CALL LCD_SHOW
RET
MENU3A: DB
"键值编码：- - H
",0
MENU4:
MOV DPTR,#MENU4A
MOV A,#4 ;在第四行显示信息
CALL LCD_SHOW
RET
MENU4A: DB
"键值反码：- - H
",0
;==============================================
; 写指令使能子程序
;RS=L,RW=L,D0-D7=指令码，E=高脉冲
;==============================================
WCOM:
MOV P0,A
CLR RS
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
;=============================================
;写数据使能子程序
;RS=H,RW=L,D0-D7=数据，E=高脉冲
;=============================================
WDATA:
MOV P0,A
SETB RS
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
DELAY0: MOV R7,#250 ;延时500微秒
DJNZ R7,$
RET
;===============================================
;在 LCM 第三行、第四行显示字符
;A=ASC DATA, B=LINE X POS
;===============================================
LCDP3: ;在LCD的第三行显示字符
PUSH ACC ;
MOV A,B ;设置显示地址
ADD A,#088H ;设置LCD的第三行地址
CALL WCOM ;写入命令
POP ACC ;由堆栈取出A
CALL WDATA ;写入数据
RET
LCDP4: ;在LCD的第四行显示字符
PUSH ACC ;
MOV A,B ;设置显示地址
ADD A,#098H ;设置LCD的第四行地址
CALL WCOM ;写入命令
POP ACC ;由堆栈取出A
CALL WDATA ;写入数据
RET
;=================================================
; IR 译码子程序
;中断服务程序
上一页 [1] [2] [3] [4] [5] 下一页
本文关键字：解码器 51单片机，单片机-工控设备 - 51单片机
