$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 5
$framesize = 16

Config Portb.0 = Output                  'Ausgang f?r PWM an PB0
Config Timer0 = Pwm , Compare A Pwm = Clear Down , Prescale = 1      
Config 1wire = Portb.4                   'hier ist der DS18S20 angeschlossen

'Dimensionierung der Variablen:
Dim Variable1 As Byte
Dim Variable2 As Single
Dim Schaltschwelle1 As Single
Dim Schaltschwelle2 As Single
Dim Dimmung As Byte

'Einstellung der Parameter:
Schaltschwelle1 = 27                                        'hier Wert f?r Schaltschwelle 1 in C? eintragen
Schaltschwelle2 = 29                                        'hier Wert f?r Schaltschwelle 2 in C? eintragen
Dimmung = 85                                                'hier Wert f?r Dimmung eintragen (0-255)

Do

'unterhalb der ersten Schaltschwelle ausf?hren:
If Temp < Schaltschwelle1 Then
Pwm0a = 0

'zwischen erster und zweiter Schaltschwelle ausf?hren:
Elseif Temp = Schaltschwelle1 Or Temp < Schaltschwelle2 Then
Pwm0a = Dimmung

'oberhalb der zweiten Schaltschwelle ausf?hren:
Elseif Temp = Schaltschwelle2 Or Temp > Schaltschwelle2 Then
Pwm0a = 255


End If


1wreset                                                     '1wire Bus Reset senden
1wwrite &HCC
1wwrite &H44

Waitms 1000                                                  'eine Sekunde warten

1wreset
1wwrite &HCC
1wwrite &HBE

Variable1 = 1wread(1)
Variable2 = Variable1 / 2



Loop