double header double_misc

"Double number + extensions"

double [ANS]
* 2CONSTANT ( x1 x2 "name" -- )

create a word that contains the specified twocell number in its body.
when the name is executed, these numbers are left on the stack 
   12. 2CONSTANT X .s 
    ok
   X .s
   0 12 ok

FORTH/ANS double (dpANS8.6.1.0360) defining primitive

* 2VARIABLE ( -- )

CREATE a new variable definition. When executed leave
the >BODY address on stack. In pfe, the data area
of a 2VARIABLE is ERASEd initially.

FORTH/ANS double (dpANS8.6.1.0440) defining primitive

* 2LITERAL ( x1 x2 -- ) immediate

compile a double-cell number to the current definition. When
run, the doubele-cell is left on the stack for execution. 
   ( -- x1 x2 )
(in most configurations this word is statesmart and it will do nothing
in interpret-mode. See 2LITERAL, for a non-immediate variant)

FORTH/ANS double (dpANS8.6.1.0390) compiling primitive

* D+ ( d1.ud1 d2.ud2 -- d3.ud3 )

the double-cell sum operation ( + )

FORTH/ANS double (dpANS8.6.1.1040) ordinary primitive

D-

[] no special info, see general notes

FORTH/ANS double (dpANS8.6.1.1050) ordinary primitive

* D. ( d1.d1 -- )

freefield output for a double-cell number ( . )

FORTH/ANS double (dpANS8.6.1.1060) ordinary primitive

* D.R ( d1.d1 n -- )

aligned output for a double-cell number ( .R )

FORTH/ANS double (dpANS8.6.1.1070) ordinary primitive

* D0< ( d1.d1 -- flag )

the double-cell less-than-zero operation ( 0< )

FORTH/ANS double ordinary primitive

* D0= ( d1.d1 -- flag )

the double-cell equal-to-zero operation ( 0= )

FORTH/ANS double (dpANS8.6.1.1080) ordinary primitive

* D2* ( d1.d1 -- d1.d1' )

the double-cell arithmetic shiftleft-by-1 operation ( 2* )

FORTH/ANS double (dpANS8.6.1.1090) ordinary primitive

* D2/ ( d1.d1 -- d1.d1' )

the double-cell arithmetic shiftright-by-1 operation ( 2/ )

FORTH/ANS double (dpANS8.6.1.1100) ordinary primitive

* D< ( d1.d1 d2.d2 -- flag )

the double-cell is-less operation ( < )

FORTH/ANS double ordinary primitive

* D= ( d1.d1 d2.d2 -- flag )

the double-cell is-equal operation ( = )

FORTH/ANS double (dpANS8.6.1.1120) ordinary primitive

* D>S ( d.d -- n )

result is the numeric equivalent of d. If the double number was
greater than what could fit into a single cell number, the
modulo cellsize will be left since the higher-significant bits
are just DROPed

FORTH/ANS double ordinary primitive

* DABS ( d1.d1 -- d1.d1' )

the double-cell abs operation ( ABS )

FORTH/ANS double (dpANS8.6.1.1160) ordinary primitive

* DMAX ( d1.d1 d2.d2 -- d1.d1|d2.d2 )

the double-cell max operation ( MAX )

FORTH/ANS double (dpANS8.6.1.1210) ordinary primitive

* DMIN ( d1.d1 d2.d2 -- d1.d1|d2.d2 )

the double-cell max operation ( MIN )

FORTH/ANS double (dpANS8.6.1.1220) ordinary primitive

* DNEGATE ( d1.d1 -- d1.d1' )

the double-cell arithmetic negate operation ( NEGATE )

FORTH/ANS double (dpANS8.6.1.1230) ordinary primitive

M*/

[] no special info, see general notes

FORTH/ANS double (dpANS8.6.1.1820) ordinary primitive

* M+ ( d1.d1 n1 -- d2.d2 )

the double-cell mixed-operand sum operation ( + / D+ )

FORTH/ANS double (dpANS8.6.1.1830) ordinary primitive

ENVIRONMENT ENVIRONMENT DOUBLE-EXT

[] no special info, see general notes

ENVIRONMENT double ordinary constant

* ENVIRONMENT MAX-D ( -- d.d )

ENVIRONMENT definition to check with ENVIRONMENT?
if the double-cell wordset is present, the signed-max
number is left.

ENVIRONMENT double ordinary primitive

ENVIRONMENT MAX-UD

[] no special info, see general notes

ENVIRONMENT double ordinary primitive