mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-04 03:29:29 +00:00
61 lines
853 B
ArmAsm
61 lines
853 B
ArmAsm
; approx sine
|
|
|
|
; uses two parabolas to approximate sine
|
|
; see https://codebase64.org/doku.php?id=base:generating_approximate_sines_in_assembly
|
|
|
|
VALUE_L = $F0
|
|
VALUE_H = $F1
|
|
DELTA_L = $F2
|
|
DELTA_H = $F3
|
|
|
|
|
|
|
|
approx_sine:
|
|
|
|
|
|
initSineTable:
|
|
|
|
ldy #$3f
|
|
ldx #$00
|
|
stx VALUE_L
|
|
stx VALUE_H
|
|
stx DELTA_L
|
|
stx DELTA_H
|
|
|
|
|
|
; Accumulate the delta (normal 16-bit addition)
|
|
|
|
outer_loop:
|
|
lda VALUE_L
|
|
clc
|
|
adc DELTA_L
|
|
sta VALUE_L
|
|
lda VALUE_H
|
|
adc DELTA_H
|
|
sta VALUE_H
|
|
|
|
; Reflect the value around for a sine wave
|
|
|
|
sta sinetable+$c0,X
|
|
sta sinetable+$80,Y
|
|
eor #$ff
|
|
sta sinetable+$40,X
|
|
sta sinetable+$00,Y
|
|
|
|
; Increase the delta, which creates the "acceleration" for a parabola
|
|
lda DELTA_L
|
|
adc #$10 ; this value adds up to the proper amplitude
|
|
sta DELTA_L
|
|
bcc skip_oflo
|
|
inc DELTA_H
|
|
skip_oflo:
|
|
; Loop
|
|
inx
|
|
dey
|
|
bpl outer_loop
|
|
|
|
end:
|
|
jmp end
|
|
|
|
sinetable=$6000
|