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

;*標(biāo)題:偉納電子ME300B單片機(jī)開發(fā)系統(tǒng)演示程序-12864LCD顯示遙控鍵值讀取器*
;*
;********************************************************************************
;*描述:*
;*12864LCD(帶漢字庫)顯示遙控鍵值讀取器*
;*LCD型號(hào)：TS12864A-3（帶漢字庫）或兼容型號(hào)控制器ST7920*
;*MCU:AT89S52,晶體頻率：11.0592MHz*
;*P0口為128*64LCD的數(shù)據(jù)D0-D7*
;*K17鍵按下，繼電器吸合。K19鍵按下，繼電器關(guān)閉*
;*顯示程序在中斷服務(wù)程序之中* *
;********************************************************************************
;*【版權(quán)】Copyright(C)偉納電子www.willar.comAllRightsReserved*
;*【聲明】此程序僅用于學(xué)習(xí)與參考，引用請(qǐng)注明版權(quán)和作者信息！*
;********************************************************************************


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;中斷服務(wù)程序
;------------------------------------------------
MAIN:
MOVSP,#40H
MOVA,#00H
MOVR0,#20H
LOOP0:MOV@R0,A;20H-26H清零
INCR0
CJNER0,#27H,LOOP0
MOVIE,#81H;允許總中斷中斷,使能INT0外部中斷
MOVTCON,#01H;觸發(fā)方式為脈沖負(fù)邊沿觸發(fā)
SETBIRIN
SETBRST
NOP
SETBPSB;8位數(shù)據(jù)，并口

CALLSET_LCD;初始化TS12864A-3
CALLMENU1
CALLMENU2
CALLMENU3
CALLMENU4
LOOP1:
MOVA,22H
CJNEA,#40H,LOOP2;K17鍵按下
CLRRELAY;繼電器吸合
LOOP2:CJNEA,#04H,LOOP3;K19鍵按下
SETBRELAY;繼電器關(guān)閉
LOOP3:JMPLOOP1

;=============================================
;LCD初始化設(shè)置
;=============================================-
SET_LCD:
CLREN
MOVA,#34H;34H--擴(kuò)充指令操作
CALLWCOM
CALLDELAY1
MOVA,#30H;30H--基本指令操作
CALLWCOM
CALLDELAY1

MOVA,#0CH;開顯示，關(guān)光標(biāo)，
CALLWCOM
CALLDELAY1
MOVA,#01H;清除LCM顯示屏
CALLWCOM
CALLDELAY1
RET
;===================================================
;在LCM各行顯示信息字符
;===================================================
LCD_SHOW:

CJNEA,#1,LINE2;判斷是否為第一行
LINE1:MOVA,#80H;設(shè)置LCD的第一行地址
CALLWCOM;寫入命令
CALLCLR_LINE;清除該行字符數(shù)據(jù)
MOVA,#80H;設(shè)置LCD的第一行地址
CALLWCOM;寫入命令
JMPFILL

LINE2:CJNEA,#2,LINE3;判斷是否為第三行
MOVA,#090H;設(shè)置LCD的第三行地址
CALLWCOM;寫入命令
CALLCLR_LINE;清除該行字符數(shù)據(jù)
MOVA,#090H;設(shè)置LCD的第三行地址
CALLWCOM
JMPFILL

LINE3:CJNEA,#3,LINE4;判斷是否為第三行
MOVA,#088H;設(shè)置LCD的第三行地址
CALLWCOM;寫入命令
CALLCLR_LINE;清除該行字符數(shù)據(jù)
MOVA,#088H;設(shè)置LCD的第三行地址
CALLWCOM
JMPFILL

LINE4:CJNEA,#4,LINE5;判斷是否為第三行
MOVA,#098H;設(shè)置LCD的第三行地址
CALLWCOM;寫入命令
CALLCLR_LINE;清除該行字符數(shù)據(jù)
MOVA,#098H;設(shè)置LCD的第三行地址
CALLWCOM

FILL:CLRA;填入字符
MOVCA,@A+DPTR;由消息區(qū)取出字符
CJNEA,#0,LC1;判斷是否為結(jié)束碼
LINE5:RET
LC1:CALLWDATA;寫入數(shù)據(jù)
INCDPTR;指針加1
JMPFILL;繼續(xù)填入字符
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
;=============================================
;寫數(shù)據(jù)使能子程序
;RS=H,RW=L,D0-D7=數(shù)據(jù)，E=高脈沖
;=============================================
WDATA:
MOVP0,A
SETBRS
CLRRW
SETBEN
CALLDELAY0
CLREN
RET

DELAY0:MOVR7,#250;延時(shí)500微秒
DJNZR7,$
RET
;===============================================
;在LCM第三行、第四行顯示字符
;A=ASCDATA,B=LINEXPOS
;===============================================
LCDP3:;在LCD的第三行顯示字符
PUSHACC;
MOVA,B;設(shè)置顯示地址
ADDA,#088H;設(shè)置LCD的第三行地址
CALLWCOM;寫入命令
POPACC;由堆棧取出A
CALLWDATA;寫入數(shù)據(jù)
RET

