weight_ai.asm

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

*****************************************************************************
** Description:     Weight_Ai() in file.c                                  **
**                                                                         **
** Inputs                                                                  **
**                                                                         **
**   xar1---Word16 *a                                                      **
**   xar7---Word16 *fac
**                                                     **
**                                                                         **
** Outputs:                                                                **
**                                                                         **
**   xar2---Word16 *a_exp
**   
**                                                                         **
** Temporary:
**     ar0---i
**     acc
**     xar4
**                                                                         **
** Return value :       xar2                                               **
**                                                                         **
** Attribute    :       Cycles: 416     Pm: 58                                  **
**                      Modified Registers: xar0,xar2,xar7,p,acc                               **
**                                                                         **
** Programmer   :       Zhang Xin                                          **
*****************************************************************************

      .global _Weight_Ai
      
  
_Weight_Ai: 
      push xar2
      mov  al,*xar1++
      mov  *xar2++,al
      mov  ar0,#9
      ;movl xar4,#0x8000
     
      
_loop_65:
      zapa
      mac  p,*xar1++,*xar7++
      addl acc,@p<<pm
      ;cmpl acc,@MIN_32
      ;sb   L1,eq
      ;lsl  acc,#1
      ;sb   L2,unc
;L1:   
      ;movl acc,@MAX_32
;L2:   
      add  acc,#0x0800<<4
      mov  *xar2++,ah
      ;inc  ar0	
      ;cmp  @ar0,#10				
      ;sb   _loop_65,lt
      banz _loop_65,ar0--  ;循环10次		    
      
      pop  xar2
   LRETR