The Museum of HP Calculators

Heat Exchangers (Main Program) for the HP-41C/CV/CX

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 "HEATX"
 02 2
 03 STO 00
 04 "TC IN"
 05 XEQ "IN"
 06 "TH IN"
 07 XEQ "IN"
 08 14
 09 STO 00
 10 "MC"
 11 XEQ "IN"
 12 "MH"
 13 XEQ "IN"
 14 "CPC"
 15 XEQ "IN"
 16 RCL 15
 17 *
 18 STO 05
 19 "CPH"
 20 XEQ "IN"
 21 RCL 16
 22 *
 23 STO 06
 24 "CON"
 25 ASTO 22
 26 LBL 06
 27 CF 02
 28 CF 03
 29 CF 04
 30 CF 05
 31 CF 06
 32 CF 21
 33 SF 27
 34 "SELECT KEY:"
 35 AVIEW
 36 SF 21
 37 PSE
 38 LBL 00
 39 ADV
 40 "E AU Q TC TH"
 41 PROMPT
 42 GTO 00
 43 LBL A
 44 SF 02
 45 9
 46 STO 00
 47 SF 01
 48 "E"
 49 XEQ "IN"
 50 ADV
 51 GTO 16
 52 LBL B
 53 SF 03
 54 10
 55 STO 00
 56 "AU"
 57 XEQ "IN"
 58 ADV
 59 GTO 01
 60 LBL C
 61 SF 04
 62 11
 63 STO 00
 64 "Q"
 65 XEQ "IN"
 66 ADV
 67 GTO 05
 68 LBL D
 69 SF 05
 70 12
 71 STO 00
 72 "TCO"
 73 XEQ "IN"
 74 ADV
 75 GTO 14
 76 LBL E
 77 SF 06
 78 13
 79 STO 00
 80 "THO"
 81 XEQ "IN"
 82 ADV
 83 GTO 04
 84 LBL 16
 85 FS?C 03
 86 GTO 06
 87 RCL 10
 88 "A"
 89 XEQ 08
 90 STO 11
 91 "AU"
 92 XEQ "O"
 93 LBL 01
 94 FS?C 04
 95 GTO 06
 96 RCL 11
 97 "E"
 98 XEQ 08
 99 RCL 07
100 *
101 RCL 04
102 RCL 03
103 -
104 *
105 STO 12
106 "Q"
107 XEQ "O"
108 LBL 05
109 FS?C 05
110 GTO 06
111 RCL 12
112 RCL 05
113 X#0?
114 /
115 RCL 03
116 +
117 STO 13
118 "TCO"
119 XEQ "O"
120 LBL 14
121 FS?C 06
122 GTO 06
123 RCL 13
124 RCL 03
125 -
126 RCL 05
127 *
128 RCL 06
129 X#0?
130 /
131 RCL 04
132 -
133 CHS
134 STO 14
135 "THO"
136 XEQ "O"
137 LBL 04
138 FS?C 02
139 GTO 06
140 RCL 13
141 RCL 03
142 -
143 RCL 05
144 *
145 RCL 04
146 RCL 14
147 -
148 RCL 06
149 *
150 X=0?
151 X<>Y
152 RCL 04
153 RCL 03
154 -
155 /
156 RCL 05
157 RCL 06
158 X<=Y?
159 X<>Y
160 RDN
161 X=0?
162 X<> T
163 /
164 STO 10
165 SF 01
166 "E"
167 XEQ "O"
168 GTO 16
169 LBL "A0"
170 1
171 RCL 10
172 -
173 LN
174 CHS
175 RTN
176 LBL "E0"
177 1
178 RCL 11
179 CHS
180 E^X
181 -
182 RTN
183 LBL 08
184 RCL 05
185 RCL 06
186 X>Y?
187 X<>Y
188 X<>Y
189 STO 07
190 X<>Y
191 X#0?
192 STO 07
193 X<>Y
194 X#0?
195 /
196 STO 09
197 SF 25
198 X=0?
199 "0"
200 X#0?
201 ARCL 22
202 ASTO T
203 XEQ IND T
204 FS?C 25
205 RTN
206 "2ND LAW ERR"
207 PROMPT
208 GTO 06
209 LBL "IN"
210 CF 22
211 1
212 ST+ 00
213 RCL IND 00
214 "="
215 ASTO Y
216 "?"
217 CF 21
218 AVIEW
219 SF 21
220 CLA
221 ARCL Y
222 STOP
223 STO IND 00
224 FS? 22
225 FC? 55
226 RTN
227 ARCL X
228 XROM 29,08
229 RTN
230 LBL "O"
231 "="
232 ARCL X
233 AVIEW
234 END

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