Działa błąd był w fusebitach pozdrawiam i dziękuję za owocną współpracę i cierpliwość podaje sprawny kod (prawie bo namieszałem w data)
$regfile = "m8def.dat"
$crystal = 1000000
Config Pind.1 = Input
Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Portc = Output
Config Timer0 = Timer , Prescale = 1024
On Timer0 Przerwanie
Dim Licznik As Byte
Dim Tryb As Byte
Dim Dana As Byte
Dim Szybkosc As Byte
Dim Guzikczekaj As Word
Licznik = 0
Dana = 0
Guzikczekaj = 0
Szybkosc = 20
Tryb = 1
Restore Podstawowy
'klawisze
Up Alias Pind.1
Down Alias Pind.3
L Alias Pind.2
R Alias Pind.4
Portd = &B00001111
Portc = &B11111111
Enable Timer0
Enable Interrupts
Start Timer0
Do
If Guzikczekaj = 1000 Then 'opoznienie dla przyciskow
Guzikczekaj = 0
If Up = 0 And Szybkosc < 100 Then Incr Szybkosc 'max szybkosc 100
If Down = 0 And Szybkosc > 1 Then Decr Szybkosc
If R = 0 And Tryb < 4 Then Incr Tryb 'max tryb 4
If L = 0 And Tryb > 0 Then Decr Tryb
End If
If Licznik > Szybkosc Then
Licznik = 0
Read Dana
If Dana = 255 Then
Select Case Tryb
Case 1 : Restore Podstawowy
Case 2 : Restore Ufo
Case 3 : Restore Migumig
Case 4 : Restore Strobo1
Case 5 : Restore Strobo2
End Select
Read Dana
End If
Toggle Dana
Portc = Dana
End If
Incr Guzikczekaj
Loop
End
Przerwanie:
Incr Licznik
Return
'ostatni bajt efektu zawsze musi byc 255
'bit = 1 to lampka zapalona
Podstawowy:
Data &B10000000 , &B01000000 , &B00100000 , &B00010000 , &B00001000 , &B00000100 , 255
Ufo:
Data &B00100001 , &B00010010 , &B00001100 , &B00010010 , 255
Migumig:
Data &B00100000 , &B00000001 , &B00010000 , &B00000010 , &B00001000 , &B00000100 , 255
Strobo1:
Data &B11111111 , &B00000000 , 255
Strobo2:
Data &B00000111 , &B00111000 , 255