基于MODEM的单片机与PC机间的远程通信

c.拨号

PC机要实现与单片机进行数据通信，首先通过近程MODEM拨打单片机的电话号码如38459620。PC机首先发出命令如at+h0e1v0x2&c1dt,然后发出电话号码，最后再发出确认码0x0d。PC机通过串行口向近程MODEM发送命令或数字，每次只能送出一个字符或数字，而MODEM接收并响应需要一定的时间，故PC机每发出一个字符或数字都要延时100ms。当确认码发出后还要延时1000ms，然后检测由近程MODEM反馈回PC机的回响码。若回响码为OX35则转入数字接收及处理程序，否则继续检测回响码。程序如下：

"ath0q0v0l3x4&c1&d2dt";/*取info结构中的电话号码*/

char str=info- >telephoneno;/*电话号码位数*/

int len1=strlen(str);

for(i=0;i<=39;i++)

{

if(I>24)

{

key=str[k]; /*发电话号码*/

k+ +;

}

　if(i<24)key=*at1; /*at命令*/

if(i= =39)key=0x0d; /*发确认码*/

outportb(COMU,key); /*向串口送数据*/

delay(100); /*延时100毫秒*/

at1+ +;

}

delay(1000);

do

{

key=bioskey(1);

num1=inportb(COMU); /*检测回响码*/

delay(1);

if(mum1= =0x35)drev(); /*回响码为0x35则转入数据接收与处理器程序*/

}

while(key= =0);

key=bioskey(0);

if(key= =0x011b)return; /*按ESC键则返回*/

4.2 单片机程序设计

单片机程序框图如图6所示。

程序清单如下：

LD 72H，#4003H;8255命令口地址

LD 70H;#0082HH;A口为输出，B口为输入

STB 70H，[72H]

LDB 16H，#20 ;串口初始化

LDB 11H，#09H ;方式1

LDB 0EH，#4DH;波特率为1200bps

LDB 0EH,80H

LDB 18H,#0CH;堆栈

ORB IOC1，#20H

LD 72H，#4000H ;8255的A口地址

LD 70H，#0003H ;使RTS和DTR均为高电平

STB 70H，[72H]

LCALL COMZ0 ;连续发出四个0

LCALL DT ;延时1000nS

LCALL COMZ1 ;初始化MODEM，发出at命令：ata

LCALL DT

LCALL COMZ2 ;初始化MODEM，发出at命令：ate1q0v1l3x4s0=1

LCALL DT

LCALL COMZ3 ;初始化MODEM，发出at命令：atS7=30

LCALL DT

RING0：LDB SPCON，#09H

RING1：LDB 60H，SPSTAT

JBC 60H，6，RING1

ANDB 60H，#0BFH

LDB 70H，SUBF ;从串口接收一个数据

CMPB 70H，#80H

JE TD ;发送数据程序

LJMP RING1

由于单片机向MODEM发出at命令程序是相似的，故在此仅为at命令：ate1q0v1l3x4s0=1为例来加以说明。假设at命令存放在以0AB40H为首地址的外部存贮器中。程序如下：

COMZ2：LD72H，#0AB40H ;at命令首地址

LDB 20H，#17

COMZ2A：LDB 70H，[72H]+ ;取at命令

LDB SBUF，70H ;向串口送at命令

DJNZ 20H，COMZ2A

LDB 70H，#0DH

LDB SBUF，70H ;发出确认码

RET