aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/dict/nrww.inc
blob: b46c3079c6dc7bb8f135ace289209c844c3f240a (plain)
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
; this part of the dictionay has to fit into the nrww flash
; section together with the forth inner interpreter

.include "words/exit.asm"
.include "words/execute.asm"
.include "words/dobranch.asm"
.include "words/docondbranch.asm"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.include "words/doliteral.asm"
.include "words/dovariable.asm"
.include "words/doconstant.asm"
.include "words/douser.asm"
.include "words/do-value.asm"
.include "words/fetch.asm"
.include "words/store.asm"
.include "words/cstore.asm"
.include "words/cfetch.asm"
.include "words/fetch-u.asm"
.include "words/store-u.asm"

;;;;;;;;;;;;;;;;;;;;;;;;;
.include "words/dup.asm"
.include "words/qdup.asm"
.include "words/swap.asm"
.include "words/over.asm"
.include "words/drop.asm"
.include "words/rot.asm"
.include "words/nip.asm"
;;;;;;;;;;;;;;;;;;;;;;;;;
.include "words/r_from.asm"
.include "words/to_r.asm"
.include "words/r_fetch.asm"


.include "words/not-equal.asm"
.include "words/equalzero.asm"
.include "words/lesszero.asm"
.include "words/greaterzero.asm"
.include "words/d-greaterzero.asm"
.include "words/d-lesszero.asm"

.include "words/true.asm"
.include "words/zero.asm"
.include "words/uless.asm"
.include "words/u-greater.asm"
.include "words/less.asm"
.include "words/greater.asm"

.include "words/log2.asm"
.include "words/minus.asm"
.include "words/plus.asm"
.include "words/mstar.asm"
.include "words/umslashmod.asm"
.include "words/umstar.asm"

.include "words/invert.asm"
.include "words/2slash.asm"
.include "words/2star.asm"
.include "words/and.asm"
.include "words/or.asm"
.include "words/xor.asm"

.include "words/1plus.asm"
.include "words/1minus.asm"
.include "words/q-negate.asm"
.include "words/lshift.asm"
.include "words/rshift.asm"
.include "words/plusstore.asm"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.include "words/rpfetch.asm"
.include "words/rpstore.asm"
.include "words/spfetch.asm"
.include "words/spstore.asm"

.include "words/dodo.asm"
.include "words/i.asm"
.include "words/doplusloop.asm"
.include "words/doloop.asm"
.include "words/unloop.asm"

;;;;;;;;;;;;;;;;;;;;;;;;;;;

.include "words/cmove_g.asm"
.include "words/byteswap.asm"
.include "words/up.asm"
.include "words/1ms.asm"
.include "words/2to_r.asm"
.include "words/2r_from.asm"

.include "words/store-e.asm"
.include "words/fetch-e.asm"
.include "words/store-i.asm"
.if FLASHEND > $10000
  .include "words/store-i_big.asm"
.else
  .include "words/store-i_nrww.asm"
.endif
.include "words/fetch-i.asm"

.if AMFORTH_NRWW_SIZE>8000
.include "dict/core_8k.inc"
.elif AMFORTH_NRWW_SIZE>4000
.include "dict/core_4k.inc"
.elif AMFORTH_NRWW_SIZE>2000
.include "dict/core_2k.inc"
.else
.error "AMFORTH_NRWW_SIZE too small, cannot continue"
.endif
; now colon words
;;;;;;;;;;;;;;;;;;;;;;;;
.include "words/2literal.asm"
.include "words/equal.asm"
.include "words/num-constants.asm"