INICIO		
				clrf	PORTA
				clrf	PORTB				;	Limpia salidas del puerto B
				clrf	PORTC				;	Limpia salidas del puerto C
				clrf	PORTD
				clrf	PORTE
				clrf	CONVERT
				clrf	CONVERH
				;MOVLW	0X81		; ADCON0,ADON =1(ENABLE), frec=Fosc/32, ADCON0,G0 =0,   Vref+=Vdd=5V     y     Vref-=Vss=0V 
				;MOVWF	ADCON0		

				bsf		STATUS,RP0			;	Selección del Banco 1
				bcf		STATUS,RP1
				
				;MOVLW	0X0E		;JUSTIFICACIÓN A LA DERECHA, RE0-RE2=DIG.,RA1-RA3,RA5=DIG, RA0=ANALOGO  tenia un F0
				;MOVWF	ADCON1		;000000XX XXXXXXXX
				
				;MOVLW	0X03
				;MOVWF	PORTA				;	PUERTO A0 COMO ENTRADA



;---------------------------------- RUTINAS DE CONVERSION ANALOGO DIGITAL------------------------------------------;
;------------------------------------------------------------------------------------------------------------------;





CONVERSION		bsf		STATUS,RP0			;	Selección del Banco 1
				bcf		STATUS,RP1

				MOVLW	0X03
				MOVWF	PORTA
				MOVLW	0X04		;JUSTIFICACIÓN A LA DERECHA, RE0-RE2=DIG.,RA2,RA5=DIG, RA0, RA1 Y RA3=ANALOGO  tenia un F0
				MOVWF	ADCON1		;000000XX XXXXXXXX
				bcf		STATUS,RP0			;	Selección del Banco 0

				MOVLW	0X81		; ADCON0,ADON =1(ENABLE), frec=Fosc/32, ADCON0,G0 =0,   Vref+=Vdd=5V     y     Vref-=Vss=0V 
				MOVWF	ADCON0		
				CALL    DELAY_5MS
				BCF		PIR1,ADIF	;BANDERA DE FIN DE CONVERSIÓN=0
				CLRF	INTCON		;NO PERMITIR INTERUPCIONES


;********************************************** CONVERSION DEL ADC **********************************************************	


EMPEZAR			BSF		ADCON0,GO	; INICIO DE CONVERSIÓN (ADCON0,GO=1)
WAIT			BTFSS	PIR1,ADIF	;FIN DE CONVERSIÓN ??
				GOTO	WAIT		;TODAVÍA NO
				GOTO	VISUAL		;VISUALIZA EL RESULTADO DE LA CONVERSIÓN
				
	
VISUAL			MOVF	ADRESH,W	;RESULTADO DE CONVERSIÓN EN --000000XX XXXXXXXX-- (LSB) en W			
				MOVWF	CONVERT
				MOVF	CONVERT,W
				CALL	CONBCD
				MOVWF   CONVERT
				;MOVWF	PORTD		;SALIDA A LED´s
       			BCF		PIR1,ADIF	;BANDERA DE FIN DE CONVERSIÓN = 0
				CLRF    ADRESH
;********************************************** CONVERSION DE HR **********************************************************	

				


				
				MOVLW   0x8A
            	MOVWF   CONTANDO
BUCLE2			DECFSZ  CONTANDO,F
            	GOTO    BUCLE2


				MOVLW	0X89		; ADCON0,ADON =1(ENABLE), frec=Fosc/32, ADCON0,G0 =0,   Vref+=Vdd=5V     y     Vref-=Vss=0V 
				MOVWF	ADCON0		
				CALL    DELAY_5MS 
				BCF		PIR1,ADIF	;BANDERA DE FIN DE CONVERSIÓN=0
				CLRF	INTCON		;NO PERMITIR INTERUPCIONES

EMPEZAR1		BSF		ADCON0,GO	; INICIO DE CONVERSIÓN (ADCON0,GO=1)
WAIT1			BTFSS	PIR1,ADIF	;FIN DE CONVERSIÓN ??
				GOTO	WAIT1		;TODAVÍA NO
				GOTO	VISUAL1		;VISUALIZA EL RESULTADO DE LA CONVERSIÓN
				
	
VISUAL1			
				MOVF	ADRESH,W	;RESULTADO DE CONVERSIÓN EN --000000XX XXXXXXXX-- (LSB) en W			
				MOVWF	CONVERH
				
				MOVF	CONVERH,W
				CALL	CONBCD
				MOVWF   CONVERH
				;MOVWF	PORTD		;SALIDA A LED´s
       			BCF		PIR1,ADIF	;BANDERA DE FIN DE CONVERSIÓN = 0
				

				bsf		STATUS,RP0			;	Selección del Banco 1
				bcf		STATUS,RP1

				MOVLW	0X06		;ENTRADAS DIGITALES
				MOVWF	ADCON1		;
				bcf		STATUS,RP0	;	Selección del Banco 0

				RETURN			;RETORNO PARA NUEVA CONVERSIÓN