The Museum of HP Calculators

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

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