File: tfclk.v

package info (click to toggle)
gplcver 2.12a-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 7,604 kB
  • ctags: 9,129
  • sloc: ansic: 126,201; sh: 1,539; makefile: 86; perl: 22
file content (21 lines) | stat: -rw-r--r-- 316 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 

`define CLK_PER 100

module top;
 setdel i1();
endmodule

module setdel;
 reg clk;
 reg [31:0] clk2;
 time t;
 initial 
  begin
   $monitor($time,, "%b %b", clk, clk2);
   #20 $tfclk(clk);
   #1000 t = $tfclkoff;
   $display("clock turned off at %t", t); 
   #200 $tfclk(clk2[2]);
   #1000 $finish;
  end
endmodule