---------------------------------------------------------------------
|
---------------------------------------------------------------------
|
-- TITLE: Arithmetic Logic Unit
|
-- TITLE: Arithmetic Logic Unit
|
-- AUTHOR: Steve Rhoads (rhoadss@yahoo.com)
|
-- AUTHOR: Steve Rhoads (rhoadss@yahoo.com)
|
-- DATE CREATED: 2/8/01
|
-- DATE CREATED: 2/8/01
|
-- FILENAME: alu.vhd
|
-- FILENAME: alu.vhd
|
-- PROJECT: M-lite CPU core
|
-- PROJECT: Plasma CPU core
|
-- COPYRIGHT: Software placed into the public domain by the author.
|
-- COPYRIGHT: Software placed into the public domain by the author.
|
-- Software 'as is' without warranty. Author liable for nothing.
|
-- Software 'as is' without warranty. Author liable for nothing.
|
-- DESCRIPTION:
|
-- DESCRIPTION:
|
-- Implements the ALU.
|
-- Implements the ALU.
|
---------------------------------------------------------------------
|
---------------------------------------------------------------------
|
library ieee;
|
library ieee;
|
use ieee.std_logic_1164.all;
|
use ieee.std_logic_1164.all;
|
use work.mlite_pack.all;
|
use work.mlite_pack.all;
|
|
|
entity alu is
|
entity alu is
|
port(a_in : in std_logic_vector(31 downto 0);
|
port(a_in : in std_logic_vector(31 downto 0);
|
b_in : in std_logic_vector(31 downto 0);
|
b_in : in std_logic_vector(31 downto 0);
|
alu_function : in alu_function_type;
|
alu_function : in alu_function_type;
|
c_alu : out std_logic_vector(31 downto 0));
|
c_alu : out std_logic_vector(31 downto 0));
|
end; --alu
|
end; --alu
|
|
|
architecture logic of alu is
|
architecture logic of alu is
|
-- type alu_function_type is (alu_nothing, alu_add, alu_subtract,
|
-- type alu_function_type is (alu_nothing, alu_add, alu_subtract,
|
-- alu_less_than, alu_less_than_signed, alu_equal, alu_not_equal,
|
-- alu_less_than, alu_less_than_signed, alu_equal, alu_not_equal,
|
-- alu_ltz, alu_lez, alu_eqz, alu_nez, alu_gez, alu_gtz,
|
-- alu_ltz, alu_lez, alu_eqz, alu_nez, alu_gez, alu_gtz,
|
-- alu_or, alu_and, alu_xor, alu_nor);
|
-- alu_or, alu_and, alu_xor, alu_nor);
|
begin
|
begin
|
|
|
alu_proc: process(a_in, b_in, alu_function)
|
alu_proc: process(a_in, b_in, alu_function)
|
variable c : std_logic_vector(31 downto 0);
|
variable c : std_logic_vector(31 downto 0);
|
variable aa, bb, sum : std_logic_vector(32 downto 0);
|
variable aa, bb, sum : std_logic_vector(32 downto 0);
|
variable do_sub : std_logic;
|
variable do_sub : std_logic;
|
variable a_eq_b : std_logic;
|
variable a_eq_b : std_logic;
|
variable a_zero : std_logic;
|
variable a_zero : std_logic;
|
variable sign_ext : std_logic;
|
variable sign_ext : std_logic;
|
begin
|
begin
|
c := ZERO;
|
c := ZERO;
|
if alu_function = alu_add then
|
if alu_function = alu_add then
|
do_sub := '0';
|
do_sub := '0';
|
else
|
else
|
do_sub := '1';
|
do_sub := '1';
|
end if;
|
end if;
|
if alu_function = alu_less_than then
|
if alu_function = alu_less_than then
|
sign_ext := '0';
|
sign_ext := '0';
|
else
|
else
|
sign_ext := '1';
|
sign_ext := '1';
|
end if;
|
end if;
|
aa := (a_in(31) and sign_ext) & a_in;
|
aa := (a_in(31) and sign_ext) & a_in;
|
bb := (b_in(31) and sign_ext) & b_in;
|
bb := (b_in(31) and sign_ext) & b_in;
|
sum := bv_adder(aa, bb, do_sub);
|
sum := bv_adder(aa, bb, do_sub);
|
-- sum := bv_adder_lookahead(aa, bb, do_sub);
|
-- sum := bv_adder_lookahead(aa, bb, do_sub);
|
if a_in = b_in then
|
if a_in = b_in then
|
a_eq_b := '1';
|
a_eq_b := '1';
|
else
|
else
|
a_eq_b := '0';
|
a_eq_b := '0';
|
end if;
|
end if;
|
if a_in = ZERO then
|
if a_in = ZERO then
|
a_zero := '1';
|
a_zero := '1';
|
else
|
else
|
a_zero := '0';
|
a_zero := '0';
|
end if;
|
end if;
|
case alu_function is
|
case alu_function is
|
when alu_add | alu_subtract => --c=a+b
|
when alu_add | alu_subtract => --c=a+b
|
c := sum(31 downto 0);
|
c := sum(31 downto 0);
|
when alu_less_than => --c=a<b
|
when alu_less_than => --c=a<b
|
c(0) := sum(32);
|
c(0) := sum(32);
|
when alu_less_than_signed => --c=a<b;
|
when alu_less_than_signed => --c=a<b;
|
c(0) := sum(32);
|
c(0) := sum(32);
|
when alu_equal => --c=a==b
|
when alu_equal => --c=a==b
|
c(0) := a_eq_b;
|
c(0) := a_eq_b;
|
when alu_not_equal => --c=a!=b
|
when alu_not_equal => --c=a!=b
|
c(0) := not a_eq_b;
|
c(0) := not a_eq_b;
|
when alu_ltz => --c=a<0
|
when alu_ltz => --c=a<0
|
c(0) := a_in(31);
|
c(0) := a_in(31);
|
when alu_lez => --c=a<=0
|
when alu_lez => --c=a<=0
|
c(0) := a_in(31) or a_zero;
|
c(0) := a_in(31) or a_zero;
|
when alu_eqz => --c=a==0
|
when alu_eqz => --c=a==0
|
c(0) := a_zero;
|
c(0) := a_zero;
|
when alu_nez => --c=a!=0
|
when alu_nez => --c=a!=0
|
c(0) := not a_zero;
|
c(0) := not a_zero;
|
when alu_gez => --c=a>=0
|
when alu_gez => --c=a>=0
|
c(0) := not a_in(31);
|
c(0) := not a_in(31);
|
when alu_gtz => --c=a>0
|
when alu_gtz => --c=a>0
|
c(0) := not a_zero and not a_in(31);
|
c(0) := not a_zero and not a_in(31);
|
when alu_or => --c=a|b
|
when alu_or => --c=a|b
|
c := a_in or b_in;
|
c := a_in or b_in;
|
when alu_and => --c=a&b
|
when alu_and => --c=a&b
|
c := a_in and b_in;
|
c := a_in and b_in;
|
when alu_xor => --c=a^b
|
when alu_xor => --c=a^b
|
c := a_in xor b_in;
|
c := a_in xor b_in;
|
when alu_nor => --c=~(a|b)
|
when alu_nor => --c=~(a|b)
|
c := a_in nor b_in;
|
c := a_in nor b_in;
|
when others => --alu_function = alu_nothing
|
when others => --alu_function = alu_nothing
|
c := ZERO;
|
c := ZERO;
|
end case;
|
end case;
|
|
|
c_alu <= c;
|
c_alu <= c;
|
end process;
|
end process;
|
|
|
end; --architecture logic
|
end; --architecture logic
|
|
|
|
|