The Museum of HP Calculators

Isentropic Flow for Ideal Gases 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 M.E. Pac 1. 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.

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 "IFLO67"
 02 LBL 15
 03 LBL a
 04 STO 02
 05 1
 06 -
 07 STO 03
 08 1/X
 09 STO 04
 10 RCL 02
 11 RTN
 12 LBL 10
 13 LBL A
 14 FS?C 22
 15 GTO 00
 16 RCL 01
 17 SQRT
 18 RTN
 19 LBL 00
 20 X^2
 21 STO 01
 22 SQRT
 23 RTN
 24 LBL 11
 25 LBL B
 26 FS?C 22
 27 GTO 00
 28 2
 29 RCL 01
 30 RCL 03
 31 *
 32 2
 33 +
 34 /
 35 RTN
 36 LBL 00
 37 2
 38 X<>Y
 39 /
 40 2
 41 -
 42 RCL 03
 43 /
 44 STO 01
 45 SQRT
 46 RTN
 47 LBL 12
 48 LBL C
 49 FS?C 22
 50 GTO 00
 51 XEQ 11
 52 RCL 02
 53 RCL 03
 54 /
 55 Y^X
 56 RTN
 57 LBL 00
 58 RCL 03
 59 RCL 02
 60 /
 61 Y^X
 62 SF 22
 63 GTO 11
 64 LBL 13
 65 LBL D
 66 FS?C 22
 67 GTO 00
 68 XEQ 11
 69 RCL 04
 70 Y^X
 71 RTN
 72 LBL 00
 73 SF 22
 74 RCL 03
 75 Y^X
 76 GTO 11
 77 LBL 14
 78 LBL E
 79 3-
 80 X<>Y
 81 FS?C 22
 82 GTO 01
 83 GTO 03
 84 LBL 01
 85 ENTER
 86 STO 06
 87 FRC
 88 SQRT
 89 +
 90 X<>Y
 91 Y^X
 92 STO 01
 93 LBL 02
 94 RCL 06
 95 XEQ 03
 96 /
 97 1
 98 -
 99 .5
100 RCL 08
101 /
102 .5
103 RCL 01
104 /
105 -
106 /
107 ST+ 01
108 RCL 01
109 /
110 ABS
111  E-4
112 X<=Y?
113 GTO 02
114 RCL 01
115 SQRT
116 RTN
117 LBL 19
118 LBL e
119 3
120 X<>Y
121 FS?C 22
122 GTO 01
123 LBL 03
124 2
125 RCL 02
126 1
127 +
128 /
129 RCL 03
130 LASTX
131 /
132 STO 07
133 RCL 01
134 *
135 +
136 STO 08
137 RCL 07
138 2
139 *
140 1/X
141 Y^X
142 RCL 01
143 SQRT
144 /
145 RTN
146 LBL 16
147 LBL b
148 ADV
149 CF 22
150 RCL 02
151 7PRTX
152 ADV
153 XEQ 10
154 7PRTX
155 XEQ 11
156 7PRTX
157 XEQ 12
158 7PRTX
159 XEQ 13
160 7PRTX
161 XEQ 14
162 7PRTX
163 RTN
164 STOP
165 END

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