sms gönderme hata

[arci]

slm arkdaslar ericson t10 ile sms gönderme devresi üzerinde çalışıyorum
t10 ile sorunsuz bağlantı olsu ancak bi türlü sms göndermeyi başaramadım
bilgisi olanlar yardım edin

pic ( 16f628a) de kullandığım kod aşağıda
10 MHz de çalıştırmak lazım

BAĞLANTI ŞEKLİ

PİC RS 232 PİC T10S
PORTB.0 TX PORTB.2 RX
PORTB.1 RX PORTB.2 TX



include "modedefs.bas"
define osc 10
cmcon = 7

trisa = 0
trisb = %00000101

symbol prx = portb.0
symbol ptx = portb.1
symbol trx = portb.2
symbol ttx = portb.3

gelen var byte
a var byte [ 40 ]
b var byte
c var byte
d var byte [ 40 ]

for c = 0 to 40

a [ c ] = 0
d [ c ] = 0

next c

b = 0
pause 1000
serout ptx, n9600, [ "Deneme V.1 ", 13]
PAUSE 100
basla:

serin prx, n9600, gelen
pause 10
serout ptx, n9600, [ gelen ]

a [ b ] = gelen

if gelen <> 13 then b = b + 1: goto basla

for c = 0 to b

serout ttx, t9600, [ a [ c ] ]

next c
b = 0

bekle:

serin trx, t9600, 1000, gec, d [ b ]
b = b + 1
goto bekle

gec:
for c = 0 to b
serout ptx, n9600, [ d [ c ] ]
next c
for c = 0 to 40

a [ c ] = 0
d [ c ] = 0

next c
B = 0

goto basla