$BAB7/47799:   Test Both Accumulators

Jump from $BA30, $BB1E:

BAB7: A5 69     LDA $69       ; AFAC Exponent

Jump from $E03F:

BAB9: F0 1F     BEQ $BADA     ; Overflow / Underflow
BABB: 18        CLC
BABC: 65 61     ADC $61       ; FAC Exponent
BABE: 90 04     BCC $BAC4
BAC0: 30 1D     BMI $BADF     ; Overflow / Underflow
BAC2: 18        CLC
BAC3: 2C        .BYTE $2C

Jump from $BABE:

BAC4: 10 14     BPL $BADA     ; Overflow / Underflow
BAC6: 69 80     ADC #$80
BAC8: 85 61     STA $61       ; FAC Exponent
BACA: D0 03     BNE $BACF
BACC: 4C FB B8  JMP $B8FB     ; Perform Addition

Jump from $BACA:

BACF: A5 6F     LDA $6F       ; Sign of result of Arithmetic Evaluation
BAD1: 85 66     STA $66       ; FAC Sign
BAD3: 60        RTS

    Previous Page / Next Page