mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
a757800a01
git-svn-id: svn://coreboot.org/openbios/openbios-devel@285 f158a5a8-5612-0410-a976-696ce0be7e32
19 lines
320 B
Forth
19 lines
320 B
Forth
\ 7.4.3.5 User commands for booting
|
|
|
|
: boot ( "{param-text}<cr>" -- )
|
|
linefeed parse cr
|
|
s" platform-boot" $find if
|
|
execute
|
|
else
|
|
2drop
|
|
cr ." Booting " type cr
|
|
." ... not supported on this system." cr
|
|
then
|
|
;
|
|
|
|
\ : diagnostic-mode? ( -- diag? )
|
|
\ ;
|
|
|
|
\ : diag-switch? ( -- diag? )
|
|
\ ;
|