The Museum of HP Calculators

Coil Calculations 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 "COILS"
 02 LBL 10
 03 LBL A
 04 STO 22
 05 RDN
 06 STO 21
 07 RDN
 08 STO 20
 09 X^2
 10 RCL 22
 11 X^2
 12 *
 13 RCL 20
 14 9
 15 *
 16 RCL 21
 17 10
 18 *
 19 +
 20 /
 21 7PRTX
 22 RTN
 23 LBL 15
 24 LBL a
 25 STO 22
 26 RDN
 27 STO 21
 28 RDN
 29 STO 20
 30 9
 31 *
 32 RCL 21
 33 10
 34 *
 35 +
 36 RCL 22
 37 *
 38 SQRT
 39 RCL 20
 40 /
 41 7PRTX
 42 RTN
 43 LBL 11
 44 LBL B
 45 STO 23
 46 RDN
 47 STO 22
 48 RDN
 49 STO 21
 50 RDN
 51 STO 20
 52 X^2
 53 RCL 23
 54 X^2
 55 *
 56 .8
 57 *
 58 RCL 20
 59 6
 60 *
 61 RCL 21
 62 9
 63 *
 64 +
 65 RCL 22
 66 10
 67 *
 68 +
 69 /
 70 7PRTX
 71 RTN
 72 LBL 16
 73 LBL b
 74 STO 23
 75 RDN
 76 STO 22
 77 RDN
 78 STO 21
 79 RDN
 80 STO 20
 81 6
 82 *
 83 RCL 21
 84 9
 85 *
 86 +
 87 RCL 22
 88 10
 89 *
 90 +
 91 RCL 23
 92 *
 93 SQRT
 94 1.118
 95 *
 96 RCL 20
 97 /
 98 7PRTX
 99 RTN
100 LBL 12
101 LBL C
102 STO 22
103 RDN
104 STO 21
105 RDN
106 STO 20
107 X^2
108 RCL 22
109 X^2
110 *
111 RCL 20
112 8
113 *
114 RCL 21
115 11
116 *
117 +
118 /
119 7PRTX
120 RTN
121 LBL 17
122 LBL c
123 STO 22
124 RDN
125 STO 21
126 RDN
127 STO 20
128 8
129 *
130 RCL 21
131 11
132 *
133 +
134 RCL 22
135 *
136 SQRT
137 RCL 20
138 /
139 7PRTX
140 RTN
141 LBL 13
142 LBL D
143 STO 22
144 RDN
145 STO 21
146 RDN
147 STO 20
148 4
149 *
150 RCL 21
151 /
152 LN
153 1
154 -
155 RCL 21
156 RCL 20
157 2
158 *
159 /
160 +
161 STO 23
162 RCL 22
163 SQRT
164 RCL 21
165 *
166 .272
167 *
168 4.5
169 X>Y?
170 GTO 01
171 X<>Y
172 LOG
173 .155
174 +
175 CHS
176 10^X
177 GTO 02
178 LBL 01
179 X<>Y
180 X^2
181 202.5
182 /
183 CHS
184 .25
185 +
186 LBL 02
187 RCL 23
188 +
189 RCL 20
190 *
191 .00508
192 *
193 7PRTX
194 RTN
195 STOP
196 END

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