mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:28:05 +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
327 B
Plaintext
17 lines
327 B
Plaintext
: X:
|
|
(xentry) [ 0x0e LITN ] C,
|
|
BEGIN WORD
|
|
XCURRENT @ SWAP ( xcur w ) _find ( a f )
|
|
IF ( a )
|
|
DUP IMMED? IF ABORT THEN
|
|
_xapply ,
|
|
ELSE ( w )
|
|
0x02 RAM+ @ SWAP ( cur w ) _find ( a f )
|
|
IF DUP IMMED? NOT IF ABORT THEN EXECUTE
|
|
ELSE (parse) LITN THEN
|
|
THEN
|
|
AGAIN
|
|
;
|
|
|
|
|