delay_tbw2.vhw

来自「本程序以ISE为开发平台」· VHW 代码 · 共 288 行

--------------------------------------------------------------------------------
-- Copyright (c) 1995-2003 Xilinx, Inc.
-- All Right Reserved.
--------------------------------------------------------------------------------
--   ____  ____ 
--  /   /\/   / 
-- /___/  \  /    Vendor: Xilinx 
-- \   \   \/     Version : 8.2i
--  \   \         Application : ISE
--  /   /         Filename : DELAY_tbw2.vhw
-- /___/   /\     Timestamp : Sat May 12 08:48:12 2007
-- \   \  /  \ 
--  \___\/\___\ 
--
--Command: 
--Design Name: DELAY_tbw2
--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 DELAY_tbw2 IS
END DELAY_tbw2;

ARCHITECTURE testbench_arch OF DELAY_tbw2 IS
    COMPONENT DELAY_VHD
        PORT (
            TRIG : In std_logic;
            CLK : In std_logic;
            DATA8 : In std_logic_vector (7 DownTo 0);
            LATCH : In std_logic;
            OUTPUT : Out std_logic;
            output1 : Out std_logic
        );
    END COMPONENT;

    SIGNAL TRIG : std_logic := '0';
    SIGNAL CLK : std_logic := '0';
    SIGNAL DATA8 : std_logic_vector (7 DownTo 0) := "00000000";
    SIGNAL LATCH : std_logic := '0';
    SIGNAL OUTPUT : std_logic := '0';
    SIGNAL output1 : std_logic := '';

    SHARED VARIABLE TX_ERROR : INTEGER := 0;
    SHARED VARIABLE TX_OUT : LINE;

    constant PERIOD : time := 40 ns;
    constant DUTY_CYCLE : real := 0.5;
    constant OFFSET : time := 0 ns;

    BEGIN
        UUT : DELAY_VHD
        PORT MAP (
            TRIG => TRIG,
            CLK => CLK,
            DATA8 => DATA8,
            LATCH => LATCH,
            OUTPUT => OUTPUT,
            output1 => output1
        );

        PROCESS    -- clock process for CLK
        BEGIN
            WAIT for OFFSET;
            CLOCK_LOOP : LOOP
                CLK <= '0';
                WAIT FOR (PERIOD - (PERIOD * DUTY_CYCLE));
                CLK <= '1';
                WAIT FOR (PERIOD * DUTY_CYCLE);
            END LOOP CLOCK_LOOP;
        END PROCESS;

        PROCESS
            PROCEDURE CHECK_OUTPUT(
                next_OUTPUT : std_logic;
                TX_TIME : INTEGER
            ) IS
                VARIABLE TX_STR : String(1 to 4096);
                VARIABLE TX_LOC : LINE;
                BEGIN
                IF (OUTPUT /= next_OUTPUT) THEN
                    STD.TEXTIO.write(TX_LOC, string'("Error at time="));
                    STD.TEXTIO.write(TX_LOC, TX_TIME);
                    STD.TEXTIO.write(TX_LOC, string'("ns OUTPUT="));
                    IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, OUTPUT);
                    STD.TEXTIO.write(TX_LOC, string'(", Expected = "));
                    IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, next_OUTPUT);
                    STD.TEXTIO.write(TX_LOC, string'(" "));
                    TX_STR(TX_LOC.all'range) := TX_LOC.all;
                    STD.TEXTIO.Deallocate(TX_LOC);
                    ASSERT (FALSE) REPORT TX_STR SEVERITY ERROR;
                    TX_ERROR := TX_ERROR + 1;
                END IF;
            END;
            PROCEDURE CHECK_output1(
                next_output1 : std_logic;
                TX_TIME : INTEGER
            ) IS
                VARIABLE TX_STR : String(1 to 4096);
                VARIABLE TX_LOC : LINE;
                BEGIN
                IF (output1 /= next_output1) THEN
                    STD.TEXTIO.write(TX_LOC, string'("Error at time="));
                    STD.TEXTIO.write(TX_LOC, TX_TIME);
                    STD.TEXTIO.write(TX_LOC, string'("ns output1="));
                    IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, output1);
                    STD.TEXTIO.write(TX_LOC, string'(", Expected = "));
                    IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, next_output1);
                    STD.TEXTIO.write(TX_LOC, string'(" "));
                    TX_STR(TX_LOC.all'range) := TX_LOC.all;
                    STD.TEXTIO.Deallocate(TX_LOC);
                    ASSERT (FALSE) REPORT TX_STR SEVERITY ERROR;
                    TX_ERROR := TX_ERROR + 1;
                END IF;
            END;
            BEGIN
                -- -------------  Current Time:  95ns
                WAIT FOR 95 ns;
                LATCH <= '1';
                TRIG <= '1';
                DATA8 <= "00000110";
                -- -------------------------------------
                -- -------------  Current Time:  135ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  175ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                DATA8 <= "00000000";
                -- -------------------------------------
                -- -------------  Current Time:  855ns
                WAIT FOR 680 ns;
                LATCH <= '1';
                TRIG <= '1';
                DATA8 <= "00000100";
                -- -------------------------------------
                -- -------------  Current Time:  895ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                DATA8 <= "00000000";
                -- -------------------------------------
                -- -------------  Current Time:  935ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  1735ns
                WAIT FOR 800 ns;
                LATCH <= '1';
                TRIG <= '1';
                DATA8 <= "00000101";
                -- -------------------------------------
                -- -------------  Current Time:  1775ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                DATA8 <= "00000000";
                -- -------------------------------------
                -- -------------  Current Time:  1815ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  2495ns
                WAIT FOR 680 ns;
                LATCH <= '1';
                TRIG <= '1';
                -- -------------------------------------
                -- -------------  Current Time:  2535ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                DATA8 <= "00000110";
                -- -------------------------------------
                -- -------------  Current Time:  2575ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                DATA8 <= "00000000";
                -- -------------------------------------
                -- -------------  Current Time:  3135ns
                WAIT FOR 560 ns;
                LATCH <= '1';
                TRIG <= '1';
                DATA8 <= "00000111";
                -- -------------------------------------
                -- -------------  Current Time:  3175ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                DATA8 <= "00000000";
                -- -------------------------------------
                -- -------------  Current Time:  3215ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  3935ns
                WAIT FOR 720 ns;
                LATCH <= '1';
                TRIG <= '1';
                DATA8 <= "00001000";
                -- -------------------------------------
                -- -------------  Current Time:  3975ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                DATA8 <= "00000000";
                -- -------------------------------------
                -- -------------  Current Time:  4015ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  4535ns
                WAIT FOR 520 ns;
                LATCH <= '1';
                TRIG <= '1';
                DATA8 <= "00000001";
                -- -------------------------------------
                -- -------------  Current Time:  4575ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                DATA8 <= "00000000";
                -- -------------------------------------
                -- -------------  Current Time:  4615ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  5055ns
                WAIT FOR 440 ns;
                LATCH <= '1';
                TRIG <= '1';
                DATA8 <= "00000011";
                -- -------------------------------------
                -- -------------  Current Time:  5095ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                DATA8 <= "00000000";
                -- -------------------------------------
                -- -------------  Current Time:  5135ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  5775ns
                WAIT FOR 640 ns;
                LATCH <= '1';
                TRIG <= '1';
                DATA8 <= "00001100";
                -- -------------------------------------
                -- -------------  Current Time:  5815ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                DATA8 <= "00000000";
                -- -------------------------------------
                -- -------------  Current Time:  5855ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  6455ns
                WAIT FOR 600 ns;
                LATCH <= '1';
                TRIG <= '1';
                -- -------------------------------------
                -- -------------  Current Time:  6495ns
                WAIT FOR 40 ns;
                LATCH <= '0';
                -- -------------------------------------
                -- -------------  Current Time:  6535ns
                WAIT FOR 40 ns;
                TRIG <= '0';
                -- -------------------------------------
                WAIT FOR 3505 ns;

                IF (TX_ERROR = 0) THEN
                    STD.TEXTIO.write(TX_OUT, string'("No errors or warnings"));
                    ASSERT (FALSE) REPORT
                      "Simulation successful (not a failure).  No problems detected."
                      SEVERITY FAILURE;
                ELSE
                    STD.TEXTIO.write(TX_OUT, TX_ERROR);
                    STD.TEXTIO.write(TX_OUT,
                        string'(" errors found in simulation"));
                    ASSERT (FALSE) REPORT "Errors found during simulation"
                         SEVERITY FAILURE;
                END IF;
            END PROCESS;

    END testbench_arch;