D2/ D2* D=
D2/
* D2/ ( d1.d1 -- d1.d1' )

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

FORTH/ANS double (dpANS8.6.1.1100) ordinary primitive