The Museum of HP Calculators

Atmospheric Thermodynamics 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 Earth Sciences Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. 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.

The original HP-67 version of this program used Rapid Reverse Branching, an HP67 feature that doesn't work on the HP41. Tony modified this copy to work on the HP-41. The original program is available if you want to port it back to the HP-67.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)

Data Set

Currently, we know how to transfer the .d41 files to an HP-4C1 with Tony Duell's LIF Utilities for linux. Other users can enter the register listings below by hand. If you determine how DOS users can transfer these files, please let me know. The data should be saved to a magnetic card.

```RR000 = +2.426254453E+2
RR001 = -4.271071252E+3
RR002 = +2.697821331E+8
RR003 = +6.244684600E+2
RR004 = +3.666450400E-1
RR005 = +3.823128854E-3
RR006 = -1.029627108E-3
RR007 = +1.041185084E+0
RR008 = +0.000000000E+0
RR009 = +0.000000000E+0
RR010 = +2.731600000E+2
RR011 = +3.496503497E+0
RR012 = +1.062445218E+0
RR013 = +2.400738510E+0
RR014 = +1.519783650E-1
RR015 = +1.670312578E+3
RR016 = +1.112137286E+2
RR017 = +5.284246205E+3
RR018 = +8.384300279E+6
RR019 = +9.754738020E-1
RR020 = +0.000000000E+0
RR021 = +0.000000000E+0
RR022 = +0.000000000E+0
RR023 = +0.000000000E+0
RR024 = +0.000000000E+0
RR025 = +0.000000000E+0
```

Program Listing

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