LCDP4:;在LCD的第四行顯示字符
PUSHACC;
MOVA,B;設(shè)置顯示地址
ADDA,#098H;設(shè)置LCD的第四行地址
CALLWCOM;寫入命令
POPACC;由堆棧取出A
CALLWDATA;寫入數(shù)據(jù)
RET
;=================================================
;IR譯碼子程序
;中斷服務(wù)程序
;=================================================
IR_IN:
CLREA;暫時(shí)關(guān)閉CPU的所有中斷請(qǐng)求
PUSHACC
PUSHPSW
SETBPSW.3;選擇工作寄存器組1
CLRPSW.4

MOVR0,#IRCOM
MOVR1,#04H
I1:JNBIRIN,I2;等待IR信號(hào)出現(xiàn)
LCALLCONV
DJNZR1,I1
JMPIR_OUT
I2:MOVR4,#20
I20:CALLDEL
DJNZR4,I20
JBIRIN,I1;確認(rèn)IR信號(hào)出現(xiàn)
I21:JBIRIN,I3;等IR變?yōu)楦唠娖?br/>CALLDEL
JMPI21
I3:MOVR3,#0;8位數(shù)清為0
LL:JNBIRIN,I4;等IR變?yōu)榈碗娖?br/>CALLDEL
JMPLL
I4:JBIRIN,I5;等IR變?yōu)楦唠娖?br/>CALLDEL
JMPI4
I5:MOVR2,#0;0.14ms計(jì)數(shù)
L1:CALLDEL
JBIRIN,N1;等IR變?yōu)楦唠娖?br/>;IR=0，檢查R2中的計(jì)數(shù)值
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字節(jié)了
JMPIR_SHOW
N1:INCR2
CJNER2,#30,L1;0.14ms計(jì)數(shù)過長(zhǎng)則時(shí)間到自動(dòng)離開

IR_OUT:POPPSW
POPACC
SETBEA
RETI

;------------------------------------------------------------------
IR_SHOW:
MOVA,22H
CPLA;將22H取反后和23H比較
CJNEA,23H,IR_SHOW1;如果不等表示接收數(shù)據(jù)發(fā)生錯(cuò)誤,放棄。
CALLCONV
CALLBEEP_BL;蜂鳴器鳴響表示解碼成功
IR_SHOW1:
JMPIR_OUT
;===============================================
;編碼轉(zhuǎn)換為ASCII碼并顯示
;===============================================
CONV:
MOVX,#5;設(shè)置顯示起始位置
MOVA,22H
ANLA,#0F0H;取出高四位二進(jìn)制數(shù)
SWAPA;高四位與低四位互換
PUSHACC;壓入堆棧
CLRC;C=0
SUBBA,#0AH;減10
POPACC;彈出堆棧
JCASCII0;該數(shù)小于10，轉(zhuǎn)ASCII0
ADDA,#07H;大于10的數(shù)加上37H
ASCII0:ADDA,#30H;小于10的數(shù)加上30H
MOVB,X
CALLLCDP3

MOVA,22H
ANLA,#0FH;取出低四位二進(jìn)制數(shù)
PUSHACC
CLRC
SUBBA,#0AH;減10
POPACC
JCASCII1;該數(shù)小于10，轉(zhuǎn)ASCII0
ADDA,#07H;大于10的數(shù)加上37H
ASCII1:ADDA,#30H;小于10的數(shù)加上30H
INCX
MOVB,X
CALLLCDP3

MOVX,#5;設(shè)置顯示起始位置
MOVA,23H;反碼
ANLA,#0F0H;取出高四位二進(jìn)制數(shù)
SWAPA;高四位與低四位互換
PUSHACC;壓入堆棧
CLRC;C=0
SUBBA,#0AH;減10
POPACC;彈出堆棧
JCASCII2;該數(shù)小于10，轉(zhuǎn)ASCII0
ADDA,#07H;大于10的數(shù)加上37H
ASCII2:ADDA,#30H;小于10的數(shù)加上30H
MOVB,X
CALLLCDP4

MOVA,23H
ANLA,#0FH;取出低四位二進(jìn)制數(shù)
PUSHACC
CLRC
SUBBA,#0AH;減10
POPACC
JCASCII3;該數(shù)小于10，轉(zhuǎn)ASCII0
ADDA,#07H;大于10的數(shù)加上37H
ASCII3:ADDA,#30H;小于10的數(shù)加上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:;延時(shí)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:;延時(shí)5MS
MOVR6,#25
DL2:MOVR7,#100
DJNZR7,$
DJNZR6,DL2
RET
;================================================
END