rfft.asm

基于320VC5416的512点实数FFT源程序.内含数据.

*********************************************************************************
*       (C) COPYRIGHT TEXAS INSTRUMENTS, INC. 1996                              *
*********************************************************************************
*                                                                               *
* FILE NAME:    rfft.asm                                                        *
*                                                                               *
* AUTHORS:      Simon Lau and Nathan Baltz                                      *
*                                                                               *
* DESCRIPTION:  The following code implements a Radix-2, DIT, 2N-point Real FFT *
*               for the TMS320C54x.  This main program makes four function      *
*               calls, each corresponds to a different phase of the algorithm.  *
*               For more details about how each phase is implemented, see       *
*               bit_rev.asm, fft.asm, unpack.asm, and power.asm assembly files. *                  *
*                                                                               *
* DATE:         7-16-1996                                                       *
*                                                                               *
*********************************************************************************
        .include    "fft_size.inc"
        .def        _rfft_task ;,_LS128
        .ref        bit_rev, fft, unpack, power
        .ref        _real_fft_input, _real_fft_in

        .text

_rfft_task: 
        PSHM    AR0
        PSHM    AR1
        PSHM    AR2
        PSHM    AR3
        PSHM    AR4
        PSHM    AR5 
        PSHM    AR6
        PSHM    AR7
        NOP			; Toggle Probe Point
        NOP			; Toggle Break Point
        STM #_real_fft_input,AR2
        STM #_real_fft_in,AR3
        ;RPTB _LS128-1
        RPT #512-1
        MVDD  *AR3+,*AR2+
        CALL    bit_rev
        CALL    fft
        CALL    unpack
        CALL    power
;_LS128:
_rfft_end:
        NOP
        NOP
        NOP			; Toggle Break Point
        POPM    AR7
        POPM    AR6
        POPM    AR5
        POPM    AR4
        POPM    AR3
        POPM    AR2 
        POPM    AR1
        POPM    AR0 
;    RET       
       B  _rfft_task
      
        .end