;init
AD0
AD1

		movlw	B'00000010'	;
                movwf   ADCON1		; 5 analóg bemenet
		; movlw   B'11000001'	;
		; movwf   ADCON0	;
		setf    TRISA		; PORTA bemenet

Start
;------------------------------------------------------------------------------
;0. csatorna kivalasztasa

		;movlw   B'11000001'	; RC oszcillátor, A/D engedélyezés 0. csat
		;rcall AD_conv
		;movwf AD0		;0. csatorna mentése
		;rcall   Kesl

;------------------------------------------------------------------------------
;1. csatorna kivalasztasa, es uj konverzio
		movlw   B'11001001'	; RC oszcillátor, A/D engedélyezés 1. csat
		rcall AD_conv
		movwf AD1		; 1. csatorna mentese
		rcall   Kesl


		bra Start


AD_conv  
		movwf	ADCON0
	 	bsf	ADCON0,GO	; A/D konverzió start
Wait	
		btfsc	ADCON0,GO 	; várakozás a teljes konverzióra
		bra     Wait
		movf ADRESH,0
		return