PC 機(jī)要實現(xiàn)與單片機(jī)進(jìn)行數(shù)據(jù)通信，首先通過近程MODEM撥打單片機(jī)的電話號碼如38459620。PC機(jī)首先發(fā)出命令如 at+h0e1v0x2c1dt,然后發(fā)出電話號碼，最后再發(fā)出確認(rèn)碼0x0d。PC機(jī)通過串行口向近程MODEM發(fā)送命令或數(shù)字，每次只能送出一個字符或數(shù)字，而MODEM接收并響應(yīng)需要一定的時間，故PC機(jī)每發(fā)出一個字符或數(shù)字都要延時100ms。當(dāng)確認(rèn)碼發(fā)出后還要延時1000ms，然后檢測由近程MODEM反饋回PC機(jī)的回響碼。若回響碼為OX35則轉(zhuǎn)入數(shù)字接收及處理程序，否則繼續(xù)檢測回響碼。程序如下：

“ath0q0v0l3x4c1d2dt”;/*取info結(jié)構(gòu)中的電話號碼*/

char str=info- >telephoneno;/*電話號碼位數(shù)*/

int len1=strlen(str);

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

{

if(I>24)

{

key=str[k]; /*發(fā)電話號碼*/

k+ +;

}

if(i24)key=*at1; /*at命令*/

if(i= =39)key=0x0d; /*發(fā)確認(rèn)碼*/

outportb(COMU,key); /*向串口送數(shù)據(jù)*/

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

at1+ +;

}

delay(1000);

do

{

key=bioskey(1);

num1=inportb(COMU); /*檢測回響碼*/

delay(1);

if(mum1= =0x35)drev(); /*回響碼為0x35則轉(zhuǎn)入數(shù)據(jù)接收與處理器程序*/

}

while(key= =0);

key=bioskey(0);

if(key= =0x011b)return; /*按ESC鍵則返回*/

4.2 單片機(jī)程序設(shè)計

單片機(jī)程序框圖如圖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 ;連續(xù)發(fā)出四個0

LCALL DT ;延時1000nS

LCALL COMZ1 ;初始化MODEM，發(fā)出at命令：ata

LCALL DT

LCALL COMZ2 ;初始化MODEM，發(fā)出at命令：ate1q0v1l3x4s0=1

LCALL DT

LCALL COMZ3 ;初始化MODEM，發(fā)出at命令：atS7=30

LCALL DT

RING0：LDB SPCON，#09H

RING1：LDB 60H，SPSTAT

JBC 60H，6，RING1

ANDB 60H，#0BFH

LDB 70H，SUBF ;從串口接收一個數(shù)據(jù)

CMPB 70H，#80H

JE TD ;發(fā)送數(shù)據(jù)程序

LJMP RING1

由于單片機(jī)向MODEM發(fā)出at命令程序是相似的，故在此僅為at命令：ate1q0v1l3x4s0=1為例來加以說明。假設(shè)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 ;發(fā)出確認(rèn)碼

RET