HG_REPOSITORIES/LPP/INSTRUMENTATION/USERS/PELLION/VHD_Lib Files · lib/lpp/dsp/lpp_fft/Driver_FFT.vhd

MINI LFR - WFP&MS - 0.1.7...

MINI LFR - WFP&MS - 0.1.7 - little update on Time Management: added Case Default in a Mux. - update on MS - DMA's FSM: Now, there is a pre-FSM for acknoledged the reception of Header.

martin - - Load All Authors

File last commit:

r108:ec95871b78ac martin


                r332:d5b2e267f44d

(MINI-LFR) WFP_MS-0-1-7 JC

Download file

             Driver_FFT.vhd
        
                    120 lines
            
             | 4.0 KiB
            
                | text/x-vhdl
            
             |
                VhdlLexer
            
             / lib / lpp / dsp / lpp_fft / Driver_FFT.vhd
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        martin
    
update ADC

              r98
            
      ------------------------------------------------------------------------------

      --  This file is a part of the LPP VHDL IP LIBRARY

      --  Copyright (C) 2009 - 2012, Laboratory of Plasmas Physic - CNRS

      --

      --  This program is free software; you can redistribute it and/or modify

      --  it under the terms of the GNU General Public License as published by

      --  the Free Software Foundation; either version 3 of the License, or

      --  (at your option) any later version.

      --

      --  This program is distributed in the hope that it will be useful,

      --  but WITHOUT ANY WARRANTY; without even the implied warranty of

      --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

      --  GNU General Public License for more details.

      --

      --  You should have received a copy of the GNU General Public License

      --  along with this program; if not, write to the Free Software

      --  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 

      ------------------------------------------------------------------------------

      --                    Author : Martin Morlot

      --                     Mail : martin.morlot@lpp.polytechnique.fr

      ------------------------------------------------------------------------------

      library IEEE;

      use IEEE.std_logic_1164.all;

      use IEEE.numeric_std.all;

      entity Driver_FFT is

      generic(

        martin
    
FFT sur 5 Voies Okai...

              r108
            
          Data_sz  : integer range 1 to 32 := 16;

          NbData : integer range 1 to 512 := 256

        martin
    
update ADC

              r98
            
          );

      port(

          clk         : in std_logic;

          rstn        : in std_logic;

          Load        : in std_logic;

          Empty       : in std_logic_vector(4 downto 0);

          DATA        : in std_logic_vector((5*Data_sz)-1 downto 0);

          Valid       : out std_logic;

          Read        : out std_logic_vector(4 downto 0);

          Data_re     : out std_logic_vector(Data_sz-1 downto 0);

          Data_im     : out std_logic_vector(Data_sz-1 downto 0)

      );

      end entity;

      architecture ar_Driver of Driver_FFT is

      type etat is (eX,e0,e1,e2);

      signal ect : etat;

        martin
    
FFT sur 5 Voies Okai...

              r108
            
      signal DataCount : integer range 0 to 255 := 0;

      signal FifoCpt  : integer range 0 to 4 := 0;

        martin
    
update ADC

              r98
            
        martin
    
FFT sur 5 Voies Okai...

              r108
            
      signal sLoad : std_logic;

        martin
    
update ADC

              r98
            
      begin

          process(clk,rstn)

          begin

              if(rstn='0')then 

        martin
    
FFT sur 5 Voies Okai...

              r108
            
                  ect <= e0;

        martin
    
update ADC

              r98
            
                  Read <= (others => '1');

                  Valid <= '0';

        martin
    
Débug de la FIFO...

              r103
            
                  Data_re <= (others => '0');

                  Data_im <= (others => '0');

        martin
    
FFT sur 5 Voies Okai...

              r108
            
                  DataCount <= 0;

                  FifoCpt <= 0;

                  sLoad <= '0';

        martin
    
