Hallo


Versuch mal so

Code:
$regfile = "At26def.dat"                                    ' CPU = ATtiny26L (externe Reset-Beschaltung)
$crystal = 1000000                                          ' Takt = interner RC mit 1 MHz

Dim Status As Byte
Dim B As Word
Dim C As Word


C = 3000

Const Timer_reload = 193

Const An = 0
Const Aus = 1

Config Portb = Output

Portb = &B00000000

Config Timer0 = Timer , Prescale = 8

On Timer0 Led

Enable Timer0
Enable Interrupts

Do

    If B = C Then                                           '1,5 Sekunden vorbei 3000 * 500 µs = 1,5 s
         If Portb.1 = Aus Then                              'war die LED vorher aus
            Portb.1 = An                                    'dann einschalten
            C = C + 1000                                    'Zeit für ausschalten einstellen
         Else
            Portb.1 = Aus
            C = C + 3000                                    'Und Neue Zeit Berechnen
         End If
   End If

Loop

End


'Interrupt Routine Timer0
'wird ca alle 504 µs aufgerufen
Led:

   Timer0 = Timer_reload                                    'Timer neu einstellen
   B = B + 1                                                'Variable b zählt die 0,5 ms Schritte                                           'Variable wird alle

Return
Ist nicht getestet, sollte aber schon so gehen.

Gruß
Dieter