$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