anchor.diff:        if (dtpEventInFifo.notEmpty) begin
            let v <- toGet(dtpEventInFifo).get;
            if (v.e == init_type) begin
  +            initTimestampFifo.enq(v.t);
  +            let parity = ^(v.t);
  +            initParityFifo.enq(parity);
               if(verbose) $display("%d: %d DtpTx init_rcvd %h %d", cycle, id, v.e, v.t);
               init_rcvd_next = True;
            end
  
positive.code:    FIFOF#(Bit#(66)) dtpTxOutFifo <- mkFIFOF;
     FIFOF#(TxStageOneBuf) stageOneFifo <- mkFIFOF;
  
     FIFOF#(Bit#(53)) ackTimestampFifo <- mkSizedFIFOF(8);
  
     FIFOF#(Bit#(3))  dtpEventFifo   <- mkFIFOF;
  
negative.code:       end
        else if (mux_sel && tx_mux_sel == ack_type) begin
           if(verbose) $display("%d: %d, Enqueued outgoing ack %d", cycle, id, c_local+1);
           let init_timestamp = initTimestampFifo.first;
           let init_parity = initParityFifo.first;
           encodeOut = {init_timestamp, init_parity, ack_type, block_type};
           initTimestampFifo.deq;
           initParityFifo.deq;
        end
        else if (mux_sel && tx_mux_sel == beacon_type) begin
           encodeOut = {c_local+1, parity, beacon_type, block_type};
  