The Museum of HP Calculators


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

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