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.
1411 Révisions
4 Branches
13MB
Aborescence: 49d7a7f435
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de '49d7a7f435'
${ noResults }
collapseos/blk/353

17 lignes
495B
Brut Annotations Historique 

  1. : RAM+ [ RAMSTART LITN ] + ; : BIN+ [ BIN( @ LITN ] + ;

  2. : HERE 0x04 RAM+ ;

  3. : CURRENT* 0x51 RAM+ ; : CURRENT CURRENT* @ ;

  4. : H@ HERE @ ;

  5. : FIND ( w -- a f ) CURRENT @ SWAP _find ;

  6. : IN> 0x30 RAM+ ; ( current position in INBUF )

  7. : IN( 0x32 RAM+ @ ; ( points to INBUF )

  8. : IN) 0x40 ( buffer size ) IN( + ; ( INBUF's end )

  9. : (infl) 0 IN( DUP IN> ! ! ; ( flush input buffer )

  10. : QUIT

  11.     (resRS) 0 0x08 RAM+ ! ( C<* override ) (infl)

  12.     LIT< (main) FIND DROP EXECUTE

  13. ;

  14. 1 25 LOADR+ ( xcomp core low )

  15.