update ADC

              r98
            
              elsif(clk'event and clk='1')then

        martin
    
FFT sur 5 Voies Okai...

              r108
            
                  sLoad <= Load;

        martin
    
update ADC

              r98
            
        martin
    
FFT sur 5 Voies Okai...

              r108
            
                  if(sLoad='1' and Load='0')then

                      if(FifoCpt=4)then

                          FifoCpt <= 0;

                      else

                          FifoCpt <= FifoCpt + 1;

                      end if;

                  end if;

        martin
    
update ADC

              r98
            
                  case ect is

                      when e0 =>

        martin
    
FFT sur 5 Voies Okai...

              r108
            
                          if(Load='1' and Empty(FifoCpt)='0')then

                              Read(FifoCpt) <= '0';

                              ect <= e1;                       

        martin
    
update ADC

              r98
            
                          end if;

                      when e1 =>

        martin
    
FFT sur 5 Voies Okai...

              r108
            
                          Valid <= '0';

                          Read(FifoCpt) <= '1';

                          ect <= e2;

        martin
    
update ADC

              r98
            
                      when e2 =>

        martin
    
FFT sur 5 Voies Okai...

              r108
            
                          Data_re <= DATA(((FifoCpt+1)*Data_sz)-1 downto (FifoCpt*Data_sz));

        martin
    
update ADC

              r98
            
                          Data_im <= (others => '0');

                          Valid <= '1';

        martin
    
FFT sur 5 Voies Okai...

              r108
            
                          if(DataCount=NbData-1)then

                              DataCount <= 0;

                              ect <= eX;

                          else

                              DataCount <= DataCount + 1;

                              if(Load='1' and Empty(FifoCpt)='0')then

                                  Read(FifoCpt) <= '0';

                                  ect <= e1;

                              else

                                  ect <= eX;

                              end if;                        

                          end if;

                      when eX =>

                          Valid <= '0';

        martin
    
update ADC

              r98
            
                          ect <= e0;

        martin
    
FFT sur 5 Voies Okai...

              r108
            
                      when others =>

                          null; 

        martin
    
update ADC

              r98
            
                  end case;

              end if;

          end process;

        martin
    
FFT sur 5 Voies Okai...

              r108
            
      end architecture;

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

martin update ADC	r98	------------------------------------------------------------------------------
		-- This file is a part of the LPP VHDL IP LIBRARY
		-- Copyright (C) 2009 - 2012, Laboratory of Plasmas Physic - CNRS
		--
		-- This program is free software; you can redistribute it and/or modify
		-- it under the terms of the GNU General Public License as published by
		-- the Free Software Foundation; either version 3 of the License, or
		-- (at your option) any later version.
		--
		-- This program is distributed in the hope that it will be useful,
		-- but WITHOUT ANY WARRANTY; without even the implied warranty of
		-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		-- GNU General Public License for more details.
		--
		-- You should have received a copy of the GNU General Public License
		-- along with this program; if not, write to the Free Software
		-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
		------------------------------------------------------------------------------
		-- Author : Martin Morlot
		-- Mail : martin.morlot@lpp.polytechnique.fr
		------------------------------------------------------------------------------
		library IEEE;
		use IEEE.std_logic_1164.all;
		use IEEE.numeric_std.all;

		entity Driver_FFT is
		generic(
martin FFT sur 5 Voies Okai...	r108	Data_sz : integer range 1 to 32 := 16;
		NbData : integer range 1 to 512 := 256
martin update ADC	r98	);
		port(
		clk : in std_logic;
		rstn : in std_logic;
		Load : in std_logic;
		Empty : in std_logic_vector(4 downto 0);
		DATA : in std_logic_vector((5*Data_sz)-1 downto 0);
		Valid : out std_logic;
		Read : out std_logic_vector(4 downto 0);
		Data_re : out std_logic_vector(Data_sz-1 downto 0);
		Data_im : out std_logic_vector(Data_sz-1 downto 0)
		);
		end entity;


		architecture ar_Driver of Driver_FFT is

		type etat is (eX,e0,e1,e2);
		signal ect : etat;

martin FFT sur 5 Voies Okai...	r108	signal DataCount : integer range 0 to 255 := 0;
		signal FifoCpt : integer range 0 to 4 := 0;
martin update ADC	r98
martin FFT sur 5 Voies Okai...	r108	signal sLoad : std_logic;
martin update ADC	r98
		begin

		process(clk,rstn)
		begin
		if(rstn='0')then
martin FFT sur 5 Voies Okai...	r108	ect <= e0;
martin update ADC	r98	Read <= (others => '1');
		Valid <= '0';
martin Débug de la FIFO...	r103	Data_re <= (others => '0');
		Data_im <= (others => '0');
martin FFT sur 5 Voies Okai...	r108	DataCount <= 0;
		FifoCpt <= 0;
		sLoad <= '0';
martin update ADC	r98
		elsif(clk'event and clk='1')then
martin FFT sur 5 Voies Okai...	r108	sLoad <= Load;
martin update ADC	r98
martin FFT sur 5 Voies Okai...	r108	if(sLoad='1' and Load='0')then
		if(FifoCpt=4)then
		FifoCpt <= 0;
		else
		FifoCpt <= FifoCpt + 1;
		end if;
		end if;

martin update ADC	r98	case ect is

		when e0 =>
martin FFT sur 5 Voies Okai...	r108	if(Load='1' and Empty(FifoCpt)='0')then
		Read(FifoCpt) <= '0';
		ect <= e1;
martin update ADC	r98	end if;

		when e1 =>
martin FFT sur 5 Voies Okai...	r108	Valid <= '0';
		Read(FifoCpt) <= '1';
		ect <= e2;

martin update ADC	r98	when e2 =>
martin FFT sur 5 Voies Okai...	r108	Data_re <= DATA(((FifoCpt+1)Data_sz)-1 downto (FifoCptData_sz));
martin update ADC	r98	Data_im <= (others => '0');
		Valid <= '1';
martin FFT sur 5 Voies Okai...	r108	if(DataCount=NbData-1)then
		DataCount <= 0;
		ect <= eX;
		else
		DataCount <= DataCount + 1;
		if(Load='1' and Empty(FifoCpt)='0')then
		Read(FifoCpt) <= '0';
		ect <= e1;
		else
		ect <= eX;
		end if;
		end if;

		when eX =>
		Valid <= '0';
martin update ADC	r98	ect <= e0;
martin FFT sur 5 Voies Okai...	r108
		when others =>
		null;
martin update ADC	r98
		end case;
		end if;
		end process;

martin FFT sur 5 Voies Okai...	r108	end architecture;