液晶1602双机串口通信

/**=============发送==================**/
KEYBEQU20H.0;按键标致（为1时有键按下）

ORG0000H

AJMPMAIN
ORG0030H
MAIN:
/* MOV SP,#60H
MOV TMOD,#20H
MOV TL1,#0E6H
MOV TH1,#0E6H
MOV SCON,#50H
MOV PCON,#80H;
SETBTR1
*/
BEGIN:ACALLKEY;调用键盘扫描
JBKEYB,BEGIN_;判断是否有键按下
JMPBEGIN
BEGIN_:CLRKEYB
MOV R0,#80H
MOV A,R4
MOV @R0,A
MOV P0,A
/*
;发送联络信号
ITX4: MOV SBUF,#33H;发给从机1
ITX2:JBCTI,ITX1
JMPITX2;等待发送
ITX1:JBCRI,ITX3;等待二号机回答
JMPITX1
ITX3: MOV A,SBUF;接收联络信号
XRLA,#33H;异或，等于33H的话，A就为0
JNZITX4;二号机未准备好，继续联络
;串行发送
CK2: MOV R0,#80H;开始读取,数据传送
START: MOV A,@R0
MOV SBUF,A
WAIT:JBCTI,CONT
JMPWAIT
CONT:JMPBEGIN*/
SJMPBEGIN

;********键盘扫描********调用键盘扫描以后会返回一个键值存于R4中，和一个标致位KEYB
KEY: MOV A,#0FH;查询是否有键按下
MOV P1,A
MOV A,P1
CJNEA,#0FH,KEYY
CLRKEYB
AJMPNEXT
KEYY:ACALLDEL;去抖动
MOV A,P1
CJNEA,#0FH,GO
MOV R4,#10H;若有抖动，则返回无效键值
CLRKEYB
AJMPNEXT
GO:SETBKEYB;置按键标致位
MOV R2,A;R2中存放着行信息
X1:CJNER2,#0EH,X2;若为第一行
MOV A,#0F0H
MOV P1,A
MOV A,P1
MOV R3,A;R3中存放着列信息
Y0:CJNER3,#0E0H,Y1;若为第一列
MOV R4,#00H;R4中存放要返回的键值
AJMPNEXT
Y1:CJNER3,#0D0H,Y2;若为第二列,Yn表示16个键对应的操作
MOV R4,#01H
AJMPNEXT
Y2:CJNER3,#0B0H,Y3;若为第三列
MOV R4,#02H
AJMPNEXT
Y3:CJNER3,#70H,X2;若为第四列
MOV R4,#03H
AJMPNEXT
X2:CJNER2,#0DH,X3;若为第二行
MOV A,#0F0H
MOV P1,A
MOV A,P1
MOV R3,A
Y4:CJNER3,#0E0H,Y5;若为第一列
MOV R4,#04H
AJMPNEXT
Y5:CJNER3,#0D0H,Y6;若为第二列
MOV R4,#05H
AJMPNEXT
Y6:CJNER3,#0B0H,Y7
MOV R4,#06H
AJMPNEXT
Y7:CJNER3,#70H,X3
MOV R4,#07H
AJMPNEXT
X3:CJNER2,#0BH,X4;若为第三行
MOV A,#0F0H
MOV P1,A
MOV A,P1
MOV R3,A
Y8:CJNER3,#0E0H,Y9
MOV R4,#08H
AJMPNEXT
Y9:CJNER3,#0D0H,Y10
MOV R4,#09H
AJMPNEXT
Y10:CJNER3,#0B0H,Y11
MOV R4,#0AH
AJMPNEXT
Y11:CJNER3,#70H,X4
MOV R4,#0BH
AJMPNEXT
X4:CJNER2,#07H,NEXT;若为第四行
MOV A,#0F0H
MOV P1,A
MOV A,P1
MOV R3,A
Y12:CJNER3,#0E0H,Y13
MOV R4,#0CH
AJMPNEXT
Y13:CJNER3,#0D0H,Y14
MOV R4,#0DH
AJMPNEXT
Y14:CJNER3,#0B0H,Y15
MOV R4,#0EH
AJMPNEXT
Y15:CJNER3,#70H,NEXT
MOV R4,#0FH
NEXT:RET



