Luna und Timer0 Compare mit Atmega32

[Holger W. (mb_holger)]

Hallo

hier mein c Code
Die LED geht aller exakt aller 1 s an und aus.

    #include <avr/io.h>
    #include <avr/interrupt.h>

    // TIMER 
    int k = 0;

    ISR(TIMER0_COMP_vect)
    {
       k++; if (k==5000) {k = 0; PORTB ^= (1<<PB0); } // zustandswechsel PB1 und PB0
          
    }  // Ende ISR

    int main()
    {
       // Timer 0
       TCCR0 = (1<<WGM01); // CTC Modus
       TCCR0 |= (1<<CS01); // Prescaler 8 !!!!!!!!!!
       
       OCR0 = 199; // 8000000/8/200 entspricht 5000HZ also 0,2 ms  ,damit ergibi sich k=
                   // 1000 ms / 0,2 ms = 5000, das ist k in ISR
       
       // Compare Interrupt erlauben
       TIMSK |= (1<<OCIE0);
       
       // Global Interrupts aktivieren
       sei();
       
       DDRB |= (1 << PB0); // damit ist dann PB0 ein Ausgang

       while(1){   
       } // Ende while
       return 0;
       
    } //Ende main

Ich hatte die Hoffnung,dass es mit Luna einfacher wird.  Der Timer ohne 
Compare läst sich einfach in Luna programmieren auch die Port 
Ansteuerung für die LED ist übersichtlich. Hier mein erster Luna Code.

    avr.device = atmega32   'Controller-Typ festlegen
    avr.clock = 8000000      'Dem Compiler mitteilen mit welcher Taktrate der Controller läuft
    avr.stack = 64         'Den Programmstack einstellen

    #define LED1 as PortB.0

    dim k as integer

    'Die beiden Port-Pins (LED1+2) als Ausgang konfigurieren

    LED1.mode = output   'Der Compiler ersetzt hier das "LED1" durch "PortD.0"

    Timer0.Isr = meineServiceRoutine ' Serviceroutine zuweisen
    Timer0.clock = 8' Prescaler einstellen
    Timer0.Enable ' Timer einschalten

    Avr.Interrupts.Enable ' Globale Interrupts einschalten

    do
    loop

    Isr meineServiceRoutine

    K=k+1
    when K=3000 do LED1.toggle
    when k=3000 do K=1

    EndIsr

Super wäre es gebe eine Lösung in dieser Art für Compare Match. Einfach 
den Timer in dieser Art einstellen, mit
# http://avr.myluna.de/doku.php?id=de:timer0
Compare Match
Name Beschreibung Wert/Typ
.CmpA.Isr CompareA-Serviceroutine definieren Isr-Name
.CmpA.Mode Aktion bei erfolgreichem CompareA an Pin „OC0A“ nothing, 
toggle, clear, set
.CmpA.Enable CompareA ISR aktivieren - -
.CmpA.Disable CompareA ISR deaktivieren - -
.CmpA.Clear.Enable Automatisches Nullsetzen des Zählers bei Gleichheit 
ein - -
.CmpA.Clear.Disable Automatisches Nullsetzen des Zählers bei Gleichheit 
aus - -
.CmpA.Value CompareA-Zählerwert des Timers auslesen oder setzen (OCR0A)

Ich schaffe es mit dem Atmega32 micht, der hat keinen Compare A und B, 
sondern nur einen Compare am Timer0. siehe C Code. Wenn ich das A weg 
lasse in Luna kommt eine Fehlermeldung oder bei anderen Versuchen geht 
Compare nicht ,der Timer zählt einfach hoch bis zum Ende und macht bei 
199 keine ISR. Vielleicht gibt es eine einfache Lösung in dieser 
Richtung.

Grüße Holger

[Holger W. (mb_holger)]

Ich habe das Problem gelöst, mit einen Tipp von Uwe.
hier der richtige LunaAVR Code falls es jemanden interessiert.

avr.device = atmega32  //Controller-Typ festlegen
avr.clock = 8000000     //Dem Compiler mitteilen mit welcher Taktrate der Controller läuft
avr.stack = 64        //Den Programmstack einstellen

#define LED1 as PortB.0  
LED1.mode = output  

Avr.Interrupts.Enable // Globale Interrupts einschalten
Timer0.Cmp.Isr = meineServiceRoutine // Serviceroutine zuweisen
timer0.pwm.mode = 2
avr.ocr0 = 199
Timer0.Cmp.Enable // Timer einschalten
Timer0.clock = 8 // Prescaler einstellen

dim k as integer
k=0

do
loop

Isr meineServiceRoutine
K=k+1
when K=5000 do LED1.toggle
when k=5000 do k=0

EndIsr

Holger