Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.148, 2004/12/31 13:23:56 | version 1.149, 2005/08/21 22:09:14 |
---|---|
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 -- ) |