----------------------------------------------------------------------------
|
----------------------------------------------------------------------------
|
---- ----
|
---- ----
|
---- T2600 IP Core ----
|
---- T2600 IP Core ----
|
---- ----
|
---- ----
|
---- This file is part of the t2600 project ----
|
---- This file is part of the t2600 project ----
|
---- http://www.opencores.org/cores/t2600/ ----
|
---- http://www.opencores.org/cores/t2600/ ----
|
---- ----
|
---- ----
|
---- Description ----
|
---- Description ----
|
---- t2600 keyboard controller ----
|
---- t2600 keyboard controller ----
|
---- ----
|
---- ----
|
---- TODO: ----
|
---- TODO: ----
|
---- - Add the desired keys ----
|
---- - Add the desired keys ----
|
---- ----
|
---- ----
|
---- Author(s): ----
|
---- Author(s): ----
|
---- - Gabriel Oshiro Zardo, gabrieloshiro@gmail.com ----
|
---- - Gabriel Oshiro Zardo, gabrieloshiro@gmail.com ----
|
---- - Samuel Nascimento Pagliarini (creep), snpagliarini@gmail.com ----
|
---- - Samuel Nascimento Pagliarini (creep), snpagliarini@gmail.com ----
|
---- ----
|
---- ----
|
----------------------------------------------------------------------------
|
----------------------------------------------------------------------------
|
---- ----
|
---- ----
|
---- Copyright (C) Digilent ----
|
---- Copyright (C) Digilent ----
|
---- ----
|
---- ----
|
---- This source was originally copyrighted by Digilent. The authors ----
|
---- This source was originally copyrighted by Digilent. The authors ----
|
---- just did some extra code to fit their needs. Several commented ----
|
---- just did some extra code to fit their needs. Several commented ----
|
---- lines are from the original file. ----
|
---- lines are from the original file. ----
|
---- This file may be used as long as it not for commercial purposes. ----
|
---- This file may be used as long as it not for commercial purposes. ----
|
---- ----
|
---- ----
|
----------------------------------------------------------------------------
|
----------------------------------------------------------------------------
|
|
|
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;
|
|
|
entity t2600_kb is
|
entity T2600_KB is
|
Port ( CLK, RST, KD, KC: in std_logic;
|
Port ( CLK, RST, KD, KC: in std_logic;
|
--an: out std_logic_vector (3 downto 0);
|
--an: out std_logic_vector (3 downto 0);
|
--sseg: out std_logic_vector (6 downto 0);
|
--sseg: out std_logic_vector (6 downto 0);
|
io_lines: out std_logic_vector (15 downto 0)
|
io_lines: out std_logic_vector (15 downto 0)
|
);
|
);
|
end t2600_kb;
|
end T2600_KB;
|
|
|
architecture Behavioral of t2600_kb is
|
architecture Behavioral of t2600_kb is
|
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
-- Signal Declarations
|
-- Signal Declarations
|
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
signal clkDiv : std_logic_vector (12 downto 0);
|
signal clkDiv : std_logic_vector (12 downto 0);
|
signal sclk, pclk : std_logic;
|
signal sclk, pclk : std_logic;
|
signal KDI, KCI : std_logic;
|
signal KDI, KCI : std_logic;
|
signal DFF1, DFF2 : std_logic;
|
signal DFF1, DFF2 : std_logic;
|
signal shiftRegSig1: std_logic_vector(10 downto 0);
|
signal shiftRegSig1: std_logic_vector(10 downto 0);
|
signal shiftRegSig2: std_logic_vector(10 downto 1);
|
signal shiftRegSig2: std_logic_vector(10 downto 1);
|
signal MUXOUT: std_logic_vector (3 downto 0);
|
signal MUXOUT: std_logic_vector (3 downto 0);
|
signal WaitReg: std_logic_vector (7 downto 0);
|
signal WaitReg: std_logic_vector (7 downto 0);
|
|
|
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
-- Module Implementation
|
-- Module Implementation
|
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
|
|
begin
|
begin
|
--Divide the master clock down to a lower frequency--
|
--Divide the master clock down to a lower frequency--
|
CLKDivider: Process (CLK, RST)
|
CLKDivider: Process (CLK, RST)
|
begin
|
begin
|
if (RST = '1') then
|
if (RST = '1') then
|
clkDiv <= "0000000000000";
|
clkDiv <= "0000000000000";
|
else
|
else
|
if (CLK = '1' and CLK'Event) then
|
if (CLK = '1' and CLK'Event) then
|
clkDiv <= clkDiv +1;
|
clkDiv <= clkDiv +1;
|
end if;
|
end if;
|
end if;
|
end if;
|
end Process;
|
end Process;
|
|
|
sclk <= clkDiv(12);
|
sclk <= clkDiv(12);
|
pclk <= clkDiv(3);
|
pclk <= clkDiv(3);
|
|
|
--Flip Flops used to condition signals coming from PS2--
|
--Flip Flops used to condition signals coming from PS2--
|
Process (pclk, RST, KC, KD)
|
Process (pclk, RST, KC, KD)
|
begin
|
begin
|
if(RST = '1') then
|
if(RST = '1') then
|
DFF1 <= '0'; DFF2 <= '0'; KDI <= '0'; KCI <= '0';
|
DFF1 <= '0'; DFF2 <= '0'; KDI <= '0'; KCI <= '0';
|
else
|
else
|
if (pclk = '1' and pclk'Event) then
|
if (pclk = '1' and pclk'Event) then
|
DFF1 <= KD; KDI <= DFF1; DFF2 <= KC; KCI <= DFF2;
|
DFF1 <= KD; KDI <= DFF1; DFF2 <= KC; KCI <= DFF2;
|
end if;
|
end if;
|
end if;
|
end if;
|
end process;
|
end process;
|
|
|
--Shift Registers used to clock in scan codes from PS2--
|
--Shift Registers used to clock in scan codes from PS2--
|
Process(KDI, KCI, RST) --DFF2 carries KD and DFF4, and DFF4 carries KC
|
Process(KDI, KCI, RST) --DFF2 carries KD and DFF4, and DFF4 carries KC
|
begin
|
begin
|
if (RST = '1') then
|
if (RST = '1') then
|
ShiftRegSig1 <= "00000000000";
|
ShiftRegSig1 <= "00000000000";
|
ShiftRegSig2 <= "0000000000";
|
ShiftRegSig2 <= "0000000000";
|
else
|
else
|
if (KCI = '0' and KCI'Event) then
|
if (KCI = '0' and KCI'Event) then
|
ShiftRegSig1(10 downto 0) <= KDI & ShiftRegSig1(10 downto 1);
|
ShiftRegSig1(10 downto 0) <= KDI & ShiftRegSig1(10 downto 1);
|
ShiftRegSig2(10 downto 1) <= ShiftRegSig1(0) & ShiftRegSig2(10 downto 2);
|
ShiftRegSig2(10 downto 1) <= ShiftRegSig1(0) & ShiftRegSig2(10 downto 2);
|
end if;
|
end if;
|
end if;
|
end if;
|
end process;
|
end process;
|
|
|
--Wait Register
|
--Wait Register
|
process(ShiftRegSig1, ShiftRegSig2, RST, KCI)
|
process(ShiftRegSig1, ShiftRegSig2, RST, KCI)
|
begin
|
begin
|
if(RST = '1')then
|
if(RST = '1')then
|
WaitReg <= "00000000";
|
WaitReg <= "00000000";
|
else
|
else
|
if(KCI'event and KCI = '1' and ShiftRegSig2(8 downto 1) = "11110000")then
|
if(KCI'event and KCI = '1' and ShiftRegSig2(8 downto 1) = "11110000")then
|
WaitReg <= ShiftRegSig1(8 downto 1);
|
WaitReg <= ShiftRegSig1(8 downto 1);
|
end if;
|
end if;
|
end if;
|
end if;
|
end Process;
|
end Process;
|
|
|
--Multiplexer
|
--Multiplexer
|
|
|
MUXOUT <= WaitReg(7 downto 4) when sclk = '1' else WaitReg(3 downto 0);
|
MUXOUT <= WaitReg(7 downto 4) when sclk = '1' else WaitReg(3 downto 0);
|
|
|
io_lines(15) <= '1' when WaitReg = x"74" else '0'; -- right
|
io_lines(15) <= '1' when WaitReg = x"74" else '0'; -- right
|
io_lines(14) <= '1' when WaitReg = x"6b" else '0'; -- left
|
io_lines(14) <= '1' when WaitReg = x"6b" else '0'; -- left
|
io_lines(13) <= '1' when WaitReg = x"72" else '0'; -- down
|
io_lines(13) <= '1' when WaitReg = x"72" else '0'; -- down
|
io_lines(12) <= '1' when WaitReg = x"75" else '0'; -- up
|
io_lines(12) <= '1' when WaitReg = x"75" else '0'; -- up
|
io_lines(11) <= '1' when WaitReg = x"23" else '0'; -- d
|
io_lines(11) <= '1' when WaitReg = x"23" else '0'; -- d
|
io_lines(10) <= '1' when WaitReg = x"1c" else '0'; -- a
|
io_lines(10) <= '1' when WaitReg = x"1c" else '0'; -- a
|
io_lines(9) <= '1' when WaitReg = x"1b" else '0'; -- s
|
io_lines(9) <= '1' when WaitReg = x"1b" else '0'; -- s
|
io_lines(8) <= '1' when WaitReg = x"1d" else '0'; -- w
|
io_lines(8) <= '1' when WaitReg = x"1d" else '0'; -- w
|
io_lines(7) <= '1' when WaitReg = x"05" else '0'; -- F1, p1 dif
|
io_lines(7) <= '1' when WaitReg = x"05" else '0'; -- F1, p1 dif
|
io_lines(6) <= '1' when WaitReg = x"06" else '0'; -- F2, p0 dif
|
io_lines(6) <= '1' when WaitReg = x"06" else '0'; -- F2, p0 dif
|
--io_lines(5) <= '1' when WaitReg = x"72" else '0'; -- not used
|
io_lines(5) <= '0'; -- not used
|
--io_lines(4) <= '1' when WaitReg = x"75" else '0'; -- not used
|
io_lines(4) <= '0'; -- not used
|
io_lines(3) <= '1' when WaitReg = x"04" else '0'; -- F3, color
|
io_lines(3) <= '1' when WaitReg = x"04" else '0'; -- F3, color
|
--io_lines(2) <= '1' when WaitReg = x"1c" else '0'; -- not used
|
io_lines(2) <= '0'; -- not used
|
io_lines(1) <= '1' when WaitReg = x"0c" else '0'; -- F4, game select
|
io_lines(1) <= '1' when WaitReg = x"0c" else '0'; -- F4, game select
|
io_lines(0) <= '1' when WaitReg = x"03" else '0'; -- F5, game select
|
io_lines(0) <= '1' when WaitReg = x"03" else '0'; -- F5, game select
|
|
|
|
|
--Seven Segment Decoder--
|
--Seven Segment Decoder--
|
--sseg <= "1000000" when MUXOUT = "0000" else
|
--sseg <= "1000000" when MUXOUT = "0000" else
|
-- "1111001" when MUXOUT = "0001" else
|
-- "1111001" when MUXOUT = "0001" else
|
-- "0100100" when MUXOUT = "0010" else
|
-- "0100100" when MUXOUT = "0010" else
|
-- "0110000" when MUXOUT = "0011" else
|
-- "0110000" when MUXOUT = "0011" else
|
-- "0011001" when MUXOUT = "0100" else
|
-- "0011001" when MUXOUT = "0100" else
|
-- "0010010" when MUXOUT = "0101" else
|
-- "0010010" when MUXOUT = "0101" else
|
-- "0000010" when MUXOUT = "0110" else
|
-- "0000010" when MUXOUT = "0110" else
|
-- "1111000" when MUXOUT = "0111" else
|
-- "1111000" when MUXOUT = "0111" else
|
-- "0000000" when MUXOUT = "1000" else
|
-- "0000000" when MUXOUT = "1000" else
|
-- "0010000" when MUXOUT = "1001" else
|
-- "0010000" when MUXOUT = "1001" else
|
-- "0001000" when MUXOUT = "1010" else
|
-- "0001000" when MUXOUT = "1010" else
|
-- "0000011" when MUXOUT = "1011" else
|
-- "0000011" when MUXOUT = "1011" else
|
-- "1000110" when MUXOUT = "1100" else
|
-- "1000110" when MUXOUT = "1100" else
|
-- "0100001" when MUXOUT = "1101" else
|
-- "0100001" when MUXOUT = "1101" else
|
-- "0000110" when MUXOUT = "1110" else
|
-- "0000110" when MUXOUT = "1110" else
|
-- "0001110" when MUXOUT = "1111" else
|
-- "0001110" when MUXOUT = "1111" else
|
-- "1111111";
|
-- "1111111";
|
|
|
--Anode Driver--
|
--Anode Driver--
|
--an(3) <= '1'; an(2) <= '1'; --disable first two seven-segment decoders.
|
--an(3) <= '1'; an(2) <= '1'; --disable first two seven-segment decoders.
|
--an(1 downto 0) <= "10" when sclk = '1' else "01";
|
--an(1 downto 0) <= "10" when sclk = '1' else "01";
|
|
|
end Behavioral;
|
end Behavioral;
|
|
|