``` always@(negedge clk1, posedge clr) begin if (clr == 1'b1) QclearReg <= 1'b0; else QclearReg <= D; end ```