The Museum of HP Calculators

Frequency Response of a 3rd over a 4th order for the HP-41C/CV/CX

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 "FR2"
 02 SF 21
 03 SF 25
 04 RCL 11
 05 "XEQ SIZE 012"
 06 FC?C 25
 07 PROMPT
 08 DEG
 09 FIX 04
 10 SF 00
 11 CF 01
 12 SF 02
 13 CF 03
 14 CF 04
 15 CF 05
 16 CF 06
 17 CF 07
 18 AON
 19 "HZ OR RAD?"
 20 PROMPT
 21 AOFF
 22 ASTO X
 23 "RAD"
 24 ASTO Y
 25 X=Y?
 26 SF 04
 27 "dB?"
 28 XEQ 04
 29 X=Y?
 30 SF 05
 31 "MAG?"
 32 XEQ 04
 33 X=Y?
 34 SF 06
 35 "?"  ;"\0D?"
 36 XEQ 04
 37 X=Y?
 38 SF 07
 39 "N3?"
 40 PROMPT
 41 X=0?
 42 CF 00
 43 X<0?
 44 SF 01
 45 "N2?"
 46 PROMPT
 47 STO 01
 48 "N1?"
 49 PROMPT
 50 STO 02
 51 "N0?"
 52 PROMPT
 53 STO 03
 54 "D4?"
 55 PROMPT
 56 X=0?
 57 CF 02
 58 X<0?
 59 SF 03
 60 "D3?"
 61 PROMPT
 62 STO 04
 63 "D2?"
 64 PROMPT
 65 STO 05
 66 "D1?"
 67 PROMPT
 68 STO 06
 69 "D0?"
 70 PROMPT
 71 STO 07
 72 LBL "RG"
 73 "LOW FREQ?"
 74 PROMPT
 75 X=0?
 76 GTO "RG"
 77 STO 10
 78 1
 79 "MULTIPLIER"
 80 PROMPT
 81 X<=Y?
 82 GTO "RG"
 83 STO 09
 84 "HIGH FREQ?"
 85 PROMPT
 86 STO 11
 87 GTO 01
 88 LBL 16
 89 RCL 11
 90 RCL 10
 91 RCL 09
 92 *
 93 STO 10
 94 X>Y?
 95 STOP
 96 LBL 01
 97 ADV
 98 ADV
 99 RCL 10
100 "FREQ="
101 ARCL X
102 AVIEW
103 FS? 04
104 GTO 00
105 2
106 *
107 PI
108 *
109 LBL 00
110 STO 08
111 RCL 02
112 X<>Y
113 /
114 FS? 00
115 RCL 08
116 FS? 01
117 CHS
118 FS? 00
119 -
120 RCL 03
121 RCL 08
122 X^2
123 /
124 RCL 01
125 -
126 R-P
127 STO 00
128 RDN
129 RCL 06
130 RCL 08
131 /
132 RCL 04
133 RCL 08
134 *
135 -
136 RCL 07
137 RCL 08
138 X^2
139 /
140 FS? 02
141 LASTX
142 FS? 03
143 CHS
144 FS? 02
145 +
146 RCL 05
147 -
148 RCL 00
149 RDN
150 R-P
151 RDN
152 RDN
153 STO 00
154 RDN
155 X<>Y
156 /
157 ENTER
158 LOG
159 20
160 *
161 "dB="
162 FS? 05
163 XEQ 03
164 X<>Y
165 "MAG="
166 FS? 06
167 XEQ 03
168 FC? 07
169 GTO 16
170 R^
171 R^
172 RCL 00
173 -
174 CHS
175 LASTX
176 X<>Y
177 1
178 P-R
179 R-P
180 RDN
181 "="  ;"\0D="
182 XEQ 03
183 GTO 16
184 LBL 03
185 ARCL X
186 AVIEW
187 RTN
188 LBL 04
189 AON
190 "<Y,N>"
191 PROMPT
192 AOFF
193 ASTO X
194 "Y"
195 ASTO Y
196 END

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