75 lines
3.2 KiB
VHDL
75 lines
3.2 KiB
VHDL
----------------------------------------------------------------------------------
|
|
-- Company:
|
|
-- Engineer:
|
|
--
|
|
-- Create Date: 02.07.2021 10:43:18
|
|
-- Design Name:
|
|
-- Module Name: KeyboardToASCII - Behavioral
|
|
-- Project Name:
|
|
-- Target Devices:
|
|
-- Tool Versions:
|
|
-- Description:
|
|
--
|
|
-- Dependencies:
|
|
--
|
|
-- Revision:
|
|
-- Revision 0.01 - File Created
|
|
-- Additional Comments:
|
|
--
|
|
----------------------------------------------------------------------------------
|
|
|
|
|
|
library IEEE;
|
|
use IEEE.STD_LOGIC_1164.ALL;
|
|
|
|
entity KeyboardToASCII is
|
|
Port ( KeyCode : in STD_LOGIC_VECTOR (0 to 7);
|
|
CodeASCII : out STD_LOGIC_VECTOR (0 to 6));
|
|
end KeyboardToASCII;
|
|
|
|
architecture Behavioral of KeyboardToASCII is
|
|
|
|
begin
|
|
|
|
CodeASCII <= "0000000" when (KeyCode = x"05") else -- F1 -> flush
|
|
"0001101" when (KeyCode = x"5a") else -- Enter
|
|
"1111111" when (KeyCode = x"66") else -- Del
|
|
"1000001" when (KeyCode = x"15") else -- A
|
|
"1000010" when (KeyCode = x"32") else -- B
|
|
"1000011" when (KeyCode = x"21") else -- C
|
|
"1000100" when (KeyCode = x"23") else -- D
|
|
"1000101" when (KeyCode = x"24") else -- E
|
|
"1000110" when (KeyCode = x"2b") else -- F
|
|
"1000111" when (KeyCode = x"34") else -- G
|
|
"1001000" when (KeyCode = x"33") else -- H
|
|
"1001001" when (KeyCode = x"43") else -- I
|
|
"1001010" when (KeyCode = x"3b") else -- J
|
|
"1001011" when (KeyCode = x"42") else -- K
|
|
"1001100" when (KeyCode = x"4b") else -- L
|
|
"1001101" when (KeyCode = x"4c") else -- M
|
|
"1001110" when (KeyCode = x"31") else -- N
|
|
"1001111" when (KeyCode = x"44") else -- O
|
|
"1010000" when (KeyCode = x"4d") else -- P
|
|
"1010001" when (KeyCode = x"1c") else -- Q
|
|
"1010010" when (KeyCode = x"2d") else -- R
|
|
"1010011" when (KeyCode = x"1b") else -- S
|
|
"1010100" when (KeyCode = x"2c") else -- T
|
|
"1010101" when (KeyCode = x"3c") else -- U
|
|
"1010110" when (KeyCode = x"2a") else -- V
|
|
"1010111" when (KeyCode = x"1a") else -- W
|
|
"1011000" when (KeyCode = x"22") else -- X
|
|
"1011001" when (KeyCode = x"35") else -- Y
|
|
"1011010" when (KeyCode = x"1d") else -- Z
|
|
"0110000" when (KeyCode = x"70") else -- 0
|
|
"0110001" when (KeyCode = x"69") else -- 1
|
|
"0110010" when (KeyCode = x"72") else -- 2
|
|
"0110011" when (KeyCode = x"7a") else -- 3
|
|
"0110100" when (KeyCode = x"6b") else -- 4
|
|
"0110101" when (KeyCode = x"73") else -- 5
|
|
"0110110" when (KeyCode = x"74") else -- 6
|
|
"0110111" when (KeyCode = x"6c") else -- 7
|
|
"0111000" when (KeyCode = x"75") else -- 8
|
|
"0111001" when (KeyCode = x"7d") else -- 9
|
|
"0000001"; -- Rien
|
|
|
|
end Behavioral;
|