DEFINE LOADER_USED 1
define OSC 20
Include "modedefs.bas" ' Include serial modes
' Define LCD registers and bits
Define LCD_DREG PORTB 'Lcd D 4-bit parallel register starts at PortB.4 to PortB.7
Define LCD_DBIT 4
Define LCD_RSREG PORTB
Define LCD_RSBIT 2
Define LCD_EREG PORTB
Define LCD_EBIT 3
Define LCD_COMMANDUS 2000 ' Command Delay (uS)
Define LCD_DATAUS 50 ' Data Delay (uS)
DEFINE OSC 20 'Define oscilator frequency
DEFINE LCD_LINES 4 'Number lines on LCD
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 129 ' 9600 Baud @ 20MHz, 0.16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
TrisC.5=0
TrisC.6=0
TrisC.7=1
B0 var byte
High portC.5 ' Testing hardware
Pause 500
Low portC.5
Pause 500
High portC.5
Pause 500
Low portC.5
Pause 500
lcdout $fe,1, " GSM ALARM SISTEM "
pause 5000
LCDOUT $FE, 1
HSEROUT ["AT", 13]
HSEROUT ["AT+CMGS=16", 13]
HSEROUT ["079153912601000011000C915391663921010000AA02EF35",13]
HSEROUT [20]
STOP
end
HSEROUT ["AT", 13]
HSEROUT ["AT+CMGS=16", 13]
HSEROUT ["079153912601000011000C915391663921010000AA02EF35", 13, 26]
EndNo termino de entenderte bien.Parece que has obviado el retorno de carro tras indicar el tamaño del mensaje,y eso no puede faltar.
Deberías hacerlo así.
HSEROUT ["AT+CMGS=16", 13]
HSEROUT ["079153912601000011000C915391663921010000AA02EF35", 26]
[size=10pt]
'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 10/06/2008 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
include "modedefs.bas"
define OSC 4
DEFINE DEBUG_REG PORTB
DEFINE DEBUG_BIT 3
DEFINE DEBUG_MODE 0
DEFINE DEBUGIN_REG PORTB
DEFINE DEBUGIN_BIT 4
DEFINE DEBUGIN_MODE 0
DEFINE DEBUG_BAUD 9600
strSMS var byte[20]
B0 var byte
B1 var BYTE
B2 var byte
B3 var byte
B4 VAR BYTE
B5 var byte
B6 VAR BYTE
B7 var byte
B8 VAR BYTE
LenSms var byte
'**************************************
ExchNum var byte[10]
'****************************************
' GoodSMS var bIT
CLEAR
_loop:
debugin [WAIT("81"),hex2 ExchNum[0],hex2 ExchNum[1],hex2 ExchNum[2],hex2 ExchNum[3],_
hex2 ExchNum[4],SKIP 18,hex2 LenSms, HEX2 strsms[0],HEX2 strsms[1],_
HEX2 strsms[2],HEX2 strsms[3],HEX2 strsms[4],HEX2 strsms[5],HEX2 strsms[6],_
HEX2 strsms[7],HEX2 strsms[8],HEX2 strsms[9],HEX2 strsms[10],HEX2 strsms[11],_
HEX2 strsms[12],HEX2 strsms[13],HEX2 strsms[14],HEX2 strsms[15],HEX2 strsms[16],_
HEX2 strsms[17],HEX2 strsms[18],HEX2 strsms[19],HEX2 strsms[20],HEX2 strsms[21],_
HEX2 strsms[22],HEX2 strsms[23]]
'debugin [WAIT("A81"),str ExchNum\10,SKIP 18,hex2 LenSms]
' DEBUG "TEL:",10,13
' for b6 = 0 to 10
' debug EXCHNUM[b6],10,13
' next
' DEBUG "LEN:",HEX LENSMS ,10,13
for b5 = 0 to LENSMS step 8
B7 = 26+b5
' '''''''''''''''''''''mov''''''''''''''''
debugin [WAIT("A81"),SKIP B7, HEX2 strsms[b5],HEX2 strsms[b5 + 1],HEX2 strsms[b5 +2],_
HEX2 strsms[b5 +3],HEX2 strsms[b5 +4],HEX2 strsms[b5 +5],HEX2 strsms[b5 +6]]
' ''''''''''''''''''''''''''''''''''''''''
b3 = 7
b0 = B5
b6 = 0
B2 = %10000000
b4 = STRSMS[B5] & B2
STRSMS[B5] = STRSMS[B5] & %01111111
while B2 <> $FF
B1 = B4
B1 = B1 >> B3
B3 = b3 - 1
B2 = B2 >> 1 + %10000000
b0 = b0 + 1
B4 = B2 & STRSMS[B0]
b6 = b6+1
STRSMS[B0] = STRSMS[B0] << B6 + B1 & %01111111
wend
for b6 = lensms to b0 step - 1
strsms[b6+1] = strsms[b6]
next
strsms[B0 + 1]=b4
NEXT
' DEBUG "RES:",10,13
' for b6 = 0 to lensms
' debug "B0:",DEC B6," ",HEX strsms[b6],10,13
' next
goTO _loop
[/size]