LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY BCDTOB3 IS
PORT
(
	NUM	:IN STD_LOGIC_VECTOR(3 DOWNTO 0);
	CO	:OUT STD_LOGIC_VECTOR(15 DOWNTO 0));
END;
ARCHITECTURE A OF BCDTOB3 IS
BEGIN
	PROCESS
BEGIN
CASE NUM IS
		WHEN"0000"=>CO<="0000000000000000";
		WHEN"0001"=>CO<="0000000001100100";
		WHEN"0010"=>CO<="0000000011001000";
		WHEN"0011"=>CO<="0000000100101100";
		WHEN"0100"=>CO<="0000000110010000";
		WHEN"0101"=>CO<="0000000111110100";
		WHEN"0110"=>CO<="0000001001011000";
		WHEN"0111"=>CO<="0000001010111100";
		WHEN"1000"=>CO<="0000001100100000";
		WHEN"1001"=>CO<="0000001110000100";
		WHEN OTHERS=>CO<="0000000000000000";
END CASE;
END PROCESS;
END;