Port A ,No responde (Pic16f628A)

[paris17]

Hola a tod@s ,eh estado haciendo un comunicación serial vía bluetooth con el HC-05 ,lo que pasa es que cuando mando los datos (los casos) (3,4,5,6)al pin RX de mi PIC ,estos datos mi uC , no los responde, mido con mi voltimetro y no me da ningun voltaje ,en cambio cuando mando datos en el PortB ,si nos responde con un 1 logico  ,cual es el problema ,o solo los datos se envian en el portB y solo estos pueden aceptar los datos enviados ?
Les envió mi codigo

Código: QBasic/QuickBASIC

1. Device=16F628A  
2. Xtal 20
3. DECLARE Hserial_Baud= 9600 ' Set baud rate to 9600
4. DECLARE Hserial_TXSTA= %00100100 ' Enable transmit and asynchronous mode
5. DECLARE Hserial_RCSTA= %10010000 ' Enable continuous receive
6. DECLARE Hserial_Clear= ON ' Clear the buffer before receiving
7. DECLARE CCP1_Pin PORTB.3
8. DIM CONTROL AS Word  
9. DIM A AS Word  
10. DelayMS 200 ' tiempo para estabilizar la alimentación
11. INICIO:
12. HSerIn 50,INICIO,[Dec CONTROL]
13.             SELECT CASE CONTROL
14.         CASE 1  
15.             High PORTB.6:Low PORTB.0
16.         CASE 2
17.             Low PORTB.6:Low PORTB.0
18.         CASE 3
19.             High PORTA.0:Low PORTA.1
20.         CASE 4
21.             High PORTA.1:Low PORTA.0
22.         CASE 5
23.             High PORTA.2:Low PORTA.3
24.         CASE 6
25.             High PORTA.3:Low PORTA.2      
26.         CASE 7
27.             Low PORTA.0:Low PORTA.1:Low PORTA.2:Low PORTA.3
28.         CASE 8
29.              HPWM 1,200,2000
30.         CASE 9
31.              HPWM 1,226,2000
32.         CASE 10
33.              HPWM 1,254,2000  
34.         CASE ELSE
35.              FOR A=0 TO 20 STEP 1
36.                 High PORTB.0 ' RB0 = 1
37.                 DelayUS CONTROL ' Pausa en microsegundos
38.                 Low PORTB.0 ' RB0 = 0
39.                 DelayMS 20 ' Pausa de 20 milisegundos
40.                 NEXT
41.             EndSelect
42. GOTO INICIO
43. END

[KILLERJC]

Aunque puede ser una pista pero no se de BASIC, Asi que en adelante te queda investigar.

RA0 a RA3 son entradas analogicas apenas se resetea (arranca) el micro, deberias pasarlo a digitales.
El registro involucrado es CMCON y necesitas cargarle 0x07 para inhabilitarlo.

¿Existe alguna instruccion para esto?
¿Puedo modificar directamente el registro?

Eso te lo dejo a vos.
Pienso que es ese el motivo, aunque tampoco veo seteado ningun TRISx.

[paris17]

gracias Hermano ,ese era el problema ,tenía que desabilitar los comparadores en basic se usa CMCON=7