izaya
/
collapseos
zrcadlo https://github.com/hsoft/collapseos.git
1
1
Rozštěpit 0
Zdrojový kód Úkoly 0 Vydání 0 Wiki Aktivita
Mirror of CollapseOS
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
1157 Revize
4 Větve
13MB
Strom: 73b6d9905e
Větve Značky
${ item.name }
Vytvořit větev ${ searchTerm }
z „73b6d9905e“
${ noResults }
collapseos/blk/425

12 řádky
244B
Surový Blame Historie 

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

  2.     COMPILE (?br)

  3.     H@              ( push a )

  4.     2 ALLOT         ( br cell allot )

  5. ; IMMEDIATE

  6. 

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

  8.     DUP H@ -^ SWAP   ( a-H a )

  9.     !

  10. ; IMMEDIATE