AD_konverzió
	movlw	d'80'
	movwf	minta_számláló
	lfsr	FSR0, minta_tábla	;a tábla legalsó mintájának alsó bájtjához lépünk
	movlw	b'00000101'
	movwf	ADCON0				;Ube (AN1) kiválasztása, engedélyezése
tábla_feltöltése
	bsf		ADCON0, GO_DONE		;A/D konverzió indítása
	btfsc	ADCON0, GO_DONE		;befejeződött az A/D konverzió?
	goto	$-2					;ha nem, akkor kérdezd meg újra!
	movff	ADRESL, POSTINC0
	movff	ADRESH, POSTINC0
	decfsz	minta_számláló
	bra		tábla_feltöltése


;A nyolc legnagyobb érték eldobása:
	movlw	h'0F'	;decimális 4095 felső bájtja
	movwf	vszámH
	movlw	h'FF'	;decimális 4095 alsó bájtja
	movwf	vszámL
	clrf	elvetett_minta_számláló
	lfsr	FSR0, minta_tábla+TablSize-1	;a tábla legfelső mintájának felső bájtjához lépünk
	bra		a04
a01	movf	POSTDEC0, f
	movf	POSTDEC0, f
	decf	vszámL
	btfss	STATUS, C	;ha alulcsordult, akkor nem ugrik!
	decf	vszámH
a04	movf	vszámH, W
	cpfseq	INDF0
	bra		a01			;ha nem egyenlő a felső bájt
	movf	POSTDEC, f	;ha a felső bájt egyenlő, akkor...
	movf	vszámH, W
	cpfseq	INDF0
	bra		a03			;ha a felső bájt egyenlő de az alsó nem
	bra		a02
a03	movf	POSTINC, f	;visszanöveljük a táblát hogy megint a felső bájtra mutasson...
	bra		a01			;...és csak ezután lépünk tovább a következő mintára!
a02	clrf	INDF0		;ha az alsó és a felső bájt is egyenlő, akkor...
	clrf	PREINC0		;...akkor a felső bájtot is töröljük!
	incf	elvetett_minta_számláló	;+1 mintát elvetettünk!
	movlw	d'8'
	cpfseq	elvetett_minta_számláló	;elvetettünk már 8db mintát?
	bra		a01		;ha nem
	bra		a05		;ha igen

;A nyolc legkisebb érték eldobása:
a05