--------------------------------------------------------------------------------
-- Copyright (c) 1995-2003 Xilinx, Inc.
-- All Right Reserved.
--------------------------------------------------------------------------------
--   ____  ____ 
--  /   /\/   / 
-- /___/  \  /    Vendor: Xilinx 
-- \   \   \/     Version : 10.1.03
--  \   \         Application : ISE
--  /   /         Filename : lcd_timing_test.ant
-- /___/   /\     Timestamp : Sun Jun 28 09:21:33 2009
-- \   \  /  \ 
--  \___\/\___\ 
--
--Command: 
--Design Name: lcd_timing_test
--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 lcd_timing_test IS
END lcd_timing_test;

ARCHITECTURE testbench_arch OF lcd_timing_test IS
    FILE RESULTS: TEXT OPEN WRITE_MODE IS "E:\ProjFPGA\ct-BASIC-LCD\main\lcd_timing_test.ano";

    COMPONENT lcd_timing
        PORT (
            SYSCLK50 : In std_logic;
            font_data : In std_logic_vector (7 DownTo 0);
            text_data : In std_logic_vector (7 DownTo 0);
            inverse : In std_logic;
            bright : In std_logic;
            blink : In std_logic;
            cursx : In std_logic_vector (7 DownTo 0);
            cursy : In std_logic_vector (7 DownTo 0);
            lcd_clk : Out std_logic;
            lcd_load : Out std_logic;
            lcd_frame : Out std_logic;
            lcd_on : Out std_logic;
            lcd_addr : Out std_logic_vector (14 DownTo 0);
            text_addr : Out std_logic_vector (9 DownTo 0);
            pixel_column : Out std_logic_vector (8 DownTo 0);
            pixel_line : Out std_logic_vector (7 DownTo 0);
            pixel_clk : Out std_logic;
            font_addr : Out std_logic_vector (11 DownTo 0);
            lcd_data : Out std_logic_vector (3 DownTo 0)
        );
    END COMPONENT;

    SIGNAL SYSCLK50 : std_logic := '0';
    SIGNAL font_data : std_logic_vector (7 DownTo 0) := "00000000";
    SIGNAL text_data : std_logic_vector (7 DownTo 0) := "00000000";
    SIGNAL inverse : std_logic := '0';
    SIGNAL bright : std_logic := '0';
    SIGNAL blink : std_logic := '0';
    SIGNAL cursx : std_logic_vector (7 DownTo 0) := "00000000";
    SIGNAL cursy : std_logic_vector (7 DownTo 0) := "00000000";
    SIGNAL lcd_clk : std_logic := '0';
    SIGNAL lcd_load : std_logic := '0';
    SIGNAL lcd_frame : std_logic := '0';
    SIGNAL lcd_on : std_logic := '0';
    SIGNAL lcd_addr : std_logic_vector (14 DownTo 0) := "000000000000000";
    SIGNAL text_addr : std_logic_vector (9 DownTo 0) := "0000000000";
    SIGNAL pixel_column : std_logic_vector (8 DownTo 0) := "000000000";
    SIGNAL pixel_line : std_logic_vector (7 DownTo 0) := "00000000";
    SIGNAL pixel_clk : std_logic := '0';
    SIGNAL font_addr : std_logic_vector (11 DownTo 0) := "000000000000";
    SIGNAL lcd_data : std_logic_vector (3 DownTo 0) := "0000";

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

    constant PERIOD : time := 20 ns;
    constant DUTY_CYCLE : real := 0.5;
    constant OFFSET : time := 20 ns;

    BEGIN
        UUT : lcd_timing
        PORT MAP (
            SYSCLK50 => SYSCLK50,
            font_data => font_data,
            text_data => text_data,
            inverse => inverse,
            bright => bright,
            blink => blink,
            cursx => cursx,
            cursy => cursy,
            lcd_clk => lcd_clk,
            lcd_load => lcd_load,
            lcd_frame => lcd_frame,
            lcd_on => lcd_on,
            lcd_addr => lcd_addr,
            text_addr => text_addr,
            pixel_column => pixel_column,
            pixel_line => pixel_line,
            pixel_clk => pixel_clk,
            font_addr => font_addr,
            lcd_data => lcd_data
        );

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

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

            PROCEDURE ANNOTATE_lcd_clk(
                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'(", lcd_clk, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, lcd_clk);
                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_lcd_load(
                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'(", lcd_load, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, lcd_load);
                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_lcd_frame(
                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'(", lcd_frame, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, lcd_frame);
                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_lcd_on(
                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'(", lcd_on, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, lcd_on);
                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_lcd_addr(
                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'(", lcd_addr, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, lcd_addr);
                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_text_addr(
                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'(", text_addr, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, text_addr);
                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_pixel_column(
                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'(", pixel_column, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, pixel_column);
                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_pixel_line(
                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'(", pixel_line, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, pixel_line);
                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_pixel_clk(
                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'(", pixel_clk, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, pixel_clk);
                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_font_addr(
                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'(", font_addr, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, font_addr);
                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_lcd_data(
                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'(", lcd_data, "));
                IEEE.STD_LOGIC_TEXTIO.write(TX_LOC, lcd_data);
                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_lcd_clk(0);
            ANNOTATE_lcd_load(0);
            ANNOTATE_lcd_frame(0);
            ANNOTATE_lcd_on(0);
            ANNOTATE_lcd_addr(0);
            ANNOTATE_text_addr(0);
            ANNOTATE_pixel_column(0);
            ANNOTATE_pixel_line(0);
            ANNOTATE_pixel_clk(0);
            ANNOTATE_font_addr(0);
            ANNOTATE_lcd_data(0);
            WAIT for OFFSET;
            TX_TIME := TX_TIME + 20;
            ANNO_LOOP : LOOP
                --Rising Edge
                WAIT for 12 ns;
                TX_TIME := TX_TIME + 12;
                ANNOTATE_lcd_clk(TX_TIME);
                ANNOTATE_lcd_load(TX_TIME);
                ANNOTATE_lcd_frame(TX_TIME);
                ANNOTATE_lcd_on(TX_TIME);
                ANNOTATE_lcd_addr(TX_TIME);
                ANNOTATE_text_addr(TX_TIME);
                ANNOTATE_pixel_column(TX_TIME);
                ANNOTATE_pixel_line(TX_TIME);
                ANNOTATE_pixel_clk(TX_TIME);
                ANNOTATE_font_addr(TX_TIME);
                ANNOTATE_lcd_data(TX_TIME);
                WAIT for 8 ns;
                TX_TIME := TX_TIME + 8;
            END LOOP ANNO_LOOP;
        END PROCESS;

        PROCESS
            BEGIN
                -- -------------  Current Time:  20ns
                WAIT FOR 20 ns;
                font_data <= "10100101";
                text_data <= "00100000";
                -- -------------------------------------
                -- -------------  Current Time:  28ns
                WAIT FOR 8 ns;
                bright <= '1';
                -- -------------------------------------
                -- -------------  Current Time:  488ns
                WAIT FOR 460 ns;
                text_data <= "00100001";
                -- -------------------------------------
                -- -------------  Current Time:  1128ns
                WAIT FOR 640 ns;
                text_data <= "00100010";
                -- -------------------------------------
                WAIT FOR 652 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;