anchor.diff:      MIMO#(busWidthWords,4,8,Bit#(32)) writeDataMimo <- mkMIMO(mimoCfg);
       Reg#(Bit#(9)) writeBurstCount <- mkReg(0);
       Reg#(TLPLength)  writeDwCount <- mkReg(0);
  +    Reg#(Bool)    writeInProgress <- mkReg(False);
       FIFOF#(TLPTag) writeTag <- mkSizedFIFOF(16);
       FIFOF#(TLPTag) doneTag <- mkSizedFIFOF(16);
   
  
positive.code:       end
     endrule
  
     rule writeTlps if (writeDwCount > 0);
        TLPData#(16) tlp = defaultValue;
        tlp.sof = False;
        Vector#(4, Bit#(32)) v = unpack(0);
  
negative.code: 	 v = writeDataMimo.first();
  	 writeDataMimo.deq(unpack(truncate(writeDwCount)));
  	 writeDwCount <= 0;
  	 writeInProgress <= False;
  	 doneTag.enq(writeTag.first());
  	 writeTag.deq();
  	 $display("writeDwCount=%d will be zero", writeDwCount);
  