izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki 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.
1415 Commits
4 Branches
13MB
Tree: 7eeec67ff5
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '7eeec67ff5'
${ noResults }
collapseos/blk/353

15 lines
493B
Raw Blame History 

  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 )