The Museum of HP Calculators

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

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