;---------------------------------------
;
;	ECT Subroutine - write ect value to external pot A
;
ECT: 
	mov	a, r5		; Fetch pot0 data
	clr	cs		; Bring /CS low
	acall	txsend		; Send code to digipot
	mov	a, #pota	; Code for selecting pota
	acall	txsend		; Send Code to digipot 
;	acall	delay		; Write delay 
	setb	cs		; Restore /CS
	ret 			; Return