DEFINE osc 20
Define LCD_DREG PORTD
Define LCD_DBIT 4
Define LCD_RSREG PORTE
Define LCD_RSBIT 0
Define LCD_EREG PORTE
Define LCD_EBIT 1
define ADC_BITS 10
define ADC_CLOCK 3
define ADC_SAMPLEUS 50
temp var word
temperature var word
quanta con 1250
TRISA = %11111111
ADCON1= %10001110
Pause 500
Lcdout $fe, 1
loop:
ADCIN 0, temp
pause 5
temperature= (temp*10) */ quanta
lcdout $fe,2
lcdout $fe,$80,"Temp ",dec2 (temperature/100),".", dec1 (temperature//100),$DF,"C"
Pause 200
Goto loop
End