* D2* ( d1.d1 -- d1.d1' ) the double-cell arithmetic shiftleft-by-1 operation ( 2* )
D2*
( d1.d1 -- d1.d1' )
2*
double ordinary primitive