$E30E/58126: Evaluate <atn>
E30E: A5 66 LDA $66 ; FAC Sign
E310: 48 PHA
E311: 10 03 BPL $E316
E313: 20 B4 BF JSR $BFB4 ; Negate FAC#1
Jump from $E311:
E316: A5 61 LDA $61 ; FAC Exponent
E318: 48 PHA
E319: C9 81 CMP #$81
E31B: 90 07 BCC $E324
E31D: A9 BC LDA #$BC
E31F: A0 B9 LDY #$B9
E321: 20 0F BB JSR $BB0F ; Divide FAC#2 by FAC#1
Jump from $E31B:
E324: A9 3E LDA #$3E
E326: A0 E3 LDY #$E3
E328: 20 43 E0 JSR $E043 ; Series Evaluation
E32B: 68 PLA
E32C: C9 81 CMP #$81
E32E: 90 07 BCC $E337
E330: A9 E0 LDA #$E0
E332: A0 E2 LDY #$E2
E334: 20 50 B8 JSR $B850 ; Perform Subtraction
Jump from $E32E:
E337: 68 PLA
E338: 10 03 BPL $E33D
E33A: 4C B4 BF JMP $BFB4 ; Negate FAC#1
Jump from $E338:
E33D: 60 RTS
Previous Page / Next Page