Witam.Dorwałem płytkę testową do at128 i chcę sprawdzić procesorek. Wgrywam mu program z bascoma i dioda zamiast migać to świeci.Częstotliwość zegara ustawiałem i powinna być ok.Nie wiem gdzie szukać przyczyny.
Taki programik.
$regfile = "m128def.dat"
$crystal = 1000000
Config Pind.7 = Output
Config Timer 0 = Timer , Prescale = 256
On Timer 0 Odmierz_1s
Dim Licz_8ms As Byte
Enable Interrupts
Enable Timer0
Load Timer0 = 250
Do
Loop
End
Odmierz_1s:
Load Timer 0 = 250
Incr Licz_8ms
If Licz_8ms = 125 Then
Licz_8ms = 0
Toggle Portd.7
End If
Return
Taki programik.
$regfile = "m128def.dat"
$crystal = 1000000
Config Pind.7 = Output
Config Timer 0 = Timer , Prescale = 256
On Timer 0 Odmierz_1s
Dim Licz_8ms As Byte
Enable Interrupts
Enable Timer0
Load Timer0 = 250
Do
Loop
End
Odmierz_1s:
Load Timer 0 = 250
Incr Licz_8ms
If Licz_8ms = 125 Then
Licz_8ms = 0
Toggle Portd.7
End If
Return