72CA: Routine at 72CA
| 72CA |
LD A,($5B22) |
| 72CD |
OR A |
| 72CE |
RET Z |
| 72CF |
DEC A |
| 72D0 |
JR NZ,$731D |
| 72D2 |
LD A,($5B06) |
| 72D5 |
DEC A |
| 72D6 |
JR NZ,$72DD |
| 72D8 |
LD A,$64 |
| 72DA |
CALL $7416 |
| 72DD |
LD HL,($5B20) |
| 72E0 |
LD A,H |
| 72E1 |
BIT 7,A |
| 72E3 |
JR Z,$72E7 |
| 72E5 |
LD H,$00 |
| 72E7 |
CP $10 |
| 72E9 |
JR C,$72EC |
| 72EB |
DEC H |
| 72EC |
PUSH HL |
| 72ED |
LD DE,$73C2 |
| 72F0 |
LD A,H |
| 72F1 |
CP $0A |
| 72F3 |
JR NC,$72FF |
| 72F5 |
LD DE,$73EC |
| 72F8 |
CP $05 |
| 72FA |
JR C,$72FF |
| 72FC |
LD DE,$73D7 |
| 72FF |
LD A,$02 |
| 7301 |
LD ($5B22),A |
| 7304 |
LD HL,$7401 |
| 7307 |
EX DE,HL |
| 7308 |
LD BC,$0015 |
| 730B |
LDIR |
| 730D |
POP HL |
| 730E |
LD ($7401),HL |
| 7311 |
LD ($7408),HL |
| 7314 |
LD ($740F),HL |
| 7317 |
DEC L |
| 7318 |
LD A,$4B |
| 731A |
CALL $739D |
| 731D |
LD B,$03 |
| 731F |
PUSH IX |
| 7321 |
DI |
| 7322 |
LD IX,$7401 |
| 7326 |
PUSH BC |
| 7327 |
BIT 0,(IX+$05) |
| 732B |
JR Z,$7374 |
| 732D |
LD L,(IX+$00) |
| 7330 |
LD H,(IX+$01) |
| 7333 |
DEC L |
| 7334 |
PUSH HL |
| 7335 |
LD A,(IX+$02) |
| 7338 |
CALL $739D |
| 733B |
POP HL |
| 733C |
DEC (IX+$06) |
| 733F |
JR Z,$7370 |
| 7341 |
LD A,(IX+$03) |
| 7344 |
ADD A,H |
| 7345 |
LD H,A |
| 7346 |
INC A |
| 7347 |
JR Z,$7370 |
| 7349 |
CP $11 |
| 734B |
JR NC,$7370 |
| 734D |
LD A,(IX+$04) |
| 7350 |
ADD A,L |
| 7351 |
LD L,A |
| 7352 |
AND $E0 |
| 7354 |
JR NZ,$7370 |
| 7356 |
INC (IX+$02) |
| 7359 |
LD A,(IX+$02) |
| 735C |
CP $4B |
| 735E |
JR NZ,$7365 |
| 7360 |
LD A,$48 |
| 7362 |
LD (IX+$02),A |
| 7365 |
LD (IX+$00),L |
| 7368 |
LD (IX+$01),H |
| 736B |
CALL $739D |
| 736E |
JR $7374 |
| 7370 |
LD (IX+$05),$00 |
| 7374 |
POP BC |
| 7375 |
LD DE,$0007 |
| 7378 |
ADD IX,DE |
| 737A |
DJNZ $7326 |
| 737C |
LD IX,$7401 |
| 7380 |
LD A,(IX+$05) |
| 7383 |
OR (IX+$0C) |
| 7386 |
OR (IX+$13) |
| 7389 |
POP IX |
| 738B |
EI |
| 738C |
RET NZ |
| 738D |
LD A,$03 |
| 738F |
LD ($5B22),A |
| 7392 |
LD C,$FF |
| 7394 |
CALL Sounds_Crash |
| 7397 |
LD C,$FF |
| 7399 |
CALL Sounds_Crash |
| 739C |
RET |
