单片机控制GSM模块发短信系统

硬件  stc90c54rd+  sim300w sim卡 天线  lm2576 电容 电阻 电感若干

因为刚学对汇编熟悉一些所以用的是汇编
源代码


ORG 0000H
LJMP MAIN;上电,转向主程序
ORG 0023H
ORG 0030H;主程序
MAIN:
MOV TMOD,#20H;设T1工作方式2 定时器1作为波特率发生器
MOV TH1,#0F7H;赋记数初值 4M晶振波特率2400
MOV TL1,#0F7H;赋记数值
MOV PCON,#80H;设SMOD=1
MOV SCON,#0C0H;置串行口方式3,BU允许接收
AJMP WHETHER
WHETHER:SETB P1.2
JB P1.2,$
SETB TR1;启动定时器T1ACALL SENDAT
ACALL SENDAT
ACALL  SENDIPR
ACALL   SENDCMGFACALL SENDCMGS

ACALL SENDSMS
SENDAT:  ;发送”AT“子程序
MOV A,#41H
MOV SBUF,A
JNB ti,$
CLR TI    ;发送A
MOV A,#54H
MOV SBUF,A
JNB TI,$;
CLR TI    ;发送T
MOV A,#0DH
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#0AH
MOV SBUF,A
JNB TI,$;
CLR TI      ;发送回车
NOP
NOP
ACALL DL2S
RET
SENDIPR:
MOV A,#41H
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#54H
MOV SBUF,A
JNB TI,$;
CLR TI   
MOV A,#2BH
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#49H
MOV SBUF,A
JNB TI,$;
CLR TI   
MOV A,#50H
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#52H
MOV SBUF,A
JNB TI,$;
CLR TI   
MOV A,#3DH
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#32H
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#34H
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#30H
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#30H
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#0DH
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#0AH
MOV SBUF,A
JNB TI,$;
CLR TI
ACALL DL2S
RET
SENDCMGF:   ;发送AT+CMGF=0  中文模式
MOV A,#41H
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#54H
MOV SBUF,A
JNB TI,$;
CLR TI   
MOV A,#2BH
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#43H
MOV SBUF,A
JNB TI,$;
CLR TI   
MOV A,#4DH
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#47H
MOV SBUF,A
JNB TI,$;
CLR TI   
MOV A,#46H
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#3DH
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#30H
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#0DH
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#0AH
MOV SBUF,A
JNB TI,$;
CLR TI
ACALL DL2S
RET
SENDCMGS:   ;发送AT+CMGS=25  
MOV A,#41H
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#54H
MOV SBUF,A
JNB TI,$;
CLR TI   
MOV A,#2BH
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#43H
MOV SBUF,A
JNB TI,$;
CLR TI   
MOV A,#4DH
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#47H
MOV SBUF,A
JNB TI,$;
CLR TI   
MOV A,#53H
MOV SBUF,A
JNB TI,$
CLR TI   
MOV A,#3DH
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#32H
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#35H
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#0DH
MOV SBUF,A
JNB TI,$;
CLR TI
MOV A,#0AH
MOV SBUF,A
JNB TI,$;
CLR TI
ACALL DL2S
RET
  SENDSMS:
MOV DPTR,#SMS
LOOP_SEND:
CLR A
MOVC A,@A+DPTR
CJNE A,#'$',SEND_AAJMP WHETHER
SEND_A:
MOV SBUF,A;发送数据
JNB TI,$;
CLR TI
INC DPTR;指向后一个数据.LJMP LOOP_SEND;
RET
  
DL2S:  ;延时2秒子程序
MOV R3,#50
LOOP: MOV R2,#25
LOOP1: MOV R1,#255
LOOP2:NOP
DJNZ R1,LOOP2
DJNZ R2,LOOP1
DJNZ R3,LOOP
RET
SMS : DB  "0011000D91683195429389F80008A70A57FA7AD96709544A8B66",1AH,'$'
END