$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 |