Co potrafi ATMEGA8? Program, TIMER1 z preskalerm=1. Czas się nie zmienia.

Mam pytanie odnośnie ATmegi8-16PI . Napisałem prosty programik w BASCOM wykorzystujący TIMER1 z preskalerem=1. W przerwaniu zmieniam stan jednego z pinów 1,0,1.... aby otrzymać przebieg prostokątny. Wszystko co udało mi się wydusić przy kwarcu 14MHz to na wyjściu 10µs czyli 50kHz. W związku z ty mam pytanie czy jest metoda na wyciągnięcie 200kHz na jednym pinie z ATmega8-16PI. Poniżej to co napisałem żeby sprawdzić układ. Dodam że ATmegą bawię się pierwszy raz, a do tej pory bawiłem się AT.


$regfile = "m8def.DAT"
$crystal = 14000000
Dim A As Word
Config Timer1 = Timer , Prescale = 1
On Timer1 Gen
A = 5000
Enable Timer1
Enable Interrupts
Load Timer1 , A
Config Pinb.0 = Output
Config Pind.0 = Input
Config Pind.1 = Input

Do
Set Portd.0 : Set Portd.1
If Pind.0 = 0 Then
Waitms 1
If A < 65533 Then
A = A + 1
End If
End If
If Pind.1 = 0 Then
Waitms 1
If A > 1 Then
A = A - 1
End If
End If

Loop

End

Gen:
'Toggle Portb.0
Portb.0 = 1
Load Timer1 , A
Portb.0 = 0
Return


Z instrukcją Toggle na wyjściu jest wypełnienie 50%.
Zaś z Portb.0 = 1 i Portb.0 = 0 wypełnienie jest około 15% ale czas nie ulega zmianie.

Dzięki za podpowiedzi i sugestie.

Witam!!
Jasne,ze da sie ustawic wieksza szybkosc. Co do funkcji load timer1 nie mam zaufania. Przy wiekszych szybkosciach mi nie dzialala(sprawdzalem oscyloskopem).Lepiej uzyj Timer1=wartosc. Spokojnie powinienes uzyskac ponad 1 Mhz.
pozdro/smalski

Zmieniłem w liniach z Load na Timer1 = A ale nic to nie dało nadal 10us.
Podejrzewam że nie pracuje z preskalerem =1 prawidłowo. Gdzieś czytałem z rok temu że kod programu będzie pracował z zegarem 14MHz (tak jest u mnie) a Timery z 8Mhz. Prawda czy nie ?. Z obliczeń na kalk.exe do wyliczania Timerów jeden cykl Timera przy 14Mhz to około 0.07us.Czyżby przeładowanie Licznika i jedno polecenie zajmowało tyle czasu?. Nie wiem co o ty sądzić.

Dodano po 52 [minuty]:

A no Panowie i Panie potrafi oj... potrafi.
Najpierw podzękowanie dla SMALSKI za rozjaśnienie i odzew.
Przedstawiam poniżej rozwiązanie, które przeszło moje najśmielsze oczekiwania 0.15us CZYLI 6.66MHz na wyjściu ale co najważniejsze nie trzeba definiować przerwania i tłuc się z opóźnieniami jest ono zdefiniowane wewnętrznie i w programie głównym możemy zająć się sterowaniem wyjścia , obsługą klawiatury i innymi bzdetami.
Czyli ten BASCOM nie taki BE jak to opisują . Kwestia podejścia do tematu.


$crystal = 14000000
Dim A As Word , B As Word
Config Timer1 = Timer , Prescale = 1 , Compare A = Toggle , Compare B = Disconnect , Clear Timer = 1

'konfiguracja timer1 do pracy w trybie compare
'zrównanie sie wartości rejestru compare1a z timerem powoduje wyzerowanie licznika
'oraz zmiane stanu wyjscia oc1a na przeciwny

A = 500 'wartość początkowa compare1a = A
Config Pinb.1 = Output 'linia oc1a jako wyjscie

Config Pind.0 = Input
Config Pind.1 = Input
Compare1a = A 'wartosc okreslajaca czestotliwosc sygnalu na wyjsciu oc1a


'petla glowna programu

Do
Compare1a = A
Set Portd.0 : Set Portd.1 ' obsługa klawiszy +/-
If Pind.0 = 0 Then
Waitms 1
If A < 65533 Then
A = A + 1
End If
End If
If Pind.1 = 0 Then
Waitms 1
If A > 0 Then
A = A - 1
End If
End If
Loop

End

Może się to przyda komuś bo było parę postów w tej sprewie.
Może ktoś ma inne lepsze i łatwiejsze rozwiązania.

A może zamiast:
If A < 65533 Then
A = A + 1
End If

to:
If A < 65533 Then incr A

to jest to samo ale zajmuje mniej miejsca w Bascomie (w procku)

incr A -> A=A+1
decr A -> A=A-1

pozdr.

Można jeszcze inaczej, jeżeli zależy Ci na przerwaniach, to przy deklaracji, na końcu parametr NOSAVE
On Timer1 Gen NOSAVE
Durny BASCOM wrzuca na stos prawie wszystkie rejestry po wejściu do przerwania (w sumie 29 sztuk w AVR), a przed wyjściem z przerwania zdejmuje rejestry ze stosu. Stąd niesamowite opóźnienie. Oczywiście po zastosowania NOSAVE rejestrami musisz zająć się sam, ale już tylko tymi wykorzystanymi.

Możesz także zrobić wstawke asm do obsługi samego przerwania, ale NOSAVE musi zostać. W ten sposób da się uzyskać częstotliwość ok fosc/4, ale wtedy pozostała część programu będzie troszkę kuleć.

Dzięki wszystkim którzy coś podpowiedzieli. Już trochę wiem o timerach w ATmegach 8.
Chciałbym zakończyć ten temat (by najmniej z mojej strony)
Jeszcze raz dzięki.
A tak a propo Bascom AVR to jest w nim skucha , a mianowicie brak jest poleceń compare2 , pwm2 z tego też względu trzeba używać nazw rejestrów np:

Tccr2 = 97 - PWM 8bit pin OC2 - 0 gdy licznik góra OC2- 1 gdy licznik dół Prescale - 1 gdy dodamy 8 to FAST-PWM
Ocr2 = 128 wypełnienie 50