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.
1534 Commits
4 Branches
13MB
Tree: a348ee9106
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'a348ee9106'
${ noResults }
collapseos/blk/369

14 lines
286B
Raw Blame History 

  1. : IMMEDIATE

  2.     CURRENT @ 1-

  3.     DUP C@ 128 OR SWAP C! ;

  4. : IMMED? 1- C@ 0x80 AND ;

  5. : '? WORD FIND ;

  6. : ' '? NOT IF (wnf) THEN ;

  7. : ROLL

  8.     ?DUP NOT IF EXIT THEN

  9.     1+ DUP PICK          ( n val )

  10.     SWAP 2 * (roll)      ( val )

  11.     NIP ;

  12. : 2OVER 3 PICK 3 PICK ;

  13. : 2SWAP 3 ROLL 3 ROLL ;