gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.153, 2006/02/18 13:12:52	version 1.154, 2006/02/18 14:54:03
Line 1771 Ghost state drop	Line 1771 Ghost state drop
?DO dup T c@ H I T c! H 1+	?DO dup T c@ H I T c! H 1+
tchar +LOOP drop ;	tchar +LOOP drop ;

	: tcallot ( char size -- )
	0 ?DO dup T c, H tchar +LOOP drop ;

: td, ( d -- )	: td, ( d -- )
\G Store a host value as one cell into the target	\G Store a host value as one cell into the target
there tcell X allot TD! ;	there tcell X allot TD! ;