38493: Routine at 965D
| 38493 |
LD A,(47077) |
| 38496 |
CP 2 |
| 38498 |
JR NZ,38555 |
| 38500 |
LD A,(38483) |
| 38503 |
AND A |
| 38504 |
JR Z,38555 |
| 38506 |
PUSH BC |
| 38507 |
LD HL,47014 |
| 38510 |
LD DE,47048 |
| 38513 |
LD B,10 |
| 38515 |
CALL 48642 |
| 38518 |
LD HL,47084 |
| 38521 |
LD DE,47092 |
| 38524 |
LD B,3 |
| 38526 |
CALL 48642 |
| 38529 |
POP BC |
| 38530 |
CALL 38555 |
| 38533 |
LD HL,47014 |
| 38536 |
LD DE,47048 |
| 38539 |
LD B,10 |
| 38541 |
CALL 48642 |
| 38544 |
LD HL,47084 |
| 38547 |
LD DE,47092 |
| 38550 |
LD B,3 |
| 38552 |
JP 48642 |
| 38555 |
LD HL,38484 |
| 38558 |
LD A,(47086) |
| 38561 |
CP (HL) |
| 38562 |
JR C,38567 |
| 38564 |
INC HL |
| 38565 |
JR 38561 |
| 38567 |
LD E,(HL) |
| 38568 |
LD HL,47084 |
| 38571 |
LD A,C |
| 38572 |
ADD A,(HL) |
| 38573 |
DAA |
| 38574 |
LD (HL),A |
| 38575 |
INC HL |
| 38576 |
LD A,B |
| 38577 |
ADC A,(HL) |
| 38578 |
DAA |
| 38579 |
LD (HL),A |
| 38580 |
INC HL |
| 38581 |
LD A,0 |
| 38583 |
ADC A,(HL) |
| 38584 |
DAA |
| 38585 |
LD (HL),A |
| 38586 |
CP E |
| 38587 |
JR C,38642 |
| 38589 |
PUSH HL |
| 38590 |
PUSH IX |
| 38592 |
LD IX,39874 |
| 38596 |
CALL 46724 |
| 38599 |
CALL 39184 |
| 38602 |
CALL 39973 |
| 38605 |
LD (IX+17),0 |
| 38609 |
LD A,(IX+2) |
| 38612 |
ADD A,16 |
| 38614 |
CP 233 |
| 38616 |
JR NC,38621 |
| 38618 |
LD (IX+2),A |
| 38621 |
LD A,(47080) |
| 38624 |
INC A |
| 38625 |
LD (47080),A |
| 38628 |
CALL Sounds_FindEmptySlot |
| 38631 |
LD (IX+0),7 |
| 38635 |
LD (IX+1),32 |
| 38639 |
POP IX |
| 38641 |
POP HL |
| 38642 |
LD HL,(47014) |
| 38645 |
EXX |
| 38646 |
LD HL,47086 |
| 38649 |
LD A,1 |
| 38651 |
LD (23773),A |
| 38654 |
LD B,3 |
| 38656 |
LD A,(HL) |
| 38657 |
AND 240 |
| 38659 |
CALL 38674 |
| 38662 |
LD A,(HL) |
| 38663 |
ADD A,A |
| 38664 |
ADD A,A |
| 38665 |
ADD A,A |
| 38666 |
ADD A,A |
| 38667 |
CALL 38674 |
| 38670 |
DEC HL |
| 38671 |
DJNZ 38656 |
| 38673 |
RET |
| 38674 |
LD DE,26997 |
| 38677 |
ADD A,E |
| 38678 |
LD E,A |
| 38679 |
JR NC,38682 |
| 38681 |
INC D |
| 38682 |
LD (38702),DE |
| 38686 |
EXX |
| 38687 |
LD (38722),HL |
| 38690 |
EX DE,HL |
| 38691 |
LD HL,4608 |
| 38694 |
ADD HL,DE |
| 38695 |
LD A,8 |
| 38697 |
LD (38726),SP |
| 38701 |
LD SP,0 |
| 38704 |
EX AF,AF' |
| 38705 |
POP BC |
| 38706 |
LD A,C |
| 38707 |
OR (HL) |
| 38708 |
XOR B |
| 38709 |
LD (DE),A |
| 38710 |
LD BC,32 |
| 38713 |
ADD HL,BC |
| 38714 |
EX DE,HL |
| 38715 |
ADD HL,BC |
| 38716 |
EX DE,HL |
| 38717 |
EX AF,AF' |
| 38718 |
DEC A |
| 38719 |
JR NZ,38704 |
| 38721 |
LD HL,0 |
| 38724 |
INC L |
| 38725 |
LD SP,0 |
| 38728 |
EXX |
| 38729 |
RET |
