2006-04-26 15:08:19 +00:00
|
|
|
\ 7.4.3.5 User commands for booting
|
|
|
|
|
|
2010-08-01 15:13:48 +00:00
|
|
|
: boot ( "{param-text}<cr>" -- )
|
2010-08-21 10:21:01 +00:00
|
|
|
linefeed parse
|
|
|
|
|
|
|
|
|
|
\ Copy NVRAM parameters from boot-file to bootargs in case any parameters have
|
|
|
|
|
\ been specified for the platform-specific boot code
|
|
|
|
|
s" boot-file" $find drop execute
|
|
|
|
|
encode-string
|
|
|
|
|
" /chosen" (find-dev) if
|
|
|
|
|
" bootargs" rot (property)
|
|
|
|
|
then
|
|
|
|
|
|
|
|
|
|
\ Execute platform-specific boot code, e.g. kernel
|
2006-04-26 15:08:19 +00:00
|
|
|
s" platform-boot" $find if
|
2010-08-21 10:21:01 +00:00
|
|
|
execute
|
2006-04-26 15:08:19 +00:00
|
|
|
then
|
2010-08-21 10:21:01 +00:00
|
|
|
|
|
|
|
|
(encode-bootpath) \ Setup bootpath/bootargs
|
2010-08-01 15:13:48 +00:00
|
|
|
$load \ load and go
|
|
|
|
|
go
|
2006-04-26 15:08:19 +00:00
|
|
|
;
|
|
|
|
|
|
2010-08-01 15:13:48 +00:00
|
|
|
|
2006-04-26 15:08:19 +00:00
|
|
|
\ : diagnostic-mode? ( -- diag? )
|
|
|
|
|
\ ;
|
|
|
|
|
|
|
|
|
|
\ : diag-switch? ( -- diag? )
|
|
|
|
|
\ ;
|
