energy_old.asm

基于TMS320F2812的AMR+RS编解码+OFDM调制解调源程序。是stand alone运行版本

*****************************************************************************
** Description:     energy_old() in agc.c                                  **
**                                                                         **
** Inputs                                                                  **
**                                                                         **
**   xar3---Word16 in[]                                                    **
**                                                                         **
** Outputs:                                                                **
**                                                                         ** 
**                                                                         **
** Return value :       acc                                                **
**                                                                         **
** Attribute    :       Cycles:1938     Pm: 96                             **
**                      Modified Registers:  xar2,3                        **
**                                                                         **
** Programmer   :       Qi Ying                                            **
*****************************************************************************
           .global    _energy_old
           
_energy_old:
           mov     al,         *+xar3[0]
           asr     al,         #2
           mov     T,          al    
           mpy     P,    T,    al              ;P=s
           movb    xar2,       #38
           mov     ar0,        #1
_Loop_58:            
           mov     al,         *+xar3[ar0]     ;in[i]
           asr     al,         #2 
           mov     T,          al
           mpy     acc,  T,    al             
           addl    P,          acc
           inc     ar0
           banz    _Loop_58,   ar2--   
           movl    acc,        P
           lsl     acc,        #1         
		   LRETR