2864LCD显示遥控键值解码器

源程序：
;********************************************************************************

;*标题:伟纳电子ME300B单片机开发系统演示程序-12864LCD显示遥控键值读取器*
;*
;********************************************************************************
;*描述:*
;*12864LCD(带汉字库)显示遥控键值读取器*
;*LCD型号：TS12864A-3（带汉字库）或兼容型号控制器ST7920*
;*MCU:AT89S52,晶体频率：11.0592MHz*
;*P0口为128*64LCD的数据D0-D7*
;*K17键按下，继电器吸合。K19键按下，继电器关闭*
;*显示程序在中断服务程序之中* *
;********************************************************************************
;*【版权】Copyright(C)伟纳电子www.willar.comAllRightsReserved*
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！*
;********************************************************************************


IRCOMEQU20H;20H-23HIR使用
XEQU26H;LCD地址变量

IRINEQUP3.2
BEEPEQUP3.7
RELAYEQUP1.3

RSEQUP2.0
RWEQUP2.1
ENEQUP2.2
PSBEQUP2.3
RSTEQUP2.5
;------------------------------------------------
ORG0000H
JMPMAIN

ORG0003H;外部中断INT0入口地址
JMPIR_IN;中断服务程序
;------------------------------------------------
MAIN:
MOVSP,#40H
MOVA,#00H
MOVR0,#20H
LOOP0:MOV@R0,A;20H-26H清零
INCR0
CJNER0,#27H,LOOP0
MOVIE,#81H;允许总中断中断,使能INT0外部中断
MOVTCON,#01H;触发方式为脉冲负边沿触发
SETBIRIN
SETBRST
NOP
SETBPSB;8位数据，并口

CALLSET_LCD;初始化TS12864A-3
CALLMENU1
CALLMENU2
CALLMENU3
CALLMENU4
LOOP1:
MOVA,22H
CJNEA,#40H,LOOP2;K17键按下
CLRRELAY;继电器吸合
LOOP2:CJNEA,#04H,LOOP3;K19键按下
SETBRELAY;继电器关闭
LOOP3:JMPLOOP1

;=============================================
;LCD初始化设置
;=============================================-
SET_LCD:
CLREN
MOVA,#34H;34H--扩充指令操作
CALLWCOM
CALLDELAY1
MOVA,#30H;30H--基本指令操作
CALLWCOM
CALLDELAY1

MOVA,#0CH;开显示，关光标，
CALLWCOM
CALLDELAY1
MOVA,#01H;清除LCM显示屏
CALLWCOM
CALLDELAY1
RET
;===================================================
;在LCM各行显示信息字符
;===================================================
LCD_SHOW:

CJNEA,#1,LINE2;判断是否为第一行
LINE1:MOVA,#80H;设置LCD的第一行地址
CALLWCOM;写入命令
CALLCLR_LINE;清除该行字符数据
MOVA,#80H;设置LCD的第一行地址
CALLWCOM;写入命令
JMPFILL

LINE2:CJNEA,#2,LINE3;判断是否为第三行
MOVA,#090H;设置LCD的第三行地址
CALLWCOM;写入命令
CALLCLR_LINE;清除该行字符数据
MOVA,#090H;设置LCD的第三行地址
CALLWCOM
JMPFILL

LINE3:CJNEA,#3,LINE4;判断是否为第三行
MOVA,#088H;设置LCD的第三行地址
CALLWCOM;写入命令
CALLCLR_LINE;清除该行字符数据
MOVA,#088H;设置LCD的第三行地址
CALLWCOM
JMPFILL

LINE4:CJNEA,#4,LINE5;判断是否为第三行
MOVA,#098H;设置LCD的第三行地址
CALLWCOM;写入命令
CALLCLR_LINE;清除该行字符数据
MOVA,#098H;设置LCD的第三行地址
CALLWCOM

FILL:CLRA;填入字符
MOVCA,@A+DPTR;由消息区取出字符
CJNEA,#0,LC1;判断是否为结束码
LINE5:RET
LC1:CALLWDATA;写入数据
INCDPTR;指针加1
JMPFILL;继续填入字符
RET
;=================================================
;清除该行LCM的字符
;=================================================
CLR_LINE:
MOVR0,#16;
CL1:MOVA,#''
CALLWDATA
DJNZR0,CL1
RET
;==================================================
;LCM显示工作菜单信息
;==================================================
MENU1:
MOVDPTR,#MENU1A
MOVA,#1;在第一行显示信息
CALLLCD_SHOW
RET
MENU1A:DB"红外遥控码读取器",0

MENU2:
MOVDPTR,#MENU2A
MOVA,#2;在第二行显示信息
CALLLCD_SHOW
RET
MENU2A:DB"--www.willar.com",0

MENU3:
MOVDPTR,#MENU3A
MOVA,#3;在第三行显示信息
CALLLCD_SHOW
RET
MENU3A:DB"键值编码：--H",0

MENU4:
MOVDPTR,#MENU4A
MOVA,#4;在第四行显示信息
CALLLCD_SHOW
RET
MENU4A:DB"键值反码：--H",0

;==============================================
;写指令使能子程序
;RS=L,RW=L,D0-D7=指令码，E=高脉冲
;==============================================
WCOM:
MOVP0,A
CLRRS
CLRRW
SETBEN
CALLDELAY0
CLREN
RET
;=============================================
;写数据使能子程序
;RS=H,RW=L,D0-D7=数据，E=高脉冲
;=============================================
WDATA:
MOVP0,A
SETBRS
CLRRW
SETBEN
CALLDELAY0
CLREN
RET

