$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb = Output
Config Porta = Output

Config Lcdpin = Pin , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 , E = Portb.3 , Rs = Portb.2
Config 1wire = Porta.7
Config Lcd = 20 * 2
Config Lcdbus = 4
Dim Kod(8) As Byte
Dim Priv As Byte
Dim I As Byte
Dim Ee_adresa As Byte
Dim Mj_pod(9) As Byte

Dim Kodtemp As Integer
Dim Temperatura As Single

'Citanje ID koda'
1wreset
1wwrite &H33                                                'H33 ne radi za nas'
For I = 1 To 8
Kod(1) = 1wread()
Waitms 250
Next

'Zapisi_koda'
Ee_adresa = 10
For I = 1 To 8
   Priv = Kod(i)
   Writeeeprom Priv , Ee_adresa
   Incr Ee_adresa
Next I

'Prozivanje senzora, citanje podataka'
Ee_adresa = 10
For I = 1 To 8
   Priv = Kod(i)
   Readeeprom Priv , Ee_adresa
   Incr Ee_adresa
Next I
1wreset
1wwrite &H55

'adresiraj senzor'
For I = 1 To 8
   Priv = Kod(i)
   1wwrite Priv
Next I
1wwrite &H44

'cekanje da se pretvorba zavrsi'
Waitms 255

'Prozovi rutinu za iscitavanje temp iz senzora'
1wreset
1wwrite &H55

'Odaberi senzor'
For I = 1 To 8
   Priv = Kod(i)
   1wwrite Priv
Next I
1wwrite &HBE%

'Citanje temp iz senzora'
For I = 1 To 9
Mj_pod(i) = 1wread()
Next I
1wreset

Temperatura = Kodtemp
Temperatura = Temperatura / 16.0