use work.core_pkg.all;
use work.mem_pkg.all;
+use work.extension_pkg.all;
use work.extension_uart_pkg.all;
architecture behav of extension_uart is
-signal int_rec,int_rec_nxt : extmod_rec;
-signal w1_st_co, w1_st_co_nxt, w2_wewillsee, w2_wewillsee_nxt, w3_wewillsee, w3_wewillsee_nxt, w4_wewillsee, w4_wewillsee_nxt : gp_register_t;
-signal new_tx_data, tx_busy : std_logic;
+signal w1_st_co, w1_st_co_nxt, w2_uart_config, w2_uart_config_nxt, w3_uart_send, w3_uart_send_nxt, w4_uart_receive, w4_uart_receive_nxt : gp_register_t;
+signal new_wb_data, new_wb_data_nxt, new_tx_data, new_tx_data_nxt, tx_rdy, tx_rdy_int : std_logic;
+signal bd_rate : baud_rate_l;
begin
rs232_tx_inst : rs232_tx
+generic map(
+ RESET_VALUE
+ )
port map(
--System inputs
clk,
--From/to sendlogic
new_tx_data,
- w3_wewillsee(byte_t'range),
- tx_busy
+ w3_uart_send(byte_t'range),
+ tx_rdy,
+ bd_rate,
+ w1_st_co(0)
);
syn : process (clk, reset)
begin
if (reset = RESET_VALUE) then
- int_rec.sel <= '0';
- int_rec.wr_en <= '0';
- int_rec.byte_en <= (others=>'0');
- int_rec.data <= (others=>'0');
- int_rec.addr <= (others=>'0');
-
-
- elsif rising_edge(clk) then
- int_rec <= int_rec_nxt;
-
-
+ w1_st_co <= (others=>'0');
+ w2_uart_config <= (others=>'0');
+ w3_uart_send <= (others=>'0');
+ w4_uart_receive <= (others=>'0');
+
+
+ elsif rising_edge(clk) then
+ w1_st_co <= w1_st_co_nxt;
+ w2_uart_config <= w2_uart_config_nxt;
+ w3_uart_send <= w3_uart_send_nxt;
+ w4_uart_receive <= w4_uart_receive_nxt;
+ new_tx_data <= new_tx_data_nxt;
+ tx_rdy_int <= tx_rdy;
end if;
end process syn;
-------------------------- LESEN UND SCHREIBEN ANFANG ------------------------------------------------------------
-gwriten : process (ext_reg)
+gwriten : process (ext_reg,tx_rdy)
+
+variable tmp_data : gp_register_t;
begin
if ext_reg.sel = '1' and ext_reg.wr_en = '1' then
- int_rec_nxt <= ext_reg;
+ tmp_data := (others =>'0');
+ if ext_reg.byte_en(0) = '1' then
+ tmp_data(byte_t'range) :=ext_reg.data(byte_t'range);
+ end if;
+ if ext_reg.byte_en(1) = '1' then
+ tmp_data((2*byte_t'length-1) downto byte_t'length) := ext_reg.data((2*byte_t'length-1) downto byte_t'length);
+ end if;
+ if ext_reg.byte_en(2) = '1' then
+ tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := ext_reg.data((3*byte_t'length-1) downto 2*byte_t'length);
+ end if;
+ if ext_reg.byte_en(3) = '1' then
+ tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := ext_reg.data((4*byte_t'length-1) downto 3*byte_t'length);
+ end if;
+
+ case ext_reg.addr(1 downto 0) is
+ when "00" =>
+ w1_st_co_nxt <= tmp_data;
+ when "01" =>
+ w2_uart_config_nxt <= tmp_data;
+ when "10" =>
+ w1_st_co_nxt(16) <= '1'; -- busy flag set
+ w3_uart_send_nxt <= tmp_data;
+ when "11" =>
+ w4_uart_receive_nxt <= tmp_data;
+ when others => null;
+ end case;
+ else
+ w1_st_co_nxt <= w1_st_co;
+ w2_uart_config_nxt <= w2_uart_config;
+ w3_uart_send_nxt <= w3_uart_send;
+ w4_uart_receive_nxt <= w4_uart_receive;
+ end if;
+
+ if tx_rdy = '1' and tx_rdy_int = '0' then
+ w1_st_co_nxt(16) <= '0'; -- busy flag reset
end if;
+
end process gwriten;
gread : process (clk,ext_reg)
when "01" =>
tmp_data := (others =>'0');
if ext_reg.byte_en(0) = '1' then
- tmp_data(byte_t'range) := w2_wewillsee(byte_t'range);
+ tmp_data(byte_t'range) := w2_uart_config(byte_t'range);
end if;
if ext_reg.byte_en(1) = '1' then
- tmp_data((2*byte_t'length-1) downto byte_t'length) := w2_wewillsee((2*byte_t'length-1) downto byte_t'length);
+ tmp_data((2*byte_t'length-1) downto byte_t'length) := w2_uart_config((2*byte_t'length-1) downto byte_t'length);
end if;
if ext_reg.byte_en(2) = '1' then
- tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := w2_wewillsee((3*byte_t'length-1) downto 2*byte_t'length);
+ tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := w2_uart_config((3*byte_t'length-1) downto 2*byte_t'length);
end if;
if ext_reg.byte_en(3) = '1' then
- tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := w2_wewillsee((4*byte_t'length-1) downto 3*byte_t'length);
+ tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := w2_uart_config((4*byte_t'length-1) downto 3*byte_t'length);
end if;
data_out <= tmp_data;
when "10" =>
tmp_data := (others =>'0');
if ext_reg.byte_en(0) = '1' then
- tmp_data(byte_t'range) := w3_wewillsee(byte_t'range);
+ tmp_data(byte_t'range) := w3_uart_send(byte_t'range);
end if;
if ext_reg.byte_en(1) = '1' then
- tmp_data((2*byte_t'length-1) downto byte_t'length) := w3_wewillsee((2*byte_t'length-1) downto byte_t'length);
+ tmp_data((2*byte_t'length-1) downto byte_t'length) := w3_uart_send((2*byte_t'length-1) downto byte_t'length);
end if;
if ext_reg.byte_en(2) = '1' then
- tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := w3_wewillsee((3*byte_t'length-1) downto 2*byte_t'length);
+ tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := w3_uart_send((3*byte_t'length-1) downto 2*byte_t'length);
end if;
if ext_reg.byte_en(3) = '1' then
- tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := w3_wewillsee((4*byte_t'length-1) downto 3*byte_t'length);
+ tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := w3_uart_send((4*byte_t'length-1) downto 3*byte_t'length);
end if;
data_out <= tmp_data;
when "11" =>
tmp_data := (others =>'0');
if ext_reg.byte_en(0) = '1' then
- tmp_data(byte_t'range) := w4_wewillsee(byte_t'range);
+ tmp_data(byte_t'range) := w4_uart_receive(byte_t'range);
end if;
if ext_reg.byte_en(1) = '1' then
- tmp_data((2*byte_t'length-1) downto byte_t'length) := w4_wewillsee((2*byte_t'length-1) downto byte_t'length);
+ tmp_data((2*byte_t'length-1) downto byte_t'length) := w4_uart_receive((2*byte_t'length-1) downto byte_t'length);
end if;
if ext_reg.byte_en(2) = '1' then
- tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := w4_wewillsee((3*byte_t'length-1) downto 2*byte_t'length);
+ tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := w4_uart_receive((3*byte_t'length-1) downto 2*byte_t'length);
end if;
if ext_reg.byte_en(3) = '1' then
- tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := w4_wewillsee((4*byte_t'length-1) downto 3*byte_t'length);
+ tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := w4_uart_receive((4*byte_t'length-1) downto 3*byte_t'length);
end if;
data_out <= tmp_data;
when others => null;
end if;
end process gread;
-proc_data : process (clk,int_rec)
-variable tmp_data : gp_register_t;
+-------------------------- LESEN UND SCHREIBEN ENDE ---------------------------------------------------------------
+
+-------------------------- INTERNE VERARBEITUNG ANFANG ------------------------------------------------------------
+
+dataprocess : process (ext_reg,tx_rdy)
+
begin
- case int_rec.addr(1 downto 0) is
+
+ new_tx_data_nxt <= '0';
+ bd_rate <= w2_uart_config(15 downto 0);
+
+ if ext_reg.sel = '1' and ext_reg.wr_en = '1' then
+ case ext_reg.addr(1 downto 0) is
when "00" =>
- tmp_data := (others =>'0');
- if int_rec.byte_en(0) = '1' then
- tmp_data(byte_t'range) :=int_rec.data(byte_t'range);
- end if;
- if int_rec.byte_en(1) = '1' then
- tmp_data((2*byte_t'length-1) downto byte_t'length) := int_rec.data((2*byte_t'length-1) downto byte_t'length);
- end if;
- if int_rec.byte_en(2) = '1' then
- tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := int_rec.data((3*byte_t'length-1) downto 2*byte_t'length);
- end if;
- if int_rec.byte_en(3) = '1' then
- tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := int_rec.data((4*byte_t'length-1) downto 3*byte_t'length);
- end if;
- w1_st_co_nxt <= tmp_data;
+
when "01" =>
- tmp_data := (others =>'0');
- if int_rec.byte_en(0) = '1' then
- tmp_data(byte_t'range) := int_rec.data(byte_t'range);
- end if;
- if int_rec.byte_en(1) = '1' then
- tmp_data((2*byte_t'length-1) downto byte_t'length) := int_rec.data((2*byte_t'length-1) downto byte_t'length);
- end if;
- if int_rec.byte_en(2) = '1' then
- tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := int_rec.data((3*byte_t'length-1) downto 2*byte_t'length);
- end if;
- if int_rec.byte_en(3) = '1' then
- tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := int_rec.data((4*byte_t'length-1) downto 3*byte_t'length);
- end if;
- w2_wewillsee_nxt <= tmp_data;
+
when "10" =>
- tmp_data := (others =>'0');
- if int_rec.byte_en(0) = '1' then
- tmp_data(byte_t'range) :=int_rec.data(byte_t'range);
- end if;
- if int_rec.byte_en(1) = '1' then
- tmp_data((2*byte_t'length-1) downto byte_t'length) := int_rec.data((2*byte_t'length-1) downto byte_t'length);
- end if;
- if int_rec.byte_en(2) = '1' then
- tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := int_rec.data((3*byte_t'length-1) downto 2*byte_t'length);
- end if;
- if int_rec.byte_en(3) = '1' then
- tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := int_rec.data((4*byte_t'length-1) downto 3*byte_t'length);
- end if;
- w3_wewillsee_nxt <= tmp_data;
+ new_tx_data_nxt <= '1';
when "11" =>
- tmp_data := (others =>'0');
- if int_rec.byte_en(0) = '1' then
- tmp_data(byte_t'range) := w4_wewillsee(byte_t'range);
- end if;
- if int_rec.byte_en(1) = '1' then
- tmp_data((2*byte_t'length-1) downto byte_t'length) := int_rec.data((2*byte_t'length-1) downto byte_t'length);
- end if;
- if int_rec.byte_en(2) = '1' then
- tmp_data((3*byte_t'length-1) downto 2*byte_t'length) := int_rec.data((3*byte_t'length-1) downto 2*byte_t'length);
- end if;
- if int_rec.byte_en(3) = '1' then
- tmp_data((4*byte_t'length-1) downto 3*byte_t'length) := int_rec.data((4*byte_t'length-1) downto 3*byte_t'length);
- end if;
- w4_wewillsee_nxt <= tmp_data;
+
when others => null;
end case;
-end process proc_data;
-
--------------------------- LESEN UND SCHREIBEN ENDE ---------------------------------------------------------------
-
--------------------------- INTERNE VERARBEITUNG ANFANG ------------------------------------------------------------
-
+ end if;
+end process dataprocess;
projects / calu.git / blobdiff