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

entity Keyboard is
  port (Reset     : in STD_LOGIC;
      Clock     : in STD_LOGIC;
      PS2Clock  : inout STD_LOGIC;
      PS2Data   : inout STD_LOGIC;
      CodeReady : out STD_LOGIC;
      --ScanCode  : out STD_LOGIC_VECTOR(9 downto 0);
      SEGMENTS  : out STD_LOGIC_VECTOR(6 downto 0));
end Keyboard;

architecture Behavioral of Keyboard is

  signal Send      : STD_LOGIC;
  signal Command   : STD_LOGIC_VECTOR(7 downto 0);
  signal PS2Busy   : STD_LOGIC;
  signal PS2Error  : STD_LOGIC;
  signal DataReady : STD_LOGIC;
  signal DataByte  : STD_LOGIC_VECTOR(7 downto 0);
  signal ScanCode  : STD_LOGIC_VECTOR(9 downto 0);
  signal ScanCode2  : STD_LOGIC_VECTOR(7 downto 0);
begin

  PS2_Controller: entity work.PS2Controller
    port map (Reset     => Reset,
          Clock     => Clock,
          PS2Clock  => PS2Clock,
          PS2Data   => PS2Data,
          Send      => Send,
          Command   => Command,
          PS2Busy   => PS2Busy,
          PS2Error  => PS2Error,
          DataReady => DataReady,
          DataByte  => DataByte);

  Keyboard_Mapper: entity work.KeyboardMapper
    port map (Clock     => Clock,
          Reset     => Reset,
          PS2Busy   => PS2Busy,
          PS2Error  => PS2Error,
          DataReady => DataReady,
          DataByte  => DataByte,
          Send      => Send,
          Command   => Command,
          CodeReady => CodeReady,
          ScanCode  => ScanCode);
          
ScanCode2 <= ScanCode (7 downto 0);
          
  Matcher: entity work.Matcher
    port map ( SCANCODE => ScanCode2,
          SEGMENTS => SEGMENTS);

end Behavioral;

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;

entity Matcher is
port ( SCANCODE  : in STD_LOGIC_VECTOR(7 downto 0);
     SEGMENTS  : out STD_LOGIC_VECTOR(6 downto 0)
    );
end Matcher;

architecture Behavioral of Matcher is
begin
  process(SCANCODE)
    begin
      case SCANCODE is        
        when "01000101" => SEGMENTS <= "0111111"; -- 0
        when "00010110" => SEGMENTS <= "0000110"; -- 1
        when "00011110" => SEGMENTS <= "1011011"; -- 2
        when "00100110" => SEGMENTS <= "1001111"; -- 3
        when "00100101" => SEGMENTS <= "1100110"; -- 4
        when "00101110" => SEGMENTS <= "1101101"; -- 5
        when "00110110" => SEGMENTS <= "1111101"; -- 6
        when "00111101" => SEGMENTS <= "0000111"; -- 7
        when "00111110" => SEGMENTS <= "1111111"; -- 8
        when "01000110" => SEGMENTS <= "1101111"; -- 9
        when "00011100" => SEGMENTS <= "1110111"; -- A
        when "00110010" => SEGMENTS <= "1111100"; -- b
        when "00100001" => SEGMENTS <= "0111001"; -- C
        when "00100011" => SEGMENTS <= "1011110"; -- d
        when "00100100" => SEGMENTS <= "1111001"; -- E
        when "00101011" => SEGMENTS <= "1110001"; -- F
        when "00110100" => SEGMENTS <= "1100111"; -- g
        when "00110011" => SEGMENTS <= "1110110"; -- H
        when "01000011" => SEGMENTS <= "0110000"; -- I
        when "00111011" => SEGMENTS <= "0011110"; -- J
        when "01000010" => SEGMENTS <= "1110101"; -- K
        when "01001011" => SEGMENTS <= "0111000"; -- L
        when "00111010" => SEGMENTS <= "0010101"; -- M
        when "00110001" => SEGMENTS <= "1010100"; -- n
        when "01000100" => SEGMENTS <= "1011100"; -- o
        when "01001101" => SEGMENTS <= "1110011"; -- P
        when "00101101" => SEGMENTS <= "1010000"; -- r
        when "00101100" => SEGMENTS <= "1111000"; -- t
        when "00111100" => SEGMENTS <= "0111110"; -- u
        when "00101010" => SEGMENTS <= "0011100"; -- v
        when "00110101" => SEGMENTS <= "1101110"; -- y
        when others => SEGMENTS <= "1001001"; -- Error!
      end case;
    -- SelectDisplay <= AN; -- the segment(s) we choose via the pins on the board will be enabled.
  end process;
end Behavioral;