DELAY0:MOVR7,#250;延时500微秒
DJNZR7,$
RET
;===============================================
;在LCM第三行、第四行显示字符
;A=ASCDATA,B=LINEXPOS
;===============================================
LCDP3:;在LCD的第三行显示字符
PUSHACC;
MOVA,B;设置显示地址
ADDA,#088H;设置LCD的第三行地址
CALLWCOM;写入命令
POPACC;由堆栈取出A
CALLWDATA;写入数据
RET

LCDP4:;在LCD的第四行显示字符
PUSHACC;
MOVA,B;设置显示地址
ADDA,#098H;设置LCD的第四行地址
CALLWCOM;写入命令
POPACC;由堆栈取出A
CALLWDATA;写入数据
RET
;=================================================
;IR译码子程序
;中断服务程序
;=================================================
IR_IN:
CLREA;暂时关闭CPU的所有中断请求
PUSHACC
PUSHPSW
SETBPSW.3;选择工作寄存器组1
CLRPSW.4

MOVR0,#IRCOM
MOVR1,#04H
I1:JNBIRIN,I2;等待IR信号出现
LCALLCONV
DJNZR1,I1
JMPIR_OUT
I2:MOVR4,#20
I20:CALLDEL
DJNZR4,I20
JBIRIN,I1;确认IR信号出现
I21:JBIRIN,I3;等IR变为高电平
CALLDEL
JMPI21
I3:MOVR3,#0;8位数清为0
LL:JNBIRIN,I4;等IR变为低电平
CALLDEL
JMPLL
I4:JBIRIN,I5;等IR变为高电平
CALLDEL
JMPI4
I5:MOVR2,#0;0.14ms计数
L1:CALLDEL
JBIRIN,N1;等IR变为高电平
;IR=0，检查R2中的计数值
MOVA,#8
CLRC
SUBBA,R2;判断高低位
;IFC=0BIT=0
MOVA,@R0
RRCA
MOV@R0,A;处理完一位
INCR3
CJNER3,#8,LL;需处理完8位
MOVR3,#0
INCR0
CJNER0,#24H,LL;收集到4字节了
JMPIR_SHOW
N1:INCR2
CJNER2,#30,L1;0.14ms计数过长则时间到自动离开

IR_OUT:POPPSW
POPACC
SETBEA
RETI

;------------------------------------------------------------------
IR_SHOW:
MOVA,22H
CPLA;将22H取反后和23H比较
CJNEA,23H,IR_SHOW1;如果不等表示接收数据发生错误,放弃。
CALLCONV
CALLBEEP_BL;蜂鸣器鸣响表示解码成功
IR_SHOW1:
JMPIR_OUT
;===============================================
;编码转换为ASCII码并显示
;===============================================
CONV:
MOVX,#5;设置显示起始位置
MOVA,22H
ANLA,#0F0H;取出高四位二进制数
SWAPA;高四位与低四位互换
PUSHACC;压入堆栈
CLRC;C=0
SUBBA,#0AH;减10
POPACC;弹出堆栈
JCASCII0;该数小于10，转ASCII0
ADDA,#07H;大于10的数加上37H
ASCII0:ADDA,#30H;小于10的数加上30H
MOVB,X
CALLLCDP3

MOVA,22H
ANLA,#0FH;取出低四位二进制数
PUSHACC
CLRC
SUBBA,#0AH;减10
POPACC
JCASCII1;该数小于10，转ASCII0
ADDA,#07H;大于10的数加上37H
ASCII1:ADDA,#30H;小于10的数加上30H
INCX
MOVB,X
CALLLCDP3

MOVX,#5;设置显示起始位置
MOVA,23H;反码
ANLA,#0F0H;取出高四位二进制数
SWAPA;高四位与低四位互换
PUSHACC;压入堆栈
CLRC;C=0
SUBBA,#0AH;减10
POPACC;弹出堆栈
JCASCII2;该数小于10，转ASCII0
ADDA,#07H;大于10的数加上37H
ASCII2:ADDA,#30H;小于10的数加上30H
MOVB,X
CALLLCDP4

MOVA,23H
ANLA,#0FH;取出低四位二进制数
PUSHACC
CLRC
SUBBA,#0AH;减10
POPACC
JCASCII3;该数小于10，转ASCII0
ADDA,#07H;大于10的数加上37H
ASCII3:ADDA,#30H;小于10的数加上30H
INCX
MOVB,X
CALLLCDP4
RET
;===================================================
;蜂鸣器响一声子程序
;===================================================
BEEP_BL:
MOVR6,#100
BL1:CALLDEX1
CPLBEEP
DJNZR6,BL1
MOVR5,#25
CALLDELAY
RET
DEX1:MOVR7,#180
DEX2:NOP
DJNZR7,DEX2
RET
DELAY:;延时R5×10MS
MOVR6,#50
D1:MOVR7,#100
DJNZR7,$
DJNZR6,D1
DJNZR5,DELAY
RET
;===============================================
;DELAYR5*0.14MS
DEL:
MOVR5,#1;IR解码使用
DEL0:MOVR6,#2
DEL1:MOVR7,#32
DEL2:DJNZR7,DEL2
DJNZR6,DEL1
DJNZR5,DEL0
RET

DELAY1:;延时5MS
MOVR6,#25
DL2:MOVR7,#100
DJNZR7,$
DJNZR6,DL2
RET
;================================================
END