📄 picunit3_tbw.ant
字号:
--------------------------------------------------------------------------------
-- Copyright (c) 1995-2003 Xilinx, Inc.
-- All Right Reserved.
--------------------------------------------------------------------------------
-- ____ ____
-- / /\/ /
-- /___/ \ / Vendor: Xilinx
-- \ \ \/ Version : 7.1.04i
-- \ \ Application : ISE WebPACK
-- / / Filename : PICunit3_tbw.ant
-- /___/ /\ Timestamp : Tue Mar 10 15:02:43 2009
-- \ \ / \
-- \___\/\___\
--
--Command:
--Design Name: PICunit3_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 PICunit3_tbw IS
END PICunit3_tbw;
ARCHITECTURE testbench_arch OF PICunit3_tbw IS
FILE RESULTS: TEXT OPEN WRITE_MODE IS "D:\KSC\lab2\PICunit3_tbw.ano";
COMPONENT picunit
PORT (
PIC_clk : In std_logic;
Key_num : In std_logic_vector (2 DownTo 0);
Key_EN : Out std_logic;
Set : In std_logic;
Clear : In std_logic;
Door : In std_logic;
TC : In std_logic;
Start : In std_logic;
Counter_EN : Out std_logic;
Counter_Reset : Out std_logic;
LED : Out std_logic_vector (2 DownTo 0)
);
END COMPONENT;
SIGNAL PIC_clk : std_logic := '0';
SIGNAL Key_num : std_logic_vector (2 DownTo 0) := "000";
SIGNAL Key_EN : std_logic := '0';
SIGNAL Set : std_logic := '0';
SIGNAL Clear : std_logic := '0';
SIGNAL Door : std_logic := '0';
SIGNAL TC : std_logic := '0';
SIGNAL Start : std_logic := '0';
SIGNAL Counter_EN : std_logic := '0';
SIGNAL Counter_Reset : std_logic := '0';
SIGNAL LED : std_logic_vector (2 DownTo 0) := "000";
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 : picunit
PORT MAP (
PIC_clk => PIC_clk,
Key_num => Key_num,
Key_EN => Key_EN,
Set => Set,
Clear => Clear,
Door => Door,
TC => TC,
Start => Start,
Counter_EN => Counter_EN,
Counter_Reset => Counter_Reset,
LED => LED
);
PROCESS -- clock process for PIC_clk
BEGIN
WAIT for OFFSET;
CLOCK_LOOP : LOOP
PIC_clk <= '0';
WAIT FOR (PERIOD - (PERIOD * DUTY_CYCLE));
PIC_clk <= '1';
WAIT FOR (PERIOD * DUTY_CYCLE);
END LOOP CLOCK_LOOP;
END PROCESS;
PROCESS -- Annotation process for PIC_clk
VARIABLE TX_TIME : INTEGER := 0;
PROCEDURE ANNOTATE_Key_EN(
TX_TIME : INTEGER
) IS
VARIABLE TX_STR : String(1 to 4096);
VARIABLE TX_LOC : LINE;
BEGIN
STD.TEXTIO.write(TX_LOC, string'("Annotate["));
STD.TEXTIO.write(TX_LOC, TX_TIME);
STD.TEXTIO.write(TX_LOC, string'(", Key_EN, "));
IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, Key_EN);
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);
END;
PROCEDURE ANNOTATE_Counter_EN(
TX_TIME : INTEGER
) IS
VARIABLE TX_STR : String(1 to 4096);
VARIABLE TX_LOC : LINE;
BEGIN
STD.TEXTIO.write(TX_LOC, string'("Annotate["));
STD.TEXTIO.write(TX_LOC, TX_TIME);
STD.TEXTIO.write(TX_LOC, string'(", Counter_EN, "));
IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, Counter_EN);
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);
END;
PROCEDURE ANNOTATE_Counter_Reset(
TX_TIME : INTEGER
) IS
VARIABLE TX_STR : String(1 to 4096);
VARIABLE TX_LOC : LINE;
BEGIN
STD.TEXTIO.write(TX_LOC, string'("Annotate["));
STD.TEXTIO.write(TX_LOC, TX_TIME);
STD.TEXTIO.write(TX_LOC, string'(", Counter_Reset, "));
IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, Counter_Reset);
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);
END;
PROCEDURE ANNOTATE_LED(
TX_TIME : INTEGER
) IS
VARIABLE TX_STR : String(1 to 4096);
VARIABLE TX_LOC : LINE;
BEGIN
STD.TEXTIO.write(TX_LOC, string'("Annotate["));
STD.TEXTIO.write(TX_LOC, TX_TIME);
STD.TEXTIO.write(TX_LOC, string'(", LED, "));
IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, LED);
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);
END;
BEGIN
WAIT for 1 fs;
ANNOTATE_Key_EN(0);
ANNOTATE_Counter_EN(0);
ANNOTATE_Counter_Reset(0);
ANNOTATE_LED(0);
WAIT for OFFSET;
TX_TIME := TX_TIME + 0;
ANNO_LOOP : LOOP
--Rising Edge
WAIT for 60 ns;
TX_TIME := TX_TIME + 60;
ANNOTATE_Key_EN(TX_TIME);
ANNOTATE_Counter_EN(TX_TIME);
ANNOTATE_Counter_Reset(TX_TIME);
ANNOTATE_LED(TX_TIME);
WAIT for 40 ns;
TX_TIME := TX_TIME + 40;
END LOOP ANNO_LOOP;
END PROCESS;
PROCESS
BEGIN
-- ------------- Current Time: 40ns
WAIT FOR 40 ns;
Clear <= '0';
-- -------------------------------------
-- ------------- Current Time: 140ns
WAIT FOR 100 ns;
Clear <= '1';
-- -------------------------------------
-- ------------- Current Time: 240ns
WAIT FOR 100 ns;
Set <= '0';
Key_num <= "100";
-- -------------------------------------
-- ------------- Current Time: 340ns
WAIT FOR 100 ns;
Set <= '1';
Key_num <= "000";
-- -------------------------------------
-- ------------- Current Time: 440ns
WAIT FOR 100 ns;
Start <= '0';
-- -------------------------------------
-- ------------- Current Time: 540ns
WAIT FOR 100 ns;
Door <= '0';
Start <= '1';
-- -------------------------------------
-- ------------- Current Time: 640ns
WAIT FOR 100 ns;
Set <= '0';
Start <= '0';
Key_num <= "010";
-- -------------------------------------
-- ------------- Current Time: 740ns
WAIT FOR 100 ns;
Door <= '1';
Set <= '1';
Start <= '1';
Key_num <= "000";
-- -------------------------------------
-- ------------- Current Time: 840ns
WAIT FOR 100 ns;
Start <= '0';
-- -------------------------------------
-- ------------- Current Time: 940ns
WAIT FOR 100 ns;
Start <= '1';
-- -------------------------------------
-- ------------- Current Time: 1340ns
WAIT FOR 400 ns;
TC <= '1';
-- -------------------------------------
-- ------------- Current Time: 1440ns
WAIT FOR 100 ns;
TC <= '0';
-- -------------------------------------
WAIT FOR 660 ns;
STD.TEXTIO.write(TX_OUT, string'("Total[]"));
STD.TEXTIO.writeline(RESULTS, TX_OUT);
ASSERT (FALSE) REPORT
"Success! Simulation for annotation completed"
SEVERITY FAILURE;
END PROCESS;
END testbench_arch;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -