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

keen: have sound working

Browse Source
This commit is contained in:
Vince Weaver 2024-04-03 00:54:32 -04:00
parent c766a3bdff
commit c36dfba91b
4 changed files with 79 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
games/keen/sound/dump_ck1.c
View File

@ -89,8 +89,9 @@ int main(int argc, char **argv) {
}
i=14;
printf("Dump of %s\n",sound_info[i].name);
for(i=0;i<num_sounds;i++) {
printf("%s:\n",sound_info[i].name);
lseek(fd,sound_info[i].offset,SEEK_SET);
last=0xffff;
@ -130,6 +131,9 @@ int main(int argc, char **argv) {
if (sample==0xffff) break;
}
printf(".byte 255,255\n");
}
/* close */
close(fd);

2
music/redbook_sound/Makefile
View File

@ -22,7 +22,7 @@ HELLO: hello.bas
TEST_KEEN: test_keen.o
ld65 -o TEST_KEEN test_keen.o -C $(LINKER_SCRIPTS)apple2_c00.inc
test_keen.o: test_keen.s lvldone.inc redbook_sound.s
test_keen.o: test_keen.s longer_sound.s ck1_sounds.inc
ca65 -o test_keen.o test_keen.s -l test_keen.lst

48
music/redbook_sound/longer_sound.s Normal file
View File

@ -0,0 +1,48 @@
; Based on redbook_sound.s
; it's originally by Paul Lutus, from the Apple II Red Book p45
; which can only do roughly 194Hz to 2000Hz+
; this makes things twice as long, which allows lower notes, but
; loses some precision on high notes
; also modified so "0" means no sound
;=====================================================
; speaker tone
;=====================================================
; A,X,Y trashed
; duration also trashed
; more exactly, it is (4+10F)+(13+10F) = 20F+17
speaker_tone:
ldy #0 ; 3
speaker_tone_loop:
lda $C030 ; click speaker ; 4
speaker_loop:
nop
nop
nop
nop
nop
dey ; ; 2
bne freq_loop ; ; 2/3
dec speaker_duration ; (Duration) ; 6
beq done_tone ; 2/3
freq_loop:
dex ; 2
bne speaker_loop ; 2/3
ldx speaker_frequency ; (Frequency) ; 4
beq speaker_loop ; play nothing if 0 ; 2/3
jmp speaker_tone_loop ; 3
done_tone:
rts
speaker_duration:
.byte $00
speaker_frequency:
.byte $00

47
music/redbook_sound/test_keen.s
View File

@ -27,14 +27,15 @@ play_loop:
ldy SOUND_OFFSET
lda (INL),Y
sta speaker_frequency
iny
lda (INL),Y
cmp #$FF
beq play_done
asl
clc
adc LVLDONESND,Y
; clc
; adc (INL),Y
sta speaker_duration
iny
@ -61,32 +62,32 @@ play_done:
.include "redbook_sound.s"
.include "longer_sound.s"
.include "ck1_sounds.inc"
sounds_low:
.byte <WLDWALKSND,<WLDBLOCKSND<WLDENTERSND,<KEENWALKSND
.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
.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 >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
.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