$BCCC/48332:   Evaluate <int>

Jump from $BF8F, $E00E, $E27A:

BCCC: A5 61     LDA $61       ; FAC Exponent
BCCE: C9 A0     CMP #$A0
BCD0: B0 20     BCS $BCF2
BCD2: 20 9B BC  JSR $BC9B     ; Convert FAC#1 to Integer
BCD5: 84 70     STY $70       ; FAC low-order rounding
BCD7: A5 66     LDA $66       ; FAC Sign
BCD9: 84 66     STY $66       ; FAC Sign
BCDB: 49 80     EOR #$80
BCDD: 2A        ROL
BCDE: A9 A0     LDA #$A0
BCE0: 85 61     STA $61       ; FAC Exponent
BCE2: A5 65     LDA $65       ; FAC Mantissa
BCE4: 85 07     STA $07       ; Temporary Integer during OR/AND
BCE6: 4C D2 B8  JMP $B8D2     ; Perform Addition

Jump from $BC9D:

BCE9: 85 62     STA $62       ; FAC Mantissa
BCEB: 85 63     STA $63       ; FAC Mantissa
BCED: 85 64     STA $64       ; FAC Mantissa
BCEF: 85 65     STA $65       ; FAC Mantissa
BCF1: A8        TAY

Jump from $BCD0:

BCF2: 60        RTS

    Previous Page / Next Page