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

optimize effects code

Browse Source
This commit is contained in:
Peter Ferrie 2019-06-01 00:40:25 -04:00 committed by Vince Weaver
parent 3c4d32eaba
commit 0a89e8fcfc
1 changed files with 22 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
pt3_player/pt3_lib.s
View File

@ -928,9 +928,7 @@ done_note:
; set mixer value
; this is a bit complex (from original code)
; after 3 calls it is set up properly
lda pt3_mixer_value
lsr
sta pt3_mixer_value
lsr pt3_mixer_value
handle_onoff:
lda note_a+NOTE_ONOFF,X ;if (a->onoff>0) {
@ -1170,16 +1168,7 @@ decode_case_bX:
and #$f
beq decode_case_b0
cmp #1
beq decode_case_b1
jmp decode_case_bx_higher
decode_case_b0:
; Disable envelope
lda #0
sta note_a+NOTE_ENVELOPE_ENABLED,X
sta note_a+NOTE_ORNAMENT_POSITION,X
jmp done_decode
bne decode_case_bx_higher
decode_case_b1:
; Set Length
@ -1192,6 +1181,13 @@ decode_case_b1:
sta note_a+NOTE_LEN_COUNT,X
jmp done_decode
decode_case_b0:
; Disable envelope
sta note_a+NOTE_ENVELOPE_ENABLED,X
sta note_a+NOTE_ORNAMENT_POSITION,X
jmp done_decode
decode_case_bx_higher:
sec
@ -1215,7 +1211,6 @@ decode_case_cX:
decode_case_c0:
; special case $C0 means shut down the note
lda #0
sta note_a+NOTE_ENABLED,X ; enabled=0
jsr reset_note ; 6+69
@ -1245,11 +1240,6 @@ decode_case_dX:
lda #1
sta decode_done
jmp done_decode
decode_case_dx_not_d0:
jsr load_sample ; load sample in bottom nybble
jmp done_decode
decode_case_eX:
;==============================
@ -1261,10 +1251,13 @@ decode_case_eX:
lda note_command
sec
sbc #$d0
jsr load_sample
;fall through
decode_case_dx_not_d0:
jsr load_sample ; load sample in bottom nybble
jmp done_decode
decode_case_fX:
;==============================
; $FX - change ornament/sample
@ -1315,6 +1308,10 @@ effect_1:
cmp #$1
bne effect_2
sta note_a+NOTE_SIMPLE_GLISS,X
lsr
sta note_a+NOTE_ONOFF,X
lda (PATTERN_L),Y ; load byte, set as slide delay
iny
@ -1329,11 +1326,6 @@ effect_1:
iny
sta note_a+NOTE_TONE_SLIDE_STEP_H,X
lda #0
sta note_a+NOTE_ONOFF,X
lda #1
sta note_a+NOTE_SIMPLE_GLISS,X
jmp no_effect
;==============================
@ -1371,12 +1363,11 @@ effect_2_small: ; FIXME: make smaller
sta note_a+NOTE_TONE_SLIDE_STEP_H,X
lda note_a+NOTE_TONE_SLIDE_STEP_L,X
eor #$ff
clc
adc #$1
adc #$0 ;+carry set by earlier CMP
sta note_a+NOTE_TONE_SLIDE_STEP_L,X
lda note_a+NOTE_TONE_SLIDE_STEP_H,X
adc #$0
sta note_a+NOTE_TONE_SLIDE_STEP_H,X
bcc skip_step_inc1
inc note_a+NOTE_TONE_SLIDE_STEP_H,X
skip_step_inc1:
slide_step_positive: