ADC_COMP
bsf ADCON0,GO_DONE; Inicia la conversion
;ADC_ESP
btfsc ADCON0,GO_DONE ; Finalizo la conversion???
goto $ - 1 ; No, Esperar a que finalice
Banco_1 ; Banco 1
movf ADRESL,0 ; Guardo Adresl en W
Banco_0 ; Banco 0
movwf DATOL ; Almaceno resultado del ADC en registros para trabajos
movf ADRESH,0 ; Guardo Adresl en W
movwf DATOH ; Almaceno resultado del ADC en registros para trabajos
movf DATOL,0 ; Paso a W, el valor del Set Elegido
subwf DATO_L,0 ; Resto Valor (W = DATOL - W)
btfss STATUS,C ; Miro Carry de STATUS
call SUPERIOR ; El valor aumento
..
... ; De lo contrario es menor