izaya
/
collapseos
Mirror von https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Aktivität
Mirror of CollapseOS
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
1156 Commits
4 Branches
13MB
Struktur: 4e1fe916be
Branches Tags
${ item.name }
Erstelle Branch ${ searchTerm }
von „4e1fe916be“
${ noResults }
collapseos/blk/393

16 Zeilen
282B
Originalformat Blame Verlauf 

  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+