version 1.133, 2006/02/06 11:12:52
|
version 1.134, 2006/02/12 23:45:55
|
Line 1036 has? new-input 0= [IF]
|
Line 1036 has? new-input 0= [IF]
|
[THEN] |
[THEN] |
|
|
: boot ( path n **argv argc -- ) |
: boot ( path n **argv argc -- ) |
|
[ has? no-userspace 0= [IF] ] |
main-task up! |
main-task up! |
|
[ [THEN] ] |
[ has? os [IF] ] |
[ has? os [IF] ] |
os-boot |
os-boot |
[ [THEN] ] |
[ [THEN] ] |
|
[ has? rom [IF] ] |
|
ram-mirror ram-start ram-size move |
|
[ [THEN] ] |
sp@ sp0 ! |
sp@ sp0 ! |
[ has? peephole [IF] ] |
[ has? peephole [IF] ] |
\ only needed for greedy static superinstruction selection |
\ only needed for greedy static superinstruction selection |