Apple II manual 1EAD LFA LDA Z,X

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