/*******************************************************************************
*  標題:  偉納電子ME300B單片機開發系統演示程序 - PC與ME300串行通迅程序         *
*  文件:  wl013.c                                                              *
*  日期:  2004-1-5                                                             *
*  版本:  1.0                                                                  *
*  作者:  偉納電子 - Freeman                                                   *
*  郵箱:  freeman@willar.com                                                   *
*  網站： http://www.willar.com                                                *
********************************************************************************
*  描述:                                                                       *
*         單片機接收主機的數據,然后將數據傳送到P0口, 并傳回給主機;             *
*         當按下K1時, 單片機發送字串"welcome! www.willar.com\n\r" 給主機       *                                               *
*                                                                              *
*    注意：演示此程序需要配合串口調試軟件                                      *
*                                                                              *
********************************************************************************
* 【版權】 Copyright(C)偉納電子 www.willar.com  All Rights Reserved            *
* 【聲明】 此程序僅用于學習與參考，引用請注明版權和作者信息！                  *
*******************************************************************************/   

#include <reg51.h>
#include <intrins.h>

unsigned char key_s, key_v, tmp;

char code str[] = "welcome! www.willar.com \n\r";


void send_str();
bit	scan_key();
void proc_key();
void delayms(unsigned char ms);
void send_char(unsigned char txd);

sbit	K1 = P1^4;

main()
{
	TMOD = 0x20;			// 定時器1工作于8位自動重載模式, 用于產生波特率
	TH1 = 0xFD;				// 波特率9600
	TL1 = 0xFD;
	
	SCON = 0x50;			// 設定串行口工作方式
	PCON &= 0xef;			// 波特率不倍增
		
	TR1 = 1;				// 啟動定時器1
	IE = 0x0;				// 禁止任何中斷
	
	while(1)
	{
		if(scan_key())		// 掃描按鍵
		{
			delayms(10);			// 延時去抖動
			if(scan_key())			// 再次掃描
			{
				key_v = key_s;		// 保存鍵值
				proc_key();			// 鍵處理
			}
		}
		if(RI)						// 是否有數據到來
		{
			RI = 0;
			tmp = SBUF;				// 暫存接收到的數據
			P0 = tmp;				// 數據傳送到P0口
			send_char(tmp);			// 回傳接收到的數據
		}		
	}
}

bit scan_key()	
// 掃描按鍵
{
	key_s = 0x00;
	key_s |= K1;
	return(key_s ^ key_v);	
}

void proc_key()
// 鍵處理
{
	if((key_v & 0x01) == 0)
	{			// K1按下
		send_str();				// 傳送字串"welcome!...
	}
}

void send_char(unsigned char txd)
// 傳送一個字符
{
	SBUF = txd;
	while(!TI);				// 等特數據傳送
	TI = 0;					// 清除數據傳送標志
}

void send_str()
// 傳送字串
{
	unsigned char i = 0;
	while(str[i] != '\0')
	{
		SBUF = str[i];
		while(!TI);				// 等特數據傳送
		TI = 0;					// 清除數據傳送標志
		i++;					// 下一個字符
	}	
}

void delayms(unsigned char ms)	
// 延時子程序
{						
	unsigned char i;
	while(ms--)
	{
		for(i = 0; i < 120; i++);
	}
}