* Subroutine that starts the conversion and reads the AN4-AN7 channels, 
* and updates  the variables ANALOG4-ANALOG7.

READ_ADC4	LDAA	#$14	;MULT=1, CC=1
	STAA	ADCTL	;start conversion 
POLL_ADC	LDAA	ADCTL	
	ANDA	#$80	;poll CCF until true
	BEQ	POLL_ADC	
	LDAA	ADR1	;get result in A for AN4
	STAA	ANALOG4	;update variables
	LDAA	ADR2	
	STAA	ANALOG5	
	LDAA	ADR3	
	STAA	ANALOG6	
	LDAA	ADR4	
	STAA	ANALOG7	
	RTS		
