B4C2: Routine at B4C2
| B4C2 |
LD HL,$60A8 |
| B4C5 |
LD BC,$0711 |
| B4C8 |
EXX |
| B4C9 |
LD A,($5E40) |
| B4CC |
LD L,A |
| B4CD |
LD H,$00 |
| B4CF |
EXX |
| B4D0 |
PUSH BC |
| B4D1 |
LD (HL),$E4 |
| B4D3 |
INC HL |
| B4D4 |
INC HL |
| B4D5 |
LD A,(DE) |
| B4D6 |
LD (HL),A |
| B4D7 |
INC DE |
| B4D8 |
INC HL |
| B4D9 |
LD A,(DE) |
| B4DA |
LD (HL),A |
| B4DB |
INC HL |
| B4DC |
INC DE |
| B4DD |
LD A,(DE) |
| B4DE |
LD (HL),A |
| B4DF |
DEC DE |
| B4E0 |
DEC DE |
| B4E1 |
INC HL |
| B4E2 |
EXX |
| B4E3 |
LD A,(HL) |
| B4E4 |
INC HL |
| B4E5 |
AND A |
| B4E6 |
JP P,$B529 |
| B4E9 |
OR $FC |
| B4EB |
EXX |
| B4EC |
LD (HL),A |
| B4ED |
INC HL |
| B4EE |
EXX |
| B4EF |
LD A,(HL) |
| B4F0 |
INC HL |
| B4F1 |
AND $03 |
| B4F3 |
OR $FC |
| B4F5 |
SUB $01 |
| B4F7 |
EXX |
| B4F8 |
LD (HL),A |
| B4F9 |
INC HL |
| B4FA |
EXX |
| B4FB |
LD A,(HL) |
| B4FC |
INC HL |
| B4FD |
AND $07 |
| B4FF |
CP $02 |
| B501 |
JR NC,$B505 |
| B503 |
LD A,$07 |
| B505 |
OR $40 |
| B507 |
EXX |
| B508 |
LD (HL),A |
| B509 |
INC HL |
| B50A |
INC HL |
| B50B |
LD (HL),$00 |
| B50D |
INC HL |
| B50E |
DJNZ $B50B |
| B510 |
EXX |
| B511 |
LD A,(HL) |
| B512 |
INC HL |
| B513 |
AND $07 |
| B515 |
INC A |
| B516 |
EXX |
| B517 |
LD (HL),A |
| B518 |
INC HL |
| B519 |
LD (HL),A |
| B51A |
LD A,L |
| B51B |
ADD A,$07 |
| B51D |
LD L,A |
| B51E |
LD A,H |
| B51F |
ADC A,$00 |
| B521 |
LD H,A |
| B522 |
POP BC |
| B523 |
DEC C |
| B524 |
JR NZ,$B4D0 |
| B526 |
JP $B986 |
| B529 |
AND $03 |
| B52B |
INC A |
| B52C |
JR $B4EB |
