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: tudp H @ minimal udp !
44: decimal
45:
46: \ 64 KB 0 cells ! \ total Space... defined above!
47: here 1 cells ! \ Size of the system
48: 2 KB 2 cells ! \ Return stack size
49: ' boot >body 3 cells ! \ Entry point
50:
51: UNLOCK Tlast @
52: LOCK
53: 1 cells - dup forth-wordlist ! Last !
54: .unresolved
55:
56: cr cr
57: endian [IF]
58: save-cross kernal.32bimg
59: [ELSE]
60: save-cross kernal.32limg
61: [THEN] cr
62:
63: bye
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>