$BC9B/48283: Convert FAC#1 to Integer
Jump from $AA11, $B1CE, $B801, $BCD2, $BE32:
BC9B: A5 61 LDA $61 ; FAC Exponent
BC9D: F0 4A BEQ $BCE9 ; Evaluate <int>
BC9F: 38 SEC
BCA0: E9 A0 SBC #$A0
BCA2: 24 66 BIT $66 ; FAC Sign
BCA4: 10 09 BPL $BCAF
BCA6: AA TAX
BCA7: A9 FF LDA #$FF
BCA9: 85 68 STA $68 ; Bit Overflow Area during normalisation Routine
BCAB: 20 4D B9 JSR $B94D ; 2's Complement FAC#1
BCAE: 8A TXA
Jump from $BCA4:
BCAF: A2 61 LDX #$61
BCB1: C9 F9 CMP #$F9
BCB3: 10 06 BPL $BCBB
BCB5: 20 99 B9 JSR $B999 ; Multiply by Zero Byte
BCB8: 84 68 STY $68 ; Bit Overflow Area during normalisation Routine
Jump from $BC90:
BCBA: 60 RTS
Jump from $BCB3:
BCBB: A8 TAY
BCBC: A5 66 LDA $66 ; FAC Sign
BCBE: 29 80 AND #$80
BCC0: 46 62 LSR $62 ; FAC Mantissa
BCC2: 05 62 ORA $62 ; FAC Mantissa
BCC4: 85 62 STA $62 ; FAC Mantissa
BCC6: 20 B0 B9 JSR $B9B0 ; Multiply by Zero Byte
BCC9: 84 68 STY $68 ; Bit Overflow Area during normalisation Routine
BCCB: 60 RTS
Previous Page / Next Page