;*************************************************************************

; A/D converter set up
adset
	movlw	b'10000001'		; clock/32, channel 0 selected
	movwf	ADCON0			; A/D converter on
	bsf	STATUS,RP0		; bank 1
	movlw	b'00001110'		; left justified output
	movwf	ADCON1			; RA0 analog, rest digital
	bcf	STATUS,RP0		; bank 0
	return

;*************************************************************************
