XMega Event System & DMA -- Taster & Timer

[Che Guevara]

Hallo,

nachdem ich mein erstes Problem mit dem XMega erfolgreich gelöst habe, taucht jetzt das nächste auf:
Ich möchte mithilfe des Event-Systems und des DMAs eine PWM einlesen, sodass ich keine Interrupts benötige. Vorgestellt habe ich mir das folgendermassen:

-EventSystem Channel0 reagiert auf die PWM (fallende Flanke, momentan noch ein Taster an PortE.0)
-EventSystem Channel1 reagiert auf den TimerC0 Overflow (momentan noch 8Bit)
-DMA Channel0 wird von EventSystem Channel1 getriggert und der Timer wird wieder mit dem richtigen Start Wert vorgeladen
-DMA Channel1 wird von EventSystem Channel0 getriggert und der aktuelle Timer Wert wird in eine Variable (pwm_input) geschrieben

Mein Problem ist jetzt folgendes:
Wenn ich den Taster EINMALIG betätige wird die Interrupt Routine von DMA Channel1 unendlich oft aufgerufen (obwohl das nur 1mal passieren sollte). Diese ISR dient mir momentan nur zu debug Zwecken und wird später dann entfernt, sobald ich dieses Problem gelöst habe.
Hier mein Code:

$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



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


Dim Timer0_reload_value As Byte
Timer0_reload_value = 100

Dim Pwm_input As Byte
Pwm_input = 0


Config Tcc0 = Normal , Prescale = 1024 , Resolution = 8
Tcc0_per = Timer0_reload_value


Config Dma = Enabled , Doublebuf = Disabled , Cpm = Ch01rr23

Config Dmach0 = Enabled , Burstlen = 1 , Chanrpt = Enabled , Tci = Lo , Eil = Lo , Singleshot = Enabled , Sar = Burst , Sam = Fixed , Dar = Burst , Dam = Fixed , Trigger = &H02 , Btc = 1 , Repeat = 0 , Sadr = Varptr(timer0_reload_value) , Dadr = Varptr(tcc0_per)
Config Dmach1 = Enabled , Burstlen = 1 , Chanrpt = Enabled , Tci = Lo , Eil = Lo , Singleshot = Enabled , Sar = Burst , Sam = Fixed , Dar = Burst , Dam = Fixed , Trigger = &H01 , Btc = 1 , Repeat = 0 , Sadr = Varptr(tcc0_per) , Dadr = Varptr(pwm_input)

On Dma_ch1 Timer_ovf_int


Config Porte.0 = Input
Porte_pin0ctrl = &B00_011_010                               'enable pullup, react on falling edge


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


'Settings:
'DMACH0: Trigger = EV_SYS_CH1 (TCC0_OVF) , timer0_reload_value --> tcc0_per
'DMACH1: Trigger = EV_SYS_CH0 (PORTE.1) , tcc0_per --> pwm_input


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

Print #1 , "START"
Print #1 ,



Do





Loop

Timer_ovf_int:

   Print #1 , "Taster betätigt!"

Return

End

Weiß jemand, warum die ISR so oft aufgerufen wird und wie ich es verhindern kann, sodass PRO Tasterdruck nur EIN dma Transfer durchgeführt wird?

Vielen Dank & Gruß
Chris

[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