blob: e6e624b2aeb69c76e3332d67afeb5ec537d33756 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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
;
|
