gforth/kernel.fs - diff

Return to kernel.fs CVS log

Up to [gforth] / gforth

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 ;