$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