Przyjazne Bascom Forum

Forum
https://bart-projects.pl/forum/

DMA włącz / wyłącz przez zmienną i przycisk

https://bart-projects.pl/forum/viewtopic.php?f=18&t=502

Strona 1 z 1

DMA włącz / wyłącz przez zmienną i przycisk

: 29 lut 2024, 16:23
autor: tomaszdko
Naskrobałem kod do generowania przebiegu sinus przez DAC za pomocą DMA i tablicy , częstotliwość od 8Hz do 58kHz (mnie interesuje 40kHz do przetwornika ultradźwiękowego) .
Nie mogę ogarnąć wyzwalania i zatrzymywania ponownego tego przebiegu . Jak kontrolować takie start/stop za pomocą zmiennej .

[img
SDS00003.jpg
][/img]
Code: [Zaznacz cały] [Rozwiń/Zwiń]
  1. $REGFILE = "XM128A1UDEF.DAT"
  2. $CRYSTAL = 48000000   '50MHz
  3. $HWSTACK = 200
  4. $SWSTACK = 200
  5. $FRAMESIZE = 200
  6. $LIB "XMEGA.LIB"
  7. ENABLE INTERRUPTS
  8. '-------------------------------------------------------------------------------------------------------------------------------------------
  9. 'CONFIG OSC = ENABLED , PLLOSC = ENABLED , PLLMUL =  29
  10. 'CONFIG SYSCLOCK = PLL
  11. '-------------------------------------------------------------------------------------------------------------------------------------------
  12. CONFIG OSC = ENABLED , EXTOSC = ENABLED , PLLOSC = ENABLED , _
  13. RANGE = 9MHZ_12MHZ , STARTUP = XTAL_16KCLK , PLLSOURCE = EXTCLOCK , PLLMUL = 6 '6 X 8MHZ = 48MHZ     0.000000020833 SEK
  14. CONFIG SYSCLOCK = PLL , PRESCALEA = 1 , PRESCALEBC = 1_1
  15. CONFIG PRIORITY = STATIC , VECTOR = APPLICATION , HI = ENABLED , MED = ENABLED , LO = ENABLED
  16. '*******************************************************************************************************************************************
  17. '*** DACb **********************************************************************************************************************************
  18. '*******************************************************************************************************************************************
  19. CONFIG DACB = ENABLED , IO0 = ENABLED, IO1 = ENABLED, CHANNEL = DUAL , REFERENCE = AVCC , INTERVAL = 64 , REFRESH = 64
  20. START DACB
  21. CONFIG PORTB.2 = OUTPUT
  22. '*******************************************************************************************************************************************
  23. '*** UART-COM5 *****************************************************************************************************************************
  24. '*******************************************************************************************************************************************
  25. CONFIG COM5 = 115200 , MODE = ASYNCHRONEOUS , PARITY = NONE , STOPBITS = 1 , DATABITS = 8
  26. OPEN "COM5:" FOR BINARY AS #5
  27. CONFIG SERIALIN4 = BUFFERED , SIZE = 30 , BYTEMATCH = 13
  28. ENABLE USARTe0_RXC, LO
  29. DIM RS232_5 AS STRING * 20               'PE3/RS232 TXD0
  30. DIM COM5 AS LONG                         ' PE2/RS232 RXD0
  31. '*******************************************************************************************************************************************
  32. '*** SD DOS/AVR ****************************************************************************************************************************
  33. '*******************************************************************************************************************************************
  34. $INCLUDE "CONFIG_MMCSD_HC.BAS"          '• MISO        – pin D6   MODUL AL-XAVRB V2.0
  35. $INCLUDE "CONFIG_AVR-DOS.BAS"           '• MOSI        – pin D5
  36. DIM BTEMP1 AS BYTE                      '• SCK         – pin D7
  37. DIM FF AS BYTE                          '• CS          – pin D4
  38. BTEMP1 = INITFILESYSTEM(1)             '• CARD DETECT – pin D3
  39. GBDRIVEERROR=0
  40. FF =FREEFILE()
  41. '*******************************************************************************************************************************************
  42. '*** XRAM SDRAM 8MB MT48LC32M4A2P-75IT *****************************************************************************************************
  43. '*******************************************************************************************************************************************
  44. CONFIG XRAM = 3PORT , SDBUS = 4 , SDCOL = 10 , SDCAS = 3 , SDROW = 12 , REFRESH = 500 , INITDELAY = 3200 , MODEDELAY = 2 , ROWCYCLEDELAY = 7 , _
  45. ROWPRECHARGEDELAY = 7 , WRDELAY = 1, ESRDELAY = 7 , ROWCOLDELAY = 7 , MODESEL3 = SDRAM , ADRSIZE3 = 8M , BASEADR3 = &H0000
  46. $XRAMSIZE = 8000000
  47. DIM RAM_TAB(720) AS XRAM WORD
  48. ' out &h8000,1    'zapis 1 do pamieci xram
  49. ' lol= inp(&h8000) 'odczyt
  50. '---
  51. ' odczyt adresu zmiennej
  52. ' w=varptr(b)
  53. ' print w
  54. ' XRAM Start direct after the SRAM range of a XMEGA which is after 16KByte so the first XRAM address is 16384
  55. ' The maximum XRAM is in case of 8MByte SDRAM  = 8000000 - 16384 = 7983616 Byte
  56. '*******************************************************************************************************************************************
  57. '*** LCD 240x320 ILI9341 *******************************************************************************************************************
  58. '*******************************************************************************************************************************************
  59. CONFIG VPORT0 = E    'NIE TRZEBA PODLACZYC/DODACNA "-" Cs1=CS)  Rst=RESET    A0=DC  Si=SDI    Sclk=SCK
  60. CONFIG GRAPHLCD = COLOR , CS1 = PORT0.0 , RST = PORT0.6 , A0 = PORT0.5 , SI = PORT0.4 , SCLK = PORT0.7
  61. CONST PORTRAIT=0
  62. CONST ROTATE_180 = 1
  63. DIM OFFSET256 AS BYTE
  64. $LIB "glcd-ILI9341_2R8_240x320.lib"
  65. INITLCD
  66. CLS
  67. CONST BLACK = &B0000_0000
  68. CONST RED = &B1110_0000
  69. CONST GREEN = &B0001_1100
  70. CONST BLUE = &B0000_0011
  71. CONST MAGENTA = &B1110_0011
  72. CONST YELLOW = &B1111_1100
  73. CONST CYAN = &B0001_1111
  74. CONST WHITE = &B1111_1111
  75. CONST ORANGE = &B1111_0100
  76. CONST BRIGHTGREEN = &B0011_1110
  77. CONST BRIGHTBLUE = &B0001_1111
  78. CONST DARKRED = &B1100_0000
  79. CONST DARKGREEN = &B0001_0100
  80. CONST DARKBLUE = &B0000_0010
  81. OFFSET256 = 1
  82. BOXFILL (0 , 0) - (64 , 240) , BLACK
  83. OFFSET256 = 0
  84. BOXFILL (0 , 0) - (255 , 240) , BLACK
  85. SETFONT COLOR8X8
  86. 'SETFONT COLOR16X16
  87. '******************************************************************************************************************************************
  88. '*** ZMIENNE ******************************************************************************************************************************
  89. '******************************************************************************************************************************************
  90. DIM KAT AS WORD
  91. DIM SINUS AS WORD
  92. DIM DANE(180) AS WORD
  93. dim skacz as word
  94. '******************************************************************************************************************************************
  95. '*** PROGRAM ******************************************************************************************************************************
  96. '******************************************************************************************************************************************
  97. RESTORE SIN_DATA:
  98. FOR KAT = 1 TO 90
  99. READ SINUS
  100. DANE(KAT)=SINUS
  101. NEXT
  102. '******************************************************************************************************************************************
  103. '*** DMA0 *********************************************************************************************************************************
  104. '******************************************************************************************************************************************
  105. CONFIG TCC0 = NORMAL , PRESCALE = 1
  106. TCC0_PER = 65535
  107.  
  108. CONFIG EVENT_SYSTEM = DUMMY , MUX0 = TCC0_OVF
  109. CONFIG DACB = ENABLED , Io0 = ENABLED , Io1 = ENABLED , CHANNEL = DUAL , REFERENCE = AVCC , INTERVAL = 4 , REFRESH = 16 , TRIGGER_CH0 = ENABLED , EVENT_CHANNEL = 0
  110.  
  111. CONFIG DMA = ENABLED , DOUBLEBUF = DISABLED , CPM = RR
  112. CONFIG DMACH0 = ENABLED , BURSTLEN = 2 , CHANRPT = ENABLED , TCI = OFF , EIL = OFF , SINGLESHOT = ENABLED , SAR = BLOCK , _
  113. SAM = INC , DAR = BURST , DAM = INC , TRIGGER = &H25  , BTC = 180 , REPEAT = 0 , SADR = VARPTR(DANE(1)) , DADR = VARPTR(DACB_CH0DATAL)
  114.  
  115. COM5=65535
  116. DO
  117.  
  118. LCDAT      10 , 0 , "DMA_CTRL         :" ;BIN(DMA_CTRL)          ;"   ", WHITE , BLACK
  119. LCDAT      20 , 0 , "DMA_INTFLAGS     :" ;BIN(DMA_INTFLAGS)      ;"   ", WHITE , BLACK
  120. LCDAT      30 , 0 , "DMA_STATUS       :" ;BIN(DMA_STATUS)        ;"   ", WHITE , BLACK
  121. LCDAT      40 , 0 , "DMA_TEMP         :" ;BIN(DMA_TEMP)          ;"   ", WHITE , BLACK
  122. LCDAT      50 , 0 , "DMA_CH0_CTRLA    :" ;BIN(DMA_CH0_CTRLA)     ;"   ", WHITE , BLACK
  123. LCDAT      60 , 0 , "DMA_CH0_CTRLB    :" ;BIN(DMA_CH0_CTRLB)     ;"   ", WHITE , BLACK
  124. LCDAT      70 , 0 , "DMA_CH0_ADDRCTRL :" ;BIN(DMA_CH0_ADDRCTRL)  ;"   ", WHITE , BLACK
  125. LCDAT      80 , 0 , "DMA_CH0_TRIGSRC  :" ;BIN(DMA_CH0_TRIGSRC)   ;"   ", WHITE , BLACK
  126. LCDAT     110 , 0 , "DMA_CH0_TRFCNT   :" ;DMA_CH0_TRFCNT         ;"   ", WHITE , BLACK
  127. LCDAT     120 , 0 , "DMA_CH0_REPCNT   :" ;DMA_CH0_REPCNT         ;"   ", WHITE , BLACK
  128. LCDAT     130 , 0 , "DMA_CH0_SRCADDR0 :" ;DMA_CH0_SRCADDR0       ;"   ", WHITE , BLACK
  129. LCDAT     140 , 0 , "DMA_CH0_SRCADDR1 :" ;DMA_CH0_SRCADDR1       ;"   ", WHITE , BLACK
  130. LCDAT     150 , 0 , "DMA_CH0_SRCADDR2 :" ;DMA_CH0_SRCADDR2       ;"   ", WHITE , BLACK
  131. LCDAT     160 , 0 , "DMA_CH0_DESTADDR0:" ;DMA_CH0_DESTADDR0      ;"   ", WHITE , BLACK
  132. LCDAT     170 , 0 , "DMA_CH0_DESTADDR0:" ;DMA_CH0_DESTADDR1      ;"   ", WHITE , BLACK
  133. LCDAT     180 , 0 , "DMA_CH0_DESTADDR0:" ;DMA_CH0_DESTADDR2      ;"   ", WHITE , BLACK
  134.  
  135. LCDAT 200 , 0 , "COM5 ";COM5 , WHITE, BLACK
  136. TCC0_PER=COM5
  137. LOOP
  138. END
  139. '-------------------------------------------------------------------------------------------------------------------------------------------
  140. '$INCLUDE "COLOR16x16.FONT"
  141. $INCLUDE "COLOR8x8.FONT"
  142. '-------------------------------------------------------------------------------------------------------------------------------------------
  143. SERIAL4CHARMATCH:
  144. PUSHALL
  145. INPUT #5 , RS232_5 NOECHO
  146. COM5 = VAL(RS232_5)
  147. POPALL
  148. RETURN
  149.  
  150. 'DMA_INT:
  151. 'RETURN
  152.  
  153. SIN_DATA:
  154. DATA 2081%,2216%,2352%,2485%,2617%,2745%,2871%,2992%,3109%,3220%,3326%,3425%,3518%,3604%,3682%,3752%
  155. DATA 3814%,3867%,3911%,3947%,3972%,3989%,3996%,3994%,3982%,3961%,3930%,3890%,3841%,3784%,3718%,3644%
  156. DATA 3562%,3473%,3376%,3274%,3165%,3051%,2932%,2808%,2681%,2551%,2419%,2284%,2149%,2012%,1877%,1741%
  157. DATA 1608%,1476%,1348%,1222%,1101%,984%,873%,767%,668%,575%,489%,411%,341%,279%,226%,182%
  158. DATA 146%,121%,104%,97%,99%,111%,132%,163%,203%,252%,309%,375%,449%,531%,620%,717%
  159. DATA 819%,928%,1042%,1161%,1285%,1412%,1542%,1674%,1809%,1944%

