*The Museum of HP Calculators*

#
Beer's Law and Absorptivity Calculations for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission.
It was originally printed in the Chemistry 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 "BEER"
02 LBL A
03 SF 27
04 CLRG
05 SREG 04
06 1
07 STO 00
08 LBL a
09 FIX 01
10 RCL 00
11 "b="
12 ARCL X
13 "?"
14 PROMPT
15 STO 00
16 "b="
17 ARCL X
18 AVIEW
19 RTN
20 LBL B
21 RCL 01
22 /
23 1 E3
24 /
25 SCI 02
26 "M="
27 ARCL X
28 AVIEW
29 RTN
30 LBL b
31 STO 01
32 "MW="
33 ARCL X
34 AVIEW
35 RTN
36 LBL D
37 S+
38 FIX 00
39 STOP
40 GTO 01
41 LBL d
42 S-
43 "N="
44 ARCL X
45 PROMPT
46 GTO 01
47 LBL C
48 XEQ 05
49 S+
50 FIX 00
51 "N="
52 ARCL X
53 PROMPT
54 GTO 01
55 LBL c
56 XEQ 05
57 S-
58 "N="
59 ARCL X
60 PROMPT
61 GTO 01
62 LBL 05
63 SF 05
64 LBL E
65 LOG
66 2
67 -
68 CHS
69 FIX 04
70 FS?C 05
71 RTN
72 "A="
73 ARCL X
74 AVIEW
75 RTN
76 LBL e
77 2
78 -
79 CHS
80 10^X
81 FIX 01
82 "%T="
83 ARCL X
84 AVIEW
85 RTN
86 LBL 01
87 RCL 09
88 RCL 08
89 *
90 RCL 04
91 RCL 06
92 *
93 -
94 STO 02
95 RCL 09
96 RCL 07
97 *
98 RCL 06
99 X^2
100 -
101 STO 03
102 /
103 RCL 00
104 /
105 FIX 00
106 "a="
107 ARCL X
108 AVIEW
109 RCL 07
110 RCL 04
111 *
112 RCL 06
113 RCL 08
114 *
115 -
116 RCL 03
117 /
118 FIX 04
119 "I="
120 ARCL X
121 AVIEW
122 RCL 02
123 RCL 03
124 SQRT
125 /
126 RCL 09
127 RCL 05
128 *
129 RCL 04
130 X^2
131 -
132 SQRT
133 /
134 "R="
135 ARCL X
136 PROMPT
137 GTO 01
138 END

Go back to the HP-41 software library

Go back to the general software library

Go
back to the main exhibit hall