Subversion Repositories openarty

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

//

// Filename:    ziptimer.v

//

// Project:     Zip CPU -- a small, lightweight, RISC CPU soft core

//

// Purpose:     A lighter weight implementation of the Zip Timer.

//

// Interface:

//      Two options:

//      1. One combined register for both control and value, and ...

//              The reload value is set any time the timer data value is "set".

//              Reading the register returns the timer value.  Controls are

//              set so that writing a value to the timer automatically starts

//              it counting down.

//      2. Two registers, one for control one for value.

//              The control register would have the reload value in it.

//      On the clock when the interface is set to zero the interrupt is set.

//              Hence setting the timer to zero will disable the timer without

//              setting any interrupts.  Thus setting it to five will count

//              5 clocks: 5, 4, 3, 2, 1, Interrupt.

//

//

//      Control bits:

//              (Start_n/Stop.  This bit has been dropped.  Writing to this

//                      timer any value but zero starts it.  Writing a zero

//                      clears and stops it.)

//              AutoReload.  If set, then on reset the timer automatically

//                      loads the last set value and starts over.  This is

//                      useful for distinguishing between a one-time interrupt

//                      timer, and a repetitive interval timer.

//              (INTEN.  Interrupt enable--reaching zero always creates an

//                      interrupt, so this control bit isn't needed.  The

//                      interrupt controller can be used to mask the interrupt.)

//              (COUNT-DOWN/UP: This timer is *only* a count-down timer.

//                      There is no means of setting it to count up.)

//      WatchDog

//              This timer can be implemented as a watchdog timer simply by

//              connecting the interrupt line to the reset line of the CPU.

//              When the timer then expires, it will trigger a CPU reset.

//

//

// 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  ziptimer(i_clk, i_rst, i_ce,

                i_wb_cyc, i_wb_stb, i_wb_we, i_wb_data,

                        o_wb_ack, o_wb_stall, o_wb_data,

                o_int);

        parameter       BW = 32, VW = (BW-1), RELOADABLE=1;

        input                   i_clk, i_rst, i_ce;

        // Wishbone inputs

        input                   i_wb_cyc, i_wb_stb, i_wb_we;

        input   [(BW-1):0]       i_wb_data;

        // Wishbone outputs

        output  reg                     o_wb_ack;

        output  wire                    o_wb_stall;

        output  wire    [(BW-1):0]       o_wb_data;

        // Interrupt line

        output  reg             o_int;

        reg                     r_running;

        wire    wb_write;

        assign  wb_write = ((i_wb_cyc)&&(i_wb_stb)&&(i_wb_we));

        wire    auto_reload;

        wire    [(VW-1):0]       reload_value;

        initial r_running = 1'b0;

        always @(posedge i_clk)

                if (i_rst)

                        r_running <= 1'b0;

                else if (wb_write)

                        r_running <= (|i_wb_data[(VW-1):0]);

                else if ((o_int)&&(~auto_reload))

                        r_running <= 1'b0;

        generate

        if (RELOADABLE != 0)

        begin

                reg     r_auto_reload;

                reg     [(VW-1):0]       r_reload_value;

                initial r_auto_reload = 1'b0;

                always @(posedge i_clk)

                        if (wb_write)

                                r_auto_reload <= (i_wb_data[(BW-1)]);

                assign  auto_reload = r_auto_reload;

                // If setting auto-reload mode, and the value to other

                // than zero, set the auto-reload value

                always @(posedge i_clk)

                        if ((wb_write)&&(i_wb_data[(BW-1)])&&(|i_wb_data[(VW-1):0]))

                                r_reload_value <= i_wb_data[(VW-1):0];

                assign  reload_value = r_reload_value;

        end else begin

                assign  auto_reload = 1'b0;

                assign  reload_value = 0;

        end endgenerate

        reg     [(VW-1):0]       r_value;

        initial r_value = 0;

        always @(posedge i_clk)

                if (wb_write)

                        r_value <= i_wb_data[(VW-1):0];

                else if ((r_running)&&(i_ce)&&(~o_int))

                        r_value <= r_value + {(VW){1'b1}}; // r_value - 1;

                else if ((r_running)&&(auto_reload)&&(o_int))

                        r_value <= reload_value;

        // Set the interrupt on our last tick, as we transition from one to

        // zero.

        initial o_int   = 1'b0;

        always @(posedge i_clk)

                if (i_rst)

                        o_int <= 1'b0;

                else if (i_ce)

                o_int <= (r_running)&&(r_value == { {(VW-1){1'b0}}, 1'b1 });

                else

                        o_int <= 1'b0;

        initial o_wb_ack = 1'b0;

        always @(posedge i_clk)

                o_wb_ack <= (i_wb_cyc)&&(i_wb_stb);

        assign  o_wb_stall = 1'b0;

        generate

        if (VW < BW-1)

                assign  o_wb_data = { auto_reload, {(BW-1-VW){1'b0}}, r_value };

        else

                assign  o_wb_data = { auto_reload, r_value };

        endgenerate

endmodule