ADSK=6534
	ADRB=6533
	ADST=6532
	ADLM=6531
	ADCL=6530
	SAM=100
	LINC=6141
	ESF=4
	PDP=2
	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
	IFSW	8 <
	ADCL
	TAD	CHANEL+2
	ADLM
	ADST
	ADSK
	JMP	.-1
	ADRB
	IFNSW	8 >	/SHOULD BE <
	TAD	CHANEL+2
	6301
	TAD	SAM0
	DCA	DOSAM
	IOF
	LINC
	ESF
DOSAM,	0
	PDP
	ION
	DCA	SAMPLE+1
	CIF CDF
	JMP%	ADC8
	IFNSW	8 <
SAM0,	SAM	0>