Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-13 22:30:49 +00:00
Code Issues Projects Releases Wiki Activity

interlace: use jump table for some of decode

Browse Source
This commit is contained in:
Vince Weaver 2019-09-14 17:10:44 -04:00
parent ac5b22d700
commit 9222100623
1 changed files with 252 additions and 217 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

469
interlace_demo/pt3_lib_core.s
View File

@ -419,81 +419,90 @@ temp_word_h1_smc:
;===================== ;=====================
; handle tone sliding ; handle tone sliding
lda note_a+NOTE_TONE_SLIDE_COUNT,X ; if (a->tone_slide_count > 0) {
bmi no_tone_sliding ; if (a->tone_slide_count > 0) {
beq no_tone_sliding
dec note_a+NOTE_TONE_SLIDE_COUNT,X ; a->tone_slide_count--;
bne no_tone_sliding ; if (a->tone_slide_count==0) {
lda note_a+NOTE_TONE_SLIDE_COUNT,X ; 4
bmi no_tone_sliding ; 3
; -1
beq no_tone_sliding ; 3
; -1
; a->tone_slide_count--;
dec note_a+NOTE_TONE_SLIDE_COUNT,X ; 6
; if (a->tone_slide_count==0) {
bne no_tone_sliding ; 3
; -1
; a->tone_sliding+=a->tone_slide_step ; a->tone_sliding+=a->tone_slide_step
clc ;;can be removed if ADC freq_h cannot overflow clc ;;can be removed if ADC freq_h cannot overflow ; 2
lda note_a+NOTE_TONE_SLIDING_L,X lda note_a+NOTE_TONE_SLIDING_L,X ; 4
adc note_a+NOTE_TONE_SLIDE_STEP_L,X adc note_a+NOTE_TONE_SLIDE_STEP_L,X ; 4
sta note_a+NOTE_TONE_SLIDING_L,X sta note_a+NOTE_TONE_SLIDING_L,X ; 4
tay ; save NOTE_TONE_SLIDING_L in y tay ; save NOTE_TONE_SLIDING_L in y ; 2
lda note_a+NOTE_TONE_SLIDING_H,X lda note_a+NOTE_TONE_SLIDING_H,X ; 4
adc note_a+NOTE_TONE_SLIDE_STEP_H,X adc note_a+NOTE_TONE_SLIDE_STEP_H,X ; 4
sta note_a+NOTE_TONE_SLIDING_H,X sta note_a+NOTE_TONE_SLIDING_H,X ; 4
; a->tone_slide_count = a->tone_slide_delay; ; a->tone_slide_count = a->tone_slide_delay;
lda note_a+NOTE_TONE_SLIDE_DELAY,X lda note_a+NOTE_TONE_SLIDE_DELAY,X ; 4
sta note_a+NOTE_TONE_SLIDE_COUNT,X sta note_a+NOTE_TONE_SLIDE_COUNT,X ; 4
lda note_a+NOTE_SIMPLE_GLISS,X
bne no_tone_sliding ; if (!a->simplegliss) {
; FIXME: do these need to be signed compares?
lda note_a+NOTE_SIMPLE_GLISS,X ; 4
bne no_tone_sliding ; if (!a->simplegliss) { ; 3
; -1
check1: check1:
lda note_a+NOTE_TONE_SLIDE_STEP_H,X lda note_a+NOTE_TONE_SLIDE_STEP_H,X ; 4
bpl check2 ; if ( ((a->tone_slide_step < 0) && bpl check2 ; 3
; if ( ((a->tone_slide_step < 0) && ; -1
; (a->tone_sliding <= a->tone_delta) || ; (a->tone_sliding <= a->tone_delta) ||
; 16 bit signed compare ; 16 bit signed compare
tya ; y has NOTE_TONE_SLIDING_L tya ; y has NOTE_TONE_SLIDING_L ; 2
cmp note_a+NOTE_TONE_DELTA_L,X ; NUM1-NUM2 cmp note_a+NOTE_TONE_DELTA_L,X ; NUM1-NUM2 ; 4
lda note_a+NOTE_TONE_SLIDING_H,X lda note_a+NOTE_TONE_SLIDING_H,X ; 4
sbc note_a+NOTE_TONE_DELTA_H,X sbc note_a+NOTE_TONE_DELTA_H,X ; 4
bvc sc_loser1 ; N eor V bvc sc_loser1 ; N eor V ; 3
eor #$80 ; -1
eor #$80 ; 2
sc_loser1: sc_loser1:
bmi slide_to_note ; then A (signed) < NUM (signed) and BMI will branch ; then A (signed) < NUM (signed) and BMI will branch
bmi slide_to_note ; 3
; -1
; equals case ; equals case
tya ; y has NOTE_TONE_SLIDING_L tya ; y has NOTE_TONE_SLIDING_L ; 2
cmp note_a+NOTE_TONE_DELTA_L,X cmp note_a+NOTE_TONE_DELTA_L,X ; 4
bne check2 bne check2 ; 3
lda note_a+NOTE_TONE_SLIDING_H,X ; -1
cmp note_a+NOTE_TONE_DELTA_H,X lda note_a+NOTE_TONE_SLIDING_H,X ; 4
beq slide_to_note cmp note_a+NOTE_TONE_DELTA_H,X ; 4
beq slide_to_note ; 3
; -1
check2: check2:
lda note_a+NOTE_TONE_SLIDE_STEP_H,X lda note_a+NOTE_TONE_SLIDE_STEP_H,X ; 4
bmi no_tone_sliding ; ((a->tone_slide_step >= 0) && bmi no_tone_sliding ; 3
; ((a->tone_slide_step >= 0) &&
; (a->tone_sliding >= a->tone_delta) ; (a->tone_sliding >= a->tone_delta)
; -1
; 16 bit signed compare ; 16 bit signed compare
tya ; y has NOTE_TONE_SLIDING_L tya ; y has NOTE_TONE_SLIDING_L ; 2
cmp note_a+NOTE_TONE_DELTA_L,X ; num1-num2 cmp note_a+NOTE_TONE_DELTA_L,X ; num1-num2 ; 4
lda note_a+NOTE_TONE_SLIDING_H,X lda note_a+NOTE_TONE_SLIDING_H,X ; 4
sbc note_a+NOTE_TONE_DELTA_H,X sbc note_a+NOTE_TONE_DELTA_H,X ; 4
bvc sc_loser2 ; N eor V bvc sc_loser2 ; N eor V ; 3
eor #$80 ; -1
eor #$80 ; 2
sc_loser2: sc_loser2:
bmi no_tone_sliding ; then A (signed) < NUM (signed) and BMI will branch ; then A (signed) < NUM (signed) and BMI will branch
bmi no_tone_sliding ; 3
; -1
slide_to_note: slide_to_note:
; a->note = a->slide_to_note; ; a->note = a->slide_to_note;
lda note_a+NOTE_SLIDE_TO_NOTE,X lda note_a+NOTE_SLIDE_TO_NOTE,X ; 4
sta note_a+NOTE_NOTE,X sta note_a+NOTE_NOTE,X ; 4
lda #0 lda #0 ; 2
sta note_a+NOTE_TONE_SLIDE_COUNT,X sta note_a+NOTE_TONE_SLIDE_COUNT,X ; 4
sta note_a+NOTE_TONE_SLIDING_L,X sta note_a+NOTE_TONE_SLIDING_L,X ; 4
sta note_a+NOTE_TONE_SLIDING_H,X sta note_a+NOTE_TONE_SLIDING_H,X ; 4
no_tone_sliding: no_tone_sliding:
@ -505,72 +514,80 @@ calc_amplitude:
; get base value from the sample (bottom 4 bits of sample_b1) ; get base value from the sample (bottom 4 bits of sample_b1)
sample_b1_smc: sample_b1_smc:
lda #$d1 ; a->amplitude= (b1 & 0xf); lda #$d1 ; a->amplitude= (b1 & 0xf); ; 2
and #$f and #$f ; 2
;======================================== ;========================================
; if b0 top bit is set, it means sliding ; if b0 top bit is set, it means sliding
; adjust amplitude sliding ; adjust amplitude sliding
bit sample_b0_smc+1 ; if ((b0 & 0x80)!=0) { bit sample_b0_smc+1 ; if ((b0 & 0x80)!=0) { ; 4
bpl done_amp_sliding ; so if top bit not set, skip bpl done_amp_sliding ; so if top bit not set, skip ; 3
tay ; -1
tay ; 2
;================================ ;================================
; if top bits 0b11 then slide up ; if top bits 0b11 then slide up
; if top bits 0b10 then slide down ; if top bits 0b10 then slide down
; if ((b0 & 0x40)!=0) { ; if ((b0 & 0x40)!=0) {
lda note_a+NOTE_AMPLITUDE_SLIDING,X lda note_a+NOTE_AMPLITUDE_SLIDING,X ; 4
sec sec ; 2
bvc amp_slide_down bvc amp_slide_down ; 3
; -1
amp_slide_up: amp_slide_up:
; if (a->amplitude_sliding < 15) { ; if (a->amplitude_sliding < 15) {
; a pain to do signed compares ; a pain to do signed compares
sbc #15 sbc #15 ; 2
bvc asu_signed bvc asu_signed ; 3
eor #$80 ; -1
eor #$80 ; 2
asu_signed: asu_signed:
bpl done_amp_sliding ; skip if A>=15 bpl done_amp_sliding ; skip if A>=15 ; 2
inc note_a+NOTE_AMPLITUDE_SLIDING,X ; a->amplitude_sliding++; ; a->amplitude_sliding++;
bne done_amp_sliding_y inc note_a+NOTE_AMPLITUDE_SLIDING,X ; 5?
bne done_amp_sliding_y ; 3
; -1
amp_slide_down: amp_slide_down:
; if (a->amplitude_sliding > -15) { ; if (a->amplitude_sliding > -15) {
; a pain to do signed compares ; a pain to do signed compares
sbc #$f1 ; -15 sbc #$f1 ; -15 ; 2
bvc asd_signed bvc asd_signed ; 3
eor #$80 ; -1
eor #$80 ; 2
asd_signed: asd_signed:
bmi done_amp_sliding ; if A < -15, skip subtract bmi done_amp_sliding ; if A < -15, skip subtract ; 3
dec note_a+NOTE_AMPLITUDE_SLIDING,X ; a->amplitude_sliding--; ; a->amplitude_sliding--;
dec note_a+NOTE_AMPLITUDE_SLIDING,X ; 5?
done_amp_sliding_y: done_amp_sliding_y:
tya tya ; 2
done_amp_sliding: done_amp_sliding:
; a->amplitude+=a->amplitude_sliding; ; a->amplitude+=a->amplitude_sliding;
clc clc ; 2
adc note_a+NOTE_AMPLITUDE_SLIDING,X adc note_a+NOTE_AMPLITUDE_SLIDING,X ; 4
; clamp amplitude to 0 - 15 ; clamp amplitude to 0 - 15
check_amp_lo: check_amp_lo:
bmi write_clamp_amplitude bmi write_clamp_amplitude ; 3
; -1
check_amp_hi: check_amp_hi:
cmp #16 cmp #16 ; 2
bcc write_amplitude ; blt bcc write_amplitude ; blt ; 3
lda #15 ; -1
.byte $2C lda #15 ; 2
.byte $2C ;????
write_clamp_amplitude: write_clamp_amplitude:
lda #0 lda #0 ;????
write_amplitude: write_amplitude:
sta note_amp_smc+1 sta note_amp_smc+1 ; 4
done_clamp_amplitude: done_clamp_amplitude:
@ -579,17 +596,17 @@ done_clamp_amplitude:
; a->amplitude = PT3VolumeTable_33_34[a->volume][a->amplitude]; ; a->amplitude = PT3VolumeTable_33_34[a->volume][a->amplitude];
; a->amplitude = PT3VolumeTable_35[a->volume][a->amplitude]; ; a->amplitude = PT3VolumeTable_35[a->volume][a->amplitude];
lda note_a+NOTE_VOLUME,X ; 4+ lda note_a+NOTE_VOLUME,X ; 4
asl ; 2 asl ; 2
asl ; 2 asl ; 2
asl ; 2 asl ; 2
asl ; 2 asl ; 2
note_amp_smc: note_amp_smc:
ora #$d1 ; 4+ ora #$d1 ; 2
tay ; 2 tay ; 2
lda VolumeTable,Y ; 4+ lda VolumeTable,Y ; 4
sta note_a+NOTE_AMPLITUDE,X ; 5 sta note_a+NOTE_AMPLITUDE,X ; 4
done_table: done_table:
@ -601,21 +618,23 @@ check_envelope_enable:
; if (((b0 & 0x1) == 0) && ( a->envelope_enabled)) { ; if (((b0 & 0x1) == 0) && ( a->envelope_enabled)) {
sample_b0_smc: sample_b0_smc:
lda #$d1 lda #$d1 ; 2
lsr lsr ; 2
tay tay ; 2
bcs envelope_slide bcs envelope_slide ; 3
; -1
lda note_a+NOTE_ENVELOPE_ENABLED,X lda note_a+NOTE_ENVELOPE_ENABLED,X ; 4
beq envelope_slide beq envelope_slide ; 3
; -1
; Bit 4 of the per-channel AY-3-8910 amplitude specifies ; Bit 4 of the per-channel AY-3-8910 amplitude specifies
; envelope enabled ; envelope enabled
lda note_a+NOTE_AMPLITUDE,X ; a->amplitude |= 16; lda note_a+NOTE_AMPLITUDE,X ; a->amplitude |= 16; ; 4
ora #$10 ora #$10 ; 2
sta note_a+NOTE_AMPLITUDE,X sta note_a+NOTE_AMPLITUDE,X ; 4
envelope_slide: envelope_slide:
@ -623,103 +642,111 @@ envelope_slide:
; Envelope slide ; Envelope slide
; If b1 top bits are 10 or 11 ; If b1 top bits are 10 or 11
lda sample_b0_smc+1 lda sample_b0_smc+1 ; 4
asl asl ; 2
asl asl ; 2
asl ; b0 bit 5 to carry flag asl ; b0 bit 5 to carry flag ; 2
lda #$20 lda #$20 ; 2
bit sample_b1_smc+1 ; b1 bit 7 to sign flag, bit 5 to zero flag ; b1 bit 7 to sign flag, bit 5 to zero flag
php bit sample_b1_smc+1 ; 4?
bpl else_noise_slide ; if ((b1 & 0x80) != 0) { php ; 4?
tya bpl else_noise_slide ; if ((b1 & 0x80) != 0) { ; 3
ora #$f0 ; -1
bcs envelope_slide_down ; if ((b0 & 0x20) == 0) { tya ; 2
ora #$f0 ; 2
bcs envelope_slide_down ; if ((b0 & 0x20) == 0) { ; 3
; -1
envelope_slide_up: envelope_slide_up:
; j = ((b0>>1)&0xF) + a->envelope_sliding; ; j = ((b0>>1)&0xF) + a->envelope_sliding;
and #$0f and #$0f ; 2
clc clc ; 2
envelope_slide_down: envelope_slide_down:
; j = ((b0>>1)|0xF0) + a->envelope_sliding ; j = ((b0>>1)|0xF0) + a->envelope_sliding
adc note_a+NOTE_ENVELOPE_SLIDING,X adc note_a+NOTE_ENVELOPE_SLIDING,X ; 4
sta e_slide_amount_smc+1 ; j sta e_slide_amount_smc+1 ; j ; 4
envelope_slide_done: envelope_slide_done:
plp plp ; 4?
beq last_envelope ; if (( b1 & 0x20) != 0) { beq last_envelope ; if (( b1 & 0x20) != 0) { ; 3
; -1
; a->envelope_sliding = j; ; a->envelope_sliding = j;
sta note_a+NOTE_ENVELOPE_SLIDING,X sta note_a+NOTE_ENVELOPE_SLIDING,X ; 4
last_envelope: last_envelope:
; pt3->envelope_add+=j; ; pt3->envelope_add+=j;
clc clc ; 2
e_slide_amount_smc: e_slide_amount_smc:
lda #$d1 lda #$d1 ; 2
adc pt3_envelope_add_smc+1 adc pt3_envelope_add_smc+1 ; 4
sta pt3_envelope_add_smc+1 sta pt3_envelope_add_smc+1 ; 4
jmp noise_slide_done ; skip else jmp noise_slide_done ; skip else ; 3
else_noise_slide: else_noise_slide:
; Noise slide ; Noise slide
; else { ; else {
; pt3->noise_add = (b0>>1) + a->noise_sliding; ; pt3->noise_add = (b0>>1) + a->noise_sliding;
tya tya ; 2
clc clc ; 2
adc note_a+NOTE_NOISE_SLIDING,X adc note_a+NOTE_NOISE_SLIDING,X ; 4
sta pt3_noise_add_smc+1 sta pt3_noise_add_smc+1 ; 4
plp
beq noise_slide_done ; if ((b1 & 0x20) != 0) {
plp ; 4?
beq noise_slide_done ; if ((b1 & 0x20) != 0) { ; 3
; -1
; noise_sliding = pt3_noise_add ; noise_sliding = pt3_noise_add
sta note_a+NOTE_NOISE_SLIDING,X sta note_a+NOTE_NOISE_SLIDING,X ; 4
noise_slide_done: noise_slide_done:
;====================== ;======================
; set mixer ; set mixer
lda sample_b1_smc+1 ; pt3->mixer_value = ((b1 >>1) & 0x48) | pt3->mixer_value; ; pt3->mixer_value = ((b1 >>1) & 0x48) | pt3->mixer_value;
lsr lda sample_b1_smc+1 ; 4
and #$48 lsr ; 2
and #$48 ; 2
ora PT3_MIXER_VAL ; 3 ora PT3_MIXER_VAL ; 3
sta PT3_MIXER_VAL ; 3 sta PT3_MIXER_VAL ; 3
;======================== ;========================
; increment sample position ; increment sample position
inc note_a+NOTE_SAMPLE_POSITION,X ; a->sample_position++; ; a->sample_position++;
inc note_a+NOTE_SAMPLE_POSITION,X ; 5?
lda note_a+NOTE_SAMPLE_POSITION,X lda note_a+NOTE_SAMPLE_POSITION,X ; 4
cmp note_a+NOTE_SAMPLE_LENGTH,X cmp note_a+NOTE_SAMPLE_LENGTH,X ; 4
bcc sample_pos_ok ; blt bcc sample_pos_ok ; blt ; 3
; -1
lda note_a+NOTE_SAMPLE_LOOP,X lda note_a+NOTE_SAMPLE_LOOP,X ; 4
sta note_a+NOTE_SAMPLE_POSITION,X sta note_a+NOTE_SAMPLE_POSITION,X ; 4
sample_pos_ok: sample_pos_ok:
;======================== ;============================
; increment ornament position ; increment ornament position
inc note_a+NOTE_ORNAMENT_POSITION,X ; a->ornament_position++; ; a->ornament_position++;
lda note_a+NOTE_ORNAMENT_POSITION,X inc note_a+NOTE_ORNAMENT_POSITION,X ; 5?
cmp note_a+NOTE_ORNAMENT_LENGTH,X lda note_a+NOTE_ORNAMENT_POSITION,X ; 4
cmp note_a+NOTE_ORNAMENT_LENGTH,X ; 4
bcc ornament_pos_ok ; blt bcc ornament_pos_ok ; blt ; 3
; -1
lda note_a+NOTE_ORNAMENT_LOOP,X lda note_a+NOTE_ORNAMENT_LOOP,X ; 4
sta note_a+NOTE_ORNAMENT_POSITION,X sta note_a+NOTE_ORNAMENT_POSITION,X ; 4
ornament_pos_ok: ornament_pos_ok:
@ -823,21 +850,28 @@ stop_decoding:
pt3_decode_line: pt3_decode_line:
; decode_note(&pt3->a,&(pt3->a_addr),pt3); ; decode_note(&pt3->a,&(pt3->a_addr),pt3);
ldx #(NOTE_STRUCT_SIZE*0) ldx #(NOTE_STRUCT_SIZE*0) ; 2
jsr decode_note jsr decode_note ; 6+??
; decode_note(&pt3->b,&(pt3->b_addr),pt3); ; decode_note(&pt3->b,&(pt3->b_addr),pt3);
ldx #(NOTE_STRUCT_SIZE*1) ldx #(NOTE_STRUCT_SIZE*1) ; 2
jsr decode_note jsr decode_note ; 6+??
; decode_note(&pt3->c,&(pt3->c_addr),pt3); ; decode_note(&pt3->c,&(pt3->c_addr),pt3);
ldx #(NOTE_STRUCT_SIZE*2) ldx #(NOTE_STRUCT_SIZE*2) ; 2
;;jsr decode_note ; fall through ;;jsr decode_note ; fall through
; if (pt3->a.all_done && pt3->b.all_done && pt3->c.all_done) { ; if (pt3->a.all_done && pt3->b.all_done && pt3->c.all_done) {
; return 1; ; return 1;
; } ; }
;=================================
;=================================
; decode note
;=================================
;=================================
decode_note: decode_note:
; Init vars ; Init vars
@ -846,35 +880,33 @@ decode_note:
sty spec_command_smc+1 ; 4 sty spec_command_smc+1 ; 4
; Skip decode if note still running ; Skip decode if note still running
lda note_a+NOTE_LEN_COUNT,X ; 4+ lda note_a+NOTE_LEN_COUNT,X ; 4
cmp #2 ; 2 cmp #2 ; 2
bcs stop_decoding ; blt, assume not negative ; 2/3 bcs stop_decoding ; blt, assume not negative ; 3
; -1
keep_decoding: keep_decoding:
lda note_a+NOTE_NOTE,X ; store prev note ; 4+ lda note_a+NOTE_NOTE,X ; store prev note ; 4
sta prev_note_smc+1 ; 4 sta prev_note_smc+1 ; 4
lda note_a+NOTE_TONE_SLIDING_H,X ; store prev sliding ; 4+ lda note_a+NOTE_TONE_SLIDING_H,X ; store prev sliding ; 4
sta prev_sliding_h_smc+1 ; 4 sta prev_sliding_h_smc+1 ; 4
lda note_a+NOTE_TONE_SLIDING_L,X ; 4+ lda note_a+NOTE_TONE_SLIDING_L,X ; 4
sta prev_sliding_l_smc+1 ; 4 sta prev_sliding_l_smc+1 ; 4
;============
; 24
note_decode_loop: note_decode_loop:
lda note_a+NOTE_LEN,X ; re-up length count ; 4+ lda note_a+NOTE_LEN,X ; re-up length count ; 4
sta note_a+NOTE_LEN_COUNT,X ; 5 sta note_a+NOTE_LEN_COUNT,X ; 4
lda note_a+NOTE_ADDR_L,X ; 4+ lda note_a+NOTE_ADDR_L,X ; 4
sta PATTERN_L ; 3 sta PATTERN_L ; 3
lda note_a+NOTE_ADDR_H,X ; 4+ lda note_a+NOTE_ADDR_H,X ; 4
sta PATTERN_H ; 3 sta PATTERN_H ; 3
;===>
; get next value ; get next value
lda (PATTERN_L),Y ; 5+ lda (PATTERN_L),Y ; 5
sta note_command_smc+1 ; save termporarily ; 4 sta note_command_smc+1 ; save termporarily ; 4
and #$0f ; 2 and #$0f ; 2
sta note_command_bottom_smc+1 ; 4 sta note_command_bottom_smc+1 ; 4
@ -882,22 +914,39 @@ note_decode_loop:
note_command_smc: note_command_smc:
lda #$d1 ; 2 lda #$d1 ; 2
; FIXME: use a jump table?? ; Set up jump table that runs same speed on 6502 and 65c02
; further reflection, that would require 32-bytes of addresses
; in addition to needing X or Y to index the jump table. hmmm sty PT3_TEMP ; 3
and #$f0 ; 2 and #$f0 ; 2
lsr ; 2
lsr ; 2
lsr ; 2
; cmp #$00 tay ; 2
bne decode_case_1X ; 2/3 lda decode_jump_table+1,y ; 4
pha ; 3
lda decode_jump_table,y ; 4
pha ; 3
ldy PT3_TEMP ; 3
rts ; 6
;============= ;=============
; 14 ; 23
decode_jump_table:
.word decode_case_0X,decode_case_1X,decode_case_2X,decode_case_3X
.word decode_case_4X,decode_case_5X,decode_case_6X,decode_case_7X
.word decode_case_8X,decode_case_9X,decode_case_AX,decode_case_BX
.word decode_case_CX,decode_case_DX,decode_case_EX,decode_case_FX
decode_case_0X: decode_case_0X:
;============================== ;==============================
; $0X set special effect ; $0X set special effect
;============================== ;==============================
; -1
note_command_bottom_smc: note_command_bottom_smc:
lda #$d1 ; 2 lda #$d1 ; 2
@ -915,23 +964,18 @@ note_command_bottom_smc:
; 00 case ; 00 case
; means end of pattern ; means end of pattern
; -1 ; -1
sta note_a+NOTE_LEN_COUNT,X ; len_count=0; ; 5 sta note_a+NOTE_LEN_COUNT,X ; len_count=0; ; 4
dec pt3_pattern_done_smc+1 ; 6 dec pt3_pattern_done_smc+1 ; 6
jmp note_done_decoding ; 3 jmp note_done_decoding ; 3
decode_case_1X: decode_case_1X:
;============================== ;==============================
; $1X -- Set Envelope Type ; $1X -- Set Envelope Type
;============================== ;==============================
cmp #$10 ; 2
bne decode_case_2X ; 2/3
;============
; 5
; -1
lda note_command_bottom_smc+1 ; 4 lda note_command_bottom_smc+1 ; 4
bne decode_case_not_10 ; 3 bne decode_case_not_10 ; 3
@ -964,9 +1008,6 @@ decode_case_3X:
; $2X/$3X set noise period ; $2X/$3X set noise period
;============================== ;==============================
cmp #$40 ; 2
bcs decode_case_4X ; branch greater/equal ; 3
; -1
lda note_command_smc+1 ; 4 lda note_command_smc+1 ; 4
adc #$e0 ; same as subtract $20 ; 2 adc #$e0 ; same as subtract $20 ; 2
sta pt3_noise_period_smc+1 ; 3 sta pt3_noise_period_smc+1 ; 3
@ -979,9 +1020,7 @@ decode_case_4X:
;============================== ;==============================
; $4X -- set ornament ; $4X -- set ornament
;============================== ;==============================
; cmp #$40 ; already set ;
bne decode_case_5X ; 3
; -1
lda note_command_bottom_smc+1; set ornament to bottom nibble; 4 lda note_command_bottom_smc+1; set ornament to bottom nibble; 4
jsr load_ornament ; 6+93 jsr load_ornament ; 6+93
@ -990,13 +1029,16 @@ decode_case_4X:
; 110 ; 110
decode_case_5X: decode_case_5X:
decode_case_6X:
decode_case_7X:
decode_case_8X:
decode_case_9X:
decode_case_AX:
;============================== ;==============================
; $5X-$AX set note ; $5X-$AX set note
;============================== ;==============================
cmp #$B0 ; 2
bcs decode_case_bX ; branch greater/equal ; 3
; -1
lda note_command_smc+1 ; 4 lda note_command_smc+1 ; 4
adc #$b0 ; 2 adc #$b0 ; 2
sta note_a+NOTE_NOTE,X ; note=(current_val-0x50); ; 5 sta note_a+NOTE_NOTE,X ; note=(current_val-0x50); ; 5
@ -1009,13 +1051,11 @@ decode_case_5X:
bne note_done_decoding ; 3 bne note_done_decoding ; 3
decode_case_bX: decode_case_BX:
;============================================ ;============================================
; $BX -- note length or envelope manipulation ; $BX -- note length or envelope manipulation
;============================================ ;============================================
; cmp #$b0 ; already set from before
bne decode_case_cX ; 3
; -1
lda note_command_bottom_smc+1 ; 4 lda note_command_bottom_smc+1 ; 4
beq decode_case_b0 ; 3 beq decode_case_b0 ; 3
; -1 ; -1
@ -1046,13 +1086,11 @@ decode_case_bx_higher:
bcs done_decode_loop ; branch always ; 3 bcs done_decode_loop ; branch always ; 3
decode_case_cX: decode_case_CX:
;============================== ;==============================
; $CX -- set volume ; $CX -- set volume
;============================== ;==============================
cmp #$c0 ; check top nibble $C ; 2
bne decode_case_dX ; 3
; -1
lda note_command_bottom_smc+1 ; 4 lda note_command_bottom_smc+1 ; 4
bne decode_case_cx_not_c0 ; 3 bne decode_case_cx_not_c0 ; 3
; -1 ; -1
@ -1069,17 +1107,14 @@ decode_case_cx_not_c0:
sta note_a+NOTE_VOLUME,X ; volume=current_val&0xf; 5 sta note_a+NOTE_VOLUME,X ; volume=current_val&0xf; 5
bne done_decode_loop ; branch always ; 3 bne done_decode_loop ; branch always ; 3
decode_case_dX: decode_case_DX:
decode_case_EX:
;============================== ;==============================
; $DX/$EX -- change sample ; $DX/$EX -- change sample
;============================== ;==============================
; D0 = special case (end note) ; D0 = special case (end note)
; D1-EF = set sample to (value - $D0) ; D1-EF = set sample to (value - $D0)
cmp #$f0 ; check top nibble $D/$E ; 2
beq decode_case_fX ; 3
; -1
lda note_command_smc+1 ; 4 lda note_command_smc+1 ; 4
sec ; 2 sec ; 2
sbc #$d0 ; 2 sbc #$d0 ; 2
@ -1101,7 +1136,7 @@ decode_case_not_d0:
;============================== ;==============================
; $FX - change ornament/sample ; $FX - change ornament/sample
;============================== ;==============================
decode_case_fX: decode_case_FX:
; disable envelope ; disable envelope
lda #0 ; 2 lda #0 ; 2
sta note_a+NOTE_ENVELOPE_ENABLED,X ; 5 sta note_a+NOTE_ENVELOPE_ENABLED,X ; 5
@ -1553,7 +1588,7 @@ not_done:
;========================== ;==========================
; pattern done early! ; pattern done early!
.if 0
early_end: early_end:
; A is pattern_done which is zero at this point ; A is pattern_done which is zero at this point
inc current_pattern_smc+1 ; increment pattern ; 6 inc current_pattern_smc+1 ; increment pattern ; 6
@ -1576,7 +1611,7 @@ set_pattern:
beq pt3_new_line ; 2/3 beq pt3_new_line ; 2/3
rts ; 6 rts ; 6
.endif
;========================================== ;==========================================
; real entry point ; real entry point
@ -1586,16 +1621,16 @@ pt3_make_frame:
; allow fallthrough where possible ; allow fallthrough where possible
current_line_smc: current_line_smc:
lda #$d1 ; 2 lda #$d1 ; 2
.if 0
beq check_subframe ; 2/3 beq check_subframe ; 2/3
pattern_good: pattern_good:
; see if we need a new line ; see if we need a new line
.endif
current_subframe_smc: current_subframe_smc:
lda #$d1 ; 2 lda #$d1 ; 2
.if 0
bne line_good ; 2/3 bne line_good ; 2/3
pt3_new_line: pt3_new_line:
@ -1603,10 +1638,10 @@ pt3_new_line:
jsr pt3_decode_line ; 6+? jsr pt3_decode_line ; 6+?
; check if pattern done early ; check if pattern done early
.endif
pt3_pattern_done_smc: pt3_pattern_done_smc:
lda #$d1 ; 2 lda #$d1 ; 2
.if 0
beq early_end ; 2/3 beq early_end ; 2/3
@ -1617,11 +1652,11 @@ line_good:
inc current_subframe_smc+1 ; subframe++ ; 6 inc current_subframe_smc+1 ; subframe++ ; 6
lda current_subframe_smc+1 ; 4 lda current_subframe_smc+1 ; 4
.endif
; if we hit pt3_speed, move to next ; if we hit pt3_speed, move to next
pt3_speed_smc: pt3_speed_smc:
eor #$d1 ; 2 eor #$d1 ; 2
.if 0
bne do_frame ; 2/3 bne do_frame ; 2/3
next_line: next_line:
@ -1639,7 +1674,7 @@ next_pattern:
inc current_pattern_smc+1 ; increment pattern ; 6 inc current_pattern_smc+1 ; increment pattern ; 6
.endif