_1
	
	MOVLW	B'00001001'
	MOVWF	ADCON0
	BSF		ADCON0,GO
WAIT
	BTFSC	ADCON0,GO
	GOTO	WAIT

	MOVF	ADRESH,W
	MOVWF	ONE
	MOVF	ONE,W
	MOVWF	PORTD
	
	CLRF	ADRESH	
	

_0
	BSF		ADCON0,GO
WAIT0
	BTFSC	ADCON0,GO
	GOTO	WAIT0
	MOVF	ADRESH,W
	MOVWF	ONE1

	CLRW
	MOVF	ONE1,W
	SUBWF	ONE,W
	MOVWF	PORTB

	BCF		STATUS,Z
	MOVF	ONE,W
	SUBWF	ONE1,W
	BTFSC	STATUS,Z
	BCF		PORTE,1
	BTFSS	STATUS,Z
	BSF		PORTE,1

	CLRF	ADRESH
	
	CALL	DELAY

_2
	BCF		ENA,0
	MOVLW	B'00000001'
	MOVWF	ADCON0
	BSF		ADCON0,GO
WAIT2
	BTFSC	ADCON0,GO
	GOTO	WAIT2

	MOVF	ADRESH,W
	MOVWF	PORTC
	MOVF	ADRESH,W
	MOVWF	TWO
	CLRF	ADRESH

	BCF		STATUS,C
	MOVF	ONE,W
	SUBWF	TWO,W
	BTFSC	STATUS,C
	CALL	CSIPP
	BTFSC	STATUS,C

	CALL	DELAY
	GOTO	_1