pic16f877 ve sim900 ile mesaj atma

[Cem]

Arkadaşlar merhaba,
sim900 modül ve  pic16f877 ile AT komutlarını kullanarak sms göndermeye çalışıyorum ancak en ufak bir yol kat edemedim bu konu hakkında daha önce çalışan varsa yardım edebilirmi ?

DEFINE OSC 4

TRISA=%00000001
TRISB=%00000000
TRISC=%00000000
TRISD=%00000000
TRISE=%00000000

DEFINE HSER_TXSTA 20h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 2400
DEFINE HSER_SPBRG 25



GSM:
 
    If PORTA.0=0 Then                            ; butonuna basarsanız mesaj gönderir.
    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
    END

[memreirmak]

Proje Dökümanında kodlar mevcut.

http://memreirmak.net/wp/sms-ile-buton-durum-degisikliklerinin-takibi/