* D= ( d1.d1 d2.d2 -- flag ) the double-cell is-equal operation ( = )
D=
( d1.d1 d2.d2 -- flag )
=
FORTH/ANS double (dpANS8.6.1.1120) ordinary primitive