The Museum of HP Calculators

Lens Calculations 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 "LENSCL"
 02 LBL 10
 03 LBL A
 04 7CLREG
 05 CLX
 06 7DSP3
 07 RTN
 08 LBL 11
 09 LBL B
 10 FS?C 22
 11 GTO 00
 12 RCL 01
 13 X^2
 14 RCL 04
 15 X^2
 16 4
 17 *
 18 +
 19 RCL 04
 20 8
 21 *
 22 /
 23 STO 07
 24 RTN
 25 LBL 16
 26 LBL b
 27 RCL 03
 28 X^2
 29 RCL 06
 30 X^2
 31 4
 32 *
 33 +
 34 RCL 06
 35 8
 36 *
 37 /
 38 STO 08
 39 RTN
 40 LBL 16
 41 LBL b
 42 RCL 02
 43 X^2
 44 RCL 05
 45 X^2
 46 4
 47 *
 48 +
 49 RCL 05
 50 8
 51 *
 52 /
 53 STO 09
 54 RTN
 55 LBL 00
 56 STO 07
 57 RTN
 58 LBL 16
 59 LBL b
 60 STO 22
 61 RCL 07
 62 +
 63 STO 08
 64 RCL 07
 65 RCL 22
 66 -
 67 STO 09
 68 RCL 22
 69 CF 22
 70 RTN
 71 LBL 12
 72 LBL C
 73 FS?C 22
 74 GTO 01
 75 RCL 07
 76 RCL 04
 77 *
 78 2
 79 *
 80 RCL 04
 81 X^2
 82 -
 83 SQRT
 84 2
 85 *
 86 STO 01
 87 RTN
 88 LBL 17
 89 LBL c
 90 RCL 09
 91 RCL 05
 92 *
 93 2
 94 *
 95 RCL 05
 96 X^2
 97 -
 98 SQRT
 99 2
100 *
101 STO 02
102 RTN
103 LBL 17
104 LBL c
105 RCL 08
106 RCL 06
107 *
108 2
109 *
110 RCL 06
111 X^2
112 -
113 SQRT
114 2
115 *
116 STO 03
117 RTN
118 LBL 01
119 STO 01
120 RTN
121 LBL 17
122 LBL c
123 STO 20
124 RCL 01
125 +
126 STO 02
127 RCL 01
128 RCL 20
129 -
130 STO 03
131 RCL 20
132 CF 22
133 RTN
134 LBL 13
135 LBL D
136 FS?C 22
137 GTO 02
138 RCL 07
139 X^2
140 4
141 *
142 RCL 01
143 X^2
144 -
145 SQRT
146 2
147 /
148 CHS
149 RCL 07
150 +
151 STO 04
152 RTN
153 LBL 18
154 LBL d
155 RCL 09
156 X^2
157 4
158 *
159 RCL 02
160 X^2
161 -
162 SQRT
163 2
164 /
165 CHS
166 RCL 09
167 +
168 STO 05
169 RTN
170 LBL 18
171 LBL d
172 RCL 08
173 X^2
174 4
175 *
176 RCL 03
177 X^2
178 -
179 SQRT
180 2
181 /
182 CHS
183 RCL 08
184 +
185 STO 06
186 RTN
187 LBL 02
188 STO 04
189 RTN
190 LBL 18
191 LBL d
192 STO 21
193 RCL 04
194 +
195 STO 05
196 RCL 04
197 RCL 21
198 -
199 STO 06
200 RCL 21
201 CF 22
202 RTN
203 LBL 14
204 LBL E
205 RCL 01
206 2
207 /
208 RCL 07
209 RCL 04
210 -
211 /
212 ATAN
213 7DSP4
214 HMS
215 RTN
216 LBL 19
217 LBL e
218 RCL 02
219 2
220 /
221 RCL 09
222 RCL 05
223 -
224 /
225 ATAN
226 HMS
227 RTN
228 LBL 19
229 LBL e
230 RCL 03
231 2
232 /
233 RCL 08
234 RCL 06
235 -
236 /
237 ATAN
238 HMS
239 RTN
240 STOP
241 END

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