B4A3: Routine at B4A3
| B4A3 |
LD A,($B4A2) |
| B4A6 |
INC A |
| B4A7 |
JR NZ,$B4CF |
| B4A9 |
LD ($B4A2),A |
| B4AC |
LD A,($B173) |
| B4AF |
BIT 7,A |
| B4B1 |
JR Z,$B4CF |
| B4B3 |
LD A,$FE |
| B4B5 |
LD ($A034),A |
| B4B8 |
LD HL,($B172) |
| B4BB |
LD ($A02F),HL |
| B4BE |
OR $01 |
| B4C0 |
RET |
| B4C1 |
LD A,($A00F) |
| B4C4 |
CP $05 |
| B4C6 |
JR Z,$B4A3 |
| B4C8 |
LD A,($B173) |
| B4CB |
BIT 7,A |
| B4CD |
JR Z,$B4D4 |
| B4CF |
LD A,$FF |
| B4D1 |
CP $FF |
| B4D3 |
RET |
| B4D4 |
PUSH IY |
| B4D6 |
LD IX,($B17E) |
| B4DA |
LD A,($A01D) |
| B4DD |
AND $01 |
| B4DF |
LD ($A038),A |
| B4E2 |
LD A,($A00F) |
| B4E5 |
CP $05 |
| B4E7 |
LD IY,$D39B |
| B4EB |
JR C,$B4F1 |
| B4ED |
LD IY,$D36A |
| B4F1 |
CALL $B4FD |
| B4F4 |
CP $FF |
| B4F6 |
LD ($B17E),IX |
| B4FA |
POP IY |
| B4FC |
RET |
| B4FD |
LD HL,$B172 |
| B500 |
CALL $B4A0 |
| B503 |
CP $FF |
| B505 |
RET Z |
| B506 |
LD ($A034),A |
| B509 |
CALL $B517 |
| B50C |
JR NZ,$B4FD |
| B50E |
LD A,($A034) |
| B511 |
LD HL,$B16D |
| B514 |
SET 1,(HL) |
| B516 |
RET |
| B517 |
LD A,($A01C) |
| B51A |
AND A |
| B51B |
RET Z |
| B51C |
PUSH IY |
| B51E |
PUSH DE |
| B51F |
PUSH IX |
| B521 |
CALL $AEA9 |
| B524 |
BIT 6,(IY+$01) |
| B528 |
JR Z,$B543 |
| B52A |
CALL AdjustObjectTableForSum |
| B52D |
PUSH IY |
| B52F |
POP HL |
| B530 |
LD DE,$0008 |
| B533 |
ADD HL,DE |
| B534 |
CALL $D36A |
| B537 |
CP $FF |
| B539 |
JR Z,$B521 |
| B53B |
LD HL,$A034 |
| B53E |
CP (HL) |
| B53F |
JR NZ,$B52D |
| B541 |
OR $01 |
| B543 |
POP IX |
| B545 |
POP DE |
| B546 |
POP IY |
| B548 |
RET |
