LIST P=16F877 
 #include "p16f877.inc"
__CONFIG _XT_OSC&_CP_OFF&_WDT_OFF 

	org	3

	KESLELTET EQU 0x20

	BANKSEL	TRISA
	MOVLW	B'11111111'
	MOVWF	TRISA
	MOVLW	B'00000000'
	MOVWF	TRISB

	BANKSEL	ADCON1
	movlw	B'00000010'	; AZ ADCON1 REG. BEÁLLÍTÁSAI
	movwf	ADCON1
	
	BANKSEL ADCON0
	MOVLW b'10001000'	; Fosc/32
	MOVWF ADCON0

START

	BANKSEL INTCON
	bcf INTCON,GIE

	BANKSEL	ADCON0
	bsf	ADCON0,ADON	; AD konverter bekapcsolása, mintavétel

	MOVLW 0x19		; kell egy kis időt várni a mitavétel miatt
	MOVWF KESLELTET
	DECFSZ KESLELTET
	GOTO $-1

	BSF ADCON0,2		; itt kezdődik a mitából az AD konverzió
	BTFSC ADCON0,2		; ha kész a konverzió, a bit vált ezért van ez a tesztelés
	GOTO $-1
	BCF ADCON0, ADON	; kész a konverzió
	MOVF ADRESH,W		; itt van a konverzió eredménye
	
	BANKSEL	PORTB
	MOVWF	PORTB

	BANKSEL INTCON
	bsf	INTCON,GIE	; Enable Global interrupts
	

	GOTO	START


	END