lpp_waveform_dma_selectaddress.vhd
164 lines
| 5.2 KiB
| text/x-vhdl
|
VhdlLexer
pellion
|
r165 | |||
------------------------------------------------------------------------------ | ||||
-- This file is a part of the LPP VHDL IP LIBRARY | ||||
-- Copyright (C) 2009 - 2010, 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 : Jean-christophe Pellion | ||||
-- Mail : jean-christophe.pellion@lpp.polytechnique.fr | ||||
-- jean-christophe.pellion@easii-ic.com | ||||
------------------------------------------------------------------------------- | ||||
-- 1.0 - initial version | ||||
------------------------------------------------------------------------------- | ||||
LIBRARY ieee; | ||||
USE ieee.std_logic_1164.ALL; | ||||
USE ieee.numeric_std.ALL; | ||||
ENTITY lpp_waveform_dma_selectaddress IS | ||||
GENERIC ( | ||||
nb_burst_available_size : INTEGER := 11 | ||||
); | ||||
PORT ( | ||||
pellion
|
r167 | HCLK : IN STD_ULOGIC; | ||
HRESETn : IN STD_ULOGIC; | ||||
pellion
|
r229 | run : IN STD_ULOGIC; | ||
pellion
|
r227 | enable : IN STD_LOGIC; | ||
pellion
|
r167 | update : IN STD_LOGIC_VECTOR(1 DOWNTO 0); | ||
pellion
|
r165 | |||
pellion
|
r167 | nb_burst_available : IN STD_LOGIC_VECTOR(nb_burst_available_size-1 DOWNTO 0); | ||
addr_data_reg : IN STD_LOGIC_VECTOR(31 DOWNTO 0); | ||||
addr_data : OUT STD_LOGIC_VECTOR(31 DOWNTO 0); | ||||
status_full : OUT STD_LOGIC; | ||||
status_full_ack : IN STD_LOGIC; | ||||
status_full_err : OUT STD_LOGIC | ||||
pellion
|
r165 | ); | ||
END; | ||||
ARCHITECTURE Behavioral OF lpp_waveform_dma_selectaddress IS | ||||
TYPE state_fsm_select_data IS (IDLE, ADD, FULL, ERR, UPDATED); | ||||
SIGNAL state : state_fsm_select_data; | ||||
SIGNAL address : STD_LOGIC_VECTOR(31 DOWNTO 0); | ||||
SIGNAL nb_send : STD_LOGIC_VECTOR(nb_burst_available_size-1 DOWNTO 0); | ||||
SIGNAL nb_send_next : STD_LOGIC_VECTOR(nb_burst_available_size-1 DOWNTO 0); | ||||
SIGNAL update_s : STD_LOGIC; | ||||
pellion
|
r167 | SIGNAL update_r : STD_LOGIC_VECTOR(1 DOWNTO 0); | ||
pellion
|
r165 | BEGIN | ||
update_s <= update(0) OR update(1); | ||||
pellion
|
r167 | |||
pellion
|
r165 | addr_data <= address; | ||
pellion
|
r167 | nb_send_next <= STD_LOGIC_VECTOR(UNSIGNED(nb_send) + 1); | ||
pellion
|
r165 | |||
FSM_SELECT_ADDRESS : PROCESS (HCLK, HRESETn) | ||||
BEGIN | ||||
IF HRESETn = '0' THEN | ||||
state <= IDLE; | ||||
address <= (OTHERS => '0'); | ||||
nb_send <= (OTHERS => '0'); | ||||
status_full <= '0'; | ||||
status_full_err <= '0'; | ||||
pellion
|
r167 | update_r <= "00"; | ||
pellion
|
r165 | ELSIF HCLK'EVENT AND HCLK = '1' THEN | ||
pellion
|
r229 | update_r <= update; | ||
pellion
|
r165 | CASE state IS | ||
WHEN IDLE => | ||||
pellion
|
r229 | IF run = '0' THEN | ||
state <= IDLE; | ||||
address <= (OTHERS => '0'); | ||||
nb_send <= (OTHERS => '0'); | ||||
status_full <= '0'; | ||||
status_full_err <= '0'; | ||||
update_r <= "00"; | ||||
ELSE | ||||
IF enable = '0' THEN | ||||
state <= UPDATED; | ||||
ELSIF update_s = '1' THEN | ||||
state <= ADD; | ||||
END IF; | ||||
pellion
|
r165 | END IF; | ||
pellion
|
r229 | |||
pellion
|
r165 | WHEN ADD => | ||
pellion
|
r229 | IF run = '0' THEN | ||
pellion
|
r167 | state <= IDLE; | ||
pellion
|
r229 | ELSE | ||
IF UNSIGNED(nb_send_next) < UNSIGNED(nb_burst_available) THEN | ||||
state <= IDLE; | ||||
IF update_r = "10" THEN | ||||
address <= STD_LOGIC_VECTOR(UNSIGNED(address) + 64); | ||||
nb_send <= nb_send_next; | ||||
ELSIF update_r = "01" THEN | ||||
address <= STD_LOGIC_VECTOR(UNSIGNED(address) + 4); | ||||
END IF; | ||||
ELSE | ||||
state <= FULL; | ||||
nb_send <= (OTHERS => '0'); | ||||
status_full <= '1'; | ||||
pellion
|
r165 | END IF; | ||
END IF; | ||||
WHEN FULL => | ||||
pellion
|
r229 | IF run = '0' THEN | ||
state <= IDLE; | ||||
pellion
|
r165 | ELSE | ||
pellion
|
r229 | status_full <= '0'; | ||
IF status_full_ack = '1' THEN | ||||
IF update_s = '1' THEN | ||||
status_full_err <= '1'; | ||||
END IF; | ||||
state <= UPDATED; | ||||
ELSE | ||||
IF update_s = '1' THEN | ||||
status_full_err <= '1'; | ||||
state <= ERR; | ||||
END IF; | ||||
pellion
|
r165 | END IF; | ||
END IF; | ||||
WHEN ERR => | ||||
pellion
|
r229 | IF run = '0' THEN | ||
state <= IDLE; | ||||
ELSE | ||||
status_full_err <= '0'; | ||||
IF status_full_ack = '1' THEN | ||||
state <= UPDATED; | ||||
END IF; | ||||
pellion
|
r165 | END IF; | ||
WHEN UPDATED => | ||||
pellion
|
r229 | IF run = '0' THEN | ||
state <= IDLE; | ||||
ELSE | ||||
status_full_err <= '0'; | ||||
address <= addr_data_reg; | ||||
IF enable = '1' THEN | ||||
state <= IDLE; | ||||
END IF; | ||||
pellion
|
r227 | END IF; | ||
pellion
|
r165 | |||
WHEN OTHERS => NULL; | ||||
END CASE; | ||||
END IF; | ||||
END PROCESS FSM_SELECT_ADDRESS; | ||||
END Behavioral; | ||||