collapseos/blk/369

16 lines
459 B
Plaintext
Raw Normal View History

( 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 ;
2020-05-22 14:17:38 -04:00
: +! TUCK @ + SWAP ! ;
: -^ SWAP - ;
2020-05-22 14:03:12 -04:00
: / /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 ;