Mirror of CollapseOS
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

17 lignes
484B

  1. ( Words here until the end of the low part, unlike words
  2. preceeding them, aren't immediately needed for boot. But its
  3. better to have as many words as possible in the xcomp part. )
  4. : H@ HERE @ ;
  5. : IMMEDIATE
  6. CURRENT @ 1-
  7. DUP C@ 128 OR SWAP C! ;
  8. : IMMED? 1- C@ 0x80 AND ;
  9. : +! SWAP OVER @ + SWAP ! ;
  10. : -^ SWAP - ;
  11. : / /MOD SWAP DROP ;
  12. : MOD /MOD DROP ;
  13. : ALLOT HERE +! ;
  14. : CREATE (entry) 11 ( 11 == cellWord ) C, ;
  15. : VARIABLE CREATE 2 ALLOT ;
  16. : LEAVE R> R> DROP I 1- >R >R ;