-- miscellaneous useful extra words for DOUBLE-EXT
Copyright (C) Tektronix, Inc. 1998 - 2001. All rights reserved.
description: Compatiblity with former standards, miscellaneous useful words. ... for DOUBLE-EXT (which is almost complete... just almost)
FORTH
2ROT
( d1,d1 d2,d2 d3,d3 -- d2,d2 d3,d3 d1,d1 )( | ); |
| ; |
the double-cell ROT operation. actively moves six cells, i.e.
( x1 x2 x3 x4 x5 x6 -- x3 x4 x5 x6 x1 x2 )
dpANS 8.6.2.0420 - standard forth word
FORTH
DU<
( d1,d1 d2,d2 -- flag )( | ); |
| ; |
the double-cell unsigned-is-less operation ( U< )
FORTH
LITERAL,
( value -- )();
p4:"literal-comma";
take the value from stack (or cs-stack) and compile a runtime-code and the value as for LITERAL ... this word is never state-smart, it is not immediate, and has therefore no complications with POSTPONE (compare also with COMPILE, to make a call-stub with an exectoken)
FORTH
2LITERAL,
( x1,x2 -- )( | ); |
| ; |
take the double-value from stack (or cs-stack) and compile a runtime-code and the value as for 2LITERAL ... this word is never state-smart, it is not immediate, and has therefore no complications with POSTPONE (compare also with COMPILE, to make a call-stub with an exectoken)