Subversion Repositories pipelined_fft_128

/////////////////////////////////////////////////////////////////////
////                                                             ////
////  FFT/IFFT 128 points transform                              ////
////                                                             ////
////  Authors: Anatoliy Sergienko, Volodya Lepeha                ////
////  Company: Unicore Systems http://unicore.co.ua              ////
////                                                             ////
////  Downloaded from: http://www.opencores.org                  ////
////                                                             ////
/////////////////////////////////////////////////////////////////////
////                                                             ////
//// Copyright (C) 2006-2010 Unicore Systems LTD                 ////
//// www.unicore.co.ua                                           ////
//// o.uzenkov@unicore.co.ua                                     ////
////                                                             ////
//// This source file may be used and distributed without        ////
//// restriction provided that this copyright statement is not   ////
//// removed from the file and that any derivative work contains ////
//// the original copyright notice and the associated disclaimer.////
////                                                             ////
//// THIS SOFTWARE IS PROVIDED "AS IS"                           ////
//// AND ANY EXPRESSED OR IMPLIED WARRANTIES,                    ////
//// INCLUDING, BUT NOT LIMITED TO, THE IMPLIED                  ////
//// WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT              ////
//// AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.        ////
//// IN NO EVENT SHALL THE UNICORE SYSTEMS OR ITS                ////
//// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,            ////
//// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL            ////
//// DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT         ////
//// OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,               ////
//// DATA, OR PROFITS; OR BUSINESS INTERRUPTION)                 ////
//// HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,              ////
//// WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT              ////
//// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING                 ////
//// IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,                 ////
//// EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.          ////
////                                                             ////
/////////////////////////////////////////////////////////////////////
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~		
// DESCRIPTION	:	Twiddle factor ROM for 128-point FFT
// FUNCTION:	 	
// FILES:			 WROM128.v - ROM of twiddle factors.	   
//  PROPERTIES: 1) Has 128 complex coefficients which form a table 8x16,
//                         and stay in the needed order, as they are addressed
//                         by the simple counter 
//							2) 16-bit values are stored. When shorter bit width is set
//                            then rounding	is not used
//							3) for FFT and IFFT depending on paramifft	       
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`include "FFT128_CONFIG.inc"	 
`timescale 1 ns / 1 ps  
module WROM128 ( WI ,WR ,ADDR );
	`FFT128paramnw	
 
	input [6:0] ADDR ;
	wire [6:0] ADDR ;
 
	output [nw-1:0] WI ;
	wire [nw-1:0] WI ;
	output [nw-1:0] WR ;
	wire [nw-1:0] WR ;
 
	wire [15:0] cosw[0:127];    
assign cosw[0]=16'h7FFF;assign cosw[1]=16'h7FFF;assign cosw[2]=16'h7FFF;assign cosw[3]=16'h7FFF;assign cosw[4]=16'h7FFF;assign cosw[5]=16'h7FFF;assign cosw[6]=16'h7FFF;assign cosw[7]=16'h7FFF;assign cosw[8]=16'h7FFF;assign cosw[9]=16'h7FFF;assign cosw[10]=16'h7FFF;assign cosw[11]=16'h7FFF;assign cosw[12]=16'h7FFF;assign cosw[13]=16'h7FFF;assign cosw[14]=16'h7FFF;assign cosw[15]=16'h7FFF;
assign cosw[16]=16'h7FFF;assign cosw[17]=16'h7FD7;assign cosw[18]=16'h7F61;assign cosw[19]=16'h7E9C;assign cosw[20]=16'h7D89;assign cosw[21]=16'h7C29;assign cosw[22]=16'h7A7C;assign cosw[23]=16'h7883;assign cosw[24]=16'h7640;assign cosw[25]=16'h73B5;assign cosw[26]=16'h70E1;assign cosw[27]=16'h6DC9;assign cosw[28]=16'h6A6C;assign cosw[29]=16'h66CE;assign cosw[30]=16'h62F1;assign cosw[31]=16'h5ED6;
assign cosw[32]=16'h7FFF;assign cosw[33]=16'h7F61;assign cosw[34]=16'h7D89;assign cosw[35]=16'h7A7C;assign cosw[36]=16'h7640;assign cosw[37]=16'h70E1;assign cosw[38]=16'h6A6C;assign cosw[39]=16'h62F1;assign cosw[40]=16'h5A81;assign cosw[41]=16'h5133;assign cosw[42]=16'h471C;assign cosw[43]=16'h3C56;assign cosw[44]=16'h30FB;assign cosw[45]=16'h2527;assign cosw[46]=16'h18F8;assign cosw[47]=16'h0C8B;
assign cosw[48]=16'h7FFF;assign cosw[49]=16'h7E9C;assign cosw[50]=16'h7A7C;assign cosw[51]=16'h73B5;assign cosw[52]=16'h6A6C;assign cosw[53]=16'h5ED6;assign cosw[54]=16'h5133;assign cosw[55]=16'h41CD;assign cosw[56]=16'h30FB;assign cosw[57]=16'h1F19;assign cosw[58]=16'h0C8B;assign cosw[59]=16'hF9B9;assign cosw[60]=16'hE708;assign cosw[61]=16'hD4E2;assign cosw[62]=16'hC3AA;assign cosw[63]=16'hB3C1;
assign cosw[64]=16'h7FFF;assign cosw[65]=16'h7D89;assign cosw[66]=16'h7640;assign cosw[67]=16'h6A6C;assign cosw[68]=16'h5A81;assign cosw[69]=16'h471C;assign cosw[70]=16'h30FB;assign cosw[71]=16'h18F8;assign cosw[72]=16'h0000;assign cosw[73]=16'hE708;assign cosw[74]=16'hCF05;assign cosw[75]=16'hB8E4;assign cosw[76]=16'hA57F;assign cosw[77]=16'h9594;assign cosw[78]=16'h89C0;assign cosw[79]=16'h8277;
assign cosw[80]=16'h7FFF;assign cosw[81]=16'h7C29;assign cosw[82]=16'h70E1;assign cosw[83]=16'h5ED6;assign cosw[84]=16'h471C;assign cosw[85]=16'h2B1E;assign cosw[86]=16'h0C8B;assign cosw[87]=16'hED39;assign cosw[88]=16'hCF05;assign cosw[89]=16'hB3C1;assign cosw[90]=16'h9D0F;assign cosw[91]=16'h8C4B;assign cosw[92]=16'h8277;assign cosw[93]=16'h8029;assign cosw[94]=16'h8584;assign cosw[95]=16'h9237;
assign cosw[96]=16'h7FFF;assign cosw[97]=16'h7A7C;assign cosw[98]=16'h6A6C;assign cosw[99]=16'h5133;assign cosw[100]=16'h30FB;assign cosw[101]=16'h0C8B;assign cosw[102]=16'hE708;assign cosw[103]=16'hC3AA;assign cosw[104]=16'hA57F;assign cosw[105]=16'h8F1F;assign cosw[106]=16'h8277;assign cosw[107]=16'h809F;assign cosw[108]=16'h89C0;assign cosw[109]=16'h9D0F;assign cosw[110]=16'hB8E4;assign cosw[111]=16'hDAD9;
assign cosw[112]=16'h7FFF;assign cosw[113]=16'h7883;assign cosw[114]=16'h62F1;assign cosw[115]=16'h41CD;assign cosw[116]=16'h18F8;assign cosw[117]=16'hED39;assign cosw[118]=16'hC3AA;assign cosw[119]=16'hA12A;assign cosw[120]=16'h89C0;assign cosw[121]=16'h8029;assign cosw[122]=16'h8584;assign cosw[123]=16'h9932;assign cosw[124]=16'hB8E4;assign cosw[125]=16'hE0E7;assign cosw[126]=16'h0C8B;assign cosw[127]=16'h36B9;
 
	wire [15:0] sinw[0:127];    
 
	`ifdef FFT256paramifft			 //Inverse FFT