DEL: MOV R7,#07H
DEL1_: MOV R6,#0FFH
DJNZR6,$
DJNZR7,DEL1_
RET


END





/**==============接收========================**/
;********89C51引脚定义********
RSBITP3.6;数据/命令选择（H/L）
R_WBITP2.5;读/写选择（H/L）
EBITP2.6;使能信号
DB0_DB7EQUP0;数据传送端口
;***************程序开始**************


ORG0000H
AJMPMAIN
ORG0030H
MAIN:

MOV R4,#80H;第一行首地址从80H开始
MOV R1,#0C0H;第一行首地址从C0H开始
MOV R2,#00H
MOV R3,#16
LCALLINITIAL;显示初始化程序
LCALLCLS;调用清屏子程序
AGAIN:
MOV A,R4
LCALLWRITE_COM;调用写指令程序
MOV A,R2;取表格中的第几个字符
MOV DPTR,#LINE1;取表格的首地址
LCALLDISP;调用显示子程序
INCR4
INCR2
DJNZR3,AGAIN
MOV R2,#00H
MOV R3,#16
AGAIN1:
MOV A,R1
LCALLWRITE_COM;调用写指令程序
MOV A,R2;取表格中的第几个字符
MOV DPTR,#LINE3;取表格的首地址
LCALLDISP;调用显示子程序
INCR1
INCR2
DJNZR3,AGAIN1


;*************************************************
MOV TMOD,#20H
MOV TL1,#0E6H
MOV TH1,#0E6H
MOV SCON,#50H
MOV PCON,#80H
SETBTR1

BEGIN:JBCRI,BR2
JMPBEGIN
BR2: MOV A,SBUF
XRLA,#33H
JNZBEGIN
BT1: MOV SBUF,#33H
BS1:JBCTI,BR3
JMPBS1

BR3: MOV R0,#80H
WAIT:JBCRI,READ
JMPWAIT
READ: MOV A,SBUF
MOV @R0,A
MOV P0,A
;显示接收数据
MOV A,#0C7H
LCALLWRITE_COM;调用写指令程序
MOV A,@R0;取表格中的第几个字符
MOV DPTR,#LINE2;取表格的首地址
LCALLDISP;调用显示子程序

SJMPBEGIN

;******初始化LCM子程序******
INITIAL: MOV A,#38H
LCALLWRITE_COM
MOV A,#0EH
LCALLWRITE_COM
MOV A,#06H
LCALLWRITE_COM
RET

;*******查询忙碌标志信号子程序********
CHECK_BUSY:
PUSHACC
BUSY_LOOP:
CLRE
SETBR_W
CLRRS
SETBE
MOV A,DB0_DB7
CLRE
JBACC.7,BUSY_LOOP
POPACC
LCALLDEL
RET

;******写指令到LCM子程序*******
WRITE_COM:
LCALLCHECK_BUSY
CLRE
CLRRS
CLRR_W
SETBE
MOV DB0_DB7,A
CLRE
RET

;******写数据到LCM子程序******
WRITE_DATA:
LCALLCHECK_BUSY
CLRE
SETBRS
CLRR_W
SETBE
MOV DB0_DB7,A
CLRE
RET
;*******显示1个字符到LCM子程序********
DISP:
;PUSHACC
;CLRA
MOV CA,@A+DPTR
LCALLWRITE_DATA
;POPACC
RET

;*******清除LCM子程序*******
CLS: MOV A,#01H
LCALLWRITE_COM
RET

;****延时子程序****
DEL:
MOV R6,#5
L1: MOV R7,#248
DJNZR7,$
DJNZR6,L1
RET
;******延时0.1s子程序:T=两个机器周期（2*1us）*R5(4)*R6(256)*R7(256)us=0.524288s
DELL: MOV R7,#09H
DEL1: MOV R6,#0FFH
DEL2: MOV R5,#0FFH
DJNZR5,$
DJNZR6,DEL2
DJNZR7,DEL1
RET

;*****LCM第一、二行显示字符串*****
LINE1:DB"***ChinaOK***",00H
LINE2:DB"0123456789ABCDEF",00H
LINE3:DB"-----()------",00H


END