gforth/arch/r8c/prim.fs - diff

Return to prim.fs CVS log

Up to [gforth] / gforth / arch / r8c

version 1.14, 2006/02/25 22:38:22	version 1.15, 2006/02/26 17:23:46
Line 65 end-macros	Line 65 end-macros
\ ==============================================================	\ ==============================================================
Label into-forth	Label into-forth
# $ffff , ip mov.w:g \ ip will be patched	# $ffff , ip mov.w:g \ ip will be patched
# $0700 , sp ldc \ sp at $0600...$0700	# $0780 , sp ldc \ sp at $0600...$0700
# $07FE , rp mov.w:g \ rp at $0700...$07FE	# $07FE , rp mov.w:g \ rp at $0700...$07FE
# $0F , $E3 mov.b:g	# $0F , $E3 mov.b:g
# $0F , $E1 mov.b:g	# $0F , $E1 mov.b:g
Line 571 end-code	Line 571 end-code

: bye ( -- ) 0 (bye) ;	: bye ( -- ) 0 (bye) ;

: compile-prim1 ;
: finish-code ;
: x@+/string ( addr u -- addr' u' c )	: x@+/string ( addr u -- addr' u' c )
over c@ >r 1 /string r> ;	over c@ >r 1 /string r> ;