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

rbs: more cycle counting

Browse Source
This commit is contained in:
Vince Weaver 2019-06-19 01:15:45 -04:00
parent 8aa831782c
commit 52fbf2ca9e
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
interlace_demo/pt3_lib_ci.s
View File

@ -1899,7 +1899,8 @@ do_frame:
lda note_c+NOTE_TONE_H ; Note C Period H ; 3 lda note_c+NOTE_TONE_H ; Note C Period H ; 3
sta AY_REGISTERS+5 ; into R5 ; 3 sta AY_REGISTERS+5 ; into R5 ; 3
;===========
; 36
; Noise ; Noise
; frame[6]= (pt3->noise_period+pt3->noise_add)&0x1f; ; frame[6]= (pt3->noise_period+pt3->noise_add)&0x1f;
@ -1910,6 +1911,8 @@ pt3_noise_add_smc:
adc #$d1 ; 2 adc #$d1 ; 2
and #$1f ; 2 and #$1f ; 2
sta AY_REGISTERS+6 ; 3 sta AY_REGISTERS+6 ; 3
;============
; 11
;======================= ;=======================
; Mixer ; Mixer
@ -1925,6 +1928,8 @@ pt3_noise_add_smc:
sta AY_REGISTERS+9 ; 3 sta AY_REGISTERS+9 ; 3
lda note_c+NOTE_AMPLITUDE ; 3 lda note_c+NOTE_AMPLITUDE ; 3
sta AY_REGISTERS+10 ; 3 sta AY_REGISTERS+10 ; 3
;===========
; 18
;====================================== ;======================================
; Envelope period ; Envelope period
@ -1949,21 +1954,31 @@ pt3_envelope_slide_l_smc:
pt3_envelope_slide_h_smc: pt3_envelope_slide_h_smc:
adc #$d1 ; 2 adc #$d1 ; 2
sta AY_REGISTERS+12 ; 3 sta AY_REGISTERS+12 ; 3
;===========
; 30
;======================== ;========================
; Envelope shape ; Envelope shape
; same=18
; diff=14+[4]
pt3_envelope_type_smc: pt3_envelope_type_smc:
lda #$d1 ; 2 lda #$d1 ; 2
pt3_envelope_type_old_smc: pt3_envelope_type_old_smc:
cmp #$d1 ; 2 cmp #$d1 ; 2
sta pt3_envelope_type_old_smc+1; copy old to new ; 4 sta pt3_envelope_type_old_smc+1; copy old to new ; 4
bne envelope_diff ; 2/3 bne envelope_diff_waste ; 3
envelope_same: envelope_same:
;-1
lda #$ff ; if same, store $ff ; 2 lda #$ff ; if same, store $ff ; 2
jmp envelope_diff ; 3
envelope_diff_waste:
nop ; 2
nop ; 2
envelope_diff: envelope_diff:
sta AY_REGISTERS+13 ; 3 sta AY_REGISTERS+13 ; 3
;============
; 18
;============================== ;==============================
@ -1972,7 +1987,8 @@ envelope_diff:
pt3_envelope_delay_smc: pt3_envelope_delay_smc:
lda #$d1 ; 2 lda #$d1 ; 2
beq done_do_frame ; assume can't be negative? ; 2/3 beq done_do_frame ; assume can't be negative? ; 3
; -1
; do this if envelope_delay>0 ; do this if envelope_delay>0
dec pt3_envelope_delay_smc+1 ; 6 dec pt3_envelope_delay_smc+1 ; 6
bne done_do_frame ; 2/3 bne done_do_frame ; 2/3