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