Paljenje ledica preko pic-a

[Soltek]

Program treba poslati običnu AT-komandu kako bi provjerio komunikaciju između pic-a i mobitela. Ukoliko komunikacija uspije mob vraća "OK" i u kodu sam postavio kontrolu samo slova O. Nakon toga bi trebala ledica na porta,1 zasvijetliti. Ukoliko se ne pojavi O (odnosno "OK") treba svijetliti ledica na porta,2. U svim simulatorima program funkcionira, međutim kada to spojim fizički NE SVIJETLI!!!
Zašto???
Također, niti mi se sama ledica na porta,0 ne uključuje, a ona mi prikazuje samo uključivanje sklopa!!
Nadam seda me razumjete,ako ne javite se i bum probal podrobnije objasniti!!
Zanima me gdje griješim; dal u samom kodu ili je problem hardverski??!
Ako problem nije u kodu šaljem samu shemu sklopa.
Ovo je kod:

PROCESSOR 16F876A
#include "p16f876a.inc"
__CONFIG _LVP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC

BROJAC1 equ 0x10
BROJAC2 equ 0x11
BROJAC3 equ 0x12
RX_DATA equ 0x22
TX_DATA equ 0x23
BR equ 0x24

org 0x00
goto start

start
clrf STATUS
bsf STATUS, RP0
bcf STATUS, RP1 movlw b'00000111'
movwf ADCON1 ^ 0x80
movlw b'00000000'
movwf TRISA ^ 0x80
movlw b'00000000'
movwf TRISB ^ 0x80 movlw b'10000000'
movwf TRISC ^ 0x80
bcf STATUS, RP0
bsf PORTA, 0
call pauza

glavni
call inicijalizacija
call naredba
call citanje
call tocno
call gasi
call pauza
call pauza
call pauza
call pauza
call pauza
goto kraj

inicijalizacija
bsf STATUS, RP0
movlw d'255'
movwf SPBRG ^ 0x80
movlw b'00100100'
movwf TXSTA ^ 0x80
bcf STATUS, RP0
movlw b'10000000'
movwf RCSTA
return

naredba
movlw 0x0D
call opet
movlw 0x41
call opet
movlw 0x54
call opet
movlw 0x0D
call opet
return

opet
btfss PIR1, TXIF
goto opet
movfw TX_DATA
movwf TXREG
call pauza
return

citanje
bsf RCSTA, CREN
btfss PIR1, RCIF
goto citanje
movfw RCREG
movwf RX_DATA
movlw 0x4F
subwf RX_DATA, F
btfss STATUS, Z
goto nije
return

tocno
bcf STATUS, RP0
bsf PORTA, 1
return

pauza
nop
movlw D'255' ; J
movwf BROJAC1
p1 movlw D'255' ; K
movwf BROJAC2
p2 movlw D'255' ; L
movwf BROJAC3
p3 decfsz BROJAC3, F
goto p3
decfsz BROJAC2, F
goto p2
decfsz BROJAC1, F
goto p1
nop
return

nije
bcf STATUS, RP0
bsf PORTA, 2
call pauza
call pauza
call pauza
bcf PORTA, 2
goto glavni

gasi
clrf RCSTA
return

kraj
end