##// END OF EJS Templates
HG_REPOSITORIES » LPP » INSTRUMENTATION » USERS » PELLION » VHD_Lib
RSS

Clone from http://pc-instru.lpp.polytechnique.fr:5000/VHD_Lib

Fusion
Fusion
pellion - - Load All Authors

File last commit:

r404:bd28120c33d2 JC
r636:a3dd504c9783 merge simu_with_Leon3
Show More
testbench_ms.vhd
357 lines | 12.8 KiB | text/x-vhdl | VhdlLexer
/ designs / MINI-LFR_testMS / testbench_ms.vhd
History | Annotation | Raw |Copy content |Copy permalink
LIBRARY IEEE;
USE IEEE.numeric_std.ALL;
USE IEEE.std_logic_1164.ALL;
LIBRARY grlib;
USE grlib.amba.ALL;
USE grlib.stdlib.ALL;
LIBRARY lpp;
USE lpp.iir_filter.ALL;
ENTITY testbench_ms IS
END testbench_ms;
ARCHITECTURE tb OF testbench_ms IS
-----------------------------------------------------------------------------
-- COMPONENT ----------------------------------------------------------------
-----------------------------------------------------------------------------
COMPONENT lpp_lfr_apbreg_tb
GENERIC (
pindex : INTEGER;
paddr : INTEGER;
pmask : INTEGER);
PORT (
HCLK : IN STD_ULOGIC;
HRESETn : IN STD_ULOGIC;
apbi : IN apb_slv_in_type;
apbo : OUT apb_slv_out_type;
MEM_IN_SM_wData : OUT STD_LOGIC_VECTOR(16*2*5-1 DOWNTO 0);
MEM_IN_SM_wen : OUT STD_LOGIC_VECTOR(4 DOWNTO 0);
MEM_IN_SM_Full_out : IN STD_LOGIC_VECTOR(4 DOWNTO 0);
MEM_IN_SM_Empty_out : IN STD_LOGIC_VECTOR(4 DOWNTO 0);
MEM_IN_SM_locked_out : IN STD_LOGIC_VECTOR(4 DOWNTO 0);
MEM_OUT_SM_ren : OUT STD_LOGIC_VECTOR(1 DOWNTO 0);
MEM_OUT_SM_Data_out : IN STD_LOGIC_VECTOR(63 DOWNTO 0);
MEM_OUT_SM_Full : IN STD_LOGIC_VECTOR(1 DOWNTO 0);
MEM_OUT_SM_Full_2 : IN STD_LOGIC;
MEM_OUT_SM_Empty : IN STD_LOGIC_VECTOR(1 DOWNTO 0));
END COMPONENT;
COMPONENT lpp_lfr_ms_tb
GENERIC (
Mem_use : INTEGER);
PORT (
clk : IN STD_LOGIC;
rstn : IN STD_LOGIC;
MEM_IN_SM_wData : IN STD_LOGIC_VECTOR(16*2*5-1 DOWNTO 0);
MEM_IN_SM_wen : IN STD_LOGIC_VECTOR(4 DOWNTO 0);
MEM_IN_SM_Full_out : OUT STD_LOGIC_VECTOR(4 DOWNTO 0);
MEM_IN_SM_Empty_out : OUT STD_LOGIC_VECTOR(4 DOWNTO 0);
MEM_IN_SM_locked_out : OUT STD_LOGIC_VECTOR(4 DOWNTO 0);
MEM_OUT_SM_Read : IN STD_LOGIC_VECTOR(1 DOWNTO 0);
MEM_OUT_SM_Data_out : OUT STD_LOGIC_VECTOR(63 DOWNTO 0);
MEM_OUT_SM_Full_pad : OUT STD_LOGIC_VECTOR(1 DOWNTO 0);
MEM_OUT_SM_Full_pad_2 : OUT STD_LOGIC;
MEM_OUT_SM_Empty_pad : OUT STD_LOGIC_VECTOR(1 DOWNTO 0);
error_input_fifo_write : OUT STD_LOGIC_VECTOR(2 DOWNTO 0);
observation_vector_0 : OUT STD_LOGIC_VECTOR(11 DOWNTO 0);
observation_vector_1 : OUT STD_LOGIC_VECTOR(11 DOWNTO 0));
END COMPONENT;
-----------------------------------------------------------------------------
-- SIGNAL -------------------------------------------------------------------
-----------------------------------------------------------------------------
SIGNAL clk : STD_LOGIC := '0';
SIGNAL rstn : STD_LOGIC := '0';
SIGNAL apbi : apb_slv_in_type;
SIGNAL apbo : apb_slv_out_type;
SIGNAL MEM_OUT_SM_ren : STD_LOGIC_VECTOR(1 DOWNTO 0);
SIGNAL MEM_OUT_SM_Data_out : STD_LOGIC_VECTOR(63 DOWNTO 0);
SIGNAL MEM_OUT_SM_Full_pad : STD_LOGIC_VECTOR(1 DOWNTO 0);
SIGNAL MEM_OUT_SM_Full_pad_2 : STD_LOGIC;
SIGNAL MEM_OUT_SM_Empty_pad : STD_LOGIC_VECTOR(1 DOWNTO 0);
SIGNAL MEM_IN_SM_wData : STD_LOGIC_VECTOR(16*2*5-1 DOWNTO 0);
SIGNAL MEM_IN_SM_wen : STD_LOGIC_VECTOR(4 DOWNTO 0);
SIGNAL MEM_IN_SM_Full_out : STD_LOGIC_VECTOR(4 DOWNTO 0);
SIGNAL MEM_IN_SM_Empty_out : STD_LOGIC_VECTOR(4 DOWNTO 0);
SIGNAL MEM_IN_SM_locked_out : STD_LOGIC_VECTOR(4 DOWNTO 0);
-----------------------------------------------------------------------------
-- FFT
-----------------------------------------------------------------------------
TYPE fft_tab_type IS ARRAY (127 DOWNTO 0) OF STD_LOGIC_VECTOR(15 DOWNTO 0);
SIGNAL fft_1_re : fft_tab_type;
SIGNAL fft_1_im : fft_tab_type;
SIGNAL fft_2_re : fft_tab_type;
SIGNAL fft_2_im : fft_tab_type;
SIGNAL fft_3_re : fft_tab_type;
SIGNAL fft_3_im : fft_tab_type;
SIGNAL fft_4_re : fft_tab_type;
SIGNAL fft_4_im : fft_tab_type;
SIGNAL fft_5_re : fft_tab_type;
SIGNAL fft_5_im : fft_tab_type;
SIGNAL counter_1 : INTEGER;
SIGNAL counter_2 : INTEGER;
SIGNAL counter_3 : INTEGER;
SIGNAL counter_4 : INTEGER;
SIGNAL counter_5 : INTEGER;
SIGNAL not_full : STD_LOGIC;
TYPE ms_component_tab_type IS ARRAY (0 TO 1, 127 DOWNTO 0) OF STD_LOGIC_VECTOR(31 DOWNTO 0);
TYPE spectral_matrix_type IS ARRAY (0 TO 5, 0 TO 5) OF ms_component_tab_type;
SIGNAL spectral_matrix_data : spectral_matrix_type;
CONSTANT DIRAC_FREQ : INTEGER := 0;
CONSTANT DIRAC_FREQ2 : INTEGER := 10;
CONSTANT DIRAC_FREQ3 : INTEGER := 127;
CONSTANT FFT_RE : STD_LOGIC_VECTOR(15 DOWNTO 0) := x"0020";
CONSTANT FFT_IM : STD_LOGIC_VECTOR(15 DOWNTO 0) := x"0010";
BEGIN -- tb
clk <= NOT clk AFTER 20 ns;
rstn <= '1' AFTER 100 ns;
PROCESS (clk, rstn)
BEGIN
IF rstn = '0' THEN -- asynchronous reset (active low)
all_data: FOR i IN 127 DOWNTO 0 LOOP
fft_1_re(I) <= (OTHERS => '0');
fft_1_im(I) <= (OTHERS => '0');
fft_2_re(I) <= (OTHERS => '0');
fft_2_im(I) <= (OTHERS => '0');
fft_3_re(I) <= (OTHERS => '0');
fft_3_im(I) <= (OTHERS => '0');
fft_4_re(I) <= (OTHERS => '0');
fft_4_im(I) <= (OTHERS => '0');
fft_5_re(I) <= (OTHERS => '0');
fft_5_im(I) <= (OTHERS => '0');
END LOOP all_data;
fft_1_re(DIRAC_FREQ) <= FFT_RE;
fft_1_im(DIRAC_FREQ) <= FFT_IM;
fft_1_re(DIRAC_FREQ) <= FFT_RE;
fft_1_im(DIRAC_FREQ) <= FFT_IM;
fft_2_re(DIRAC_FREQ) <= FFT_RE;
fft_2_im(DIRAC_FREQ) <= FFT_IM;
fft_3_re(DIRAC_FREQ) <= FFT_RE;
fft_3_im(DIRAC_FREQ) <= FFT_IM;
fft_4_re(DIRAC_FREQ) <= FFT_RE;
fft_4_im(DIRAC_FREQ) <= FFT_IM;
fft_5_re(DIRAC_FREQ) <= FFT_RE;
fft_5_im(DIRAC_FREQ) <= FFT_IM;
--fft_1_re(DIRAC_FREQ2) <= FFT_RE;
--fft_1_im(DIRAC_FREQ2) <= FFT_IM;
--fft_1_re(DIRAC_FREQ2) <= FFT_RE;
--fft_1_im(DIRAC_FREQ2) <= FFT_IM;
--fft_2_re(DIRAC_FREQ2) <= FFT_RE;
--fft_2_im(DIRAC_FREQ2) <= FFT_IM;
--fft_3_re(DIRAC_FREQ2) <= FFT_RE;
--fft_3_im(DIRAC_FREQ2) <= FFT_IM;
--fft_4_re(DIRAC_FREQ2) <= FFT_RE;
--fft_4_im(DIRAC_FREQ2) <= FFT_IM;
--fft_5_re(DIRAC_FREQ2) <= FFT_RE;
--fft_5_im(DIRAC_FREQ2) <= FFT_IM;
--fft_1_re(DIRAC_FREQ3) <= FFT_RE;
--fft_1_im(DIRAC_FREQ3) <= FFT_IM;
--fft_1_re(DIRAC_FREQ3) <= FFT_RE;
--fft_1_im(DIRAC_FREQ3) <= FFT_IM;
--fft_2_re(DIRAC_FREQ3) <= FFT_RE;
--fft_2_im(DIRAC_FREQ3) <= FFT_IM;
--fft_3_re(DIRAC_FREQ3) <= FFT_RE;
--fft_3_im(DIRAC_FREQ3) <= FFT_IM;
--fft_4_re(DIRAC_FREQ3) <= FFT_RE;
--fft_4_im(DIRAC_FREQ3) <= FFT_IM;
--fft_5_re(DIRAC_FREQ3) <= FFT_RE;
--fft_5_im(DIRAC_FREQ3) <= FFT_IM;
counter_1 <= 0;
counter_2 <= 0;
counter_3 <= 0;
counter_4 <= 0;
counter_5 <= 0;
-- MEM_IN_SM_wen <= (OTHERS => '1');
-- MEM_OUT_SM_ren <= (OTHERS => '1');
ELSIF clk'event AND clk = '1' THEN -- rising clock edge
--IF MEM_IN_SM_locked_out(0) = '0' AND MEM_IN_SM_Full_out(0) = '0' THEN
-- counter_1 <= counter_1 + 1;
-- MEM_IN_SM_wData(15 DOWNTO 0) <= fft_1_re(counter_1);
-- MEM_IN_SM_wData(31 DOWNTO 16) <= fft_1_im(counter_1);
-- MEM_IN_SM_wen(0) <= '0';
--ELSE
-- counter_1 <= 0;
-- MEM_IN_SM_wData(31 DOWNTO 0) <= (OTHERS => 'X');
-- MEM_IN_SM_wen(0) <= '1';
--END IF;
END IF;
END PROCESS;
PROCESS
BEGIN -- PROCESS
WAIT FOR 1 us;
not_full <= '0';
WAIT UNTIL clk = '1' AND clk'EVENT;
loop_DATA_write: FOR I IN 0 TO 127 LOOP
apbi.pwdata <= fft_1_im(I) & fft_1_re(I);
apbi.psel(15) <= '1';
apbi.paddr(7 DOWNTO 2) <= "000000";
apbi.penable <= '1';
apbi.pwrite <= '1';
WAIT UNTIL clk = '1' AND clk'EVENT;
apbi.pwdata <= fft_2_im(I) & fft_2_re(I);
apbi.psel(15) <= '1';
apbi.paddr(7 DOWNTO 2) <= "000001";
apbi.penable <= '1';
apbi.pwrite <= '1';
WAIT UNTIL clk = '1' AND clk'EVENT;
apbi.pwdata <= fft_3_im(I) & fft_3_re(I);
apbi.psel(15) <= '1';
apbi.paddr(7 DOWNTO 2) <= "000010";
apbi.penable <= '1';
apbi.pwrite <= '1';
WAIT UNTIL clk = '1' AND clk'EVENT;
apbi.pwdata <= fft_4_im(I) & fft_4_re(I);
apbi.psel(15) <= '1';
apbi.paddr(7 DOWNTO 2) <= "000011";
apbi.penable <= '1';
apbi.pwrite <= '1';
WAIT UNTIL clk = '1' AND clk'EVENT;
apbi.pwdata <= fft_5_im(I) & fft_5_re(I);
apbi.psel(15) <= '1';
apbi.paddr(7 DOWNTO 2) <= "000100";
apbi.penable <= '1';
apbi.pwrite <= '1';
WAIT UNTIL clk = '1' AND clk'EVENT;
apbi.pwdata <= X"FFFFFFE0";
apbi.psel(15) <= '1';
apbi.paddr(7 DOWNTO 2) <= "000101";
apbi.penable <= '1';
apbi.pwrite <= '1';
WAIT UNTIL clk = '1' AND clk'EVENT;
apbi.pwrite <= '0';
END LOOP loop_DATA_write;
WAIT UNTIL clk = '1' AND clk'EVENT;
not_full <= '0';
tant_que_not_full: WHILE not_full = '0' LOOP
-- apbi.pwdata <= X"FFFFFFE0";
apbi.psel(15) <= '1';
apbi.paddr(7 DOWNTO 2) <= "001000";
apbi.penable <= '1';
WAIT UNTIL clk = '1' AND clk'EVENT;
not_full <= apbo.prdata(3);
END LOOP tant_que_not_full;
all_data_0: FOR I IN 0 TO 127 LOOP
WAIT UNTIL clk = '1' AND clk'EVENT;
--apbi.pwdata <= X"FFFFFFFE";
apbi.psel(15) <= '1';
apbi.paddr(7 DOWNTO 2) <= "000110";
apbi.penable <= '1';
apbi.pwrite <= '0';
WAIT UNTIL clk = '1' AND clk'EVENT;
apbi.penable <= '0';
spectral_matrix_data(0,0)(0,I) <= apbo.prdata;
spectral_matrix_data(0,0)(1,I) <= (OTHERS => '0');
WAIT UNTIL clk = '1' AND clk'EVENT;
apbi.pwdata <= X"FFFFFFFE";
apbi.psel(15) <= '1';
apbi.paddr(7 DOWNTO 2) <= "001000";
apbi.penable <= '1';
apbi.pwrite <= '1';
WAIT UNTIL clk = '1' AND clk'EVENT;
apbi.pwrite <= '0';
apbi.penable <= '0';
WAIT UNTIL clk = '1' AND clk'EVENT;
END LOOP all_data_0;
WAIT FOR 100 us;
REPORT "*** END simulation ***" SEVERITY failure;
WAIT;
END PROCESS;
-------------------------------------------------------------------------------
-- MS ------------------------------------------------------------------------
-------------------------------------------------------------------------------
lpp_lfr_apbreg_1 : lpp_lfr_apbreg_tb
GENERIC MAP (
pindex => 15,
paddr => 15,
pmask => 16#fff#)
PORT MAP (
HCLK => clk,
HRESETn => rstn,
apbi => apbi,
apbo => apbo,
MEM_IN_SM_wData => MEM_IN_SM_wData,
MEM_IN_SM_wen => MEM_IN_SM_wen,
MEM_IN_SM_Full_out => MEM_IN_SM_Full_out,
MEM_IN_SM_Empty_out => MEM_IN_SM_Empty_out,
MEM_IN_SM_locked_out => MEM_IN_SM_locked_out,
MEM_OUT_SM_ren => MEM_OUT_SM_ren ,
MEM_OUT_SM_Data_out => MEM_OUT_SM_Data_out ,
MEM_OUT_SM_Full => MEM_OUT_SM_Full_pad ,
MEM_OUT_SM_Full_2 => MEM_OUT_SM_Full_pad_2 ,
MEM_OUT_SM_Empty => MEM_OUT_SM_Empty_pad);
lpp_lfr_ms_tb_1 : lpp_lfr_ms_tb
GENERIC MAP (
Mem_use => use_RAM)-- use_RAM use_CEL
PORT MAP (
clk => clk,
rstn => rstn,
MEM_IN_SM_wData => MEM_IN_SM_wData,
MEM_IN_SM_wen => MEM_IN_SM_wen,
MEM_IN_SM_Full_out => MEM_IN_SM_Full_out,
MEM_IN_SM_Empty_out => MEM_IN_SM_Empty_out,
MEM_IN_SM_locked_out => MEM_IN_SM_locked_out,
MEM_OUT_SM_Read => MEM_OUT_SM_ren ,
MEM_OUT_SM_Data_out => MEM_OUT_SM_Data_out ,
MEM_OUT_SM_Full_pad => MEM_OUT_SM_Full_pad ,
MEM_OUT_SM_Full_pad_2 => MEM_OUT_SM_Full_pad_2 ,
MEM_OUT_SM_Empty_pad => MEM_OUT_SM_Empty_pad,
error_input_fifo_write => OPEN,
observation_vector_0 => OPEN,
observation_vector_1 => OPEN);
-----------------------------------------------------------------------------
END tb;