Modem编程

开发平台：
VHDL

tb_const_enc.v：源码内容
							/* *****************************************************************
 *
 *  This file is part of the
 *
 *   Tone Order and Constellation Encoder Core.
 *  
 *  Copyright (C) 2007 Guenter Dannoritzer
 *
 *   This source is free software; you can redistribute it
 *   and/or modify it under the terms of the 
 *             GNU General Public License
 *   as published by the Free Software Foundation; 
 *   either version 3 of the License,
 *   or (at your option) any later version.
 *
 *   This source is distributed in the hope 
 *   that it will be useful, but WITHOUT ANY WARRANTY;
 *   without even the implied warranty of MERCHANTABILITY
 *   or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the
 *   GNU General Public License along with this source.
 *   If not, see <http://www.gnu.org/licenses/>.
 *
 * *****************************************************************/
module tb_const_encoder();
parameter TW              = 10;
`include "parameters.vh"
reg                 clk;
reg                 reset;
wire                fast_ready_o;
reg                 we_fast_data_i;
reg   [DW-1:0]      fast_data_i;
wire                inter_ready_o;
reg                 we_inter_data_i;
reg   [DW-1:0]      inter_data_i;
reg                 we_conf_i;
reg   [CONFAW-1:0]  addr_i;
reg   [CONFDW-1:0]  conf_data_i;
wire  [CNUMW-1:0]   carrier_num_o;
wire  signed [CONSTW-1:0]  x_o;
wire  signed [CONSTW-1:0]  y_o;
//
// instantiate the DUT
// 
const_encoder dut ( .clk(clk),
                    .reset(reset),
                    .fast_ready_o(fast_ready_o),
                    .we_fast_data_i(we_fast_data_i),
                    .fast_data_i(fast_data_i),
                    .inter_ready_o(inter_ready_o),
                    .we_inter_data_i(we_inter_data_i),
                    .inter_data_i(inter_data_i),
                    .addr_i(addr_i),
                    .we_conf_i(we_conf_i),
                    .conf_data_i(conf_data_i),
                    .xy_ready_o(xy_ready_o),
                    .carrier_num_o(carrier_num_o),
                    .x_o(x_o),
                    .y_o(y_o));
//
// instantiate test data modules
//
const_map_2bit cm_2bit();
const_map_3bit cm_3bit();
const_map_4bit cm_4bit();
const_map_5bit cm_5bit();
initial begin
  clk = 0;
  we_fast_data_i = 0;
  we_inter_data_i = 0;
  we_conf_i = 0;
  reset = 0;
end
always begin
  #TW clk = ~clk;
end
//
// dump signals
//
initial begin
  $dumpfile("tb_const_enc.vcd");
  $dumpvars;
end
//
// main test
// 
                  
initial begin
  $monitor($time, " reset: ", reset);
  
  apply_reset;
  //
  // write configuration
  //
  write_config(BIT_LOAD_ST_ADR, 2);
  write_config(BIT_LOAD_ST_ADR+1, 3);
  write_config(BIT_LOAD_ST_ADR+2, 4);
  write_config(BIT_LOAD_ST_ADR+3, 5);
  write_config(C_NUM_ST_ADR,    48);
  write_config(C_NUM_ST_ADR+1,  49);
  write_config(C_NUM_ST_ADR+2,  50);
  write_config(C_NUM_ST_ADR+3,  51);
  
  
  write_config(USED_C_ADR, 4);
  write_config(F_BITS_ADR, 7);
  
  //
  // check written configuration
  //
  check_config(BIT_LOAD_ST_ADR,   2);
  check_config(BIT_LOAD_ST_ADR+1, 3);
  check_config(BIT_LOAD_ST_ADR+2, 4);
  check_config(BIT_LOAD_ST_ADR+3, 5);
  check_config(C_NUM_ST_ADR,    48);
  check_config(C_NUM_ST_ADR+1,  49);
  check_config(C_NUM_ST_ADR+2,  50);
  check_config(C_NUM_ST_ADR+3,  51);
  check_config(USED_C_ADR, 4);
  check_config(F_BITS_ADR, 7);
  //
  // checking the constellation map
  //
  check_const_map(2);
  check_const_map(3);
  check_const_map(4);
  check_const_map(5);
  
  #1000 $finish();
end // main test
// //////////////////////////////////////////////////////////////////// 
// 
// bus functional models
// 
// //////////////////////////////////////////////////////////////////// 
task apply_reset;
  begin
    reset = 0;
    #20
    reset = 1;
    @(posedge clk);
    reset = 0;
  end
endtask
  
//
// write data to the configuration registers
//
task write_config(input [CONFAW-1:0] addr, input[CONFDW-1:0] data);
  begin
    
    addr_i = addr;
    conf_data_i = data;
    @(negedge clk);
    we_conf_i = 1;
    @(negedge clk);
    we_conf_i = 0;
    
  end
endtask
//
// check the written configuration
//
task check_config(input [CONFAW-1:0] addr, input [CONFDW-1:0] exp_data);
  begin
    if(addr >= 0 && addr < C_NUM_ST_ADR) begin
    
      if(dut.BitLoading[addr] !== exp_data) begin
        $display("ERROR! => BitLoading does not match @ %x!", addr);  
        $display("          Got: %d expected: %d", 
                  dut.BitLoading[addr], exp_data);
      end
      
    end
    else if(addr >= C_NUM_ST_ADR && addr < USED_C_ADR) begin
      if(dut.CarrierNumber[addr-C_NUM_ST_ADR] !== exp_data) begin
        $display("ERROR! => CarrierNumber does not match @ %x!", addr);  
        $display("          Got: %d expected: %d", 
                  dut.CarrierNumber[addr-C_NUM_ST_ADR], exp_data);
      end
      
    end
    else if(addr == USED_C_ADR) begin
      
      if(dut.UsedCarrier !== exp_data) begin
        $display("ERROR! => UsedCarrier does not match @ %x!", addr);  
        $display("          Got: %d expected: %d", 
                  dut.UsedCarrier, exp_data);
      end
    
    end
    else if(addr == F_BITS_ADR) begin
      
      if(dut.FastBits !== exp_data) begin
        $display("ERROR! => FastBits does not match @ %x!", addr);  
        $display("          Got: %d expected: %d", 
                  dut.FastBits, exp_data);
      end
    end
  end
endtask
//
// check constellation map
//
// This task feeds in data direct to the constellation encoder module
// and checks the expected outcome.
//
// Given parameter is the bit size of the constellation map.
//
task check_const_map(input [3:0] bit);
  integer len;
  integer i;
  begin
   len = 1 << bit;
    for(i=0; i<len; i=i+1) begin
      $display("Testing %d bit constellation with input value %d", bit, i);
      // feed input data
      dut.bit_load <= bit;
      dut.cin <= i;
      @ (posedge clk);
      @ (posedge clk);
      @ (negedge clk);
      // compare output with expected result
      case (bit)
        1:  $display("%d bit is not support constellation size", bit);
        2:  begin
              if(cm_2bit.re[i] !== x_o) begin
                $display("Input: %d --> x_o expected: %d got: %d", i, cm_2bit.re[i], x_o);
              end
              if(cm_2bit.im[i] !== y_o) begin
                $display("Input: %d --> y_o expected: %d got: %d", i, cm_2bit.im[i], y_o);
              end
            end
        
        3:  begin
              if(cm_3bit.re[i] !== x_o) begin
                $display("Input: %d --> x_o expected: %d got: %d", i, cm_3bit.re[i], x_o);
              end
              if(cm_3bit.im[i] !== y_o) begin
                $display("Input: %d --> y_o expected: %d got: %d", i, cm_3bit.im[i], y_o);
              end
            end
        
        4:  begin
              if(cm_4bit.re[i] !== x_o) begin
                $display("Input: %d --> x_o expected: %d got: %d", i, cm_4bit.re[i], x_o);
              end
              if(cm_4bit.im[i] !== y_o) begin
                $display("Input: %d --> y_o expected: %d got: %d", i, cm_4bit.im[i], y_o);
              end
            end
        
        5:  begin
              if(cm_5bit.re[i] !== x_o) begin
                $display($time, " Input: %d --> x_o expected: %d got: %d", i, cm_5bit.re[i], x_o);
              end
              if(cm_5bit.im[i] !== y_o) begin
                $display($time, " Input: %d --> y_o expected: %d got: %d", i, cm_5bit.im[i], y_o);
              end
            end
        default: $display("%d is not an implemented bit size", bit);
      endcase
        
    end
  end
endtask
endmodule

						