$BA28/47656:   Perform Multiply

Jump from $BE04, $BFAA, $BFF1, $E04C, $E056, $E070, $E0C9:

BA28: 20 8C BA  JSR $BA8C     ; Load FAC#2 From Memory
BA2B: D0 03     BNE $BA30
BA2D: 4C 8B BA  JMP $BA8B     ; Multiply by a Byte

Jump from $BA2B:

BA30: 20 B7 BA  JSR $BAB7     ; Test Both Accumulators
BA33: A9 00     LDA #$00
BA35: 85 26     STA $26       ; Floating point product of Multiply and Divide
BA37: 85 27     STA $27       ; Floating point product of Multiply and Divide
BA39: 85 28     STA $28       ; Floating point product of Multiply and Divide
BA3B: 85 29     STA $29       ; Floating point product of Multiply and Divide
BA3D: A5 70     LDA $70       ; FAC low-order rounding
BA3F: 20 59 BA  JSR $BA59     ; Multiply by a Byte
BA42: A5 65     LDA $65       ; FAC Mantissa
BA44: 20 59 BA  JSR $BA59     ; Multiply by a Byte
BA47: A5 64     LDA $64       ; FAC Mantissa
BA49: 20 59 BA  JSR $BA59     ; Multiply by a Byte
BA4C: A5 63     LDA $63       ; FAC Mantissa
BA4E: 20 59 BA  JSR $BA59     ; Multiply by a Byte
BA51: A5 62     LDA $62       ; FAC Mantissa
BA53: 20 5E BA  JSR $BA5E     ; Multiply by a Byte
BA56: 4C 8F BB  JMP $BB8F     ; Divide FAC#2 by FAC#1

    Previous Page / Next Page