Subversion Repositories tv80

reg  dumping;

initial

  dumping = 0;

task test_pass;

    begin

      $display ("%t: --- TEST PASSED ---", $time);

      #100;

      $finish;

    end

endtask // test_pass

task test_fail;

    begin

      $display ("%t: !!! TEST FAILED !!!", $time);

      #100;

      $finish;

    end

endtask // test_fail

task dumpon;

    begin

      if (!dumping)

        begin

`ifdef VCS

          $vcdpluson;

          $vcdplusmemon;

`else

          $dumpfile (`DUMPFILE_NAME);

          $dumpvars;

`endif

          dumping = 1;

        end

    end

endtask // dumpon

task dumpoff;

    begin

`ifdef VCS

      $vcdplusoff;

      $vcdplusmemoff;

`else

      // ???

`endif

    end

endtask // dumpoff

task clear_ram;

    integer i;

    begin

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

        tb_top.ram.mem[i] = 0;

    end

endtask