Ddra = &B11111111
Porta = &B00000000
Mcucr = &B00000011
Tccr1b = &B00000011
Tccr0b = &B00000011
Gimsk.6 = 1
Sreg.7 = 1
Timsk1.0 = 1
Timsk0 .0 = 1

Dim H As Byte
H = 0
Dim L As Byte
L = 0
Dim Hl As Word
Hl = 0
Dim Paski As Byte
Dim Litera(5) As Byte

Ddrb = &B1011
Portb = &B1001


On Int0 _blink
On Ovf0 _test

Do
Loop
End

_test:


Tcnt0 = 255 - H

If Paski < 50 Then
Porta = &B10101010
Else
Porta = &B00000000
End If

Incr Paski



Return


_blink:

L = Tcnt1l
H = Tcnt1h
Tcnt1h = 0
Tcnt1l = 0

Paski = 0

Tcnt0 = 255 - H




Return