101 1D5D 10 F7 BPL MIT
102 1D5F 20 77 1F JSR FMUL T*T
103 1D62 20 1C 1F JSR SWAP MOVE T*T TO EXP/MANT2
104 1D65 A2 03 LDX =3 4 BYTE TRANSFER
105 1D67 BD E4 1D MIC LDA C,X
106 1D6A 95 08 STA X1,X LOAD EXP/MANT1 WITH C
107 1D6C CA DEX
108 1D6D 10 F8 BPL MIC
109 1D6F 20 4A 1F JSR FSUB T*T-C
110 1D72 A2 03 LDX =3 4 BYTE TRANSFER
111 1D74 BD E0 1D M2MB LDA MB,X
112 1D77 95 04 STA X2,X LOAD EXP/MANT2 WITH MB
113 1D79 CA DEX
114 1D7A 10 F8 BPL M2MB
115 1D7C 20 9D 1F JSR FDIV MB/(T*T-C)
116 1D7F A2 03 LDX =3
117 1D81 BD DC 1D M2A1 LDA A1,X
118 1D84 95 04 STA X2,X LOAD EXP/MANT2 WITH A1
119 1D86 CA DEX
120 1D87 10 F8 BPL M2A1
121 1D89 20 50 1F JSR FADD MB/(T*T-C)+A1
122 1D8C A2 03 LDX =3 4 BYTE TRANSFER
123 1D8E B5 14 M2T LDA T,X
124 1D90 95 04 STA X2,X LOAD EXP/MANT2 WITH T
125 1D92 CA DEX
126 1D93 10 F9 BPL M2T
127 1D95 20 77 1F JSR FMUL (MB/(T*T-C)+A1)*T
128 1D98 A2 03 LDX =3 4 BYTE TRANSFER
129 1D9A BD E8 1D M2MHL LDA MHLF,X
130 1D9D 95 04 STA X2,X LOAD EXP/MANT2 WITH MHLF (.5)
131 1D9F CA DEX
132 1DA0 10 F8 BPL M2MHL
133 1DA2 20 50 1F JSR FADD +.5
134 1DA5 A2 03 LDX =3 4 BYTE TRANSFER
135 1DA7 B5 18 LDEXP LDA SEXP,X
136 1DA9 95 04 STA X2,X LOAD EXP/MANT2 WITH ORIGINAL EXPONENT
137 1DAB CA DEX
138 1DAC 10 F9 BPL LDEXP
139 1DAE 20 50 1F JSR FADD +EXPN
140 1DB1 A2 03 LDX =3 4 BYTE TRANSFER
141 1DB3 BD D8 1D MLE2 LDA LE2,X
142 1DB6 95 04 STA X2,X LOAD EXP/MANT2 WITH LN(2)
143 1DB8 CA DEX
144 1DB9 10 F8 BPL MLE2
145 1DBB 20 77 1F JSR FMUL *LN(2)
146 1DBE 60 RTS RETURN RESULT IN MANT/EXP1
147 *
148 * COMMON LOG OF MANT/EXP1 RESULT IN MANT/EXP1
149 *
150 1DBF 20 00 1D LOG10 JSR LOG COMPUTE NATURAL LOG
151 1DC2 A2 03 LDX =3
152 1DC4 BD D0 1D L10 LDA LN10,X
153 1DC7 95 04 STA X2,X LOAD EXP/MANT2 WITH 1/LN(10)
154 1DC9 CA DEX
155 1DCA 10 F8 BPL L10
156 1DCC 20 77 1F JSR FMUL LOG10(X)=LN(X)/LN(10)
157 1DCF 60 RTS
158 *
159 1DD0 7E 6F LN10 DCM 0.4342945
2D ED
160 1DD4 80 5A R22 DCM 1.4142136 SQRT(2)
82 7A