mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 10:58:08 +11:00
17 lines
418 B
Plaintext
17 lines
418 B
Plaintext
|
XCURRENT @ ( to PSP )
|
||
|
|
: :
|
||
|
|
(entry)
|
||
|
|
( We cannot use LITN as IMMEDIATE because of bootstrapping
|
||
|
|
issues. Same thing for ",".
|
||
|
|
32 == NUMBER 14 == compiledWord )
|
||
|
|
[ 32 H@ ! 2 ALLOT 14 H@ ! 2 ALLOT ] C,
|
||
|
|
BEGIN
|
||
|
|
WORD
|
||
|
|
(find)
|
||
|
|
( is word )
|
||
|
|
IF DUP IMMED? IF EXECUTE ELSE , THEN
|
||
|
|
( maybe number )
|
||
|
|
ELSE (parse) LITN THEN
|
||
|
|
AGAIN ;
|
||
|
|
( from PSP ) ';' SWAP 4 - C!
|