izaya
/
collapseos
réplica de https://github.com/hsoft/collapseos.git
1
1
Fork 0
Código Incidencias 0 Lanzamientos 0 Wiki Actividad
Mirror of CollapseOS
No puede seleccionar más de 25 temas Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.
1156 Commits
4 Ramas
13MB
Árbol: 4e1fe916be
Ramas Etiquetas
${ item.name }
Crear rama ${ searchTerm }
desde '4e1fe916be'
${ noResults }
collapseos/blk/425

12 líneas
244B
Original Blame 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