123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 |
- ----------------------------------------------------------------------------------
- -- Company:
- -- Engineer:
- --
- -- Create Date: 12.07.2021 08:34:17
- -- Design Name:
- -- Module Name: TestSystem - 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;
-
- -- Uncomment the following library declaration if using
- -- arithmetic functions with Signed or Unsigned values
- --use IEEE.NUMERIC_STD.ALL;
-
- -- Uncomment the following library declaration if instantiating
- -- any Xilinx leaf cells in this code.
- --library UNISIM;
- --use UNISIM.VComponents.all;
-
- entity TestSystem is
- -- Port ( );
- end TestSystem;
-
- architecture Behavioral of TestSystem is
-
- component System is
- Port ( vgaRed : out STD_LOGIC_VECTOR (3 downto 0);
- vgaBlue : out STD_LOGIC_VECTOR (3 downto 0);
- vgaGreen : out STD_LOGIC_VECTOR (3 downto 0);
- Hsync : out STD_LOGIC;
- Vsync : out STD_LOGIC;
- PS2Clk : in STD_LOGIC;
- PS2Data : in STD_LOGIC;
- btnC : in STD_LOGIC;
- CLK : STD_LOGIC);
- end component;
-
- signal CLK : STD_LOGIC := '0';
- signal btnC : STD_LOGIC := '0';
- signal PS2Clk : STD_LOGIC := '0';
- signal PS2Data : STD_LOGIC := '0';
- signal vgaRed : STD_LOGIC_VECTOR (3 downto 0) := (others => '0');
- signal vgaBlue : STD_LOGIC_VECTOR (3 downto 0) := (others => '0');
- signal vgaGreen : STD_LOGIC_VECTOR (3 downto 0) := (others => '0');
- signal Hsync : STD_LOGIC := '0';
- signal Vsync : STD_LOGIC := '0';
-
- constant CLK_period : time := 10 ns;
-
- begin
- instance : System
- port map (vgaRed => vgaRed,
- vgaBlue => vgaBlue,
- vgaGreen => vgaGreen,
- Hsync => Hsync,
- Vsync => Vsync,
- PS2Clk => PS2Clk,
- PS2Data => PS2Data,
- btnC => btnC,
- CLK => CLK);
-
- CLK_process :process
- begin
- CLK <= '1';
- wait for CLK_period/2;
- CLK <= '0';
- wait for CLK_period/2;
- end process;
-
- process
- begin
- PS2Clk <= '1' after 3200 us, '0' after 3250 us, '1' after 3300 us, '0' after 3350 us, '1' after 3400 us, '0' after 3450 us, '1' after 3500 us, '0' after 3550 us, '1' after 3600 us, '0' after 3650 us, '1' after 3700 us, '0' after 3750 us, '1' after 3800 us, '0' after 3850 us, '1' after 3900 us, '0' after 3950 us, '1' after 4000 us, '0' after 4050 us, '1' after 4100 us, '0' after 4150 us, '1' after 4200 us, '0' after 4250 us, '1' after 5000 us, '0' after 5050 us, '1' after 5100 us, '0' after 5150 us, '1' after 5200 us, '0' after 5250 us, '1' after 5300 us, '0' after 5350 us, '1' after 5400 us, '0' after 5450 us, '1' after 5500 us, '0' after 5550 us, '1' after 5600 us, '0' after 5650 us, '1' after 5700 us, '0' after 5750 us, '1' after 5800 us, '0' after 5850 us, '1' after 5900 us, '0' after 5950 us, '1' after 6000 us, '0' after 6050 us;
- PS2Data <= '0' after 3200 us, '1' after 3300 us, '0' after 3400 us, '1' after 3500 us, '0' after 3600 us, '1' after 3700 us, '1' after 3800 us, '1' after 3900 us, '0' after 4000 us, '0' after 4100 us, '1' after 4200 us, '0' after 4300 us, '0' after 5000 us, '0' after 5100 us, '1' after 5200 us, '0' after 5300 us, '1' after 5400 us, '1' after 5500 us, '0' after 5600 us, '1' after 5700 us, '0' after 5800 us, '1' after 5900 us, '1' after 6000 us, '0' after 6100 us;
- wait;
- end process;
- end Behavioral;
|