;*** Zacetek programa ***
	LIST	P=16F88
	ORG	0

;*** Inicializacija ***
	MOVLW	1	;ADCON0=1 nastavimo ADON=1 vklop AD
	MOVWF	1F
	BSF	3,5	;RP0=1 banka 1
	MOVLW	0	;TRISB=0 natavimo PORTB vsi izhodi
	MOVWF	6
	BCF	3,5	;RP0=0 banka 0

;*** Zanka programa ***
ZANKA	INCFSZ	20,1	;cakanje za vzorcenje signala
	GOTO	ZANKA
	MOVLW	5	;ADCON0=1 nastavimo ADON=1 in GO=1 start AD
	MOVWF	1F
TEST	BTFSC	1F,2	;ADCON0,2 cakam konec pretvorbe /DONE=0
	GOTO	TEST
	MOVF	1E,0	;w=(ADRESH) rezultat na LED
	MOVWF	6	;PORTB=W
	GOTO	ZANKA

;*** Nastavi konfiguracijo PICa 16F88 ***
	ORG	2007	;naslov konfiguracijske besede
	DW	2950	;CP=OFF, CCPMX=RB3, DEBUG=OFF, WRT=0000-0FFF,
;CPD=OFF, LVP=OFF, BOREN=ON, MCLRE=OFF, PWRTEN=ON, WDTE=OFF, OSC=INTRC

	END
;*** Konec programa ***