#!/tvbin/tivosh

set db [dbopen]
if {$argc == 0} {
  RetryTransaction {
    set lconfig  [db $db open /Setup]
    set ch [dbobj $lconfig get RFOutputChannel]
  }
} else {
  set ch [lindex $argv 0]
  RetryTransaction {
    set lconfig  [db $db open /Setup]
    dbobj $lconfig set RFOutputChannel $ch
  }
}
dbclose $db

set rfo 0x8a480004
set rfo [expr $rfo|((303+($ch*8))<<4)]
set rfo [format "%#x" $rfo]

exec iicsetnosub 0xca $rfo