D0= D0< D2*
D0=
* D0= ( d1.d1 -- flag )

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

FORTH/ANS double (dpANS8.6.1.1080) ordinary primitive