testbench_regfile2.v

arm 7 verilog code used setup soc

/////////////////////////////////////////////////////////////////
//  Verilog Test Bench v2.0,  3-29-2000                        //
//  ECE 371 EMR, Spring 2000                                   //
//  Test Bench Team:  Steve Behling			       //
//  COMPONENT:  REGISTER FILE                                  //
//  FILE OUTPUT:  test_reg.out				       //
/////////////////////////////////////////////////////////////////

//Include register file for DUT
`include "regfile.v"


////////////////
//Clock module//
////////////////
module cl(clk);
        parameter TIME_LIMIT = 110000;
        output  clk;
        reg clk;

        initial
                clk=0;
        always  
                #50 clk = ~clk;
        always @(posedge clk)
                if ($time > TIME_LIMIT) #70 $stop;
endmodule


//////////////////////////////////////////////////////
// Top-level module instantiates the register files //
//////////////////////////////////////////////////////
module reg_top;
	reg [`ADDRLEN-1:0] RF_Addr_A, RF_Addr_B, RF_Addr_C, RF_Addr_Write;
	reg [`FLAGSLEN-1:0] RF_Flags_Write;
	reg [`DBUSLEN-1:0] RF_Bus_Write, RF_PC_Write;
	reg RF_Load_Write,RF_Load_Flags,RF_PSR_R_Sel,RF_PSR_W_Sel;

	wire [`DBUSLEN-1:0] RF_Bus_A,RF_Bus_B,RF_Bus_C,RF_PC_Read, RF_PSR_Read;
	wire sysclk;

	integer file;       //the number for the log file
	integer num_tests;  //the number of tests run
	integer verbose;    //0: log out results only, 1: dump registers


	cl #20000 clock(sysclk);  //instantiate clock

	//Instantiate register files!
	registerfile test_reg(RF_Addr_A,RF_Addr_B,RF_Addr_C,RF_Addr_Write,
			RF_Bus_Write,RF_Load_Write,RF_PC_Write,
			RF_Flags_Write,RF_Load_Flags,RF_PSR_R_Sel,
			RF_PSR_W_Sel,RF_Bus_A,RF_Bus_B,RF_Bus_C,
			RF_PC_Read,RF_PSR_Read,sysclk);

	//Open logfile and begin tests
	initial
	 begin
	   num_tests = 0;
	   $stop;

	   file = $fopen("test_reg.out");  //open the log file

	   $fdisplay(file,"Register File Test Log");
	   $fdisplay(file,"___________________");

/////////////////////////////////////////////////////////
	//Supply tests here!//
/////////////////////////////////////////////////////////


	RF_Addr_A = 0;
	RF_Addr_B = 0;
	RF_Addr_C = 1;
	RF_Addr_Write = 0;
	RF_Load_Write = 1'b1;
	RF_Bus_Write = 255;
	RF_Flags_Write = `MODE_USER;
	RF_PSR_W_Sel = 1'b0;
	RF_PSR_R_Sel = 1'b0;
	RF_Load_Flags = 1'b1;
	RF_PC_Write = 4;
      out_to_file;         //perform test

	RF_Addr_A = 0;
	RF_Addr_B = 0;
	RF_Addr_C = 1;
	RF_Addr_Write = 1;
	RF_Load_Write = 1'b1;
	RF_Bus_Write = 65535;
	RF_Flags_Write = `MODE_USER;
	RF_PSR_W_Sel = 1'b0;
	RF_PSR_R_Sel = 1'b0;
	RF_Load_Flags = 1'b1;
	RF_PC_Write = 8;
      out_to_file;         //perform test

	RF_Addr_A = 0;
	RF_Addr_B = 1;
	RF_Addr_C = 1;
	RF_Addr_Write = 2;
	RF_Load_Write = 1'b1;
	RF_Bus_Write = 4095;
	RF_Flags_Write = `MODE_USER;
	RF_PSR_W_Sel = 1'b0;
	RF_PSR_R_Sel = 1'b0;
	RF_Load_Flags = 1'b1;
	RF_PC_Write = 12;
      out_to_file;         //perform test

	RF_Addr_A = 0;
	RF_Addr_B = 1;
	RF_Addr_C = 2;
	RF_Addr_Write = 3;
	RF_Load_Write = 1'b1;
	RF_Bus_Write = 32;
	RF_Flags_Write = `MODE_USER;
	RF_PSR_W_Sel = 1'b0;
	RF_PSR_R_Sel = 1'b0;
	RF_Load_Flags = 1'b1;
	RF_PC_Write = 16;
      out_to_file;         //perform test
/////////END TESTS///////////////////////////////////////

	$fdisplay(file,"%d tests run",num_tests);
	$fdisplay(file,"--Tests Completed--");  //signal end of tests

	$stop;               // Halt simulator
	$finish;             // Stop all simulation
	$fclose(file);       // It's always good to close what you open
	   end

  /////////////////////////////////
  // Perform test and log errors //
  /////////////////////////////////
  task out_to_file;
   begin
	@(posedge sysclk);

	num_tests = num_tests + 1;

	$fdisplay(file,"%d Addr_A:%h Addr_B:%h Addr_C:%h", $time,
                    RF_Addr_A, RF_Addr_B, RF_Addr_C);
	$fdisplay(file,"Addr_Write:%h Bus_Write:%h Load_Write:%b",
		    RF_Addr_Write,RF_Bus_Write,RF_Load_Write);
	$fdisplay(file,"PC_Write:%h Flags_Write:%h Load_Flags:%b",
		    RF_PC_Write,RF_Flags_Write, RF_Load_Flags);
	$fdisplay(file,"PSR_R_Sel:%b PSR_W_Sel:%b",
		    RF_PSR_R_Sel, RF_PSR_W_Sel);
	$fdisplay(file,"Bus_A:%h Bus_B:%h Bus_C:%h PC_Read:%h PSR_Read:%h",
		    RF_Bus_A,RF_Bus_B,RF_Bus_C,RF_PC_Read,RF_PSR_Read);
	$fdisplay(file,"================");
	@(posedge sysclk);
   end
  endtask

endmodule