The Museum of HP Calculators
This program is Copyright © 2002 by Pascal Fellerich and is used here by permission.
This program is supplied without representation or warranty of any kind. Pascal Fellerich and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
Usage: XEQ E, enter A, R/S, enter B, R/S, enter C, R/S. The roots are returned on the stack. The program will halt with a SQRT(NEG) message if b^2-4ac is negative - so reals only. Written by myself. I tried to optimize the program by using equations for subexpressions, but the result was always larger in size and slower in execution.
E01 LBL E E02 INPUT A E03 INPUT B E04 INPUT C E05 2 E06 STO* A E07 RCL B E08 x^2 E09 2 E10 RCL* A E11 RCL* C E12 - E13 PSE E14 SQRT E15 STO D E16 RCL- B E17 RCL: A E18 RCL D E19 +/- E20 RCL- B E21 RCL: A E22 RTN 33 bytes, CHK=FE13
Go back to the software library
Go back to the main exhibit hall