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 |