$BAE2/47842:   Multiply FAC#1 by 10

Jump from $A9F2, $AA0E, $BD5B, $BD71, $BE21:

BAE2: 20 0C BC  JSR $BC0C     ; Copy FAC#1 into FAC#2
BAE5: AA        TAX
BAE6: F0 10     BEQ $BAF8
BAE8: 18        CLC
BAE9: 69 02     ADC #$02
BAEB: B0 F2     BCS $BADF     ; Overflow / Underflow

Jump from $AA04:

BAED: A2 00     LDX #$00
BAEF: 86 6F     STX $6F       ; Sign of result of Arithmetic Evaluation
BAF1: 20 77 B8  JSR $B877     ; Perform Addition
BAF4: E6 61     INC $61       ; FAC Exponent
BAF6: F0 E7     BEQ $BADF     ; Overflow / Underflow

Jump from $BAE6:

BAF8: 60        RTS

    Previous Page / Next Page