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.
1582 Commits
4 Branches
13MB
Tree: 705d68deec
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '705d68deec'
${ noResults }
collapseos/blk/383

16 lines
548B
Raw Blame History 

  1. : INTERPRET

  2.     BEGIN

  3.     WORD DUP @ 0x0401 = ( EOT ) IF DROP EXIT THEN

  4.     FIND NOT IF (parse) ELSE EXECUTE THEN

  5.     C<? NOT IF SPC LIT" ok" (print) NL THEN

  6.     AGAIN ;

  7. ( Read from BOOT C< PTR and inc it. )

  8. : (boot<)

  9.     ( 2e == BOOT C< PTR )

  10.     0x2e ( BOOT C< PTR ) RAM+ @ DUP C@ ( a c )

  11.     SWAP 1 + 0x2e RAM+ ! ( c ) ;

  12. ( pre-comment for tight LOAD: The 0x08==I check after INTERPRET

  13.   is to check whether we're restoring to "_", the word above.

  14.   if yes, then we're in a nested load. Also, the 1 in 0x06 is

  15.   to avoid tons of "ok" displays. )