Apple II User Manual

Page of 257
 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