Subversion Repositories z80soc

LIBRARY IEEE;
USE  IEEE.STD_LOGIC_1164.all;
USE  IEEE.STD_LOGIC_ARITH.all;
USE  IEEE.STD_LOGIC_UNSIGNED.all;

ENTITY keyboard IS
        PORT(   keyboard_clk, keyboard_data, clock , 
                        reset, read             : IN    STD_LOGIC;
                        scan_code               : OUT   STD_LOGIC_VECTOR(7 DOWNTO 0);
                        scan_ready              : OUT   STD_LOGIC);
END keyboard;

ARCHITECTURE a OF keyboard IS
        SIGNAL INCNT                                    : std_logic_vector(3 downto 0);
        SIGNAL SHIFTIN                                  : std_logic_vector(8 downto 0);
        SIGNAL READ_CHAR, clock_enable  : std_logic;
        SIGNAL INFLAG, ready_set                : std_logic;
        SIGNAL keyboard_clk_filtered    : std_logic;
        SIGNAL filter                                   : std_logic_vector(7 downto 0);
BEGIN

PROCESS (read, ready_set)
BEGIN
  IF read = '1' THEN scan_ready <= '0';
  ELSIF ready_set'EVENT and ready_set = '1' THEN
                scan_ready <= '1';
  END IF;
END PROCESS;


--This process filters the raw clock signal coming from the keyboard using a shift register and two AND gates
Clock_filter: PROCESS
BEGIN
        WAIT UNTIL clock'EVENT AND clock= '1';
        clock_enable <= NOT clock_enable;
        IF clock_enable = '1' THEN
                filter (6 DOWNTO 0) <= filter(7 DOWNTO 1) ;
                filter(7) <= keyboard_clk;
                IF filter = "11111111" THEN keyboard_clk_filtered <= '1';
                ELSIF  filter= "00000000" THEN keyboard_clk_filtered <= '0';
                END IF;
        END IF;
END PROCESS Clock_filter;


--This process reads in serial data coming from the terminal
PROCESS
BEGIN
WAIT UNTIL (KEYBOARD_CLK_filtered'EVENT AND KEYBOARD_CLK_filtered='1');
IF RESET='0' THEN
        INCNT <= "0000";
        READ_CHAR <= '0';
        ready_set<= '0';
ELSE
  IF KEYBOARD_DATA='0' AND READ_CHAR='0' THEN
        READ_CHAR<= '1';
                ready_set<= '0';
  ELSE
                        -- Shift in next 8 data bits to assemble a scan code
    IF READ_CHAR = '1' THEN
        IF INCNT < "1001" THEN
                INCNT                           <= INCNT + 1;
                SHIFTIN(7 DOWNTO 0) <= SHIFTIN(8 DOWNTO 1);
                SHIFTIN(8)                      <= KEYBOARD_DATA;
                        -- End of scan code character, so set flags and exit loop
        ELSE
                        scan_code                       <= SHIFTIN(7 DOWNTO 0);
                        READ_CHAR                       <= '0';
                ready_set                       <= '1';
                INCNT                           <= "0000";
        END IF;
     END IF;
   END IF;
 END IF;
END PROCESS;
END a;