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

keen: more work on keen sounds

Browse Source
This commit is contained in:
Vince Weaver 2024-04-03 00:28:18 -04:00
parent 97ca5079af
commit c766a3bdff
3 changed files with 2361 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2307
music/redbook_sound/ck1_sounds.inc Normal file
View File

File diff suppressed because it is too large Load Diff

49
music/redbook_sound/lvldone.inc
View File

@ -1,49 +0,0 @@
LVLDONESND:
.byte 36,4 ; 662.9
.byte 0,9 ; 0.0
.byte 36,6 ; 662.9
.byte 0,8 ; 0.0
.byte 36,6 ; 662.9
.byte 0,15 ; 0.0
.byte 93,2 ; 261.7
.byte 94,5 ; 258.3
.byte 0,10 ; 0.0
.byte 82,12 ; 296.8
.byte 83,1 ; 292.4
.byte 0,7 ; 0.0
.byte 149,1 ; 164.3
.byte 139,10 ; 176.0
.byte 140,1 ; 174.4
.byte 139,1 ; 176.0
.byte 0,6 ; 0.0
.byte 183,1 ; 134.4
.byte 181,1 ; 135.3
.byte 0,4 ; 0.0
.byte 184,6 ; 133.5
.byte 0,7 ; 0.0
.byte 170,1 ; 144.1
.byte 169,1 ; 145.2
.byte 0,2 ; 0.0
.byte 171,3 ; 143.1
.byte 170,3 ; 144.1
.byte 169,1 ; 145.2
.byte 0,9 ; 0.0
.byte 156,1 ; 156.6
.byte 158,1 ; 155.4
.byte 0,3 ; 0.0
.byte 159,3 ; 154.2
.byte 158,4 ; 155.4
.byte 0,11 ; 0.0
.byte 135,1 ; 180.8
.byte 137,1 ; 179.2
.byte 0,3 ; 0.0
.byte 134,28 ; 182.4
.byte 0,12 ; 0.0
.byte 206,4 ; 119.1
.byte 205,5 ; 119.8
.byte 206,1 ; 119.1
.byte 205,4 ; 119.8
.byte 0,11 ; 0.0
.byte 12,5 ; 1988.6
.byte 255,255

61
music/redbook_sound/test_keen.s
View File

@ -1,19 +1,34 @@
SOUND_OFFSET = $F0 SOUND_OFFSET = $F0
WHICH_SOUND = $F1
INL = $FE
INH = $FF
KEYPRESS = $C000 KEYPRESS = $C000
KEYRESET = $C010 KEYRESET = $C010
test_keen: test_keen:
lda #0
sta WHICH_SOUND
next_sound:
ldy WHICH_SOUND
lda sounds_low,Y
sta INL
lda sounds_high,Y
cmp #$FF
beq test_keen ; reset
sta INH
ldy #0 ldy #0
sty SOUND_OFFSET sty SOUND_OFFSET
play_loop: play_loop:
ldy SOUND_OFFSET ldy SOUND_OFFSET
lda LVLDONESND,Y lda (INL),Y
sta speaker_frequency sta speaker_frequency
iny iny
lda LVLDONESND,Y lda (INL),Y
cmp #$FF cmp #$FF
beq play_done beq play_done
@ -23,6 +38,10 @@ play_loop:
sta speaker_duration sta speaker_duration
iny iny
bne no_wrap
inc INH
no_wrap:
sty SOUND_OFFSET sty SOUND_OFFSET
jsr speaker_tone jsr speaker_tone
@ -36,10 +55,38 @@ play_done:
bit KEYRESET bit KEYRESET
jmp test_keen inc WHICH_SOUND
jmp next_sound
.include "redbook_sound.s" .include "redbook_sound.s"
.include "lvldone.inc" .include "ck1_sounds.inc"
sounds_low:
.byte <WLDWALKSND,<WLDBLOCKSND<WLDENTERSND,<KEENWALKSND
.byte <KEENBLOKSND,<KEENJUMPSND,<KEENLANDSND,<KEENDIESND
.byte <GOTBONUSSND,<GOTITEMSND,<GOTPARTSND,<KEENFIRESND
.byte <KEENPOGOSND,<POGOJUMPSND,<LVLDONESND,<GAMEOVERSND
.byte <HISCORESND,<TELEPORTSND,<CHUNKSMASH,<GOINDOORSND
.byte <BUMPHEADSND,<USEKEYSND,<CANNONFIRE,<SLAMSND
.byte <CLICKSND,<CRYSTALSND,<PLUMMETSND,<EXTRAMANSND
.byte <YORPBUMPSND,<KEENWLK2SND,<YORPBOPSND,<GETCARDSND
.byte <DOOROPENSND,<YORPSCREAM,<GARGSCREAM,<GUNCLICK
.byte <SHOTHIT,<TANKFIRE,<vortscream,<keencicle
.byte <keensleft,<EARTHPOW,$FF
sounds_high:
.byte >WLDWALKSND,>WLDBLOCKSND>WLDENTERSND,>KEENWALKSND
.byte >KEENBLOKSND,>KEENJUMPSND,>KEENLANDSND,>KEENDIESND
.byte >GOTBONUSSND,>GOTITEMSND,>GOTPARTSND,>KEENFIRESND
.byte >KEENPOGOSND,>POGOJUMPSND,>LVLDONESND,>GAMEOVERSND
.byte >HISCORESND,>TELEPORTSND,>CHUNKSMASH,>GOINDOORSND
.byte >BUMPHEADSND,>USEKEYSND,>CANNONFIRE,>SLAMSND
.byte >CLICKSND,>CRYSTALSND,>PLUMMETSND,>EXTRAMANSND
.byte >YORPBUMPSND,>KEENWLK2SND,>YORPBOPSND,>GETCARDSND
.byte >DOOROPENSND,>YORPSCREAM,>GARGSCREAM,>GUNCLICK
.byte >SHOTHIT,>TANKFIRE,>vortscream,>keencicle
.byte >keensleft,>EARTHPOW,$FF