Line 1... |
Line 1... |
|
-------------------------------------------------------------------------------
|
|
--
|
|
-- Project: <Floating Point Unit Core>
|
|
--
|
|
-- Description: Serial multiplication entity for the multiplication unit
|
|
-------------------------------------------------------------------------------
|
|
--
|
|
-- 100101011010011100100
|
|
-- 110000111011100100000
|
|
-- 100000111011000101101
|
|
-- 100010111100101111001
|
|
-- 110000111011101101001
|
|
-- 010000001011101001010
|
|
-- 110100111001001100001
|
|
-- 110111010000001100111
|
|
-- 110110111110001011101
|
|
-- 101110110010111101000
|
|
-- 100000010111000000000
|
|
--
|
|
-- Author: Jidan Al-eryani
|
|
-- E-mail: jidan@gmx.net
|
|
--
|
|
-- Copyright (C) 2006
|
|
--
|
|
-- 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 WITHOUT ANY
|
|
-- EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
|
|
-- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
|
|
-- FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR
|
|
-- OR 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.
|
|
--
|
|
|
|
library ieee ;
|
|
use ieee.std_logic_1164.all;
|
|
use ieee.std_logic_unsigned.all;
|
|
use ieee.std_logic_arith.all;
|
|
|
|
library work;
|
|
use work.fpupack.all;
|
|
|
|
entity serial_mul is
|
|
port(
|
|
clk_i : in std_logic;
|
|
fracta_i : in std_logic_vector(FRAC_WIDTH downto 0); -- hidden(1) & fraction(23)
|
|
fractb_i : in std_logic_vector(FRAC_WIDTH downto 0);
|
|
signa_i : in std_logic;
|
|
signb_i : in std_logic;
|
|
start_i : in std_logic;
|
|
fract_o : out std_logic_vector(2*FRAC_WIDTH+1 downto 0);
|
|
sign_o : out std_logic;
|
|
ready_o : out std_logic
|
|
);
|
|
end serial_mul;
|
|
|
|
architecture rtl of serial_mul is
|
|
|
|
type t_state is (waiting,busy);
|
|
|
|
signal s_fract_o: std_logic_vector(47 downto 0);
|
|
|
|
signal s_fracta_i, s_fractb_i : std_logic_vector(23 downto 0);
|
|
signal s_signa_i, s_signb_i, s_sign_o : std_logic;
|
|
signal s_start_i, s_ready_o : std_logic;
|
|
signal s_state : t_state;
|
|
signal s_count : integer range 0 to 23;
|
|
signal s_tem_prod : std_logic_vector(23 downto 0);
|
|
|
|
begin
|
|
|
|
-- Input Register
|
|
process(clk_i)
|
|
begin
|
|
if rising_edge(clk_i) then
|
|
s_fracta_i <= fracta_i;
|
|
s_fractb_i <= fractb_i;
|
|
s_signa_i<= signa_i;
|
|
s_signb_i<= signb_i;
|
|
s_start_i <= start_i;
|
|
end if;
|
|
end process;
|
|
|
|
-- Output Register
|
|
process(clk_i)
|
|
begin
|
|
if rising_edge(clk_i) then
|
|
fract_o <= s_fract_o;
|
|
sign_o <= s_sign_o;
|
|
ready_o <= s_ready_o;
|
|
end if;
|
|
end process;
|
|
|
|
s_sign_o <= signa_i xor signb_i;
|
|
|
|
-- FSM
|
|
process(clk_i)
|
|
begin
|
|
if rising_edge(clk_i) then
|
|
if s_start_i ='1' then
|
|
s_state <= busy;
|
|
s_count <= 0;
|
|
elsif s_count=23 then
|
|
s_state <= waiting;
|
|
s_ready_o <= '1';
|
|
s_count <=0;
|
|
elsif s_state=busy then
|
|
s_count <= s_count + 1;
|
|
else
|
|
s_state <= waiting;
|
|
s_ready_o <= '0';
|
|
end if;
|
|
end if;
|
|
end process;
|
|
|
|
g1: for i in 0 to 23 generate
|
|
s_tem_prod(i) <= s_fracta_i(i) and s_fractb_i(s_count);
|
|
end generate;
|
|
|
|
process(clk_i)
|
|
variable v_prod_shl : std_logic_vector(47 downto 0);
|
|
begin
|
|
if rising_edge(clk_i) then
|
|
if s_state=busy then
|
|
v_prod_shl := shl(conv_std_logic_vector(0,24)&s_tem_prod, conv_std_logic_vector(s_count,5));
|
|
if s_count /= 0 then
|
|
s_fract_o <= v_prod_shl + s_fract_o;
|
|
else
|
|
s_fract_o <= v_prod_shl;
|
|
end if;
|
|
end if;
|
|
end if;
|
|
end process;
|
|
|
|
end rtl;
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|