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）; /*準備設(shè)置波特率*/

outportb（port，0x0C）; /*波特率設(shè)置為9 600 bps*/

outportb（port 1，0x00）;

outportb（port 3，0x03）; /*8位數(shù)據(jù)位，奇偶檢驗，1位停止位*/

outportb（port 1，0x00）; /*關(guān)中斷*/

inportb（port 5）; /*讀一次線路狀態(tài)寄存器，使其復(fù)位*/

{

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

c=getchar（）;

switch（c）

{

case ’s’：

case ’S’：

{

while（?。╥nportb（port 5）&0x20））; /*發(fā)送保持器滿則等待*/

outportb（port，0x01）; /*否則發(fā)送數(shù)據(jù)01通知 單片機 準備接收*/

for（i=0;i《6;i ） /*共發(fā)送6個數(shù)據(jù)*/

{

a=b［i］;

while（?。╥nportb（port 5）&0x20））

delay（100）; /*發(fā)送保持器滿，等待*/

outportb（port，a）; /*發(fā)送a*/

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

while（?。╥nport（port 5）&1））; /*接收 單片機 送回的數(shù)據(jù)*/

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

}

delay（10）;

for（j=0;j《8;j ） /*顯示接收的回送數(shù)據(jù)*/

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

getch（）;

break;

}

case’r’： /*接收數(shù)據(jù)*/

case’R’：

{

while（?。╥nportb（port 5）&0x20））;

outportb（port，0x02）; /*發(fā)送數(shù)據(jù)02通知 單片機 發(fā)送數(shù)據(jù)*/

for（j=0;j《9;j ） /*共接收9個數(shù)據(jù)*/

{

while（?。╥nportb（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 ；波特率設(shè)置為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 ；發(fā)送允許

BCF STATUS，RP0

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

GOTO WAIT

MOVF RCREG，0

MOVWF TEMP

MOVWF INDF

INCF FSR

DECFSZ TEMP ；接收到的數(shù)據(jù)為1，則接收

GOTO TXW ；否則發(fā)送數(shù)據(jù)

MOVLW 0X06

MOVWF TEMP

WAIT1 BTFSS PIR1，RCIF ；接收一個數(shù)據(jù)

GOTO WAIT1

MOVF RCREG，0

MOVWF COUNT

MOVWF TXREG

LOOPTX BTFSS PIR1，TXIF ；將接收到的數(shù)據(jù)送回PC機

GOTO LOOPTX

MOVF COUNT，0

MOVWF INDF

INCF FSR

DECFSZ TEMP

GOTO WAIT1

GOTO OVER ；處理完畢

TXW MOVLW 0X09 ；向PC機發(fā)送9個數(shù)據(jù)

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 ；通信任務(wù)完成，關(guān)接受和發(fā)送允許

BSF STATUS，RP0

BCF TXSTA，TXEN

BCF STATUS，RP0

CALL LED ；調(diào)用顯示子程序，將發(fā)送（或接收）的數(shù)據(jù)顯示出來

END ；程序完