- 232107688985724EB11A113032DA3F2F4888FE06058AB0ABFE8DC7C330F2D699122BE8B0106DE69A8B2728DFE4B28078153A4AF77686834F71291ED7366E7F3D
+ F614BFF382BD7805F2C3510E3D9A5564A153786B3DBE322456C022EC5B4B9DBAE202D27504CE213CBC2DA9F311FE668164A1D0A6CE34F77A831D716A22236ABD
ffa/ffacalc/ffa_calc.adb
(380 . 11)(380 . 11)
5 -- Multiply, give bottom and top halves
6 when '*' =>
7 Want(2);
8 -- Ch5: slow and simple 'Egyptological' method:
9 FZ_Mul_Egyptian(X => Stack(SP - 1),
10 Y => Stack(SP),
11 XY_Lo => Stack(SP - 1),
12 XY_Hi => Stack(SP));
13 -- Ch9: Comba's algorithm
14 FZ_Mul_Comba(X => Stack(SP - 1),
15 Y => Stack(SP),
16 XY_Lo => Stack(SP - 1),
17 XY_Hi => Stack(SP));
18
19 -- Modular Multiplication
20 when 'M' =>