aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/itc430hilvl.asm
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2017-08-19 12:15:28 +0200
committerDimitri Sokolyuk <demon@dim13.org>2017-08-19 12:15:28 +0200
commit67d25d837ac55f28a366c0a3b262e439a6e75fc3 (patch)
treedf7715c7724c5935ab87c807f3b8b4ef529315e3 /amforth-6.5/msp430/itc430hilvl.asm
parente0d6784e89dba33226c0edb815bb974486fa7c48 (diff)
Add AmForth
Diffstat (limited to 'amforth-6.5/msp430/itc430hilvl.asm')
-rw-r--r--amforth-6.5/msp430/itc430hilvl.asm226
1 files changed, 226 insertions, 0 deletions
diff --git a/amforth-6.5/msp430/itc430hilvl.asm b/amforth-6.5/msp430/itc430hilvl.asm
new file mode 100644
index 0000000..36f46e6
--- /dev/null
+++ b/amforth-6.5/msp430/itc430hilvl.asm
@@ -0,0 +1,226 @@
+; ----------------------------------------------------------------------
+; most highlevel words for the core system.
+
+; INPUT/OUTPUT ==================================
+.include "words/cr.asm"
+.include "words/space.asm"
+.include "words/spaces.asm"
+.include "words/umin.asm"
+.include "words/umax.asm"
+.include "words/accept.asm"
+.include "words/type.asm"
+
+; SYSTEM VARIABLES & CONSTANTS ==================
+
+.include "words/a-to-info.asm"
+.include "words/to-in.asm"
+.include "words/base.asm"
+.include "words/state.asm"
+.include "words/dp.asm"
+.include "words/get-current.asm"
+.include "words/hld.asm"
+.include "words/lp.asm"
+.include "words/idp.asm"
+.include "words/newest.asm"
+.include "words/latest.asm"
+.include "words/allot.asm"
+
+.include "words/pad.asm"
+.include "words/l-0.asm"
+.include "words/r-0.asm"
+.include "words/s-0.asm"
+.include "words/tib.asm"
+.include "words/bl.asm"
+.include "words/to-upper.asm"
+.include "words/uinit.asm"
+
+; ARITHMETIC OPERATORS ==========================
+.include "words/s-to-d.asm"
+.include "words/q-negate.asm"
+.include "words/abs.asm"
+.include "words/dnegate.asm"
+.include "words/q-dnegate.asm"
+.include "words/dabs.asm"
+.include "words/m-star.asm"
+.include "words/sm-rem.asm"
+.include "words/fm-mod.asm"
+.include "words/star.asm"
+.include "words/slash-mod.asm"
+.include "words/slash.asm"
+.include "words/mod.asm"
+.include "words/max.asm"
+.include "words/min.asm"
+
+; DOUBLE OPERATORS ==============================
+.include "words/2drop.asm"
+.include "words/2dup.asm"
+.include "words/2swap.asm"
+
+
+; HARVARD MODEL EXTENSIONS (split Code & Data)
+.include "words/icount.asm"
+.include "words/itype.asm"
+.include "words/do-squote.asm"
+.include "words/squote.asm"
+.include "words/dot-quote.asm"
+.include "words/sliteral.asm"
+.include "words/2literal.asm"
+.include "words/i-fetch.asm"
+.include "words/ic-fetch.asm"
+; NUMERIC OUTPUT ================================
+.include "words/ud-slash-mod.asm"
+.include "words/ud-star.asm"
+.include "words/hold.asm"
+.include "words/less-sharp.asm"
+.include "words/sharp.asm"
+.include "words/sharp-s.asm"
+.include "words/sharp-greater.asm"
+.include "words/sign.asm"
+.include "words/u-dot.asm"
+.include "words/dot.asm"
+.include "words/decimal.asm"
+.include "words/hex.asm"
+.include "words/bounds.asm"
+.include "words/pick.asm"
+
+; DICTIONARY MANAGEMENT =========================
+.include "words/here.asm"
+.include "words/comma.asm"
+.include "words/c-comma.asm"
+.include "words/i-here.asm"
+.include "words/i-allot.asm"
+
+; INTERPRETER ===================================
+.include "words/source.asm"
+.include "words/slash-string.asm"
+.include "words/parse.asm"
+.include "words/nfa-to-lfa.asm"
+.include "words/nfa-to-cfa.asm"
+.include "words/name2flags.asm"
+.include "words/immediate-q.asm"
+.include "words/find-xt.asm"
+.include "words/literal.asm"
+.include "words/digit-q.asm"
+.include "words/q-sign.asm"
+.include "words/set-base.asm"
+.include "words/to-number.asm"
+.include "words/number.asm"
+.include "words/forth-recognizer.asm"
+.include "words/interpret.asm"
+.include "words/prompt-ok.asm"
+.include "words/prompt-ready.asm"
+.include "words/prompt-error.asm"
+.include "words/refill.asm"
+.include "words/quit.asm"
+.include "words/abort.asm"
+.include "words/q-abort.asm"
+.include "words/abort-string.asm"
+.include "words/tick.asm"
+.include "words/char.asm"
+.include "words/bracketchar.asm"
+.include "words/l-paren.asm"
+
+; COMPILER ======================================
+.include "words/header.asm"
+.include "words/create.asm"
+.include "words/do-create.asm"
+.include "words/wlscope.asm"
+.include "words/does.asm"
+.include "words/recurse.asm"
+.include "words/left-bracket.asm"
+.include "words/right-bracket.asm"
+.include "words/reveal.asm"
+.include "words/colon.asm"
+.include "words/colon-noname.asm"
+.include "words/semicolon.asm"
+.include "words/brackettick.asm"
+.include "words/postpone.asm"
+.include "words/i-cellplus.asm"
+.include "words/immediate.asm"
+
+; EXCEPTIONS ======================
+.include "words/catch.asm"
+.include "words/handler.asm"
+.include "words/throw.asm"
+
+; CONTROL STRUCTURES ============================
+.include "words/g-resolve.asm"
+.include "words/g-mark.asm"
+.include "words/l-resolve.asm"
+.include "words/l-mark.asm"
+.include "words/compile.asm"
+
+.include "words/ahead.asm"
+.include "words/if.asm"
+.include "words/then.asm"
+.include "words/else.asm"
+.include "words/begin.asm"
+.include "words/until.asm"
+.include "words/again.asm"
+.include "words/while.asm"
+.include "words/repeat.asm"
+.include "words/to-l.asm"
+.include "words/l-from.asm"
+.include "words/do.asm"
+.include "words/qdo.asm"
+.include "words/endloop.asm"
+.include "words/loop.asm"
+.include "words/plusloop.asm"
+.include "words/leave.asm"
+
+; OTHER OPERATIONS ==============================
+.include "words/within.asm"
+.include "words/depth.asm"
+
+; UTILITY WORDS AND STARTUP =====================
+.include "words/words.asm"
+.include "words/traverse-wordlist.asm"
+.include "words/name2string.asm"
+.include "words/show-wordlist.asm"
+.include "words/u-dot-r.asm"
+.include "words/ud-dot.asm"
+.include "words/ud-dot-r.asm"
+.include "words/dot-r.asm"
+.include "words/d-dot.asm"
+.include "words/d-dot-r.asm"
+.include "words/cold.asm"
+.include "words/pause.asm"
+.include "words/warm.asm"
+.include "words/applturnkey.asm" ; from application!
+.include "words/environment.asm"
+.include "words/env-mcu-info.asm"
+.include "words/env-cpu.asm"
+.include "words/env-forthname.asm"
+.include "words/env-forthversion.asm"
+.include "words/ver.asm"
+.include "words/f_cpu.asm"
+.include "words/q-stack.asm"
+
+.include "words/backslash.asm"
+.include "words/parse-name.asm"
+.include "words/map-stack.asm"
+.include "words/recognize.asm"
+.include "words/dt-null.asm"
+.include "words/rec-find.asm"
+.include "words/rec-intnum.asm"
+
+.include "words/scomma.asm"
+.include "words/compare.asm"
+.include "words/search-wordlist.asm"
+.include "words/num-constants.asm"
+
+.include "words/do-defer.asm"
+.include "words/do-value.asm"
+.include "words/turnkey.asm"
+.include "words/to.asm"
+.include "words/defer-fetch.asm"
+.include "words/defer-store.asm"
+.include "words/noop.asm"
+.include "words/rdefer-fetch.asm"
+.include "words/rdefer-store.asm"
+.include "words/udefer-fetch.asm"
+.include "words/udefer-store.asm"
+.include "words/emit.asm"
+.include "words/emitq.asm"
+.include "words/key.asm"
+.include "words/keyq.asm"