Filter
Top Products
1D3D 95 04 STA X2,X
1D3F CA DEX
1D40 10 F0 BPL SAVET
1D42 20 50 1F JSR FADD Z+SQRT(2)
1D45 A2 03 LDX =3 4 BYTE TRANSFER
1D47 B5 14 TM2 LDA T,X
1D49 95 04 STA X2,X LOAD T INTO EXP/MANT2
1D4B CA DEX
1D4C 10 F9 BPL TM2
1D4E 20 9D 1F JSR FDIV T=(Z-SQRT(2))/(Z+SQRT(2))
1D51 A2 03 LDX =3 4 BYTE TRANSFER
1D53 B5 08 MIT LDA X1,X
1D55 95 14 STA T,X COPY EXP/MANT1 TO T AND
1D57 95 04 STA X2,X LOAD EXP/MANT2 WITH T
1D59 CA DEX
1D5A 10 F7 BPL MIT
1D5C 20 77 1F JSR FMUL T*T
1D5F 20 1C 1F JSR SWAP MOVE T*T TO EXP/MANT2
1D62 A2 03 LDX =3 4 BYTE TRANSFER
1D64 BD E1 1D MIC LDA C,X
1D67 95 08 STA X1,X LOAD EXP/MANT1 WITH C
1D69 CA DEX
1D6A 10 F8 BPL MIC
1D6C 20 4A 1F JSR FSUB T*T-C
1D6F A2 03 LDX =3 4 BYTE TRANSFER
1D71 BD DD 1D M2MB LDA MB,X
1D74 95 04 STA X2,X LOAD EXP/MANT2 WITH MB
1D76 CA DEX
1D77 10 F8 BPL M2MB
1D79 20 9D 1F JSR FDIV MB/(T*T-C)
1D7C A2 03 LDX =3
1D7E BD D9 1D M2A1 LDA A1,X
1D81 95 04 STA X2,X LOAD EXP/MANT2 WITH A1
1D83 CA DEX
1D84 10 F8 BPL M2A1
1D86 20 50 1F JSR FADD MB/(T*T-C)+A1
1D89 A2 03 LDX =3 4 BYTE TRANSFER
1D8B B5 14 M2T LDA T,X
1D8D 95 04 STA X2,X LOAD EXP/MANT2 WITH T
1D8F CA DEX
1D90 10 F9 BPL M2T
1D92 20 77 1F JSR FMUL (MB/(T*T-C)+A1)*T
1D95 A2 03 LDX =3 4 BYTE TRANSFER
1D97 BD E5 1D M2MHL LDA MHLF,X
1D9A 95 04 STA X2,X LOAD EXP/MANT2 WITH MHLF (.5)
1D9C CA DEX
1D9D 10 F8 BPL M2MHL
1D9F 20 50 1F JSR FADD +.5
1DA2 A2 03 LDX =3 4 BYTE TRANSFER
1DA4 B5 18 LDEXP LDA SEXP,X
1DA6 95 04 STA X2,X LOAD EXP/MANT2 WITH ORIGINAL EXPONENT
1DA8 CA DEX
1DA9 10 F9 BPL LDEXP
1DAB 20 50 1F JSR FADD +EXPN
1DAE A2 03 LDX =3 4 BYTE TRANSFER
1DB0 BD D5 1D MLE2 LDA LE2,X
1DB3 95 04 STA X2,X LOAD EXP/MANT2 WITH LN(2)
1DB5 CA DEX
1DB6 10 F8 BPL MLE2
1DB8 20 77 1F JSR FMUL *LN(2)
1DBB 60 RTS RETURN RESULT IN MANT/EXP1
*