1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
Wait_Next_Frame:
POP DE
LD A, $saved_rom_bank
LD ($mem_sound_effect_pc), A
LD A, D
LD ($mem_sound_effect_pc+1), A
LD A, E
LD ($mem_sound_effect_pc+2), A
RET
.MACRODEF RET_WAIT_NEXT_FRAME
CALL =Wait_Next_Frame
.END
.MACRODEF RET_WAIT_NEXT_FRAME_SAVE_HL
LD A, H
LD ($mem_sound_effect_hl), A
LD A, L
LD ($mem_sound_effect_hl+1), A
CALL =Wait_Next_Frame
LD A, ($mem_sound_effect_hl)
LD H, A
LD A, ($mem_sound_effect_hl+1)
LD L, A
.END
.MACRODEF CHANNEL_2_SOUND_EFFECT_LOOP =start =end
LD HL, =start
$loop:
LD A, (HL+)
LD ($18), A
LD A, (HL+)
LD ($19), A
.RET_WAIT_NEXT_FRAME_SAVE_HL
LD A, H
CP high(=end)
JR NZ, =$loop
LD A, L
CP low(=end)
JR NZ, =$loop
$end:
.END
Play_Sound_Effect:
LD A, ($mem_sound_effect_pc)
CP $ff
RET Z
.CHANGE_BANK_TO_A
LD A, ($mem_sound_effect_pc+1)
LD D, A
LD A, ($mem_sound_effect_pc+2)
LD E, A
PUSH DE
RET
.MACRODEF SET_SOUND_EFFECT =addr
PUSH AF
LD A, $mem_sound_flags
AND 0b00111110
JR NZ =$end
LD A, bank(=addr)
LD ($mem_sound_effect_pc), A
LD A, high(ptr(=addr))
LD ($mem_sound_effect_pc+1), A
LD A, low(ptr(=addr))
LD ($mem_sound_effect_pc+2), A
$end:
POP AF
.END
|
