C6747利用McASP发送中断方式完成音频输入信号的直接输出 - OMAP-L138 - 嵌入式开发者社区 - 51ele.net
设为首页收藏本站

嵌入式开发者社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 5075|回复: 1
打印 上一主题 下一主题

C6747利用McASP发送中断方式完成音频输入信号的直接输出

[复制链接]

1

主题

1

帖子

23

积分

新手上路

Rank: 1

积分
23
跳转到指定楼层
楼主
发表于 2016-3-15 16:07:18 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
C6747和C6748感觉差不多,我想实现McASP发送中断方式控制音频信号,在轮询的例程基础上改的,轮询程序可以实现,但是中断一直实现不了,也找不到错误,求大神帮忙!下边是主要程序:
, S8 C$ B4 q1 i$ f9 v: q* Dmain文件:
- O3 @% v* P% J$ ^% _interrupt void interrupt4(void)  ; O/ q- _1 o& g7 |
{/ k3 p! K  G) x: H4 _
  Uint32 sample;/ ~2 V* t- R  S4 s5 w9 ~+ H& o+ W

* a  F& M) g+ H5 F( I' ~6 F  sample = input_sample(); // read L + R samples from ADC
) t. ?* G( k, O% N8 _  ~; X# g5 i  output_sample(sample);   // write L + R samples to DAC
. |( d9 p5 s% g5 N/ N' C  return;8 M# W+ ]2 O; M+ V' G
}
/ \# f3 u7 `: f" {/ I# s0 r! X8 D5 C6 T. m& F
int main( void )" ^0 _0 b- m2 {' Z0 [7 Z) p
{
, g9 r9 ~( f9 Z* s3 C7 z. U% U: l8 v% g* U+ N+ \
    /* Initialize BSL */& C0 J' ^6 {/ ]" z, J2 r# p, b/ q
    EVMC6747_init( );
  T+ ~1 L" A5 a. m- n' w6 V        /* Call evmc6747_intr function */) k) }  u" p) f( g
    aic3106_init( );* w% u+ W7 p" q' e
        while(1);
$ W0 K" v0 w7 v9 J}
) I/ L$ C: w, n) @! ?% |; Z5 c
" w1 X' Y# X1 n$ T
$ t  ]2 Q& a+ J  f2 j3 u/ Jaic3106_init文件的一部分,McASP配置部分,采用内部时钟,I2S方式,同步传输。音频芯片的配置应该没问题
+ j( O! {, N. s# J/* Initialize MCASP1 *// W& o8 u* r1 ]0 D7 @" g
    mcasp = &MCASP_MODULE_1;
/ m% [1 `* D5 \$ _2 s    mcasp->regs->GBLCTL  = 0;       // Reset
; D$ ^7 D, u7 b" q9 v$ e+ e' F    mcasp->regs->RGBLCTL = 0;       // Reset RX: B6 n# p3 P. |) m
    mcasp->regs->XGBLCTL = 0;       // Reset TX
) k5 t0 H8 ~# W    mcasp->regs->PWRDEMU = 1;       // Free-running
1 p7 i/ O/ p) T: r, A2 ~7 Q   // configure McASP0 receive registers' G+ f% c3 J& L; p) I$ T
    mcasp->regs->RMASK      = 0xFFFFFFFF; // No padding used- J* N! X8 y& U: F1 O
    mcasp->regs->RFMT       = 0x00018078; // MSB 16bit, 0-delay, no pad, CFGBus4 V; h6 L8 g% z9 W1 ?* @; I
    mcasp->regs->AFSRCTL    = 0x00000112; // 2TDM, 1bit Falling, External FS, word# N$ c  ]) t) i7 U, J
    mcasp->regs->ACLKRCTL   = 0x000000AF; // Rising INTERNAL CLK,(from tx side): r7 e( R7 ~1 C0 {
    mcasp->regs->AHCLKRCTL  = 0x00000000; // INT CLK (from tx side). r  ^: m6 l7 b& h! S) `+ R
    mcasp->regs->RTDM       = 0x00000003; // Slots 0,1
. G2 o# h0 b! X. H& h    mcasp->regs->RINTCTL    = 0x00000000; // Not used/ i$ y- x) [) U. b: D& u
    mcasp->regs->RCLKCHK    = 0x00FF0008; // 255-MAX 0-MIN, div-by-256
  }3 X  B# s7 @- x1 J! |6 W. Q: x) o5 n5 Q' i+ ?; j$ ]
    mcasp->regs->XMASK      = 0xFFFFFFFF; // No padding used
) s2 Q6 m8 X# j* E4 c$ Q    mcasp->regs->XFMT       = 0x00018078; // MSB 16bit, 0-delay, no pad, CFGBus; m; X! g( D/ y+ {" {* s
    mcasp->regs->AFSXCTL    = 0x00000112; // 2TDM, 1bit Rising edge INTERNAL FS, word  a: h! f) U& r, {3 y. I
    mcasp->regs->ACLKXCTL   = 0x000000AF; // ASYNC, Rising INTERNAL CLK, div-by-16- [2 A. l- l! R, D) e
    mcasp->regs->AHCLKXCTL  = 0x00000000; // EXT CLK
: |  P9 w3 f4 g8 l    mcasp->regs->XTDM       = 0x00000003; // Slots 0,1
: P3 }8 C: j) V, q) G4 F. U4 o! o2 I    mcasp->regs->XINTCTL    = 0x00000020; // interrupt on transmit
7 W9 }) H: Q/ W4 Q- U    mcasp->regs->XCLKCHK    = 0x00FF0008; // 255-MAX 0-MIN, div-by-2568 J1 f/ S$ J$ x4 X/ z$ l
* D; v. y: r% V. r, ~
    mcasp->regs->SRCTL5     = 0x000D;     // MCASP1.AXR1[5] --> DIN
) t+ D) v. f  m1 O* i# K    mcasp->regs->SRCTL0     = 0x000E;     // MCASP1.AXR1[0] <-- DOUT
; M) `, W9 d" t" y    mcasp->regs->PFUNC      = 0;          // All MCASPs1 j: X- k2 q% z+ L% }# ?
    mcasp->regs->PDIR       = 0x14000020; // All inputs except AXR0[5], ACLKX1, AFSX19 S5 d+ B- q. ]" D' A% r0 p
3 W1 ?, s  D  L4 F/ m( z' y- p% K% _
    mcasp->regs->DITCTL     = 0x00000000; // Not used# I+ I( ~; e8 _  ~8 [  Q
    mcasp->regs->DLBCTL     = 0x00000000; // Not used
" C% W* F- \) K    mcasp->regs->AMUTE      = 0x00000000; // Not used5 y% Y; w$ Y# J) \4 ^

3 A* u6 J. _9 x. R6 ^/* Starting sections of the McASP*/
7 D$ W/ S. C' H; b' z    mcasp->regs->XGBLCTL |= GBLCTL_XHCLKRST_ON;
7 f6 m, H, Q; b& R$ P" w* {! p    while ( ( mcasp->regs->XGBLCTL & GBLCTL_XHCLKRST_ON ) != GBLCTL_XHCLKRST_ON );  
% b; e' y4 r1 c  c% c    mcasp->regs->RGBLCTL |= GBLCTL_RHCLKRST_ON; / X* l  i+ @. s  G. Q7 L
    while ( ( mcasp->regs->RGBLCTL & GBLCTL_RHCLKRST_ON ) != GBLCTL_RHCLKRST_ON );3 J- h. o8 d/ r

/ @! ~, v; W0 h8 F3 j    mcasp->regs->XGBLCTL |= GBLCTL_XCLKRST_ON; : X% y' e- A$ J7 A
    while ( ( mcasp->regs->XGBLCTL & GBLCTL_XCLKRST_ON ) != GBLCTL_XCLKRST_ON );
: S8 \- t% D( j% ~# U; X* p    mcasp->regs->RGBLCTL |= GBLCTL_RCLKRST_ON; 0 y# I1 L' ]- q+ M& }5 u. c
    while ( ( mcasp->regs->RGBLCTL & GBLCTL_RCLKRST_ON ) != GBLCTL_RCLKRST_ON );
, N9 N! ]! Z% W5 }0 A" S' ~
) J! w/ \' t8 N3 Z* g; k- k  e4 N    mcasp->regs->XSTAT = 0x0000ffff;
0 H' {& z( ?/ R    mcasp->regs->RSTAT = 0x0000ffff; . k5 F9 q* D. s
' z- h" o8 D) g' q( }- Y" Y
    mcasp->regs->XGBLCTL |= GBLCTL_XSRCLR_ON;
# f8 d/ g0 Q& g    while ( ( mcasp->regs->XGBLCTL & GBLCTL_XSRCLR_ON ) != GBLCTL_XSRCLR_ON );  E; _8 f  e% U4 `) {% _4 X) Q
    mcasp->regs->RGBLCTL |= GBLCTL_RSRCLR_ON; ' b: m1 j1 p8 _6 j+ ~8 X
    while ( ( mcasp->regs->RGBLCTL & GBLCTL_RSRCLR_ON ) != GBLCTL_RSRCLR_ON );" n% N2 ?2 C. a; ?, n9 I0 {: F

