Hallo pyr0skull,

wenn mans mal begriffen hat eigentlich ganz einfach

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

Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output

Osccal = 255

Dim Hell0 As Byte
Dim Hell1 As Byte
Dim Hell2 As Byte
'bis hell123456

Dim Tick As Byte
Dim Range As Byte
Range = 100

On Timer0 Ontimer0
Tccr0 = &B00000001
Timsk.toie0 = 1
Enable Interrupts

Hell0 = 100
Hell1 = 10
Hell2 = 1

Do

Loop

End

Ontimer0:
Tick = Tick + 1
Timer0 = 254
If Tick >= Range Then
Tick = 0
End If
If Tick < Hell0 Then
Portb.1 = 1
Else
Portb.1 = 0
End If
If Tick < Hell1 Then
Portb.2 = 1
Else
Portb.2 = 0
End If
If Tick < Hell2 Then
Portb.3 = 1
Else
Portb.3 = 0
END IF
Return

Danke für deine Hilfe!

Günter