assign  sinw[0]=16'h0000;assign  sinw[1]=16'h0000;assign  sinw[2]=16'h0000;assign  sinw[3]=16'h0000;assign  sinw[4]=16'h0000;assign  sinw[5]=16'h0000;assign  sinw[6]=16'h0000;assign  sinw[7]=16'h0000;assign  sinw[8]=16'h0000;assign  sinw[9]=16'h0000;assign  sinw[10]=16'h0000;assign  sinw[11]=16'h0000;assign  sinw[12]=16'h0000;assign  sinw[13]=16'h0000;assign  sinw[14]=16'h0000;assign  sinw[15]=16'h0000;
assign  sinw[16]=16'h0000;assign  sinw[17]=16'h0647;assign  sinw[18]=16'h0C8B;assign  sinw[19]=16'h12C7;assign  sinw[20]=16'h18F8;assign  sinw[21]=16'h1F19;assign  sinw[22]=16'h2527;assign  sinw[23]=16'h2B1E;assign  sinw[24]=16'h30FB;assign  sinw[25]=16'h36B9;assign  sinw[26]=16'h3C56;assign  sinw[27]=16'h41CD;assign  sinw[28]=16'h471C;assign  sinw[29]=16'h4C3F;assign  sinw[30]=16'h5133;assign  sinw[31]=16'h55F4;
assign  sinw[32]=16'h0000;assign  sinw[33]=16'h0C8B;assign  sinw[34]=16'h18F8;assign  sinw[35]=16'h2527;assign  sinw[36]=16'h30FB;assign  sinw[37]=16'h3C56;assign  sinw[38]=16'h471C;assign  sinw[39]=16'h5133;assign  sinw[40]=16'h5A81;assign  sinw[41]=16'h62F1;assign  sinw[42]=16'h6A6C;assign  sinw[43]=16'h70E1;assign  sinw[44]=16'h7640;assign  sinw[45]=16'h7A7C;assign  sinw[46]=16'h7D89;assign  sinw[47]=16'h7F61;
assign  sinw[48]=16'h0000;assign  sinw[49]=16'h12C7;assign  sinw[50]=16'h2527;assign  sinw[51]=16'h36B9;assign  sinw[52]=16'h471C;assign  sinw[53]=16'h55F4;assign  sinw[54]=16'h62F1;assign  sinw[55]=16'h6DC9;assign  sinw[56]=16'h7640;assign  sinw[57]=16'h7C29;assign  sinw[58]=16'h7F61;assign  sinw[59]=16'h7FD7;assign  sinw[60]=16'h7D89;assign  sinw[61]=16'h7883;assign  sinw[62]=16'h70E1;assign  sinw[63]=16'h66CE;
assign  sinw[64]=16'h0000;assign  sinw[65]=16'h18F8;assign  sinw[66]=16'h30FB;assign  sinw[67]=16'h471C;assign  sinw[68]=16'h5A81;assign  sinw[69]=16'h6A6C;assign  sinw[70]=16'h7640;assign  sinw[71]=16'h7D89;assign  sinw[72]=16'h7FFF;assign  sinw[73]=16'h7D89;assign  sinw[74]=16'h7640;assign  sinw[75]=16'h6A6C;assign  sinw[76]=16'h5A81;assign  sinw[77]=16'h471C;assign  sinw[78]=16'h30FB;assign  sinw[79]=16'h18F8;
assign  sinw[80]=16'h0000;assign  sinw[81]=16'h1F19;assign  sinw[82]=16'h3C56;assign  sinw[83]=16'h55F4;assign  sinw[84]=16'h6A6C;assign  sinw[85]=16'h7883;assign  sinw[86]=16'h7F61;assign  sinw[87]=16'h7E9C;assign  sinw[88]=16'h7640;assign  sinw[89]=16'h66CE;assign  sinw[90]=16'h5133;assign  sinw[91]=16'h36B9;assign  sinw[92]=16'h18F8;assign  sinw[93]=16'hF9B9;assign  sinw[94]=16'hDAD9;assign  sinw[95]=16'hBE33;
assign  sinw[96]=16'h0000;assign  sinw[97]=16'h2527;assign  sinw[98]=16'h471C;assign  sinw[99]=16'h62F1;assign  sinw[100]=16'h7640;assign  sinw[101]=16'h7F61;assign  sinw[102]=16'h7D89;assign  sinw[103]=16'h70E1;assign  sinw[104]=16'h5A81;assign  sinw[105]=16'h3C56;assign  sinw[106]=16'h18F8;assign  sinw[107]=16'hF375;assign  sinw[108]=16'hCF05;assign  sinw[109]=16'hAECD;assign  sinw[110]=16'h9594;assign  sinw[111]=16'h8584;
assign  sinw[112]=16'h0000;assign  sinw[113]=16'h2B1E;assign  sinw[114]=16'h5133;assign  sinw[115]=16'h6DC9;assign  sinw[116]=16'h7D89;assign  sinw[117]=16'h7E9C;assign  sinw[118]=16'h70E1;assign  sinw[119]=16'h55F4;assign  sinw[120]=16'h30FB;assign  sinw[121]=16'h0647;assign  sinw[122]=16'hDAD9;assign  sinw[123]=16'hB3C1;assign  sinw[124]=16'h9594;assign  sinw[125]=16'h83D7;assign  sinw[126]=16'h809F;assign  sinw[127]=16'h8C4B;
 
	`else		  //Forward FFT
 
assign  sinw[0]=16'h0000;assign  sinw[1]=16'h0000;assign  sinw[2]=16'h0000;assign  sinw[3]=16'h0000;assign  sinw[4]=16'h0000;assign  sinw[5]=16'h0000;assign  sinw[6]=16'h0000;assign  sinw[7]=16'h0000;assign  sinw[8]=16'h0000;assign  sinw[9]=16'h0000;assign  sinw[10]=16'h0000;assign  sinw[11]=16'h0000;assign  sinw[12]=16'h0000;assign  sinw[13]=16'h0000;assign  sinw[14]=16'h0000;assign  sinw[15]=16'h0000;
assign  sinw[16]=16'h0000;assign  sinw[17]=16'hF9B9;assign  sinw[18]=16'hF375;assign  sinw[19]=16'hED39;assign  sinw[20]=16'hE708;assign  sinw[21]=16'hE0E7;assign  sinw[22]=16'hDAD9;assign  sinw[23]=16'hD4E2;assign  sinw[24]=16'hCF05;assign  sinw[25]=16'hC947;assign  sinw[26]=16'hC3AA;assign  sinw[27]=16'hBE33;assign  sinw[28]=16'hB8E4;assign  sinw[29]=16'hB3C1;assign  sinw[30]=16'hAECD;assign  sinw[31]=16'hAA0C;
assign  sinw[32]=16'h0000;assign  sinw[33]=16'hF375;assign  sinw[34]=16'hE708;assign  sinw[35]=16'hDAD9;assign  sinw[36]=16'hCF05;assign  sinw[37]=16'hC3AA;assign  sinw[38]=16'hB8E4;assign  sinw[39]=16'hAECD;assign  sinw[40]=16'hA57F;assign  sinw[41]=16'h9D0F;assign  sinw[42]=16'h9594;assign  sinw[43]=16'h8F1F;assign  sinw[44]=16'h89C0;assign  sinw[45]=16'h8584;assign  sinw[46]=16'h8277;assign  sinw[47]=16'h809F;
assign  sinw[48]=16'h0000;assign  sinw[49]=16'hED39;assign  sinw[50]=16'hDAD9;assign  sinw[51]=16'hC947;assign  sinw[52]=16'hB8E4;assign  sinw[53]=16'hAA0C;assign  sinw[54]=16'h9D0F;assign  sinw[55]=16'h9237;assign  sinw[56]=16'h89C0;assign  sinw[57]=16'h83D7;assign  sinw[58]=16'h809F;assign  sinw[59]=16'h8029;assign  sinw[60]=16'h8277;assign  sinw[61]=16'h877D;assign  sinw[62]=16'h8F1F;assign  sinw[63]=16'h9932;
assign  sinw[64]=16'h0000;assign  sinw[65]=16'hE708;assign  sinw[66]=16'hCF05;assign  sinw[67]=16'hB8E4;assign  sinw[68]=16'hA57F;assign  sinw[69]=16'h9594;assign  sinw[70]=16'h89C0;assign  sinw[71]=16'h8277;assign  sinw[72]=16'h8001;assign  sinw[73]=16'h8277;assign  sinw[74]=16'h89C0;assign  sinw[75]=16'h9594;assign  sinw[76]=16'hA57F;assign  sinw[77]=16'hB8E4;assign  sinw[78]=16'hCF05;assign  sinw[79]=16'hE708;
assign  sinw[80]=16'h0000;assign  sinw[81]=16'hE0E7;assign  sinw[82]=16'hC3AA;assign  sinw[83]=16'hAA0C;assign  sinw[84]=16'h9594;assign  sinw[85]=16'h877D;assign  sinw[86]=16'h809F;assign  sinw[87]=16'h8164;assign  sinw[88]=16'h89C0;assign  sinw[89]=16'h9932;assign  sinw[90]=16'hAECD;assign  sinw[91]=16'hC947;assign  sinw[92]=16'hE708;assign  sinw[93]=16'h0647;assign  sinw[94]=16'h2527;assign  sinw[95]=16'h41CD;
assign  sinw[96]=16'h0000;assign  sinw[97]=16'hDAD9;assign  sinw[98]=16'hB8E4;assign  sinw[99]=16'h9D0F;assign  sinw[100]=16'h89C0;assign  sinw[101]=16'h809F;assign  sinw[102]=16'h8277;assign  sinw[103]=16'h8F1F;assign  sinw[104]=16'hA57F;assign  sinw[105]=16'hC3AA;assign  sinw[106]=16'hE708;assign  sinw[107]=16'h0C8B;assign  sinw[108]=16'h30FB;assign  sinw[109]=16'h5133;assign  sinw[110]=16'h6A6C;assign  sinw[111]=16'h7A7C;
assign  sinw[112]=16'h0000;assign  sinw[113]=16'hD4E2;assign  sinw[114]=16'hAECD;assign  sinw[115]=16'h9237;assign  sinw[116]=16'h8277;assign  sinw[117]=16'h8164;assign  sinw[118]=16'h8F1F;assign  sinw[119]=16'hAA0C;assign  sinw[120]=16'hCF05;assign  sinw[121]=16'hF9B9;assign  sinw[122]=16'h2527;assign  sinw[123]=16'h4C3F;assign  sinw[124]=16'h6A6C;assign  sinw[125]=16'h7C29;assign  sinw[126]=16'h7F61;assign  sinw[127]=16'h73B5;
  	   	`endif
 
 
	wire [15:0] wri,wii 	  ;
	assign wri=cosw[ADDR];	
	assign wii=sinw[ADDR];		
 
	wire [nw:0] wrt,wit;
 
 
	assign	wrt = wri[15:16-nw];
	assign	wit = wii[15:16-nw];
	assign WR= wrt[nw-1:0];	  
	assign WI= wit[nw-1:0];
 
endmodule