MOV SCON,#40H
MOV R0,#20H
MOV R7,#32
MOV A,#40
LOOP1:
MOV @R0,A
INC A
INC R0
DJNZ R7,LOOP1
MOV R0,#20H
MOV R7,#32
LOOP: MOV A,@R0
ACALL YANSHI
ACALL SPOUT
INC R0
DJNZ R7,LOOP
SJMP START
SPOUT:
MOV SBUF,A
JNB TI,$
CLR TI
RET
YANSHI: MOV R6,#250
D1: MOV R5,#250
DJNZ R5,$
DJNZ R6,D1
RET
END
3.3上位机（PC机）串行通信及程序设计
3.3.1 平台介绍及编程方法
VB语言简介
在本系统中PC机采用Visual Basic(简称VB)编程。VB已成为WINDOWS系统开发的主要语言，以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。VB支持面向对象的程序设计，具有结构化的事件驱动编程模式并可以使用无限扩增的控件，而且可以十分简便地作出良好的人机界面。
用VB6.0开发串行通信程序有两种法，一种是利用Windows的API函数；另一种是采用VB6.0的通信控件MSComm。利用API函数编写串行通信程序较为复杂，需要掌握大量的通信知识，其优点是可实现的功能更丰富、应用面更广泛，适合于编写较为复杂的低层次通信程序。而VB6.0的MSComm通信控件提供了标准的事件处理函数、事件、方法，并通过控件属性对串口参数进行设置，比较容易地解决了串口通信问题。该控件可设置串行通信的数据发送和接收，对串口状态及串口通信的信息格式和协议进行设置。这是一个标准的十位串口通信，包括8位标准数据和数据的起始位和停止位。在发送或接收数据过程中触发OnComm事件，通过编程访问 CommEvent属性了解通信事件的类型，分别进行各自的处理。每个通信控件对应一个串口，可以设计多个通信控件来访问多个通信口。
PC机程序设计流程图如下示
3.3.2 VB6.0的通信控件及通信方式
MSComm通讯控件简介
MSComm是VB6.0提供的ActiveX控件，使用前需将该控件添加到VB工具 栏。MSComm控件串口具有完善的串口数据的发送和接收功能。通过此控件，PC机可以利用串行口与其它设备实现轻松连接，简单高效地实现设备之间的通讯。此控件的事件响应有两种处理方式，事件驱动方式：由MSComm控件的OnComm事件捕获并处理通讯错误及事件；查询方式：通过检查CommEvent属性的值来判断事件和错误。
1)MSComm控件的主要属性和方法
a. CommPort：设置或返回串行端口号，其取值范围为1—99，缺省为1
b. Setting： 设置或返回串行端口的波特率、奇偶校验位、数据位数、停位。如：MSComm.Setting="9600, n, 8, 1”。
c. PortOpen：打开或关闭串行端口。
d. RThreshold：该属性为一阀值，它确定当接收缓冲区内字节个数达到或超过该值后就产生MSComml--OnComm事件。