blob: 9aabfa2c40270f6d53c7a83eade71cf236f1cb98 (
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
61
62
63
64
65
66
67
68
69
|
\ tag: forth bootstrap starter.
\
\ Copyright (C) 2003 Patrick Mauritz, Stefan Reinauer
\
\ See the file "COPYING" for further information about
\ the copyright and warranty status of this work.
\
include bootstrap.fs \ all base words
include interpreter.fs \ interpreter
include builtin.fs \ builtin terminal.
: include ( >filename<eol> -- )
linefeed parse $include
;
: encode-file ( >filename< > -- dictptr size )
parse-word $encode-file
;
: bye
s" Farewell!" cr type cr cr
0 rdepth!
;
\ quit starts the outer interpreter of the forth system.
\ zech describes quit as being the outer interpreter, but
\ we split it apart to keep the interpreter elsewhere.
: quit ( -- )
2 rdepth!
outer-interpreter
;
\ initialize is the first forth word run by the kernel.
\ this word is automatically executed by the C core on start
\ and it's never left unless something goes really wrong or
\ the user decides to leave the engine.
variable init-chain
\ :noname <definition> ; initializer
: initializer ( xt -- )
here swap , 0 , \ xt, next
init-chain
begin dup @ while @ na1+ repeat
!
;
: initialize-forth ( startmem endmem -- )
over - init-mem
init-pockets
init-tmp-comp
init-builtin-terminal
init-chain @ \ execute initializers
begin dup while
dup @ execute
na1+ @
repeat
drop
;
\ compiler entrypoint
: initialize ( startmem endmem -- )
initialize-forth
s" OpenBIOS kernel started." type cr
quit
;
|
