1 \ tag
: misc useful
functions
3 \
Open Firmware Startup
5 \
Copyright (C) 2003 Samuel Rydh
7 \
See the file
"COPYING" for further information about
8 \
the copyright and warranty status
of this
work.
16 : PREPOST-initializer
( xt
-- )
17 PREPOST-list
list-add
,
20 : POST-initializer
( xt
-- )
24 : SYSTEM-initializer
( xt
-- )
25 SYSTEM-list list-add
,
28 : DIAG-initializer
( xt
-- )
33 \
OpenFirmware entrypoint
34 : initialize
-of ( startmem endmem
-- )
37 PREPOST-list begin list-get
while @ execute
repeat
38 POST-list begin list-get
while @ execute
repeat
39 SYSTEM-list begin list-get
while @ execute
repeat
41 \ evaluate
nvramrc script
47 suppress
-banner
? 0= if
53 DIAG-list begin list-get
while @ execute
repeat