7200: Routine at 7200
| 7200 |
CP $02 |
| 7202 |
JR NZ,$7223 |
| 7204 |
PUSH HL |
| 7205 |
LD A,L |
| 7206 |
SUB $20 |
| 7208 |
LD L,A |
| 7209 |
LD A,(HL) |
| 720A |
CP $10 |
| 720C |
JR NZ,$721B |
| 720E |
LD H,$4D |
| 7210 |
LD B,$03 |
| 7212 |
LD DE,$61EF |
| 7215 |
LD A,(DE) |
| 7216 |
LD (HL),A |
| 7217 |
INC H |
| 7218 |
DEC DE |
| 7219 |
DJNZ $7215 |
| 721B |
POP HL |
| 721C |
LD (HL),$00 |
| 721E |
LD DE,$3D00 |
| 7221 |
JR $722C |
| 7223 |
CP $10 |
| 7225 |
JR NZ,$7245 |
| 7227 |
LD (HL),$02 |
| 7229 |
LD DE,$61EB |
| 722C |
LD H,$48 |
| 722E |
LD B,$08 |
| 7230 |
LD A,(DE) |
| 7231 |
LD (HL),A |
| 7232 |
INC DE |
| 7233 |
INC H |
| 7234 |
DJNZ $7230 |
| 7236 |
LD A,$35 |
| 7238 |
LD ($652E),A |
| 723B |
CALL Handler_Score |
| 723E |
CALL PrintScore |
| 7241 |
CALL PrintLives |
| 7244 |
RET |
| 7245 |
CP $40 |
| 7247 |
RET NZ |
| 7248 |
RES 5,L |
| 724A |
LD A,(HL) |
| 724B |
CP $42 |
| 724D |
RET NZ |
| 724E |
LD A,$01 |
| 7250 |
LD ($66D3),A |
| 7253 |
RET |
