📄 ccdout_tbw.vhw
字号:
--------------------------------------------------------------------------------
-- Copyright (c) 1995-2003 Xilinx, Inc.
-- All Right Reserved.
--------------------------------------------------------------------------------
-- ____ ____
-- / /\/ /
-- /___/ \ / Vendor: Xilinx
-- \ \ \/ Version : 8.2i
-- \ \ Application : ISE
-- / / Filename : CCDOUT_tbw.vhw
-- /___/ /\ Timestamp : Thu May 17 17:11:59 2007
-- \ \ / \
-- \___\/\___\
--
--Command:
--Design Name: CCDOUT_tbw
--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 CCDOUT_tbw IS
END CCDOUT_tbw;
ARCHITECTURE testbench_arch OF CCDOUT_tbw IS
FILE RESULTS: TEXT OPEN WRITE_MODE IS "results.txt";
COMPONENT CCDOUT
PORT (
En : In std_logic;
clock : In std_logic;
Date_out : Out std_logic_vector (3 DownTo 0)
);
END COMPONENT;
SIGNAL En : std_logic := '0';
SIGNAL clock : std_logic := '0';
SIGNAL Date_out : std_logic_vector (3 DownTo 0) := "UUUU";
SHARED VARIABLE TX_ERROR : INTEGER := 0;
SHARED VARIABLE TX_OUT : LINE;
constant PERIOD : time := 100 ns;
constant DUTY_CYCLE : real := 0.5;
constant OFFSET : time := 0 ns;
BEGIN
UUT : CCDOUT
PORT MAP (
En => En,
clock => clock,
Date_out => Date_out
);
PROCESS -- clock process for clock
BEGIN
WAIT for OFFSET;
CLOCK_LOOP : LOOP
clock <= '0';
WAIT FOR (PERIOD - (PERIOD * DUTY_CYCLE));
clock <= '1';
WAIT FOR (PERIOD * DUTY_CYCLE);
END LOOP CLOCK_LOOP;
END PROCESS;
PROCESS
PROCEDURE CHECK_Date_out(
next_Date_out : std_logic_vector (3 DownTo 0);
TX_TIME : INTEGER
) IS
VARIABLE TX_STR : String(1 to 4096);
VARIABLE TX_LOC : LINE;
BEGIN
IF (Date_out /= next_Date_out) THEN
STD.TEXTIO.write(TX_LOC, string'("Error at time="));
STD.TEXTIO.write(TX_LOC, TX_TIME);
STD.TEXTIO.write(TX_LOC, string'("ns Date_out="));
IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, Date_out);
STD.TEXTIO.write(TX_LOC, string'(", Expected = "));
IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, next_Date_out);
STD.TEXTIO.write(TX_LOC, string'(" "));
TX_STR(TX_LOC.all'range) := TX_LOC.all;
STD.TEXTIO.writeline(RESULTS, TX_LOC);
STD.TEXTIO.Deallocate(TX_LOC);
ASSERT (FALSE) REPORT TX_STR SEVERITY ERROR;
TX_ERROR := TX_ERROR + 1;
END IF;
END;
BEGIN
-- ------------- Current Time: 245ns
WAIT FOR 245 ns;
En <= '1';
-- -------------------------------------
-- ------------- Current Time: 355ns
WAIT FOR 110 ns;
CHECK_Date_out("1011", 355);
-- -------------------------------------
-- ------------- Current Time: 455ns
WAIT FOR 100 ns;
CHECK_Date_out("1010", 455);
-- -------------------------------------
-- ------------- Current Time: 555ns
WAIT FOR 100 ns;
CHECK_Date_out("1001", 555);
-- -------------------------------------
-- ------------- Current Time: 655ns
WAIT FOR 100 ns;
CHECK_Date_out("1011", 655);
-- -------------------------------------
-- ------------- Current Time: 755ns
WAIT FOR 100 ns;
CHECK_Date_out("1010", 755);
-- -------------------------------------
-- ------------- Current Time: 855ns
WAIT FOR 100 ns;
CHECK_Date_out("0110", 855);
-- -------------------------------------
-- ------------- Current Time: 955ns
WAIT FOR 100 ns;
CHECK_Date_out("1011", 955);
-- -------------------------------------
-- ------------- Current Time: 1055ns
WAIT FOR 100 ns;
CHECK_Date_out("1010", 1055);
-- -------------------------------------
-- ------------- Current Time: 1155ns
WAIT FOR 100 ns;
CHECK_Date_out("0011", 1155);
-- -------------------------------------
-- ------------- Current Time: 1255ns
WAIT FOR 100 ns;
CHECK_Date_out("1011", 1255);
-- -------------------------------------
-- ------------- Current Time: 1355ns
WAIT FOR 100 ns;
CHECK_Date_out("1010", 1355);
-- -------------------------------------
-- ------------- Current Time: 1455ns
WAIT FOR 100 ns;
CHECK_Date_out("0000", 1455);
-- -------------------------------------
-- ------------- Current Time: 1555ns
WAIT FOR 100 ns;
CHECK_Date_out("1011", 1555);
-- -------------------------------------
-- ------------- Current Time: 1655ns
WAIT FOR 100 ns;
CHECK_Date_out("1010", 1655);
-- -------------------------------------
-- ------------- Current Time: 1755ns
WAIT FOR 100 ns;
CHECK_Date_out("1001", 1755);
-- -------------------------------------
-- ------------- Current Time: 1855ns
WAIT FOR 100 ns;
CHECK_Date_out("1011", 1855);
-- -------------------------------------
-- ------------- Current Time: 1955ns
WAIT FOR 100 ns;
CHECK_Date_out("1010", 1955);
-- -------------------------------------
-- ------------- Current Time: 2055ns
WAIT FOR 100 ns;
CHECK_Date_out("0110", 2055);
-- -------------------------------------
-- ------------- Current Time: 2155ns
WAIT FOR 100 ns;
CHECK_Date_out("1011", 2155);
-- -------------------------------------
-- ------------- Current Time: 2255ns
WAIT FOR 100 ns;
CHECK_Date_out("1010", 2255);
-- -------------------------------------
-- ------------- Current Time: 2355ns
WAIT FOR 100 ns;
CHECK_Date_out("0011", 2355);
-- -------------------------------------
-- ------------- Current Time: 2455ns
WAIT FOR 100 ns;
CHECK_Date_out("1011", 2455);
-- -------------------------------------
-- ------------- Current Time: 2555ns
WAIT FOR 100 ns;
CHECK_Date_out("1010", 2555);
-- -------------------------------------
-- ------------- Current Time: 2655ns
WAIT FOR 100 ns;
CHECK_Date_out("0000", 2655);
-- -------------------------------------
-- ------------- Current Time: 2755ns
WAIT FOR 100 ns;
CHECK_Date_out("1011", 2755);
-- -------------------------------------
-- ------------- Current Time: 2855ns
WAIT FOR 100 ns;
CHECK_Date_out("1010", 2855);
-- -------------------------------------
-- ------------- Current Time: 2955ns
WAIT FOR 100 ns;
CHECK_Date_out("1001", 2955);
-- -------------------------------------
WAIT FOR 145 ns;
IF (TX_ERROR = 0) THEN
STD.TEXTIO.write(TX_OUT, string'("No errors or warnings"));
STD.TEXTIO.writeline(RESULTS, TX_OUT);
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"));
STD.TEXTIO.writeline(RESULTS, TX_OUT);
ASSERT (FALSE) REPORT "Errors found during simulation"
SEVERITY FAILURE;
END IF;
END PROCESS;
END testbench_arch;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -