OpenCores
URL https://opencores.org/ocsvn/modular_oscilloscope/modular_oscilloscope/trunk

Subversion Repositories modular_oscilloscope

Compare Revisions

  • This comparison shows the changes necessary to convert path
    /modular_oscilloscope/trunk/hdl/tbench
    from Rev 53 to Rev 54
    Reverse comparison

Rev 53 → Rev 54

/modullar_oscilloscope_tbench_text.vhd
14,7 → 14,7
--| File history:
--| 0.1 | aug-2009 | First release
----------------------------------------------------------------------------------------------------
 
 
--|
--| This VHDL design file is an open design; you can redistribute it and/or
--| modify it and/or implement it after contacting the author.
25,9 → 25,12
 
--==================================================================================================
 
-- NOTES
 
 
 
 
-->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-->> Virtual clock
library ieee;
use ieee.std_logic_1164.all;
use ieee.math_real.all;
34,7 → 37,7
 
 
entity ctrl_tb_simple_clock is
entity tb_simple_clock is
port (
CLK_PERIOD: in time;-- := 20 ns;
CLK_DUTY: in real; -- := 0.5;
41,9 → 44,9
active: in boolean;
clk_o: out std_logic
);
end entity ctrl_tb_simple_clock ;
end entity tb_simple_clock ;
architecture beh of ctrl_tb_simple_clock is
architecture beh of tb_simple_clock is
begin
P_main: process
begin
59,13 → 62,56
end process;
end architecture beh;
 
-->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-->> Virtual ADC
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
 
entity virtual_adc is
port (
clk_I: in std_logic;
sel_I: in std_logic;
chip_sel_I: in std_logic;
sleep_I: in std_logic;
data_O: out std_logic_vector(9 downto 0)
);
end entity virtual_adc ;
architecture beh of virtual_adc is
signal data1: std_logic_vector(9 downto 0) := "0000000001"; -- odd
signal data2: std_logic_vector(9 downto 0) := (others => '0'); -- pair
begin
 
P_virtual_adc: process (clk_I, sel_I, chip_sel_I, sleep_I)
 
begin
if clk_I'event and clk_I = '1' then
data1 <= data1 + 2;
data2 <= data2 + 2;
end if;
if sleep_I = '1' or chip_sel_I = '0' then
data_O <= (others => '0');
else
case sel_I is
when '0' =>
data_O <= data1;
when others =>
data_O <= data2;
end case;
end if;
end process;
 
end architecture beh;
 
-->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-->> Stimulus
library ieee, std;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
use IEEE.NUMERIC_STD.ALL;
--use IEEE.NUMERIC_STD.ALL;
use ieee.math_real.all;
 
 
78,7 → 124,7
entity stimulus is
port(
-- ADC
adc_data_I: inout std_logic_vector (9 downto 0) := 0;
adc_data_I: inout std_logic_vector (9 downto 0) := (others => '0');
adc_sel_O: in std_logic;
adc_clk_O: in std_logic;
adc_sleep_O: in std_logic;
88,7 → 134,7
nStrobe_I: inout std_logic; -- HostClk/nWrite
Data_IO: inout std_logic_vector (7 downto 0);-- AD8..1 (Data1..Data8)
nAck_O: in std_logic; -- PtrClk/PeriphClk/Intr
busy_O: in std_logic; -- PtrBusy/PeriphAck/nWait
Busy_O: in std_logic; -- PtrBusy/PeriphAck/nWait
PError_O: in std_logic; -- AckData/nAckReverse
Sel_O: in std_logic; -- XFlag (Select)
nAutoFd_I: inout std_logic; -- HostBusy/HostAck/nDStrb
99,17 → 145,23
-- Peripherals
reset_I: inout std_logic;
pll_clk_I: inout std_logic -- clock signal go to pll, and is divided in two clocks
pll_clk_I: inout std_logic; -- clock signal go to pll, and is divided in two clocks
test_number: out integer range 0 to 20
);
 
end stimulus;
 
architecture STIMULATOR of stimulus is
 
-- PLL clocks
constant CLK_DAQ_PERIOD: time := 25 ns;
constant CLK_EPP_PERIOD: time := 100 ns;
-- Control Signal Declarations
signal tb_InitFlag : boolean := false;
signal tb_ParameterInitFlag : boolean := false;
signal i: std_logic;
signal runflag: std_logic;
-- Parm Declarations
signal clk_Duty : real := 0.0;
123,7 → 175,7
variable clk_Period_real : real;
begin
-- Basic parameters
clk_Period_real := 20.0; --<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--
clk_Period_real := 40.0; --<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--
clk_Period <= clk_Period_real * 1 ns;
clk_Duty_real := 50.0;
clk_Duty <= clk_Duty_real;
135,9 → 187,9
--------------------------------------------------------------------------------------------------
-- Clocks
-- Instantiation
-- Clock Instantiation
tb_clk: entity work.tb_simple_clock
U_TB_CLK: entity work.tb_simple_clock
port map (
clk_Period => clk_Period,
clk_Duty => clk_Duty,
145,108 → 197,241
clk_o => pll_clk_I
);
-- ADC Instantiation
U_TB_ADC: entity work.virtual_adc
port map(
clk_I => adc_clk_O,
sel_I => adc_sel_O,
chip_sel_I => adc_chip_sel_O,
sleep_I => adc_sleep_O,
data_O => adc_data_I
);
--------------------------------------------------------------------------------------------------
-- Clocked Sequences
P_virtual_adc: process (adc_clk_O)
variable data1: std_logic_vector(9 downto 0) := 1; -- odd
variable data2: std_logic_vector(9 downto 0) := 0; -- pair
begin
if adc_clk_O'event and adc_clk_O = '1' then
data1 <= data1 + 2;
data2 <= data2 + 2;
end if;
case adc_sel_O is
when '0' =>
adc_data_I <= data1;
when others =>
adc_data_I <= data2;
end case;
end process;
-- Main process
P_Unclocked : process
------------------------------------------------------------------------------------------------
-- Procedure for write in epp port
procedure WriteData(
constant in_address: in std_logic_vector(7 downto 0);
constant in_data: in std_logic_vector(15 downto 0);
signal Data_IO: out std_logic_vector(7 downto 0);
signal nStrobe_I: out std_logic;
signal nSelectIn_I: out std_logic;
signal nAutoFd_I: out std_logic;
signal Busy_O: in std_logic
) is
begin
nStrobe_I <= '0'; -- '0' -> is write
 
--------------------------------------------------------------------------------------------------
-- Sequence: Unclocked
P_Unclocked : process
Data_IO <= in_address; -- Address
nSelectIn_I <= '0'; -- addStb
wait until Busy_O = '1';
--wait for 30 ns;
nSelectIn_I <= '1';
wait until Busy_O = '0';
Data_IO <= in_data(7 downto 0); -- Data1
nAutoFd_I <= '0'; -- datStb
wait until Busy_O = '1';
nAutoFd_I <= '1';
wait until Busy_O = '0';
Data_IO <= in_data(15 downto 8); -- Data0
nAutoFd_I <= '0'; -- datStb
wait until Busy_O = '1';
nAutoFd_I <= '1';
wait until Busy_O = '0';
end procedure WriteData;
------------------------------------------------------------------------------------------------
-- Procedure for read from epp port
procedure ReadData(
signal out_runflag: out std_logic;
constant in_address: in std_logic_vector(7 downto 0);
signal Data_IO: inout std_logic_vector(7 downto 0);
signal nStrobe_I: out std_logic;
signal nSelectIn_I: out std_logic;
signal nAutoFd_I: out std_logic;
signal Busy_O: in std_logic
) is
begin
nStrobe_I <= '0'; -- '0' -> is write
Data_IO <= in_address; -- Address
nSelectIn_I <= '0'; -- addStb
wait until Busy_O = '1';
--wait for 30 ns;
nSelectIn_I <= '1';
wait until Busy_O = '0';
nStrobe_I <= '1'; -- '1' -> is read
Data_IO <= (others => 'Z'); -- Data1
nAutoFd_I <= '0'; -- datStb
wait until (Busy_O = '1');
wait for 30 ns;
nAutoFd_I <= '1';
wait until (Busy_O = '0');
Data_IO <= (others => 'Z'); -- Data0
nAutoFd_I <= '0'; -- datStb
wait until (Busy_O = '1');
wait for 30 ns;
out_runflag <= Data_IO(6);
nAutoFd_I <= '1';
wait until (Busy_O = '0');
end procedure ReadData;
begin
------------------------------------------------------------------------------------------------
-- Init
test_number <= 0;
wait until tb_ParameterInitFlag;
tb_InitFlag <= true;
load_I <= '0';
RST_I <= '1';
STB_I_port <= '1';
CYC_I_port <= '1';
WE_I_port <= '0';
initial_address_I <= B"01_0000_0000_0000";
biggest_address_I <= B"11_1100_0000_0000";
pause_address_I <= B"00_0000_1000_0000";
enable_I <= '1';
wait for 1.5 * clk_Period;
nSelectIn_I <= '0';
nStrobe_I <= '0';
Data_IO <= (others => '0');
nAutoFd_I <= '1';
nInit_I <= '1';
reset_I <= '1';
wait for 700 ns; -- PLL delay
RST_I <= '0';
wait for 1.0 * clk_Period;
reset_I <= '0';
load_I <= '1';
wait for 1.0 * clk_Period;
-- EPP Mode Negotiation
-- Standar timing and handshake
nStrobe_I <= '1';
wait for 500 ns;
Data_IO <= X"40";
wait for 500 ns;
load_I <= '0';
wait until ADR_O_mem = B"00_0000_1000_0000";
wait for 8.0 * clk_Period;
nSelectIn_I <= '1';
nAutoFd_I <= '0';
wait until (PError_O = '1' and nAck_O = '0' and nFault_O = '1' and Sel_O = '1');
pause_address_I <= B"01_0000_0000_0000";
wait for 20.0 * clk_Period;
enable_I <= '0';
wait for 8.0 * clk_Period;
nStrobe_I <= '0';
wait for 500 ns;
enable_I <= '1';
wait until finish_O = '1';
wait for 2.0 * clk_Period;
nAutoFd_I <= '1';
nStrobe_I <= '1';
wait until (nAck_O = '1' and Sel_O = '1');
tb_InitFlag <= false;
wait;
------------------------------------------------------------------------------------------------
-- Test 1
-- Writing in all control register
-- 00 RunConf_R RW [ | | | | |TScal04|TScal03|TScal02|
-- TScal01|TScal00|TScalEn| TrCh| TrEdg| TrOn| Cont| Start]
--
-- 01 Channels_R RW [ | | | | | | | |
-- | | | | | | RCh01| RCh00]
--
-- 02 BuffSize_R RW [ | |BuffS13|BuffS12|BuffS11|BuffS10|BuffS09|BuffS08|
-- BuffS07|BuffS06|BuffS05|BuffS04|BuffS03|BuffS02|BuffS01|BuffS00]
--
-- 03 TrigLvl_R RW [ | | | | | |TrLvl09|TrLvl08|
-- TrLvl07|TrLvl06|TrLvl05|TrLvl04|TrLvl03|TrLvl02|TrLvl01|TrLvl00]
--
-- 04 TrigOff_R RW [ |TrOff14|TrOff13|TrOff12|TrOff11|TrOff10|TrOff09|TrOff08|
-- TrOff07|TrOff06|TrOff00|TrOff00|TrOff00|TrOff00|TrOff00|TrOff00]
--
-- 05 ADCConf RW [ | | | | ADCS|ADSleep| ADPSEn| ADPS08|
-- ADPS07| ADPS06| ADPS05| ADPS04| ADPS03| ADPS02| ADPS01| ADPS00]
--
-- 08 Data_O R [ErrFlag|RunFlag| | | | DCh00| Dat09| Dat08|
-- Dat07| Dat06| Dat05| Dat04| Dat03| Dat02| Dat01| Dat00]
--
-- 09 Error_O R [ | | | | | | | |
-- | | | | | ErrN02| ErrN01| ErrN00]
test_number <= 1;
end process;
--------------------------------------------------------------------------------------------------
-- Conditional signals
P_mem: process(STB_O_mem, DAT_I_mem, CYC_O_mem, CLK_I, RST_I,i)
WriteData(X"00", X"FFFE", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
WriteData(X"01", X"FFFF", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
WriteData(X"02", X"FFFF", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
WriteData(X"03", X"FFFF", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
WriteData(X"04", X"FFFF", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
begin
if STB_O_mem = '1' and CYC_O_mem = '1' and i = '1' then
ACK_I_mem <= '1';
else
ACK_I_mem <= '0';
end if;
ReadData(runflag, X"00", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
ReadData(runflag,X"01", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
ReadData(runflag, X"02", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
ReadData(runflag, X"03", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
ReadData(runflag, X"04", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
if CLK_I'event and CLK_I = '1' then
if RST_I = '1' then
DAT_I_mem <= (others => '0');
elsif STB_O_mem = '1' and CYC_O_mem = '1' and i = '1' then
DAT_I_mem <= DAT_I_mem + 1;
end if;
end if;
wait for 50 ns;
------------------------------------------------------------------------------------------------
-- Test 2 - DAQ Config
-- Writing in daq config register
test_number <= 2;
if CLK_I'event and CLK_I = '1' then
if RST_I = '1' then
i <= '0';
elsif STB_O_mem = '1' and CYC_O_mem = '1' then
i <= not(i);
end if;
end if;
WriteData(X"05", X"07FF", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
ReadData(runflag, X"05", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
WriteData(X"05", X"0A00", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
ReadData(runflag, X"05", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
wait for 50 ns;
------------------------------------------------------------------------------------------------
-- Test 3 - Test basic
-- daq freq = ctrl freq/2 (default), w/o trigger, w/o skipper, channels 1 and 2,
-- buffer size = 50h, continuous
test_number <= 3;
WriteData(X"01", X"0003", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O); -- Channels_R
WriteData(X"02", X"0050", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O); -- BuffSize_R
WriteData(X"03", X"0000", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O); -- TrigLvl_R
WriteData(X"04", X"0000", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O); -- TrigOff_R
WriteData(X"00", X"0001", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O); -- RunConf_R
ReadData(runflag, X"08", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
while (runflag = '1') loop
ReadData(runflag, X"08", Data_IO, nStrobe_I, nSelectIn_I, nAutoFd_I, Busy_O);
end loop;
wait for 50 ns;
------------------------------------------------------------------------------------------------
-- Test 4 - Skipper
-- daq freq = ctrl freq/2 (default), w/o trigger, skipper = 3, channels 1 and 2,
-- buffer size = 80, no continuous
------------------------------------------------------------------------------------------------
-- Test 5 - Trigger - one shot
-- daq freq = ctrl freq/2 (default), trigger channel 1, level 30 %, not continuous, skipper = 5,
-- channels 1 and 2, buffer size = 100
------------------------------------------------------------------------------------------------
-- Test 6 - Trigger
-- daq freq = ctrl freq/2 (default), trigger channel 1, level 30 %, continuous, skipper = 5,
-- channels 1, buffer size = 50
------------------------------------------------------------------------------------------------
-- Test 7 - One channel
-- daq freq = ctrl freq/2 (default), trigger channel 1, level 30 %, continuous, skipper = 5,
-- channels 1, buffer size = 50
------------------------------------------------------------------------------------------------
-- Test 8 - Test write while working
-- daq freq = ctrl freq/2 (default), trigger channel 1, level 30 %, continuous, skipper = 5,
-- channels 1, buffer size = 50
wait for 100 ns;
tb_InitFlag <= false;
wait;
end process;
266,14 → 451,9
use ieee.std_logic_1164.all;
 
-- Additional libraries used by Model Under Test.
-- ...
 
entity testbench is
generic (
MEM_ADD_WIDTH: integer := 14
);
end testbench;
 
architecture tbGeneratedCode of testbench is
298,13 → 478,13
-- Peripherals
signal reset_I: std_logic;
signal pll_clk_I: std_logic;
signal test_number: integer range 0 to 20;
begin
--------------------------------------------------------------------------------------------------
-- Instantiation of Stimulus.
U_stimulus_0 : entity work.stimulus
generic map (
MEM_ADD_WIDTH=> MEM_ADD_WIDTH
)
port map (
-- ADC
adc_data_I => adc_data_I,
326,15 → 506,14
nSelectIn_I => nSelectIn_I,
-- Peripherals
reset_I => reset_I,
pll_clk_I => pll_clk_I
pll_clk_I => pll_clk_I,
test_number => test_number
);
 
--------------------------------------------------------------------------------------------------
-- Instantiation of Model Under Test.
U_outman_0 : entity work.modular_oscilloscope --<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--
generic map (
MEM_ADD_WIDTH=> MEM_ADD_WIDTH
)
U_OSC0 : entity work.modular_oscilloscope --<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--
port map (
-- ADC
adc_data_I => adc_data_I,

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.