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

the double-cell is-equal operation ( = )

FORTH/ANS double (dpANS8.6.1.1120) ordinary primitive