VHDL-модель операционного автомата

Десятичные слагаемые	Слагаемые в прямых кодах	Слагаемые в Обр. кодах	Сложение в Доп. кодах	Результат в прямых кодах
-8 -9	11 1000 11 1001	11 0111 11 0110	11 1000 + 11 0111 1|10 1111	ПП–
+9 +12	00 1001 00 1100	00 1001 00 1100	00 1001 + 00 1100 01 0101	ПП+
+7 +3	00 0111 00 0011	00 0111 00 0011	00 0111 + 00 0011 00 1010	+10
-2 -3	11 0010 11 0011	11 1101 11 1100	11 1110 + 11 1101 1|11 1011	11 0100 обр. + 1 11 0101 прям. -5
+5 -8	00 0101 11 1000	00 0101 11 0111	00 0101 + 11 1000 11 1101	11 0010 обр. + 1 11 0011 прям. -3

Листинг 6.1 – VHDL-модель операционного модуля (автомата)

library IEEE;

use IEEE.STD_LOGIC_1164.all;

use IEEE.std_logic_unsigned.all;

entity OA is

port(

Done, y1, y2, y3, y4, y5, y6, CLK: in STD_LOGIC; -- control signals

A: in STD_LOGIC_VECTOR(5 downto 0); -- summand

B: in STD_LOGIC_VECTOR(5 downto 0); -- summand

C: out STD_LOGIC_VECTOR(5 downto 0); -- sum

x1, x2, x3: out STD_LOGIC; -- informative signals

pp: out STD_LOGIC -- overflow

);

end OA;

--}} End of automatically maintained section

architecture OA of OA is

-- enter your statements here --

signal RG:STD_LOGIC_VECTOR(5 downto 0); -- - register

signal SM:STD_LOGIC_VECTOR(5 downto 0); -- - register-adder

begin

process (CLK, y1, y2, y3, y4, y5, y6)

begin

if (CLK'event and CLK='1')then

If (y1 = '1' and y2 = '1') then

RG <=B;

SM <=A;

elsif (y3 = '1')then

SM <=SM(5 downto 4) & ((not SM(3 downto 0))+1);

elsif (y4 = '1')then

SM <= SM + (RG(5 downto 4) & ((not RG(3 downto 0))+1));

elsif (y5 = '1')then

SM <= SM + RG;

elsif (y6 = '1')then

pp <= '1';

else pp <= '0';

end if;

end if;

end process;

C <= SM when Done = '1' else (others =>'0');

x1<= '1'when SM(5 downto 4)="11" else '0';

x2<= '1'when RG(5 downto 4)="11" else '0';

x3<= '1'when SM(5 downto 4)="01" or SM(5 downto 4)="10" else '0';

end OA;