1 \ 7.4.3.5 User commands for booting
3 : boot ( "{param-text}<cr>" -- )
6 \ Copy NVRAM parameters from boot-file to bootargs in case any parameters have
7 \ been specified for the platform-specific boot code
8 s" boot-file" $find drop execute
10 " /chosen" (find-dev) if
11 " bootargs" rot (property)
14 \ Execute platform-specific boot code, e.g. kernel
15 s" platform-boot" $find if
19 (find-bootdevice) \ Setup bootargs
25 \ : diagnostic-mode? ( -- diag? )
28 \ : diag-switch? ( -- diag? )