mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-30 23:28:06 +11:00
12 lines
253 B
Plaintext
12 lines
253 B
Plaintext
|
( system c< simply reads source from binary, starting at
|
||
|
|
LATEST. Convenient way to bootstrap a new system. )
|
||
|
|
: (boot<)
|
||
|
|
( 2e == BOOT C< PTR )
|
||
|
|
0x2e RAM+ @ ( a )
|
||
|
|
DUP C@ ( a c )
|
||
|
|
SWAP 1 + ( c a+1 )
|
||
|
|
0x2e RAM+ ! ( c )
|
||
|
|
;
|
||
|
|
|
||
|
|
|