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! ; |