URL
https://opencores.org/ocsvn/xulalx25soc/xulalx25soc/trunk
Subversion Repositories xulalx25soc
[/] [xulalx25soc/] [trunk/] [rtl/] [uartdev.v] - Rev 3
Go to most recent revision | Compare with Previous | Blame | View Log
//////////////////////////////////////////////////////////////////////////////// // // Filename: uartdev.v // // Project: XuLA2 board // // Purpose: // // // Creator: Dan Gisselquist, Ph.D. // Gisselquist Technology, LLC // //////////////////////////////////////////////////////////////////////////////// // // Copyright (C) 2015, Gisselquist Technology, LLC // // This program is free software (firmware): 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 MERCHANTIBILITY or // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License // for more details. // // License: GPL, v3, as defined and found on www.gnu.org, // http://www.gnu.org/licenses/gpl.html // // //////////////////////////////////////////////////////////////////////////////// // // module uartdev(i_clk, i_rx_uart, o_tx_uart, i_wb_cyc, i_wb_stb, i_wb_we, i_wb_addr, i_wb_data, o_wb_ack, o_wb_stall, o_wb_data, o_rx_int, o_tx_int); parameter DEFAULT_SETUP = { 2'b00, 1'b0, 1'b0, 2'b00, 24'd10417 }; input i_clk, i_rx_uart; output wire o_tx_uart; input i_wb_cyc, i_wb_stb, i_wb_we; input [1:0] i_wb_addr; input [31:0] i_wb_data; output reg o_wb_ack; output wire o_wb_stall; output reg [31:0] o_wb_data; output wire o_rx_int, o_tx_int; reg [29:0] r_setup; reg r_tx_stb, rx_rdy; reg [7:0] r_tx_data; initial r_setup = DEFAULT_SETUP; always @(posedge i_clk) if ((i_wb_cyc)&&(i_wb_stb)&&(i_wb_we)) begin case(i_wb_addr) 2'b00: r_setup <= i_wb_data[29:0]; 2'b10: begin r_tx_data <= i_wb_data[7:0]; r_tx_stb <= 1'b1; end default: begin end endcase end else r_tx_stb <= 1'b0; wire rx_stb, rx_break, rx_parity_err, rx_frame_err, rx_ignored; wire [7:0] rx_data; rxuart rxmod(i_clk, 1'b0, r_setup, i_rx_uart, rx_stb, rx_data, rx_break, rx_parity_err, rx_frame_err, rx_ignored); wire tx_break, tx_busy; assign tx_break = 1'b0; txuart txmod(i_clk, 1'b0, r_setup, tx_break, r_tx_stb, r_tx_data, o_tx_uart, tx_busy); reg [7:0] r_data; always @(posedge i_clk) if (rx_stb) r_data <= rx_data; always @(posedge i_clk) begin if (rx_stb) rx_rdy <= (rx_rdy | rx_stb); case(i_wb_addr) 2'b00: o_wb_data <= { 2'b00, r_setup }; 2'b01: o_wb_data <= { 2'b00, r_setup }; 2'b10: o_wb_data <= { 31'h00,tx_busy }; 2'b11: begin if ((i_wb_cyc)&&(i_wb_stb)&&(~i_wb_we)) rx_rdy <= 1'b0; o_wb_data <= { 20'h00, rx_break, rx_frame_err, rx_parity_err, ~rx_rdy, r_data }; end endcase o_wb_ack <= (i_wb_cyc)&&(i_wb_stb); end assign o_wb_stall = 1'b0; assign o_rx_int = rx_stb; assign o_tx_int = ~tx_busy; endmodule
Go to most recent revision | Compare with Previous | Blame | View Log