testkes.v

Reed-Solomon 信道编码广泛应用于DVB中

`timescale 1ns/1ns
module testbench_kes;
reg active_kes, clock1, clock2, reset;
reg [7:0] syndvalue0, syndvalue1, syndvalue2, 
            syndvalue3, syndvalue4, syndvalue5, syndvalue6, syndvalue7,
            syndvalue8, syndvalue9, syndvalue10, syndvalue11, syndvalue12, syndvalue13, syndvalue14, syndvalue15;
wire [7:0] lambda0, lambda1, lambda2, lambda3, lambda4, lambda5, lambda6,lambda7,lambda8;
wire [7:0] homega0, homega1, homega2, homega3, homega4, homega5,homega6,homega7;
wire [3:0] lambda_degree;
wire finish;
 KES_block kesblk(active_kes, clock1, clock2, reset, syndvalue0, syndvalue1, 
                syndvalue2, syndvalue3, syndvalue4, syndvalue5, syndvalue6, 
                syndvalue7, syndvalue8, syndvalue9, syndvalue10, syndvalue11,
				syndvalue12, syndvalue13, syndvalue14, syndvalue15, lambda0,
			    lambda1, lambda2, lambda3, lambda4, lambda5,lambda6, lambda7,
				lambda8,homega0, homega1, homega2, homega3, homega4, homega5,
				homega6,homega7, lambda_degree, finish);

parameter CYCLE=100;
always  # (CYCLE/2)  clock1=~clock1;
always  # (CYCLE/2)  clock2=~clock2;
initial  
begin
clock1=1;
clock2=0;
active_kes=1;
reset=1;
syndvalue0=16;
syndvalue1=158;
syndvalue2=97;
syndvalue3=229;
syndvalue4=40;
syndvalue5=134;
syndvalue6=159;
syndvalue7=189;
syndvalue8=231;
syndvalue9=106;
syndvalue10=154;
syndvalue11=214;
syndvalue12=89;
syndvalue13=47;
syndvalue14=70;
syndvalue15=73;
#10000;
 
end
initial
begin
$monitor($time,,,"lamda0 = %d, lamdda1 = %d,lambda2=%d,lambda3=%d,lambda4=%d,lambda5=%d,lambda6=%d,lambda7=%d,lambda8=%d,homega0=%d,homega1=%d,homega2=%d,homega3=%d,homega4=%d,homega5=%d.homega6=%d,homega7=%d",lambda0,lambda1, lambda2, lambda3, lambda4, lambda5,lambda6, lambda7,
				lambda8,homega0, homega1, homega2, homega3, homega4, homega5,
				homega6,homega7); 
				#10000
       $finish;
end       

endmodule