-# Compilation
-
-CREATE = defPrimWord("CREATE", () -> begin
-
- wordLen = popPS()
- wordAddr = popPS()
- word = getString(wordAddr, wordLen)
-
- createHeader(word, 0)
-
- return NEXT
-end)
-
-COMMA = defPrimWord(",", () -> begin
- mem[mem[HERE]] = popPS()
- mem[HERE] += 1
-
- return NEXT
-end)
-
-LBRAC = defPrimWord("[", () -> begin
- mem[STATE] = 0
- return NEXT
-end, flags=F_IMMED)
-
-RBRAC = defPrimWord("]", () -> begin
- mem[STATE] = 1
- return NEXT
-end, flags=F_IMMED)
-
-HIDDEN = defPrimWord("HIDDEN", () -> begin
- addr = popPS() + 1
- mem[addr] = mem[addr] $ F_HIDDEN
- return NEXT
-end)
-
-HIDE = defWord("HIDE",
- [WORD,
- FIND,
- HIDDEN,
- EXIT])
-
-COLON = defWord(":",
- [WORD,
- CREATE,
- LIT, DOCOL, COMMA,
- LATEST_CFA, FETCH, HIDDEN,
- RBRAC,
- EXIT])
-
-SEMICOLON = defWord(";",
- [LIT, EXIT, COMMA,
- LATEST_CFA, FETCH, HIDDEN,
- LBRAC,
- EXIT], flags=F_IMMED)
-
-IMMEDIATE = defPrimWord("IMMEDIATE", () -> begin
- lenAndFlagsAddr = mem[LATEST] + 1
- mem[lenAndFlagsAddr] = mem[lenAndFlagsAddr] $ F_IMMED
- return NEXT
-end, flags=F_IMMED)
-
-TICK = defWord("'",
- [STATE_CFA, FETCH, ZBRANCH, 7,
- FROMR, DUP, INCR, TOR, FETCH, EXIT,
- WORD, FIND, TOCFA, EXIT])
-