Сдвиг множимого вправо - Программируемая логика - Ответ 16310780

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;