//出入均设有缓冲区，大小可任意设置。
//可供使用的函数名:
//char getbyte(void);从接收缓冲区取一个byte,如不想等待则在调用前检测inbufsign是否为1。
//getline(char idata *line, unsigned char n);
//获取一行数据回车结束，已处理backspce和delete,必须定义最大输入字符数
//putinbuf(uchar c);模拟接收到一个数据
//putbyte(char c);放入一个字节到发送缓冲区
//putbytes(unsigned char *outplace,j);放一串数据到发送缓冲区，自定义长度
//putstring(unsigned char code *puts);发送一个字符串到串口
//puthex(unsigned char c);发送一个字节的hex码，分成两个字节发。
//putchar(uchar c,uchar j);发送一个字节数据的asc码表达方式，需要定义小数点的位置
//putint(uint ui,uchar j);发送一个整型数据的asc码表达方式，需要定义小数点的位置
//CR;发送一个回车换行
//*************************************************************************
#include //该头文件包括了51，52，80320的特殊寄存器，用在51，52上也可
#define uchar unsigned char 
#define uint unsigned int 
#define OLEN 64  /* size of serial transmission buffer */
idata unsigned char outbuf[OLEN]; /* storage for transmission buffer */
unsigned char idata *outlast=outbuf; //最后由中断传输出去的字节位置
unsigned char idata *putlast=outbuf; //最后放入发送缓冲区的字节位置
#define ILEN 2 /* size of serial receiving buffer */
idata unsigned char inbuf[ILEN];
unsigned char idata *inlast=inbuf; //最后由中断进入接收缓冲区的字节位置 unsigned
char idata *getlast=inbuf; //最后取走的字节位置 
bit outbufsign; //输出缓冲区非空标志 有=1 
bit inbufsign;//接收缓冲区非空标志 有=1
bit inbufful;//输入缓冲区满标志 满=1
#define CR putstring("\r\n") //CR=回车换行
//*****************************
//放入一个字节到发送缓冲区
putbyte(char c) 
{
    uchar i,j; ES=0;
    /*暂停串行中断，以免数据比较时出错? */
    if (outlast==putlast )
    {
        i=(0-TH1);
        do
        {
            i--;
            j=36;
            do 
            {
                j--;
            }
            while(j!=0);
        }
        while(i!=0);
        //延时一个字节发送时间
    }
    *putlast=c; //放字节进入缓冲区
    putlast++; //发送缓冲区指针加一 
    if(putlast==outbuf+OLEN) putlast=outbuf; //指针到了顶部换到底部
    if (!outbufsign)
    {
        outbufsign=1;
        TI=1;
    } 
    //缓冲区开始为空置为有，启动发送
    ES=1; 
}

//****************************** //放一串数据到发送缓冲区
putbytes(unsigned char *outplace,unsigned char j)
{
    int i; for(i=0;i    {
        putbyte(*outplace);
        outplace++;        
    }
}

//******************************
//putchar(uchar c,uchar j);发送一个字节数据的asc码表达方式，需要定义小数点的位置
putchar(uchar c,uchar j)
{
    uchar idata free[4];uchar data 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);
}

//******************************
//putint(uint ui,uchar j);发送一个整型数据的asc码表达方式，需要定义小数点的位置
putint(uint ui,uchar j)
{
    uchar idata free[6];
    uchar data i;
    //i=0;
    free[i++]=(ui/10000+0x30);
    if (j==5) free[i++]='.';
    free[i++]=((ui%10000)/1000+0x30);
    if (j==4) free[i++]='.';
    if (j==4 && free[i-3]==0x30) free[i-3]=0x20;
    free[i++]=((ui%1000)/100+0x30);
    if (j==3) free[i++]='.';
    if (j==3 && free[i-4]==0x30) free[i-4]=0x20;
    if (j==3 && free[i-4]==0x20 && free[i-3]==0x30) free[i-3]=0x20;
    free[i++]=((ui%100)/10+0x30);
    if (j==2) free[i++]='.';
    if (j==2 && free[i-5]==0x30) free[i-5]=0x20;
    if (j==2 && free[i-5]==0x20 && free[i-4]==0x30) free[i-4]=0x20;
    if (j==2 && free[i-5]==0x20 && free[i-4]==0x20 && free[i-3]==0x30)
    free[i-3]=0x20;
    free[i++]=(ui%10+0x30);
    if (j==1 && free[i-5]==0x30) free[i-5]=0x20;
    if (j==1 && free[i-5]==0x20 && free[i-4]==0x30) free[i-4]=0x20;
    if (j==1 && free[i-5]==0x20 && free[i-4]==0x20 && free[i-3]==0x30)
    free[i-3]=0x20;
    if (j==1 && free[i-5]==0x20 && free[i-4]==0x20 && free[i-3]==0x20 &&
    free[i-2]==0x30) free[i-2]=0x20;
    putbytes(free,i);
}

//***************************************
//发送一个字符串到串口
putstring(unsigned char *puts)
{
    for (;*puts!=0;puts++) //遇到停止符0结束
    putbyte(*puts);
}

//*************************************
//发送一个字节的hex码，分成两个字节发。
unsigned char 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);
    //取回数据 
}

//***************************************** //接收一行数据，必须定义放数据串的指针位置和大小
//del=0x7f,backspace=0x08,cr=0x0d,lf=0x0a
void getline (uchar idata *line, unsigned char n)
{
    unsigned char cnt = 0; //定义已接收的长度       
    char c;
    do
    {
        if ((c = getbyte ()) == 0x0d)
        c = 0x00; //读一个字节，如果是回车换成结束符
        if (c == 0x08 || c == 0x7f) //BACKSPACE 和 DEL 的处理
        {
            if (cnt != 0) //已经输入退掉一个字符
            {
                cnt--; //总数目减一
                line--; //指针减一
                putbyte (0x08); //屏幕回显的处理
                putbyte (' ');
                putbyte (0x08);
            }
        }
        else
        {
            putbyte (*line = c);
            //其他字符取入，回显
            line++; //指针加一
            cnt++; //总数目加一
        }
    } 
    while (cnt < n - 1 && c != 0x00 && c!=0x1b); //数目到了，回车或ESC停止
    *line = 0; //再加上停止符0 
}

//****************************
//模拟接收到一个数据
putinbuf(uchar c)
{
    ES=0; 
    if(!inbufful)
    {
        *inlast= c; //放入数据 inlast++;
        //最后放入的位置加一
        if (inlast==inbuf+ILEN)
        inlast=inbuf;//地址到顶部回到底部
        if (inlast==getlast)
        inbufful=1; //接收缓冲区满置满标志
        inbufsign=1;
    }
    ES=1;
}

//*****************************************
//串口中断处理
serial () interrupt 4 
{
    if (TI )
    {
        TI = 0;
        if (outbufsign) //
        if (putlast==outlast)
        outbufsign=0; //
        else 
        {
            SBUF=*outlast; //未发送完继续发送
            outlast++; //最后传出去的字节位置加一
            if (outlast==outbuf+OLEN)
            outlast=outbuf;//地址到顶部回到底部
            if (putlast==outlast)
            outbufsign=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
serial_init ()
{
    SCON = 0x50; /* mode 1: 8-bit UART, enable receiver */
    TMOD |= 0x20; /* timer 1 mode 2: 8-Bit reload */
    PCON |= 0x80;
    TH1 = 0xfd;//fa, //baud*2
    /* reload value 19200 baud */
    TR1 = 1; /* timer 1 run */
    ES = 1;            
    REN=1;
    EA=1;
    SM2=1; //SM2=1时收到的第9位为1才置位RI标志
    //TMOD |=0x01; //th1 auto load 2X8,th0 1X16 
    //TH0=31;
    TL0=0; 
    //X 32 =1S 
    //TR0=1; 
    ET0=1; 
}