Aqui les dejo el programa del termometro que realice. El sensor es un LM335 que trabaja en grados kelvin.
temp var word
aux var word
sign var bit
bval var word
output C6
AN0 con 0
clk con 2
adsetup con %10000000
pause 500
LCDWRITE B7\B5\B6, portb.nib0, [INITLCD1, INITLCD2, TWOLINE, CLEAR, HOME, SCR]
main
adin AN0,clk,adsetup,temp
temp=temp+1
temp=temp*10
temp=temp*5
temp=temp/1024
temp=temp*100
temp=temp/10
if temp>273 then
aux=temp-273
else
aux=273-temp
sign=1
endif
LCDWRITE B7\B5\B6, portb.nib0, [CLEAR, HOME, "la temperatura"]
pause 1000
if sign=0 then
LCDWRITE B7\B5\B6, portb.nib0, [CLEAR, HOME, "actual es"," ", dec aux," ", "C"]
pause 1000
LCDWRITE B7\B5\B6, portb.nib0, [CLEAR, HOME, "o", " ", dec temp," ", "K"]
pause 1000
else
LCDWRITE B7\B5\B6, portb.nib0, [CLEAR, HOME, "actual es"," ","-", dec aux," ", "C"]
pause 1000
LCDWRITE B7\B5\B6, portb.nib0, [CLEAR, HOME, "o", " ", dec temp," ", "K"]
pause 1000
endif
sign=0
goto main