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