51单片机到TC35（GSM）发送接收程序

51单片机到tc35模块的发送接收程序，调试通过，该程序用于：单片机控制gsm模块发短信

#include
#include
#include
#define uint unsigned int
#define uchar unsigned char
#define RST      0X01
#define CMGF     0X02
#define CMGD     0X03
#define CREG     0X04
#define CMGR     0X05
#define CMGS     0X06
#define CSCA     0X07
#define ATDAT    0X08
#define TC35RET  0X00
uchar i_tmpj_tmp;
/*--------------------------/
        寄存器定义
---------------------------*/
uchar TC35_CONch;
uchar read_flag;

uchar i_TC35_RECE;

uchar i_receive
      TC35_RE[80]
	  TC35_MAX
	  i_TC35;

void delay（uint）;
void init_serialcom（ void ）;
void send_uart（ unsigned char）;
void ATNAME（void）;
void AT_CMGS（void）;
void AT_CSCA（void）;
void AT_RST（void）;
void AT_CREG（void）;
void AT_CMGF（void）;
void AT_CMGR（void）;
void AT_CMGD（void）;
/*--------------------------/	  
    延时函数定义        
/--------------------------*/ 

void main（void）
{P1=0XFF;
 P2=0XFF;
 P3=0Xff;
 P0=0X55;
// init_devices（）;
    init_serialcom（）; //初始化串口 
 delay（100）;
 
 P0=0XFF;
 TC35_MAX=0;
 AT_RST（）;
while（1）
{delay（100）;

if（TC35_MAX>0）
{
if（TC35_CON==RST）{
if（（TC35_RE[7]==‘O‘）&&（TC35_RE[8]==‘K‘））
{P0=（0XFF-0X01）;TC35_CON=TC35RET;// delay（100）;
AT_CMGF（）;}
else{P1=（0XFF-0X02）;}

}
else if（TC35_CON==CMGF）{
if（（TC35_RE[12]==‘O‘）&&（TC35_RE[13]==‘K‘））
{P0=（0XFF-0X02）;TC35_CON=TC35RET; // delay（100）;
AT_CREG（）;}
else{P1=（0XFF-0X02）;}

}
else if（TC35_CON==CREG）{
if（（（TC35_RE[18]==‘0‘）&&（TC35_RE[20]==‘1‘））||（（TC35_RE[18]==‘0‘）&&（TC35_RE[20]==‘5‘）））
{P0=（0XFF-0X04）;
 P1=0XFF;
 TC35_CON=TC35RET;AT_CMGR（）;}
else{P1=（0XFF-0X02）;AT_CREG（）;}
}
else if（TC35_CON==CMGR）{
if（TC35_MAX<=30）{AT_CMGR（）;}
else //if（（TC35_MAX==77）||（TC35_MAX==79））
{delay（100）;
P0=（0XFF-0X08）;
P1=0XFF;
if（TC35_RE[69]==‘0‘）
{P2=（0XFF-0X01）;P1=0XFF;TC35_CON=TC35RET;delay（100）;AT_CMGD（）;}
else if（TC35_RE[69]==‘1‘）
{P2=（0XFF-0X02）;P1=0XFF;TC35_CON=TC35RET;delay（100）;AT_CMGD（）;}
else if（TC35_RE[69]==‘2‘）
{P2=（0XFF-0X04）;P1=0XFF;TC35_CON=TC35RET;delay（100）;AT_CMGD（）;}
else if（TC35_RE[69]==‘3‘）
{P2=（0XFF-0X08）;P1=0XFF;TC35_CON=TC35RET;delay（100）;AT_CMGD（）;}
else if（TC35_RE[69]==‘4‘）
{P2=（0XFF-0X10）;P1=0XFF;TC35_CON=TC35RET;delay（100）;AT_CMGD（）;}
else if（TC35_RE[69]==‘5‘）
{P2=（0XFF-0X20）;P1=0XFF;TC35_CON=TC35RET;delay（100）;AT_CMGD（）;}
else if（TC35_RE[69]==‘6‘）
{P2=（0XFF-0X40）;P1=0XFF;TC35_CON=TC35RET;delay（100）;AT_CMGD（）;}
else if（TC35_RE[69]==‘7‘）
{P2=（0XFF-0X80）;P1=0XFF;TC35_CON=TC35RET;delay（100）;AT_CMGD（）;}
else{TC35_CON=TC35RET;AT_CMGR（）;}
}
}
else if（TC35_CON==CMGD）{delay（100）;
if（（TC35_RE[12]==‘O‘）&&（TC35_RE[13]==‘K‘））
{P0=（0XFF-0X10）;P1=0XFF;delay（100）;AT_CSCA（）;}
else{P1=（0XFF-0X02）;}
}

//填写信息中心号
else if（TC35_CON==CSCA）{delay（100）;
if（（TC35_RE[25]==‘O‘）&&（TC35_RE[26]==‘K‘））
{P0=（0XFF-0X20）;P1=0XFF;delay（100）;AT_CMGS（）;}
else{P1=（0XFF-0X02）;}
}
//填写发送内容
else if（TC35_CON==CMGS）{delay（100）;
if（（TC35_RE[22]==0X3E）&&（TC35_RE[23]==0X20））
{P0=（0XFF-0X40）;P1=0XFF;delay（100）;ATNAME（）;}
else{P1=

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        213  2010-05-16 10:27  51-STC-TC35发送接收程序例程\HEAD_IO.H

     文件       2121  2010-05-16 10:06  51-STC-TC35发送接收程序例程\shuoming.txt

     文件       5115  2002-04-16 14:32  51-STC-TC35发送接收程序例程\STARTUP.A51

     文件      11673  2010-09-15 10:36  51-STC-TC35发送接收程序例程\STARTUP.LST

     文件        749  2010-09-15 10:36  51-STC-TC35发送接收程序例程\STARTUP.OBJ

     文件        653  2010-05-16 10:06  51-STC-TC35发送接收程序例程\TC35MOK.C

     文件       1598  2010-05-16 10:05  51-STC-TC35发送接收程序例程\TC35MOK.LST

     文件       2660  2010-05-16 10:05  51-STC-TC35发送接收程序例程\TC35MOK.OBJ

     文件      18936  2010-09-15 10:36  51-STC-TC35发送接收程序例程\TC35模块

     文件       1757  2010-09-15 11:00  51-STC-TC35发送接收程序例程\TC35模块-51-STC51.Opt

     文件       2089  2010-08-30 14:09  51-STC-TC35发送接收程序例程\TC35模块-51-STC51.Uv2

     文件       1757  2010-09-15 10:44  51-STC-TC35发送接收程序例程\TC35模块-51-STC51_Opt.Bak

     文件       2227  2010-08-08 00:13  51-STC-TC35发送接收程序例程\TC35模块-51-STC51_Uv2.Bak

     文件       3379  2010-05-30 01:45  51-STC-TC35发送接收程序例程\TC35模块.c

     文件       2738  2010-09-15 10:36  51-STC-TC35发送接收程序例程\TC35模块.hex

     文件         85  2010-09-15 10:36  51-STC-TC35发送接收程序例程\TC35模块.lnp

     文件       6392  2010-09-15 10:36  51-STC-TC35发送接收程序例程\TC35模块.LST

     文件      17517  2010-09-15 10:36  51-STC-TC35发送接收程序例程\TC35模块.M51

     文件       9747  2010-09-15 10:36  51-STC-TC35发送接收程序例程\TC35模块.OBJ

     文件       1794  2010-05-30 09:33  51-STC-TC35发送接收程序例程\TC35模块.Opt

     文件        353  2010-09-15 11:00  51-STC-TC35发送接收程序例程\TC35模块.plg

     文件       1794  2010-05-30 02:16  51-STC-TC35发送接收程序例程\TC35模块_Opt.Bak

     文件       2091  2010-05-16 12:08  51-STC-TC35发送接收程序例程\TC35模块_Uv2.Bak

     文件       3952  2010-05-30 09:44  51-STC-TC35发送接收程序例程\TC35模块辅助.c

     文件       7552  2010-09-15 10:36  51-STC-TC35发送接收程序例程\TC35模块辅助.LST

     文件      11294  2010-09-15 10:36  51-STC-TC35发送接收程序例程\TC35模块辅助.OBJ

     目录          0  2011-03-11 20:36  51-STC-TC35发送接收程序例程\新建文件夹

     目录          0  2011-03-11 20:36  51-STC-TC35发送接收程序例程

----------- ---------  ---------- -----  ----

               120236                    28

............此处省略1个文件信息