D7C9: Routine at D7C9
| D7C9 |
LD A,($E0D2) |
| D7CC |
LD BC,($E568) |
| D7D0 |
LD HL,$D554 |
| D7D3 |
CP $15 |
| D7D5 |
JR NZ,$D7E4 |
| D7D7 |
LD ($D820),BC |
| D7DB |
BIT 1,(HL) |
| D7DD |
JR NZ,$D7E4 |
| D7DF |
LD A,$01 |
| D7E1 |
LD ($D557),A |
| D7E4 |
CP $3D |
| D7E6 |
JR NZ,$D7F5 |
| D7E8 |
LD ($D822),BC |
| D7EC |
BIT 2,(HL) |
| D7EE |
JR NZ,$D7F5 |
| D7F0 |
LD A,$01 |
| D7F2 |
LD ($D558),A |
| D7F5 |
CP $3E |
| D7F7 |
JR NZ,$D806 |
| D7F9 |
LD ($D824),BC |
| D7FD |
BIT 3,(HL) |
| D7FF |
JR NZ,$D806 |
| D801 |
LD A,$01 |
| D803 |
LD ($D559),A |
| D806 |
CP $3F |
| D808 |
RET NZ |
| D809 |
LD ($D826),BC |
| D80D |
BIT 4,(HL) |
| D80F |
RET NZ |
| D810 |
LD A,$01 |
| D812 |
LD ($D55A),A |
| D815 |
RET |
