“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