$E26B/57963: Evaluate <sin>
Jump from $E2BB:
E26B: 20 0C BC JSR $BC0C ; Copy FAC#1 into FAC#2
E26E: A9 E5 LDA #$E5
E270: A0 E2 LDY #$E2
E272: A6 6E LDX $6E ; AFAC Sign
E274: 20 07 BB JSR $BB07 ; Divide FAC#2 by Flpt at (AC/YR)
E277: 20 0C BC JSR $BC0C ; Copy FAC#1 into FAC#2
E27A: 20 CC BC JSR $BCCC ; Evaluate <int>
E27D: A9 00 LDA #$00
E27F: 85 6F STA $6F ; Sign of result of Arithmetic Evaluation
E281: 20 53 B8 JSR $B853 ; Perform Subtraction
E284: A9 EA LDA #$EA
E286: A0 E2 LDY #$E2
E288: 20 50 B8 JSR $B850 ; Perform Subtraction
E28B: A5 66 LDA $66 ; FAC Sign
E28D: 48 PHA
E28E: 10 0D BPL $E29D
E290: 20 49 B8 JSR $B849 ; Add 0.5 to FAC#1
E293: A5 66 LDA $66 ; FAC Sign
E295: 30 09 BMI $E2A0
E297: A5 12 LDA $12 ; Flag: TAN sign/Comparative result
E299: 49 FF EOR #$FF
E29B: 85 12 STA $12 ; Flag: TAN sign/Comparative result
Jump from $E28E, $E2DD:
E29D: 20 B4 BF JSR $BFB4 ; Negate FAC#1
Jump from $E295:
E2A0: A9 EA LDA #$EA
E2A2: A0 E2 LDY #$E2
E2A4: 20 67 B8 JSR $B867 ; Perform Addition
E2A7: 68 PLA
E2A8: 10 03 BPL $E2AD
E2AA: 20 B4 BF JSR $BFB4 ; Negate FAC#1
Jump from $E2A8:
E2AD: A9 EF LDA #$EF
E2AF: A0 E2 LDY #$E2
E2B1: 4C 43 E0 JMP $E043 ; Series Evaluation
Previous Page / Next Page