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

16 lines
369B
Raw Blame History 

  1. : BOOT

  2.     0x02 RAM+ CURRENT* !

  3.     LIT< (parse) (find) DROP (parse*) !

  4.     ( 2e == SYSTEM SCRATCHPAD )

  5.     CURRENT @ 0x2e RAM+ !

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

  7.     ( 0c == C<* )

  8.     LIT< (boot<) (find) DROP 0x0c RAM+ !

  9.     ( boot< always has a char waiting. 06 == C<?* )

  10.     1 0x06 RAM+ !

  11.     LIT< INIT (find)

  12.     IF EXECUTE

  13.     ELSE DROP INTERPRET THEN

  14. ;