pfe-double-misc-ext
Prev? | pfe Forth Wordset List | ?Next

## 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.

Prev? | Up | ?Next
pfe-double-ext? | Home | ?pfe-dstrings-ext