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)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download
Download Data Set (.d41) See Note under Data Sets (below.)

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

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