URL https://opencores.org/ocsvn/t6507lp/t6507lp/trunk

Subversion Repositories t6507lp

[/] [t6507lp/] [trunk/] [rtl/] [vhdl/] [t2600_kb.vhd] - Blame information for rev 241

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	210	creep	`----------------------------------------------------------------------------`
2			`---- ----`
3			`---- T2600 IP Core ----`
4			`---- ----`
5			`---- This file is part of the t2600 project ----`
6			`---- http://www.opencores.org/cores/t2600/ ----`
7			`---- ----`
8			`---- Description ----`
9			`---- t2600 keyboard controller ----`
10			`---- ----`
11			`---- TODO: ----`
12			`---- - Add the desired keys ----`
13			`---- ----`
14			`---- Author(s): ----`
15			`---- - Gabriel Oshiro Zardo, gabrieloshiro@gmail.com ----`
16			`---- - Samuel Nascimento Pagliarini (creep), snpagliarini@gmail.com ----`
17			`---- ----`
18			`----------------------------------------------------------------------------`
19			`---- ----`
20			`---- Copyright (C) Digilent ----`
21			`---- ----`
22			`---- This source was originally copyrighted by Digilent. The authors ----`
23			`---- just did some extra code to fit their needs. Several commented ----`
24			`---- lines are from the original file. ----`
25			`---- This file may be used as long as it not for commercial purposes. ----`
26			`---- ----`
27			`----------------------------------------------------------------------------`
28
29			`library IEEE;`
30			`use IEEE.STD_LOGIC_1164.ALL;`
31	214	creep	`--use IEEE.STD_LOGIC_ARITH.ALL;`
32	210	creep	`use IEEE.STD_LOGIC_UNSIGNED.ALL;`
33
34	214	creep	`entity T2600_KB is`
35	210	creep	`Port ( CLK, RST, KD, KC: in std_logic;`
36			`--an: out std_logic_vector (3 downto 0);`
37			`--sseg: out std_logic_vector (6 downto 0);`
38			`io_lines: out std_logic_vector (15 downto 0)`
39			`);`
40	214	creep	`end T2600_KB;`
41	210	creep
42			`architecture Behavioral of t2600_kb is`
43			`------------------------------------------------------------------------`
44			`-- Signal Declarations`
45			`------------------------------------------------------------------------`
46			`signal clkDiv : std_logic_vector (12 downto 0);`
47			`signal sclk, pclk : std_logic;`
48			`signal KDI, KCI : std_logic;`
49			`signal DFF1, DFF2 : std_logic;`
50			`signal shiftRegSig1: std_logic_vector(10 downto 0);`
51			`signal shiftRegSig2: std_logic_vector(10 downto 1);`
52			`signal MUXOUT: std_logic_vector (3 downto 0);`
53			`signal WaitReg: std_logic_vector (7 downto 0);`
54
55			`------------------------------------------------------------------------`
56			`-- Module Implementation`
57			`------------------------------------------------------------------------`
58
59			`begin`
60			`--Divide the master clock down to a lower frequency--`
61			`CLKDivider: Process (CLK, RST)`
62			`begin`
63			`if (RST = '1') then`
64			`clkDiv <= "0000000000000";`
65			`else`
66			`if (CLK = '1' and CLK'Event) then`
67			`clkDiv <= clkDiv +1;`
68			`end if;`
69			`end if;`
70			`end Process;`
71
72			`sclk <= clkDiv(12);`
73			`pclk <= clkDiv(3);`
74
75			`--Flip Flops used to condition signals coming from PS2--`
76			`Process (pclk, RST, KC, KD)`
77			`begin`
78			`if(RST = '1') then`
79			`DFF1 <= '0'; DFF2 <= '0'; KDI <= '0'; KCI <= '0';`
80			`else`
81			`if (pclk = '1' and pclk'Event) then`
82			`DFF1 <= KD; KDI <= DFF1; DFF2 <= KC; KCI <= DFF2;`
83			`end if;`
84			`end if;`
85			`end process;`
86
87			`--Shift Registers used to clock in scan codes from PS2--`
88			`Process(KDI, KCI, RST) --DFF2 carries KD and DFF4, and DFF4 carries KC`
89			`begin`
90			`if (RST = '1') then`
91			`ShiftRegSig1 <= "00000000000";`
92			`ShiftRegSig2 <= "0000000000";`
93			`else`
94			`if (KCI = '0' and KCI'Event) then`
95			`ShiftRegSig1(10 downto 0) <= KDI & ShiftRegSig1(10 downto 1);`
96			`ShiftRegSig2(10 downto 1) <= ShiftRegSig1(0) & ShiftRegSig2(10 downto 2);`
97			`end if;`
98			`end if;`
99			`end process;`
100
101			`--Wait Register`
102			`process(ShiftRegSig1, ShiftRegSig2, RST, KCI)`
103			`begin`
104			`if(RST = '1')then`
105			`WaitReg <= "00000000";`
106			`else`
107			`if(KCI'event and KCI = '1' and ShiftRegSig2(8 downto 1) = "11110000")then`
108			`WaitReg <= ShiftRegSig1(8 downto 1);`
109			`end if;`
110			`end if;`
111			`end Process;`
112
113			`--Multiplexer`
114
115			`MUXOUT <= WaitReg(7 downto 4) when sclk = '1' else WaitReg(3 downto 0);`
116
117			`io_lines(15) <= '1' when WaitReg = x"74" else '0'; -- right`
118			`io_lines(14) <= '1' when WaitReg = x"6b" else '0'; -- left`
119			`io_lines(13) <= '1' when WaitReg = x"72" else '0'; -- down`
120			`io_lines(12) <= '1' when WaitReg = x"75" else '0'; -- up`
121			`io_lines(11) <= '1' when WaitReg = x"23" else '0'; -- d`
122			`io_lines(10) <= '1' when WaitReg = x"1c" else '0'; -- a`
123			`io_lines(9) <= '1' when WaitReg = x"1b" else '0'; -- s`
124			`io_lines(8) <= '1' when WaitReg = x"1d" else '0'; -- w`
125			`io_lines(7) <= '1' when WaitReg = x"05" else '0'; -- F1, p1 dif`
126			`io_lines(6) <= '1' when WaitReg = x"06" else '0'; -- F2, p0 dif`
127	214	creep	`io_lines(5) <= '0'; -- not used`
128			`io_lines(4) <= '0'; -- not used`
129	210	creep	`io_lines(3) <= '1' when WaitReg = x"04" else '0'; -- F3, color`
130	214	creep	`io_lines(2) <= '0'; -- not used`
131	210	creep	`io_lines(1) <= '1' when WaitReg = x"0c" else '0'; -- F4, game select`
132			`io_lines(0) <= '1' when WaitReg = x"03" else '0'; -- F5, game select`
133
134
135			`--Seven Segment Decoder--`
136			`--sseg <= "1000000" when MUXOUT = "0000" else`
137			`-- "1111001" when MUXOUT = "0001" else`
138			`-- "0100100" when MUXOUT = "0010" else`
139			`-- "0110000" when MUXOUT = "0011" else`
140			`-- "0011001" when MUXOUT = "0100" else`
141			`-- "0010010" when MUXOUT = "0101" else`
142			`-- "0000010" when MUXOUT = "0110" else`
143			`-- "1111000" when MUXOUT = "0111" else`
144			`-- "0000000" when MUXOUT = "1000" else`
145			`-- "0010000" when MUXOUT = "1001" else`
146			`-- "0001000" when MUXOUT = "1010" else`
147			`-- "0000011" when MUXOUT = "1011" else`
148			`-- "1000110" when MUXOUT = "1100" else`
149			`-- "0100001" when MUXOUT = "1101" else`
150			`-- "0000110" when MUXOUT = "1110" else`
151			`-- "0001110" when MUXOUT = "1111" else`
152			`-- "1111111";`
153
154			`--Anode Driver--`
155			`--an(3) <= '1'; an(2) <= '1'; --disable first two seven-segment decoders.`
156			`--an(1 downto 0) <= "10" when sclk = '1' else "01";`
157
158			`end Behavioral;`

Browse

Tools

Subversion Repositories t6507lp

[/] [t6507lp/] [trunk/] [rtl/] [vhdl/] [t2600_kb.vhd] - Blame information for rev 241