6440: Routine at 6440
| 6440 |
LD A,$0A |
| 6442 |
NOP |
| 6443 |
LD C,A |
| 6444 |
INC B |
| 6445 |
INC C |
| 6446 |
LD HL,$A01E |
| 6449 |
PUSH HL |
| 644A |
LD DE,$B400 |
| 644D |
DEC (HL) |
| 644E |
JR Z,$6458 |
| 6450 |
LD E,$24 |
| 6452 |
INC H |
| 6453 |
DEC (HL) |
| 6454 |
JR Z,$6458 |
| 6456 |
LD E,$48 |
| 6458 |
POP HL |
| 6459 |
PUSH HL |
| 645A |
INC L |
| 645B |
INC L |
| 645C |
JR NZ,$6462 |
| 645E |
LD A,H |
| 645F |
ADD A,$05 |
| 6461 |
LD H,A |
| 6462 |
INC L |
| 6463 |
LD A,(HL) |
| 6464 |
DEC A |
| 6465 |
JR Z,$6470 |
| 6467 |
INC H |
| 6468 |
LD A,(HL) |
| 6469 |
DEC A |
| 646A |
LD A,$0C |
| 646C |
JR Z,$6470 |
| 646E |
LD A,$18 |
| 6470 |
ADD A,E |
| 6471 |
LD E,A |
| 6472 |
POP HL |
| 6473 |
DEC H |
| 6474 |
LD B,$04 |
| 6476 |
LD A,(DE) |
| 6477 |
LD (HL),A |
| 6478 |
INC H |
| 6479 |
INC E |
| 647A |
DJNZ $6476 |
| 647C |
DEC H |
| 647D |
DEC H |
| 647E |
DEC H |
| 647F |
DEC H |
| 6480 |
INC L |
| 6481 |
LD B,$04 |
| 6483 |
LD A,(DE) |
| 6484 |
LD (HL),A |
| 6485 |
INC H |
| 6486 |
INC E |
| 6487 |
DJNZ $6483 |
| 6489 |
INC H |
| 648A |
INC L |
| 648B |
JR Z,$6491 |
| 648D |
LD A,H |
| 648E |
SUB $05 |
| 6490 |
LD H,A |
| 6491 |
LD B,$04 |
| 6493 |
LD A,(DE) |
| 6494 |
LD (HL),A |
| 6495 |
INC H |
| 6496 |
INC E |
| 6497 |
DJNZ $6493 |
| 6499 |
DEC H |
| 649A |
DEC H |
| 649B |
DEC H |
| 649C |
LD A,L |
| 649D |
ADD A,$1E |
| 649F |
LD L,A |
| 64A0 |
DEC C |
| 64A1 |
JR NZ,$6449 |
| 64A3 |
RET |
