thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2025-11-11 07:44:47 +13:00
Code Issues Actions Packages Projects Releases Wiki Activity

Some music engine labels

Browse source
This commit is contained in:
U-Fish-PC\Daniel 2013-10-18 15:29:31 -04:00
parent 7df715d0c4
commit 4037c6a959
1 changed files with 193 additions and 177 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

370
main.asm
View file

@ -18633,16 +18633,16 @@ Func_91d0 ; 0x91d0
add hl, bc add hl, bc
res 4, [hl] res 4, [hl]
res 5, [hl] res 5, [hl]
call Func_91e6 call Music_endchannel
ret ret
; 0x91e6 ; 0x91e6
Func_91e6 ; 0x91e6 Music_endchannel: ; 0x91e6
call Func_9825 call GetNextMusicByte
ld d, a ld d, a
cp $ff cp $ff ; is this command an endchannel?
jp nz, Func_9274 jp nz, Music_callchannel ; no
ld b, $0 ld b, $0 ; yes
ld hl, $c02e ld hl, $c02e
add hl, bc add hl, bc
bit 1, [hl] bit 1, [hl]
@ -18691,7 +18691,7 @@ Func_91e6 ; 0x91e6
inc de inc de
ld a, [de] ld a, [de]
ld [hl], a ld [hl], a
jp Func_91e6 jp Music_endchannel
.asm_923f .asm_923f
ld hl, $5b1f ld hl, $5b1f
add hl, bc add hl, bc
@ -18725,18 +18725,17 @@ Func_91e6 ; 0x91e6
add hl, bc add hl, bc
ld [hl], b ld [hl], b
ret ret
; 0x9274
Func_9274: ; 0x9274 Music_callchannel: ; 0x9274
cp $fd cp $fd ; is this command a callchannel?
jp nz, Func_92a9 jp nz, Music_loopchannel ; no
call Func_9825 call GetNextMusicByte ; yes
push af push af
call Func_9825 call GetNextMusicByte
ld d, a ld d, a
pop af pop af
ld e, a ld e, a
push de push de ; store pointer
ld d, $0 ld d, $0
ld a, c ld a, c
add a add a
@ -18753,43 +18752,43 @@ Func_9274: ; 0x9274
ld [de], a ld [de], a
inc de inc de
ld a, [hld] ld a, [hld]
ld [de], a ld [de], a ; copy current channel address
pop de pop de
ld [hl], e ld [hl], e
inc hl inc hl
ld [hl], d ld [hl], d ; overwrite current address with pointer
ld b, $0 ld b, $0
ld hl, $c02e ld hl, $c02e
add hl, bc add hl, bc
set 1, [hl] set 1, [hl]
jp Func_91e6 jp Music_endchannel
; 0x92a9
Func_92a9: ; 0x92a9 Music_loopchannel: ; 0x92a9
cp $fe cp $fe ; is this command a loopchannel?
jp nz, Func_92e4 jp nz, Music_notetype ; no
call Func_9825 call GetNextMusicByte ; yes
ld e, a ld e, a
and a and a
jr z, .asm_92cd ; 0x92b3 $18 jr z, .infiniteLoop
ld b, $0 ld b, $0
ld hl, $c0be ld hl, $c0be
add hl, bc add hl, bc
ld a, [hl] ld a, [hl]
cp e cp e
jr nz, .asm_92cb ; 0x92bd $c jr nz, .loopAgain
ld a, $1 ld a, $1 ; if no more loops to make,
ld [hl], a ld [hl], a
call Func_9825 call GetNextMusicByte ; skip pointer
call Func_9825 call GetNextMusicByte
jp Func_91e6 jp Music_endchannel
.asm_92cb .loopAgain ; inc loop count
inc a inc a
ld [hl], a ld [hl], a
.asm_92cd ; fall through
call Func_9825 .infiniteLoop ; overwrite current address with pointer
call GetNextMusicByte
push af push af
call Func_9825 call GetNextMusicByte
ld b, a ld b, a
ld d, $0 ld d, $0
ld a, c ld a, c
@ -18800,73 +18799,76 @@ Func_92a9: ; 0x92a9
pop af pop af
ld [hli], a ld [hli], a
ld [hl], b ld [hl], b
jp Func_91e6 jp Music_endchannel
; 0x92e4
Func_92e4: ; 0x92e4 Music_notetype: ; 0x92e4
and $f0 and $f0
cp $d0 cp $d0 ; is this command a notetype?
jp nz, Func_9323 jp nz, Music_unknownmusic0xe8 ; no
ld a, d ld a, d ; yes
and $f and $f
ld b, $0 ld b, $0
ld hl, $c0c6 ld hl, $c0c6
add hl, bc add hl, bc
ld [hl], a ld [hl], a ; store low nibble as speed
ld a, c ld a, c
cp $3 cp $3
jr z, .asm_9320 ; 0x92f8 $26 jr z, .noiseChannel ; noise channel has 0 params
call Func_9825 call GetNextMusicByte
ld d, a ld d, a
ld a, c ld a, c
cp $2 cp $2
jr z, .asm_930c ; 0x9301 $9 jr z, .musicChannel3
cp $6 cp $6
jr nz, .asm_9319 ; 0x9305 $12 jr nz, .notChannel3
ld hl, $c0e7 ld hl, $c0e7
jr .asm_930f ; 0x930a $3 jr .sfxChannel3
.asm_930c .musicChannel3
ld hl, $c0e6 ld hl, $c0e6
.asm_930f .sfxChannel3
ld a, d ld a, d
and $f and $f
ld [hl], a ld [hl], a ; store low nibble of param as duty
ld a, d ld a, d
and $30 and $30
sla a sla a
ld d, a ld d, a
.asm_9319 ; fall through
; if channel 3, store high nibble as volume
; else, store volume (high nibble) and fade (low nibble)
.notChannel3
ld b, $0 ld b, $0
ld hl, $c0de ld hl, $c0de
add hl, bc add hl, bc
ld [hl], d ld [hl], d
.asm_9320 .noiseChannel
jp Func_91e6 jp Music_endchannel
; 0x9323
Func_9323: ; 0x9323 Music_unknownmusic0xe8: ; 0x9323
ld a, d ld a, d
cp $e8 cp $e8 ; is this command an unknownmusic0xe8?
jr nz, .asm_9335 ; 0x9326 $d jr nz, Music_vibrato ; no
ld b, $0 ld b, $0 ; yes
ld hl, $c02e ld hl, $c02e
add hl, bc add hl, bc
ld a, [hl] ld a, [hl]
xor $1 xor $1
ld [hl], a ld [hl], a
jp Func_91e6 jp Music_endchannel
.asm_9335
cp $ea Music_vibrato: ; 0x9335
jr nz, .asm_936d ; 0x9337 $34 cp $ea ; is this command a vibrato?
call Func_9825 jr nz, Music_pitchbend ; no
call GetNextMusicByte ; yes
ld b, $0 ld b, $0
ld hl, $c04e ld hl, $c04e
add hl, bc add hl, bc
ld [hl], a ld [hl], a ; store delay
ld hl, $c06e ld hl, $c06e
add hl, bc add hl, bc
ld [hl], a ld [hl], a ; store delay
call Func_9825 call GetNextMusicByte
ld d, a ld d, a
and $f0 and $f0
swap a swap a
@ -18878,7 +18880,7 @@ Func_9323: ; 0x9323
adc b adc b
swap a swap a
or e or e
ld [hl], a ld [hl], a ; store rate as both high and low nibbles
ld a, d ld a, d
and $f and $f
ld d, a ld d, a
@ -18886,17 +18888,18 @@ Func_9323: ; 0x9323
add hl, bc add hl, bc
swap a swap a
or d or d
ld [hl], a ld [hl], a ; store depth as both high and low nibbles
jp Func_91e6 jp Music_endchannel
.asm_936d
cp $eb Music_pitchbend: ; 0x936d
jr nz, .asm_93a5 ; 0x936f $34 cp $eb ; is this command a pitchbend?
call Func_9825 jr nz, Music_duty ; no
call GetNextMusicByte ; yes
ld b, $0 ld b, $0
ld hl, $c076 ld hl, $c076
add hl, bc add hl, bc
ld [hl], a ld [hl], a ; store first param
call Func_9825 call GetNextMusicByte
ld d, a ld d, a
and $f0 and $f0
swap a swap a
@ -18907,67 +18910,71 @@ Func_9323: ; 0x9323
ld b, $0 ld b, $0
ld hl, $c0a6 ld hl, $c0a6
add hl, bc add hl, bc
ld [hl], d ld [hl], d ; store unknown part of second param
ld hl, $c0ae ld hl, $c0ae
add hl, bc add hl, bc
ld [hl], e ld [hl], e ; store unknown part of second param
ld b, $0 ld b, $0
ld hl, $c02e ld hl, $c02e
add hl, bc add hl, bc
set 4, [hl] set 4, [hl]
call Func_9825 call GetNextMusicByte
ld d, a ld d, a
jp Func_950a jp Func_950a
.asm_93a5
cp $ec Music_duty: ; 0x93a5
jr nz, .asm_93ba ; 0x93a7 $11 cp $ec ; is this command a duty?
call Func_9825 jr nz, Music_tempo ; no
call GetNextMusicByte ; yes
rrca rrca
rrca rrca
and $c0 and $c0
ld b, $0 ld b, $0
ld hl, $c03e ld hl, $c03e
add hl, bc add hl, bc
ld [hl], a ld [hl], a ; store duty
jp Func_91e6 jp Music_endchannel
.asm_93ba
cp $ed Music_tempo: ; 0x93ba
jr nz, .asm_93fa ; 0x93bc $3c cp $ed ; is this command a tempo?
ld a, c jr nz, Music_unknownmusic0xee ; no
ld a, c ; yes
cp $4 cp $4
jr nc, .asm_93de ; 0x93c1 $1b jr nc, .sfxChannel
call Func_9825 call GetNextMusicByte
ld [$c0e8], a ld [$c0e8], a ; store first param
call Func_9825 call GetNextMusicByte
ld [$c0e9], a ld [$c0e9], a ; store second param
xor a xor a
ld [$c0ce], a ld [$c0ce], a ; clear RAM
ld [$c0cf], a ld [$c0cf], a
ld [$c0d0], a ld [$c0d0], a
ld [$c0d1], a ld [$c0d1], a
jr .asm_93f7 ; 0x93dc $19 jr .musicChannelDone
.asm_93de .sfxChannel
call Func_9825 call GetNextMusicByte
ld [$c0ea], a ld [$c0ea], a ; store first param
call Func_9825 call GetNextMusicByte
ld [$c0eb], a ld [$c0eb], a ; store second param
xor a xor a
ld [$c0d2], a ld [$c0d2], a ; clear RAM
ld [$c0d3], a ld [$c0d3], a
ld [$c0d4], a ld [$c0d4], a
ld [$c0d5], a ld [$c0d5], a
.asm_93f7 .musicChannelDone
jp Func_91e6 jp Music_endchannel
.asm_93fa
cp $ee Music_unknownmusic0xee: ; 0x93fa
jr nz, .asm_9407 ; 0x93fc $9 cp $ee ; is this command an unknownmusic0xee?
call Func_9825 jr nz, Music_unknownmusic0xef ; no
ld [$c004], a call GetNextMusicByte ; yes
jp Func_91e6 ld [$c004], a ; store first param
.asm_9407 jp Music_endchannel
cp $ef
jr nz, .asm_9426 ; 0x9409 $1b Music_unknownmusic0xef ; 0x9407
call Func_9825 cp $ef ; is this command an unknownmusic0xef?
jr nz, Music_dutycycle ; no
call GetNextMusicByte ; yes
push bc push bc
call Func_9876 call Func_9876
pop bc pop bc
@ -18979,48 +18986,53 @@ Func_9323: ; 0x9323
xor a xor a
ld [$c02d], a ld [$c02d], a
.asm_9423 .asm_9423
jp Func_91e6 jp Music_endchannel
.asm_9426
cp $fc Music_dutycycle: ; 0x9426
jr nz, .asm_9444 ; 0x9428 $1a cp $fc ; is this command a dutycycle?
call Func_9825 jr nz, Music_stereopanning ; no
call GetNextMusicByte ; yes
ld b, $0 ld b, $0
ld hl, $c046 ld hl, $c046
add hl, bc add hl, bc
ld [hl], a ld [hl], a ; store full cycle
and $c0 and $c0
ld hl, $c03e ld hl, $c03e
add hl, bc add hl, bc
ld [hl], a ld [hl], a ; store first duty
ld hl, $c02e ld hl, $c02e
add hl, bc add hl, bc
set 6, [hl] set 6, [hl] ; set dutycycle flag
jp Func_91e6 jp Music_endchannel
.asm_9444
cp $f0 Music_stereopanning: ; 0x9444
jr nz, .asm_9450 ; 0x9446 $8 cp $f0 ; is this command a stereopanning?
call Func_9825 jr nz, Music_unknownmusic0xf8 ; no
ld [$ff00+$24], a call GetNextMusicByte ; yes
jp Func_91e6 ld [$ff00+$24], a ; store stereopanning
.asm_9450 jp Music_endchannel
cp $f8
jr nz, .asm_945f ; 0x9452 $b Music_unknownmusic0xf8: ; 0x9450
ld b, $0 cp $f8 ; is this command an unknownmusic0xf8?
jr nz, Music_octave ; no
ld b, $0 ; yes
ld hl, $c036 ld hl, $c036
add hl, bc add hl, bc
set 0, [hl] set 0, [hl]
jp Func_91e6 jp Music_endchannel
.asm_945f
Music_octave: ; 0x945f
and $f0 and $f0
cp $e0 cp $e0 ; is this command an octave?
jr nz, .asm_9472 ; 0x9463 $d jr nz, .asm_9472 ; no
ld hl, $c0d6 ld hl, $c0d6 ; yes
ld b, $0 ld b, $0
add hl, bc add hl, bc
ld a, d ld a, d
and $f and $f
ld [hl], a ld [hl], a ; store low nibble as octave
jp Func_91e6 jp Music_endchannel
.asm_9472 .asm_9472
cp $20 cp $20
jr nz, .asm_94bf ; 0x9474 $49 jr nz, .asm_94bf ; 0x9474 $49
@ -19043,19 +19055,19 @@ Func_9323: ; 0x9323
ld b, $1 ld b, $1
call Func_9838 call Func_9838
ld [hl], d ld [hl], d
call Func_9825 call GetNextMusicByte
ld d, a ld d, a
ld b, $2 ld b, $2
call Func_9838 call Func_9838
ld [hl], d ld [hl], d
call Func_9825 call GetNextMusicByte
ld e, a ld e, a
ld a, c ld a, c
cp $7 cp $7
ld a, $0 ld a, $0
jr z, .asm_94b2 ; 0x94ab $5 jr z, .asm_94b2 ; 0x94ab $5
push de push de
call Func_9825 call GetNextMusicByte
pop de pop de
.asm_94b2 .asm_94b2
ld d, a ld d, a
@ -19077,9 +19089,9 @@ Func_9323: ; 0x9323
add hl, bc add hl, bc
bit 0, [hl] bit 0, [hl]
jr nz, .asm_94db ; 0x94d1 $8 jr nz, .asm_94db ; 0x94d1 $8
call Func_9825 call GetNextMusicByte
ld [$ff00+$10], a ld [$ff00+$10], a
jp Func_91e6 jp Music_endchannel
.asm_94db .asm_94db
ld a, c ld a, c
cp $3 cp $3
@ -19103,7 +19115,7 @@ Func_9323: ; 0x9323
and $f and $f
push af push af
push bc push bc
call Func_9825 call GetNextMusicByte
.asm_94fd .asm_94fd
ld d, a ld d, a
ld a, [$c003] ld a, [$c003]
@ -19669,7 +19681,7 @@ Func_980d: ; 0x980d
ret ret
; 0x9825 ; 0x9825
Func_9825: ; 0x9825 GetNextMusicByte: ; 0x9825
ld d, $0 ld d, $0
ld a, c ld a, c
add a add a
@ -19680,9 +19692,9 @@ Func_9825: ; 0x9825
ld e, a ld e, a
ld a, [hld] ld a, [hld]
ld d, a ld d, a
ld a, [de] ld a, [de] ; get next music command
inc de inc de
ld [hl], e ld [hl], e ; store address of next command
inc hl inc hl
ld [hl], d ld [hl], d
ret ret
@ -19725,7 +19737,7 @@ Func_9858: ; 0x9858
add hl, hl add hl, hl
ld d, h ld d, h
ld e, l ld e, l
ld hl, $5b2f ld hl, Unknown_9b2f
add hl, de add hl, de
ld e, [hl] ld e, [hl]
inc hl inc hl
@ -19764,53 +19776,53 @@ Func_9876: ; 0x9876
ld [$c0e7], a ld [$c0e7], a
ld d, $8 ld d, $8
ld hl, $c016 ld hl, $c016
call Func_9a89 call FillMusicRAM
ld hl, $c006 ld hl, $c006
call Func_9a89 call FillMusicRAM
ld d, $4 ld d, $4
ld hl, $c026 ld hl, $c026
call Func_9a89 call FillMusicRAM
ld hl, $c02e ld hl, $c02e
call Func_9a89 call FillMusicRAM
ld hl, $c03e ld hl, $c03e
call Func_9a89 call FillMusicRAM
ld hl, $c046 ld hl, $c046
call Func_9a89 call FillMusicRAM
ld hl, $c04e ld hl, $c04e
call Func_9a89 call FillMusicRAM
ld hl, $c056 ld hl, $c056
call Func_9a89 call FillMusicRAM
ld hl, $c05e ld hl, $c05e
call Func_9a89 call FillMusicRAM
ld hl, $c066 ld hl, $c066
call Func_9a89 call FillMusicRAM
ld hl, $c06e ld hl, $c06e
call Func_9a89 call FillMusicRAM
ld hl, $c036 ld hl, $c036
call Func_9a89 call FillMusicRAM
ld hl, $c076 ld hl, $c076
call Func_9a89 call FillMusicRAM
ld hl, $c07e ld hl, $c07e
call Func_9a89 call FillMusicRAM
ld hl, $c086 ld hl, $c086
call Func_9a89 call FillMusicRAM
ld hl, $c08e ld hl, $c08e
call Func_9a89 call FillMusicRAM
ld hl, $c096 ld hl, $c096
call Func_9a89 call FillMusicRAM
ld hl, $c09e ld hl, $c09e
call Func_9a89 call FillMusicRAM
ld hl, $c0a6 ld hl, $c0a6
call Func_9a89 call FillMusicRAM
ld hl, $c0ae ld hl, $c0ae
call Func_9a89 call FillMusicRAM
ld a, $1 ld a, $1
ld hl, $c0be ld hl, $c0be
call Func_9a89 call FillMusicRAM
ld hl, $c0b6 ld hl, $c0b6
call Func_9a89 call FillMusicRAM
ld hl, $c0c6 ld hl, $c0c6
call Func_9a89 call FillMusicRAM
ld [$c0e8], a ld [$c0e8], a
ld a, $ff ld a, $ff
ld [$c004], a ld [$c004], a
@ -19836,7 +19848,7 @@ Func_994e: ; 0x994e
ld d, h ld d, h
add hl, hl add hl, hl
add hl, de add hl, de
ld de, $4000 ld de, SFX_Headers_02
add hl, de add hl, de
ld a, h ld a, h
ld [$c0ec], a ld [$c0ec], a
@ -20009,11 +20021,11 @@ Func_9a34: ; 0x9a34
ld [$c0e7], a ld [$c0e7], a
ld d, $a0 ld d, $a0
ld hl, $c006 ld hl, $c006
call Func_9a89 call FillMusicRAM
ld a, $1 ld a, $1
ld d, $18 ld d, $18
ld hl, $c0b6 ld hl, $c0b6
call Func_9a89 call FillMusicRAM
ld [$c0e8], a ld [$c0e8], a
ld [$c0ea], a ld [$c0ea], a
ld a, $ff ld a, $ff
@ -20021,7 +20033,8 @@ Func_9a34: ; 0x9a34
ret ret
; 0x9a89 ; 0x9a89
Func_9a89: ; 0x9a89 ; fills d bytes at hl with a
FillMusicRAM: ; 0x9a89
ld b, d ld b, d
.asm_9a8a .asm_9a8a
ld [hli], a ld [hli], a
@ -20038,12 +20051,12 @@ Func_9a8f: ; 0x9a8f
ld d, h ld d, h
add hl, hl add hl, hl
add hl, de add hl, de
ld de, $4000 ld de, SFX_Headers_02
add hl, de add hl, de
ld e, l ld e, l
ld d, h ld d, h
ld hl, $c006 ld hl, $c006
ld a, [de] ld a, [de] ; get channel number
ld b, a ld b, a
rlca rlca
rlca rlca
@ -20081,7 +20094,7 @@ Func_9a8f: ; 0x9a8f
.asm_9ad2 .asm_9ad2
pop bc pop bc
pop hl pop hl
ld a, [de] ld a, [de] ; get channel pointer
ld [hli], a ld [hli], a
inc de inc de
ld a, [de] ld a, [de]
@ -20126,7 +20139,10 @@ Func_9a8f: ; 0x9a8f
ret ret
; 0x9b16 ; 0x9b16
INCBIN "baserom.gbc",$9b16,$9b47 - $9b16 INCBIN "baserom.gbc",$9b16,$9b2f - $9b16
Unknown_9b2f: ; 0x9b2f
INCBIN "baserom.gbc",$9b2f,$9b47 - $9b2f
Func_9b47: ; 0x9b47 Func_9b47: ; 0x9b47
ld c, $2 ld c, $2