izaya
/
collapseos
espelhamento de https://github.com/hsoft/collapseos.git
1
1
Fork 0
Código Issues 0 Versões 0 Wiki Atividade
Mirror of CollapseOS
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
1157 Commits
4 Branches
13MB
Tag: 73b6d9905e
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de 73b6d9905e
${ noResults }
collapseos/blk/425

12 linhas
244B
Original Anotar Histórico 

  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