Prev: 818A Up: Map Next: 826E
818E: Routine at 818E
Used by the routine at 8456.
818E PUSH IX
8190 LD IX,(Baddy_LinkPtr)
8194 BIT 0,A
8196 JR Z,$81A7
8198 LD HL,(ManData_PosPrimary_dfc3)
819B LD C,(IX+$05)
819E LD B,(IX+$06)
81A1 LD DE,(AreaDataCurrent_Path_H)
81A5 JR $81B4
81A7 LD HL,(ManData_PosSecondary_dfc5)
81AA LD C,(IX+$07)
81AD LD B,(IX+$08)
81B0 LD DE,(AreaDataCurrent_Path_V)
81B4 AND A
81B5 SBC HL,BC
81B7 BIT 7,A
81B9 JR Z,$81BC
81BB CCF
81BC POP IX
81BE JR C,$81CB
81C0 LD L,(IX+$03)
81C3 LD A,$E9
81C5 CP L
81C6 JR NC,$81D4
81C8 LD L,A
81C9 JR $81D4
81CB LD L,(IX+$02)
81CE LD A,$17
81D0 CP L
81D1 JR C,$81D4
81D3 LD L,A
81D4 LD H,$00
81D6 ADD HL,HL
81D7 EX DE,HL
81D8 EXX
81D9 LD L,(IX+$01)
81DC LD H,$00
81DE ADD HL,HL
81DF EX DE,HL
81E0 LD BC,$0004
81E3 EXX
81E4 PUSH HL
81E5 POP IX
81E7 LD HL,$0000
81EA LD ($818A),HL
81ED LD L,E
81EE LD H,D
81EF AND A
81F0 SBC HL,BC
81F2 JR NC,$81FB
81F4 LD A,L
81F5 CPL
81F6 LD L,A
81F7 LD A,H
81F8 CPL
81F9 LD H,A
81FA INC HL
81FB LD ($818C),HL
81FE LD A,(IX+$00)
8201 AND A
8202 JR Z,$820C
8204 LD A,(AreaDataCurrent_Index)
8207 CP (IX+$00)
820A JR NZ,$821D
820C LD L,(IX+$01)
820F LD H,$00
8211 ADD HL,HL
8212 AND A
8213 SBC HL,DE
8215 JR NC,$8223
8217 ADD HL,DE
8218 AND A
8219 SBC HL,BC
821B JR NC,$8230
821D EXX
821E ADD IX,BC
8220 EXX
8221 JR $81FE
8223 ADD HL,DE
8224 AND A
8225 SBC HL,BC
8227 JR NC,$8266
8229 LD A,L
822A CPL
822B LD L,A
822C LD A,H
822D CPL
822E LD H,A
822F INC HL
8230 LD A,H
8231 AND A
8232 JR NZ,$8239
8234 LD A,L
8235 CP $05
8237 JR C,$821D
8239 EXX
823A LD L,(IX+$02)
823D LD H,$00
823F ADD HL,HL
8240 SCF
8241 SBC HL,DE
8243 JR NC,$821E
8245 LD L,(IX+$03)
8248 LD H,$00
824A ADD HL,HL
824B AND A
824C SBC HL,DE
824E JR C,$821E
8250 EXX
8251 PUSH DE
8252 EX DE,HL
8253 LD HL,($818C)
8256 AND A
8257 SBC HL,DE
8259 EX DE,HL
825A POP DE
825B JR C,$821D
825D LD ($818C),HL
8260 LD ($818A),IX
8264 JR $821D
8266 LD HL,($818A)
8269 LD A,L
826A OR H
826B RET NZ
826C SCF
826D RET
Prev: 818A Up: Map Next: 826E