;-------------------------------------------------------------------------------
;----------------------------------  Analogue  ---------------------------------
;-------------------------------------------------------------------------------	
		bsf	    TRISA, 0, 1		; Set RA0 to input
		
ADC		movlw	    10000010b
		movwf	    ADCON2, 1		; Set 1/32 speed, no delay
		
		movlw	    00001110b
		movwf	    ADCON1, 1		; Set RA0, AN0 analogue input
		
		movlw	    00000001b
		movwf	    ADCON0, 1		; Channel AN0, enable module
		
		bsf	    ADCON0, GO, 1	; Start Reading
		btfsc	    ADCON0, GO, 1	; Reading done?
		goto	    $-2
		return				;yes done