C641: Unused
| C641 |
LD A,($C850) |
| C644 |
OR A |
| C645 |
JR Z,$C676 |
| C647 |
LD A,($C851) |
| C64A |
DEC A |
| C64B |
LD ($C851),A |
| C64E |
JR NZ,$C676 |
| C650 |
LD A,($C852) |
| C653 |
LD ($C851),A |
| C656 |
LD A,($C853) |
| C659 |
INC A |
| C65A |
AND $03 |
| C65C |
LD ($C853),A |
| C65F |
CALL $C843 |
| C662 |
LD HL,($6000) |
| C665 |
ADD HL,DE |
| C666 |
LD ($ECE0),HL |
| C669 |
LD A,$2F |
| C66B |
LD ($ECDE),A |
| C66E |
LD A,$4F |
| C670 |
LD ($ECDF),A |
| C673 |
CALL $EBE0 |
| C676 |
LD A,($C850) |
| C679 |
OR A |
| C67A |
JR NZ,$C6E2 |
| C67C |
LD HL,($C854) |
| C67F |
LD A,H |
| C680 |
OR L |
| C681 |
JR Z,$C689 |
| C683 |
DEC HL |
| C684 |
LD ($C854),HL |
| C687 |
JR $C6E2 |
| C689 |
LD A,($C856) |
| C68C |
INC A |
| C68D |
LD ($C856),A |
| C690 |
ADD A,$10 |
| C692 |
LD B,A |
| C693 |
LD A,($8490) |
| C696 |
SUB B |
| C697 |
JP C,$C888 |
| C69A |
LD HL,$6080 |
| C69D |
LD A,($C857) |
| C6A0 |
CALL $C843 |
| C6A3 |
ADD HL,DE |
| C6A4 |
LD ($ECE0),HL |
| C6A7 |
LD A,($C856) |
| C6AA |
LD ($ECDE),A |
| C6AD |
LD A,$5F |
| C6AF |
LD ($ECDF),A |
| C6B2 |
CALL $EBE0 |
| C6B5 |
LD HL,$6100 |
| C6B8 |
LD A,($C857) |
| C6BB |
CALL $C843 |
| C6BE |
ADD HL,DE |
| C6BF |
LD ($ECE0),HL |
| C6C2 |
LD A,$4F |
| C6C4 |
LD ($ECDF),A |
| C6C7 |
CALL $EBE0 |
| C6CA |
LD A,($C867) |
| C6CD |
DEC A |
| C6CE |
LD ($C867),A |
| C6D1 |
JR NZ,$C6E2 |
| C6D3 |
LD A,($C866) |
| C6D6 |
LD ($C867),A |
| C6D9 |
LD A,($C857) |
| C6DC |
INC A |
| C6DD |
AND $03 |
| C6DF |
LD ($C857),A |
| C6E2 |
LD A,($C850) |
| C6E5 |
JR Z,$C714 |
| C6E7 |
LD A,($C858) |
| C6EA |
DEC A |
| C6EB |
LD ($C858),A |
| C6EE |
JR NZ,$C719 |
| C6F0 |
LD A,($C859) |
| C6F3 |
LD ($C858),A |
| C6F6 |
LD A,($C85A) |
| C6F9 |
INC A |
| C6FA |
AND $03 |
| C6FC |
LD ($C85A),A |
| C6FF |
CALL $5B5B |
