基于MODEM的單片機與PC機間的元程通信

　　“ath0q0v0l3x4c1d2dt”;/*取info結構中的電話號碼*/

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

　　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ā)確認碼*/

　　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 ;連續(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 ;從串口接收一個數據

　　CMPB 70H，#80H

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

　　LJMP RING1

　　由于單片機向MODEM發(fā)出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 ;發(fā)出確認碼

　　RET