P.75 Nand_Latch

程式碼
module test_nand_latch_1;
reg preset,clear;
wire q,qbar;
nand_latch_1 m1(q,qbar,preset,clear);
initial
begin
$monitor($time,"preset=%b clear=%b q=%b qbar=%b",preset,clear,q,qbar);
end
initial
begin
#10 preset =0;clear=1;
#10 preset =1;
#10 clear =0;
#10 clear =1;
#10 preset =0;
$stop;
end
initial
#2000 $finish;
endmodule

module nand_latch_1(q,qbar,preset,clear);
input preset,clear;
output q,qbar;
nand G1(q,preset,qbar);
nand G2(qbar,clear,q);
endmodule

===================================================================
這次的程式碼課本有很多錯誤
修改了很多錯誤才成功