FP_MUL_D
FP_MUL_D(DR, DA, DB);
FP_MUL_D(T, A, C);
FP_MUL_D(T, A, C);
FP_MUL_D(T, A, C);
FP_MUL_D(T, A, C);
FP_MUL_D(R, A, B);
FP_MUL_D(R, A, B);
FP_MUL_D(T, A, C);
FP_MUL_D(T, A, C);
FP_MUL_D(T, A, C);
FP_MUL_D(T, A, C);
FP_MUL_D(DR, DA, DB);
case FMULD: FP_MUL_D (DR, DA, DB); break;
case FMULD: FP_MUL_D (DR, DA, DB); break;