35709: Set the cast-a-spell-enabled flag if carrying a magic object
| 35709 |
LD A,(65532) |
| 35712 |
RES 5,A |
| 35714 |
LD (65532),A |
| 35717 |
LD B,5 |
| 35719 |
LD IX,25395 |
| 35723 |
LD A,(IX+0) |
| 35726 |
LD E,3 |
| 35728 |
CALL 34160 |
| 35731 |
LD A,(HL) |
| 35732 |
OR A |
| 35733 |
JR NZ,35740 |
| 35735 |
INC IX |
| 35737 |
DJNZ 35723 |
| 35739 |
RET |
| 35740 |
LD A,(65532) |
| 35743 |
SET 5,A |
| 35745 |
LD (65532),A |
| 35748 |
RET |