set I2C_READ_DATA "read_data_array"
set myargs [list "11" "22" "33"]
for { set i 1 } { $i < 3 } { incr i } {       
  	set byte_addr "$I2C_READ_DATA\($i\)"
  	#set readbuffer "[exa $byte_addr]"
  	puts "readbuffer  = $readbuffer"
  	set val [format %02s [string trimleft [string toupper [convert2hex $readbuffer] ] 0X] ]
  	puts "Data read from I2C: $val"
 
  	if { $val == [lindex $myargs $i ] } { set ok "PASS"
  		} else { set ok "FAIL"
		 	set TEST_RESULT FAIL
		 	}
  	set log [ format "$tb_g(ktime) $tb_g(ksp1) $tb_g(kstr1) $tb_g(kstr1)" $Now " " \
	  	"IR [lindex $myargs [expr $i-1]]            Value read:$val              Status:" $ok ]
  	log_test $tb_g(logfileid) $log
	}

IHNldCBJMkNfUkVBRF9EQVRBICJyZWFkX2RhdGFfYXJyYXkiCnNldCBteWFyZ3MgW2xpc3QgIjExIiAiMjIiICIzMyJdCmZvciB7IHNldCBpIDEgfSB7ICRpIDwgMyB9IHsgaW5jciBpIH0geyAgICAgICAKICAJc2V0IGJ5dGVfYWRkciAiJEkyQ19SRUFEX0RBVEFcKCRpXCkiCiAgCSNzZXQgcmVhZGJ1ZmZlciAiW2V4YSAkYnl0ZV9hZGRyXSIKICAJcHV0cyAicmVhZGJ1ZmZlciAgPSAkcmVhZGJ1ZmZlciIKICAJc2V0IHZhbCBbZm9ybWF0ICUwMnMgW3N0cmluZyB0cmltbGVmdCBbc3RyaW5nIHRvdXBwZXIgW2NvbnZlcnQyaGV4ICRyZWFkYnVmZmVyXSBdIDBYXSBdCiAgCXB1dHMgIkRhdGEgcmVhZCBmcm9tIEkyQzogJHZhbCIKICAKICAJaWYgeyAkdmFsID09IFtsaW5kZXggJG15YXJncyAkaSBdIH0geyBzZXQgb2sgIlBBU1MiCiAgCQl9IGVsc2UgeyBzZXQgb2sgIkZBSUwiCgkJIAlzZXQgVEVTVF9SRVNVTFQgRkFJTAoJCSAJfQogIAlzZXQgbG9nIFsgZm9ybWF0ICIkdGJfZyhrdGltZSkgJHRiX2coa3NwMSkgJHRiX2coa3N0cjEpICR0Yl9nKGtzdHIxKSIgJE5vdyAiICIgXAoJICAJIklSIFtsaW5kZXggJG15YXJncyBbZXhwciAkaS0xXV0gICAgICAgICAgICBWYWx1ZSByZWFkOiR2YWwgICAgICAgICAgICAgIFN0YXR1czoiICRvayBdCiAgCWxvZ190ZXN0ICR0Yl9nKGxvZ2ZpbGVpZCkgJGxvZwoJfQ==