| Line 1... |
Line 1... |
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
--
|
--
|
-- Testbench for the T411 system toplevel.
|
-- Testbench for the T411 system toplevel.
|
--
|
--
|
-- $Id: tb_t411.vhd,v 1.1.1.1 2006-05-06 01:56:44 arniml Exp $
|
-- $Id: tb_t411.vhd,v 1.2 2006-05-06 13:34:25 arniml Exp $
|
--
|
--
|
-- Copyright (c) 2006 Arnim Laeuger (arniml@opencores.org)
|
-- Copyright (c) 2006 Arnim Laeuger (arniml@opencores.org)
|
--
|
--
|
-- All rights reserved
|
-- All rights reserved
|
--
|
--
|
| Line 69... |
Line 69... |
signal io_g_s : std_logic_vector(2 downto 0);
|
signal io_g_s : std_logic_vector(2 downto 0);
|
|
|
signal si_s,
|
signal si_s,
|
so_s,
|
so_s,
|
sk_s : std_logic;
|
sk_s : std_logic;
|
signal sk_flt_s : std_logic;
|
|
|
|
signal vdd_s : std_logic;
|
signal vdd_s : std_logic;
|
|
|
begin
|
begin
|
|
|
| Line 237... |
Line 236... |
|
|
end process g_moni;
|
end process g_moni;
|
|
|
|
|
-----------------------------------------------------------------------------
|
-----------------------------------------------------------------------------
|
-- Delta cycle filter on sk_s
|
|
-----------------------------------------------------------------------------
|
|
sk_flt: process
|
|
begin
|
|
wait until sk_s'event;
|
|
|
|
wait for 1 ns;
|
|
|
|
sk_flt_s <= sk_s;
|
|
end process sk_flt;
|
|
|
|
|
|
-----------------------------------------------------------------------------
|
|
-- SIO peer
|
-- SIO peer
|
-----------------------------------------------------------------------------
|
-----------------------------------------------------------------------------
|
sio_peer: process
|
sio_peer: process
|
begin
|
begin
|
si_s <= '0';
|
si_s <= '0';
|
| Line 267... |
Line 253... |
wait until io_l_s'event or so_s'event or sk_s'event;
|
wait until io_l_s'event or so_s'event or sk_s'event;
|
end loop;
|
end loop;
|
|
|
-- now feed SO back to SI upon SK edge
|
-- now feed SO back to SI upon SK edge
|
loop
|
loop
|
wait until sk_flt_s'event and sk_flt_s = '1';
|
wait until sk_s'event and sk_s = '1';
|
wait for 10 us;
|
wait for 10 us;
|
si_s <= so_s;
|
si_s <= so_s;
|
end loop;
|
end loop;
|
|
|
wait;
|
wait;
|
| Line 298... |
Line 284... |
|
|
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
-- File History:
|
-- File History:
|
--
|
--
|
-- $Log: not supported by cvs2svn $
|
-- $Log: not supported by cvs2svn $
|
|
-- Revision 1.1.1.1 2006/05/06 01:56:44 arniml
|
|
-- import from local CVS repository, LOC_CVS_0_1
|
|
--
|
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
|
|
No newline at end of file
|
No newline at end of file
|
