三个51单片机通信汇编程序

（1）主机程序 AT89C51-A
ORG 00H
JMP START
START: MOV SP,#60H ;设置堆栈
MOV TMOD,#00100000B ;TIMER1工作在MODE2
ANL PCON,#01111111B ;SMOD=0
MOV TH1,#0F3H ;波特率为2400
MOV TL1,#0F3H
SETB TR1 ;启动TIMER1
MOV SCON,#11010000B ;UART工作在MODE3
MOV IE,#10010000B ;UART中断使能
SETB SM2 ;设SM2=1
MOV P2,#0FFH ;给P2口赋初值
MOV 32H,0FFH ;两个副CPU地址暂存器
SCAN0: MOV R3,#F7H ;键盘扫描初始值
SCAN: JB RI,UARTI ;是否有接收中断
MOV R1,#00H ;TABLE取码指针
SCAN1: MOV A,R3 ;输出行扫描
MOV P1,A
MOV A,P1
MOV R4,A
SETB C
MOV R5,#03H ;扫描4列
L1: RLC A
JNC KEYIN ;C=0表示有键按下
INC R1 ;C不等于0，未按则取码指针加1
DJNZ R5,L1 ;扫描下一列
MOV A,R3 ;扫描下一行
SETB C
RRC A
MOV R3,A
JC SCAN1 ;4行扫描完
JMP SCAN0
KEYIN: MOV R7,#0D0H ;消除抖动
D2: MOV R6,#19H
DJNZ R6,$
DJNZ R7,D2
D3: MOV A,P1 ;按键放开否？
XRL A,R4
JZ D3
MOV A,R1 ;至TABLE取键盘码
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV 30H,A
XRL A,#83H ;“#1”是否按下？
JZ UART1
MOV A,30H
XRL A,#C6H ;“#2”是否按下？
JZ UART2
MOV A,30H
MOV SBUF,A ;载入SBUF发送出去WAIT: JBC TI,SCAN ;发送完毕否？
JMP WAIT
UART1: SETB TB8 ;设TB8=1
MOV SBUF,#01H ;发送AT89C51-B的地址01H WAIT1: JBC TI,L2 ;发送完毕否？
JMP WAIT1
L2: CLR TB8 ;清除TB8=0
JMP SCAN0
UART2: SETB TB8 ;设TB8=1
MOV SBUF,#02H ;发送AT89C51-C的地址02H WAIT2: JBC TI,L3 ;发送完毕否？
JMP WAIT2
L3: CLR TB8 ;清除TB8=0
JMP SCAN0
UARTI: PUSH ACC ;压入堆栈
PUSH PSW
JBC RI,L5 ;是否为接收中断？RI=1?
JMP RETURN
L5: JB SM2,L6 ;SM2=1接收地址，SM2=0接收数据MOV A,SBUF ;接收数据载入累加器
MOV 33H,A ;暂存入（33H）RAM
MOV A,32H ;判断接收到89C51-B或89C51-C的数据？
CJNE A,#01H,L8 ;接收到AT89C51-B的数据？
MOV A,33H ;是则输出至P2显示（低4位）
MOV P2,A
SETB SM2 ;设SM2=1，准备接收下一个地址
MOV 32H,#0FFH ;清除地址（32H）RAM
JMP RETURN
L8: CJNE A,#02H,RETURN ;接收到AT89C51-C的数据？
MOV A,33H ;是则输出至P2显示（高4位）
MOV P2,A
SETB SM2 ;设SM2=1，准备接收下一个地址
MOV 32H,#0FFH
JMP RETURN
L6: MOV A,SBUF ;载入接收到的地址
CJNE A,#01H,L7 ;是AT89C51-B的地址？
MOV 32H,A ;是则将此89C51-B的地址存入（32H）RAM
CLR SM2 ;设SM2=0，准备接收数据
JMP RETURN
L7: CJNE A,#02H,RETURN ;是89C51-C的地址？
MOV 32H,A ;是则将此89C51-C的地址存入（32H）RAM
CLR SM2 ;设SM2=0，准备接收数据RETURN: POP PSW ;取回PSW
POP ACC
RETI
TABLE: DB F9H,A4H,B0H
DB 99H,92H,82H
DB F8H,80H,90H,
DB 83H,C6H,FFH
END
（2）从机程序 AT89C51-B
ORG 00H
JMP START
ORG 23H ;UART中断起始地址
JMP UARTI
START: MOV TMOD,#00100000B ;TIMER1工作在MODE2
ANL PCON,#01111111B ;SMOD=0
MOV TH1,#0F3H ;波特率为2400
MOV TL1,#0F3H
SETB TR1 ;启动TIMER1
MOV SCON,#11010000B ;UART工作在MODE3
MOV IE,#10010000B ;UART中断使能
SETB SM2 ;设SM2=1
MOV 30H,#0FFH ;P1指拨开关的初值
MOV P2,#0FFH ;给P2口赋初值
LOOP: MOV A,P1 ;读入P1指拨开关
CJNE A,30H,UART1 ;判断有否有变化？
JMP LOOP
UART1: ORL A,#0F0H ;有变化则取低4位
MOV 30H,A ;存入P1指拨开关的新值
SETB TB8 ;设TB8=1
MOV SBUF,#01 ;发送本身地址（01H）给89C51-A WAIT1: JBC TI,L1 ;发送完毕否？
JMP WAIT1
L1: CLR TB8 ;是则清除TB8=0
MOV SBUF,30H ;将指拨开关的值发送给89C51-A WAIT2: JBC TI,LOOP ;发送完毕否？
JMP WAIT2
UARTI: PUSH ACC ;压入堆栈
PUSH PSW
JBC RI,L5 ;是否为接收中断？
JMP RETURN
L5: JB SM2,L6 ;SM2=1接收地址，SM2=0接收数据MOV A,SBUF ;SM2=0，则接收数据并输出至P2
MOV P2,A
SETB SM2 ;设SM2=1，准备接收下一个地址
JMP RETURN
L6: MOV A,SBUF ;SM2=1,载入地址
CJNE A,#01H,RETURN ;是否（01H）地址？
CLR SM2 ;是则清除SM2=0，准备接收数据RETURN: POP PSW
POP ACC
RETI
END
（3）从机程序 AT89C51-C
ORG 00H
JMP START
ORG 23H ;UART中断起始地址
JMP UARTI
START: MOV TMOD,#00100000B ;TIMER1工作在MODE2
ANL PCON,#01111111B ;SMOD=0
MOV TH1,#0F3H ;波特率为2400
MOV TL1,#0F3H
SETB TR1 ;启动TIMER1
MOV SCON,#11010000B ;UART工作在MODE3
MOV IE,#10010000B ;UART中断使能
SETB SM2 ;设SM2=1
MOV 30H,#0FFH ;P1指拨开关的初值
MOV P2,#0FFH ;给P2口赋初值
LOOP: MOV A,P1 ;读入P1指拨开关
CJNE A,30H,UART1 ;判断有否有变化？
JMP LOOP
UART1: ORL A,#0F0H ;有变化则取低4位
SWAP A ;高低4位互换
MOV 30H,A ;存入P2指拨开关的新值
SETB TB8 ;设TB8=1
MOV SBUF,#02 ;发送本身地址（02H）给89C51-A WAIT1: JBC TI,L1 ;发送完毕否？
JMP WAIT1
L1: CLR TB8 ;是则清除TB8=0
MOV SBUF,30H ;将指拨开关的值发送给89C51-A WAIT2: JBC TI,LOOP ;发送完毕否？
JMP WAIT2
UARTI: PUSH ACC ;压入堆栈
PUSH PSW
JBC RI,L5 ;是否为接收中断？
JMP RETURN
L5: JB SM2,L6 ;SM2=1接收地址，SM2=0接收数据MOV A,SBUF ;SM2=0，则接收数据并输出至P2
MOV P2,A
SETB SM2 ;设SM2=1，准备接收下一个地址
JMP RETURN
L6: MOV A,SBUF ;SM2=1,载入地址
CJNE A,#02H,RETURN ;是否（02H）地址？
CLR SM2 ;是则清除SM2=0，准备接收数据RETURN: POP PSW
POP ACC
RETI
END。