openbios/forth/admin/userboot.fs at 75a471e6c5bc37d9f151dafda24f06c14dab7a68 - openbios - Gitea: Git with a cup of tea

Virtualization/openbios

mirror of https://gitlab.com/qemu-project/openbios.git synced 2024-02-13 08:34:06 +08:00

Files

Stefan Reinauer 5c9eb9b45b initial import of openbios--main--1.0--patch-26

git-svn-id: svn://coreboot.org/openbios/openbios-devel@1 f158a5a8-5612-0410-a976-696ce0be7e32

2006-04-26 15:08:19 +00:00

21 lines

322 B

Forth

Raw Blame History

 \ 7.4.3.5 User commands for booting
 : boot    ( "{param-text}<cr>" -- )
   linefeed parse cr
   s" platform-boot" $find if
     execute
   else
 drop
     cr ." Booting " type cr
     ."   ... not supported on this system." cr
   then
 ;
 \ : diagnostic-mode?    ( -- diag? )
 \   ;
 \ : diag-switch?    ( -- diag? )
 \   ;