8733: Routine at 8733
| 8733 |
LD L,(IX+$01) |
| 8736 |
LD H,(IX+$04) |
| 8739 |
LD D,(IX+$07) |
| 873C |
LD A,($5E57) |
| 873F |
AND A |
| 8740 |
RET Z |
| 8741 |
LD B,A |
| 8742 |
CALL AttributeAddress |
| 8745 |
LD A,($5E58) |
| 8748 |
RRCA |
| 8749 |
RRCA |
| 874A |
INC A |
| 874B |
RRCA |
| 874C |
AND $1F |
| 874E |
INC A |
| 874F |
LD C,A |
| 8750 |
PUSH BC |
| 8751 |
PUSH HL |
| 8752 |
LD A,H |
| 8753 |
CP $58 |
| 8755 |
JR C,$8770 |
| 8757 |
PUSH BC |
| 8758 |
PUSH HL |
| 8759 |
LD BC,$5AC0 |
| 875C |
AND A |
| 875D |
SBC HL,BC |
| 875F |
POP HL |
| 8760 |
POP BC |
| 8761 |
JR NC,$8770 |
| 8763 |
LD A,(HL) |
| 8764 |
AND A |
| 8765 |
JR Z,$8768 |
| 8767 |
LD (HL),D |
| 8768 |
INC L |
| 8769 |
LD A,L |
| 876A |
AND $1F |
| 876C |
JR Z,$8770 |
| 876E |
DJNZ $8763 |
| 8770 |
POP HL |
| 8771 |
LD BC,$0020 |
| 8774 |
AND A |
| 8775 |
SBC HL,BC |
| 8777 |
POP BC |
| 8778 |
DEC C |
| 8779 |
JR NZ,$8750 |
| 877B |
RET |
