Subversion Repositories bluespec-h264

// The MIT License

// Copyright (c) 2006-2007 Massachusetts Institute of Technology

// Permission is hereby granted, free of charge, to any person obtaining a copy

// of this software and associated documentation files (the "Software"), to deal

// in the Software without restriction, including without limitation the rights

// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

// copies of the Software, and to permit persons to whom the Software is

// furnished to do so, subject to the following conditions:

// The above copyright notice and this permission notice shall be included in

// all copies or substantial portions of the Software.

// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE

// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN

// THE SOFTWARE.

module top;

  reg clk   = 0;

  reg reset = 0;

  integer i = 0;

   always@(*)

     begin

       #5 clk <= ~clk; // this corresponds to 10ns duty cycle?

     end

  mkTH th( .CLK(clk), .RST_N(reset) );

  initial

  begin

    // This turns on VCD (plus) output

    //$sdf_annotate("./top.sdf",th.h264);

    $dumpfile("dump.vcd");

    $dumpvars(0,th.h264);

     $dumpoff;

     clk = 0;

     #30;

     reset = 1;

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

       begin

          $dumpoff;

          $display("XXX DUMPOFF");

          #100000;

          $dumpon;

          $display("XXX DUMPON");

          $dumpvars(0,th.h264);

          #10000;

          $dumpoff;

       end

     $finish;

  end

endmodule