if(i<24)key=*at1; /*at命令*/
if(i= =39)key=0x0d; /*發(fā)確認(rèn)碼*/
outportb(COMU,key); /*向串口送數(shù)據(jù)*/
delay(100); /*延時(shí)100毫秒*/
at1+ +;
}
delay(1000);
do
{
key=bioskey(1);
num1=inportb(COMU); /*檢測(cè)回響碼*/
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ì)
單片機(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為例來(lái)加以說(shuō)明。假設(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
