$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 |