Witam serdecznie
Próbuję uporać się z tym okropieństwem. Dopiero zaczynam, ale cóż mam zrobić, kiedy nie działa podstawowa sprawa. Napisałem taki program
$regfile = "m128def.dat"
$crystal = 4000000
Config Pinc.1 = Output
Config Timer0 = Timer , Prescale = 256
On Timer0 Odmierz_1s
Dim Licz_8ms As Byte
Enable Interrupts
Enable Timer0
Load Timer0 = 250
Do
Loop
End
Odmierz_1s:
Load Timer0 = 250
Incr Licz_8ms
If Licz_8ms = 125 Then
Licz_8ms = 0
Pinc.1 = Not Pinc.1
End If
Return
W PonyProg2000 ustawiłem bity od zegara na wewnętrzny, ale nic to nie daje. Jeśli dam zamiast timera przewijany port, to działa, ale nie o to mi chodzi. Co można na to poradzić? Bardzo proszę o pomoc
Próbuję uporać się z tym okropieństwem. Dopiero zaczynam, ale cóż mam zrobić, kiedy nie działa podstawowa sprawa. Napisałem taki program
$regfile = "m128def.dat"
$crystal = 4000000
Config Pinc.1 = Output
Config Timer0 = Timer , Prescale = 256
On Timer0 Odmierz_1s
Dim Licz_8ms As Byte
Enable Interrupts
Enable Timer0
Load Timer0 = 250
Do
Loop
End
Odmierz_1s:
Load Timer0 = 250
Incr Licz_8ms
If Licz_8ms = 125 Then
Licz_8ms = 0
Pinc.1 = Not Pinc.1
End If
Return
W PonyProg2000 ustawiłem bity od zegara na wewnętrzny, ale nic to nie daje. Jeśli dam zamiast timera przewijany port, to działa, ale nie o to mi chodzi. Co można na to poradzić? Bardzo proszę o pomoc