Usar ADC para mi fuente digital con teclado 4x4

[frozen]

Hice los cambios que me dijiste JBQ pero persiste el problema. No se que mas pueda ser. Estoy trabajando el adc a 8 bit justificandolo a la izquierda y usando solo el ADRESH.

En mi protoboard por ejemplo me puse a AN0 a GND y AN7 a VCC y se observa por leds lo siguiente:

PORTC = 00h
PORTB = 5Ch

[JBQ]

Si te das cuenta tú haces un:     clrf   ADCON0   
y antes                                       mov   ADCON1,b'00000000'

con esto estarías configurando a un multiplo de 2Tosc para el TAD, cuando el datasheet recomienda minimo un 64Tosc como TAD para 20 MHz de crystal.

Otro cambio ideal, sería que el encendido del ADC, "bsf ADCON,0"; lo hagas antes de tu loop infinito.
Y donde preguntas que "aqui debo colocar retardo?".... pues si es recomendable, para que se estabilice el capacitor de muestreo.
A ver que pasa con estos cambios.

ANIMO!!!!

[frozen]

Si te das cuenta tú haces un:     clrf   ADCON0   
y antes                                       mov   ADCON1,b'00000000'

con esto estarías configurando a un multiplo de 2Tosc para el TAD, cuando el datasheet recomienda minimo un 64Tosc como TAD para 20 MHz de crystal.

Otro cambio ideal, sería que el encendido del ADC, "bsf ADCON,0"; lo hagas antes de tu loop infinito.
Y donde preguntas que "aqui debo colocar retardo?".... pues si es recomendable, para que se estabilice el capacitor de muestreo.
A ver que pasa con estos cambios.

ANIMO!!!!

Ya corregui que me dijiste ahora estoy usando un fosc/64. Parece q voy por buen camino gracias a a tu ayuda. Ahora un canal no afecta al otro. Pero por el PORTB (DIGITAL DE AN7) solo se ve los RB0 y RB1 en 1 logico y si varian al mover el potenciometro. Pero los demas leds no encienden. Pareciera que fuesen solo los 2bits de mayor peso.

[frozen]

Aqui te dejo los cambios.

Código: [Seleccionar]

__CONFIG _WDT_OFF&_PWRTE_ON&_HS_OSC&_LVP_OFF&_CP_OFF
LIST P=16F877A
INCLUDE <P16F877A.INC>
INCLUDE <MACROPIC.INC>

CBLOCK 0x20
VOLT
CORRIENTE
ENDC

ORG 0


;--------CONFIGURANDO  --------------------------------------------
BANCO 1
clrf TRISC
clrf TRISB
MOV TRISA,0XFF
bsf TRISE,2
BANCO 0

;--------BORRANDO REGISTROS-------------------------------------------------
clrf PORTB
clrf PORTC

BANCO 1
MOV ADCON1,B'10000000' ;CONFIGURA LOS 8 CANALES COMO ANALOGICOS
BANCO 0
MOV ADCON0,B'01000000'
bcf PIR1,ADIF ;limpio la bandera ADIF


infinito
;CANAL 0
bcf ADCON0,3 ;SELECCIONO CANAL 0 (AN0)
bcf ADCON0,4
bcf ADCON0,5
call ret50ms      ;estabilizar


bsf ADCON0,0 ;enciende el convertidor
call ret50ms
clrf ADRESH
clrf ADRESL

bsf ADCON0,2 ;inicio la conversion
btfsc ADCON0,2 ;pregunto si ya acabo de convertir??
goto $-1 ;no
movf ADRESH,0 ;si,solo uso 8 bits y los muevo a w.
bcf PIR1,ADIF ;limpio la bandera ADIF
movwf VOLT ;lo guardo en el registro VOLT
movwf PORTC ;muestro por el PORTC
call ret50ms ;retardo para descarga del condensador


;CANAL 7
bsf ADCON0,3 ; SELECCIONO EL CANAL 7 (AN7)
bsf ADCON0,4
bsf ADCON0,5
call ret50ms      ;estabilizar
clrf ADRESH
clrf ADRESL
bsf ADCON0,2 ;inicio la conversion
btfsc ADCON0,2 ;pregunto si ya acabo de convertir??
goto $-1 ;no
movf ADRESH,0 ;si,solo uso 8 bits y los muevo a w.
bcf PIR1,ADIF ;limpio la bandera ADIF
movwf CORRIENTE ;lo guardo en el registro CORRIENTE
movwf PORTB ;lo muestro por el PORTB
call ret50ms ;retardo de 50ms
goto infinito

INCLUDE <conv_ad.ASM>
INCLUDE <RETARDO.ASM>

END



[JBQ]

Todavía es muy bajo el TAD...  parece que te has confundido y lo has puesto a 8Tosc.

Por lo demás... bueno.. .... asi puede funcionar... más orden no le caería bien... 

[frozen]

Todavía es muy bajo el TAD...  parece que te has confundido y lo has puesto a 8Tosc.

Por lo demás... bueno.. .... asi puede funcionar... más orden no le caería bien... 

Si tenias razon estaba configurando mal lo del ADCON1 lo habia puesto al ADCON. JAJA. Gracias por ayuda en serio estoy muy agradecido. Ya lo probe en protoboad y funciona Ok todo. En estod dias estare subiendo mis fotos de mi fuente 0-24v 0-2.5A programable con teclado 4x4.
SALUDO gracias a todos los que me ayudaron. Muy interesante este foro.
  Gracias JBQ tu me diste la solucion.