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

duke: adjust sound effects a bit

Browse Source
This commit is contained in:
Vince Weaver 2020-12-17 19:34:02 -05:00
parent e48ce18f4e
commit dccc1b3a23
2 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
duke/duke_level2.s
View File

@ -62,7 +62,7 @@ duke_start:
jsr update_status_bar jsr update_status_bar
;==================================== ;====================================
; load level1 background ; load level2 background
;==================================== ;====================================
lda #<level2_bg_lzsa lda #<level2_bg_lzsa
@ -101,7 +101,11 @@ duke_start:
jsr setup_music jsr setup_music
lda SOUND_STATUS
bmi skip_music
cli ; start music cli ; start music
skip_music:
duke_loop: duke_loop:
@ -181,6 +185,8 @@ done_with_duke:
lda #LOAD_TITLE lda #LOAD_TITLE
sta WHICH_LOAD sta WHICH_LOAD
sei ; stop music
rts ; exit back rts ; exit back

15
duke/sound_effects.s
View File

@ -5,7 +5,7 @@ jump_noise:
lda SOUND_STATUS lda SOUND_STATUS
bmi done_jump_noise bmi done_jump_noise
bit $C030 ; bit $C030
done_jump_noise: done_jump_noise:
rts rts
@ -18,8 +18,15 @@ head_noise:
lda SOUND_STATUS lda SOUND_STATUS
bmi done_head_noise bmi done_head_noise
bit $C030 lda #NOTE_D3
bit $C030 sta speaker_frequency
lda #5
sta speaker_duration
jsr speaker_tone
; bit $C030
; bit $C030
done_head_noise: done_head_noise:
rts rts
@ -32,7 +39,7 @@ land_noise:
lda SOUND_STATUS lda SOUND_STATUS
bmi done_land_noise bmi done_land_noise
bit $C030 ; bit $C030
done_land_noise: done_land_noise:
rts rts