XMega Event System & DMA -- Taster & Timer

[Kampi]

Ist nur ne Idee und ohne jetzt in den Code zu gucken. Löscht du in der ISR auch das Interruptflag?
Weil beim UART Rx-Interrupt z.B. musst du auch den Buffer leeren, sonst wird die ISR andauernd aufgerufen.
Sonst lösch das Interruptbit mal manuell.....vielleicht löst das ja das Problem.

[Che Guevara]

Hallo,

danke, das wars Ich hatte mir vorher sogar noch ein paar Beispiele angesehen, wo das Flag auch gelöscht wurde, aber irgendwie habe ich das wieder vergessen... Dankeschön!
Jedoch gibts jetzt schon das nächste Problem:
Folgende Zeile

Config Event_system = Dummy , Mux0 = Porte.0 , Digflt0 = 8 Mux1 = Tcc0_ovf

funktioniert (ohne Komma zwischen Digflt0 = 8 & Mux1 = Tcc0_ovf), diese nicht:

Config Event_system = Dummy , Mux0 = Porte.0 , Digflt0 = 8 , Mux1 = Tcc0_ovf

Aber ich denke mal, das ist ein Bug?!
Mit der ersten Zeile wird die DMA Channel1 ISR aufgerufen, bei der zweiten Zeile jedoch nicht... Aber damit kann ich Leben, wenn ichs weiß

Nächstes Problem:
Wenn ich mir in der DMA Channel1 ISR die PWM_Input Variable ausgeben lasse, trägt diese immer den Wert von Timer_Reload_Value... Ich glaube, der Timer läuft noch nicht... Mal sehen

Vielen Dank & Gruß
Chris

EDIT:
1. Ich habe die Register vertauscht!! Das Register, in dem der aktuelle Zählerstand steht, heißt TCC0_CNT.
2. Gerade habe ich gesehen, dass man mit dem Timer auch direkt die PWM Pulsweite messen kann... Somit wird mir der Umweg über den DMA usw... erspart... Trotzdem ein sehr interresantes Kapitel

EDIT2:
Also: PWM einlesen mit TCE0 CaptureA funktioniert, mit CatpureB jedoch nicht... Weiß jemand Rat?
Das funktioniert:

$regfile = "xm64a3def.dat"
$crystal = 32000000
$framesize = 100
$hwstack = 100
$swstack = 100


$lib "xmega.lib" : $external _xmegafix_clear : $external _xmegafix_rol_r1014


Config Osc = Disabled , 32mhzosc = Enabled
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1


Dim X As Word


Config Com2 = 38400 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM2:" For Binary As #1


Config Porte.0 = Input
Porte_pin0ctrl = &B00_011_010

Config Event_system = Dummy , Mux0 = Porte.0 , Digflt0 = 1

Config Tce0 = Normal , Prescale = 1 , Capturea = Enabled , Event_source = E0 , Event_action = Pwc , Resolution = 16



Config Tcd0 = Pwm , Prescale = 1 , Comparea = Enabled , Resolution = 16
Tcd0_cca = 30000


Enable Interrupts
Config Priority = Static , Vector = Application , Lo = Enabled


Do


   Incr X
   If X = 65500 Then X = 0
   Tcd0_cca = X
   Print #1 , Tce0_cca


Loop

End

Das funktioniert nicht:

$regfile = "xm64a3def.dat"
$crystal = 32000000
$framesize = 100
$hwstack = 100
$swstack = 100


$lib "xmega.lib" : $external _xmegafix_clear : $external _xmegafix_rol_r1014


Config Osc = Disabled , 32mhzosc = Enabled
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1


Dim X As Word


Config Com2 = 38400 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM2:" For Binary As #1


Config Porte.1 = Input
Porte_pin1ctrl = &B00_011_010

Config Event_system = Dummy , Mux0 = Porte.1 , Digflt0 = 1

Config Tce0 = Normal , Prescale = 1 , Captureb = Enabled , Event_source = E0 , Event_action = Pwc , Resolution = 16



Config Tcd0 = Pwm , Prescale = 1 , Comparea = Enabled , Resolution = 16
Tcd0_cca = 30000


Enable Interrupts
Config Priority = Static , Vector = Application , Lo = Enabled


Do


   Incr X
   If X = 65500 Then X = 0
   Tcd0_cca = X
   Print #1 , Tce0_ccb


Loop

End