52 lines
1.3 KiB
Forth
52 lines
1.3 KiB
Forth
|
\ 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
|
||
|
|
;
|
||
|
|
|