?? sms5.asm
字號:
T2CON EQU 0C8H
RCAP2L EQU 0CAH
RCAP2H EQU 0CBH
TL2 EQU 0CCH
TH2 EQU 0CDH
;cpu 8xc52
ORG 0000H
LJMP MAIN
ORG 0023H
ljmp INT_232
WDTRST EQU 0A6H ;看門狗定時器寄存器
;************宏定義
CONST_1MSH EQU 0FCH
CONST_1MSL EQU 065H ;按1ms定時,定時器初值
CONST_10MSH EQU 0DCH
CONST_10MSL EQU 000H
CONST_100MSH EQU 00H
CONST_100MSL EQU 00H
_R1 EQU 50H
_R2 EQU 51H
_R3 EQU 52H
;口線定義
igb BIT P1.1
BIT_ESCL BIT P1.6
BIT_ESDA BIT P1.7
in1 BIT P0.0
in2 BIT P0.1
in3 BIT p0.2
SMSLED BIT P3.5
READYLED BIT P3.7
;--用戶位定義
BIT_EEF BIT 22H.0
bit_OK BIT 22H.1
BIT_ONLINE BIT 22H.2
BIT_TINYTIMEOUT BIT 22H.3
BIT_LASTBYTE BIT 22H.4
SEND_OK BIT 22H.5
READ_OK BIT 22H.6
COM_ok BIT 22H.7 ;校驗成功標(biāo)致
;--寄存器定義
SDATE_LEN EQU 58H ;發(fā)送數(shù)據(jù)長度
RDATE_LEN EQU 59h ;接收數(shù)據(jù)長度
STACK_TOP EQU 30H ;定義堆棧首址48
BUF_SEND EQU 80H ;發(fā)送緩沖區(qū)首址
BUF_DATA EQU 60H ;接收緩沖區(qū)首址
;---------------------------------------------------------------------------------------
ORG 0100H
MAIN:
MOV SP,#STACK_TOP ;棧
MOV PSW,#00H ;0號工作區(qū)
MOV P0,#0FFH
MOV P1,#0FFH
MOV P2,#0FFH
MOV P3,#0FFH
SETB BIT_ESDA
SETB BIT_ESCL
;--------------------RAM空間清0及測試----------------------------
MOV R0,#0
M_1:
MOV @R0,#0
DJNZ R0,M_1
;--定時器T0,T1參數(shù)設(shè)置
MOV TMOD,#00010001B ;定時器T0,T1工作于方式1(16位定時)
MOV TH0,#CONST_1MSH
MOV TL0,#CONST_1MSL
;--串口參數(shù)設(shè)置
MOV SCON,#01010000B ;sm0 sm1 sm2 ren tb8 rb8 ti ri
MOV TH2,#0FFH
MOV TL2,#070H
MOV RCAP2H,#0FFH ;波特率 115200 57600 38400 28800 19200 9600 7200 4800 3600 2400
MOV RCAP2L,#0DCH ;TH2:TL2= FF:FD FF:FA FF:F7 FF:F4 FF:EE FF:DC FF:D0 FF:B8 FF:A0 FF:70
MOV T2CON,#00110100B ;TF2 EXF2 RCLK TCKL EXEN2 TR2 C/T2 CP/RL2
MOV IP,#00010000B ;中斷優(yōu)先 * * PT2 PS PT1 PX1 PT0 PX0
MOV IE,#00010000B ;中斷使能寄存器 EA X ET2 ES ET1 EX1 ET0 EX0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LCALL DELAY10MS
SETB IGB
LCALL Delay10MS
CLR IGB
LCALL DELAY100MS
LCALL DELAY100MS
SETB IGB
LCALL INITMODEM
wait: LCALL DELAY100MS
JNB IN1,SENDA
JNB IN2,SENDB
JNB IN3,SENDC
AJMP WAIT
lcall sms_send
ajmp WAIT
RET
;INCLUDE MODEM.ASM
;--------------------------------------------------------------------
; 本程序處理gsmMODEM的初始化，
;
; InitModem --初始化MODEM，9600 BPS,
;
;--------------------------------------------------------------------
;===========================
;復(fù)位并關(guān)閉回顯
;===========================
InitModem:
SETB EA
SETB READYLED
MOV R0,#BUF_SEND
MOV DPTR,#TABLE_RESET
MOV R2,#6
IM_1:
CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,IM_1
IM_2:
MOV R0,#BUF_SEND
MOV SDATE_LEN,#6
MOV R1,#BUF_DATA
MOV RDATE_LEN,#0
SETB TI
IM_21:
lCALL DELAY10MS
MOV A,RDATE_LEN
CJNE A,#6,IM_21
lCALL CHECK_UP
jnb COM_ok,im_2
;RET
;=====================================
;設(shè)置自動搜索GSM網(wǎng)
;=====================================
MOV R0,#BUF_SEND
MOV DPTR,#TABLE_GOGSM
MOV R2,#11
IM_3:
CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,IM_3
IM_4:
MOV R0,#BUF_SEND
MOV SDATE_LEN,#11
MOV R1,#BUF_DATA
MOV RDATE_LEN,#0
SETB TI
IM_41:
lCALL DELAY100MS
MOV A,RDATE_LEN
CJNE A,#6,IM_41
lCALL CHECK_UP
jnb COM_OK,im_4
;==================================
;SET PDU OR TEXT
;==================================
MOV R0,#BUF_SEND
MOV DPTR,#TABLE_SETSMS0
MOV R2,#11
IM_7:
CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,IM_7
IM_8:
MOV R0,#BUF_SEND
MOV SDATE_LEN,#11
MOV R1,#BUF_DATA
MOV RDATE_LEN,#0
SETB TI
IM_81:
lCALL DELAY100MS
MOV A,RDATE_LEN
CJNE A,#6,IM_81
lCALL CHECK_UP
jNb COM_OK,im_8
;=====================================
;波特率9600BPS
;=====================================
MOV R0,#BUF_SEND
MOV DPTR,#TABLE_SCOMRATE
MOV R2,#13
IM_9:
CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,IM_9
IM_10:
MOV R0,#BUF_SEND
MOV SDATE_LEN,#13
MOV R1,#BUF_DATA
MOV RDATE_LEN,#0
SETB TI
IM_101:
lCALL DELAY100MS
MOV A,RDATE_LEN
CJNE A,#6,IM_101
lCALL CHECK_UP
jNb COM_OK,im_10
;=====================================
;設(shè)置TXT MODEL UCS2
;=====================================
MOV R0,#BUF_SEND
MOV DPTR,#TABLE_STECHAR
MOV R2,#21
IM_11:
CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,IM_11
IM_12:
MOV R0,#BUF_SEND
MOV SDATE_LEN,#21
MOV R1,#BUF_DATA
MOV RDATE_LEN,#0
SETB TI
IM_121:
lCALL DELAY100MS
MOV A,RDATE_LEN
CJNE A,#6,IM_121
lCALL CHECK_UP
jNb COM_OK,im_12
;RET
;==============================
;設(shè)置短信中心號碼
;==============================
SET_CENTER_NUMBER:
MOV R0,#BUF_SEND
MOV DPTR,#TABLE_SETSMS1
MOV R2,#24
IM_5:
CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,IM_5
IM_6:
MOV R0,#BUF_SEND
MOV SDATE_LEN,#24
MOV R1,#BUF_DATA
MOV RDATE_LEN,#0
SETB TI
IM_61:
lCALL DELAY100MS
MOV A,RDATE_LEN
CJNE A,#6,IM_61
lCALL CHECK_UP
jnb COM_OK,im_6
CLR EA
CLR READYLED
ret
;**************************************
;======================================
;SEND SMS
;======================================
sms_send:
SETB EA
CLR SMSLED
MOV R0,#BUF_SEND
MOV DPTR,#TABLE_msglen
MOV R2,#11
SS_1:
CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,SS_1
SS_2:
MOV R0,#BUF_SEND
MOV SDATE_LEN,#11
MOV R1,#BUF_DATA
MOV RDATE_LEN,#0
SETB TI
SS_DELAY:
LCALL DELAY100MS
MOV A,RDATE_LEN
CJNE A,#4,SS_DELAY
LCALL CHECK_UP
JNB READ_OK,SS_2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MOV R0,#BUF_SEND
MOV DPTR,#TABLE_MSGDATE
MOV R2,#69
SS_3:
CLR A
MOVC A,@A+DPTR
MOV @R0,A
INC DPTR
INC R0
DJNZ R2,SS_3
SS_4:
MOV R0,#BUF_SEND
MOV SDATE_LEN,#69
MOV R1,#BUF_DATA
MOV RDATE_LEN,#0
SETB TI
SS_41:
LCALL DELAY100MS
MOV A,RDATE_LEN
CJNE A,#13H,SS_41
LCALL CHECK_UP
JNB SEND_OK,SS_4
CLR EA
SETB SMSLED
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;串口中斷
;IN R0,R1
;OUT RDATE_LEN
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INT_232:
;關(guān)閉串口中斷
PUSH ACC ;保護(hù)現(xiàn)場
PUSH PSW
PUSH DPL
PUSH DPH
JBC RI,I_232_RCV
I_232_SEND:
CLR TI
MOV A,SDATE_LEN
JZ I_232_EOF
MOV A,@R0
MOV SBUF,A
INC R0
dec SDATE_LEN
LJMP I_232_EOF
I_232_RCV:
CLR RI
MOV A,SBUF
MOV @R1,A
INC R1
INC RDATE_LEN
I_232_EOF:
POP DPH
POP DPL
POP PSW ;恢復(fù)現(xiàn)場
POP ACC
;開放串口中斷
RETI
;----------------------------------------
; CHECK_UP: 檢查是否是"OK"
; COM_OK
;----------------------------------------
CHECK_UP:
LCALL WATCHDOG
clr COM_OK
CLR READ_OK
MOV R0,#BUF_DATA
CHK_COM: ;校驗命令返回碼？
INC R0
INC R0
MOV A,@R0
CJNE A,#4FH,CHK_READ
INC R0
mov a,@r0
cjne a,#4bh,CHECK_UP_EOF
SETB COM_OK
LJMP CHECK_UP_EOF
CHK_READ: ;校驗數(shù)據(jù)準(zhǔn)備提示符？
CJNE A,#3EH,CHK_SEND
INC R0
MOV A,@R0
CJNE A,#20H,CHECK_UP_EOF
SETB READ_OK
CHK_SEND:
MOV A,#13
ADD A,R0
MOV R0,A
MOV A,@R0
CJNE A,#4FH,CHECK_UP_EOF
INC R0
MOV A,@R0
CJNE A,#4BH,CHECK_UP_EOF
SETB SEND_OK
CHECK_UP_EOF:
RET
;-------------------------------------------
WATCHDOG:
; MOV WDTRST,#01EH
; MOV WDTRST,#0E1H
NOP
NOP
RET
;-------------------------------------------
; Delay1MS:
;
;-------------------------------------------
Delay1MS:
PUSH _R2
MOV _R2,#98
DM11_1:
LCALL WATCHDOG
DJNZ _R2,DM11_1
POP _R2
NOP
RET
;-------------------------------------------
; Delay100MS:
; in -- RCNT_MS:延時值MS (<256)
;
;-------------------------------------------
Delay10MS:
PUSH _R2
PUSH _R3
MOV _R2,#100
DM_1:
MOV _R3,#60
DM_2:
DJNZ _R3,$
DJNZ _R2,DM_1
POP _R3
POP _R2
NOP
RET
;-------------------------------------------
; Delay100MS:
; in --
;
;-------------------------------------------
Delay100MS:
PUSH _R1
MOV _R1,#10
DM1_1:
lCALL DELAY10MS
DJNZ _R1,DM1_1
POP _R1
NOP
RET
;---------------------------------------------
delay1000ms:
lcall delay100ms
lcall delay100ms
lcall delay100ms
lcall delay100ms
lcall delay100ms
lcall delay100ms
lcall delay100ms
lcall delay100ms
lcall delay100ms
lcall delay100ms
ret
table_reset: db 'A','T','Z','0',0dh,0Ah
TABLE_gogsm: DB 'A','T','+','C','O','P','S','=','0',0DH,0AH
TABLE_setsms1: DB 'A','T','+','C','S','C','A','=','+','8','6','1'
DB '3','8','0','0','5','1','9','5','0','0',0DH,0AH
TABLE_SETSMS0: DB 'A','T','+','C','M','G','F','=','0',0DH,0AH
TABLE_SCOMRATE: DB 'A','T','+','I','P','R','=','9','6','0','0',0DH,0AH
TABLE_STECHAR: DB 'A','T','+','C','S','M','P','=','1','7',',','1','6'
DB '7',',','0',',','2','5',0DH,0AH
table_msglen: db 'A','T','+','C','M','G','S','=','2','5',0DH;'8','1','5','0','4','1','8','0','7',0DH
table_MSGDATE: DB ;'4','F','6','0','5','9','7','d'1AH
db '0','8','9','1','6','8','3','1','0','8','5';08 91 6831085
db '0','9','1','0','5','F','0','1','1','0','0';09105f0 1100
db '0','D','9','1','6','8','3','1','1','8','0';0d 91 6831681
db '5','1','4','0','8','F','7','0','0','0','8';18954f4 0008
db '0','0','0','A','7','E','B','F','8','D','E';0010 4e2d<sub>
DB 'F','8','F','C','7','8','F','7','D','F','F','0','1',1AH
END
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -