1: \ MAIN.FS Kernal main load file 20may93jaw
2:
3: \ : include bl word count included ;
4: \ we want write include...
5:
6: : : ( -- colon-sys ) Header [ ' : @ ] ALiteral cfa, 0 ] ;
7: : ; ( colon-sys -- ) ?struc postpone exit reveal postpone [ ; immediate
8: : :noname ( -- xt colon-sys ) here [ ' : @ ] ALiteral cfa, 0 ] ;
9:
10: include search-order.fs
11:
12: include cross.fs \ include cross-compiler
13:
14: decimal
15:
16: 128 KB makekernal , 0 , 0 , 0 A,
17:
18: UNLOCK ghost - drop \ ghost must exist because - would be treated as number
19: LOCK
20:
21: 0 AConstant forthstart
22:
23: include aliases.fs \ include primitive aliases
24: \ include cond.fs \ conditional compile
25: \ include patches.fs \ include primitive patches
26:
27: include vars.fs \ variables and other stuff
28: include add.fs \ additional things
29: include environ.fs \ create environmental query strings
30: include errore.fs
31: include kernal.fs \ load kernal
32: include extend.fs \ load core-extended
33: include tools.fs \ load tools ( .s dump )
34: \ include words.fs
35: \ include wordinfo.fs
36: \ include see.fs \ load see
37: include toolsext.fs
38: \ include search-order.fs
39:
40: \ Setup 13feb93py
41:
42: here dp !
43: decimal
44:
45: \ 64 KB 0 cells ! \ total Space... defined above!
46: here 1 cells ! \ Size of the system
47: 2 KB 2 cells ! \ Return stack size
48: ' boot >body 3 cells ! \ Entry point
49:
50: UNLOCK Tlast @
51: LOCK
52: 1 cells - dup forth-wordlist ! Last !
53: .unresolved
54:
55: cr cr
56: endian [IF]
57: save-cross kernal.32bimg
58: [ELSE]
59: save-cross kernal.32limg
60: [THEN] cr
61:
62: bye
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>