Сдвиг множимого вправо

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
entity Multiply is
generic (n:integer:=5);     -- n параметр, задает разрядность операндов
Port(a:in std_logic_vector(n-1 downto 0);      -- множимое
     b: in std_logic_vector(n-1 downto 0);     -- множитель
     c: out std_logic_vector(2*n-2 downto 0)); -- произведение
end Multiply;
architecture Behavioral of Multiply is 
begin process(a,b)
variable rb: std_logic_vector (n-1 downto 0); -- для хранения множителя
variable ra: std_logic_vector (2*n-2 downto 0);-- для хранения множимого
variable rc: std_logic_vector(2*n-2 downto 0); -- для формирования суммы ЧП
begin
ra(n-1 downto 0):=a; -- присваиваем ra значение множимого
ra(2*n-2 downto n):=(others =>a(n-1)); -- заполняем старшие разряды ra знаковым
rb:=b; -- присваиваем rb значение множителя
rc:=(others=>'0');   -- обнулям сумму ЧП
for i in 1 to n loop -- выполняем в цикле n раз
    if (rb(n-1)='1') then
        if i=1 then
            rc:= rc+not(ra)+1; -- корректирующий шаг[-A]д
            else rc:= rc+ra;   --  прибавляем множимое +[A]д
        end if;
    end if;
        if i=n then exit; -- если последний шаг, то выходим из цикла
    end if;
    rc(2*n-2 downto 0):=rc(2*n-3 downto 0)&'0'; -- сдиг суммы ЧП влево
    rb:=rb(n-2 downto 0)&'0'; -- сдвиг множителя влево
end loop;
c<=rc(2*n-2 downto 0); -- передача результата на выход устройства
end process;
end Behavioral;

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;

entity testMultiply is
generic (n:integer:=4);     -- n параметр, задает разрядность операндов
Port(x:in std_logic_vector(n-1 downto 0);      -- множимое
     y: in std_logic_vector(n-1 downto 0);     -- множитель
     c: out std_logic_vector(2*n-1 downto 0)); -- произведение
end testMultiply;

architecture Behavioral of testMultiply is 
begin process(x,y)

variable rb: std_logic_vector (n-1 downto 0);   -- для хранения множителя
variable ra: std_logic_vector (2*n-1 downto 0); -- для хранения множимого
variable rc: std_logic_vector (2*n-1 downto 0);  -- для формирования суммы ЧП
begin

ra(2*n-1 downto n):=x; -- присваиваем ra значение множимого (А)
ra(n-1 downto 0):=(others=>'0'); -- заполняем младшие разряды ra нулями
rb:=y; -- присваиваем rb значение множителя (В)
rc:=(others=>'0');   -- обнуляем сумму ЧП (S0)

for i in 1 to n loop -- выполняем в цикле n раз
    if (rb(n-1)='1') then
        if i=1 then -- если это первый шаг
				rc:= rc+not(ra)+1; -- корректирующий шаг[-A]д
				
        else
				rc:= rc+ra;   --  прибавляем множимое +[A]д
        end if;
    end if;
     
    ra(2*n-1 downto 0):=ra(2*n-1) & ra(2*n-1 downto 1); -- сдвиг множимого вправо
    rb:=rb(n-2 downto 0)&'0'; -- сдвиг множителя влево
     
    if i=n then 
			exit;   -- если последний шаг - выходим из цикла
    end if;
     
end loop;

rc(2*n-1 downto 0):=rc(2*n-1) & rc(2*n-1 downto 1);
c<=rc(2*n-1 downto 0); -- передача результата на выход устройства

end process;
end Behavioral;

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;

entity Multiply2 is
generic (n:integer:=4);     -- n параметр, задает разрядность операндов
Port(a:in std_logic_vector(n-1 downto 0);      -- множимое
     b: in std_logic_vector(n-1 downto 0);     -- множитель
     c: out std_logic_vector(2*n-1 downto 0)); -- произведение
end Multiply2;

architecture Behavioral of Multiply2 is 
begin process(a,b)

variable rb: std_logic_vector (n-1 downto 0);   -- для хранения множителя
variable ra: std_logic_vector (2*n-1 downto 0); -- для хранения множимого
variable rc: std_logic_vector (2*n-1 downto 0);  -- для формирования суммы ЧП
begin

ra(2*n-1 downto n):=a; -- присваиваем ra значение множимого (А)
ra(n-1 downto 0):=(others=>'0'); -- заполняем младшие разряды ra нулями
rb:=b; -- присваиваем rb значение множителя (В)
rc:=(others=>'0');   -- обнуляем сумму ЧП (S0)

for i in 1 to n loop -- выполняем в цикле n раз
    if (rb(n-1)='1') then
        if i=1 then -- если это первый шаг
				ra(2*n-1 downto 0):=ra(2*n-1) & ra(2*n-1 downto 1); -- сдвиг множимого вправо
				rc:= rc+not(ra)+1; -- корректирующий шаг[-A]д
				
        else
				rc:= rc+ra;   --  прибавляем множимое +[A]д
        end if;
    end if;
	 if (rb(n-1)='0') then
		  if i=1 then
				ra(2*n-1 downto 0):=ra(2*n-1) & ra(2*n-1 downto 1);
		  end if;
	 end if;
    ra(2*n-1 downto 0):=ra(2*n-1) & ra(2*n-1 downto 1); -- сдвиг множимого вправо
    rb:=rb(n-2 downto 0)&'0'; -- сдвиг множителя влево
     
    if i=n then 
			exit;   -- если последний шаг - выходим из цикла
    end if;
     
end loop;

																																																				--rc(2*n-1 downto 0):=rc(2*n-1) & rc(2*n-1 downto 1);
c<=rc(2*n-1 downto 0); -- передача результата на выход устройства

end process;
end Behavioral;