The Museum of HP Calculators

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

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