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

pt3_player: inline GetNote() which speeds things up a bit

Browse Source
This commit is contained in:
Vince Weaver 2019-09-10 22:29:22 -04:00
parent f13d6b06a3
commit 9d6b22a0c2
3 changed files with 43 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pt3_player/OPTIMIZATION.txt
View File

@ -31,7 +31,7 @@ Code Optimization
MinorFixes 2418 + 143 1A.1F 26s 171s 15.2%
FixVibrato 2423 + 143 1A.1F 26s 171s 15.2%
GetNoteSMC 2448 + 143 1A.16 26s 171s 15.2%
2407 + 143 1A.16
NoteTableGen 2554 + 143 1A.1C 26s 171s 15.2%
Times: Validated
BH.PT3: 10.0B 16 1:33 93 17.2%

13
pt3_player/pt3_dumper.s
View File

@ -422,11 +422,14 @@ FRAMEH: .byte $00
song_list:
; .asciiz "CR.PT3"
.asciiz "EA.PT3"
; .asciiz "RI.PT3"
; .asciiz "OO.PT3"
; .asciiz "DY.PT3"
; .asciiz "IT.PT3" ; ST
; .asciiz "CR.PT3" ; ST
; .asciiz "EA.PT3" ; ST
; .asciiz "RI.PT3" ; ST
; .asciiz "OO.PT3" ; ASM_34_35
; .asciiz "DY.PT3" ; ASM_34_35
; .asciiz "BH.PT3" ; PT_34_35
.asciiz "CH.PT3" ; REAL_34_35
;=========
;routines

56
pt3_player/pt3_lib.s
View File

@ -24,6 +24,7 @@
; + 2739 bytes -- qkumba's crazy SMC everywhere patch
; + 2418+143 = 2561 bytes -- move NOTE structs to page0
; + 2423+143 = 2566 bytes -- fix vibrato code
; + 2554+143 = 2697 bytes -- generate all four tone tables
; TODO
; move some of these flags to be bits rather than bytes?
@ -901,13 +902,13 @@ note_not_too_high:
; w = GetNoteFreq(j,pt3->frequency_table);
jsr GetNoteFreq
tay ; for GetNoteFreq
; jsr GetNoteFreq
; a->tone = (a->tone + a->tone_sliding + w) & 0xfff;
clc
ldy note_a+NOTE_TONE_SLIDING_L,X
tya
lda note_a+NOTE_TONE_SLIDING_L,X
adc note_a+NOTE_TONE_L,X
sta temp_word_l1_smc+1
@ -915,16 +916,20 @@ note_not_too_high:
adc note_a+NOTE_TONE_SLIDING_H,X
sta temp_word_h1_smc+1
clc ;;can be removed if ADC SLIDING_H cannot overflow
temp_word_l1_smc:
lda #$d1
freq_l_smc:
adc #$d1
; adc #$d1 ; GetNoteFreq
adc NoteTable_low,Y ; GetNoteFreq
sta note_a+NOTE_TONE_L,X
temp_word_h1_smc:
lda #$d1
freq_h_smc:
adc #$d1
; adc #$d1 ; GetNoteFreq
adc NoteTable_high,Y
and #$0f
sta note_a+NOTE_TONE_H,X
@ -941,7 +946,7 @@ freq_h_smc:
; a->tone_sliding+=a->tone_slide_step
clc ;;can be removed if ADC freq_h cannot overflow
tya
lda note_a+NOTE_TONE_SLIDING_L,X
adc note_a+NOTE_TONE_SLIDE_STEP_L,X
sta note_a+NOTE_TONE_SLIDING_L,X
tay
@ -1701,22 +1706,27 @@ skip_step_inc1:
; a->tone_delta=GetNoteFreq(a->note,pt3)-
; GetNoteFreq(prev_note,pt3);
sty TEMP ; save Y
prev_note_smc:
lda #$d1
jsr GetNoteFreq
lda freq_l_smc+1
ldy #$d1
; jsr GetNoteFreq
; lda freq_l_smc+1
lda NoteTable_low,Y ; GetNoteFreq
sta temp_word_l2_smc+1
lda freq_h_smc+1
lda NoteTable_high,Y ; GetNoteFreq
; lda freq_h_smc+1
sta temp_word_h2_smc+1
lda note_a+NOTE_NOTE,X
jsr GetNoteFreq
ldy note_a+NOTE_NOTE,X
; jsr GetNoteFreq
lda NoteTable_low,Y ; GetNoteFreq
sec
temp_word_l2_smc:
sbc #$d1
sta note_a+NOTE_TONE_DELTA_L,X
lda freq_h_smc+1
; lda freq_h_smc+1
lda NoteTable_high,Y ; GetNoteFreq
temp_word_h2_smc:
sbc #$d1
sta note_a+NOTE_TONE_DELTA_H,X
@ -1725,6 +1735,8 @@ temp_word_h2_smc:
lda note_a+NOTE_NOTE,X
sta note_a+NOTE_SLIDE_TO_NOTE,X
ldy TEMP ; restore Y
; a->note=prev_note;
lda prev_note_smc+1
sta note_a+NOTE_NOTE,X
@ -2407,18 +2419,18 @@ done_do_frame:
; Which note is in A
; return in freq_l/freq_h
GetNoteFreq:
;GetNoteFreq:
sty PT3_TEMP ; 3
tay ; 2
; sty PT3_TEMP ; 3
; tay ; 2
lda NoteTable_high,Y ; 4+
sta freq_h_smc+1 ; 4
lda NoteTable_low,Y ; 4+
sta freq_l_smc+1 ; 4
; lda NoteTable_high,Y ; 4+
; sta freq_h_smc+1 ; 4
; lda NoteTable_low,Y ; 4+
; sta freq_l_smc+1 ; 4
ldy PT3_TEMP ; 3
rts ; 6
; ldy PT3_TEMP ; 3
; rts ; 6
;===========