The Museum of HP Calculators


Complex Impedance Calculator 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 EE(lab) 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.

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

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