set I2C_READ_DATA "read_data_array"
set myargs [list "11" "22" "33"]
for { set i 1 }{ $i < [ llength $myargs] }{ 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
	}

c2V0IEkyQ19SRUFEX0RBVEEgInJlYWRfZGF0YV9hcnJheSIKc2V0IG15YXJncyBbbGlzdCAiMTEiICIyMiIgIjMzIl0KZm9yIHsgc2V0IGkgMSB9eyAkaSA8IFsgbGxlbmd0aCAkbXlhcmdzXSB9eyBpbmNyIGkgfSB7ICAgICAgIAogIAlzZXQgYnl0ZV9hZGRyICIkSTJDX1JFQURfREFUQVwoJGlcKSIKICAJI3NldCByZWFkYnVmZmVyICJbZXhhICRieXRlX2FkZHJdIgogIAlwdXRzICJyZWFkYnVmZmVyICA9ICRyZWFkYnVmZmVyIgogIAlzZXQgdmFsIFtmb3JtYXQgJTAycyBbc3RyaW5nIHRyaW1sZWZ0IFtzdHJpbmcgdG91cHBlciBbY29udmVydDJoZXggJHJlYWRidWZmZXJdIF0gMFhdIF0KICAJcHV0cyAiRGF0YSByZWFkIGZyb20gSTJDOiAkdmFsIgogIAogIAlpZiB7ICR2YWwgPT0gW2xpbmRleCAkbXlhcmdzICRpIF0gfSB7IHNldCBvayAiUEFTUyIKICAJCX0gZWxzZSB7IHNldCBvayAiRkFJTCIKCQkgCXNldCBURVNUX1JFU1VMVCBGQUlMCgkJIAl9CiAgCXNldCBsb2cgWyBmb3JtYXQgIiR0Yl9nKGt0aW1lKSAkdGJfZyhrc3AxKSAkdGJfZyhrc3RyMSkgJHRiX2coa3N0cjEpIiAkTm93ICIgIiBcCgkgIAkiSVIgW2xpbmRleCAkbXlhcmdzIFtleHByICRpLTFdXSAgICAgICAgICAgIFZhbHVlIHJlYWQ6JHZhbCAgICAgICAgICAgICAgU3RhdHVzOiIgJG9rIF0KICAJbG9nX3Rlc3QgJHRiX2cobG9nZmlsZWlkKSAkbG9nCgl9