test-bench.v

encode.v The encoder syndrome.v Syndrome generator in decoder berlekamp.v Berlekamp algorithm in

// -------------------------------------------------------------------------
//test bench for reed solomon codec
//for verilog-XL or Icarus verilog
//Copyright (C) Tue Apr  2 14:40:09 2002
//by Ming-Han Lei([e-mail])
//
//This program is free software; you can redistribute it and/or
//modify it under the terms of the GNU Lesser General Public License
//as published by the Free Software Foundation; either version 2
//of the License, or (at your option) any later version.
//
//This program 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 Lesser General Public License for more details.
//
//You should have received a copy of the GNU Lesser General Public License
//along with this program; if not, write to the Free Software
//Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
// --------------------------------------------------------------------------

module top;
	wire [7:0] message, i;
	wire [7:0] error;
	reg clk, clrn;
	reg [7:0] k;
	wire [7:0] data;
	wire [7:0] encoded;
	wire valid;
	reg dec_ena, enc_ena, data_present;
	reg [7:0] noise, received;
	reg [7:0] address;
	reg [7:0] count;
	reg [7:0] position;
	reg dec_trigger, enc_trigger;
	
	// tick the clock
	always #50 clk = ~clk;

	// you provide a rom as the message to encode
	sigin x0 (message, address);
		
	// the encoder
	// encoded: the output
	// message: the input
	// enc_ena: clock enable
	// data_present: input latch enable
	// clk: postive edge triggered clock
	// clrn: low active reset
	rs_enc  x1 (encoded, message, enc_ena, data_present, clk, clrn);

	// conditions enable signal for encoder
	always @ (posedge clk or negedge clrn)
	begin
		if (~clrn)
		begin
			enc_ena <= 0;
			data_present <= 0;
			address <= 0;
		end
		else 
		begin
			if (enc_trigger && address == 0)
			begin
				enc_ena <= 1;
				data_present <= 1;
			end
			// the last 8 clocks are for check bytes
			else if (address == k-9)
				data_present <= 0;
			else if (address == k-1)
			begin
				enc_ena <= 0;
			end
			if (enc_ena) address <= address + 1;
			else address <= 0;
		end
	end
	
	// you provide the noise
	always @ (address)
		if (address == 8'ha4) noise = 8'hc4;
  		else if (address == 8'hae) noise = 8'hc4;
		else if (address == 8'hb8) noise = 8'hc4;
		else if (address == 8'hc2) noise = 8'hc4;
		else noise = 0;
	
	// data for decoder
	always @ (posedge clk or negedge clrn)
		if (~clrn) received <= 0;
		else received <= encoded ^ noise;

	// the decoder
	// received: received signal
	// error: the decoded noise signal
	// with_error: a signal indicates noise exists
	// dec_ena: clock enable
	// valid: output valid
	// k: the length of message, read only once at reset time
	// clk: positive edge triggered clock
	// clrn: low active reset
	rsdec x2 (received, error, with_error, dec_ena, valid, k, clk, clrn);
	
	// conditions enable signal for decoder
	always @ (posedge clk or negedge clrn)
	begin
		if (~clrn)
			dec_ena <= 0;
		else if (dec_trigger)
			dec_ena <= 1;
		else if (count == k)
			dec_ena <= 0;
		if (~clrn) 
			count <= 0;
		else if (dec_ena)
			count <= count + 1;
	end


	// keep track of error position
	always @ (posedge clk or negedge clrn)
		if (~clrn) position <= 0;
		else if (valid) position <= position + 1;
		else position <= 0;


	// input stimuli	 
	initial
	begin
		// view the file with gtkwave
		$dumpfile("wave.vcd");
		$dumpvars(0, top);
		//$fsdbDumpfile("orig.fsdb");
		//$fsdbDumpvars(0, top);

		clk = 0;
		clrn = 1;
		data_present = 0;
		enc_trigger = 0;
		dec_trigger = 0;
		k = 200;
		//k = 255;
		#1 clrn = 0;
		#20 clrn = 1;
		
		// wait for decoder initializes
		// waiting_clocks >= 255 - 2*k
		#25620 
		
		#100 enc_trigger = 1;
		#100 enc_trigger = 0; dec_trigger = 1;
		#100 dec_trigger = 0;
		#70000 $finish;
	end
	
	// output monitor
	always @ (negedge clk)
	begin
		if (enc_ena) $display("enc: %d @ %d", encoded, address);
		else if (valid) $display("dec: %d @ %d", error, position);
	end	
endmodule