B810: Routine at B810
| B810 |
CALL $B89A |
| B813 |
LD A,($5EA3) |
| B816 |
AND A |
| B817 |
JR NZ,$B81E |
| B819 |
CALL $A4BA |
| B81C |
JR C,$B848 |
| B81E |
CALL $B6AE |
| B821 |
CP $AF |
| B823 |
JR NC,$B83C |
| B825 |
LD (IX+$04),A |
| B828 |
CALL $B854 |
| B82B |
JP NC,$B7A2 |
| B82E |
CALL $B16F |
| B831 |
LD A,$01 |
| B833 |
LD ($6195),A |
| B836 |
LD BC,$3000 |
| B839 |
CALL AddPointsToScore |
| B83C |
LD (IX+$04),$AF |
| B840 |
CALL $ABB4 |
| B843 |
LD (IX+$00),$C0 |
| B847 |
RET |
| B848 |
SET 2,(IX+$08) |
| B84C |
LD A,$01 |
| B84E |
LD ($5EA3),A |
| B851 |
JP $ABB4 |
| B854 |
LD E,$18 |
| B856 |
LD L,(IX+$02) |
| B859 |
LD H,(IX+$03) |
| B85C |
LD BC,$0018 |
| B85F |
ADD HL,BC |
| B860 |
LD BC,($6182) |
| B864 |
AND A |
| B865 |
SBC HL,BC |
| B867 |
LD A,H |
| B868 |
AND $1F |
| B86A |
RET NZ |
| B86B |
LD A,L |
| B86C |
CP $20 |
| B86E |
RET NC |
| B86F |
LD A,($6184) |
| B872 |
SUB $04 |
| B874 |
SUB (IX+$04) |
| B877 |
JP P,$B87C |
| B87A |
NEG |
| B87C |
CP E |
| B87D |
RET |
