Mam at89c2051 z takim oto programem:
Kod: Zaznacz cały
$crystal = 12000000
$baud = 9600
$regfile = "89c2051.dat"
'sygnalizacja diodami
Set P3.5
Reset P3.4
Wait 1
Set P3.4
Reset P3.5
Wait 1
Reset P3.5
Reset P3.4
Do
Reset P1.7 : Set P1.6 : Set P1.5
If P1.4 = 0 Then
Gosub Wyswietl 'klawisz 7
Elseif P1.3 = 0 Then
Gosub Wyswietl 'klawisz 8
Elseif P1.2 = 0 Then
Gosub Wyswietl 'klawisz 0
Elseif P1.1 = 0 Then
Gosub Wyswietl 'klawisz 9
End If
Loop
Wyswietl:
'sygnalizacja diodami
Reset P3.4
Set P3.5
Waitms 500
Set P3.4
Reset P3.5
Waitms 500
Reset P3.4
Reset P3.5
Wait 1
return
Pomyślałem więc, że może atmelek się zepsuł, ale po włożeniu go do innego układu wszystkie porty ustawił w stan wysoki.
Co źle robię?
Pozdrawiam.