965D: Routine at 965D
| 965D |
LD A,($B7E5) |
| 9660 |
CP $02 |
| 9662 |
JR NZ,$969B |
| 9664 |
LD A,($9653) |
| 9667 |
AND A |
| 9668 |
JR Z,$969B |
| 966A |
PUSH BC |
| 966B |
LD HL,$B7A6 |
| 966E |
LD DE,$B7C8 |
| 9671 |
LD B,$0A |
| 9673 |
CALL $BE02 |
| 9676 |
LD HL,$B7EC |
| 9679 |
LD DE,$B7F4 |
| 967C |
LD B,$03 |
| 967E |
CALL $BE02 |
| 9681 |
POP BC |
| 9682 |
CALL $969B |
| 9685 |
LD HL,$B7A6 |
| 9688 |
LD DE,$B7C8 |
| 968B |
LD B,$0A |
| 968D |
CALL $BE02 |
| 9690 |
LD HL,$B7EC |
| 9693 |
LD DE,$B7F4 |
| 9696 |
LD B,$03 |
| 9698 |
JP $BE02 |
| 969B |
LD HL,$9654 |
| 969E |
LD A,($B7EE) |
| 96A1 |
CP (HL) |
| 96A2 |
JR C,$96A7 |
| 96A4 |
INC HL |
| 96A5 |
JR $96A1 |
| 96A7 |
LD E,(HL) |
| 96A8 |
LD HL,$B7EC |
| 96AB |
LD A,C |
| 96AC |
ADD A,(HL) |
| 96AD |
DAA |
| 96AE |
LD (HL),A |
| 96AF |
INC HL |
| 96B0 |
LD A,B |
| 96B1 |
ADC A,(HL) |
| 96B2 |
DAA |
| 96B3 |
LD (HL),A |
| 96B4 |
INC HL |
| 96B5 |
LD A,$00 |
| 96B7 |
ADC A,(HL) |
| 96B8 |
DAA |
| 96B9 |
LD (HL),A |
| 96BA |
CP E |
| 96BB |
JR C,$96F2 |
| 96BD |
PUSH HL |
| 96BE |
PUSH IX |
| 96C0 |
LD IX,$9BC2 |
| 96C4 |
CALL $B684 |
| 96C7 |
CALL $9910 |
| 96CA |
CALL $9C25 |
| 96CD |
LD (IX+$11),$00 |
| 96D1 |
LD A,(IX+$02) |
| 96D4 |
ADD A,$10 |
| 96D6 |
CP $E9 |
| 96D8 |
JR NC,$96DD |
| 96DA |
LD (IX+$02),A |
| 96DD |
LD A,($B7E8) |
| 96E0 |
INC A |
| 96E1 |
LD ($B7E8),A |
| 96E4 |
CALL Sounds_FindEmptySlot |
| 96E7 |
LD (IX+$00),$07 |
| 96EB |
LD (IX+$01),$20 |
| 96EF |
POP IX |
| 96F1 |
POP HL |
| 96F2 |
LD HL,($B7A6) |
| 96F5 |
EXX |
| 96F6 |
LD HL,$B7EE |
| 96F9 |
LD A,$01 |
| 96FB |
LD ($5CDD),A |
| 96FE |
LD B,$03 |
| 9700 |
LD A,(HL) |
| 9701 |
AND $F0 |
| 9703 |
CALL $9712 |
| 9706 |
LD A,(HL) |
| 9707 |
ADD A,A |
| 9708 |
ADD A,A |
| 9709 |
ADD A,A |
| 970A |
ADD A,A |
| 970B |
CALL $9712 |
| 970E |
DEC HL |
| 970F |
DJNZ $9700 |
| 9711 |
RET |
| 9712 |
LD DE,$6975 |
| 9715 |
ADD A,E |
| 9716 |
LD E,A |
| 9717 |
JR NC,$971A |
| 9719 |
INC D |
| 971A |
LD ($972E),DE |
| 971E |
EXX |
| 971F |
LD ($9742),HL |
| 9722 |
EX DE,HL |
| 9723 |
LD HL,$1200 |
| 9726 |
ADD HL,DE |
| 9727 |
LD A,$08 |
| 9729 |
LD ($9746),SP |
| 972D |
LD SP,$0000 |
| 9730 |
EX AF,AF' |
| 9731 |
POP BC |
| 9732 |
LD A,C |
| 9733 |
OR (HL) |
| 9734 |
XOR B |
| 9735 |
LD (DE),A |
| 9736 |
LD BC,$0020 |
| 9739 |
ADD HL,BC |
| 973A |
EX DE,HL |
| 973B |
ADD HL,BC |
| 973C |
EX DE,HL |
| 973D |
EX AF,AF' |
| 973E |
DEC A |
| 973F |
JR NZ,$9730 |
| 9741 |
LD HL,$0000 |
| 9744 |
INC L |
| 9745 |
LD SP,$0000 |
| 9748 |
EXX |
| 9749 |
RET |
