Prev: E26B Up: Map Next: E2DC
E2B4: perform TAN()
E2B4 20 CA BB JSR $BBCA pack FAC1 into $57
E2B7 A9 00 LDA #$00 clear A
E2B9 85 12 STA $12 clear the comparison evaluation flag
E2BB 20 6B E2 JSR $E26B perform SIN()
E2BE A2 4E LDX #$4E set sin(n) pointer low byte
E2C0 A0 00 LDY #$00 set sin(n) pointer high byte
E2C2 20 F6 E0 JSR $E0F6 pack FAC1 into (XY)
E2C5 A9 57 LDA #$57 set n pointer low byte
E2C7 A0 00 LDY #$00 set n pointer high byte
E2C9 20 A2 BB JSR $BBA2 unpack memory (AY) into FAC1
E2CC A9 00 LDA #$00 clear byte
E2CE 85 66 STA $66 clear FAC1 sign (b7)
E2D0 A5 12 LDA $12 get the comparison evaluation flag
E2D2 20 DC E2 JSR $E2DC save flag and go do series evaluation
E2D5 A9 4E LDA #$4E set sin(n) pointer low byte
E2D7 A0 00 LDY #$00 set sin(n) pointer high byte
E2D9 4C 0F BB JMP $BB0F convert AY and do (AY)/FAC1
Prev: E26B Up: Map Next: E2DC