anchor.diff:        let bytesPerBeatMinusOne = fromInteger(valueOf(bytesPerBeat))-1;
         // roundup to 16 byte boundary
         let burstLen = ((pkt.size + bytesPerBeatMinusOne) & ~(bytesPerBeatMinusOne));
  -      $display("StoreAndForward:: packetReadStart: %h, burstLen = %h", pkt.size, burstLen);
  +      if (verbose) $display("StoreAndForward:: packetReadStart: %h, burstLen = %h", pkt.size, burstLen);
         let mask = (1<< (pkt.size % fromInteger(valueOf(bytesPerBeat))))-1;
         readReqFifo.enq(MemRequest{sglId: pkt.id, offset: 0,
                                    burstLen: truncate(burstLen), tag: 0
  
positive.code:       let recvd <- toGet(eventPktReceivedFifo).get;
        memTestInd.packet_committed(recvd.id);
        eventPktCommittedFifo.enq(recvd);
        $display("StoreAndForward::packetReadDone %d: packet written to memory %h", cycle, v);
     endrule
  
     interface PktReadClient readClient;
  
negative.code:    provisos (Div#(`DataBusWidth, 8, bytesPerBeat)
              ,Log#(bytesPerBeat, beatShift));
  
     let verbose = False;
  
     // RingBuffer Read Client
     FIFO#(EtherData) readDataFifo <- mkFIFO;
  