$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