gforth/arch/r8c/mach.fs - diff

Return to mach.fs CVS log

Up to [gforth] / gforth / arch / r8c

version 1.3, 2006/04/09 19:46:52	version 1.4, 2006/04/17 17:22:38
Line 36 false Constant NIL \ relocating	Line 36 false Constant NIL \ relocating
: asm-include ." Include assembler" cr s" arch/r8c/asm.fs" included ;	: asm-include ." Include assembler" cr s" arch/r8c/asm.fs" included ;
: >boot ." Setup boot parameters" cr	: >boot ." Setup boot parameters" cr
s" include arch/r8c/errors.fs" evaluate	s" include arch/r8c/errors.fs" evaluate
s" >rom $400 constant ram-start $2000 flash-dp !" evaluate	s" >rom $2000 flash-dp !" evaluate
s" unlock" evaluate	s" unlock" evaluate
s" >rom there >ram ram-start there over -" evaluate	s" >rom there >ram ram-start there over -" evaluate
s" >rom there swap dup X allot tcmove" evaluate	s" >rom there swap dup X allot tcmove" evaluate
s" lock" evaluate	s" lock" evaluate
s" Constant ram-mirror $2FFC Constant ram-shadow" evaluate	s" cto ram-mirror" evaluate
s" >ram here ram-start - >rom Constant ram-size" evaluate	s" >ram here ram-start - >rom cto ram-size" evaluate
s" $FF $10000 here - tcallot $C000 $FFFC ! $FF00 $FFFE !" evaluate	s" $FF $10000 here - tcallot $C000 $FFFC ! $FF00 $FFFE !" evaluate
s" ec/shex.fs" included	s" ec/shex.fs" included
s" 0 cpu-start" evaluate	s" 0 cpu-start" evaluate