blob: 3ae899c2fe071c5650d2b087045bc383ebf9a088 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
\ 7.4.3.5 User commands for booting
: boot ( "{param-text}<cr>" -- )
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
s" platform-boot" $find if
execute
then
(find-bootdevice) \ Setup bootargs
$load \ load and go
go
;
\ : diagnostic-mode? ( -- diag? )
\ ;
\ : diag-switch? ( -- diag? )
\ ;
|
