SECT8	RADC
	BASE	0
	STARTD
	FLDA	0
	FSTA	ADCRET
	FADD	L2
	FSTA	0
	FLDA%	0
	FSTA	0
	STARTF
	FLDA%	0
	ALN	0
	FSTA	CHANEL
	TRAP4	ADC8
	FLDA	SAMPLE
	FNORM
	FDIV	L511
ADCRET,	JA	.
L2,	0;2
L511,	F	511.
SAMPLE,	13;0;0
CHANEL,	0;0;0
ADC8,	0
	TAD	CHANEL+2
	6301
	CIF CDF
	JMP%	ADC8