$BC1B/48155:   Round FAC#1

Jump from $A9C4, $AE43, $BB14, $BBD4, $BC0C:

BC1B: A5 61     LDA $61       ; FAC Exponent
BC1D: F0 FB     BEQ $BC1A     ; Copy FAC#1 into FAC#2
BC1F: 06 70     ASL $70       ; FAC low-order rounding
BC21: 90 F7     BCC $BC1A     ; Copy FAC#1 into FAC#2

Jump from $BFFA:

BC23: 20 6F B9  JSR $B96F     ; 2's Complement FAC#1
BC26: D0 F2     BNE $BC1A     ; Copy FAC#1 into FAC#2
BC28: 4C 38 B9  JMP $B938     ; Perform Addition

    Previous Page / Next Page