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

14 lines
277B
Raw Blame History 

  1. ( At this point, we have something like "0 e1 e2 e3 val". We

  2.   want top drop val, and then call THEN as long as we don't

  3.   hit 0. )

  4. : ENDCASE

  5.     BEGIN

  6.         DUP NOT IF

  7.             DROP COMPILE R> COMPILE DROP EXIT

  8.         THEN

  9.         [COMPILE] THEN

  10.     AGAIN

  11. ; IMMEDIATE

  12.