B7F8: Routine at B7F8
| B7F8 |
LD A,($B842) |
| B7FB |
XOR $88 |
| B7FD |
LD ($B842),A |
| B800 |
LD A,$0C |
| B802 |
LD ($891D),A |
| B805 |
LD DE,$9AD0 |
| B808 |
LD HL,$6000 |
| B80B |
LD A,$0B |
| B80D |
LD BC,$0016 |
| B810 |
LDIR |
| B812 |
DEC A |
| B813 |
JR NZ,$B80D |
| B815 |
LD ($BAEC),A |
| B818 |
LD ($A85F),A |
| B81B |
LD ($A66B),A |
| B81E |
LD ($8E71),A |
| B821 |
LD ($8ED9),A |
| B824 |
LD ($B972),A |
| B827 |
INC A |
| B828 |
LD ($5CD9),A |
| B82B |
LD A,($B7E5) |
| B82E |
CP $02 |
| B830 |
JR NZ,$B85C |
| B832 |
LD A,$01 |
| B834 |
LD ($9B3E),A |
| B837 |
LD A,$38 |
| B839 |
LD ($9B56),A |
| B83C |
LD A,$B0 |
| B83E |
LD ($9B40),A |
| B841 |
LD A,$48 |
| B843 |
LD ($9AD2),A |
| B846 |
CP $C0 |
| B848 |
JR NZ,$B85C |
| B84A |
LD A,($9AE2) |
| B84D |
OR $80 |
| B84F |
LD ($9AE2),A |
| B852 |
LD A,$FF |
| B854 |
LD ($9B68),A |
| B857 |
LD A,$83 |
| B859 |
LD ($9B52),A |
| B85C |
LD HL,$8CC0 |
| B85F |
LD ($9AE4),HL |
| B862 |
LD L,$08 |
| B864 |
LD A,($B7EA) |
| B867 |
ADD A,$02 |
| B869 |
CP $04 |
| B86B |
JR C,$B86F |
| B86D |
LD A,$04 |
| B86F |
LD A,$03 |
| B871 |
LD H,A |
| B872 |
LD ($9AD6),HL |
| B875 |
LD A,$0E |
| B877 |
LD ($B971),A |
| B87A |
LD ($B8D6),A |
| B87D |
LD A,$83 |
| B87F |
LD ($9B68),A |
| B882 |
XOR A |
| B883 |
LD ($9C24),A |
| B886 |
LD HL,$9C08 |
| B889 |
LD ($B2DA),HL |
| B88C |
LD HL,$9E6A |
| B88F |
LD A,($B7EB) |
| B892 |
CP $06 |
| B894 |
JR C,$B899 |
| B896 |
LD HL,$9E8A |
| B899 |
LD DE,$9E4A |
| B89C |
LD BC,$0010 |
| B89F |
LDIR |
| B8A1 |
LD HL,$A270 |
| B8A4 |
LD B,$0C |
| B8A6 |
CALL $8EDA |
| B8A9 |
LD HL,$C0B8 |
| B8AC |
LD B,$23 |
| B8AE |
CALL $8EDA |
| B8B1 |
LD HL,$B6F4 |
| B8B4 |
LD B,$23 |
| B8B6 |
JP $8EDA |
