izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1188 Commits
4 Branches
13MB
Tree: 74896051bb
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '74896051bb'
${ noResults }
collapseos/blk/412

17 lines
484B
Raw Blame History 

  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 ;