$BC5B/48219: Compare FAC#1 With Memory
Jump from $B027, $B1C9, $BE0F, $BE1A, $BF96:
BC5B: 85 24 STA $24 ; Second Utility Pointer
Jump from $AD57:
BC5D: 84 25 STY $25 ; Second Utility Pointer
BC5F: A0 00 LDY #$00
BC61: B1 24 LDA ($24),Y ; Second Utility Pointer
BC63: C8 INY
BC64: AA TAX
BC65: F0 C4 BEQ $BC2B ; Check Sign of FAC#1
BC67: B1 24 LDA ($24),Y ; Second Utility Pointer
BC69: 45 66 EOR $66 ; FAC Sign
BC6B: 30 C2 BMI $BC2F ; Check Sign of FAC#1
BC6D: E4 61 CPX $61 ; FAC Exponent
BC6F: D0 21 BNE $BC92
BC71: B1 24 LDA ($24),Y ; Second Utility Pointer
BC73: 09 80 ORA #$80
BC75: C5 62 CMP $62 ; FAC Mantissa
BC77: D0 19 BNE $BC92
BC79: C8 INY
BC7A: B1 24 LDA ($24),Y ; Second Utility Pointer
BC7C: C5 63 CMP $63 ; FAC Mantissa
BC7E: D0 12 BNE $BC92
BC80: C8 INY
BC81: B1 24 LDA ($24),Y ; Second Utility Pointer
BC83: C5 64 CMP $64 ; FAC Mantissa
BC85: D0 0B BNE $BC92
BC87: C8 INY
BC88: A9 7F LDA #$7F
BC8A: C5 70 CMP $70 ; FAC low-order rounding
BC8C: B1 24 LDA ($24),Y ; Second Utility Pointer
BC8E: E5 65 SBC $65 ; FAC Mantissa
BC90: F0 28 BEQ $BCBA ; Convert FAC#1 to Integer
Jump from $BC6F, $BC77, $BC7E, $BC85:
BC92: A5 66 LDA $66 ; FAC Sign
BC94: 90 02 BCC $BC98
BC96: 49 FF EOR #$FF
Jump from $BC94:
BC98: 4C 31 BC JMP $BC31 ; Check Sign of FAC#1
Previous Page / Next Page