ECT: 
; write ect to pot 
mov a,r5 
clr cs 
acall txsend 
mov a,#pota 
acall txsend 
; acall delay 
setb cs 
ret