Pic to GSM(nokia 6610), Please help..T_T

[reianjim]

i have a problem with my project. i don't know where is wrong, if it is in the program or in my circuit. here is the flow of my project. if i press the button in PORTB it will send automatically a message. my problem is it doesn't text or send a message. thats why i need your help. i know lot of here can help me. thanks. i will put my program and the circuit. by the way my phone using is nokia 6610 and the data cable is usb.


HERE IS MY PROGRAM:

------------------------
DEFINE OSC 20


DEFINE HSER_TXSTA 24h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 115200
DEFINE HSER2_CLROERR 1


CLR CON 12 ' Clear screen
LF CON 10 ' Line-feed character
CR CON 13 ' Carriage-return character
SUB CON 26 ' Ctr + Z
QOUTE CON 34

PORTB = $00

AGAIN:

if PORTB.0 = 0 THEN

pause 200
HSEROUT ["AT",CR,LF]
pause 1000

HSEROUT ["AT+CMGF=1",CR,LF]
PAUSE 500

HSerout ["AT+CMGS=",SUB,"+639187085735",SUB,CR,LF]
PAUSE 500

HSEROUT ["Test-Message",CR,LF]
HSEROUT [26]
ENDIF

GOTO AGAIN

END

---------nothing follows