The Museum of HP Calculators

# Atmospheric Thermodynamics (Original HP-67 translation)

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.

## Important!

This is an original HP-67 version of this program that uses Rapid Reverse Branching, an HP67 feature that doesn't work on the HP41. This program will not run unmodified on the HP-41. This version is only for reference or for someone who wants to port this code back to the 67. The fully ported version is also available.

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 "ATMOSP"
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 31-
105 STO 25
106 RDN
107 ENTER
108 ENTER
109 XEQ 14
110 STO 20
111 X<>Y
112 RCL 09
113 *
114 +
115 RCL 08
116 -
117 RCL 00
118 R^
119 +
120 X^2
121 RCL 01
122 X<>Y
123 /
124 RCL 20
125 *
126 RCL 09
127 -
128 /
129 +
130 LASTX
131 ABS
132 .01
133 -
134 X>0?
135 7GTOI
136 RDN
137 RTN
138 LBL 10
139 LBL A
140 RCL 23
141 XEQ 19
142 RCL 22
143 *
144 RCL 23
145 XEQ 00
146 /
147 7P<>S
148 RCL 04
149 Y^X
150 RCL 05
151 *
152 RCL 06
153 7P<>S
154 -
155 STOP
156 XEQ 00
157 RCL 23
158 XEQ 00
159 /
160 RCL 24
161 *
162 RTN
163 LBL 11
164 LBL B
165 RCL 23
166 XEQ 14
167 RCL 22
168 *
169 7P<>S
170 RCL 02
171 Y^X
172 RCL 03
173 *
174 7P<>S
175 RCL 23
176 +
177 RTN
178 LBL 13
179 LBL D
180 7P<>S
181 RCL 00
182 +
183  E3
184 RCL 24
185 /
186 RCL 01
187 1/X
188 Y^X
189 *
190 RCL 00
191 -
192 7P<>S
193 RTN
194 LBL 12
195 LBL C
196 RCL 23
197 XEQ 19
198 RCL 24
199 /
200 RCL 23
201 7P<>S
202 RCL 00
203 +
204 /
205 STO 25
206 RCL 07
207 *
208 RCL 09
209 +
210 RCL 25
211 RCL 23
212 RCL 00
213 +
214 /
215 RCL 08
216 *
217 1
218 +
219 /
220 7P<>S
221 RTN
222 LBL 00
223 7P<>S
224 RCL 00
225 +
226 RCL 01
227 7P<>S
228 Y^X
229 RTN
230 STOP
231 END
```