www.pudn.com > x28x_FFT.rar > rfft32w.asm

;============================================================================ 
; 
; File Name     : rfft_winc.asm 
;  
; Originator    : Advanced Embeeded Control  
;                 Texas Instruments  
;  
; Description   : This file contains source code to window the input data sequence in the case of  
;                 Real FFT modules 
;                
; Date          : 26/4/2001 (dd/mm/yyyy) 
;===========================================================================     
; Routine Type  : C Callable         
; 
; Description   : 
; void FFTR_win(FFTxxxR_handle)  
; This function windows the 2N point real valued data samples stored as N point complex  
; sequence in bit reversed order.( It is used with real FFT modules) 
;  
;======================================================================  
; REAL FFT MODULES 
;---------------------------------------------------------------------- 
;typedef struct {    
;       long *ipcbptr; 
;       long *tfptr;                
;       int size; 
;       int nrstage;              
;       long *magptr; 
;       long *winptr;  
;       long peakmag; 
;       int peakfrq; 
;       int ratio;      
;       void (*init)(void); 
;       void (*calc)(void *); 
;       void (*split)(void *); 
;       void (*mag)(void *); 
;       void (*win)(void *); 
;       }FFTxxxR; 
;====================================================================== 
 
                .def    _RFFT32_win        
                 
_RFFT32_win: 
          
            MOVL    XAR5,*XAR4++    ; XAR5=ipcbptr 
            MOVL    XAR6,*+XAR4[6]  ; XAR6=winptr 
            MOV     ACC,*+XAR4[2]<<15 ; AH=size/2 
            MOVH    AR0,ACC<<2      ; AR0=2*size 
            MOVZ    AR7,AH          ; AR7=(size/4)                                   
            SUBB    XAR7,#1         ; AR7=(size/4)-1 
            MOVL    XAR4,XAR7       ; AR4=(size/4)-1 
             
nextsamp1:   
            MOVL    XT,*XAR6++       
            QMPYL   ACC,XT,*XAR5 
            LSL     ACC,#1 
            MOVL    *XAR5,ACC       ; *(ipcbptr)=(*ipcbptr)*(*winptr) 
 
            MOVL    XT,*XAR6++       
            QMPYL   ACC,XT,*+XAR5[2] 
            LSL     ACC,#1 
            MOVL    *+XAR5[2],ACC   ; *(ipcbptr+1)=(*(ipcbptr+1)) X (*(winptr+1)) 
            NOP    *BR0++        
            BANZ    nextsamp1,AR7-- 
             
nextsamp2:   
            MOVL    XT,*--XAR6       
            QMPYL   ACC,XT,*XAR5 
            LSL     ACC,#1 
            MOVL    *XAR5,ACC       ; *(ipcbptr)=(*ipcbptr)*(*winptr) 
 
            MOVL    XT,*--XAR6       
            QMPYL   ACC,XT,*+XAR5[2] 
            LSL     ACC,#1 
            MOVL    *+XAR5[2],ACC   ; *(ipcbptr+1)=(*(ipcbptr+1)) X (*(winptr+1)) 
            NOP    *BR0++    
            BANZ    nextsamp2,AR4-- 
            LRETR