anchor.diff:              let pkt = req.pkt;
               pkt_ff.enq(pkt);
               deparser.metadata.enq(meta);
  +            dbprint(3, $format("stream out metadata %d", pkt, fshow(meta)));
            endmethod
         endinterface);
      endinterface);
      method Action set_verbosity (int verbosity);
  +      cf_verbosity <= verbosity;
         deparser.set_verbosity(verbosity);
         serializer.set_verbosity(verbosity);
      endmethod
  
positive.code:       let pktInst = PacketInstance {id: 0, size: pktLen};
        MetadataRequest nextReq = MetadataRequest {pkt: pktInst, meta: meta};
        outReqFifo.enq(nextReq);
     endrule
  
     interface writeServer = pktBuff.writeServer;
     interface next = (interface Client#(MetadataRequest, MetadataResponse);
        interface request = toGet(outReqFifo);
        interface response = toPut(inRespFifo);
  
negative.code:       interface readReq = toGet(readReqFifo);
     endinterface);
  
     mkConnection(readClient, pktBuff.readServer);
  
     function Action dbprint(Integer level, Fmt msg);
        action
        if (cf_verbosity > fromInteger(level)) begin
           $display("(%0d) ", $time, msg);
        end
        endaction
     endfunction
  
     rule packetReadStart if (!readStarted);
        let pktLen <- toGet(readLenFifo).get;
        pktLenFifo.enq(pktLen);
        readReqFifo.enq(EtherReq{len: truncate(pktLen)});
        readStarted <= True;
        dbprint(3, $format("read packet start %d", pktLen));
     endrule
  
     rule packetReadInProgress if (readStarted);
  