anchor.diff:  	    if (burstLen == 0) begin
   	       burstLen <- toGet(writeBurstCountFifo).get();
   	    end
  +	    if (burstLen == 1) begin
  +	       writeReadyFifo.enq(True);
  +	    end
   	    writeBurstCount <= extend(burstLen-1);
   
   	    Vector#(busWidthWords, Bit#(32)) v = unpack(wdata.data);
  +	    $display("writeData.put %h tag %h v %h writeDataCnt", wdata.data, wdata.tag, v, writeDataCnt.read);
   	    writeDataMimo.enq(fromInteger(valueOf(busWidthWords)), v);
               writeDataCnt.increment(fromInteger(valueOf(busWidthWords)));
   	    writeDataMimoEnqWire <= True;
  
positive.code:          v = writeDataMimo.first();
  	 writeDataMimo.deq(1);
  	 hdr_3dw.data = byteSwap(v[0]);
           tlp.eof = (dwCount == 1) ? True : False;
           dwCount = dwCount - 1;
           writeDataCnt.decrement(1);
  
negative.code:       end
  
        tlpOutFifo.enq(tlp);
        writeDwCount <= dwCount;
        tlpDwCount <= truncate(min(fromInteger(valueOf(TlpDataWords)),unpack(dwCount)));
        lastTlp <= (dwCount <= fromInteger(valueOf(TlpDataWords)));
  