8A71: Put the score on the high score table if necessary
| 8A71 |
LD HL,$8D60 |
| 8A74 |
LD DE,$60A1 |
| 8A77 |
LD B,$07 |
| 8A79 |
LD A,(DE) |
| 8A7A |
SUB $08 |
| 8A7C |
LD (HL),A |
| 8A7D |
INC DE |
| 8A7E |
DEC HL |
| 8A7F |
DJNZ $8A79 |
| 8A81 |
CALL $8B0C |
| 8A84 |
LD A,($8B2B) |
| 8A87 |
CP $01 |
| 8A89 |
RET Z |
| 8A8A |
CALL $8B4F |
| 8A8D |
CALL $8B5F |
| 8A90 |
LD A,($8B2B) |
| 8A93 |
DEC A |
| 8A94 |
LD B,A |
| 8A95 |
LD HL,$8CE6 |
| 8A98 |
LD DE,$8CDC |
| 8A9B |
PUSH HL |
| 8A9C |
LD C,$07 |
| 8A9E |
LD A,(DE) |
| 8A9F |
LD (HL),A |
| 8AA0 |
INC HL |
| 8AA1 |
INC DE |
| 8AA2 |
DEC C |
| 8AA3 |
JR NZ,$8A9E |
| 8AA5 |
POP HL |
| 8AA6 |
LD DE,$000A |
| 8AA9 |
SBC HL,DE |
| 8AAB |
PUSH HL |
| 8AAC |
SBC HL,DE |
| 8AAE |
EX DE,HL |
| 8AAF |
POP HL |
| 8AB0 |
DJNZ $8A9B |
| 8AB2 |
LD A,($8B2B) |
| 8AB5 |
DEC A |
| 8AB6 |
LD B,A |
| 8AB7 |
LD HL,$8CAF |
| 8ABA |
LD DE,$8CA0 |
| 8ABD |
PUSH HL |
| 8ABE |
LD C,$0C |
| 8AC0 |
LD A,(DE) |
| 8AC1 |
LD (HL),A |
| 8AC2 |
INC HL |
| 8AC3 |
INC DE |
| 8AC4 |
DEC C |
| 8AC5 |
JR NZ,$8AC0 |
| 8AC7 |
POP HL |
| 8AC8 |
LD DE,$000F |
| 8ACB |
SBC HL,DE |
| 8ACD |
PUSH HL |
| 8ACE |
SBC HL,DE |
| 8AD0 |
EX DE,HL |
| 8AD1 |
POP HL |
| 8AD2 |
DJNZ $8ABD |
| 8AD4 |
LD HL,$8CF0 |
| 8AD7 |
LD DE,$000A |
| 8ADA |
LD A,($8B2B) |
| 8ADD |
DEC A |
| 8ADE |
LD B,A |
| 8ADF |
SBC HL,DE |
| 8AE1 |
DJNZ $8ADF |
| 8AE3 |
LD DE,$8D5A |
| 8AE6 |
LD B,$07 |
| 8AE8 |
LD A,(DE) |
| 8AE9 |
LD (HL),A |
| 8AEA |
INC HL |
| 8AEB |
INC DE |
| 8AEC |
DJNZ $8AE8 |
| 8AEE |
LD HL,$8CBE |
| 8AF1 |
LD DE,$000F |
| 8AF4 |
LD A,($8B2B) |
| 8AF7 |
DEC A |
| 8AF8 |
LD B,A |
| 8AF9 |
SBC HL,DE |
| 8AFB |
DJNZ $8AF9 |
| 8AFD |
LD DE,$8D4B |
| 8B00 |
LD B,$0C |
| 8B02 |
LD A,(DE) |
| 8B03 |
LD (HL),A |
| 8B04 |
INC HL |
| 8B05 |
INC DE |
| 8B06 |
DJNZ $8B02 |
| 8B08 |
CALL $8B4F |
| 8B0B |
RET |