Code:
DEFINE LOADER_USED 1
define OSC 20 ' Check the spelling of OSC, must be in capital letter
Include "modedefs.bas" ' Include serial modes
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
TrisB.5=0
TrisC.6=0
TrisC.7=1
B0 var byte
High portb.5
Pause 500
Low portb.5
Pause 500
High portb.5
Pause 500
Low portb.5
Pause 500
HSEROUT ["AT", 13]
HSEROUT ["AT+CMGF=1", 13]
HSEROUT ["AT+CSCA=+351xxxxx000", 13]
HSEROUT ["AT+CSCA=+3xxxxxxxxx0", 13]
HSEROUT ["ola", 13]
STOP
end
Bookmarks