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

13 lines
324B
Raw Blame History 

  1. : IF ( -- a | a: br cell addr )

  2.     COMPILE (?br) H@ 2 ALLOT ( br cell allot )

  3. ; IMMEDIATE

  4. : THEN ( a -- | a: br cell addr )

  5.     DUP H@ -^ _bchk SWAP ( a-H a ) !

  6. ; IMMEDIATE

  7. : ELSE ( a1 -- a2 | a1: IF cell a2: ELSE cell )

  8.     COMPILE (br)

  9.     2 ALLOT

  10.     [COMPILE] THEN

  11.     H@ 2- ( push a. -2 for allot offset )

  12. ; IMMEDIATE