m3s093ct.v

这是16位定点dsp源代码。已仿真和综合过了

//*******************************************************************       //
//IMPORTANT NOTICE                                                          //
//================                                                          //
//Copyright Mentor Graphics Corporation 1996 - 1998.  All rights reserved.  //
//This file and associated deliverables are the trade secrets,              //
//confidential information and copyrighted works of Mentor Graphics         //
//Corporation and its licensors and are subject to your license agreement   //
//with Mentor Graphics Corporation.                                         //
//                                                                          //
//These deliverables may be used for the purpose of making silicon for one  //
//IC design only.  No further use of these deliverables for the purpose of  //
//making silicon from an IC design is permitted without the payment of an   //
//additional license fee.  See your license agreement with Mentor Graphics  //
//for further details.  If you have further questions please contact        //
//Mentor Graphics Customer Support.                                         //
//                                                                          //
//This Mentor Graphics core (m320c50eng v1999.010) was extracted on         //
//workstation hostid 800059c1 Inventra                                      //
// Adder Tree Element 4
// Copyright Mentor Graphics Corporation and Licensors 1998.
// V1.000

// m3s093ct.v
// M320C50 Adder Tree Element 4
// This module provides the 4th level of the adder tree for the M320C50 multiplier.

module m3s093ct (QQ, PP);
//*******************************************************************       //
//IMPORTANT NOTICE                                                          //
//================                                                          //
//Copyright Mentor Graphics Corporation 1996 - 1998.  All rights reserved.  //
//This file and associated deliverables are the trade secrets,              //
//confidential information and copyrighted works of Mentor Graphics         //
//Corporation and its licensors and are subject to your license agreement   //
//with Mentor Graphics Corporation.                                         //
//                                                                          //
//These deliverables may be used for the purpose of making silicon for one  //
//IC design only.  No further use of these deliverables for the purpose of  //
//making silicon from an IC design is permitted without the payment of an   //
//additional license fee.  See your license agreement with Mentor Graphics  //
//for further details.  If you have further questions please contact        //
//Mentor Graphics Customer Support.                                         //
//                                                                          //
//This Mentor Graphics core (m320c50eng v1999.010) was extracted on         //
//workstation hostid 800059c1 Inventra                                      //
  
  input [97:0]  PP;
  output [76:0] QQ;

  reg [76:0] QQ;
  reg [2:0]  Depth;
  integer    l, m, n;


// Partial Product adder tree first stage
always @(PP)
begin
  for (l=0;l<31;l=l+1)
  begin
    case (l)
      0: Depth = 1;
      1: Depth = 1;
      2: Depth = 1;
      3: Depth = 1;
      4: Depth = 2;
      5: Depth = 2;
      6: Depth = 2;
      7: Depth = 3;
      8: Depth = 3;
      9: Depth = 3;
      10: Depth = 4;
      11: Depth = 4;
      12: Depth = 4;
      13: Depth = 4;
      14: Depth = 5;
      15: Depth = 5;
      16: Depth = 5;
      17: Depth = 6;
      18: Depth = 6;
      19: Depth = 4;
      20: Depth = 4;
      21: Depth = 4;
      22: Depth = 4;
      23: Depth = 4;
      24: Depth = 3;
      25: Depth = 3;
      26: Depth = 2;
      27: Depth = 2;
      28: Depth = 2;
      29: Depth = 2;
      30: Depth = 2;
      default: Depth = 1;
    endcase
    case(Depth)
      1:
      begin
	if (l == 0)
	begin
	  m = 0 ;
	  n = 0 ;
	  QQ[0] = PP[0];
	end
	else
	begin
	  QQ[m] = PP[n];
	end
	m = m + 1;
	n = n + 1;
      end
      2:
      begin
	QQ[m] = PP[n] ^ PP[n+1];
	QQ[m+1] = PP[n] & PP[n+1];
	m = m + 2;
	n = n + 2;
      end
      3:
      begin
	QQ[m] = PP[n] ^ PP[n+1] ^ PP[n+2];
	QQ[m+1] = (PP[n] & PP[n+1]) | (PP[n] & PP[n+2]) | (PP[n+1] & PP[n+2]);
	m = m + 2;
	n = n + 3;
      end
      4:
      begin
	QQ[m] = PP[n] ^ PP[n+1] ^ PP[n+2];
	QQ[m+1] = PP[n+3];
	QQ[m+2] = (PP[n] & PP[n+1]) | (PP[n] & PP[n+2]) | (PP[n+1] & PP[n+2]);
	m = m + 3;
	n = n + 4;
      end
      5:
      begin
	QQ[m] = PP[n] ^ PP[n+1] ^ PP[n+2];
	QQ[m+1] = PP[n+3] ^ PP[n+4];
	QQ[m+2] = (PP[n] & PP[n+1]) | (PP[n] & PP[n+2]) | (PP[n+1] & PP[n+2]);
	QQ[m+3] = PP[n+3] & PP[n+4]; 
	m = m + 4;
	n = n + 5;
      end
      6:
      begin
	QQ[m] = PP[n] ^ PP[n+1] ^ PP[n+2];
	QQ[m+1] = PP[n+3] ^ PP[n+4] ^ PP[n+5];
	QQ[m+2] = (PP[n] & PP[n+1]) | (PP[n] & PP[n+2]) | (PP[n+1] & PP[n+2]);
	QQ[m+3] = (PP[n+3] & PP[n+4]) |
 	          (PP[n+3] & PP[n+5]) |
 		  (PP[n+4] & PP[n+5]); 
	m = m + 4;
	n = n + 6;
      end
      default:
      begin
	QQ = PP;
	Depth = 0;
	m = 0;
	n = 0;
      end
    endcase
  end
end

endmodule