gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.148, 2004/12/31 13:23:56	version 1.150, 2005/12/31 15:46:08
Line 1	Line 1
\ CROSS.FS The Cross-Compiler 06oct92py	\ CROSS.FS The Cross-Compiler 06oct92py
\ Idea and implementation: Bernd Paysan (py)	\ Idea and implementation: Bernd Paysan (py)

\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2004,2005 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 1762 Ghost state drop	Line 1762 Ghost state drop

: count dup X c@ swap X char+ swap ;	: count dup X c@ swap X char+ swap ;

: on -1 -1 rot TD! ;	: on >r -1 -1 r> TD! ;
: off T 0 swap ! H ;	: off T 0 swap ! H ;

: tcmove ( source dest len -- )	: tcmove ( source dest len -- )