anchor.diff:              pktCount <= pktCount - 1;
            idle <= True;
            currIPG <= 0;
  -         $display("Pktgen:: eop %h %h %h %h", idle, started, currIPG, ipgCount);
  +         if (verbose) $display("Pktgen:: eop %h %h %h %h", idle, started, currIPG, ipgCount);
         end
      endrule
   
      rule compute_idle if (pktCount>0 && idle);
         if (currIPG < ipgCount + fromInteger(valueOf(MinimumIPG))) begin
            currIPG <= currIPG + fromInteger(valueOf(bytesPerBeat));
  -         $display("Pktgen:: ipg = %d", currIPG);
  +         if (verbose) $display("Pktgen:: ipg = %d", currIPG);
         end
         else begin
            currIPG <= 0;
  
positive.code:    provisos (Div#(`DataBusWidth, 8, bytesPerBeat)
              ,Log#(bytesPerBeat, beatShift));
  
     Reg#(Bit#(32)) traceLen <- mkReg(0);
     Reg#(Bit#(32)) pktCount <- mkReg(0);
     Reg#(Bit#(32)) ipgCount <- mkReg(0);
  
negative.code:          pktCount <= 1;
           infiniteLoop <= True;
        end
        if (verbose) $display("Pktgen:: start %h %h", pc, ipg);
     endmethod
     method Action stop();
        infiniteLoop <= False;
  