1E3B 00 OVFLW BRK OVERFLOW
*
1E3C 20 2C 1F CONTIN JSR FLOAT FLOAT INT
1E3F A2 03 LDX =3
1E41 B5 10 ENTD LDA Z,X
1E43 95 04 STA X2,X LOAD EXP/MANT2 WITH Z
1E45 CA DEX
1E46 10 F9 BPL ENTD
1E48 20 4A 1F JSR FSUB Z*Z-FLOAT(INT)
1E4B A2 03 LDX =3 4 BYTE MOVE
1E4D B5 08 ZSAV LDA X1,X
1E4F 95 10 STA Z,X SAVE EXP/MANT1 IN Z
1E51 95 04 STA X2,X COPY EXP/MANT1 TO EXP/MANT2
1E53 CA DEX
1E54 10 F7 BPL ZSAV
1E56 20 77 1F JSR FMUL Z*Z
1E59 A2 03 LDX =3 4 BYTE MOVE
1E5B BD DC 1E LA2 LDA A2,X
1E5E 95 04 STA X2,X LOAD EXP/MANT2 WITH A2
1E60 B5 08 LDA X1,X
1E62 95 18 STA SEXP,X SAVE EXP/MANT1 AS SEXP
1E64 CA DEX
1E65 10 F4 BPL LA2
1E67 20 50 1F JSR FADD Z*Z+A2
1E6A A2 03 LDX =3 4 BYTE MOVE
1E6C BD E0 1E LB2 LDA B2,X
1E6F 95 04 STA X2,X LOAD EXP/MANT2 WITH B2
1E71 CA DEX
1E72 10 F8 BPL LB2
1E74 20 9D 1F JSR FDIV T=B/(Z*Z+A2)
1E77 A2 03 LDX =3 4 BYTE MOVE
1E79 B5 08 DLOAD LDA X1,X
1E7B 95 14 STA T,X SAVE EXP/MANT1 AS T
1E7D BD E4 1E LDA C2,X
1E80 95 08 STA X1,X LOAD EXP/MANT1 WITH C2
1E82 B5 18 LDA SEXP,X
1E84 95 04 STA X2,X LOAD EXP/MANT2 WITH SEXP
1E86 CA DEX
1E87 10 F0 BPL DLOAD
1E89 20 77 1F JSR FMUL Z*Z*C2
1E8C 20 1C 1F JSR SWAP MOVE EXP/MANT1 TO EXP/MANT2
1E8F A2 03 LDX =3 4 BYTE TRANSFER
1E91 B5 14 LTMP LDA T,X
1E93 95 08 STA X1,X LOAD EXP/MANT1 WITH T
1E95 CA DEX
1E96 10 F9 BPL LTMP
1E98 20 4A 1F JSR FSUB C2*Z*Z-B2/(Z*Z+A2)
1E9B A2 03 LDX =3 4 BYTE TRANSFER
1E9D BD E8 1E LDD LDA D,X
1EA0 95 04 STA X2,X LOAD EXP/MANT2 WITH D
1EA2 CA DEX
1EA3 10 F8 BPL LDD
1EA5 20 50 1F JSR FADD D+C2*Z*Z-B2/(Z*Z+A2)
1EA8 20 1C 1F JSR SWAP MOVE EXP/MANT1 TO EXP/MANT2
1EAB A2 03 LDX =3 4 BYTE TRANSFER
1EAD B5 10 LFA LDA Z,X
1EAF 95 08 STA X1,X LOAD EXP/MANT1 WITH Z
1EB1 CA DEX
1EB2 10 F9 BPL LFA
1EB4 20 4A 1F JSR FSUB -Z+D+C2*Z*Z-B2/(Z*Z+A2)
1EB7 A2 03 LDX =3 4 BYTE TRANSFER
1EB9 B5 10 LF3 LDA Z,X