version 1.5, 1996/10/01 16:25:59
|
version 1.6, 1996/10/02 09:48:58
|
Line 1729 Variable argc
|
Line 1729 Variable argc
|
\ addr1 u1 is a path string, addr2 u2 is an array of dir strings |
\ addr1 u1 is a path string, addr2 u2 is an array of dir strings |
align here >r |
align here >r |
BEGIN |
BEGIN |
over >r [char] : scan |
over >r 0 scan |
over r> tuck - ( rest-str this-str ) |
over r> tuck - ( rest-str this-str ) |
dup |
dup |
IF |
IF |
Line 1811 Defer 'cold ' noop IS 'cold
|
Line 1811 Defer 'cold ' noop IS 'cold
|
." Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA." cr ; |
." Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA." cr ; |
|
|
: boot ( path **argv argc -- ) |
: boot ( path **argv argc -- ) |
argc ! argv ! cstring>sstring save-mem pathstring 2! main-task up! |
argc ! argv ! save-mem pathstring 2! main-task up! |
sp@ dup s0 ! $10 + dup >tib ! tibstack ! #tib off >in off |
sp@ dup s0 ! $10 + dup >tib ! tibstack ! #tib off >in off |
rp@ r0 ! fp@ f0 ! ['] cold catch DoError bye ; |
rp@ r0 ! fp@ f0 ! ['] cold catch DoError bye ; |
|
|