blob: f8072ccab9716ef72cb00408a090b3da11928159 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
source ../../external/mambo/skiboot.tcl
proc console_trigger {response args} {
array set triginfo $args
set sim $triginfo(sim)
$sim trigger clear console $triginfo(match)
puts "console trigger: putting $response to console"
$sim console create input in string $response
}
mysim trigger set console "Welcome to Petitboot" { console_trigger "x" }
mysim trigger set console "# " { console_trigger "halt\n" }
mysim go
mysim memory fwrite 0x30000000 0x300000 $env(SKIBOOT_MEM_DUMP)
exit
|
