Seriennummer des ds18s20 mit bascom auslesen

[kevin (Gast)]

Hallo ich will die 64bit Seriennummer eines ds18s20 herausfinden habe 
jedoch probleme da ich nur 0 als antwort bekomme mein sensor ist mit 
versorgungsspannung und dem pull up widerstand aufgebaut und ein attiny 
85 als µC als compiler habe ich bascom benutzt die daten lese ich mit 
Hterm aus.
Es wäre nett wenn mir einer weiter helfen oder meinen fehler finden 
könnte

MFG Kevin

Mein Quelltext:

'**********************************************************
'Compiler  : BASCOM-AVR
'Hardware : DS18S21 (+125 bis -55 Grad)
'Auslesen der Seriennummern
'Chip type : attiny85
'**********************************************************

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

Config 1wire = Portb.1


Dim Ar(8) As Byte
Dim I As Byte
Dim Sn As Byte

Open "comb.3:4800,8,n,1" For Output As #1

Print #1 , "SN"

Do

1wreset
Waitms 10
1wwrite &H33
Waitms 10

Ar(1) = 1wread(8)

For I = 1 To 8

Ar(i) = Sn

Print #1 , I ; "sn" ; Sn
Waitms 10
Next

Wait 5

Loop

End

[D. S. (jasmin)]

Sn = Ar(i) = Sn

[kevin (Gast)]

jo das war das problem en dummer dreher danke dir vielmals

anstelle:
Ar(i) = Sn

muss man
Sn = Ar(i)

eingeben dann geht es