24477: Play a tune
|
24477 |
LD HL,23611 |
|
24480 |
RES 5,(HL) |
|
24482 |
LD HL,56384 |
|
24485 |
DI |
|
24486 |
INC HL |
|
24487 |
LD A,(HL) |
|
24488 |
INC A |
|
24489 |
JR NZ,24496 |
|
24491 |
INC HL |
|
24492 |
LD A,(HL) |
|
24493 |
INC HL |
|
24494 |
LD H,(HL) |
|
24495 |
LD L,A |
|
24496 |
LD A,(HL) |
|
24497 |
AND A |
|
24498 |
JP Z,62169 |
|
24501 |
PUSH HL |
|
24502 |
RRCA |
|
24503 |
LD B,A |
|
24504 |
JR NC,24514 |
|
24506 |
LD D,15 |
|
24508 |
DEC E |
|
24509 |
JR NZ,24508 |
|
24511 |
DEC D |
|
24512 |
JR NZ,24508 |
|
24514 |
AND 7 |
|
24516 |
LD C,A |
|
24517 |
ADD A,A |
|
24518 |
ADD A,240 |
|
24520 |
LD L,A |
|
24521 |
LD H,95 |
|
24523 |
LD A,B |
|
24524 |
RRCA |
|
24525 |
RRCA |
|
24526 |
RRCA |
|
24527 |
AND 15 |
|
24529 |
LD B,A |
|
24530 |
LD E,(HL) |
|
24531 |
INC L |
|
24532 |
LD A,(HL) |
|
24533 |
LD HL,0 |
|
24536 |
ADD HL,DE |
|
24537 |
DJNZ 24536 |
|
24539 |
RES 0,L |
|
24541 |
LD E,A |
|
24542 |
LD A,C |
|
24543 |
OUT (254),A |
|
24545 |
XOR 16 |
|
24547 |
LD C,A |
|
24548 |
LD B,E |
|
24549 |
DJNZ 24549 |
|
24551 |
DEC HL |
|
24552 |
DEC L |
|
24553 |
LD A,H |
|
24554 |
OR L |
|
24555 |
JR NZ,24542 |
|
24557 |
POP HL |
|
24558 |
JR 24486 |