power.lst

54系列dsp算法程序

TMS320C54x COFF Assembler       Beta Version 1.16     Mon Sep 23 13:59:02 1996
Copyright (c) 1996        Texas Instruments Incorporated 

power.asm                                                            PAGE    1

       1            *********************************************************************************
       2            *       (C) COPYRIGHT TEXAS INSTRUMENTS, INC. 1996                              *
       3            *********************************************************************************
       4            *                                                                               *
       5            * MODULE NAME:  power.asm                                                       *
       6            *                                                                               *
       7            * AUTHORS:      Simon Lau and Nathan Baltz                                      *
       8            *                                                                               *
       9            * DESCRIPTION:  PHASE FIVE  Power Spectrum                                      *
      10            *               This function is called from the main module of the 'C54x Real  *
      11            *               FFT code.  It computes the power spectrum of the Real FFT       *
      12            *               output.                                                         *
      13            *                                                                               *
      14            * REGISTER USAGE:   AR2   pointer to AR[k], AI[k]                               *
      15            *                   AR3   pointer to output buffer                              *
      16            *                   BRC                                                         *
      17            *                                                                               *
      18            * DATE:         7-16-1996                                                       *
      19            *                                                                               *
      20            *********************************************************************************
      21            
      22                    .mmregs
      23                    .include    "fft_size.inc"
      24                    .def        power
      25                    .ref        fft_data, real_fft_output
      26            
      27                    .asg    AR2,AX
      28                    .asg    AR3,OUTPUT_BUF
      29            
      30            
      31 000000               .text
      32            
      33 000000       power:
      34 000000 7712          STM     #fft_data,AX                    ; AR2 points to AR[0]
         000001 0000!
      35 000002 771A          STM     #K_FFT_SIZE*2-1,BRC
         000003 000F 
      36 000004 F272          RPTBD   power_end-1
         000005 000A'
      37 000006 7713          STM     #real_fft_output,OUTPUT_BUF
         000007 0000!
      38            
      39 000008 2692          SQUR    *AX+,A                          ; A := AR^2
      40 000009 3892          SQURA   *AX+,A                          ; A := AR^2 + AI^2
      41 00000a 8293          STH     A,*OUTPUT_BUF+                 
      42            
      43 00000b       power_end:
      44 00000b FC00          RET                                     ; return to Real FFT main module
      45            
      46                    .end

 No Errors, No Warnings