The Museum of HP Calculators

Delta-V Orbit Simulator for the HP-41C/CV/CX

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 "ORBIT"
 02 SF 21
 03 SF 27
 04 LBL A
 05 CF 22
 06 "MASS ?"
 07 PROMPT
 08 6.6732 E-11
 09 *
 10 FS?C 22
 11 STO 04
 12 "INIT. "
 13 ASTO 05
 14 "R ?"
 15 PROMPT
 16 FS?C 22
 17 STO 00
 18 CLA
 19 ARCL 05
 20 " ?"  ;"\7F\0D ?"
 21 PROMPT
 22 FS?C 22
 23 STO 01
 24 CLA
 25 ARCL 05
 26 "V ?"
 27 PROMPT
 28 FS?C 22
 29 STO 02
 30 CLA
 31 ARCL 05
 32 "V ?"  ;"\7FV\0D ?"
 33 PROMPT
 34 FS?C 22
 35 STO 03
 36 XEQ 51
 37 GTO 09
 38 LBL B
 39 "E="
 40 ARCL 08
 41 AVIEW
 42 "P="  ;"\0DP="
 43 ARCL 10
 44 RCL 10
 45 AVIEW
 46 RCL 08
 47 1
 48 +
 49 1/X
 50 RCL 09
 51 *
 52 STO 05
 53 "RMIN="
 54 ARCL 05
 55 AVIEW
 56 RCL 08
 57 ENTER
 58 FRC
 59 X#Y?
 60 GTO 01
 61 RCL 09
 62 1
 63 RCL 08
 64 X=0?
 65 GTO 03
 66 "ELLIPSE"
 67 AVIEW
 68 X^2
 69 -
 70 /
 71 ENTER
 72 "A="
 73 ARCL X
 74 AVIEW
 75 LASTX
 76 SQRT
 77 *
 78 "B="
 79 ARCL X
 80 AVIEW
 81 RDN
 82 GTO 00
 83 LBL 03
 84 "CIRCLE"
 85 AVIEW
 86 "R="
 87 ARCL 05
 88 RCL 05
 89 AVIEW
 90 LBL 00
 91 3
 92 Y^X
 93 RCL 04
 94 /
 95 SQRT
 96 2
 97 *
 98 PI
 99 *
100 3600
101 /
102 "T="
103 ARCL X
104 AVIEW
105 STOP
106 GTO B
107 LBL 01
108 RCL 05
109 1
110 RCL 08
111 1/X
112 -
113 X#0?
114 GTO 00
115 "PARABOLA"
116 AVIEW
117 STOP
118 GTO B
119 LBL 00
120 "HYPERBOLA"
121 AVIEW
122 /
123 "S="
124 ARCL X
125 AVIEW
126 RCL 08
127 1/X
128 ACOS
129 "A="  ;"\0DA="
130 ARCL X
131 AVIEW
132 STOP
133 GTO B
134 LBL C
135 STO 01
136 RCL 10
137 -
138 COS
139 RCL 08
140 *
141 1
142 +
143 RCL 09
144 /
145 1/X
146 STO 00
147 RCL 04
148 X<>Y
149 /
150 RCL 06
151 +
152 2
153 *
154 SQRT
155 STO 02
156 RCL 07
157 RCL 00
158 RCL 02
159 *
160 /
161 INT
162 X=0?
163 LASTX
164 ASIN
165 RCL 07
166 RCL 01
167 RCL 10
168 -
169 SIN
170 *
171 X>0?
172 GTO 00
173 CLX
174 180
175 -
176 CHS
177 R^
178 LBL 00
179 RDN
180 RCL 01
181 +
182 XEQ 50
183 STO 03
184 GTO 09
185 LBL D
186 P-R
187 RCL 03
188 RCL 02
189 P-R
190 ST+ Z
191 RDN
192 ST+ Z
193 RDN
194 R-P
195 STO 02
196 RDN
197 XEQ 50
198 STO 03
199 XEQ 51
200 LBL 09
201 "R="
202 ARCL 00
203 AVIEW
204 "="  ;"\0D="
205 ARCL 01
206 AVIEW
207 "V="
208 ARCL 02
209 AVIEW
210 "V="  ;"V\0D="
211 ARCL 03
212 AVIEW
213 STOP
214 GTO 09
215 LBL 50
216 1
217 P-R
218 R-P
219 RDN
220 X#0?
221 X>0?
222 RTN
223 360
224 +
225 RTN
226 LBL 51
227 RCL 02
228 X^2
229 2
230 /
231 RCL 04
232 RCL 00
233 /
234 -
235 STO 06
236 RCL 03
237 RCL 01
238 -
239 SIN
240 RCL 00
241 *
242 RCL 02
243 *
244 STO 07
245 X^2
246 2
247 *
248 RCL 06
249 *
250 RCL 04
251 X^2
252 /
253 1
254 +
255 SQRT
256 STO 08
257 RCL 01
258 RCL 07
259 X^2
260 RCL 04
261 /
262 STO 09
263 RCL 00
264 /
265 1
266 -
267 RCL 08
268 /
269 INT
270 X#0?
271 GTO 00
272 CLX
273 LASTX
274 LBL 00
275 ACOS
276 RCL 03
277 RCL 01
278 -
279 COS
280 LASTX
281 SIN
282 *
283 X<0?
284 GTO 00
285 RDN
286 CHS
287 R^
288 LBL 00
289 RDN
290 +
291 XEQ 50
292 STO 10
293 END

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