Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-05 06:31:25 +00:00
Code Issues Projects Releases Wiki Activity

pt3_lib: also use loop to zero vars

Browse Source
This commit is contained in:
Vince Weaver 2019-06-08 01:44:04 -04:00
parent ae3d819970
commit 5961077695
3 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
pt3_lib/pt3_lib.dsk
View File

Binary file not shown.

21
pt3_lib/pt3_lib.s
View File

@ -84,6 +84,8 @@ NOTE_TONE_SLIDE_TO_STEP =39
NOTE_STRUCT_SIZE=40
begin_vars:
note_a:
.byte $0 ; NOTE_VOLUME ; 0
.byte $0 ; NOTE_TONE_SLIDING_L ; 1
@ -236,6 +238,7 @@ pt3_envelope_delay_orig:.byte $0
pt3_mixer_value: .byte $0
end_vars:
;==========================
; local variables
@ -419,15 +422,23 @@ load_sample:
; pt3_init_song
;====================================
;
; TODO: change to a memset type instruction?
; it will save bytes only if the labels are adjacent
; it will add a lot more cycles, though
pt3_init_song:
lda #$0
sta DONE_SONG ; 3
ldx #(end_vars-begin_vars)
zero_song_structs_loop:
dex
sta note_a,X
bne zero_song_structs_loop
lda #$f ; 2
sta note_a+NOTE_VOLUME ; 4
sta note_b+NOTE_VOLUME ; 4
sta note_c+NOTE_VOLUME ; 4
.if 0
lda #$0 ; 2
sta DONE_SONG ; 3
sta note_a+NOTE_TONE_SLIDING_L ; 4
@ -448,7 +459,7 @@ pt3_init_song:
sta pt3_envelope_period_l ; 4
sta pt3_envelope_period_h ; 4
sta pt3_envelope_type ; 4
.endif
; default ornament/sample in A
ldx #(NOTE_STRUCT_SIZE*0) ; 2
jsr load_ornament ; 6+93

3
pt3_player/pt3_lib.s
View File

@ -423,9 +423,6 @@ load_sample:
; pt3_init_song
;====================================
;
; TODO: change to a memset type instruction?
; it will save bytes only if the labels are adjacent
; it will add a lot more cycles, though
pt3_init_song:
lda #$0