PFE 0.33.70

generated
(C) Guido U. Draheim
guidod@gmx.de

Double

number + extensions

---

2LITERAL( x1 x2 -- ) immediate  => "[ANS] FORTH"

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)

compiling word = [p4_two_literal]

---

D+( d1.ud1 d2.ud2 -- d3.ud3 )  => "[ANS] FORTH"

the double-cell sum operation ( + )

primitive code = [p4_d_plus]

---

D-  => "[ANS] FORTH"

(no description)

primitive code = [p4_d_minus]

---

D.( d1.d1 -- )  => "[ANS] FORTH"

freefield output for a double-cell number ( => . )

primitive code = [p4_d_dot]

---

D.R( d1.d1 n -- )  => "[ANS] FORTH"

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

primitive code = [p4_d_dot_r]

---

D0<( d1.d1 -- flag )  => "[ANS] FORTH"

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

primitive code = [p4_d_zero_less]

---

D0=( d1.d1 -- flag )  => "[ANS] FORTH"

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

primitive code = [p4_d_zero_equals]

---

D2*( d1.d1 -- d1.d1' )  => "[ANS] FORTH"

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

primitive code = [p4_d_two_star]

---

D2/( d1.d1 -- d1.d1' )  => "[ANS] FORTH"

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

primitive code = [p4_d_two_slash]

---

D<( d1.d1 d2.d2 -- flag )  => "[ANS] FORTH"

the double-cell is-less operation ( < )

primitive code = [p4_d_less]

---

D=( d1.d1 d2.d2 -- flag )  => "[ANS] FORTH"

the double-cell is-equal operation ( = )

primitive code = [p4_d_equals]

---

D>S( d.d -- n )  => "[ANS] FORTH"

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

primitive code = [p4_d_to_s]

---

DABS( d1.d1 -- d1.d1' )  => "[ANS] FORTH"

the double-cell abs operation ( ABS )

primitive code = [p4_d_abs]

---

DMAX( d1.d1 d2.d2 -- d1.d1|d2.d2 )  => "[ANS] FORTH"

the double-cell max operation ( MAX )

primitive code = [p4_d_max]

---

DMIN( d1.d1 d2.d2 -- d1.d1|d2.d2 )  => "[ANS] FORTH"

the double-cell max operation ( MIN )

primitive code = [p4_d_min]

---

DNEGATE( d1.d1 -- d1.d1' )  => "[ANS] FORTH"

the double-cell arithmetic negate operation ( NEGATE )

primitive code = [p4_d_negate]

---

M*/( d1.d1 n1 +n2 -- d2.d2 )  => "[ANS] FORTH"

the double-cell multiply-divide operation using a triple-cell intermediate result for * ( *\/ )

primitive code = [p4_m_star_slash]

---

M+( d1.d1 n1 -- d2.d2 )  => "[ANS] FORTH"

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

primitive code = [p4_m_plus]