Verilog 尝试用门级代码模拟JK-FF

我一直试图用门级代码模拟JK-FF，但它不起作用。感谢您的帮助

电路代码：

module circuit1_3_c(j,k,r,cp,q,q1);
input j,k,r,cp;
output q,q1;
wire t1,t2,t3,t4;

nand(t1,t2,q);
nand(t2,t1,j,cp,t3);
nand(t3,cp,k,t4);
nand(t4,t3,t1);
nand(q,q1,t2);
nand(q1,q,t3,r);

endmodule

测试台代码：

module circuit1_3_ctest;
parameter STEP=10;
parameter HALF_STEP=5;

reg j,k,r,cp;
wire q,q1;
circuit1_3_c circ(j,k,r,cp,q,q1);
initial begin
$dumpfile("circuit1_3_c.vcd");
$dumpvars(0,circuit1_3_ctest);
$monitor("\%t: J=%b, K=%b, R=%b, Cp=%b, Q=%b, Qbar=%b", $time, j,k,r,cp,q,q1);
r<=1'b1;
cp<=1'b0;
j<=1'b0; k<=1'b0; r<=1'b1;
#STEP; 
j<=1'b0; k<=1'b1; r<=1'b1;
#STEP;
j<=1'b1; k<=1'b0; r<=1'b1;
#STEP;
j<=1'b1; k<=1'b1; r<=1'b1;
#STEP;
j<=1'b0; k<=1'b0; r<=1'b1;
#STEP; 
j<=1'b0; k<=1'b1; r<=1'b1;
#STEP;
j<=1'b1; k<=1'b0; r<=1'b1;
#STEP;
j<=1'b1; k<=1'b1; r<=1'b1;
#HALF_STEP
$finish;
end
always #HALF_STEP cp=~cp;     
endmodule

模块电路1\u 3\u测试；
参数步长=10；
参数半步=5；
注册j、k、r、cp；
导线q，q1；
电路1_3_c circ（j，k，r，cp，q，q1）；
初始开始
$dumpfile（“circuit1_3_c.vcd”）；
$dumpvars（0，电路1\u 3\u测试）；
$monitor（\%t:J=%b，K=%b，R=%b，Cp=%b，Q=%b，Qbar=%b“，$time，J，K，R，Cp，Q，q1）；
r您需要正确重置逻辑。一种方法是在时间0时将
r
驱动为0。
更改：

r<=1'b1;
cp<=1'b0;
j<=1'b0; k<=1'b0; r<=1'b1;

cp<=1'b0;
j<=1'b0; k<=1'b0; r<=1'b0;

               0: J=0, K=0, R=0, Cp=0, Q=0, Qbar=1
               5: J=0, K=0, R=0, Cp=1, Q=0, Qbar=1
              10: J=0, K=1, R=1, Cp=0, Q=0, Qbar=1
              15: J=0, K=1, R=1, Cp=1, Q=0, Qbar=1
              20: J=1, K=0, R=1, Cp=0, Q=0, Qbar=1
              25: J=1, K=0, R=1, Cp=1, Q=1, Qbar=0
              30: J=1, K=1, R=1, Cp=0, Q=1, Qbar=0
              35: J=1, K=1, R=1, Cp=1, Q=0, Qbar=1
              40: J=0, K=0, R=1, Cp=0, Q=0, Qbar=1
              45: J=0, K=0, R=1, Cp=1, Q=0, Qbar=1
              50: J=0, K=1, R=1, Cp=0, Q=0, Qbar=1
              55: J=0, K=1, R=1, Cp=1, Q=0, Qbar=1
              60: J=1, K=0, R=1, Cp=0, Q=0, Qbar=1
              65: J=1, K=0, R=1, Cp=1, Q=1, Qbar=0
              70: J=1, K=1, R=1, Cp=0, Q=1, Qbar=0