class sysreg_env;


  static int			pktnum;

  //Interface:
  virtual dacreg_if		    dif;
  virtual spi_if		    wif;
  virtual sram_if#(25,32)	xif;

  //Component:
  spi_driver			w_driver;
  dac_driver			d_driver;
  spi_monitor			w_monitor;
  dac_refmodel			d_model;
  dacreg_monitor		d_monitor;
  dacreg_scoreboard		d_scb;


  function new();
  endfunction;

  extern function build();

  extern task run();

endclass

function dacreg_env::build();

    w_driver   = new();
    if(!w_driver.randomize() with {
      error_time  < 0;
    })
      $fatal(0,"Randomize Failed");
    w_driver.pktnum	= pktnum;
    w_driver.vif  	= wif;
    w_driver.autarchy 	= 1'b1;
    w_driver.half_sclk  = 4;

    w_monitor = new();  
    w_monitor.wif 	= wif;
    w_monitor.xif 	= xif;

    d_driver  = new();
    d_driver.dif	= dif;
    d_driver.wif	= wif;

    d_monitor = new();  
    d_monitor.dif 	= dif;
    d_monitor.xif 	= xif;

    d_model   = new();  
    d_model.dif 	= dif; 
    d_model.wif 	= wif;
    d_model.xif 	= xif;

    s_scb     = new();

endfunction


task sysreg_env::run();
    int 	error=0;    

    fork

      w_driver.do_drive();

      d_driver.do_drive();
 
      w_monitor.do_mon();

      d_monitor.do_mon();

      d_model.do_imitate();


      while(1) begin
	repeat(2) @(posedge wif.csn);
	@(posedge wif.clk);
	s_model.dout.pop_back();
	if(s_scb.compare(
	  d_model.dout			,
	  w_monitor.act_trans.data	,
	  d_model.dacout		,
	  d_monitor.act_trans
	))
	  error++;
	d_model.dout.delete();
	d_model.dacout.delete();
	d_monitor.act_trans.delete();
      end
	  

    join

    $display("SCOREBOARD:");
    $display("\tError_isr:\t%0d",error);
    $display("\tError_sysrst:\t%0d",s_model.rst_error[0]);
    $display("\tError_ch0rst:\t%0d",s_model.rst_error[1]);
    $display("\tError_ch1rst:\t%0d",s_model.rst_error[2]);
    $display("\tError_ch2rst:\t%0d",s_model.rst_error[3]);
    $display("\tError_ch3rst:\t%0d",s_model.rst_error[4]);

endtask