实验七串行通信实验.docVIP

下载本文档

1
0
约2.73千字
约 11页
2025-05-18 发布于云南
举报
版权申诉

实验七串行通信实验.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

第PAGE10页共NUMPAGES10页

实验七串行通信实验

一、实验目的

掌握实现串行通信的基本方法；

掌握键盘按键控制的串行通信实现方法；

掌握定时控制的串行通信实现方法。

根据已知电路和设计要求在PROTEUS平台仿真实现通信系统。

INC78H

END2:MOVA,76H

CJNEA,78H,RETN

MOVA,75H

CJNEA,77H,RETN

CLRES

CLREA

SETB7FH

SJMPRETN

END

五、实验过程中遇到的主要问题

OUTBIT

equ08002h

;

位控制口

OUTSEG

equ08004h

;

段控制口

equ08001h

;

键盘读入口

HasRcvequ

20h.0

;

接收标志位

LEDBufequ

40h

;

显示缓冲

RCVBufequ

50H

;

接收缓冲

ORG

0000H

LJMP

START

;

串行口中断程序

ORG

0023H

JNB

TI,S0_R

CLR

NOP

SJMP

S0_RET

S0_R:

;

接收数据

CLR

MOV

RCVBUF,SBUF

;

保存数据

SETB

HasRcv

;

提示收到数据

NOP

S0_RET:

RETI

LEDMAP:

;

八段管显示码

3fh,06h,5bh,4fh,66h,6dh,7dh,07h

7fh,6fh,77h,7ch,39h,5eh,79h,71h

Delay:

;

延时子程序

mov

r7,#0

DelayLoop:

djnz

r7,DelayLoop

djnz

r6,DelayLoop

ret

DisplayLED:

mov

r0,#LEDBuf

mov

r1,#6

;

共

个八段管

mov

r2,

;

从左边开始显示

Loop:

mov

dptr,#OUTBIT

mov

a,#0

movx

@dptr,a

;

关所有八段管

mov

a,@r0

mov

dptr,#OUTSEG

movx

@dptr,a

mov

dptr,#OUTBIT

mov

a,r2

movx

@dptr,a

;

显示一位八段管

mov

r6,#1

call

Delay

mov

a,r2

;

显示下一位

mov

r2,a

inc

djnz

r1,Loop

ret

TestKey:

mov

dptr,#OUTBIT

mov

a,#0

movx

@dptr,a

;

输出线置为

mov

dptr,#IN

movx

a,@dptr

;

读入键状态

cpl

anl

a,#0fh

;

高四位不用

ret

KeyTable:

;

键码定义

16h,15h,14h,0ffh

13h,12h,11h,10h

0dh,0ch,0bh,0ah

0eh,03h,06h,09h

0fh,02h,05h,08h

00h,01h,04h,07h

GetKey:

mov

dptr,#OUTBIT

mov

P2,dph

mov

r0,#Low(IN)

mov

r1,

mov

r2,#6

KLoop:

mov

a,r1

;

找出键所在列

cpl

movx

@dptr,a

cpl

mov

r1,a

;

下一列

movx

a,@r0

cpl

anl

a,#0fh

jnz

Goon1

;

该列有键入

djnz

r2,KLoop

mov

r2,#0ffh

;

没有键按下

0ffh

sjmp

Exit

Goon1:

mov

r1,a

;

键值

列

X4+

行

mov

a,r2

dec

mov

r2,a

;r2=(r2-1)*4

mov

a,r1

;r1

中为读入的行值

mov

r1,#4

LoopC:

rrc

;

移位找出所在行

Exit

inc

;r2=r2+

行值

djnz

r1,LoopC

Exit:

mov

a,r2

;

取出键码

mov

dptr,#KeyTable

movc

a,@a+dptr

mov

r2,a

WaitRelease:

mov

dptr,#OUTBIT

;

等键释放

clr

movx

@dptr,a

mov

r6,#10

call

Delay

call

TestKey

jnz

WaitRelease

mov

a,r2

ret

START:

MOV

SP,

#60H

MOV

IE,

;DISABLEAL

您可能关注的文档

文档评论（0）

1658576823bd104 + 关注: 实名认证

文档贡献者

该用户很懒，什么也没介绍

咨询Ta 进入空间

1亿VIP精品文档

更多 >

实验七串行通信实验.docVIP