Changeset 11513 for firmware


Ignore:
Timestamp:
Jul 21, 2011, 12:14:08 PM (8 years ago)
Author:
vogler
Message:
lightpulser interface modified to reduce LED current and light output
Location:
firmware/FTM
Files:
1 added
5 edited

Legend:

Unmodified
Added
Removed
  • firmware/FTM/Clock_cond_interface/Clock_cond_interface_tb.vhd

    r10231 r11513  
    7676
    7777   
    78    signal cc_R0 : std_logic_vector(31 downto 0)  := x"00010100";
     78   signal cc_R0 : std_logic_vector(31 downto 0)  := x"00038000";
    7979   signal cc_R1 : std_logic_vector(31 downto 0)  := x"00010101";
    8080   signal cc_R8 : std_logic_vector(31 downto 0)  := x"10000908";
     
    8383   signal cc_R13 : std_logic_vector(31 downto 0) := x"020A000D";
    8484   signal cc_R14 : std_logic_vector(31 downto 0) := x"0830280E";
    85    signal cc_R15 : std_logic_vector(31 downto 0) := x"2000960F";
     85   signal cc_R15 : std_logic_vector(31 downto 0) :=  x"1400FA0F";   
    8686
    87    
     87       
    8888   signal start_config : std_logic := '0';
    8989   signal timemarker_select : std_logic := '0';
  • firmware/FTM/Lightpulser_interface/Basic_Version/FM_pulse_generator_Basic.vhd

    r10879 r11513  
    1515--               by Patrick Vogler, Quirin Weitzel
    1616--               -> clean up
     17--
     18-- modified:     July 20 2011
     19--               by Patrick Vogler
     20--               reduce LED current to reduce total light yield
     21--
    1722
    1823
     
    2934ENTITY FM_pulse_generator_Basic IS
    3035   GENERIC(
    31       pulse_length : integer := FLD_PULSE_LENGTH_BASIC   -- 60ns                                                               
     36      pulse_length : integer := FLD_PULSE_LENGTH_FM   -- 60ns                                                               
    3237         );
    3338   PORT(
    3439      clk            : in  std_logic;
    35       pulse_freq     : in  std_logic_vector (5 downto 0);
    36       FM_out         : out std_logic  := '0'
     40      pulse_freq     : in  std_logic_vector (6 downto 0);
     41      FM_out         : out std_logic := '0'
    3742         );
    3843END FM_pulse_generator_Basic;
     
    4449  clk_div: process (clk)
    4550    variable Z   : integer range - FLD_MIN_FREQ_DIV_BASIC to FLD_FD_MAX_RANGE_BASIC;
    46     variable Y   : integer range 0 to FLD_PULSE_LENGTH_BASIC;
     51    variable Y   : integer range 0 to FLD_PULSE_LENGTH_FM;
    4752    variable X   : integer range 0 to FLD_FD_MULT_BASIC ;
    4853     
     
    5055         
    5156    if rising_edge(clk) then       
    52            if (X < FLD_FD_MULT_BASIC) then
     57           if (X < FLD_FD_MULT_BASIC - 1) then
    5358                  X := X+1;
    5459           else
     
    5762                      Z := Z + 1;
    5863                  else
    59                       Z := - FLD_MIN_FREQ_DIV_BASIC;
     64                      Z := - FLD_MIN_FREQ_DIV_BASIC + 1;
    6065                      Y := 0;
    6166                  end if;                 
  • firmware/FTM/Lightpulser_interface/Basic_Version/Lightpulser_interface_Basic.vhd

    r10879 r11513  
    3131--               by Patrick Vogler, Quirin Weitzel
    3232--               -> clean up
     33--
     34-- modified:     July 20 2011
     35--               by Patrick Vogler
     36--               reduce minimal LED light output and increase dynamic range
    3337--
    3438----------------------------------------------------------------------------------
     
    111115  port(
    112116    clk            : in  std_logic;    -- 50 MHz
    113     pulse_freq     : in  std_logic_vector (5 downto 0);
     117    pulse_freq     : in  std_logic_vector (6 downto 0);
    114118    FM_out         : out std_logic  := '0'
    115119  );
     
    198202    port map(
    199203      clk            => clk_50, 
    200       pulse_freq     => LP1_ampl_sig(5 downto 0),
     204      pulse_freq     => LP1_ampl_sig(6 downto 0),
    201205      FM_out         => PWM_sig_1   
    202206    );
     
    206210    port map(
    207211      clk            => clk_50, 
    208       pulse_freq     => LP2_ampl_sig(5 downto 0),
     212      pulse_freq     => LP2_ampl_sig(6 downto 0),
    209213      FM_out         => PWM_sig_2   
    210214    );
  • firmware/FTM/Lightpulser_interface/Basic_Version/single_LP_Basic.vhd

    r10879 r11513  
    3232--               by Patrick Vogler, Quirin Weitzel
    3333--               -> clean up
     34--
     35--
     36-- modified:     July 20 2011
     37--               by Patrick Vogler
     38--               reduce minimal LED light output and increase dynamic range
     39--
    3440----------------------------------------------------------------------------------
    3541----------------------------------------------------------------------------------
     
    7783single_LP_Basic_proc: process (clk_50)
    7884
    79 variable Y   : integer range 0 to FLD_PULSE_LENGTH_BASIC;
     85variable Y   : integer range 0 to FLD_PULSE_LENGTH_Pulse;
    8086
    8187begin 
     
    8995     
    9096       if (Pulse_Flag = '1') then
    91          if (Y < FLD_PULSE_LENGTH_BASIC) then
     97         if (Y < FLD_PULSE_LENGTH_Pulse) then
    9298           Y := Y + 1;
    9399           LP_Pulse_out <= '1';
  • firmware/FTM/ftm_definitions.vhd

    r11485 r11513  
    6060--
    6161-- kw 10.06.: added CMD_CONFIG_FTU
     62--
     63-- pv 21.07.: new lightpulser firmware to reduce LED current and light output
    6264--
    6365----------------------------------------------------------------------------------
     
    423425  -- Lightpulser Basic Version
    424426  -- --------------------------------------------------------------------------------------
    425   constant FLD_PULSE_LENGTH_BASIC       : integer := 3;  -- 60ns pulse @ 50MHz                                                       
    426   constant FLD_MIN_FREQ_DIV_BASIC       : integer := 25;     
    427   constant FLD_FD_MULT_BASIC            : integer := 10;       
    428   constant FLD_FD_MAX_RANGE_BASIC       : integer := 64;
     427  constant FLD_PULSE_LENGTH_Pulse   : integer := 2;  -- 40ns pulse @ 50MHz,  instead of 3: 60ns pulse @ 50MHz     
     428  constant FLD_PULSE_LENGTH_FM      : integer := 3;  -- 60ns pulse @ 50MHz     
     429  constant FLD_MIN_FREQ_DIV_BASIC   : integer := 8;  -- before 25   
     430  constant FLD_FD_MULT_BASIC        : integer := 8;  -- before 10     
     431  constant FLD_FD_MAX_RANGE_BASIC   : integer := 128;-- before 64
    429432
    430433  -- Timing counter
Note: See TracChangeset for help on using the changeset viewer.