Hallo,

ich versuche ( als blutiger Anfänger) in folgendem Program den Timer0 in der Simulation auszulesen. Das gelingt mir aber nicht, der Wert bleibt immer 00.
Wo liegt der fehler?
$regfile = "ATtiny13.DAT"
$crystal = 1000000
Config Portb.4 = Output
Config Portb.0 = Input
Config Portb.7 = Output
$hwstack = 22

Config Timer0 = Counter , Prescale = 1
Enable Timer0


Dim Timergestarted As Boolean
Dim Zaehler As Integer


Led Alias Portb.4
Puls Alias Portb.0
Ausgang Alias Portb.7


Timergestarted = 0
Zaehler = 0

Stop Timer0
Timer0 = 0

Do
If Puls = 1 Then
If Timergestarted = 0 Then
Led = 1
Start Timer0
Timergestarted = 1
End If
End If

If Puls = 0 Then
If Timergestarted = 1 Then
Led = 0
Stop Timer0
Zaehler = Timer0
Timergestarted = 0
End If
End If