URL
https://opencores.org/ocsvn/w11/w11/trunk
Subversion Repositories w11
[/] [w11/] [tags/] [w11a_V0.7/] [rtl/] [bplib/] [basys3/] [tb/] [tb_basys3_core.vhd] - Rev 33
Compare with Previous | Blame | View Log
-- $Id: tb_basys3_core.vhd 648 2015-02-20 20:16:21Z mueller $ -- -- Copyright 2015- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de> -- -- This program is free software; you may redistribute and/or modify it under -- the terms of the GNU General Public License as published by the Free -- Software Foundation, either version 2, or at your option any later version. -- -- This program is distributed in the hope that it will be useful, but -- WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- for complete details. -- ------------------------------------------------------------------------------ -- Module Name: tb_basys3_core - sim -- Description: Test bench for basys3 - core device handling -- -- Dependencies: - -- -- To test: generic, any basys3 target -- -- Target Devices: generic -- Tool versions: viv 2014.4; ghdl 0.31 -- Revision History: -- Date Rev Version Comment -- 2015-02-18 648 1.0 Initial version (derived from tb_nexys4_core) ------------------------------------------------------------------------------ library ieee; use ieee.std_logic_1164.all; use ieee.numeric_std.all; use ieee.std_logic_textio.all; use std.textio.all; use work.slvtypes.all; use work.serportlib.all; use work.simbus.all; entity tb_basys3_core is port ( I_SWI : out slv16; -- b3 switches I_BTN : out slv5 -- b3 buttons ); end tb_basys3_core; architecture sim of tb_basys3_core is signal R_SWI : slv16 := (others=>'0'); signal R_BTN : slv5 := (others=>'0'); constant sbaddr_swi: slv8 := slv(to_unsigned( 16,8)); constant sbaddr_btn: slv8 := slv(to_unsigned( 17,8)); begin proc_simbus: process (SB_VAL) begin if SB_VAL'event and to_x01(SB_VAL)='1' then if SB_ADDR = sbaddr_swi then R_SWI <= to_x01(SB_DATA(R_SWI'range)); end if; if SB_ADDR = sbaddr_btn then R_BTN <= to_x01(SB_DATA(R_BTN'range)); end if; end if; end process proc_simbus; I_SWI <= R_SWI; I_BTN <= R_BTN; end sim;