qemu/roms/openbios/forth/admin/userboot.fs

   1 \ 7.4.3.5 User commands for booting
   2
   3 : boot          ( "{param-text}<cr>" -- )
   4   linefeed parse
   5
   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
   9   encode-string
  10   " /chosen" (find-dev) if
  11     " bootargs" rot (property)
  12   then
  13
  14   \ Execute platform-specific boot code, e.g. kernel
  15   s" platform-boot" $find if
  16     execute
  17   then
  18
  19   (find-bootdevice)     \ Setup bootargs
  20   $load                 \ load and go
  21   go
  22 ;
  23
  24
  25 \ : diagnostic-mode?    ( -- diag? )
  26 \   ;
  27
  28 \ : diag-switch?    ( -- diag? )
  29 \   ;