|
- : 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
- ;
|