--------------------------------------------------------------------------------
-- Copyright (c) 1995-2003 Xilinx, Inc.
-- All Right Reserved.
--------------------------------------------------------------------------------
--   ____  ____ 
--  /   /\/   / 
-- /___/  \  /    Vendor: Xilinx 
-- \   \   \/     Version : 10.1
--  \   \         Application : ISE
--  /   /         Filename : TestBench2.vhw
-- /___/   /\     Timestamp : Mon Jun 09 11:42:37 2008
-- \   \  /  \ 
--  \___\/\___\ 
--
--Command: 
--Design Name: TestBench2
--Device: Xilinx
--

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
USE IEEE.STD_LOGIC_TEXTIO.ALL;
USE STD.TEXTIO.ALL;

ENTITY TestBench2 IS
END TestBench2;

ARCHITECTURE testbench_arch OF TestBench2 IS
    FILE RESULTS: TEXT OPEN WRITE_MODE IS "results.txt";

    COMPONENT vme
        PORT (
            indsr : In std_logic;
            inldtack : In std_logic;
            outlds : Out std_logic;
            outd : Out std_logic;
            outcsc0 : Out std_logic
        );
    END COMPONENT;

    SIGNAL indsr : std_logic := '0';
    SIGNAL inldtack : std_logic := '0';
    SIGNAL outlds : std_logic := '0';
    SIGNAL outd : std_logic := '0';
    SIGNAL outcsc0 : std_logic := '0';

    BEGIN
        UUT : vme
        PORT MAP (
            indsr => indsr,
            inldtack => inldtack,
            outlds => outlds,
            outd => outd,
            outcsc0 => outcsc0
        );

        PROCESS
            BEGIN
                -- -------------  Current Time:  100ns
                WAIT FOR 100 ns;
                indsr <= '1';
                -- -------------------------------------
                -- -------------  Current Time:  200ns
                WAIT FOR 100 ns;
                inldtack <= '1';
                -- -------------------------------------
                -- -------------  Current Time:  300ns
                WAIT FOR 100 ns;
                indsr <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  400ns
                WAIT FOR 100 ns;
                inldtack <= '0';
                -- -------------------------------------
                WAIT FOR 600 ns;

            END PROCESS;

    END testbench_arch;

