Add qemu 2.4.0

[kvmfornfv.git] / qemu / roms / openbios / forth / admin / userboot.fs

diff --git a/qemu/roms/openbios/forth/admin/userboot.fs b/qemu/roms/openbios/forth/admin/userboot.fs
new file mode 100644 (file)
index 0000000..3ae899c
--- /dev/null
+++ b/qemu/roms/openbios/forth/admin/userboot.fs
@@ -0,0 +1,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? )
+\   ;