File:
[gforth] /
gforth /
Attic /
main.fs
Revision
1.12:
download - view:
text,
annotated -
select for diffs
Fri Sep 9 16:27:21 1994 UTC (29 years, 7 months ago) by
anton
Branches:
MAIN
CVS tags:
HEAD
made declaring explicit register variables available for all machines
in machine.h; threw out such hacks in engine.c for the 386.
renamed endian to bigendian
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: [IFUNDEF] vocabulary include search-order.fs [THEN]
11:
12: include cross.fs \ include cross-compiler
13:
14: decimal
15:
16: 256 KB makekernal , 0 , 0 , 0 A, 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 errore.fs
30: include kernal.fs \ load kernal
31: include extend.fs \ load core-extended
32: include tools.fs \ load tools ( .s dump )
33: \ include words.fs
34: \ include wordinfo.fs
35: \ include see.fs \ load see
36: include toolsext.fs
37: \ include search-order.fs
38:
39: \ Setup 13feb93py
40:
41: here normal-dp !
42: tudp H @ minimal udp !
43: decimal
44:
45: \ 64 KB 0 cells ! \ total Space... defined above!
46: here 1 cells ! \ Size of the system
47: 16 KB 2 cells ! \ Return and fp 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: bigendian [IF]
57: save-cross kernl32b.fi
58: [ELSE]
59: save-cross kernl32l.fi
60: [THEN] cr
61:
62: bye
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>