izaya
/
collapseos
kopia lustrzana https://github.com/hsoft/collapseos.git
1
1
Forkuj 0
Kod Zgłoszenia 0 Wydania 0 Wiki Aktywność
Mirror of CollapseOS
Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.
1156 Commity
4 Gałęzie
13MB
Drzewo: 4e1fe916be
Gałęzie Tagi
${ item.name }
Utwórz gałąź ${ searchTerm }
z '4e1fe916be'
${ noResults }
collapseos/blk/425

12 wiersze
244B
Czysty Wina Historia 

  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