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

*/

`timescale 1ns/1ps

module sin_pow;

reg clk, reset_n;

parameter fnumber = 11'h1;

parameter block   =  3'h0;

parameter multiple=  4'h1;

reg [10:0] phase;

reg [3:0] clk2;

initial begin

  $dumpvars(0,sin_pow);

  $dumpon;

  reset_n = 0;

  #10 reset_n = 1;

  #20 reset_n = 0;

  #1000 reset_n=1;

  $display("SOUND START");

end

always begin

  clk = 0;

  forever #(400) clk = ~clk & reset_n;

end

always @(posedge clk or negedge reset_n) begin

  if( !reset_n)

    clk2 <= 2'b0;

  else

    clk2 <= clk2+1'b1;

end

always @(posedge clk2[3] or negedge reset_n) begin

  if( !reset_n)

    phase<=11'b0;

  else begin

    phase <= phase+1;

    $display("%d, %d, %d", phase, sin_log, linear );

    if( phase[10] ) $finish;

  end

end

wire [12:0] sin_log, linear;

sq_sin sin(

  .clk     (clk2[3]),  // slow clock

  .reset_n (reset_n),

  .phase   (phase[9:0]),

  .val     (sin_log) );

sq_pow pow(

  .clk     (clk),

  .reset_n (reset_n),

  .rd_n    ( 1'b0 ),

  .x       (sin_log),

  .y       (linear) );

// always #(1e9/44100) $display("%d", linear);

endmodule