OpenCores
URL https://opencores.org/ocsvn/tv80/tv80/trunk

Subversion Repositories tv80

[/] [tv80/] [trunk/] [env/] [env_tasks.v] - Rev 100

Go to most recent revision | Compare with Previous | Blame | View Log

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
 
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.