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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
\ MAIN.FS Kernel main load file 20may93jaw
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2008 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation, either version 3
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program. If not, see http://www.gnu.org/licenses/.
Create mach-file here over 1+ allot place
0 [IF]
\ debugging: produce a relocation and a symbol table
s" rel-table" r/w create-file throw
Constant fd-relocation-table
\ debuggging: produce a symbol table
s" sym-table" r/w create-file throw
Constant fd-symbol-table
[THEN]
bl word vocabulary find nip 0= [IF]
\ if search order stuff is missing assume we are compiling on a gforth
\ system and include it.
\ We want the files taken from our current gforth installation
\ so we don't include relatively to this file
require ./../startup.fs
[THEN]
\ include etags.fs
include ./../cross.fs \ cross-compiler
decimal
has? rom 0= [IF]
has? kernel-start has? kernel-size makekernel
[THEN]
\ create image-header
has? header [IF]
here 1802 over
A, \ base address
0 , \ checksum
0 , \ image size (without tags)
has? kernel-size
, \ dict size
has? stack-size , \ data stack size
has? fstack-size , \ FP stack size
has? rstack-size , \ return stack size
has? lstack-size , \ locals stack size
0 A, \ code entry point
0 A, \ throw entry point
has? stack-size , \ unused (possibly tib stack size)
0 , \ unused
0 , \ data stack base
0 , \ fp stack base
0 , \ return stack base
0 , \ locals stack base
[THEN]
doc-off
has? prims [IF]
include ./aliases.fs \ primitive aliases
[ELSE]
prims-include
undef-words
include prim.fs
all-words
[THEN]
doc-on
has? header [IF]
1802 <> [IF] .s cr .( header start address expected!) cr uffz [THEN]
AConstant image-header
: forthstart image-header @ ;
[THEN]
\ 0 AConstant forthstart
\ include ./vars.fs \ variables and other stuff
\ include kernel/version.fs \ is in $(build)/kernel
include ./kernel.fs \ kernel
\ include ./errore.fs
include ./doers.fs
has? file [IF]
include ./args.fs
include ./files.fs \ file words
include ./paths.fs
include ./require.fs
[THEN]
has? compiler [IF]
has? glocals [IF]
include ./cond.fs \ IF and co.
[ELSE]
include ./cond-old.fs \ IF and co. withoutlocals
[THEN]
\ these two games can be added to provide complex examples for the 4stack
\ and misc simulators (see arch/4stack/README and arch/misc/README).
has? games [IF]
include arch/misc/tt.fs
include arch/misc/sokoban.fs
[THEN]
[THEN]
include ./quotes.fs
has? ec 0= [IF]
include ./toolsext.fs
[THEN]
include ./tools.fs \ load tools ( .s dump )
include ./getdoers.fs
\ Setup 13feb93py
include ./pass.fs \ pass pointers from cross to target
has? header [IF]
\ set image size
here image-header 2 cells + !
\ set image entry point
' boot >body image-header 8 cells + A!
[ELSE]
>boot
[THEN]
.unresolved \ how did we do?
|
