|
- ( Words here until the end of the low part, unlike words
- preceeding them, aren't immediately needed for boot. But its
- better to have as many words as possible in the xcomp part. )
- : IMMEDIATE
- CURRENT @ 1-
- DUP C@ 128 OR SWAP C! ;
- : IMMED? 1- C@ 0x80 AND ;
- : +! TUCK @ + SWAP ! ;
- : -^ SWAP - ;
- : / /MOD NIP ;
- : MOD /MOD DROP ;
- : ALLOT HERE +! ;
- : CREATE (entry) 11 ( 11 == cellWord ) C, ;
- : VARIABLE CREATE 2 ALLOT ;
- : LEAVE R> R> DROP I 1- >R >R ;
|