anchor.diff:      rg_processed[1] <= rg_processed[1] - amt;
       rg_shift_amt[1] <= rg_shift_amt[1] - amt;
       data_out_ff.enq(data);
  -    dbprint(4, $format("Deparser rg_processed=%d rg_shift_amt=%d amt=%d", rg_processed[1], rg_shift_amt[1], amt, fshow(data)));
  +    dbprint(4, $format("Deparser:rl_deparse_send rg_processed=%d rg_shift_amt=%d amt=%d", rg_processed[1], rg_shift_amt[1], amt, fshow(data)));
     endrule
   
     rule rl_deparse_header_done if (w_deparse_header_done);
       fetch_next_header(0);
       header_done[0] <= True;
  -    dbprint(4, $format("deparse header done"));
  +    dbprint(4, $format("Deparser:rl_deparse_header_done"));
     endrule
   
     // wait till all processed bits are sent, cont. to send payload.
     // some data are buffered not processed.
     rule rl_wait_till_processed_done if (!deparse_done[1] && header_done[1] && (rg_processed[1] == 0));
       deparse_done[1] <= True;
  -    dbprint(3, $format("deparse processed done"));
  +    dbprint(3, $format("Deparser:rl_wait_till_processed_done"));
     endrule
   
     `define DEPARSER_RULES
  
positive.code:    function Action report_deparse_action(String msg, Bit#(32) buffered, Bit#(32) processed, Bit#(32) shift, Bit#(512) data);
      action
        if (cf_verbosity > 0) begin
          $display("(%0d) Deparse %s buffered %d %d %d data %h", $time, msg, buffered, processed, shift, data);
        end
      endaction
    endfunction
  
negative.code:        amt = rg_processed[1];
      end
      let v = data_in_ff.first;
      dbprint(3, $format("Deparser:rl_deparse_send ", fshow(v)));
      Bit#(128) data_out = truncate(rg_tmp[1] & create_mask(cExtend(amt)));
      Bit#(16) mask_out = create_mask(cExtend(amt >> 3));
      let data = EtherData { sop: sop_this_cycle, eop: False, data: data_out, mask: mask_out };
  