C821: Routine at C821
| C821 |
PUSH IX |
| C823 |
PUSH BC |
| C824 |
CALL $D237 |
| C827 |
LD B,A |
| C828 |
LD A,($A036) |
| C82B |
CALL $C863 |
| C82E |
CP B |
| C82F |
JR Z,$C85D |
| C831 |
BIT 7,(IX+$05) |
| C835 |
JR Z,$C85A |
| C837 |
LD C,A |
| C838 |
LD A,B |
| C839 |
LD B,C |
| C83A |
CALL $C863 |
| C83D |
LD C,A |
| C83E |
LD A,($A036) |
| C841 |
CP C |
| C842 |
JR Z,$C85D |
| C844 |
LD A,C |
| C845 |
CP B |
| C846 |
JR NZ,$C85A |
| C848 |
INC A |
| C849 |
JR NZ,$C85D |
| C84B |
LD B,(IX+$00) |
| C84E |
LD A,($A00A) |
| C851 |
CP (IX+$0F) |
| C854 |
JR Z,$C85D |
| C856 |
INC IX |
| C858 |
DJNZ $C851 |
| C85A |
XOR A |
| C85B |
JR $C85F |
| C85D |
OR $01 |
| C85F |
POP BC |
| C860 |
POP IX |
| C862 |
RET |
