| 813C |
PUSH DE |
| 813D |
LD A,(IX+$00) |
| 8140 |
AND A |
| 8141 |
JR Z,$814B |
| 8143 |
LD A,(AreaDataCurrent_Index) |
| 8146 |
CP (IX+$00) |
| 8149 |
JR NZ,$815F |
| 814B |
LD L,(IX+$01) |
| 814E |
LD H,$00 |
| 8150 |
ADD HL,HL |
| 8151 |
AND A |
| 8152 |
SBC HL,DE |
| 8154 |
JR NC,$8167 |
| 8156 |
LD DE,$0004 |
| 8159 |
AND A |
| 815A |
ADC HL,DE |
| 815C |
JP P,$8171 |
| 815F |
LD DE,$0004 |
| 8162 |
ADD IX,DE |
| 8164 |
POP DE |
| 8165 |
JR $813C |
| 8167 |
LD DE,$0005 |
| 816A |
SBC HL,DE |
| 816C |
JR C,$8171 |
| 816E |
POP DE |
| 816F |
SCF |
| 8170 |
RET |
| 8171 |
LD L,(IX+$02) |
| 8174 |
LD H,$00 |
| 8176 |
ADD HL,HL |
| 8177 |
SCF |
| 8178 |
SBC HL,BC |
| 817A |
JR NC,$815F |
| 817C |
LD L,(IX+$03) |
| 817F |
LD H,$00 |
| 8181 |
ADD HL,HL |
| 8182 |
AND A |
| 8183 |
SBC HL,BC |
| 8185 |
JR C,$815F |
| 8187 |
POP DE |
| 8188 |
AND A |
| 8189 |
RET |