mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-28 23:49:15 +11:00
f6ded7712e
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
551 B
Plaintext
17 lines
551 B
Plaintext
The "X:" word
|
|
|
|
Because the ";" word goes back only one level in RSP and
|
|
this limits our ability to separate X: in sub words and this
|
|
means a rather cramped B265. This means no inline comments,
|
|
hence this block here.
|
|
|
|
0x0e is compiledWord. first _find is on xdict. If found, we
|
|
compile it with offsets. We abort on IMMED? because we're
|
|
never supposed to encounter an immediate at this point.
|
|
|
|
If not found, we try the same word on system dict (RAM+02).
|
|
If found and is immediate, execute. If founf and not immediate,
|
|
error. If not found, try number.
|
|
|
|
|