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 | |
| A-001 45 7 | RCL 7 | Input (x, y). |
| A-002 35 9 | STO 9 | |
| A-003 12 | R↓ | |
| A-004 35 7 | STO 7 | |
| A-005 12 | R↓ | |
| A-006 45 6 | RCL 6 | |
| A-007 35 8 | STO 8 | |
| A-008 12 | R↓ | |
| A-009 35 6 | STO 6 | |
| A-010 61 53 | f RTN | - - - - - - - - - - - - - - - |
| A-011 61 63 1 | f LBL 1 | |
| A-012 45 6 | RCL 6 | Addition. |
| A-013 45 8 | RCL 8 | |
| A-014 59 | + | |
| A-015 14 | PRINT x | |
| A-016 45 7 | RCL 7 | |
| A-017 45 9 | RCL 9 | |
| A-018 59 | + | |
| A-019 14 | PRINT x | |
| A-020 61 14 | f SPACE | |
| A-021 63 9 | GTO 9 | - - - - - - - - - - - - - - - |
| A-022 61 63 2 | f LBL 2 | |
| A-023 45 8 | RCL 8 | Subtraction. |
| A-024 45 6 | RCL 6 | |
| A-025 49 | − | |
| A-026 14 | PRINT x | |
| A-027 45 9 | RCL 9 | |
| A-028 45 7 | RCL 7 | |
| A-029 49 | − | |
| A-030 14 | PRINT x | |
| A-031 61 14 | f SPACE | |
| A-032 61 63 9 | f LBL 9 | |
| A-033 64 | R/S | - - - - - - - - - - - - - - - |
| A-034 11 | x⇔y | Convert from rectangular |
| A-035 62 6 | g →P | to polar. |
| A-036 14 | PRINT x | |
| A-037 11 | x⇔y | |
| A-038 14 | PRINT x | |
| A-039 61 14 | f SPACE | |
| A-040 61 53 | f RTN | |
| A-041 61 63 3 | f LBL 3 | - - - - - - - - - - - - - - - |
| A-042 53 8 | GSB 8 | |
| A-043 14 | PRINT x | Dot product. |
| A-044 61 14 | f SPACE | |
| A-045 61 53 | f RTN | - - - - - - - - - - - - - - - |
| A-046 61 63 4 | f LBL 4 | |
| A-047 53 8 | GSB 8 | Angle between. |
| A-048 45 9 | RCL 9 | |
| A-049 45 8 | RCL 8 | |
| A-050 62 6 | g →P | |
| A-051 11 | x⇔y | |
| A-052 12 | R↓ | |
| A-053 45 7 | RCL 7 | |
| A-054 45 6 | RCL 6 | |
| A-055 62 6 | g →P | |
| A-056 11 | x⇔y | |
| A-057 12 | R↓ | |
| A-058 39 | × | |
| A-059 24 | ÷ | |
| A-060 62 8 | g COS-1 | |
| A-061 14 | PRINT x | |
| A-062 61 14 | f SPACE | |
| A-063 61 53 | f RTN | |
| A-064 61 63 8 | f LBL 8 | - - - - - - - - - - - - - - - |
| A-065 45 6 | RCL 6 | |
| A-066 45 8 | RCL 8 | Subroutine for dot product |
| A-067 39 | × | called from LBL 3 and |
| A-068 45 7 | RCL 7 | LBL 4. |
| A-069 45 9 | RCL 9 | |
| A-070 39 | × | |
| A-071 59 | + | |
| b-000 lbl b | f LBL B | - - - - - - - - - - - - - - - |
| b-001 11 | x⇔y | |
| b-002 61 6 | f →R | Input (r, θ), convert to |
| b-003 11 | x⇔y | (x, y). |
| b-004 63 A | GTO A |
Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall