@(`ETHER_TRANSMIT_IF);

end

// Deassert it

##1 `ETHER_TRANSMIT_IF.TxEn <= 1'b0;

repeat (12) @(`ETHER_TRANSMIT_IF);

endtask: do_write

/****************************** Env **********************************/

class vcp_eth_env extends vmm_env;

integer time_out = 100000;

// Class Member Objects

// ETH Transmit Interface

virtual vcp_eth_interface if_master;

// Configuration Handle, vcp_eth_cfg, with name if_master.

vcp_eth_cfg cfg;

// Generator Handle, vcp_eth_transaction_atomic_gen called gen

vcp_eth_transaction_atomic_gen gen;

// Xactor Handle, vcp_eth_master, with name master.

vcp_eth_master master;

// Handle for Channel from generator to master

vcp_eth_transaction_channel gen2mas;

// VMM Logger for messages.

vmm_log log;

// VMM Environment Steps

extern function new (virtual vcp_eth_interface if_master);

extern virtual function void gen_cfg();

extern virtual function void build();

extern virtual task reset_dut();

extern virtual task start();

extern virtual task wait_for_end();

extern virtual task stop();

extern virtual task cleanup();

extern virtual task report();

// Non Vmm methods

extern virtual task Global_timeout();

endclass

//-----------------------------------------------------------------------------

// new() - constructor, pass in any virtual ports needed to connect to DUT

//-----------------------------------------------------------------------------

function vcp_eth_env::new(virtual vcp_eth_interface if_master);

super.new("ETH Environment");

this.log = new ("Environment", "Ether0");

`vmm_note(this.log," ENV CREATED ");

this.if_master = if_master;

this.cfg = new();

this.log.stop_after_n_errors(1);

endfunction

//-----------------------------------------------------------------------------

// gen_cfg() - Generate a randomized testbench configuration

//-----------------------------------------------------------------------------

function void vcp_eth_env::gen_cfg();

super.gen_cfg();

`vmm_note(this.log," Starting... Gen_cfg ");

if (cfg.randomize() == 0)

`vmm_fatal(log, "Failed to randomize testbench configuration");

`vmm_note(log, $psprintf("Number of Transactions = %0d", cfg.transactionCount));

endfunction

//-----------------------------------------------------------------------------

// build() - Build the testbench, xactors, scoreboard, callbacks

//-----------------------------------------------------------------------------

function void vcp_eth_env::build();

super.build();

`vmm_note(this.log," Starting... build ");

gen2mas = new ("ETH Trans Channel", "gen2mas");

gen = new ("ETH Atomic Gen", 1, gen2mas);

master = new ("Ethernet Transmit", 1, if_master, gen2mas );

gen.stop_after_n_insts = cfg.transactionCount;

endfunction: build

//-----------------------------------------------------------------------------

// reset_dut() - Reset the DUT

//-----------------------------------------------------------------------------

task vcp_eth_env::reset_dut();

super.reset_dut();

`vmm_note(this.log," Starting... reset_dut ");

master.reset();

`vmm_note(this.log," Ending... reset_dut ");

endtask:reset_dut

//-----------------------------------------------------------------------------

// start() - Start each of the xactors

//-----------------------------------------------------------------------------

task vcp_eth_env::start();

super.start();

`vmm_note(this.log," Starting... start ");

gen.start_xactor();

master.start_xactor();

endtask: start

//-----------------------------------------------------------------------------

// wait_for_end() - Wait until the test completes

//-----------------------------------------------------------------------------

task vcp_eth_env::wait_for_end();

super.wait_for_end();

`vmm_note(this.log," Starting... wait_for_end ");

repeat(30)@(posedge if_master.Clk);

// fork//watchdog

// begin

// Global_timeout();

// `vmm_note(this.log," Watchdog timeout occured ");

// end

// join_any

gen.notify.wait_for(vcp_eth_transaction_atomic_gen:ONE);

endtask: wait_for_end

//-----------------------------------------------------------------------------

// stop() - Stop each of the xactors

//-----------------------------------------------------------------------------

task vcp_eth_env::stop();

super.stop();

`vmm_note(this.log," Starting... stop ");

gen.stop_xactor();

master.stop_xactor();

`vmm_note(this.log," Ending ... stop ");

endtask: stop

//-----------------------------------------------------------------------------

// cleanup() - Cleanup the testbench, report any scoreboard errors etc.

//-----------------------------------------------------------------------------

task vcp_eth_env::cleanup();

super.cleanup();

`vmm_note(this.log," Starting... cleanup ");

endtask

//-----------------------------------------------------------------------------

// report() - Report Statistics from the testbench

//-----------------------------------------------------------------------------

task vcp_eth_env::report();

super.report();

`vmm_note(this.log," Starting... report ");

$display("\t***********************************************");

log.report();

$display("\t***********************************************");

$display("\t***********************************************");

endtask

task vcp_eth_env::Global_timeout();

repeat(time_out) @(posedge if_master.Clk);

endtask

/***************************** Mem ************************************/

module mem(vcp_eth_interface.Receive eth);

always @(posedge eth.Clk)

begin: do_reset

if (eth.Rst === 1'b1)

begin

disable mgmt_if;

eth.Col <= 1'b0;

eth.Crs <= 1'b0;

end

end

always @(posedge eth.Clk)

begin: mgmt_if

if(eth.TxEn === 1'b1) begin

$display("Data is %x",eth.Data);

end

end

endmodule

/***************************** Top.v ************************************/

module vcp_eth_top;

parameter sim_cycle = 50;

vmm_log log;

bit clk;

initial begin

log = new ("TOP", 1);

end

always #(sim_cycle/2)

clk = ~clk;

// Instantiate the Program block

vcp_eth_interface eth(clk);

test t1(eth.Transmit);

mem m1(eth.Receive);

initial $vcdpluson();

endmodule

/************************ Testcase 1 ********************/

program test(vcp_eth_interface if_master);

vcp_eth_env env;

initial begin

env = new(if_master) ;

env.build();

begin

vcp_eth_transaction trans = new(); // Here-1

env.gen.randomized_obj = trans; // Here-1

env.run();

end

end

endprogram

/************************ Testcase 2 ********************/

program test(vcp_eth_interface if_master);

vcp_eth_env env;

class my_vcp_eth_trans extends vcp_eth_transaction;

env.cfg.transactionCount == 3;

endclass

initial begin

env = new(if_master) ;

env.build();

begin

vcp_eth_transaction trans = new(); // Here-1

env.gen.randomized_obj = trans; // Here-1

my_vcp_eth_trans trans = new(); // Here-2

env.gen.randomized_obj = trans; // Here-2

env.run();

end

end

endprogram

/************************ Makefile ********************/

################## COMMON #########################

VCS = vcs

RTL = vmm.sv vcp_eth_package.sv vcp_eth_top.sv vcp_eth_interface.sv mem.v

DGN = vcp_eth_cfg.sv vcp_eth_frame.sv vcp_eth_transaction.sv vcp_eth_master.sv vcp_eth_env.sv

OPT = -sverilog -debug_all -ntb_opts dtm -l vcp_eth_log.log

INC = +incdir+design+hdl+include

CMP =

RUN =

DIR = $(shell basename `pwd`)

################## VCS #########################

vcp_eth: build run

cov:

urg -dir .

cp:

cp -f ../design/*.sv .

cp -f ../include/*.sv .

build: cp

$(VCS) $(OPT) $(INC) $(RTL) $(DGN) ../tests/test.sv -R $(CMP)

run:

./simv $(RUN)

################## HELP #########################

help:

@echo "Usage::./runsim.csh test.sv"

################## Clean #########################

clean:

@rm -rf *.sv *.vro simv* csrc* *.vshell depchk*vr */*~

@rm -rf .__snps* *.db* *.vpd* *.log *~ obj scs* work DVEfiles

@rm -rf *.fcov *.html .vhdl.assert* .vlog.assert* vc_hdrs.h

@rm -rf sim.files

/************************ runsim ********************/

#!/bin/csh

if ($#argv == 0) then

echo " "

echo "============================================================== "

echo " User needs to give minimum one argument "

echo " USAGE "

echo " runtest.csh "

echo "============================================================== "

echo " "

exit 0

else

echo " ***********************************************"

echo " Script to run vcp_eth with VCS "

echo " usage : runsim.csh "

echo " ***********************************************"

endif

/******* Set the path here for your CWD *****/

setenv vcp_eth /vmm/vcp_eth

echo "$vcp_eth"

cd $vcp_eth/sim

rm -rf work/

cp -f $vcp_eth/include/*.sv $vcp_eth/sim/

cp -f $vcp_eth/tests/$1 test.sv

cp -f $vcp_eth/design/*.sv $vcp_eth/sim/

cp -f $vcp_eth/hdl/* $vcp_eth/sim/

cp -f $vcp_eth/scripts/Makefile $vcp_eth/sim/

make vcp_eth

rm -rf *.sv Makefile