Subversion Repositories cfft

---------------------------------------------------------------------------------------------------

--

-- Title       : mulfactor

-- Design      : cfft

-- Author      : ZHAO Ming

-- email           : sradio@opencores.org

--

---------------------------------------------------------------------------------------------------

--

-- File        : mulfactor.vhd

-- Generated   : Thu Oct  3 00:37:40 2002

--

---------------------------------------------------------------------------------------------------

--

-- Description : 360 degee complex rotation 

--

---------------------------------------------------------------------------------------------------

--

-- Revisions       :    0

-- Revision Number :    1

-- Version         :    1.1.0

-- Date            :    Oct 17 2002

-- Modifier        :    ZHAO Ming 

-- Desccription    :    Data width configurable 

--

---------------------------------------------------------------------------------------------------

--

-- Revisions       :    0

-- Revision Number :    2

-- Version         :    1.2.1

-- Date            :    Oct 18 2002

-- Modifier        :    ZHAO Ming 

-- Desccription    :    Point configurable      

--

---------------------------------------------------------------------------------------------------

library IEEE;

use IEEE.STD_LOGIC_1164.all;

use IEEE.STD_LOGIC_ARITH.all;

use IEEE.STD_LOGIC_SIGNED.all;

entity mulfactor is

        generic (

                WIDTH : Natural;

                STAGE : Natural

        );

         port(

                 clk : in STD_LOGIC;

                 rst : in STD_LOGIC;

                 angle : in signed(2*STAGE-1 downto 0);

                 I : in signed(WIDTH+1 downto 0);

                 Q : in signed(WIDTH+1 downto 0);

                 Iout : out signed(WIDTH+3 downto 0);

                 Qout : out signed(WIDTH+3 downto 0)

             );

end mulfactor;

architecture mulfactor of mulfactor is

signal phase : signed( 2*STAGE-3 downto 0 );

signal Xi,Yi : signed( WIDTH+1 downto 0 );

component sc_corproc

        generic(

                WIDTH : Natural;

                STAGE : Natural

        );

        port(

                clk     : in std_logic;

                ena     : in std_logic;

                Xin     : in signed(WIDTH+1 downto 0);

                Yin     : in signed(WIDTH+1 downto 0);

                Ain : in signed(2*STAGE-3 downto 0 );

                sin     : out signed(WIDTH+3 downto 0);

                cos     : out signed(WIDTH+3 downto 0));

end component;

begin

        u1: sc_corproc

        generic map(

                WIDTH=>WIDTH,

                STAGE=>STAGE

        )

        port map (

                clk=>clk,

                ena=>'1',

                Xin=>Xi,

                Yin=>Yi,

                Ain=>phase,

                sin=>Qout,

                cos=>Iout

        );

process( clk, rst )

variable temp : std_logic_vector( 1 downto 0 );

begin

        if rst='1' then

                phase<=( others=>'0' );

                Xi<=( others=>'0' );

                Yi<=( others=>'0' );

        elsif clk'event and clk='1' then

                phase<=angle( 2*STAGE-3 downto 0 );

                temp:=std_logic_vector(angle( 2*STAGE-1 downto 2*STAGE-2 ));

                case  temp is

                        when "00" =>

                        Xi<=I;

                        Yi<=Q;

                        when "01" =>

                        Xi<=0-Q;

                        Yi<=I;

                        when "10" =>

                        Xi<=0-I;

                        Yi<=0-Q;

                        when "11" =>

                        Xi<=Q;

                        Yi<=0-I;

                        when others=>

                        null;

                end case;

        end if;

end process;

end mulfactor;