$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