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 |