86 lines
3.2 KiB
VHDL
86 lines
3.2 KiB
VHDL
----------------------------------------------------------------------------------
|
|
-- Company: INSA-Toulouse
|
|
-- Engineer: Paul Faure
|
|
--
|
|
-- Create Date: 13.07.2021 09:30:08
|
|
-- Module Name: KeyboardDriver - Behavioral
|
|
-- Project Name: Processeur sécurisé
|
|
-- Target Devices: Basys 3 ARTIX7
|
|
-- Tool Versions: Vivado 2016.4
|
|
--
|
|
-- Description: Driver pour interfacer le clavier avec les besoins du processeur
|
|
--
|
|
-- Dependencies: None
|
|
----------------------------------------------------------------------------------
|
|
|
|
|
|
library IEEE;
|
|
use IEEE.STD_LOGIC_1164.ALL;
|
|
use IEEE.STD_LOGIC_UNSIGNED.ALL;
|
|
use IEEE.NUMERIC_STD.ALL;
|
|
|
|
entity KeyboardDriver is
|
|
Generic (Nb_Bits : Natural);
|
|
Port (CLK : in STD_LOGIC;
|
|
|
|
Data_read : out STD_LOGIC; -- ******************************
|
|
Data_av : in STD_LOGIC; -- ***** Signaux du clavier *****
|
|
Data : in STD_LOGIC_VECTOR (0 to 6); -- ******************************
|
|
|
|
STD_IN : out STD_LOGIC_VECTOR (Nb_Bits - 1 downto 0); -- ******************************
|
|
STD_IN_Av : out STD_LOGIC; -- *** Signaux du processeur ***
|
|
STD_IN_Request : in STD_LOGIC; -- ******************************
|
|
|
|
STD_OUT : out STD_LOGIC_VECTOR (Nb_Bits - 1 downto 0);-- ******************************
|
|
STD_OUT_Av : out STD_LOGIC); -- **** Signaux d'affichage ****
|
|
|
|
end KeyboardDriver;
|
|
|
|
architecture Behavioral of KeyboardDriver is
|
|
|
|
signal intern_value : Natural := 0;
|
|
signal work_in_progress : BOOLEAN := false;
|
|
signal Zeros : STD_LOGIC_Vector (Nb_bits - 1 downto 7) := (others => '0');
|
|
|
|
|
|
begin
|
|
|
|
process
|
|
begin
|
|
wait until CLK'event and CLK = '1';
|
|
STD_IN_Av <= '0';
|
|
STD_OUT_Av <= '0';
|
|
if not(work_in_progress) then
|
|
intern_value <= 0;
|
|
end if;
|
|
if STD_IN_Request = '1' then
|
|
-- Si on nous demande une valeur
|
|
work_in_progress <= true;
|
|
if Data_av = '1' then
|
|
-- Si une touche a été appuyée
|
|
if (Data = "1111111") then
|
|
-- Si c'est un Delete, on divide la valeur actuelle par 10
|
|
intern_value <= intern_value / 10;
|
|
STD_OUT <= Zeros & Data;
|
|
STD_OUT_Av <= '1';
|
|
elsif (Data = "0001010") then
|
|
-- Si c'est un Enter, on envoi la velaue au processeur
|
|
STD_IN <= std_logic_vector(to_unsigned(intern_value, Nb_bits));
|
|
STD_IN_Av <= '1';
|
|
work_in_progress <= false;
|
|
STD_OUT <= Zeros & Data;
|
|
STD_OUT_Av <= '1';
|
|
elsif (Data >= "0110000" and Data <= "0111001") then
|
|
-- Si c'est un nombre, on décale la valeur d'un chiffre a gauche puis un insere la touche saisie
|
|
intern_value <= intern_value * 10 + to_integer(unsigned(Data(3 to 6)));
|
|
STD_OUT <= Zeros & Data;
|
|
STD_OUT_Av <= '1';
|
|
end if;
|
|
-- Toute autre touche est ignorée
|
|
end if;
|
|
end if;
|
|
end process;
|
|
|
|
Data_read <= '0' when STD_IN_Request = '0' else Data_av;
|
|
|
|
end Behavioral;
|