The Museum of HP Calculators


Brungart 1 and 2 for the HP-41C/CV/CX

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

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