$regfile = "m32def.dat"
'$regfile = "m644def.dat"
$crystal = 16000000

'Zapojeni LCD pinu do mikrokontroleru

' BL = PortC.1
' Rs = PortC.2
'  E = PortC.3
'Db4 = PortC.4
'Db5 = PortC.5
'Db6 = PortC.6
'Db7 = PortC.7

Config Lcdpin = Pin , Rs = Portc.2 , E = Portc.3 , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config Lcd = 16 * 2

Config 1wire = Portd.4                                      'pripojeni teplotniho cidla DS16B20
Config Portb.0 = Output

Led Alias Portb.0

'pro teplomer
Dim Temp(9) As Byte
Dim X As Byte
Dim Celsius As Integer
Dim T As Single


Set Portc.1

Cls                                                         'smaz LCD display
Lcd "Hello world."                                          'zobraz do horniho radku
Wait 3

Cls
Locate 1 , 1
Lcd "Teplota"

Cursor Off

Do

   Set Led
   1wreset
   1wwrite &HCC
   1wwrite &H44
   Waitms 400
   Reset Led
   Waitms 400

   1wreset
   1wwrite &HCC
   1wwrite &HBE

   For X = 1 To 9
      Temp(x) = 1wread()
   Next

   Celsius = Makeint(temp(1) , Temp(2))
   T = Celsius / 16
   Locate 2 , 1
   Lcd Fusing(t , "##.#") + " C"
Loop