The Museum of HP Calculators

Single Stage Equilibrium Flash for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Chemical Engineering 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 "SSE"
 02 CF 02
 03 FIX 05
 04 "N?"
 05 PROMPT
 06 1
 07 -
 08 STO 21
 09 STO 23
 10 LBL A
 11 "K?"
 12 PROMPT
 13 STO IND 21
 14 RCL 21
 15 10
 16 +
 17 "Z?"
 18 PROMPT
 19 STO IND Y
 20 FS? 02
 21 GTO C
 22 DSE 21
 23 GTO A
 24 SF 02
 25 GTO A
 26 LBL c
 27 STO 20
 28 RCL 23
 29 STO 21
 30 0
 31 STO 24
 32 LBL 06
 33 XEQ 01
 34 DSE 21
 35 GTO 06
 36 XEQ 01
 37 RTN
 38 LBL 01
 39 RCL 20
 40 RCL IND 21
 41 1
 42 -
 43 *
 44 1
 45 +
 46 FS? 00
 47 X^2
 48 RCL IND 21
 49 RCL 21
 50 10
 51 +
 52 RDN
 53 RCL IND T
 54 X<>Y
 55 1
 56 -
 57 FS? 00
 58 X^2
 59 *
 60 X<>Y
 61 /
 62 RCL 24
 63 +
 64 STO 24
 65 RTN
 66 LBL 02
 67 RCL 20
 68 SF 00
 69 XEQ c
 70 CHS
 71 CF 00
 72 RTN
 73 LBL C
 74 "?"
 75 FS?C 02
 76 PROMPT
 77 CF 01
 78 STO 20
 79 ABS
 80 FRC
 81 XEQ c
 82 STO 22
 83 ABS
 84 1 E-6
 85 X>Y?
 86 GTO 04
 87 XEQ 02
 88 RCL 22
 89 X<>Y
 90 /
 91 RCL 20
 92 X<>Y
 93 -
 94 GTO C
 95 LBL 04
 96 RCL 20
 97 "V/F="
 98 XEQ d
 99 LBL D
100 CF 01
101 XEQ E
102 RCL 23
103 STO 21
104 LBL 07
105 XEQ 05
106 DSE 21
107 GTO 07
108 XEQ 05
109 RTN
110 LBL 05
111 RCL IND 21
112 RCL 24
113 *
114 1
115 +
116 RCL 24
117 1
118 +
119 X<>Y
120 /
121 RCL 21
122 10
123 +
124 RCL IND X
125 X<>Y
126 RDN
127 *
128 "X="
129 XEQ d
130 RCL IND T
131 1
132 RCL 24
133 1/X
134 +
135 *
136 RCL 24
137 1/X
138 RCL IND 21
139 /
140 1
141 +
142 /
143 "Y="
144 XEQ d
145 RTN
146 LBL "V/L"
147 SF 01
148 LBL E
149 RCL 20
150 1
151 RCL 20
152 -
153 /
154 STO 24
155 FC? 01
156 RTN
157 "V/L="
158 GTO d
159 LBL "VL"
160 "F?"
161 PROMPT
162 ENTER
163 ENTER
164 RCL 20
165 *
166 "V="
167 XEQ d
168 -
169 "L="
170 LBL d
171 ARCL X
172 AVIEW
173 STOP
174 RTN
175 END

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