Name

pfe-double-misc-ext ? DOUBLE-Misc Compatibility words

Synopsis

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];
?

Description

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.