Routines
31573: Make ERIC catch a mouse or frog (if present)
The address of this routine is placed in 32727
by the routine at 57637 after 'C' has been pressed
31573 |
2E00 |
LD L,0 |
31575 |
7E |
LD A,(HL) |
31576 |
07 |
RLCA |
31577 |
9F |
SBC A,A |
31578 |
87 |
ADD A,A |
31579 |
2F |
CPL |
31580 |
2C |
INC L |
31581 |
86 |
ADD A,(HL) |
31582 |
2C |
INC L |
31583 |
ED5B01D4 |
LD DE,(54273) |
31587 |
BB |
CP E |
31588 |
C0 |
RET NZ |
31589 |
7E |
LD A,(HL) |
31590 |
BA |
CP D |
31591 |
C0 |
RET NZ |
31592 |
3A00D4 |
LD A,(54272) |
31595 |
E67F |
AND 127 |
31597 |
FE2F |
CP 47 |
31599 |
C2F57B |
JP NZ,31733 |
31602 |
26D4 |
LD H,212 |
31604 |
CDB461 |
CALL 25012 |
31607 |
21FF7F |
LD HL,32767 |
31610 |
CD9162 |
CALL 25233 |
31613 |
E607 |
AND 7 |
31615 |
57 |
LD D,A |
31616 |
FE02 |
CP 2 |
31618 |
3008 |
JR NC,31628 |
31620 |
7E |
LD A,(HL) |
31621 |
07 |
RLCA |
31622 |
38F2 |
JR C,31610 |
31624 |
2EAA |
LD L,170 |
31626 |
1817 |
JR 31651 |
31628 |
FE05 |
CP 5 |
31630 |
7E |
LD A,(HL) |
31631 |
300C |
JR NC,31645 |
31633 |
FE38 |
CP 56 |
31635 |
2E58 |
LD L,88 |
31637 |
380C |
JR C,31651 |
31639 |
FE68 |
CP 104 |
31641 |
38DF |
JR C,31610 |
31643 |
1806 |
JR 31651 |
31645 |
2E0A |
LD L,10 |
31647 |
FE38 |
CP 56 |
31649 |
38D7 |
JR C,31610 |
31651 |
7A |
LD A,D |
31652 |
D603 |
SUB 3 |
31654 |
30FC |
JR NC,31652 |
31656 |
C603 |
ADD A,3 |
31658 |
2611 |
LD H,17 |
31660 |
2807 |
JR Z,31669 |
31662 |
3D |
DEC A |
31663 |
260A |
LD H,10 |
31665 |
2802 |
JR Z,31669 |
31667 |
2603 |
LD H,3 |
31669 |
2201D4 |
LD (54273),HL |
31672 |
3E0A |
LD A,10 |
31674 |
CD1871 |
CALL 28952 |
31677 |
21E17F |
LD HL,32737 |
31680 |
34 |
INC (HL) |
31681 |
7E |
LD A,(HL) |
Now it's time to update the mouse inventory. This entry point is used by the
routine at 31462.
31682 |
3AE17F |
LD A,(32737) |
31685 |
4F |
LD C,A |
31686 |
2EA8 |
LD L,168 |
31688 |
79 |
LD A,C |
31689 |
A7 |
AND A |
31690 |
0608 |
LD B,8 |
31692 |
2650 |
LD H,80 |
31694 |
2006 |
JR NZ,31702 |
31696 |
77 |
LD (HL),A |
31697 |
24 |
INC H |
31698 |
10FC |
DJNZ 31696 |
31700 |
180A |
JR 31712 |
31702 |
11E09F |
LD DE,40928 |
31705 |
0D |
DEC C |
31706 |
1A |
LD A,(DE) |
31707 |
77 |
LD (HL),A |
31708 |
24 |
INC H |
31709 |
1C |
INC E |
31710 |
10FA |
DJNZ 31706 |
31712 |
2C |
INC L |
31713 |
CB65 |
BIT 4,L |
31715 |
28E3 |
JR Z,31688 |
31717 |
26D2 |
LD H,210 |
31719 |
C9 |
RET |