Filter
Top Products
218 1E56 20 77 1F JSR FMUL Z*Z
219 1E59 A2 03 LDX =3 4 BYTE MOVE
220 1E5B BD DC 1E LA2 LDA A2,X
221 1E5E 95 04 STA X2,X LOAD EXP/MANT2 WITH A2
222 1E60 B5 08 LDA X1,X
223 1E62 95 18 STA SEXP,X SAVE EXP/MANT1 AS SEXP
224 1E64 CA DEX
225 1E65 10 F4 BPL LA2
226 1E67 20 50 1F JSR FADD Z*Z+A2
227 1E6A A2 03 LDX =3 4 BYTE MOVE
228 1E6C BD E0 1E LB2 LDA B2,X
229 1E6F 95 04 STA X2,X LOAD EXP/MANT2 WITH B2
230 1E71 CA DEX
231 1E72 10 F8 BPL LB2
232 1E74 20 9D 1F JSR FDIV T=B/(Z*Z+A2)
233 1E77 A2 03 LDX =3 4 BYTE MOVE
234 1E79 B5 08 DLOAD LDA X1,X
235 1E7B 95 14 STA T,X SAVE EXP/MANT1 AS T
236 1E7D BD E4 1E LDA C2,X
237 1E80 95 08 STA X1,X LOAD EXP/MANT1 WITH C2
238 1E82 B5 18 LDA SEXP,X
239 1E84 95 04 STA X2,X LOAD EXP/MANT2 WITH SEXP
240 1E86 CA DEX
241 1E87 10 F0 BPL DLOAD
242 1E89 20 77 1F JSR FMUL Z*Z*C2
243 1E8C 20 1C 1F JSR SWAP MOVE EXP/MANT1 TO EXP/MANT2
244 1E8F A2 03 LDX =3 4 BYTE TRANSFER
245 1E91 B5 14 LTMP LDA T,X
246 1E93 95 08 STA X1,X LOAD EXP/MANT1 WITH T
247 1E95 CA DEX
248 1E96 10 F9 BPL LTMP
249 1E98 20 4A 1F JSR FSUB C2*Z*Z-B2/(Z*Z+A2)
250 1E9B A2 03 LDX =3 4 BYTE TRANSFER
251 1E9D BD E8 1E LDD LDA D,X
252 1EA0 95 04 STA X2,X LOAD EXP/MANT2 WITH D
253 1EA2 CA DEX
254 1EA3 10 F8 BPL LDD
255 1EA5 20 50 1F JSR FADD D+C2*Z*Z-B2/(Z*Z+A2)
256 1EA8 20 1C 1F JSR SWAP MOVE EXP/MANT1 TO EXP/MANT2
257 1EAB A2 03 LDX =3 4 BYTE TRANSFER
258 1EAD B5 10 LFA LDA Z,X
259 1EAF 95 08 STA X1,X LOAD EXP/MANT1 WITH Z
260 1EB1 CA DEX
261 1EB2 10 F9 BPL LFA
262 1EB4 20 4A 1F JSR FSUB -Z+D+C2*Z*Z-B2/(Z*Z+A2)
263 1EB7 A2 03 LDX =3 4 BYTE TRANSFER
264 1EB9 B5 10 LF3 LDA Z,X
265 1EBB 95 04 STA X2,X LOAD EXP/MANT2 WITH Z
266 1EBD CA DEX
267 1EBE 10 F9 BPL LF3
268 1EC0 20 9D 1F JSR FDIV Z/(**** )
269 1EC3 A2 03 LDX =3 4 BYTE TRANSFER
270 1EC5 BD E8 1D LD12 LDA MHLF,X
271 1EC8 95 04 STA X2,X LOAD EXP/MANT2 WITH .5
272 1ECA CA DEX
273 1ECB 10 F8 BPL LD12
274 1ECD 20 50 1F JSR FADD +Z/(***)+.5
275 1ED0 38 SEC ADD INT TO EXPONENT WITH CARRY SET
276 1ED1 A5 1C LDA INT TO MULTIPLY BY
277 1ED3 65 08 ADC X1 2**(INT+1)
278 1ED5 85 08 STA X1 RETURN RESULT TO EXPONENT