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.