Re: DMA włącz / wyłącz przez zmienną i przycisk

: 02 mar 2024, 17:57
autor: niveasoft
Próbowałeś bitu ENABLE w DMA_CTRL albo DMA_CH0_CTRLA?
Według dokumentacji DMA wyłączy się dopiero jak skończy przesyłać rozpoczęty transfer.
Code: [Zaznacz cały] [Rozwiń/Zwiń]
  1. SwitchSub:
  2.  If SwitchByte = 0 Then SwitchByte = 1 Else SwitchByte = 0  'teraz jedno z poniższych
  3.  DMA_CTRL.7 = SwitchByte
  4.  DMA_CH0_CTRLA.7 = SwitchByte
  5. Return
Jak Bascom ustawia wartośc bitową z bajtu to weźmie jego bit 0.

Re: DMA włącz / wyłącz przez zmienną i przycisk

: 06 mar 2024, 19:16
autor: tomaszdko
Trochę się pobawiłem DMA . Podstawowa sprawa i najważniejsza to to że działa niezależnie od procka i zatrzymanie "Dma_ch0_ctrla.7=0" przesyłu tablicy powoduje włączenie rejestrów błędu .
Nie szukałem dalej jak zrobić by kontynuować przesył bo chyba najłatwiej to by było ponowne skonfigurowanie DMA .
Tu jest przykład użycia programu z pierwszego ale z użyciem kilku linijem wł/wył
Code: [Zaznacz cały] [Rozwiń/Zwiń]
  1. IF pinA.0=0 THEN
  2. Dma_ch0_ctrla.7  = 1
  3. ELSE
  4. Dma_ch0_ctrla.7  = 0
  5. END IF
Jak widać każde wł/wył powoduje deformację a ostatnia fotka pokazuje napięcie stałe (jest to ostatnia dana z tablicy 1944% i zgadza się z napięciem na DAC).
Efekt jest taki sam za każdym razem . Kiedy używa się zatrzymanie przez TIMER lub DAC to DMA wstrzymuje nadawanie ale nie wykrzacza się . Powtórne uruchomienie TIMER lub DAC powoduje
poprawną pracę . Musiałem tylko dopisać zerowanie DAC bo wartość przy zatrzymaniu ma taką jak była podana z tablicy przez DMA .
Ciekawa sprawa to DMA ale dla hobbysty to tylko chyba przebiegi jak ten tu bo do poważniejszych spraw to trzeb by się zagłębić i pamiętać o tym że DMA jest niezależne!
Strefa czasowa UTC+01:00
Strona 1 z 1
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/