//本函數集來自551單片機世界”，作者斑竹丁丁（聶小猛）。
//主頁地址http://www.mcu51.com
//串口中斷服務程序，僅需做簡單調用即可完成串口輸入輸出的處理
//出入均設有緩沖區，大小可任意設置。
//可供使用的函數名:
/*
extern char getbyte(void);//從接收緩沖區取一個byte,如不想等待則在調用前檢測inbufsign是否為1。
extern getline(uchar *line, uchar n); //獲取一行數據回車結束，必須定義最大輸入字符數
extern putbyte(char c);//放入一個字節到發送緩沖區
extern putbytes(uchar *outplace,uchar j);//放一串數據到發送緩沖區，自定義長度
extern putstring(uchar  *puts);//發送一個定義在程序存儲區的字符串到串口
extern puthex(uchar c);//發送一個字節的hex碼，分成兩個字節發。
extern putchar(uchar c,uchar j);//輸出一個無符號字符數的十進制表示，必須標示小數點的位置,自動刪除前面無用的零
extern putint(uint ui,uchar j);//輸出一個無符號整型數的十進制表示，必須標示小數點的位置,自動刪除前面無用的零
extern  bit   inbufsign; 
extern putinbuf(uchar c);//人工輸入一個字符到輸入緩沖區
#define CR putstring("\r\n")//發送一個回車換行
extern  void delay_ms(unsigned int ms);
extern void serial_init (void);
*/
//*************************************************************************
#pragma small

#include <reg52.h>
#define  uchar  unsigned char
#define  uint   unsigned int

#define  OLEN  16                    /* size of serial transmission buffer   */
idata uchar  outbuf[OLEN];          /* storage for transmission buffer      */
idata uchar idata *outlast=outbuf;    //最后由中斷傳輸出去的字節位置
idata uchar idata *putlast=outbuf;    //最后放入發送緩沖區的字節位置
#define  ILEN  172                    /* size of serial receiving buffer      */
idata uchar  inbuf[ILEN];
idata uchar idata *inlast=inbuf;  //最后由中斷進入接收緩沖區的字節位置
idata uchar idata *getlast=inbuf;  //最后取走的字節位置
bit   outbufsign0;     //最后一個數據覵BUF發完標志  發完＝0
bit   outbufsign;     //輸出緩沖區非空標志   有=1
bit   inbufsign;      //接收緩沖區非空標志   有=1
bit   inbufful;       //輸入緩沖區滿標志  滿=1
#define CR putstring("\r\n")   //CR=回車換行

//延時
void delay(unsigned char d)  
{	
	unsigned char j;
	do
	{ 
		d--; 
		j=42;  
		do {j--;} while(j!=0);
	}while(d!=0);
}
//*****************************
//放入一個字節到發送緩沖區
putbyte(unsigned char c)
{
	ES=0;            /*暫停串行中斷，以免數據比較時出錯 */
	//緩沖區還有2個字節時，就等待發送到大于2個字節，以免沖爆。
	while((((outlast-putlast)==2) && (outlast > putlast )) || ((outlast < putlast) && (OLEN-(putlast-outlast)==2)))
	{
		ES=1; 
		c++;c--;
		ES=0;
	}
	*putlast=c;            //放字節進入緩沖區
	putlast++;          //發送緩沖區指針加一
	if (putlast==outbuf+OLEN) putlast=outbuf;  //指針到了頂部換到底部
	outbufsign=1;
	if (!outbufsign0)
	{
		outbufsign0=1;
		TI=1;
	}   //緩沖區開始為空置為有，啟動發送
	ES=1;
}

//******************************
//放一串數據到發送緩沖區
putbytes(unsigned char *outplace,unsigned char j)
{
	int i;
	for(i=0;i<j;i++)
	{
		putbyte(*outplace);
		outplace++;
	}
}

//******************************
//輸出一個無符號字符數的十進制表示，必須標示小數點的位置,自動刪除前面無用的零
//例如putchar(0x32,2),輸出"4.8".
//putchar(0x32,3),輸出"0.48".
//putchar(0x32,1),輸出"48".
putchar(uchar c,uchar j)
{
	uchar  free[4];
	uchar i;
	i=0;
	free[i++]=(c/100+0x30);
	if (j==3) free[i++]='.';
	free[i++]=(c%100)/10+0x30;
	if (j==2) free[i++]='.';
	if (j==2 && free[i-3]==0x30) free[i-3]=0x20;
	free[i++]=(c%10)+0x30;
	if (j==1 && free[i-3]==0x30) free[i-3]=0x20;
	if (j==1 && free[i-3]==0x20 && free[i-2]==0x30) free[i-2]=0x20;
	putbytes(free,i);
}
//***************************************
//發送一個字符串到串口
putstring(uchar  *puts)
{
	for(;*puts!=0;puts++)   //遇到停止符0結束
	putbyte(*puts);
}
//*************************************
//發送一個字節的hex碼，分成兩個字節發。
uchar code hex_[]={"0123456789ABCDEF"};
puthex(unsigned char c)
{
	int ch;
	ch=(c>>4)&0x0f;
	putbyte(hex_[ch]);
	ch=c&0x0f;
	putbyte(hex_[ch]);
}
//*************************************
//從接收緩沖區取一個byte,如不想等待則在調用前檢測inbufsign是否為1。
uchar getbyte (void)
{
	char idata c ;
	while (!inbufsign);     //緩沖區空等待
	ES=0;
	c= *getlast;            //取數據
	getlast++;              //最后取走的數據位置加一
	inbufful=0;            //輸入緩沖區的滿標志清零
	if (getlast==inbuf+ILEN) getlast=inbuf; //地址到頂部回到底部
	if (getlast==inlast) inbufsign=0;       //地址相等置接收緩沖區空空標志，再取數前要檢該標志
	ES=1;
	return (c);        //取回數據
}
//*****************************************
//串口中斷處理

serial () interrupt 4
{	
	if (TI)
	{
		TI = 0;
		if (outbufsign)
		{
			SBUF=*outlast; //未發送完繼續發送
			outlast++;            //最后傳出去的字節位置加一
			if (outlast==outbuf+OLEN) outlast=outbuf;//地址到頂部回到底部
			if (putlast==outlast) outbufsign=0;   //數據發送完置發送緩沖區空標志
		}
		else outbufsign0=0;
	}
	if (RI)
	{
		RI = 0;
		if(!inbufful)
		{
			*inlast= SBUF;            //放入數據
			inlast++;                    //最后放入的位置加一
			inbufsign=1;
			if (inlast==inbuf+ILEN) inlast=inbuf;//地址到頂部回到底部
			if (inlast==getlast)	inbufful=1;  //接收緩沖區滿置滿標志
		}
	}
}

//*****************************
//串口初始化                0xfd=19200,0xfa=9600,0xf4=4800,0xe8=2400,0xd0=1200
void serial_init (void)
{
	//用t1作波特率
	SCON  = 0x50;                     // mode 1: 8-bit UART, enable receiver
	TMOD |= 0x20;                      // timer 1 mode 2: 8-Bit reload
	PCON |= 0x80; TH1 = 0xfa;//fa,          //baud*2    /* reload value 19200 baud
	TR1   = 1;                         // timer 1 run

	//用t2作波特率
	/*
	T2CON=0x30;
	RCAP2H=0xFF;
	RCAP2L=0xfa;//b8=9600,dc=19200,ee=38400,f4=57600,fa=115200
	TR2=1;ET2=1;
	SCON=0xd0;
	*/

	ES = 1;
	REN=1;
	EA=1;
	SM2=1;          //SM2=1時收到的第9位為1才置位RI標志

}