94 lines
1.9 KiB
ArmAsm
94 lines
1.9 KiB
ArmAsm
|
|
SOUND_OFFSET = $F0
|
|
WHICH_SOUND = $F1
|
|
INL = $FE
|
|
INH = $FF
|
|
|
|
KEYPRESS = $C000
|
|
KEYRESET = $C010
|
|
|
|
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
|
|
sty SOUND_OFFSET
|
|
play_loop:
|
|
ldy SOUND_OFFSET
|
|
lda (INL),Y
|
|
sta speaker_frequency
|
|
|
|
iny
|
|
lda (INL),Y
|
|
cmp #$FF
|
|
beq play_done
|
|
|
|
asl
|
|
; clc
|
|
; adc (INL),Y
|
|
|
|
sta speaker_duration
|
|
iny
|
|
bne no_wrap
|
|
inc INH
|
|
no_wrap:
|
|
|
|
sty SOUND_OFFSET
|
|
|
|
jsr speaker_tone
|
|
|
|
jmp play_loop
|
|
|
|
|
|
play_done:
|
|
lda KEYPRESS
|
|
bpl play_done
|
|
|
|
bit KEYRESET
|
|
|
|
inc WHICH_SOUND
|
|
|
|
jmp next_sound
|
|
|
|
|
|
|
|
.include "longer_sound.s"
|
|
.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
|