mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
5c9eb9b45b
git-svn-id: svn://coreboot.org/openbios/openbios-devel@1 f158a5a8-5612-0410-a976-696ce0be7e32
61 lines
1.0 KiB
Forth
61 lines
1.0 KiB
Forth
\ tag: misc useful functions
|
|
\
|
|
\ Open Firmware Startup
|
|
\
|
|
\ Copyright (C) 2003 Samuel Rydh
|
|
\
|
|
\ See the file "COPYING" for further information about
|
|
\ the copyright and warranty status of this work.
|
|
\
|
|
|
|
variable PREPOST-list
|
|
variable POST-list
|
|
variable SYSTEM-list
|
|
variable DIAG-list
|
|
|
|
: PREPOST-initializer ( xt -- )
|
|
PREPOST-list list-add ,
|
|
;
|
|
|
|
: POST-initializer ( xt -- )
|
|
POST-list list-add ,
|
|
;
|
|
|
|
: SYSTEM-initializer ( xt -- )
|
|
SYSTEM-list list-add ,
|
|
;
|
|
|
|
: DIAG-initializer ( xt -- )
|
|
DIAG-list list-add ,
|
|
;
|
|
|
|
|
|
\ OpenFirmware entrypoint
|
|
: initialize-of ( startmem endmem -- )
|
|
initialize-forth
|
|
|
|
PREPOST-list begin list-get while @ execute repeat
|
|
POST-list begin list-get while @ execute repeat
|
|
SYSTEM-list begin list-get while @ execute repeat
|
|
|
|
\ evaluate nvramrc script
|
|
use-nvramrc? if
|
|
nvramrc evaluate
|
|
then
|
|
|
|
\ probe-all etc.
|
|
suppress-banner? 0= if
|
|
probe-all
|
|
install-console
|
|
banner
|
|
then
|
|
|
|
DIAG-list begin list-get while @ execute repeat
|
|
|
|
auto-boot? if
|
|
boot-command evaluate
|
|
then
|
|
|
|
outer-interpreter
|
|
;
|