anchor.diff:        v = writeDataMimo.first();
         let dwCount = writeDwCount - extend(pack(tlpDwCount));
         writeDwCount <= dwCount;
  -      tlpDwCount <= truncate(min(4,unpack(dwCount)));
  +      tlpDwCount <= truncate(min(fromInteger(currDwCount),unpack(dwCount)));
         writeDataCnt.decrement(unpack(extend(pack(tlpDwCount))));
         lastTlp <= (dwCount <= 4);
         if (tlpDwCount == 4)
  
positive.code:     Reg#(Bool)    writeInProgress <- mkReg(False);
      FIFOF#(TLPTag) writeTag <- mkSizedFIFOF(16);
      FIFOF#(TLPTag) doneTag <- mkSizedFIFOF(16);
  
     Wire#(Bool) writeHeaderTlpWire <- mkDWire(False);
     Probe#(Bool) writeHeaderAvailableProbe <- mkProbe;
  
negative.code: 	 $display("writeDwCount=%d will be zero", writeDwCount);
        end
  
        for (Integer i = 0; i < currDwCount; i = i + 1) begin
  	 tlp.data[(i+1)*32-1:i*32] = v[(currDwCount-1)-i];
        end
  
        tlpOutFifo.enq(tlp);
     endrule
  
  