51單片機(jī)雙機(jī)串行通信匯編語言程序+Proteus仿真

ID:556466 · 發(fā)表于 2019-6-7 15:23

甲機(jī)按鍵控制乙機(jī)數(shù)碼管，乙機(jī)按鍵控制甲機(jī)LED燈
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）

單片機(jī)源程序如下:

ORG 00H
SJMP INIT
ORG 0023H
LJMP LOOP
ORG 0030H
INIT: MOV SP,#5FH
MOV SCON,#50H ;串行口工作方式1，允許接收
MOV TMOD,#20H ;定時(shí)器1工作方式2
MOV PCON,#0H ;波特率不加倍
MOV TH1,#0FDH ;波特率9.6kbit/s
MOV TL1,#0FDH
SETB TR1 ;啟動(dòng)定時(shí)器1
SETB EA
SETB ES
CLR TI
CLR RI
KEYS: MOV P0,#0FFH
MOV R1,#0EFH ;初始化各寄存器
MOV R2,#4
MOV R3,#0FFH
MOV 20H,#11101111B
MOV 21H,#11111110B
KEYREAD: MOV A,R1
MOV P0,A ;送掃描碼至P0口
MOV A,P0 ;讀P0口按鍵狀態(tài)
MOV R3,A ;將此狀態(tài)保存在寄存器R3中
ORL A,#0F0H ;屏蔽P0口高四位
CJNE A,#0FFH,KEYDOWN ;若P0口低四位不全為1，有按鍵落下
MOV A,R1
RL A ;若低四位全為1，掃描下一行
MOV R1,A
DJNZ R2,KEYREAD
LJMP KEYS
KEYDOWN: MOV A,P0
ORL A,#0F0H
CJNE A,#0FFH,KEYTURN1 ;若按鍵確實(shí)落下，將按鍵轉(zhuǎn)換為按鍵碼
LJMP KEYS
KEYTURN1: MOV R2,#4 ;設(shè)循環(huán)次數(shù)
MOV B,#0 ;按鍵碼初始值設(shè)為0
LOOP1: MOV A,P0
ORL A,#0F0H
CJNE A,21H,S1 ;判斷落下按鍵是否位于該列
SJMP KEYTURN2 ;是，跳轉(zhuǎn)判斷行
S1: INC B ;否，按鍵碼加1，(21H)左移，判斷是否位于下一列
MOV A,21H
RL A
MOV 21H,A
DJNZ R2,LOOP1
SJMP KEYREAD
KEYTURN2: MOV R2,#4
LOOP2: MOV A,P0
ORL A,#0FH
CJNE A,20H,S2 ;判斷落下按鍵是否位于該行
SJMP S3
S2: INC B ;否，按鍵碼加4，(20H)左移，判斷是否位于下一行
INC B
INC B
INC B
MOV A,20H
RL A
MOV 20H,A
DJNZ R2,LOOP2
SJMP KEYREAD
S3: MOV A,B ;將按鍵碼送給A
SEND: MOV SBUF,A ;發(fā)送數(shù)據(jù)
JNB TI,$
CLR TI
LJMP INIT
LOOP: MOV A,SBUF ;接收乙機(jī)數(shù)據(jù)
JNB RI,$
CLR RI ;清接收中斷標(biāo)志
MOV P1,#0FFH
LCALL LED8 ;將乙機(jī)按鍵數(shù)據(jù)送P1口，點(diǎn)亮LED燈
RETI
LED8: JNB ACC.0,LIGHT1
JNB ACC.1,LIGHT2
JNB ACC.2,LIGHT3
RETURN: RET
LIGHT1: MOV A,#0FEH
MOV R2,#8
L1: MOV P1,A
RL A
ACALL DELAY
DJNZ R2,L1
SJMP RETURN
LIGHT2: MOV A,#07FH
MOV R2,#8
L2: MOV P1,A
RR A
ACALL DELAY
DJNZ R2,L2
SJMP RETURN
LIGHT3: MOV A,#0E7H
MOV P1,A
ACALL DELAY
SETB C
L31: MOV R0,A
ORL A,#0FH
RLC A
MOV R1,A
MOV A,R0
ORL A,#0F0H
RRC A
MOV R2,A
ANL A,#0FH
MOV R0,A
MOV A,R1
ANL A,#0F0H
ADD A,R0
MOV P1,A
ACALL DELAY
JB P1.7,L31
L32: SETB C
MOV R0,A
ORL A,#0FH
RRC A
MOV R1,A
MOV A,R0
ORL A,#0F0H
RLC A
MOV R2,A
ANL A,#0FH
MOV R0,A
……………………
…………限于本文篇幅余下代碼請從51黑下載附件…………

復(fù)制代碼

所有資料51hei提供下載:

程序代碼.rar (2.64 KB, 下載次數(shù): 156)

ID:560533 · 發(fā)表于 2019-6-12 08:30

好好研究一哈

ID:332130 · 發(fā)表于 2019-8-15 08:51

沒有仿真圖啊，只有代碼

ID:594353 · 發(fā)表于 2019-8-15 16:52

不應(yīng)該是甲乙各有程序嗎

ID:92827 · 發(fā)表于 2019-10-21 19:16

單片機(jī)房煙花雨發(fā)表于 2019-8-15 16:52
不應(yīng)該是甲乙各有程序嗎

兩片單片機(jī)應(yīng)該是2套程序，看來程序還得自己編啊

ID:583800 · 發(fā)表于 2019-12-1 16:29

littlejia 發(fā)表于 2019-10-21 19:16
兩片單片機(jī)應(yīng)該是2套程序，看來程序還得自己編啊

分別寫在兩個(gè)單片機(jī)里就可以了

ID:518023 · 發(fā)表于 2019-12-4 21:18

liking 發(fā)表于 2019-12-1 16:29
分別寫在兩個(gè)單片機(jī)里就可以了

你們運(yùn)行成功了嗎？

ID:613684 · 發(fā)表于 2019-12-9 21:59

有人成功了嗎，可不可行

ID:716827 · 發(fā)表于 2020-3-27 13:04

有C的程序嗎

ID:739434 · 發(fā)表于 2020-5-4 12:00

請問有仿真圖嗎？運(yùn)行沒有成功

ID:764591 · 發(fā)表于 2020-5-29 21:15

cc5218 發(fā)表于 2020-5-4 12:00
請問有仿真圖嗎？運(yùn)行沒有成功

你有程序么發(fā)給我一份

ID:763089 · 發(fā)表于 2020-6-3 19:05

我打不開那個(gè)asm

ID:290578 · 發(fā)表于 2021-6-20 21:04

接收過程比較簡單，沒多少參考，多謝啦。

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊

51單片機(jī)雙機(jī)串行通信匯編語言程序+Proteus仿真

評(píng)分