source /tvlib/tcl/tv/mfslib.tcl 

proc setIr { irObj field irSequence } { 

    set savedInitial 0 

    foreach irPart $irSequence { 

        if {$savedInitial == 0} { 
            set savedInitial 1 
            dbobj $irObj set $field $irPart 
        } else {  
            dbobj $irObj add $field $irPart 
        } 
    } 
} 


proc loadcodes {} { 

    set db [dbopen] 

    puts "Setting IR codes for CableBoxCodeNum 10001 ..." 

    RetryTransaction { 

        set tivoir [db $db open /Component/Ir/TivoFormat/10001] 

        setIr $tivoir "Dig0" "0 50 41 0 540 263 45 23 45 23 30 8 8 90 38 23 45 23 45 23 45 23 45 23 45 23 45 90 45 23 45 90 45 90 45 90 45 90 45 83 45 23 38 30 45 23 45 23 45 23 23 8 15 23 45 23 45 23 45 90 45 90 45 90 45 90 38 90 38 98 45 90 45 90 38 2445 173 8 368 120 45 5723 548 128 45 0" 

        setIr $tivoir "Dig1" "0 50 38 0 428 8 105 270 38 30 38 30 38 90 38 30 38 30 38 30 38 30 38 30 38 30 38 98 38 30 38 98 38 98 38 98 38 90 38 98 38 98 38 30 38 30 38 30 38 30 38 30 38 30 38 30 38 30 38 98 38 98 38 90 38 98 38 98 38 98 38 98 38 2445 465 8 68 128 38 0" 

        setIr $tivoir "Dig2" "0 50 37 0 540 263 38 30 38 30 38 98 38 30 38 30 38 30 38 30 38 30 38 30 30 98 45 23 38 98 38 98 38 98 38 98 38 98 38 30 38 98 38 30 38 30 38 30 38 23 45 23 38 30 38 98 38 30 38 98 38 98 38 98 38 98 38 98 30 105 38 2438 540 135 8 8 23 0" 

        setIr $tivoir "Dig3" "0 50 36 0 548 263 38 30 38 30 38 98 38 30 38 30 38 30 38 30 38 23 38 30 38 98 38 30 38 98 38 98 38 98 38 98 38 98 38 98 38 90 38 30 38 30 38 30 38 30 38 30 38 30 38 30 38 30 38 98 30 105 38 98 38 98 30 98 38 98 38 2445 540 128 38 0" 

        setIr $tivoir "Dig4" "0 50 42 0 540 270 38 30 38 23 45 90 45 23 8 8 30 23 45 23 23 8 15 23 45 23 45 23 45 90 45 23 38 98 45 90 38 90 45 90 45 90 38 30 45 23 45 90 30 8 8 23 45 23 45 23 45 23 38 30 45 90 38 98 38 30 30 98 45 90 45 90 38 98 38 98 45 2438 120 8 420 120 45 5723 548 120 45 0" 

        setIr $tivoir "Dig5" "0 50 38 0 8 8 533 263 38 30 45 23 45 90 38 30 38 30 38 23 45 23 45 23 45 23 45 90 45 23 45 90 30 105 38 98 45 90 45 90 38 90 38 30 38 98 45 23 45 23 45 23 45 23 45 23 45 23 45 90 30 8 8 23 45 90 38 90 45 90 38 98 45 90 45 2438 548 120 45 0" 

        setIr $tivoir "Dig6" "0 50 41 0 8 8 75 8 443 270 45 23 45 23 45 90 45 23 45 23 45 23 45 23 38 30 30 30 45 90 45 23 45 90 45 90 45 90 45 90 45 90 38 30 45 90 30 98 45 23 45 23 45 23 45 23 45 23 45 90 45 23 38 30 45 90 45 90 45 90 38 90 30 8 8 90 45 2438 548 128 30 5730 548 128 45 0" 

        setIr $tivoir "Dig7" "0 50 39 0 8 8 533 263 38 30 38 30 38 98 38 30 38 30 38 23 38 30 38 30 38 30 38 98 38 30 38 98 38 98 38 98 38 98 38 98 38 90 38 98 38 98 38 30 38 30 38 30 38 30 38 30 38 30 38 30 30 38 38 98 38 98 38 90 38 98 38 98 38 2445 540 128 38 5730 548 120 38 0" 

        setIr $tivoir "Dig8" "0 50 42 0 518 8 30 255 38 30 38 30 45 90 38 30 45 23 45 23 30 8 8 23 30 38 30 30 45 90 38 30 38 98 38 98 38 98 38 98 38 98 45 23 38 30 30 38 30 98 38 30 45 23 38 30 38 30 38 98 45 90 45 90 38 30 45 90 38 98 38 90 45 90 38 2445 548 120 38 5730 128 8 368 8 30 135 38 0" 

        setIr $tivoir "Dig9" "0 50 42 0 225 8 315 255 38 30 45 23 38 98 38 30 38 30 38 23 38 30 38 30 45 23 38 98 38 30 38 98 30 8 8 90 45 90 45 90 45 90 38 98 30 30 38 30 38 98 38 30 45 23 45 23 45 23 45 23 38 98 45 90 45 23 45 90 38 90 38 98 38 98 38 2445 420 8 113 128 38 5730 218 8 315 128 38 0" 

        setIr $tivoir "Enter" "0 50 42 0 225 8 315 255 38 30 45 23 38 98 38 30 38 30 38 23 38 30 38 30 45 23 38 98 38 30 38" 

    } 

    dbclose $db 

    puts "Finished! You now need to find the SignalSource " 
    puts "code for your set-top box configuration." 
    puts "" 
    puts "You'll need a copy of DBSET, which is available" 
    puts "at http://tivo.samba.org/download/tridge/" 
    puts "" 
    puts "Once you've worked out the SignalSource code for your" 
    puts "configuration, type the following at the BASH prompt:" 
    puts "" 
    puts "dbset <SetupCode>/<SourceCode> CableBoxCodeNum 10001 <ENTER>" 
    puts "" 
    puts "Make sure you substitute your SetupCode and SourceCode values. " 
    puts "Mine looks like this: " 
    puts "" 
    puts "dbset 644358/12 CableBoxCodeNum 10001" 
    puts "" 
}