Initial import of qemu-2.4.1HEADmaster

1 files changed, 51 insertions, 0 deletions

diff --git a/roms/openbios/forth/admin/help.fs b/roms/openbios/forth/admin/help.fs
new file mode 100644
index 00000000..e6e624b2
--- /dev/null
+++ b/roms/openbios/forth/admin/help.fs
@@ -0,0 +1,51 @@
+\ tag: firmware help
+\ 
+\ this code implements IEEE 1275-1994 ch. 7.4.1
+\ 
+\ Copyright (C) 2003 Stefan Reinauer
+\ 
+\ See the file "COPYING" for further information about
+\ the copyright and warranty status of this work.
+\ 
+
+hex 
+
+: (help-generic)
+  ." Enter 'help command-name' or 'help category-name' for more help" cr
+  ." (Use ONLY the first word of a category description)" cr
+  ." Examples: help select -or- help line" cr cr
+  ." Categories:" cr
+  ."   boot (Load and execute a client program)" cr
+  ."   diag (Diagnostic routines)" cr
+  ;
+
+: (help-diag)
+  ." test <device>  Run the selftest method for specified device" cr
+  ." test-all       Execute test for all devices using selftest method" cr
+  ;
+  
+: (help-boot)
+  ." boot [<device-specifier>:<device-arguments>] [boot-arguments]" cr
+  ." Examples:" cr
+  ." boot             Default boot (values specified in nvram variables)" cr
+  ." boot disk1:a     Boot from disk1 partition a" cr
+  ." boot hd:1,\boot\vmlinuz root=/dev/hda1" cr
+  ;
+  
+: help ( "{name}<cr>" -- )
+  \ Provide information for category or specific command.
+  linefeed parse cr
+  dup 0= if 
+    (help-generic)
+    2drop
+  else
+    2dup " diag" rot min comp not if
+      (help-diag) 2drop exit
+    then
+    2dup " boot" rot min comp not if
+      (help-boot) 2drop exit
+    then
+    ." No help available for " type cr
+  then
+  ;
+