Code:

 do i2c_wave.do restart set UserTimeUnit ns force -freeze Master_CLK 1 0, 0 {10 ns} -r 20 force -deposit rst 1 force -deposit CLK_SPEED_SEL 0 force -deposit I2C_CLK_GEN_W 0 force -deposit DATA_TO_MASTER 00 force -deposit CONTROL_INPUT 0000 force -deposit i2c_cntrl_reg_w 0 force -deposit SDA 1 force -deposit I2C_READ 0 force -deposit I2C_WRITE 0 run 40 ns force -deposit rst 0 run 40 ns force -deposit CLK_SPEED_SEL 35 force -deposit I2C_CLK_GEN_W 1 run 20 ns force -deposit CLK_SPEED_SEL 0 force -deposit I2C_CLK_GEN_W 0 run 20 ns set slave_addressr A5 set slave_addressw A4 set eeprom_slave_addressr AB set eeprom_slave_addressw AA set verilog_slave_addressr 21 set verilog_slave_addressw 20 set german_slave_addressr C3 set german_slave_addressw C2 set i2cs_rx_slave_addressr 23 set i2cs_rx_slave_addressw 22 set read_adr_arry(0) $slave_addressr set read_adr_arry(1) $eeprom_slave_addressr set read_adr_arry(2) $german_slave_addressr set read_adr_arry(3) $i2cs_rx_slave_addressr set read_adr_arry(4) $verilog_slave_addressr set write_adr_arry(0) $slave_addressw set write_adr_arry(1) $eeprom_slave_addressw set write_adr_arry(2) $german_slave_addressw set write_adr_arry(3) $i2cs_rx_slave_addressw set write_adr_arry(4) $verilog_slave_addressw global wrdata_array set wrdata_array(0) 0 set instruction_array(0) 0 set instruction_array(1) 1 proc myRand { min max } { set maxFactor [expr [expr $max + 1] - $min] set value [expr int([expr rand() * 100])] set value [expr [expr $value % $maxFactor] + $min] return $value } proc myRand_hex { dec_min dec_max } { set hex_maxFactor [expr [expr $dec_max + 1] - $dec_min] set dec_value [expr int([expr rand() * 100])] set dec_value [expr [expr $dec_value % $hex_maxFactor] + $dec_min] set hex_value [format %02X $dec_value] return $hex_value } proc write_i2c { device registerptr cntrl_reg byte_count } { global wrdata_array while { [examine -dec I2C_BUSY] == 1 } { run 20 ns } force -deposit CONTROL_INPUT $cntrl_reg force -deposit i2c_cntrl_reg_w 1 run 20 ns force -deposit i2c_cntrl_reg_w 0 run 20 ns set write_count 0 set write_op "write to" set loop_count [expr $byte_count - 1] set loop_termination [expr $loop_count / 4] switch -exact -- $device { 0 { echo "The current transaction is a $byte_count byte write to the PCA955 slave starting at register $registerptr" } 1 { echo "The current transaction is a $byte_count byte write to the EEPROM slave starting at register $registerptr" } 2 { echo "The current transaction is a $byte_count byte write to the German slave starting at register $registerptr" } 3 { echo "The current transaction is a $byte_count byte write to the I2CS_RX slave starting at register $registerptr" } 4 { echo "The current transaction is a $byte_count byte write to the VERILOG slave starting at register $registerptr" } default { error "This $byte_count is not a known device address" } } while { $write_count < $loop_termination } { if { [examine -dec I2C_BUSY] == 0 } { force -deposit CONTROL_INPUT $wrdata_array($write_count) force -deposit I2C_WRITE 1 run 20 ns force -deposit I2C_WRITE 0 run 20 ns incr write_count } else { force -deposit I2C_WRITE 0 run 20 ns } } force -deposit I2C_WRITE 0 run 20 ns } proc read_i2c { device registerptr cntrl_reg byte_count } { global wrdata_array while { [examine -dec I2C_BUSY] == 1 } {run 20 ns } force -deposit CONTROL_INPUT $cntrl_reg force -deposit i2c_cntrl_reg_w 1 run 20 ns force -deposit i2c_cntrl_reg_w 0 set read_count 0 set read_op "read from" switch -exact -- $device { 0 { echo "The current transaction is a $byte_count byte read from the PCA955 slave starting at register $registerptr" } 1 { echo "The current transaction is a $byte_count byte read from the EEPROM slave starting at register $registerptr" } 2 { echo "The current transaction is a $byte_count byte read from the German slave starting at register $registerptr" } 3 { echo "The current transaction is a $byte_count byte read from the I2CS_RX slave starting at register $registerptr" } 4 { echo "The current transaction is a $byte_count byte read from the VERILOG slave starting at register $registerptr" } default { error "This $byte_count is not a known device address" } } while { $read_count <= [expr $byte_count / 4] } { if { [examine -dec I2C_DATA_RDY] == 1 } { force -deposit I2C_READ 1 run 20 ns force -deposit I2C_READ 0 run 20 ns if { [examine -hex DATA_FROM_SLAVE] != $wrdata_array($read_count) } { error "The data doesn't match, the data that was written was $wrdata_array($read_count) you got back [examine -hex DATA_FROM_SLAVE]" } else { echo "Read transaction successful" } incr read_count } else { force -deposit I2C_READ 0 run 20 ns } } force -deposit I2C_READ 0 run 20 ns } set tranaction_count 0 set write_count 0 set regcount 0 set pcslave_adr_count 0 set eepromslave_adr_count 0 set verilogslave_adr_count 0 set germanslave_adr_count 0 set i2cs_rx_adr_count 0 set hexcount [format %02X $regcount] while {$tranaction_count < 100 } { global wrdata_array if { [examine -bin I2C_LOCK] == "1" } { set random_device [myRand 0 3] set device_address $write_adr_arry($random_device) switch -exact -- $random_device { 0 { set byte_count [myRand 3 4] } 1 { set byte_count [myRand 3 2047] } 2 { set byte_count [myRand 3 4] } 3 { set byte_count [myRand 3 10] } 4 { set byte_count [myRand 3 4] } default { error } } set timeout_value [format %1X 15] set cntrl_reg $device_address append cntrl_reg $timeout_value append cntrl_reg [format %1X $byte_count] set array_byte_count [expr $byte_count - 1] set array_sub_count 0 set array_index 0 switch -exact -- $random_device { 0 { set register_ptr [myRand_hex 2 3] } 1 { set register_ptr [myRand_hex 2 2047] } 2 { set register_ptr [myRand_hex 2 3] } 3 { set register_ptr 00 } 4 { set register_ptr [myRand_hex 2 15] } default { error } } set wrdata_array($array_index) $register_ptr while { $array_byte_count != 0 } { if { $array_sub_count == 3 } { incr array_index } else { append wrdata_array($array_index) [myRand_hex 1 255] set array_byte_count [expr $array_byte_count - 1] incr array_sub_count } } [write_i2c $random_device $register_ptr $cntrl_reg $byte_count] [read_i2c $random_device $register_ptr $cntrl_reg $byte_count] incr tranaction_count run 20 ns } run 200 ns }