16 bit booth multiplier vhdl code

[ijasti]

VHDL CODE FOR BOOTH MULTIPLIER
HEY GUYS THIS IS THE VHDL CODE FOR BOOTH MULTIPLIER GO THROUGH IT.


library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
use ieee.std_logic_unsigned.all;

entity Boot is
port(x, y: in std_logic_vector(3 downto 0);
O: out std_logic_vector(7 downto 0));
end Boot;

architecture boot of Boot is
begin

process(x, y)
variable a: std_logic_vector(8 downto 0);
variable s,p : std_logic_vector(3 downto 0);
variable i:integer;


begin
a := "000000000";
s := y;
a(4 downto 1) := x;

for i in 0 to 3 loop
if(a(1) = '1' and a(0) = '0') then
p := (a(8 downto 5));
a(8 downto 5) := (p - s);

elsif(a(1) = '0' and a(0) = '1') then
p := (a(8 downto 5));
a(8 downto 5) := (p + s);

end if;

a(7 downto 0) := a(8 downto 1);

end loop;

O(7 downto 0) <= a(8 downto 1);

end process;

end boot;