Transmissão / Recepção Bluetooth com dois PIC16F628A

[Kaleeph]

Olá a todos, sou novo por aqui, e venho por meio deste pedir a ajuda em um problema que estou tendo em um projeto. É o seguinte:

Estou utilizando dois PIC16F628A, sendo um transmissor e o outro receptor e dois módulos HC-05, um como mestre e o outro como escravo, o compilador para o programa dos PICs é o MPLAB IDE e a programação em Assembly. Os PICs estão trabalhando com um oscilador externo (cristal) de 12 Mhz, todos os componentes estão configurados para um Baud Rate de 38400 bps.

A intenção é utilizar 4 botões no transmissor e 4 Leds para teste no receptor. Quando um botão é pressionado acende 2 leds selecionados no programa, a cada botao os 2 leds alternam, e quando não há botões pressionados os leds não acendem.

O teste foi realizado antes sem os módulos Bluetooth, os pics foram programados para uma comunicação serial assíncrona, e utilizando os terminais RX e TX, os leds não acendiam como desejado, um deles sempre ficava aceso, e os outros nao acendiam como desejado, o teste foi feito com o bluetooth e funcionou da mesma forma.

A solução foi acrescentar uma rotina de tempo na programação do receptor que destacarei quando mostrar o código, desta forma os pics sem os bluetooth funcionaram perfeitamente como desejado, mas com o bluetooth não funciona, parece q ele trava ao receber a informaçao, se eu deixo um botao pressionado e reinicio o circuito receptor, ele acende os leds desejados e não realizada mais nada, se faço o mesmo procedimento com outro botao, ele acende os leds desejados com o determinado botao e trava. 

Antes da nova rotina de tempo o bluetooth funcionava perfeitamente, e até com boa distancia, mas não com os leds desejados.

Alguém teria uma ideia do que pode estar causando este problema? Ja tentei resolver de todas as formas que meu breve conhecimento permitiu.

 

Código do receptor: (sem as configurações iniciais)

 

INICIO
    BANK1            
    MOVLW    B'00111111'
    MOVWF    TRISA        
    MOVLW    B'00000110'
    MOVWF    TRISB    
    MOVLW    B'10000100'
    MOVWF    OPTION_REG    
    MOVLW    B'00000000'
    MOVWF    INTCON        
    BANK0
    MOVLW   B'00000111'
    MOVWF   CMCON

    CLRF    PORTA    
    CLRF    PORTB    

MAIN
    CALL RECEBER
    GOTO MAIN
    
RECEBER
    BANK1
    BSF TXSTA,BRGH
    MOVLW .19
    MOVWF SPBRG
    BCF TXSTA,SYNC
    BANK0
    BSF RCSTA,SPEN
    BSF RCSTA,SREN
    BSF RCSTA,CREN
    CALL MOSTRAR
    RETURN

 

MOSTRAR
    MOVLW B'11110000'
    ANDWF RCREG,W
    MOVWF PORTB
    CALL  TEMPO ;<<< Modificação que ser a fonte do problema (nova rotina de tempo)
    RETURN

 

TEMPO

     movlw       .215
     movwf       Reg_1
     movlw       .156
     movwf       Reg_2
     decfsz      Reg_1,F
     goto        $-1
     decfsz      Reg_2,F
     goto        $-3
     RETURN

    

     END  

 

 

Código do transmissor: (sem configurações iniciais)

 

MAIN
    BTFSS BT1
    GOTO $+2
    GOTO AJUSTE1
    BTFSS BT2
    GOTO $+2
    GOTO AJUSTE2
    BTFSS BT3                                                                                                                                          
    GOTO $+2
    GOTO AJUSTE3
    BTFSS BT4
    GOTO $+2
    GOTO AJUSTE4
    MOVLW B'00000000'
    MOVWF TXREG
    CALL ENVIAR
    GOTO MAIN

AJUSTE1
    MOVLW B'10100000'
    MOVWF TXREG
    CALL ENVIAR
    GOTO MAIN

 

AJUSTE2
    MOVLW B'01010000'
    MOVWF TXREG
    CALL ENVIAR
    GOTO MAIN

 

AJUSTE3
    MOVLW B'10010000'
    MOVWF TXREG
    CALL ENVIAR
    GOTO MAIN

 

AJUSTE4
    MOVLW B'01100000'
    MOVWF TXREG
    CALL ENVIAR
    GOTO MAIN

 

ENVIAR
    BANK1
    BSF TXSTA,BRGH
    MOVLW .19
    MOVWF SPBRG
    BCF TXSTA,SYNC
    BANK0
    BSF RCSTA,SPEN
    BANK1
    BSF TXSTA,TXEN
    BTFSS TXSTA,TRMT
    GOTO $-1
    BANK0
    CALL TEMPO
    RETURN

TEMPO

    movlw       .215
    movwf       Reg_1
    movlw       .156
    movwf       Reg_2
    decfsz      Reg_1,F
    goto        $-1
    decfsz      Reg_2,F
    goto        $-3
    RETURN

    END