anchor.diff:        end
   
         tlpOutFifo.enq(tlp);
  -      $display("writeHeaderTlp dwCount=%d", dwCount);
  +      //$display("writeHeaderTlp dwCount=%d", dwCount);
         writeDwCount <= dwCount;
         tlpDwCount <= truncate(min(4,unpack(dwCount)));
         lastTlp <= (dwCount <= 4);
         writeInProgress <= (dwCount != 0);
  +      writeInProgressProbe <= (dwCount != 0);
         if (isHeaderOnly) begin
   	 doneTag.enq(writeTag.first());
   	 writeTag.deq();
  
positive.code: 	  return 0;
      endfunction
  
     rule writeHeaderTlp if (!writeInProgress && (!writeIs3dwFifo.first || writeDataMimo.deqReadyN(1)));
        let tlp <- toGet(tlpWriteHeaderFifo).get();
        let dwCount <- toGet(writeDwCountFifo).get();
        let is3dw <- toGet(writeIs3dwFifo).get();
  
negative.code:       tlp.eof = lastTlp;
        if (lastTlp) begin
  	 writeInProgress <= False;
  	 writeInProgressProbe <= False;
  	 doneTag.enq(writeTag.first());
  	 writeTag.deq();
  	 //$display("writeDwCount=%d will be zero", writeDwCount);
        end
  
        for (Integer i = 0; i < 4; i = i + 1)
  