The Museum of HP Calculators

Aniseikonia 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 01
 02 90
 03 GTO 06
 04 LBL 02
 05 45
 06 GTO 06
 07 LBL "ANSK"
 08 " SPECT. MAG."
 09 AVIEW
 10 PSE
 11 "%RT^ %LFT^ "  ;"%RT^ %LFT^ \0D"
 12 PROMPT
 13 3.5
 14 *
 15 STO 00
 16 RDN
 17 STO 01
 18 RDN
 19 STO 02
 20 R^
 21 X<>Y
 22 -
 23 STO 03
 24 X^2
 25 RCL 00
 26 X^2
 27 +
 28 SQRT
 29 STO 04
 30 RCL 00
 31 X=0?
 32 GTO 01
 33 RCL 03
 34 X=0?
 35 GTO 02
 36 /
 37 STO 05
 38 X>0?
 39 GTO 03
 40 RCL 00
 41 X>0?
 42 GTO 04
 43 360
 44 GTO 05
 45 LBL 03
 46 0
 47 RCL 00
 48 X>Y?
 49 GTO 05
 50 LBL 04
 51 180
 52 LBL 05
 53 RCL 05
 54 ATAN
 55 +
 56 2
 57 /
 58 LBL 06
 59 STO 06
 60 RCL 02
 61 RCL 01
 62 RCL 00
 63 3.5
 64 /
 65 ADV
 66 RCL 06
 67 90
 68 X<=Y?
 69 GTO 07
 70 +
 71 STO 07
 72 GTO 08
 73 LBL 07
 74 -
 75 STO 07
 76 LBL 08
 77 RCL 01
 78 RCL 02
 79 +
 80 RCL 04
 81 +
 82 2
 83 /
 84 STO 08
 85 XEQ 11
 86 RCL 06
 87 XEQ 12
 88 RCL 01
 89 RCL 02
 90 +
 91 RCL 04
 92 -
 93 2
 94 /
 95 STO 09
 96 XEQ 11
 97 RCL 07
 98 XEQ 12
 99 GTO 13
100 LBL 12
101 FIX 00
102 CLA
103 ARCL X
104 " DEG."
105 AVIEW
106 STOP
107 RTN
108 LBL 11
109 FIX 02
110 CLA
111 ARCL X
112 " %"
113 AVIEW
114 STOP
115 RTN
116 LBL 13
117 "KEY RX, OD"
118 AVIEW
119 PSE
120 XEQ 09
121 RCL Z
122 STO 00
123 RCL Z
124 STO 01
125 RCL Z
126 STO 02
127 "KEY RX, OS"
128 AVIEW
129 PSE
130 XEQ 09
131 RCL Z
132 STO 03
133 RCL Z
134 STO 04
135 RCL Z
136 STO 05
137 "KEY OU DATA"
138 AVIEW
139 PSE
140 "FS^ N^ DIST"
141 PROMPT
142 RCL Z
143  E3
144 /
145 STO 10
146 RCL Z
147 STO 11
148 RCL Z
149  E3
150 /
151 STO 12
152 "KEY OD DATA"
153 AVIEW
154 PSE
155 XEQ 00
156 RCL Z
157 STO 13
158 RCL Z
159 STO 14
160 RCL Z
161  E3
162 /
163 STO 15
164 "KEY OS DATA"
165 AVIEW
166 PSE
167 XEQ 00
168 RCL Z
169 STO 17
170 RCL Z
171 STO 18
172 RCL Z
173  E3
174 /
175 STO 19
176 GTO 20
177 LBL 09
178 "SPH^ CYL^ AX"
179 PROMPT
180 RTN
181 LBL 00
182 "PCA^ PFS^ T"
183 PROMPT
184 RTN
185 LBL 20
186 " %"
187 ASTO 16
188 " DEG."
189 ASTO 26
190 RCL 13
191 RCL 14
192 X>Y?
193 GTO 03
194 -
195 180
196 STO 24
197 RCL 02
198 -
199 SIN
200 X^2
201 *
202 RCL 13
203 X<>Y
204 -
205 STO 25
206 XEQ 04
207 GTO 02
208 LBL 03
209 X<>Y
210 -
211 RCL 24
212 RCL 12
213 -
214 SIN
215 X^2
216 *
217 RCL 03
218 +
219 STO 25
220 XEQ 04
221 LBL 02
222 RCL 15
223 -
224 STO 25
225 1
226 RCL 13
227 RCL 15
228 *
229 RCL 11
230 /
231 -
232 1/X
233 1
234 RCL 00
235 RCL 25
236 *
237 -
238 1/X
239 *
240 STO 20
241 XEQ 11
242 90
243 RCL 02
244 X<=Y?
245 GTO 05
246 X<>Y
247 -
248 XEQ 12
249 GTO 06
250 LBL 05
251 +
252 XEQ 12
253 LBL 06
254 1
255 RCL 00
256 RCL 01
257 +
258 RCL 25
259 *
260 -
261 1/X
262 1
263 RCL 14
264 RCL 15
265 *
266 RCL 11
267 /
268 -
269 1/X
270 *
271 STO 21
272 XEQ 11
273 RCL 02
274 XEQ 12
275 RCL 17
276 RCL 18
277 X>Y?
278 GTO 07
279 -
280 RCL 24
281 RCL 05
282 -
283 SIN
284 X^2
285 *
286 RCL 17
287 X<>Y
288 -
289 STO 25
290 XEQ 04
291 GTO 08
292 LBL 07
293 X<>Y
294 -
295 RCL 24
296 RCL 05
297 -
298 SIN
299 X^2
300 *
301 RCL 17
302 +
303 STO 25
304 XEQ 04
305 LBL 08
306 RCL 19
307 -
308 STO 25
309 1
310 RCL 17
311 RCL 19
312 *
313 RCL 11
314 /
315 -
316 1/X
317 1
318 RCL 03
319 RCL 25
320 *
321 -
322 1/X
323 *
324 STO 22
325 XEQ 11
326 90
327 RCL 05
328 X<=Y?
329 GTO 09
330 X<>Y
331 -
332 XEQ 12
333 GTO 13
334 LBL 09
335 +
336 XEQ 12
337 LBL 13
338 1
339 RCL 03
340 RCL 04
341 +
342 RCL 25
343 *
344 -
345 1/X
346 1
347 RCL 18
348 RCL 19
349 *
350 RCL 11
351 /
352 -
353 1/X
354 *
355 STO 23
356 XEQ 11
357 RCL 05
358 XEQ 12
359 STOP
360 GTO 10
361 LBL 04
362 RCL 11
363 1
364 -
365 RCL 25
366 /
367 STO 25
368 X^2
369 RCL 10
370 2
371 /
372 X^2
373 -
374 SQRT
375 RCL 25
376 X<>Y
377 -
378 RCL 12
379 +
380 RTN
381 LBL 11
382 FIX 04
383 CLA
384 ARCL X
385 ARCL 16
386 AVIEW
387 STOP
388 RTN
389 LBL 12
390 FIX 00
391 CLA
392 ARCL X
393 ARCL 26
394 AVIEW
395 LBL 10
396 ADV
397 STOP
398 RTN
399 END

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