The Museum of HP Calculators

Optical Design 1 (Achromatic Doublet) (Card A) 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 Optics 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 "OPTD1A"
 02 LBL 10
 03 LBL A
 04 1
 05 STOP
 06 STO 24
 07 2
 08 STOP
 09 STO 25
 10 CLX
 11 RTN
 12 LBL 11
 13 LBL B
 14 1
 15 STOP
 16 STO 20
 17 2
 18 STOP
 19 STO 21
 20 CLX
 21 RTN
 22 LBL 12
 23 LBL C
 24 1
 25 STOP
 26 STO 08
 27 CLX
 28 RTN
 29 LBL 13
 30 LBL D
 31 RCL 24
 32 1
 33 -
 34 RCL 20
 35 /
 36 STO 22
 37 RCL 25
 38 1
 39 -
 40 RCL 21
 41 /
 42 STO 23
 43 RCL 22
 44 RCL 23
 45 -
 46 RCL 08
 47 *
 48 RCL 20
 49 *
 50 1/X
 51 STO 20
 52 RCL 23
 53 RCL 22
 54 -
 55 RCL 08
 56 *
 57 RCL 21
 58 *
 59 1/X
 60 STO 21
 61 RCL 24
 62 1
 63 -
 64 RCL 20
 65 *
 66 STO 23
 67 RCL 24
 68 XEQ 01
 69 RCL 25
 70 XEQ 01
 71 RTN
 72 LBL 01
 73 STO 09
 74 1
 75 -
 76 STO 08
 77 RCL 09
 78 X^2
 79 *
 80 2
 81 /
 82 STO 00
 83 RCL 09
 84 2
 85 *
 86 1
 87 +
 88 RCL 08
 89 *
 90 2
 91 /
 92 STO 01
 93 RCL 09
 94 3
 95 *
 96 1
 97 +
 98 RCL 08
 99 *
100 2
101 /
102 STO 02
103 RCL 09
104 2
105 +
106 RCL 08
107 *
108 2
109 /
110 RCL 09
111 /
112 STO 03
113 RCL 09
114 X^2
115 1
116 -
117 2
118 *
119 RCL 09
120 /
121 STO 04
122 RCL 09
123 3
124 *
125 2
126 +
127 RCL 08
128 *
129 RCL 09
130 /
131 2
132 /
133 STO 05
134 RCL 09
135 2
136 *
137 1
138 +
139 RCL 08
140 *
141 RCL 09
142 /
143 2
144 /
145 STO 06
146 RCL 09
147 RCL 08
148 *
149 2
150 /
151 STO 07
152 7P<>S
153 CLX
154 RTN
155 STOP
156 END

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