source: trunk/MultiChannelCOM/histogram.v@ 93

module histogram
        (
                input   wire                    clk, reset,
                input   wire                    data_ready,
                input   wire    [11:0]  data, address,
                output  wire    [31:0]  q,
                output  wire    [3:0]   led
        );
        
        // signal declaration
        reg             [3:0]   state_reg, state_next;

        reg             [31:0]  led_data_reg [3:0];
        reg             [31:0]  led_data_next [3:0];

        reg                             wren_reg, wren_next;
        reg             [11:0]  addr_reg, addr_next;
        reg             [31:0]  data_reg, data_next;

        wire    [31:0]  q_a_wire, q_b_wire;

        ram4096x32 ram4096x32_unit (
                .address_a(addr_reg),
                .address_b(address),
                .clock(~clk),
                .data_a(data_reg),
                .data_b(),
                .wren_a(wren_reg),
                .wren_b(1'b0),
                .q_a(q_a_wire),
                .q_b(q_b_wire));

        // body
        always @(posedge clk)
        begin
                if (reset)
        begin
                        state_reg <= 4'b1;
                end
                else
                begin
                        state_reg <= state_next;
                        wren_reg <= wren_next;
                        addr_reg <= addr_next;
                        data_reg <= data_next;
                        led_data_reg[0] <= led_data_next[0];
                        led_data_reg[1] <= led_data_next[1];
                        led_data_reg[2] <= led_data_next[2];
                        led_data_reg[3] <= led_data_next[3];
                end
        end

        always @*
        begin
                state_next = state_reg;
                wren_next = wren_reg;
                addr_next = addr_reg;
                data_next = data_reg;
                led_data_next[0] = led_data_reg[0];
                led_data_next[1] = led_data_reg[1];
                led_data_next[2] = led_data_reg[2];
                led_data_next[3] = led_data_reg[3];
                case (state_reg)
                        0: ; // nothing to do
                        1: 
                        begin
                                // start reset
                                wren_next = 1'b1;
                                addr_next = 0;
                                data_next = 0;
                                led_data_next[0] = 0;
                                led_data_next[1] = 0;
                                led_data_next[2] = 0;
                                led_data_next[3] = 0;
                                state_next = 4'd2;
                        end
                        
                        2:
                        begin
                                // write zeros
                                if (&addr_reg)
                                begin
                                        state_next = 4'd3;
                                end
                                else
                                begin
                                        addr_next = addr_reg + 12'd1;
                                end
                        end
        
                        3:
                        begin
                                // read
                                wren_next = 1'b0;
                                if (&data_reg)
                                begin
                                        state_next = 4'd0;
                                end
                                else if (data_ready)
                                begin
                                        // set addr
                                        addr_next = data;
                                        state_next = 4'd4;
                                end
                        end

                        4:
                        begin
                                // increment and write
                                wren_next = 1'b1;
                                data_next = q_a_wire + 32'd1;
                                led_data_next[addr_reg>>10] = q_a_wire;
                                state_next = 4'd3;
                        end

                        default:
                        begin
                                state_next = 4'd0;
                        end
                endcase
        end

        // output logic
        assign  q                       =       q_b_wire;
        assign  led[0]          =       led_data_reg[0][23];
        assign  led[1]          =       led_data_reg[1][23];
        assign  led[2]          =       led_data_reg[2][23];
        assign  led[3]          =       led_data_reg[3][23];

endmodule