Subversion Repositories sqmusic

/*

        SQmusic

  (c) Jose Tejada Gomez, 9th May 2013

  You can use this file following the GNU GENERAL PUBLIC LICENSE version 3

  Read the details of the license in:

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

  Send comments to: jose.tejada@ieee.org

*/

module sq_pg(

        input clk,

        input reset_n,

        input [10:0] fnumber,

        input [2:0] block,

  input [3:0] multiple,

        output [9:0]phase );

reg [19:0] count;

assign phase = count[19:10];

wire [19:0]fmult;

always @(*) begin

  case( multiple )

    4'b0: fmult = (phase << block) >> 1'b1;

    default: fmult = (phase<<block)*multiple;

  endcase

end

always @(posedge clk or negedge reset_n ) begin

        if( !reset_n )

                count <= 20'b0;

        else begin

          count <= count + fmult;

        end

end

endmodule

module sq_sin(

//  input clk,

//  input reset_n,

  input [9:0]phase,

  output [19:0] val

)

reg [19:0] sin_table[1023:0];

initial begin

  $readmemh("sin_table.hex", sin_table);

end

assign val = sin_table[phase];

end