URL
https://opencores.org/ocsvn/pcie_ds_dma/pcie_ds_dma/trunk
Subversion Repositories pcie_ds_dma
[/] [pcie_ds_dma/] [trunk/] [core/] [wishbone/] [block_test_generate/] [block_generate_wb_config_slave.vhd] - Rev 34
Go to most recent revision | Compare with Previous | Blame | View Log
---------------------------------------------------------------------------------- -- Company: ;) -- Engineer: Kuzmi4 -- -- Create Date: 17:40:25 05/21/2010 -- Design Name: -- Module Name: block_generate_wb_config_slave - rtl -- Project Name: DS_DMA -- Target Devices: any -- Tool versions: -- Description: -- -- For now we have such restrictions for WB component: -- 1) no WB_RTY support -- 2) WB_ERR arize only at event detection and fall after it goes. -- 3) Operate with Single 64bit WB Transfers. NO WB BURSTs. -- 4) (TBD)... -- -- WB_SLAVE MM (ONLY 256B range): -- 1) CONSTANTs: -- ADDR=x00 - BLOCK_ID -- ADDR=x08 - BLOCK_VER -- ADDR=x10 - RSVD (CONSTANTs) -- ADDR=x18 - RSVD (CONSTANTs) -- ADDR=x20 - RSVD (CONSTANTs) -- ADDR=x28 - RSVD (CONSTANTs) -- ADDR=x30 - RSVD (CONSTANTs) -- ADDR=x38 - RSVD (CONSTANTs) -- 2) COMMAND REGs: -- ADDR=x40 - TEST_GEN_CTRL -- ADDR=x48 - TEST_GEN_SIZE -- ADDR=x50 - TEST_GEN_CNT1 -- ADDR=x58 - TEST_GEN_CNT2 -- ADDR=x60 - RSVD (COMMAND REGs) -- ADDR=x68 - RSVD (COMMAND REGs) -- ADDR=x70 - RSVD (COMMAND REGs) -- ADDR=x78 - RSVD (COMMAND REGs) -- 3) STS REGs, etc: -- ADDR=x80 - TEST_GEN_STATUS -- ADDR=x88 - TEST_GEN_BL_WR -- ADDR=x90 - 0xAAAAAAAA -- ADDR=x98 - RSVD (STS REGs, etc) -- .... -- ADDR=xFF - RSVD (STS REGs, etc) -- -- -- -- Revision: -- Revision 0.01 - File Created, -- 2do: for now ADD MemoryMap looks good, but maybe its quite diff from REAL SITUATION --> CHECK/FIX MM later!!! -- Revision 0.02 - upd WB_ERR func. -- Revision 0.03 - fix MM (8cell allign). -- ---------------------------------------------------------------------------------- library IEEE; use IEEE.STD_LOGIC_1164.ALL; package block_generate_wb_config_slave_pkg is component block_generate_wb_config_slave is generic ( BLOCK_ID : in std_logic_vector( 15 downto 0 ):=x"0000"; -- идентификатор модуля BLOCK_VER : in std_logic_vector( 15 downto 0 ):=x"0000" -- версия модуля ); port ( -- -- SYS_CON i_clk : in STD_LOGIC; i_rst : in STD_LOGIC; -- -- WB CFG SLAVE iv_wbs_cfg_addr : in std_logic_vector( 7 downto 0 ); iv_wbs_cfg_data : in std_logic_vector( 63 downto 0 ); iv_wbs_cfg_sel : in std_logic_vector( 7 downto 0 ); -- wor now, we NC this wires i_wbs_cfg_we : in std_logic; i_wbs_cfg_cyc : in std_logic; i_wbs_cfg_stb : in std_logic; iv_wbs_cfg_cti : in std_logic_vector( 2 downto 0 ); iv_wbs_cfg_bte : in std_logic_vector( 1 downto 0 ); ov_wbs_cfg_data : out std_logic_vector( 63 downto 0 ); o_wbs_cfg_ack : out std_logic; o_wbs_cfg_err : out std_logic; o_wbs_cfg_rty : out std_logic; -- -- CONTROL Outputs ov_test_gen_ctrl : out std_logic_vector( 15 downto 0 ); ov_test_gen_size : out std_logic_vector( 15 downto 0 ); ov_test_gen_cnt1 : out std_logic_vector( 15 downto 0 ); ov_test_gen_cnt2 : out std_logic_vector( 15 downto 0 ); -- -- STATUS Input iv_test_gen_status : in std_logic_vector( 31 downto 0 ); iv_test_gen_bl_wr : in std_logic_vector( 31 downto 0 ) ); end component block_generate_wb_config_slave; end package block_generate_wb_config_slave_pkg; ---------------------------------------------------------------------------------- library IEEE; use IEEE.STD_LOGIC_1164.ALL; use IEEE.STD_LOGIC_ARITH.ALL; use IEEE.STD_LOGIC_UNSIGNED.ALL; library work; use work.ctrl_ram16_v1_pkg.all; use work.host_pkg.all; entity block_generate_wb_config_slave is generic ( BLOCK_ID : in std_logic_vector( 15 downto 0 ):=x"0000"; -- идентификатор модуля BLOCK_VER : in std_logic_vector( 15 downto 0 ):=x"0000" -- версия модуля ); port ( -- -- SYS_CON i_clk : in STD_LOGIC; i_rst : in STD_LOGIC; -- -- WB CFG SLAVE iv_wbs_cfg_addr : in std_logic_vector( 7 downto 0 ); iv_wbs_cfg_data : in std_logic_vector( 63 downto 0 ); iv_wbs_cfg_sel : in std_logic_vector( 7 downto 0 ); -- wor now, we NC this wires i_wbs_cfg_we : in std_logic; i_wbs_cfg_cyc : in std_logic; i_wbs_cfg_stb : in std_logic; iv_wbs_cfg_cti : in std_logic_vector( 2 downto 0 ); iv_wbs_cfg_bte : in std_logic_vector( 1 downto 0 ); ov_wbs_cfg_data : out std_logic_vector( 63 downto 0 ); o_wbs_cfg_ack : out std_logic; o_wbs_cfg_err : out std_logic; o_wbs_cfg_rty : out std_logic; -- -- CONTROL Outputs ov_test_gen_ctrl : out std_logic_vector( 15 downto 0 ); ov_test_gen_size : out std_logic_vector( 15 downto 0 ); ov_test_gen_cnt1 : out std_logic_vector( 15 downto 0 ); ov_test_gen_cnt2 : out std_logic_vector( 15 downto 0 ); -- -- STATUS Input iv_test_gen_status : in std_logic_vector( 31 downto 0 ); iv_test_gen_bl_wr : in std_logic_vector( 31 downto 0 ) ); end block_generate_wb_config_slave; architecture rtl of block_generate_wb_config_slave is ---------------------------------------------------------------------------------- -- -- Define CONSTANTs constant ct_bl_rom : bh_rom:=( 0=> BLOCK_ID, -- 1=> BLOCK_VER, -- 2=> x"5504", -- 2=> Device_ID, 3=> x"0210", -- 3=> Revision, 4=> x"0104", -- 4=> PLD_VER, 5=> x"0000", 6=> x"0000", 7=> x"0000" ); -- -- Define BL_RAM stuff: signal sv_bl_ram_adr : std_logic_vector( 4 downto 0):= (others => '0'); signal sv_bl_ram_data_in : std_logic_vector(15 downto 0):= (others => '0'); signal sv_bl_ram_data_out : std_logic_vector(15 downto 0):= (others => '0'); signal s_bl_ram_data_we : std_logic:= '0'; -- -- DEFINE WB_FSM (required for build correct WB_ACK) stuff: signal sv_wbs_cfg_ack_counter : std_logic:='0'; -- -- Define additional WB signals: signal s_wbs_active_wr : std_logic; signal s_wbs_active_rd : std_logic; signal s_wbs_active : std_logic; signal s_wbs_wr_ena : std_logic; ---------------------------------------------------------------------------------- begin ---------------------------------------------------------------------------------- -- -- WB ACTIVE/ENA flag (for RD/WR and for any WB activity) -- s_wbs_active_wr <= '1' when ( i_wbs_cfg_cyc='1' and i_wbs_cfg_stb='1' and i_wbs_cfg_we='1' and -- all strobes OK (iv_wbs_cfg_cti="000") and (iv_wbs_cfg_bte="00") -- type of transfer OK ) else '0'; s_wbs_active_rd <= '1' when ( i_wbs_cfg_cyc='1' and i_wbs_cfg_stb='1' and i_wbs_cfg_we='0' and (iv_wbs_cfg_cti="000") and (iv_wbs_cfg_bte="00") ) else '0'; s_wbs_active <= '1' when ( i_wbs_cfg_cyc='1' and i_wbs_cfg_stb='1' and (iv_wbs_cfg_cti="000") and (iv_wbs_cfg_bte="00") ) else '0'; s_wbs_wr_ena <= '1' when ( s_wbs_active_wr='1' and -- have ACTIVE WR flag (sv_wbs_cfg_ack_counter='1') -- present WB_ACK source ) else '0'; ---------------------------------------------------------------------------------- -- -- WB Write process -- WB_WRITE : process (i_clk, i_rst) begin if (i_rst='1') then -- RST ov_test_gen_ctrl <= (others => '0'); ov_test_gen_size <= (others => '0'); ov_test_gen_cnt1 <= (others => '0'); ov_test_gen_cnt2 <= (others => '0'); elsif (rising_edge(i_clk)) then -- WRK if (s_wbs_wr_ena='1') then case(iv_wbs_cfg_addr(7 downto 0)) is when x"40" => ov_test_gen_ctrl <= iv_wbs_cfg_data( 15 downto 0); when x"48" => ov_test_gen_size <= iv_wbs_cfg_data( 15 downto 0); when x"50" => ov_test_gen_cnt1 <= iv_wbs_cfg_data( 15 downto 0); when x"58" => ov_test_gen_cnt2 <= iv_wbs_cfg_data( 15 downto 0); when others => null; end case; end if; end if; end process WB_WRITE; ---------------------------------------------------------------------------------- -- -- WB Read process -- --WB_READ : process (i_clk, i_rst) -- begin -- if (i_rst='1') then -- RST -- ov_wbs_cfg_data <= (others => '0'); -- elsif (rising_edge(i_clk)) then -- WRK -- if (s_wbs_active_rd='1') then -- case(iv_wbs_cfg_addr(7 downto 0)) is -- -- STS MM region -- when x"80" => ov_wbs_cfg_data(31 downto 0) <= iv_test_gen_status; -- when x"88" => ov_wbs_cfg_data(31 downto 0) <= iv_test_gen_bl_wr; -- when x"90" | x"98" | x"A0" | x"A" | x"86" | x"87" | x"88" -- when x"89" | x"8A" | x"8B" | x"8C" | x"8D" | x"8E" | x"8F" -- -- BL_RAM MM region -- when others => ov_wbs_cfg_data(15 downto 0) <= sv_bl_ram_data_out; -- end case; -- end if; -- end if; --end process WB_READ; WB_READ: process( iv_test_gen_status, iv_test_gen_bl_wr, iv_wbs_cfg_addr ) begin if( iv_wbs_cfg_addr(7)='0' ) then ov_wbs_cfg_data <= x"000000000000" & sv_bl_ram_data_out; else case( iv_wbs_cfg_addr( 6 downto 3 ) ) is when "0000" => ov_wbs_cfg_data <= x"00000000" & iv_test_gen_status; when "0001" => ov_wbs_cfg_data <= x"00000000" & iv_test_gen_bl_wr; when "0010" => ov_wbs_cfg_data <= x"00000000" & x"AAAAAAAA"; when others => ov_wbs_cfg_data <= (others=>'0'); end case; end if; end process; ---------------------------------------------------------------------------------- -- -- WB ACK process -- WB_ACK_CNT : process (i_clk, i_rst) begin if (i_rst='1') then -- RST sv_wbs_cfg_ack_counter <= '0'; elsif (rising_edge(i_clk)) then -- WRK: if (s_wbs_active='1') then -- WB Transfer in progress --sv_wbs_cfg_ack_counter <= sv_wbs_cfg_ack_counter + '1'; if (sv_wbs_cfg_ack_counter='0') then sv_wbs_cfg_ack_counter <= '1'; else sv_wbs_cfg_ack_counter <= '0'; end if; else -- no WB Transfer sv_wbs_cfg_ack_counter <= '0'; end if; end if; end process WB_ACK_CNT; -- Define WB_ACK o_wbs_cfg_ack <= '1' when ( sv_wbs_cfg_ack_counter='1' and i_wbs_cfg_cyc='1' and i_wbs_cfg_stb='1' -- add controls for avoid problems in anarranged transfers ) else '0'; ---------------------------------------------------------------------------------- -- -- Instaniate BL_RAM (contain CONSTANTs and RD values for COMMAND registers) -- BL_RAM : ctrl_ram16_v1 generic map ( rom => ct_bl_rom -- значения констант ) port map ( clk => i_clk, -- Тактовая частота adr => sv_bl_ram_adr, -- адрес data_in => sv_bl_ram_data_in, -- вход данных data_out => sv_bl_ram_data_out, -- выход данных data_we => s_bl_ram_data_we -- 1 - запись данных ); -- Define BL_RAM ADDR sv_bl_ram_adr <= iv_wbs_cfg_addr( 7 downto 3); -- 8B granularity Transfers (cut [2:0] addr bits) -- DEFINE BL_RAM DATA_IN sv_bl_ram_data_in <= iv_wbs_cfg_data(15 downto 0); -- Cut only LS 16bit -- DEFINE BL_RAM DATA_WRITE s_bl_ram_data_we <= s_wbs_wr_ena; -- WB_WE signal is OK ---------------------------------------------------------------------------------- -- -- MODULE OUTPUTs routing: -- -- WB_ERR deal o_wbs_cfg_err <= '1' when ( i_wbs_cfg_cyc='1' and i_wbs_cfg_stb='1' and -- all strobes OK ( (iv_wbs_cfg_cti/="000") or (iv_wbs_cfg_bte/="00") ) -- BUT type of transfer is NOT OK ) else '0'; -- WB_RTY deal o_wbs_cfg_rty <= '0'; -- nothing to report for now ---------------------------------------------------------------------------------- end rtl;
Go to most recent revision | Compare with Previous | Blame | View Log