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]