gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.146, 2006/04/10 09:23:45	version 1.147, 2006/04/10 09:24:51
Line 1080 has? new-input 0= [IF]	Line 1080 has? new-input 0= [IF]
os-boot	os-boot
[ [THEN] ]	[ [THEN] ]
[ has? rom [IF] ]	[ has? rom [IF] ]
\ ram-shadow dup @ dup -1 <> >r u> r> and IF	ram-shadow dup @ dup -1 <> >r u> r> and IF
\ ram-shadow 2@ ELSE	ram-shadow 2@ ELSE
ram-mirror ram-size ( THEN ) ram-start swap move	ram-mirror ram-size THEN ram-start swap move
[ [THEN] ]	[ [THEN] ]
sp@ sp0 !	sp@ sp0 !
[ has? peephole [IF] ]	[ has? peephole [IF] ]