$E000/57344:   EXP continued From BASIC ROM

Jump from $BFFD:

E000: 85 56     STA $56       ; Jump Vector used in Function Evaluation
E002: 20 0F BC  JSR $BC0F     ; Copy FAC#1 into FAC#2
E005: A5 61     LDA $61       ; FAC Exponent
E007: C9 88     CMP #$88
E009: 90 03     BCC $E00E

Jump from $E016:

E00B: 20 D4 BA  JSR $BAD4     ; Overflow / Underflow

Jump from $E009:

E00E: 20 CC BC  JSR $BCCC     ; Evaluate <int>
E011: A5 07     LDA $07       ; Temporary Integer during OR/AND
E013: 18        CLC
E014: 69 81     ADC #$81
E016: F0 F3     BEQ $E00B
E018: 38        SEC
E019: E9 01     SBC #$01
E01B: 48        PHA
E01C: A2 05     LDX #$05

Jump from $E027:

E01E: B5 69     LDA $69,X     ; AFAC Exponent
E020: B4 61     LDY $61,X     ; FAC Exponent
E022: 95 61     STA $61,X     ; FAC Exponent
E024: 94 69     STY $69,X     ; AFAC Exponent
E026: CA        DEX
E027: 10 F5     BPL $E01E
E029: A5 56     LDA $56       ; Jump Vector used in Function Evaluation
E02B: 85 70     STA $70       ; FAC low-order rounding
E02D: 20 53 B8  JSR $B853     ; Perform Subtraction
E030: 20 B4 BF  JSR $BFB4     ; Negate FAC#1
E033: A9 C4     LDA #$C4
E035: A0 BF     LDY #$BF
E037: 20 59 E0  JSR $E059     ; Series Evaluation
E03A: A9 00     LDA #$00
E03C: 85 6F     STA $6F       ; Sign of result of Arithmetic Evaluation
E03E: 68        PLA
E03F: 20 B9 BA  JSR $BAB9     ; Test Both Accumulators
E042: 60        RTS

    Previous Page / Next Page