pfe-double-misc-ext ? DOUBLE-Misc Compatibility words
2ROT ( d1,d1 d2,d2 d3,d3 -- d2,d2 d3,d3 d1,d1 ) ?=>? ( | ); | ? |
[FORTH];DU< ( d1,d1 d2,d2 -- flag ) ?=>? ( | ); | ? |
[FORTH];LITERAL, ( value -- ) ?=>? ( | ); | ? |
[FORTH];2LITERAL, ( x1,x2 -- ) ?=>? ( | ); | ? |
[FORTH];DCELLS ( x -- x' ) ?=>? ( | ); | ? |
[FORTH];DLSHIFT ( x1,x2 y -- z1,z2 ) ?=>? ( | ); | ? |
[FORTH];DRSHIFT ( x1,x2 y -- z1,z2 ) ?=>? ( | ); | ? |
[FORTH];
2ROT ( d1,d1 d2,d2 d3,d3 -- d2,d2 d3,d3 d1,d1 ) => [FORTH]
the double-cell ROT operation.
actively moves six cells, i.e.
( x1 x2 x3 x4 x5 x6 -- x3 x4 x5 x6 x1 x2 )
DU< ( d1,d1 d2,d2 -- flag ) => [FORTH]
the double-cell unsigned-is-less operation ( U< )
LITERAL, ( value -- ) => [FORTH]
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)
2LITERAL, ( x1,x2 -- ) => [FORTH]
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)
DCELLS ( x -- x' ) => [FORTH]
computes the number of address units for the specified number of double-cells
: DCELLS CELLS 2* ;
DLSHIFT ( x1,x2 y -- z1,z2 ) => [FORTH]
shift-left a double-cell value. The shift-count is given as a single-cell.
DRSHIFT ( x1,x2 y -- z1,z2 ) => [FORTH]
shift-right a double-cell value. The shift-count is given as a single-cell. This is an arithmetic shift as for a signed double-cell value.