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 ；程序完