The Museum of HP CalculatorsThis program is Copyright © 1977 by Hewlett-Packard Company and is used here by permission. It was originally printed in the HP-95C Applications book. This program was entered by André Wilhelmus and the curator added comments from the HP manual.
This program is supplied without representation or warranty of any kind. André Wilhelmus, Hewlett-Packard 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.
| CODE | KEYS | |
|---|---|---|
| A-000 lbl A | f LBL A | xb → xB |
| A-001 35 3 | STO 3 | |
| A-002 45 1 | RCL 1 | |
| A-003 35 5 | STO 5 | |
| A-004 45 2 | RCL 2 | |
| A-005 35 6 | STO 6 | |
| A-006 0 | 0 | |
| A-007 35 0 | STO 0 | |
| A-008 35 4 | STO 4 | |
| A-009 23 | EEX | |
| A-010 1 | 1 | |
| A-011 2 | 2 | |
| A-012 35 8 | STO 8 | |
| A-013 45 3 | RCL 3 | - - - - - - - - - - - - - - - - - - - - |
| A-014 61 63 9 | f LBL 9 | Shift right until < 1. |
| A-015 1 | 1 | |
| A-016 61 44 | f x>y | R0 keeps track of no. places |
| A-017 63 8 | GTO 8 | shifted (exponent). |
| A-018 35 59 0 | STO + 0 | |
| A-019 55 | CL X | |
| A-020 45 6 | RCL 6 | |
| A-021 24 | ÷ | |
| A-022 35 3 | STO 3 | |
| A-023 63 9 | GTO 9 | - - - - - - - - - - - - - - - - - - - - |
| A-024 61 63 8 | f LBL 8 | On entry R3 contains |
| A-025 45 6 | RCL 6 | normalized |
| A-026 45 3 | RCL 3 | |
| A-027 39 | × | |
| A-028 35 3 | STO 3 | xb: 0 < xb < 1. |
| A-029 53 7 | GSB 7 | |
| A-030 45 4 | RCL 4 | |
| A-031 45 5 | RCL 5 | Build up xB. |
| A-032 39 | × | |
| A-033 59 | + | |
| A-034 35 4 | STO 4 | |
| A-035 45 3 | RCL 3 | |
| A-036 53 7 | GSB 7 | |
| A-037 45 3 | RCL 3 | |
| A-038 49 | − | |
| A-039 61 2 | f ABS | Do not build mantissa |
| A-040 35 3 | STO 3 | beyond 1012. |
| A-041 1 | 1 | |
| A-042 35 49 0 | STO − 0 | |
| A-043 45 4 | RCL 4 | |
| A-044 45 8 | RCL 8 | |
| A-045 61 43 | f x≤y | |
| A-046 63 3 | GTO 3 | - - - - - - - - - - - - - - - - - - - - |
| A-047 45 3 | RCL 3 | |
| A-048 62 42 | g x≠0 | |
| A-049 63 8 | GTO 8 | |
| A-050 61 63 3 | f LBL 3 | |
| A-051 45 5 | RCL 5 | |
| A-052 45 0 | RCL 0 | |
| A-053 43 | yx | |
| A-054 45 4 | RCL 4 | |
| A-055 39 | × | |
| A-056 35 4 | STO 4 | xB |
| A-057 61 53 | f RTN | - - - - - - - - - - - - - - - - - - - - |
| A-058 61 63 7 | f LBL 7 | |
| A-059 23 | EEX | |
| A-060 2 | 2 | |
| A-061 59 | + | Eliminate |
| A-062 23 | EEX | round-off error |
| A-063 2 | 2 | |
| A-064 49 | − | |
| A-065 61 1 | f INT |
Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall