gforth/kernel.fs - diff

Return to kernel.fs CVS log

Up to [gforth] / gforth

version 1.6, 1996/10/02 09:48:58	version 1.7, 1996/10/03 16:05:35
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 ! save-mem pathstring 2! main-task up!	argc ! argv ! 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 ;