Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-06 01:29:27 +00:00
Code Issues Projects Releases Wiki Activity

fac: more opt

Browse Source
This commit is contained in:
Vince Weaver 2023-09-07 01:50:55 -04:00
parent d62dba27ec
commit 5457d2f482
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
fac/plasma_opt.s
View File

@ -11,6 +11,7 @@
; 171 bytes = optimize save/load of loop index ; 171 bytes = optimize save/load of loop index
; 169 bytes = optimize multiply by 8 ; 169 bytes = optimize multiply by 8
; 166 bytes = separate common sin code ; 166 bytes = separate common sin code
; 164 bytes = move more to common sin code
qint = $EBF2 ; convert FAC to 32-bit int? qint = $EBF2 ; convert FAC to 32-bit int?
fadd = $E7BE ; FAC = (Y:A)+FAC fadd = $E7BE ; FAC = (Y:A)+FAC
@ -26,7 +27,7 @@ FAC = $9D ; 9D-A2
; uses ARG (A5-AA) for argument ; uses ARG (A5-AA) for argument
; uses FAC (9D-A2) ; uses FAC (9D-A2)
TEMP1 = $FE
OURX = $FF OURX = $FF
sin1 = $2000 sin1 = $2000
@ -120,16 +121,12 @@ sin_loop:
sin_table_input1_smc: sin_table_input1_smc:
lda #<one_input lda #<one_input
; thirtytwo or twentyfour
ldx #<thirty_two
jsr sin_common jsr sin_common
; thirtytwo or twentyfour ; ldx #<save
lda #<thirty_two
jsr fmult ; FAC=constant*FAC
ldx #<save
ldy #>save
jsr movmf ; save FAC to mem jsr movmf ; save FAC to mem
lda OURX lda OURX
@ -137,16 +134,14 @@ sin_table_input1_smc:
sin_table_input3_smc: sin_table_input3_smc:
lda #<two_input lda #<two_input
; always 16
ldx #<sixteen
jsr sin_common jsr sin_common
; always 16
lda #<sixteen
jsr fmult ; FAC=constant*FAC
; add first sine ; add first sine
lda #<save txa
ldy #>save ; lda #<save
jsr fadd ; FAC=FAC+(previous result) jsr fadd ; FAC=FAC+(previous result)
; add constant 47 or 38 ; add constant 47 or 38
@ -176,15 +171,22 @@ sin_table_dest_smc:
; sin_common ; sin_common
;============================== ;==============================
; A = low byte for input multiplier ; A = low byte for input multiplier
; X = low byte for result multiplier
sin_common: sin_common:
stx TEMP1
ldy #>one_input ; high byte, assume always same
ldy #>one_input
jsr fmult ; FAC=FAC*(constant from RAM) jsr fmult ; FAC=FAC*(constant from RAM)
jsr sin ; FAC=sin(FAC) jsr sin ; FAC=sin(FAC)
; 32 or 24 ldy #>thirty_two ; high byte, assume always same
ldy #>thirty_two lda TEMP1
jsr fmult ; FAC=constant*FAC
ldy #>save
ldx #<save
rts rts