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 | Input a↑b |
| A-001 45 3 | RCL 3 | |
| A-002 35 1 | STO 1 | Last b → R1 (b1) |
| A-003 12 | R↓ | |
| A-004 35 3 | STO 3 | Present b → R3 (b2) |
| A-005 12 | R↓ | Last a → R0 (a1) |
| A-006 45 2 | RCL 2 | |
| A-007 35 0 | STO 0 | Present a → R2 (a2) |
| A-008 12 | R↓ | |
| A-009 35 2 | STO 2 | |
| A-010 61 53 | f RTN | - - - - - - - - - - - - - - - - - - - - |
| A-011 61 63 1 | f LBL 1 | |
| A-012 45 0 | RCL 0 | Add (+) |
| A-013 35 59 2 | STO + 2 | |
| A-014 45 2 | RCL 2 | |
| A-015 14 | PRINT x | a2 ← a1 + a2 |
| A-016 45 1 | RCL 1 | |
| A-017 35 59 3 | STO + 3 | |
| A-018 45 3 | RCL 3 | |
| A-019 14 | PRINT x | b2 ← b1 + b2 |
| A-020 61 14 | f SPACE | |
| A-021 61 53 | f RTN | - - - - - - - - - - - - - - - - - - - - |
| A-022 61 63 2 | f LBL 2 | Subtract (−) |
| A-023 45 0 | RCL 0 | |
| A-024 45 2 | RCL 2 | |
| A-025 49 | − | |
| A-026 35 2 | STO 2 | a2 ← a1 − a2 |
| A-027 14 | PRINT x | |
| A-028 45 1 | RCL 1 | b2 ← b1 − b2 |
| A-029 45 3 | RCL 3 | |
| A-030 49 | − | |
| A-031 35 3 | STO 3 | |
| A-032 14 | PRINT x | |
| A-033 61 14 | f SPACE | |
| A-034 61 53 | f RTN | - - - - - - - - - - - - - - - - - - - - |
| A-035 61 63 3 | f LBL 3 | Multiply (×) |
| A-036 45 1 | RCL 1 | |
| A-037 45 0 | RCL 0 | |
| A-038 62 6 | g →P | |
| A-039 45 3 | RCL 3 | r1 θ1 |
| A-040 45 2 | RCL 2 | |
| A-041 62 6 | g →P | r2 θ2 r1 θ1 |
| A-042 63 0 | GTO 0 | - - - - - - - - - - - - - - - - - - - - |
| A-043 61 63 4 | f LBL 4 | Divide (÷) |
| A-044 45 1 | RCL 1 | |
| A-045 45 0 | RCL 0 | |
| A-046 62 6 | g →P | r1 θ1 |
| A-047 45 3 | RCL 3 | |
| A-048 45 2 | RCL 2 | |
| A-049 62 6 | g →P | r2 θ2 r1 θ1 |
| A-050 11 | x⇔y | |
| A-051 22 | CHS | |
| A-052 11 | x⇔y | |
| A-053 44 | 1/x | 1/r2 − θ2 r1 θ1 |
| A-054 61 63 0 | f LBL 0 | - - - - - - - - - - - - - - - - - - - - |
| A-055 11 | x⇔y | |
| A-056 13 | R↑ | |
| A-057 59 | + | |
| A-058 11 | x⇔y | |
| A-059 13 | R↑ | |
| A-060 39 | × | r1 r2 (θ1 + θ2) |
| A-061 61 63 9 | f LBL 9 | - - - - - - - - - - - - - - - - - - - - |
| A-062 61 6 | f →R | Output routine |
| A-063 35 2 | STO 2 | |
| A-064 14 | PRINT x | |
| A-065 11 | x⇔y | |
| A-066 35 3 | STO 3 | |
| A-067 14 | PRINT x | |
| A-068 61 14 | f SPACE | |
| A-069 61 53 | f RTN | - - - - - - - - - - - - - - - - - - - - |
| A-070 61 63 5 | f LBL 5 | 1/z |
| A-071 45 3 | RCL 3 | |
| A-072 45 2 | RCL 2 | |
| A-073 62 6 | g →P | r θ |
| A-074 11 | x⇔y | |
| A-075 22 | CHS | |
| A-076 11 | x⇔y | |
| A-077 44 | 1/x | 1/r − θ |
| A-078 63 9 | GTO 9 | - - - - - - - - - - - - - - - - - - - - |
| A-079 61 63 6 | f LBL 6 | |
| A-080 35 52 | STO I | zn |
| A-081 45 3 | RCL 3 | |
| A-082 45 2 | RCL 2 | |
| A-083 62 6 | g →P | r θ |
| A-084 52 | I | |
| A-085 43 | yx | |
| A-086 11 | x⇔y | |
| A-087 52 | I | |
| A-088 39 | × | |
| A-089 11 | x⇔y | rn nθ |
| A-090 63 9 | GTO 9 | - - - - - - - - - - - - - - - - - - - - |
| A-091 61 63 7 | f LBL 7 | z1/n |
| A-092 35 52 | STO I | |
| A-093 1 | 1 | |
| A-094 22 | CHS | |
| A-095 62 8 | g COS-1 | Compute 360/n |
| A-096 21 | ENTER ↑ | (or 2π/n or 400/n) |
| A-097 59 | + | |
| A-098 11 | x⇔y | |
| A-099 24 | ÷ | |
| A-100 35 4 | STO 4 | |
| A-101 45 3 | RCL 3 | |
| A-102 45 2 | RCL 2 | |
| A-103 62 6 | g →P | r θ |
| A-104 52 | I | |
| A-105 44 | 1/x | |
| A-106 43 | yx | |
| A-107 11 | x⇔y | |
| A-108 52 | I | |
| A-109 24 | ÷ | |
| A-110 11 | x⇔y | r1/n θ/n |
| A-111 61 63 8 | f LBL 8 | - - - - - - - - - - - - - - - - - - - - |
| A-112 53 9 | GSB 9 | Convert →R and print |
| A-113 62 52 | g DSZ | |
| A-114 63 0 | GTO 0 | |
| A-115 61 53 | f RTN | Loop n times |
| A-116 61 63 0 | f LBL 0 | |
| A-117 11 | x⇔y | |
| A-118 62 6 | g →P | Back →P (r1/n, θ/n) |
| A-119 11 | x⇔y | |
| A-120 45 4 | RCL 4 | |
| A-121 59 | + | θ/n + (360/n)k |
| A-122 11 | x⇔y | |
| A-123 63 8 | GTO 8 |
Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall