INICIO
BSF STATUS,RP0 ; ME CAMBIO AL BANCO 1
CLRF ADCON1 ; ENTRADAS ANALOGICAS, JUSTIFICACIÓN A LA IZQUIERDA
MOVLW b'00011001' ; FOSC/2, CANAL 3
MOVWF ADCON0 ; (RA3/AN3)
CLRF PORTA ; LIMPIO EL PUERTO A
MOVLW 0XFF ;
MOVWF TRISA ; PUERTO A COMO ENTRADA
BCF STATUS,RP0 ; VUELVO AL BANCO 0
CALL LCD_INI ; INICIA LA LCD
....
Donde LCD_INI es:
;-----------------RUTINA DE INICIO DEL LCD---------------------------------
LCD_INI
MOVF STATUS,W ; MUEVE A W LO QUE ESTA EN STATUS (ESTADO DEL LCD)
MOVWF STATUS_LCD ; GUARDA LA VARIABLE STATUS
BSF STATUS,RP0 ; CAMBIA AL BANCO 1
BCF STATUS,RP1 ; CAMBIA AL BANCO 1
MOVLW 0X06 ; MUEVO SEIS A W
MOVWF ADCON1 ; CONFIGURA EL PUERTO A COMO DIGITAL
;a partir de aquí los pines del puerto A son digitales. imposible realizar una conversion A/D!!!
MOVLW 0XF8 ; PARA CONFIGURAR EL PUERTO
MOVWF TRISA ; CONFIGURA EL PUERTO A (RA7-RA3 ENTRADAS Y RA2-RA0 SALIDAS)