Subversion Repositories System09

--                  

--                  

--  Dependencies   : ieee.std_logic_1164

--  Dependencies   : ieee.std_logic_1164

--                   ieee.std_logic_arith

--                   ieee.std_logic_arith

--                   ieee.std_logic_unsigned

--                   ieee.std_logic_unsigned

--                   ieee.numeric_std

--                   ieee.numeric_std

--

--

--  Uses           : ps2_keyboard_interface

--  Uses           : ps2_keyboard_interface

--

--

--  Author         : John E. Kent

--  Author         : John E. Kent

--

--

library ieee;

library ieee;

   use ieee.std_logic_1164.all;

   use ieee.std_logic_1164.all;

   use ieee.std_logic_arith.all;

   use ieee.std_logic_arith.all;

   use ieee.std_logic_unsigned.all;

   use ieee.std_logic_unsigned.all;

   use ieee.numeric_std.all;

   use ieee.numeric_std.all;

entity keyboard is

entity keyboard is

  generic (

  generic (

  KBD_CLK_FREQ : integer

  KBD_CLK_FREQ : integer

  );

  );

  --

  --

  -- Assign Keyboard Status bits

  -- Assign Keyboard Status bits

  --

  --

  keyboard_status : process( kbd_data_ready, kbd_data_empty,

  keyboard_status : process( kbd_data_ready, kbd_data_empty,

                             kbd_extended, kbd_released, kbd_shift_on, kbd_error,

                             kbd_extended, kbd_released, kbd_shift_on, kbd_error,

  begin

  begin

    kbd_status(0) <= kbd_data_ready;

    kbd_status(0) <= kbd_data_ready;

    kbd_status(1) <= kbd_data_empty;

    kbd_status(1) <= kbd_data_empty;

    kbd_status(2) <= kbd_extended;

    kbd_status(2) <= kbd_extended;

    kbd_status(3) <= kbd_released;

    kbd_status(3) <= kbd_released;