blob: 122ab1fa321941b2d1054cae5959880faccda871 (
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
52
53
54
55
56
57
58
59
60
|
\ 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
;
|
