izaya
/
collapseos
miroir de https://github.com/hsoft/collapseos.git
1
1
Bifurcation 0
Code Tickets 0 Versions 0 Wiki Activité
Mirror of CollapseOS
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
1156 Révisions
4 Branches
13MB
Aborescence: 4e1fe916be
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de '4e1fe916be'
${ noResults }
collapseos/blk/425

12 lignes
244B
Brut Annotations Historique 

  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