1 \ tag: forth bootstrap starter.
3 \ Copyright (C) 2003 Patrick Mauritz, Stefan Reinauer
5 \ See the file "COPYING" for further information about
6 \ the copyright and warranty status of this work.
9 include bootstrap.fs \ all base words
10 include interpreter.fs \ interpreter
11 include builtin.fs \ builtin terminal.
13 : include ( >filename<eol> -- )
14 linefeed parse $include
17 : encode-file ( >filename< > -- dictptr size )
18 parse-word $encode-file
22 s" Farewell!" cr type cr cr
26 \ quit starts the outer interpreter of the forth system.
27 \ zech describes quit as being the outer interpreter, but
28 \ we split it apart to keep the interpreter elsewhere.
35 \ initialize is the first forth word run by the kernel.
36 \ this word is automatically executed by the C core on start
37 \ and it's never left unless something goes really wrong or
38 \ the user decides to leave the engine.
42 \ :noname <definition> ; initializer
43 : initializer ( xt -- )
44 here swap , 0 , \ xt, next
46 begin dup @ while @ na1+ repeat
50 : initialize-forth ( startmem endmem -- )
56 init-chain @ \ execute initializers
65 : initialize ( startmem endmem -- )
67 s" OpenBIOS kernel started." type cr