The Museum of HP Calculators

Kepler's Equation for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Space Science Solution Book. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, 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.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "SPSCI5"
 02 LBL 10
 03 LBL A
 04 1
 05 RCL 21
 06 X^2
 07 RCL 20
 08 *
 09 PI
 10 X^2
 11 4
 12 *
 13 /
 14 X<>Y
 15 3
 16 /
 17 Y^X
 18 STO 00
 19 RCL 22
 20 X<>Y
 21 /
 22 -
 23 STO 22
 24 PI
 25 2
 26 *
 27 RCL 21
 28 /
 29 STO 03
 30 RTN
 31 LBL 11
 32 LBL B
 33 STO 01
 34 1
 35 X<>Y
 36 1
 37 RCL 22
 38 X^2
 39 -
 40 RCL 00
 41 *
 42 X<>Y
 43 COS
 44 RCL 22
 45 *
 46 1
 47 +
 48 /
 49 STO 02
 50 RCL 00
 51 /
 52 -
 53 RCL 22
 54 /
 55 RAD
 56 ACOS
 57 ENTER
 58 ENTER
 59 RCL 01
 60 D-R
 61 PI
 62 X>Y?
 63 GTO 01
 64 GTO 02
 65 LBL 01
 66 RDN
 67 RDN
 68 GTO 03
 69 LBL 03
 70 SIN
 71 RCL 22
 72 *
 73 -
 74 RCL 03
 75 /
 76 PSE
 77 DEG
 78 RCL 24
 79 /
 80 HMS
 81 RCL 23
 82 HMS+
 83 RTN
 84 LBL 02
 85 X<>Y
 86 CLX
 87 2
 88 *
 89 X<>Y
 90 -
 91 ENTER
 92 GTO 03
 93 LBL 12
 94 LBL C
 95 XEQ 11
 96 STO 08
 97 RCL 09
 98 X>Y?
 99 GTO 04
100 GTO 05
101 LBL 04
102 RCL 01
103 RCL 04
104 +
105 GTO 12
106 LBL 05
107 RCL 08
108 RCL 09
109 CHS
110 HMS+
111 ABS
112 RCL 07
113 X<=Y?
114 GTO 06
115 GTO 07
116 LBL 06
117 RCL 01
118 RCL 04
119 -
120 RCL 04
121 5
122 /
123 STO 04
124 +
125 GTO 12
126 LBL 07
127 RCL 02
128 RCL 01
129 RTN
130 LBL 13
131 LBL D
132 2
133 RCL 02
134 /
135 RCL 00
136 1/X
137 -
138 RCL 20
139 *
140 SQRT
141 RTN
142 LBL 14
143 LBL E
144 1
145 RCL 22
146 X^2
147 -
148 RCL 00
149 *
150 RCL 20
151 *
152 SQRT
153 X<>Y
154 RCL 02
155 *
156 /
157 ASIN
158 STOP
159 90
160 X<>Y
161 -
162 RTN
163 STOP
164 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall