set hexFreq [readResult $rig] #binary scan $hexFreq @1I freq #return $freq binary scan $hexFreq c* data foreach byte $data { puts [expr {$byte & 0xff}] }