class sysreg_scoreboard;

  //Vars in intr_check
  int		isr_error=0;
  integer	fid;

  function new();
  endfunction;

  //extern task do_check();

  extern function bit compare(
    bit[31:0]		spi_exp[$],
    bit[31:0]		spi_act[$],
    sysreg_trans	sys_exp[$],
    sysreg_trans	sys_act[$]
  );

endclass

function bit sysreg_scoreboard::compare(
    bit[31:0]		spi_exp[$],
    bit[31:0]		spi_act[$],
    sysreg_trans	sys_exp[$],
    sysreg_trans	sys_act[$]
);

  bit		result=1'b1;
  int		i=0;

//$display(dout);

	if(spi_exp.size() != spi_act.size()) begin
	  result = 1'b0;
	  //$display("ScoreBoard(ERROR):  write & read datanum ARNT'T equal!");
	  //$display("Exp spi_data size:%0d",spi_exp.size());
	  //$display("Act spi_data size:%0d",spi_act.size());
	  $fwrite(fid,"ScoreBoard(ERROR):  write & read datanum ARNT'T equal!\t@%t\n",$realtime);
	  $fwrite(fid,"Exp spi_data size:%0d\n",spi_exp.size());
	  $fwrite(fid,"Act spi_data size:%0d\n",spi_act.size());
	end 

	else if(sys_exp.size() != sys_act.size()) begin
	  result = 1'b0;
	  //$display("ScoreBoard(ERROR):  regmdl & read datanum ARNT'T equal!");
	  //$display("Exp sys_trs size:%0d",sys_exp.size());
	  //$display("Act sys_trs size:%0d",sys_act.size());
	  $fwrite(fid,"ScoreBoard(ERROR):  regmdl & read datanum ARNT'T equal!\t@%t\n",$realtime);
	  $fwrite(fid,"Exp sys_trs size:%0d\n",sys_exp.size());
	  $fwrite(fid,"Act sys_trs size:%0d\n",sys_act.size());
	end 
 

	else 
	  for(i=0;i<spi_act.size();i++) begin
		if(spi_exp[i] != spi_act[i]) begin
		  result = 1'b0;
		  //$display("ScoreBoard(ERROR):  register read error(%0d)!",i);
	  	  //$display("Exp spi_data:\t%h",spi_exp[i]);
	  	  //$display("Act spi_data:\t%h",spi_act[i]);
		  $fwrite(fid,"ScoreBoard(ERROR):  register read error(%0d)!\t@%t\n",i,$realtime);
	  	  $fwrite(fid,"Exp spi_data:\t%h\n",spi_exp[i]);
	  	  $fwrite(fid,"Act spi_data:\t%h\n",spi_act[i]);
		end
		else
		  //$display("register read Successfully!");
		  $fwrite(fid,"register read Successfully!\n");
	  end
	  for(i=0;i<sys_act.size();i++) begin
		if(sys_exp[i].compare(sys_act[i])) begin
		  result = 1'b0;
		  //$display("ScoreBoard(ERROR):  output error(%0d)!",i);
	  	  //$display("Exp sys_trs:");
		  //sys_exp[i].print(sys_exp[i].compare(sys_act[i]));
	  	  //$display("Act spi_trs:");
		  //sys_act[i].print(sys_exp[i].compare(sys_act[i]));
		  $fwrite(fid,"ScoreBoard(ERROR):  output error(%0d)!\t@%t\n",i,$realtime);
	  	  $fwrite(fid,"Exp sys_trs:\n");
		  sys_exp[i].print(sys_exp[i].compare(sys_act[i]),fid);
	  	  $fwrite(fid,"Act spi_trs:\n");
		  sys_act[i].print(sys_exp[i].compare(sys_act[i]),fid);
		end
		else
		  //$display("output Successfully!");
		  $fwrite(fid,"output Successfully!\n");
	  end
	
  
  return result;												
      
endfunction