; E4 B6 M0 \  K( I0 q3 T. R3 i  r    /* Write a 0, so that no underrun occurs after releasing the state machine */
& ?3 a9 Z' T( p( O, J" A6 T    mcasp->regs->XBUF5 = 0;
! }8 s" A4 |+ H  v/ h5 Y- Z    mcasp->regs->RBUF0 = 0;
. @7 l8 l( Z' V/ N! z1 b( Q1 k
    mcasp->regs->XGBLCTL |= GBLCTL_XSMRST_ON;
2 U% W" n7 ?5 @    while ( ( mcasp->regs->XGBLCTL & GBLCTL_XSMRST_ON ) != GBLCTL_XSMRST_ON );. P+ b7 p& \8 y. \7 t5 x
    mcasp->regs->RGBLCTL |= GBLCTL_RSMRST_ON;
6 p1 U* G9 W; P* S0 `8 \. V1 y    while ( ( mcasp->regs->RGBLCTL & GBLCTL_RSMRST_ON ) != GBLCTL_RSMRST_ON );
: }  H, G; i8 O* i" p( `& d% a$ g9 @+ T( Q
    mcasp->regs->XGBLCTL |= GBLCTL_XFRST_ON;
2 F! c" `+ M( k' _) `    while ( ( mcasp->regs->XGBLCTL & GBLCTL_XFRST_ON ) != GBLCTL_XFRST_ON );8 @0 `# H/ l2 h, _, Z* u( t* ~( R
    mcasp->regs->RGBLCTL |= GBLCTL_RFRST_ON; 2 L4 w  M8 I( h) u
    while ( ( mcasp->regs->RGBLCTL & GBLCTL_RFRST_ON ) != GBLCTL_RFRST_ON );
4 \, W7 ]* _6 Z# J& b; Z' d( \8 i, L4 [
    CSR = 0x0000;
% j5 R5 g5 X' X' }/ j    INTC_INTMUX1 = 0x3d;9 w! j- C$ X* Q, g& L  z  u
    ISTP = (unsigned int)vectors;+ p* |6 Q& N" G
    ICR = 0xFFF0;  ; v( S0 q5 Z3 r! K2 ^
    IER |= 0x12;  
' S/ N; I; f, Z+ e8 D    CSR |= 0x01;  $ [% m/ r- Y; B3 S) l) R3 ?8 `
; r" J2 s5 j$ e) n/ Q

7 o- v5 D, m$ L. Q& b6 c; G3 X1 Y$ Y$ L: B  w
还有就是两个输入输出函数:
& N& W7 M# Q+ H1 Jvoid output_sample(Int32 out_data)
# E1 U8 T* M/ N4 S+ m+ f{& [, q! F2 D; d- e0 T" X4 C. y
  AIC31_data.uint = out_data;  
# Z+ m% h2 g: j/ |  MCASP1_XBUF5_32BIT = AIC31_data.uint;
$ N7 f1 q1 n6 N. _/ J}
8 q. v' E( P2 ?' k1 n* V  l
( y7 C0 }4 ]# k. G& k! {3 v6 nInt32 input_sample(void)
: a% v/ m& ]9 z" r" F3 s( q$ e{  & Q' @% c3 c/ `
  AIC31_data.uint = MCASP1_RBUF0_32BIT;7 S, w& h! A4 v4 J8 a1 A% y. K
  return (AIC31_data.uint);8 d) P' U0 Y9 T% `2 K4 q, L0 m
}
5 t& t2 v: j2 j3 t: y! _; f- ?( R
1 l) F4 V. F4 j; o0 P+ s
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖
回复

使用道具 举报

3

主题

852

帖子

3538

积分

创龙

Rank: 8Rank: 8

积分
3538
沙发
发表于 2016-3-16 11:55:59 | 只看该作者
可以参看创龙提供的例程:AUDIO_LINE_OUT_INTR——Line Out 音频输出(中断方式)
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|嵌入式开发者社区 ( 粤ICP备15055271号

GMT+8, 2025-6-17 06:50 , Processed in 0.039971 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2015 Comsenz Inc.

快速回复 返回顶部 返回列表