$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