izaya
/
collapseos
огледало од https://github.com/hsoft/collapseos.git
1
1
Креирај огранак 0
Код Дискусије 0 Издања 0 Вики Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1156 Комити
4 Гране
13MB
Дрво: 4e1fe916be
Гране Ознаке
${ item.name }
Create branch ${ searchTerm }
from '4e1fe916be'
${ noResults }
collapseos/blk/393

16 lines
282B
Датотека Blame Историја 

  1. : RAM+ [ RAMSTART LITN ] + ;

  2. : BIN+ [ BIN( @ LITN ] + ;

  3. : HERE 0x04 RAM+ ;

  4. : CURRENT* 0x51 RAM+ ;

  5. : CURRENT CURRENT* @ ;

  6. 

  7. ( w -- a f )

  8. : (find) CURRENT @ SWAP _find ;

  9. 

  10. : QUIT

  11.     (resRS)

  12.     0 0x08 RAM+ !  ( 08 == C<* override )

  13.     LIT< INTERPRET (find) DROP EXECUTE

  14. ;

  15. 1 19 LOADR+