Справочник Пользователя для Apple II
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
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
222 1E60 B5 08 LDA X1,X
223 1E62 95 18 STA SEXP,X SAVE EXP/MANT1 AS SEXP
224 1E64 CA DEX
224 1E64 CA DEX
225 1E65 10 F4 BPL LA2
226 1E67 20 50 1F JSR FADD Z*Z+A2
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
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
230 1E71 CA DEX
231 1E72 10 F8 BPL LB2
232 1E74 20 9D 1F JSR FDIV T=B/(Z*Z+A2)
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
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
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
238 1E82 B5 18 LDA SEXP,X
239 1E84 95 04 STA X2,X LOAD EXP/MANT2 WITH SEXP
240 1E86 CA DEX
240 1E86 CA DEX
241 1E87 10 F0 BPL DLOAD
242 1E89 20 77 1F JSR FMUL Z*Z*C2
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
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
246 1E93 95 08 STA X1,X LOAD EXP/MANT1 WITH T
247 1E95 CA DEX
248 1E96 10 F9 BPL LTMP
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
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
252 1EA0 95 04 STA X2,X LOAD EXP/MANT2 WITH D
253 1EA2 CA DEX
254 1EA3 10 F8 BPL LDD
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
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
258 1EAD B5 10 LFA LDA Z,X
259 1EAF 95 08 STA X1,X LOAD EXP/MANT1 WITH Z
260 1EB1 CA DEX
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)
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
264 1EB9 B5 10 LF3 LDA Z,X
265 1EBB 95 04 STA X2,X LOAD EXP/MANT2 WITH Z
266 1EBD CA DEX
266 1EBD CA DEX
267 1EBE 10 F9 BPL LF3
268 1EC0 20 9D 1F JSR FDIV Z/(**** )
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
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
272 1ECA CA DEX
273 1ECB 10 F8 BPL LD12
274 1ECD 20 50 1F JSR FADD +Z/(***)+.5
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
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
278 1ED5 85 08 STA X1 RETURN RESULT TO EXPONENT