Device = 18F1320
Clock = 8
Config OSC = INTIO2, WDT = OFF
Include "DS18B20.bas"
include "convert.bas"
Include "USART.bas"
const Sensor_A(8) as byte = ($28, $00, $7c, $46, $01, $00, $00, $10)
// display a sensor value...
sub DisplaySensor(byrefconst pID() as byte)
dim TempA as shortint
dim TempB as word
RomID = pID
Convert
GetTemp(TempA, TempB)
USART.Write(DecToStr(TempA),".",DecToStr(TempB,2), "C",13,10)
end sub
// program start...
osccon = $72
high(PORTA.3)
SetBaudrate(br9600)
SetPin(PORTA.4)
while true
DisplaySensor(Sensor_A)
delayms(1000)
wend
END