anchor.diff:  	 tlpOutFifo.enq(tlp);
   	 $display("writeHeaderTlp dwCount=%d", dwCount);
   	 writeDwCount <= dwCount;
  +	 if (dwCount == 0) begin
  +	    doneTag.enq(writeTag.first());
  +	    writeTag.deq();
  +	 end
         end
      endrule
   
  
positive.code: 	 v = writeDataMimo.first();
  	 writeDataMimo.deq(unpack(truncate(writeDwCount)));
  	 writeDwCount <= 0;
  	 doneTag.enq(writeTag);
  	 $display("writeDwCount=%d will be zero", writeDwCount);
  	 tlp.eof = True;
  	 if (writeDwCount == 4)
  
negative.code:     MIMO#(busWidthWords,4,8,Bit#(32)) writeDataMimo <- mkMIMO(mimoCfg);
      Reg#(Bit#(9)) writeBurstCount <- mkReg(0);
      Reg#(TLPLength)  writeDwCount <- mkReg(0);
      FIFOF#(TLPTag) writeTag <- mkSizedFIFOF(16);
      FIFOF#(TLPTag) doneTag <- mkSizedFIFOF(16);
  
      function Integer tlpWordCount(TLPData#(16) tlp);
         if (tlp.be == 16'h0000)
  