collapseos/blk/265

16 lines
391 B
Plaintext
Raw Normal View History

2020-04-22 10:30:14 +10:00
: X:
(xentry) 1 ( compiled ) C,
BEGIN
WORD DUP LIT" ;" S= IF
DROP LIT" EXIT" XFIND , EXIT THEN
2020-04-22 10:30:14 +10:00
XCURRENT @ SWAP ( xcur w ) _find ( a f )
IF ( a )
DUP IMMED? IF ABORT THEN
_xapply ,
2020-04-22 10:30:14 +10:00
ELSE ( w )
0x02 RAM+ @ SWAP ( cur w ) _find ( a f )
IF DUP IMMED? NOT IF ABORT THEN EXECUTE
2020-09-20 09:44:15 +10:00
ELSE (parse) XLITN THEN
2020-04-22 10:30:14 +10:00
THEN
AGAIN ;