$B7F7/47095:   Convert FAC#1 to Integer in LINNUM

Jump from $B7EE, $B813, $E12D:

B7F7: A5 66     LDA $66       ; FAC Sign
B7F9: 30 9D     BMI $B798     ; Evaluate <asc>
B7FB: A5 61     LDA $61       ; FAC Exponent
B7FD: C9 91     CMP #$91
B7FF: B0 97     BCS $B798     ; Evaluate <asc>
B801: 20 9B BC  JSR $BC9B     ; Convert FAC#1 to Integer
B804: A5 64     LDA $64       ; FAC Mantissa
B806: A4 65     LDY $65       ; FAC Mantissa
B808: 84 14     STY $14       ; Temporary: Integer value
B80A: 85 15     STA $15       ; Temporary: Integer value
B80C: 60        RTS

    Previous Page / Next Page