org 8000h
		ljmp main




main:		mov sp,#0dfh
		acall init_system
		acall init_5550
		




init_system:	clr a
		mov r0,#00h
next_byte:	mov @r0,a
		inc r0
		cjne r0,#0dfh,next_byte
		mov r0,#00h
.
.
.

adc_scan:	acall ad_read
		mov ad_value_02,a
		mov 60h,a
		lcall 019bh

		acall ad_read
		mov ad_value_01,a
	
		mov 60h,a
		lcall 019bh

		acall ad_read
		mov ad_value_00,a

		mov 60h,a
		lcall 019bh
		
		ret

init_5550:	mov a,#04h	;write enable command
		acall ad_write	;gain PGA
		mov a,#00h	
		acall ad_write
		mov a,#00h
.
.
.
.		mov a,#0e8h	;start conversion
		acall ad_write
		sjmp adc_scan
		
.
.
.
		end