$regfile = "m8515.dat"
$crystal = 1000000

Config 1wire = Porta.0
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.6 , Rs = Portc.7
Config Lcd = 16 * 2
Cursor Off
Cls
Config Portd = Input
Dim Ar(8) As Byte
Dim I As Integer

Do
Cls
Locate 1 , 1
Lcd "warten ..."
Wait 1
Do
Loop Until Pind.7 = 0
1wreset
1wwrite &H33
Ar(5) = &H12
Wait 1
Ar(1) = 1wread(8)
Cls
Locate 1 , 1
Lcd Hex(ar(1)) + " " + Hex(ar(2)) + " " + Hex(ar(3)) + " " + Hex(ar(4))
Locate 2 , 1
Lcd Hex(ar(5)) + " " + Hex(ar(6)) + " " + Hex(ar(7)) + " " + Hex(ar(8))
Wait 1
Do
Loop Until Pind.7 = 0
Cls
Loop

End