Subversion Repositories wbuart32

////////////////////////////////////////////////////////////////////////////////

//

// Filename:    speechfifo.v

//

// Project:     wbuart32, a full featured UART with simulator

//

// Purpose:     To test/demonstrate/prove the wishbone access to the FIFO'd

//              UART via sending more information than the FIFO can hold,

//      and then verifying that this was the value received.

//

//      To do this, we "borrow" a copy of Abraham Lincolns Gettysburg address,

//      make that the FIFO isn't large enough to hold it, and then try

//      to send this address every couple of minutes.

//

//      With some minor modifications (discussed below), this RTL should be

//      able to be run as a top-level testing file, requiring only that the

//      clock and the transmit UART pins be working.

//

// Creator:     Dan Gisselquist, Ph.D.

//              Gisselquist Technology, LLC

//

////////////////////////////////////////////////////////////////////////////////

//

// Copyright (C) 2015-2016, 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.

//

// You should have received a copy of the GNU General Public License along

// with this program.  (It's in the $(ROOT)/doc directory, run make with no

// target there if the PDF file isn't present.)  If not, see

// <http://www.gnu.org/licenses/> for a copy.

//

// License:     GPL, v3, as defined and found on www.gnu.org,

//              http://www.gnu.org/licenses/gpl.html

//

//

////////////////////////////////////////////////////////////////////////////////

//

//

// Uncomment the next line if you want this program to work as a standalone

// (not verilated) RTL "program" to test your UART.  You'll also need to set

// your i_setup condition properly, though (below).  I recommend setting it to 

// the ratio of your onboard clock to your desired baud rate.  For more

// information about how to set this, please see the specification.

//

//`define OPT_STANDALONE

//

module  speechfifo(i_clk,

`ifndef OPT_STANDALONE

                        i_setup,

`endif

                        o_uart_tx);

        input           i_clk;

        output  wire    o_uart_tx;

        // The i_setup wires are input when run under Verilator, but need to

        // be set internally if this is going to run as a standalone top level

        // test configuration.

`ifdef  OPT_STANDALONE

        wire    [29:0]   i_setup;

        // Here we set i_setup to something appropriate to create a 115200 Baud

        // UART system from a 100MHz clock.  This also sets us to an 8-bit data

        // word, 1-stop bit, and no parity.

        assign  i_setup = 30'd868;

`else

        input   [29:0]   i_setup;

`endif

        reg             wb_stb;

        reg     [1:0]    wb_addr;

        reg     [31:0]   wb_data;

        wire            uart_stall, uart_ack;

        wire    [31:0]   uart_data;

        wire            tx_int, txfifo_int;

        // The next four lines create a strobe signal that is true on the first

        // clock, but never after.  This makes for a decent power-on reset

        // signal.

        reg     pwr_reset;

        initial pwr_reset = 1'b1;

        always @(posedge i_clk)

                pwr_reset <= 1'b0;

        // The message we wish to transmit is kept in "message".  It needs to be

        // set initially.  Do so here.

        //

        // Since the message has fewer than 2048 elements in it, we preset every

        // element to a space so that if (for some reason) we broadcast past the

        // end of our message, we'll at least be sending something useful.

        integer i;

        reg     [7:0]    message [0:2047];

        initial begin

                for(i=0; i<2048; i=i+1)

                        message[i] = 8'h20;

                $readmemh("speech.hex",message);

        end

        // Let's keep track of time, and send our message over and over again.

        // To do this, we'll keep track of a restart counter.  When this counter

        // rolls over, we restart our message.

        reg     [30:0]   restart_counter;

        // Since we want to start our message just a couple clocks after power

        // up, we'll set the reset counter just a couple clocks shy of a roll

        // over.

        initial restart_counter = -31'd16;

        always @(posedge i_clk)

                restart_counter <= restart_counter+1'b1;

        // Ok, now that we have a counter that tells us when to start over,

        // let's build a set of signals that we can use to get things started

        // again.  This will be the restart signal.  On this signal, we just

        // restart everything.

        reg     restart;

        initial restart = 0;

        always @(posedge i_clk)

        begin

                restart <= (restart_counter == 0);

        end

        // Our message index.  This is the address of the character we wish to

        // transmit next.  Note, there's a clock delay between setting this 

        // index and when the wb_data is valid.  Hence, we set the index on

        // restart[0] to zero.

        reg     [10:0]   msg_index;

        initial msg_index = 11'd2040;

        always @(posedge i_clk)

        begin

                if (restart)

                        msg_index <= 0;

                else if ((wb_stb)&&(!uart_stall))

                        // We only advance the index if a port operation on the

                        // wbuart has taken place.  That's what the

                        // (wb_stb)&&(!uart_stall) is about.  (wb_stb) is the

                        // request for a transaction on the bus, uart_stall

                        // tells us to wait 'cause the peripheral isn't ready. 

                        // In our case, it's always ready, uart_stall == 0, but

                        // we keep/maintain this logic for good form.

                        //

                        // Note also, we only advance when restart[0] is zero.

                        // This keeps us from advancing prior to the setup

                        // word.

                        msg_index <= msg_index + 1'b1;

        end

        // What data will we be sending to the port?

        always @(posedge i_clk)

                if (restart)

                        // The first thing we do is set the baud rate, and

                        // serial port configuration parameters.  Ideally,

                        // we'd only set this once.  But rather than complicate

                        // the logic, we set it everytime we start over.

                        wb_data <= { 2'b00, i_setup };

                else if ((wb_stb)&&(!uart_stall))

                        // Then, if the last thing was received over the bus,

                        // we move to the next data item.

                        wb_data <= { 24'h00, message[msg_index] };

        // We send our first value to the SETUP address (all zeros), all other

        // values we send to the transmitters address.  We should really be

        // double checking that stall remains low, but its not required here.

        always @(posedge i_clk)

                if (restart)

                        wb_addr <= 2'b00;

                else // if (!uart_stall)??

                        wb_addr <= 2'b11;

        // The wb_stb signal indicates that we wish to write, using the wishbone

        // to our peripheral.  We have two separate types of writes.  First,

        // we wish to write our setup.  Then we want to drop STB and write

        // our data.  Once we've filled half of the FIFO, we wait for the FIFO

        // to empty before issuing a STB again and then fill up half the FIFO

        // again.

        initial wb_stb = 1'b0;

        always @(posedge i_clk)

                if (restart)

                        wb_stb <= 1'b1;

                else if (msg_index >= 1481)

                        wb_stb <= 1'b0;

                else if (tx_int)

                        wb_stb <= 1'b1;

                else if (txfifo_int)

                        wb_stb <= wb_stb;

                else

                        wb_stb <= 1'b0;

        // We aren't using the receive interrupts, so we'll just mark them

        // here as ignored.

        wire    ignored_rx_int, ignored_rxfifo_int;

        // Finally--the unit under test--now that we've set up all the wires

        // to run/test it.

        wbuart  #(30'h868)

                wbuarti(i_clk, pwr_reset,

                        wb_stb, wb_stb, 1'b1, wb_addr, wb_data,

                        uart_stall, uart_ack, uart_data,

                        1'b1, o_uart_tx,

                        ignored_rx_int, tx_int,

                        ignored_rxfifo_int, txfifo_int);

endmodule