45704: Routine at B288
45704 |
CALL Character_Active |
45707 |
JR Z,45726 |
45709 |
LD A,(47441) |
45712 |
CP (IY+15) |
45715 |
JR Z,45726 |
45717 |
LD A,(IY+95) |
45720 |
XOR 1 |
45722 |
LD (IY+95),A |
45725 |
RET Z |
45726 |
LD A,(IY+0) |
45729 |
INC A |
45730 |
CP 6 |
45732 |
JR C,45735 |
45734 |
XOR A |
45735 |
LD (IY+0),A |
45738 |
LD A,(IY+60) |
45741 |
CP 1 |
45743 |
JR NZ,45766 |
45745 |
LD A,(IY-60) |
45748 |
OR A |
45749 |
CALL Z,33236 |
45752 |
LD A,(IY+5) |
45755 |
ADD A,2 |
45757 |
CP 240 |
45759 |
JR C,45781 |
45761 |
LD A,240 |
45763 |
JP 45781 |
45766 |
LD A,(IY-60) |
45769 |
OR A |
45770 |
CALL NZ,33236 |
45773 |
LD A,(IY+5) |
45776 |
SUB 2 |
45778 |
JR NC,45781 |
45780 |
XOR A |
45781 |
LD (IY+5),A |
45784 |
JP 58108 |