1. PC机编程

PC采用Toubr C 进行编写。程序如下：

#include

#define port 0x3f8 /*利用串口1进行通信*/

int ch［15］;

main （）

{

int a;

int i，j;

int b［6］={88，15，38，26，20，0};

char c;

clrscr（）;

outportb（port 3，0x80）; /*准备设置波特率*/

outportb（port，0x0C）; /*波特率设置为9 600 bps*/

outportb（port 1，0x00）;

outportb（port 3，0x03）; /*8位数据位，奇偶检验，1位停止位*/

outportb（port 1，0x00）; /*关中断*/

inportb（port 5）; /*读一次线路状态寄存器，使其复位*/

{

printf（“\t\tsend dataorreceive data： （sorr？）\n\n\n”）;

c=getchar（）;

switch（c）

{

case ’s’：

case ’S’：

{

while（！（inportb（port 5）&0x20））; /*发送保持器满则等待*/

outportb（port，0x01）; /*否则发送数据01通知 单片机 准备接收*/

for（i=0;i《6;i ） /*共发送6个数据*/

{

a=b［i］;

while（！（inportb（port 5）&0x20））

delay（100）; /*发送保持器满，等待*/

outportb（port，a）; /*发送a*/

printf（“%d\n”，a）; /*显示a*/

while（！（inport（port 5）&1））; /*接收 单片机 送回的数据*/

ch［i］=inport（port）; /*保存*/

}

delay（10）;

for（j=0;j《8;j ） /*显示接收的回送数据*/

printf（“\n%d\n”，ch［j］）;

getch（）;

break;

}

case’r’： /*接收数据*/

case’R’：

{

while（！（inportb（port 5）&0x20））;

outportb（port，0x02）; /*发送数据02通知 单片机 发送数据*/

for（j=0;j《9;j ） /*共接收9个数据*/

{

while（！（inportb（port 5）&1））;

ch［j］=inportb（port）;

}

for（j=0;j《9;j ）

printf（“\n %d\n”，ch［j］）;

getch（）;

break;

}

}

}

}

2. 单片机 编程

LIST P=16F876

#INCLUDE P16F876.INC

CBLOCK 0X24

COUNT

TEMP

ENDC

ORG 0X0000

NOP

START GOTO MAIN

ORG 0X020

MAIN MOVLW 0X30 ；将RAM单元初始化

MOVWF FSR

BCF STATUS，RP0

MOVLW 0X22

MOVWF COUNT

INTRAM MOVF COUNT，0

MOVWF INDF

INCF COUNT，1

INCF FSR，1

BTFSS FSR，7

GOTO INTRAM

BANKSEL TXSTA ；波特率设置为9 600 bps

MOVLW 0X19

MOVWF SPBRG ；异步高速方式

MOVLW 0X04

MOVWF TXSTA

BCF STATUS，RP0

MOVLW 0X80 ；串行口使能

MOVWF RCSTA

MOVLW 0X30

MOVWF FSR

BSF RCSTA，CREN ；接收允许

BSF STATUS，RP0

BSF TXSTA，TXEN ；发送允许

BCF STATUS，RP0

WAIT BTFSS PIR1，RCIF ；接收PC机命令

GOTO WAIT

MOVF RCREG，0

MOVWF TEMP

MOVWF INDF

INCF FSR

DECFSZ TEMP ；接收到的数据为1，则接收

GOTO TXW ；否则发送数据

MOVLW 0X06

MOVWF TEMP

WAIT1 BTFSS PIR1，RCIF ；接收一个数据

GOTO WAIT1

MOVF RCREG，0

MOVWF COUNT

MOVWF TXREG

LOOPTX BTFSS PIR1，TXIF ；将接收到的数据送回PC机

GOTO LOOPTX

MOVF COUNT，0

MOVWF INDF

INCF FSR

DECFSZ TEMP

GOTO WAIT1

GOTO OVER ；处理完毕

TXW MOVLW 0X09 ；向PC机发送9个数据

MOVWF TEMP

MOVLW 0X30

MOVWF FSR

TXW0 MOVF INDF，0

MOVWF TXREG

INCF FSR

TXW1 BTFSS PIR1，TXIF

GOTO TXW1

DECFSZ TEMP

GOTO TXW0

OVER BCF RCSTA，CREN ；通信任务完成，关接受和发送允许

BSF STATUS，RP0

BCF TXSTA，TXEN

BCF STATUS，RP0

CALL LED ；调用显示子程序，将发送（或接收）的数据显示出来

END ；程序完