pic16f877 ve sim900 ile sms atma sorunu

[Cem]

arkadaşlar bir haftadır bununla uraşıyorum ama bir arpa boyu yol kat edemedim sizce sorun neden kaynaklanıyor kodlar yanlışmı,??

TRISB=%00001111

DEFINE OSC 4
DEFINE HSER_TXSTA 20h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 2400
DEFINE HSER_SPBRG 25
DEFINE HSER_CLROERR

DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 1
DEFINE LCD_RWREG PORTD
DEFINE LCD_RWBIT 2
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2


 




GSM_CHECK:
HSEROUT ["AT",13] 'Send AT to modem followed by a CR
HSERIN 5000, GSM_CHECK, [WAIT("OK")] 'Check OK reply, wait 5sec max.
lcdout $FE,$80," Step 1 " ' Display Key board V1.0
PAUSE 1000

HSEROUT ["AT+IPR=9600",13] 'Set transfer speed
HSERIN 5000, GSM_CHECK, [WAIT("OK")]'Check OK reply, wait 5sec max.
lcdout $FE,$80," Step 2 " ' Display Key board V1.0
PAUSE 1000

HSEROUT ["AT+CMGF=1",13] 'send AT to modem followed by a CR and line feed
HSERIN 5000, GSM_CHECK, [WAIT("OK")]'Check OK reply, wait 5sec max.
lcdout $FE,$80," Step 3 " ' Display Key board V1.0 
PAUSE 1000
 HSerOut["AT+CMGF=1",13]
    PAUSE 200
    HSerOut["AT+CMGS=",34,"0505XXXXXXX",34,13]   ;XX yazan yere aramak istediğiniz numarayı yazın
    PAUSE 300
    HSerOut["Test Mesajı",26]                    ;Mesaj içeriği, 26 ctrl+z 'ye karşılık gönderiliyor
    EndIf
    GOTO GSM_CHECK
    END

[YasarGunaydin]

Cem Merhaba;
Bu konu üzerinde ben baya çalışmıştım ve sorun sonunda kabloda çıkmıştı.Kablo derken birinde yalnızca rx-tx uçlarını bir yer değiştir öyle dene.Kodlarında problem gözükmüyor.Ben yalnızca şu IPR kullanmamıştım diye hatırlıyorum bide ezbere oluyor ama sonunda 1 olacaktı.
DEFINE HSER_CLROERR 1

HSEROUT ["AT+IPR=9600",13] 'Set transfer speedHSERIN 5000, GSM_CHECK, [WAIT("OK")]'Check OK reply, wait 5sec max.lcdout $FE,$80," Step 2 " ' Display Key board V1.0PAUSE 1000