URL
https://opencores.org/ocsvn/pcie_ds_dma/pcie_ds_dma/trunk
Subversion Repositories pcie_ds_dma
[/] [pcie_ds_dma/] [trunk/] [core/] [adm/] [main/] [cl_chn_v4.vhd] - Rev 2
Compare with Previous | Blame | View Log
--------------------------------------------------------------------------------------------------- -- -- Title : cl_chn_v4 -- Author : Dmitry Smekhov -- Company : Instrumental System -- -- Version : 2.4 -- --------------------------------------------------------------------------------------------------- -- -- Description : Реализация общих регистров управления, -- формирование прерывания и запроса DMA -- Модификация 4. -- Для дешифрации адреса используются разряды 4..0. -- Формируются регистры: -- MODE0, MODE1, MODE2, MODE3, SFLAG_PAE, SFLAG_PAF, PRT_MODE -- STMODE, FMODE, CNT0, CNT1, CNT2 -- CHAN1, FORMAT -- --------------------------------------------------------------------------------------------------- -- -- Version 2.4 05.04.2010 -- Добавлены триггеры на сигналы rst, fifo_rst -- --------------------------------------------------------------------------------------------------- -- -- Version 2.3 14.04.2006 -- добавлен выход регистра TL_MODE (Соколов) -- -- Version 2.2 29.10.2004 -- Исправлена запись в регистр mode3 -- -- Version 2.1 25.09.2004 -- Разрешение запроса DMA маскируется сигналом prt_wr_start -- -- Version 2.0 03.08.2004 -- Добавлены выходы SFLAG_PAE, SFLAG_PAF -- --------------------------------------------------------------------------------------------------- library ieee; use ieee.std_logic_1164.all; use work.adm2_pkg.all; package cl_chn_v4_pkg is component cl_chn_v4 is generic ( -- 2 - out - для тетрады вывода -- 1 - in - для тетрады ввода chn_type : integer ); port( reset : in std_logic; -- 0 - общий сброс clk : in std_logic; -- тактовая частота -- Флаги cmd_rdy : in std_logic; -- 1 - готовность тетрады rdy : in std_logic; -- 1 - готовность FIFO fifo_flag : in bl_fifo_flag; -- флаги FIFO st9 : in std_logic:='0'; -- Разряды регистра STATUS st10 : in std_logic:='0'; st11 : in std_logic:='0'; st12 : in std_logic:='0'; st13 : in std_logic:='0'; st14 : in std_logic:='0'; st15 : in std_logic:='0'; -- Тетрада data_in : in std_logic_vector( 15 downto 0 ); -- шина данных cmd : in bl_cmd; -- команда bx_irq : out std_logic; -- 1 - прерывание от тетрады bx_drq : out bl_drq; -- запрос DMA status : out std_logic_vector( 15 downto 0 ); -- регистр STATUS -- Управление mode0 : out std_logic_vector( 15 downto 0 ); -- регистры тетрады fdiv : out std_logic_vector( 15 downto 0 ); fdiv_we : out std_logic; -- 1 - в регистре FDIV новое значение fmode : out std_logic_vector( 15 downto 0 ); stmode : out std_logic_vector( 15 downto 0 ); cnt0 : out std_logic_vector( 15 downto 0 ); cnt1 : out std_logic_vector( 15 downto 0 ); cnt2 : out std_logic_vector( 15 downto 0 ); mode1 : out std_logic_vector( 15 downto 0 ); mode2 : out std_logic_vector( 15 downto 0 ); mode3 : out std_logic_vector( 15 downto 0 ); sflag_pae : out std_logic_vector( 15 downto 0 ); sflag_paf : out std_logic_vector( 15 downto 0 ); prt_mode : out std_logic_vector( 15 downto 0 ); tl_mode : out std_logic_vector( 15 downto 0 ); chan1 : out std_logic_vector( 1 downto 0 ); format : out std_logic; rst : out std_logic; -- 0 - сброс тетрады fifo_rst : out std_logic; -- 0 - сброс FIFO prt_wr_start: in std_logic:='1' -- 1 - наступило событие старта в режиме претриггера ); end component; end package cl_chn_v4_pkg; library ieee; use ieee.std_logic_1164.all; use work.adm2_pkg.all; entity cl_chn_v4 is generic ( -- 2 - out - для тетрады вывода -- 1 - in - для тетрады ввода chn_type : integer ); port( reset : in std_logic; -- 0 - общий сброс clk : in std_logic; -- тактовая частота -- Флаги cmd_rdy : in std_logic; -- 1 - готовность тетрады rdy : in std_logic; -- 1 - готовность FIFO fifo_flag : in bl_fifo_flag; -- флаги FIFO st9 : in std_logic:='0'; -- Разряды регистра STATUS st10 : in std_logic:='0'; st11 : in std_logic:='0'; st12 : in std_logic:='0'; st13 : in std_logic:='0'; st14 : in std_logic:='0'; st15 : in std_logic:='0'; -- Тетрада data_in : in std_logic_vector( 15 downto 0 ); -- шина данных cmd : in bl_cmd; -- команда bx_irq : out std_logic; -- 1 - прерывание от тетрады bx_drq : out bl_drq; -- запрос DMA status : out std_logic_vector( 15 downto 0 ); -- регистр STATUS -- Управление mode0 : out std_logic_vector( 15 downto 0 ); -- регистры тетрады fdiv : out std_logic_vector( 15 downto 0 ); fdiv_we : out std_logic; -- 1 - в регистре FDIV новое значение fmode : out std_logic_vector( 15 downto 0 ); stmode : out std_logic_vector( 15 downto 0 ); cnt0 : out std_logic_vector( 15 downto 0 ); cnt1 : out std_logic_vector( 15 downto 0 ); cnt2 : out std_logic_vector( 15 downto 0 ); mode1 : out std_logic_vector( 15 downto 0 ); mode2 : out std_logic_vector( 15 downto 0 ); mode3 : out std_logic_vector( 15 downto 0 ); sflag_pae : out std_logic_vector( 15 downto 0 ); sflag_paf : out std_logic_vector( 15 downto 0 ); prt_mode : out std_logic_vector( 15 downto 0 ); tl_mode : out std_logic_vector( 15 downto 0 ); chan1 : out std_logic_vector( 1 downto 0 ); format : out std_logic; rst : out std_logic; -- 0 - сброс тетрады fifo_rst : out std_logic; -- 0 - сброс FIFO prt_wr_start: in std_logic:='1' -- 1 - наступило событие старта в режиме претриггера ); end cl_chn_v4; architecture cl_chn_v4 of cl_chn_v4 is signal c_mode0, c_mask, c_inv, c_mode1, c_mode2, c_flag, c_irq : std_logic_vector( 15 downto 0 ); signal c_fmode, c_fdiv, c_stmode, c_cnt0, c_cnt1, c_cnt2: std_logic_vector( 15 downto 0 ); signal c_mode3, c_sflag : std_logic_vector( 15 downto 0 ); signal c_sflag_pae, c_sflag_paf, c_prt_mode,c_tl_mode : std_logic_vector( 15 downto 0 ); signal c_status : std_logic_vector( 15 downto 0 ); signal c_drq_en : std_logic; signal c_rst : std_logic; -- 0 - сброс тетрады signal drq_req : std_logic; begin mode0<=c_mode0; mode1<=c_mode1; mode2<=c_mode2; mode3<=c_mode3; status<=c_status; fmode<=c_fmode; fdiv<=c_fdiv; stmode<=c_stmode; cnt0<=c_cnt0; cnt1<=c_cnt1; cnt2<=c_cnt2; sflag_pae <= c_sflag_pae; sflag_paf <= c_sflag_paf; prt_mode <= c_prt_mode; tl_mode <= c_tl_mode; pr_mode0: process( reset, clk ) begin if( reset='0' ) then c_mode0<=(others=>'0'); elsif( rising_edge( clk ) ) then if( cmd.cmd_data_we='1' ) then if( cmd.adr(9)='0' and cmd.adr(8)='0' ) then case cmd.adr( 4 downto 0 ) is when "00000" => c_mode0<=data_in; when others=>null; end case; end if; end if; end if; end process; pr_reg: process( c_rst, clk ) variable v: std_logic; begin if( c_rst='0' ) then c_mode1<=(others=>'0'); c_mode2<=(others=>'0'); c_mode3<=(others=>'0'); c_sflag_pae<=(others=>'0'); c_sflag_paf<=(others=>'0'); c_prt_mode<=(others=>'0'); c_tl_mode<=(others=>'0'); c_mask<=(others=>'0'); c_inv<=(others=>'0'); c_fmode<=(others=>'0'); c_fdiv <=(others=>'0'); c_stmode<=(others=>'0'); c_cnt0<=(others=>'0'); c_cnt1<=(others=>'0'); c_cnt2<=(others=>'0'); chan1<=(others=>'0'); fdiv_we<='0'; format <='0'; elsif( rising_edge( clk ) ) then v:='0'; if( cmd.cmd_data_we='1' ) then if( cmd.adr(9)='0' and cmd.adr(8)='0' ) then case cmd.adr( 4 downto 0 ) is when "00001" => c_mask<=data_in; when "00010" => c_inv<=data_in; when "00011" => c_fmode<=data_in; when "00100" => c_fdiv<=data_in; v:='1'; when "00101" => c_stmode<=data_in; when "00110" => c_cnt0<=data_in; when "00111" => c_cnt1<=data_in; when "01000" => c_cnt2<=data_in; when "01001" => c_mode1<=data_in; when "01010" => c_mode2<=data_in; when "01011" => c_mode3<=data_in; when "01100" => c_sflag_pae<=data_in; when "01101" => c_sflag_paf<=data_in; when "01110" => c_prt_mode<=data_in; when "01111" => c_tl_mode<=data_in; when "10000" => chan1 <= data_in( 1 downto 0 ); when "10010" => format <= data_in( 0 ); when others=>null; end case; end if; end if; fdiv_we<=v; end if; end process; pr_status: process( clk ) begin if( rising_edge( clk ) ) then c_status(0)<=cmd_rdy; c_status(1)<=rdy and prt_wr_start; c_status(2)<=fifo_flag.ef; c_status(3)<=fifo_flag.pae; c_status(4)<=fifo_flag.hf; c_status(5)<=fifo_flag.paf; c_status(6)<=fifo_flag.ff; c_status(7)<=fifo_flag.ovr; c_status(8)<=fifo_flag.und; c_status(9)<=st9; c_status(10)<=st10; c_status(11)<=st11; c_status(12)<=st12; c_status(13)<=st13; c_status(14)<=st14; c_status(15)<=st15; end if; end process; c_flag<=c_status xor c_inv; c_irq<= c_flag and c_mask; pr_irq: process( c_irq, clk ) variable v: std_logic; begin v:='0'; for i in 0 to 15 loop v:=v or c_irq( i ); end loop; if( rising_edge( clk ) ) then bx_irq<=v and c_mode0(2); end if; end process; c_rst<=reset and ( not c_mode0(0) ); rst <= c_rst after 1 ns when rising_edge( clk ); fifo_rst<=reset and ( not c_mode0(0) ) and ( not c_mode0(1) ) after 1 ns when rising_edge( clk ); c_drq_en<=c_mode0( 3 ) and prt_wr_start; bx_drq.en<=c_drq_en; gen_out: if chn_type=2 generate pr_bx_drq: process( c_mode0, fifo_flag, c_drq_en, rdy ) begin case c_mode0( 13 downto 12 ) is when "00" => drq_req <= fifo_flag.paf and c_drq_en; -- PAF = 1 when "01" => drq_req <= rdy and c_drq_en; -- RDY = 1 when "10" => drq_req <= fifo_flag.hf and c_drq_en; -- HF = 1 when others => drq_req<='0'; end case; end process; bx_drq.ack <= cmd.data_we and c_drq_en; end generate; gen_in: if chn_type=1 generate pr_bx_drq: process( c_mode0, fifo_flag, c_drq_en, rdy ) begin case c_mode0( 13 downto 12 ) is when "00" => drq_req <= fifo_flag.pae and c_drq_en; -- PAE = 1 when "01" => drq_req <= rdy and c_drq_en; -- RDY = 1 when "10" => drq_req <= ( not fifo_flag.hf ) and c_drq_en; -- HF = 0 when others => drq_req<='0'; end case; end process; bx_drq.ack <= ( not cmd.data_cs ) and c_drq_en; end generate; bx_drq.req <= drq_req when c_prt_mode(0)='0' or c_prt_mode(1)='1' else drq_req and prt_wr_start; end cl_chn_v4;