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