INCLUDE "bs2defs.bas"
DEFINE OSC 4

TempData VAR WORD : D var word : TempC var word
trisio.1 = 0                    'port 0 output
pause 1500

st:

pause 1000

      OWOUT gpio.2,1,[$CC,$44]  ' ds18b20
      pause 20
      HIGH gpio.2               ' ds18b20
      PAUSE 50
      OWOUT gpio.2,1,[$CC,$BE]  ' ds18b20
      pause 10
      OWIN gpio.2,0,[TEMPDATA.LowByte,TEMPDATA.HighByte] ' ds18b20
      D = 625 * TEMPDATA
      TempC = DIV32 10
      TempC = (TEMPDATA & $0FF0) >> 4

if tempc >= 32 then low gpio.1  ' нагрев
if tempc =< 30 then high gpio.1  ' нагрев

goto st