Subversion Repositories qaz_libs

//

//

//

module

  cx_decoder

  #(

    parameter LOG_LEVEL      = 3

  )

  (

    input data_in

  );

  // --------------------------------------------------------------------

  //

  wire  [9:0] data_out;

  wire        clock;

  wire        strobe;

  cx_bit_align

    i_cx_bit_align

    (

      .data_in(data_in),

      .data_out(data_out),

      .clock(clock),

      .strobe(strobe),

      .data_sent_lsb( 1'b1 ),

      .reset( 1'b0 )

    );

  // --------------------------------------------------------------------

  //

  reg         dispin = 0;

  wire  [8:0] dataout;

  reg   [7:0] dataout_r;

  reg         k_code;

  wire        dispout;

  wire        code_err;

  reg         code_err_r;

  wire        disp_err;

  reg         disp_err_r;

  decode_8b10b

    i_decode_8b10b

    (

      .datain(data_out),

      .dispin(dispin),

      .dataout(dataout),

      .dispout(dispout),

      .code_err(code_err),

      .disp_err(disp_err)

    ) ;

  // --------------------------------------------------------------------

  //

  always @( negedge strobe )

    begin

      dispin              <= dispout;

      {k_code, dataout_r} <= dataout;

      code_err_r          <= code_err;

      disp_err_r          <= disp_err;

    end

  // --------------------------------------------------------------------

  //

  wire [4:0]  code_5b_6b  = dataout_r[4:0];

  wire [2:0]  code_3b_4b  = dataout_r[7:5];

  wire [7:0]  data_8b     = k_code ? 8'hxx : dataout_r;

  always @( negedge strobe )

    if( LOG_LEVEL >= 4 & k_code )

      $display( "#|# %15.t | cx_decoder: K code - K.%d.%d", $time, code_5b_6b, code_3b_4b );

  always @( negedge strobe )

    if( LOG_LEVEL >= 4 & ~k_code )

      $display( "#|# %15.t | cx_decoder: D code - D.%d.%d", $time, code_5b_6b, code_3b_4b );

endmodule