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ì)

　　單片機(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ā)出四個(gè)0

　　LCALL DT ;延時(shí)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 ;從串口接收一個(gè)數(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