izaya
/
collapseos
зеркало из https://github.com/hsoft/collapseos.git
1
1
Форкнуть 0
Код Задачи 0 Релизы 0 Вики Активность
Mirror of CollapseOS
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
1157 коммитов
4 Ветки
13MB
Дерево: 73b6d9905e
Ветки Теги
${ item.name }
Создать ветку ${ searchTerm }
из '73b6d9905e'
${ noResults }
collapseos/blk/425

12 строки
244B
Исходник Blame История 

  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