kkk.ant

用VHDL编写的串口异步通信的例子

--------------------------------------------------------------------------------
-- Copyright (c) 1995-2003 Xilinx, Inc.
-- All Right Reserved.
--------------------------------------------------------------------------------
--   ____  ____ 
--  /   /\/   / 
-- /___/  \  /    Vendor: Xilinx 
-- \   \   \/     Version : 7.1.04i
--  \   \         Application : ISE Foundation
--  /   /         Filename : kkk.ant
-- /___/   /\     Timestamp : Tue Mar 27 11:45:15 2007
-- \   \  /  \ 
--  \___\/\___\ 
--
--Command: 
--Design Name: kkk
--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 kkk IS
END kkk;

ARCHITECTURE testbench_arch OF kkk IS
    FILE RESULTS: TEXT OPEN WRITE_MODE IS "E:\program files\Xilinx ISE 7.1i\New Folder\yibutongxin\kkk.ano";

    COMPONENT yibutongxin
        PORT (
            sin : In std_logic;
            rxclk : In std_logic;
            txclk : In std_logic;
            tran : In std_logic;
            ldsr : Buffer std_logic;
            ldrb : Buffer std_logic;
            fe : Out std_logic;
            d : Out std_logic_vector (7 DownTo 0);
            rxbuff : Buffer std_logic_vector (7 DownTo 0);
            sclk : Buffer std_logic
        );
    END COMPONENT;

    SIGNAL sin : std_logic := '0';
    SIGNAL rxclk : std_logic := '0';
    SIGNAL txclk : std_logic := '0';
    SIGNAL tran : std_logic := '0';
    SIGNAL ldsr : std_logic := '0';
    SIGNAL ldrb : std_logic := '0';
    SIGNAL fe : std_logic := '0';
    SIGNAL d : std_logic_vector (7 DownTo 0) := "00000000";
    SIGNAL rxbuff : std_logic_vector (7 DownTo 0) := "00000000";
    SIGNAL sclk : std_logic := '0';

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

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

    BEGIN
        UUT : yibutongxin
        PORT MAP (
            sin => sin,
            rxclk => rxclk,
            txclk => txclk,
            tran => tran,
            ldsr => ldsr,
            ldrb => ldrb,
            fe => fe,
            d => d,
            rxbuff => rxbuff,
            sclk => sclk
        );

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

        PROCESS    -- Annotation process for rxclk
            VARIABLE TX_TIME : INTEGER := 0;

            PROCEDURE ANNOTATE_fe(
                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'(", fe, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, fe);
                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_d(
                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'(", d, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, d);
                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_fe(0);
            ANNOTATE_d(0);
            WAIT for OFFSET;
            TX_TIME := TX_TIME + 0;
            ANNO_LOOP : LOOP
                --Rising Edge
                WAIT for 115 ns;
                TX_TIME := TX_TIME + 115;
                ANNOTATE_fe(TX_TIME);
                ANNOTATE_d(TX_TIME);
                WAIT for 85 ns;
                TX_TIME := TX_TIME + 85;
            END LOOP ANNO_LOOP;
        END PROCESS;

        PROCESS
            BEGIN
                WAIT FOR 1200 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;