$B9EA/47594:   Evaluate <log>

Jump from $BFA3:

B9EA: 20 2B BC  JSR $BC2B     ; Check Sign of FAC#1
B9ED: F0 02     BEQ $B9F1
B9EF: 10 03     BPL $B9F4

Jump from $B9ED:

B9F1: 4C 48 B2  JMP $B248     ; ?ILLEGAL QUANTITY

Jump from $B9EF:

B9F4: A5 61     LDA $61       ; FAC Exponent
B9F6: E9 7F     SBC #$7F
B9F8: 48        PHA
B9F9: A9 80     LDA #$80
B9FB: 85 61     STA $61       ; FAC Exponent
B9FD: A9 D6     LDA #$D6
B9FF: A0 B9     LDY #$B9
BA01: 20 67 B8  JSR $B867     ; Perform Addition
BA04: A9 DB     LDA #$DB
BA06: A0 B9     LDY #$B9
BA08: 20 0F BB  JSR $BB0F     ; Divide FAC#2 by FAC#1
BA0B: A9 BC     LDA #$BC
BA0D: A0 B9     LDY #$B9
BA0F: 20 50 B8  JSR $B850     ; Perform Subtraction
BA12: A9 C1     LDA #$C1
BA14: A0 B9     LDY #$B9
BA16: 20 43 E0  JSR $E043     ; Series Evaluation
BA19: A9 E0     LDA #$E0
BA1B: A0 B9     LDY #$B9
BA1D: 20 67 B8  JSR $B867     ; Perform Addition
BA20: 68        PLA
BA21: 20 7E BD  JSR $BD7E     ; Convert ASCII String to a Number in FAC
BA24: A9 E5     LDA #$E5
BA26: A0 B9     LDY #$B9

    Previous Page / Next Page