set I2C_READ_DATA "read_data_array"
 
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
	}

c2V0IEkyQ19SRUFEX0RBVEEgInJlYWRfZGF0YV9hcnJheSIKCmZvciB7IHNldCBpIDEgfXsgJGk8WyBsbGVuZ3RoICRteWFyZ3NdIH17IGluY3IgaSB9IHsgICAgICAgCiAgCXNldCBieXRlX2FkZHIgIiRJMkNfUkVBRF9EQVRBXCgkaVwpIgogIAkjc2V0IHJlYWRidWZmZXIgIltleGEgJGJ5dGVfYWRkcl0iCiAgCXB1dHMgInJlYWRidWZmZXIgID0gJHJlYWRidWZmZXIiCiAgCXNldCB2YWwgW2Zvcm1hdCAlMDJzIFtzdHJpbmcgdHJpbWxlZnQgW3N0cmluZyB0b3VwcGVyIFtjb252ZXJ0MmhleCAkcmVhZGJ1ZmZlcl0gXSAwWF0gXQogIAlwdXRzICJEYXRhIHJlYWQgZnJvbSBJMkM6ICR2YWwiCiAgCiAgCWlmIHsgJHZhbCA9PSBbbGluZGV4ICRteWFyZ3MgJGkgXSB9IHsgc2V0IG9rICJQQVNTIgogIAkJfSBlbHNlIHsgc2V0IG9rICJGQUlMIgoJCSAJc2V0IFRFU1RfUkVTVUxUIEZBSUwKCQkgCX0KICAJc2V0IGxvZyBbIGZvcm1hdCAiJHRiX2coa3RpbWUpICR0Yl9nKGtzcDEpICR0Yl9nKGtzdHIxKSAkdGJfZyhrc3RyMSkiICROb3cgIiAiIFwKCSAgCSJJUiBbbGluZGV4ICRteWFyZ3MgW2V4cHIgJGktMV1dICAgICAgICAgICAgVmFsdWUgcmVhZDokdmFsICAgICAgICAgICAgICBTdGF0dXM6IiAkb2sgXQogIAlsb2dfdGVzdCAkdGJfZyhsb2dmaWxlaWQpICRsb2cKCX0=