Routines
Prev: 26141 Up: Map Next: 26662
26163: Routine at 6633
26163 LD A,(IX+11)
26166 LD (IX+0),A
26169 CALL StoreEntity Call StoreEntity.
26172 LD D,(IX+5)
26175 LD E,(IX+4)
26178 LD A,(IX+8)
26181 BIT 7,(IX+10)
26185 JR NZ,26188
26187 RRA
26188 RRA
26189 AND %00001111 Keep only bits 0-3.
26191 LD L,A Create an offset in HL.
26192 LD H,0
26194 BIT 7,(IX+8)
26198 JR NZ,26141
26200 ADD HL,DE
This entry point is used by the routine at 26141.
26201 LD (IX+5),H
26204 LD (IX+4),L
26207 SRL H
26209 RR L
26211 PUSH HL
26212 LD D,(IX+7)
26215 LD E,(IX+6)
26218 LD A,(IX+9)
26221 BIT 7,(IX+10)
26225 JR NZ,26228
26227 RRA
26228 RRA
26229 AND %00001111 Keep only bits 0-3.
26231 LD L,A Create an offset in HL.
26232 LD H,0
26234 BIT 7,(IX+9)
26238 JR NZ,26152
26240 ADD HL,DE
This entry point is used by the routine at 26141.
26241 LD (IX+7),H
26244 LD (IX+6),L
26247 SRL H
26249 RR L
26251 LD DE,(24072) DE=24072.
26255 XOR A
26256 EX AF,AF'
26257 SBC HL,DE
26259 JR NC,26268
26261 CALL 27638 Call 27638.
26264 EX AF,AF'
26265 LD A,1
26267 EX AF,AF'
26268 EX (SP),HL
26269 LD DE,(24069) DE=PlayerMapPosition.
26273 AND A
26274 SBC HL,DE
26276 JR NC,26285
26278 CALL 27638 Call 27638.
26281 EX AF,AF'
26282 OR %00000010 Set bit 1.
26284 EX AF,AF'
26285 POP DE
26286 EX AF,AF'
26287 LD C,A
26288 LD A,H
26289 OR D
26290 JP NZ,26433
26293 LD A,L
26294 CP 88
26296 JP NC,26433
26299 LD A,E
26300 CP 88
26302 JP NC,26433
26305 BIT 0,C
26307 JR NZ,26311
26309 NEG
26311 ADD A,104
26313 LD (IX+2),A
26316 BIT 1,C
26318 LD A,L
26319 JR Z,26323
26321 NEG
26323 ADD A,152
26325 LD (IX+1),A
26328 PUSH BC
26329 LD A,(IX+9)
26332 LD E,A
26333 RLCA
26334 LD C,(IX+8)
26337 LD B,C
26338 RLC C
26340 XOR C
26341 AND 1
26343 SLA C
26345 OR C
26346 AND 3
26348 SLA A
26350 SLA A
26352 LD C,A
26353 LD A,B
26354 RRA
26355 RRA
26356 AND 7
26358 LD B,A
26359 LD A,E
26360 RLA
26361 AND 56
26363 OR B
26364 LD E,A
26365 LD D,0
26367 LD HL,26683 HL=26683.
26370 ADD HL,DE
26371 LD A,(HL)
26372 CP 255
26374 JR Z,26397
26376 BIT 2,C
26378 JR Z,26386
26380 NEG
26382 INC C
26383 INC C
26384 INC C
26385 INC C
26386 ADD A,C
26387 AND 15
26389 ADD A,16
26391 LD (IX+11),A
26394 LD (IX+0),A
26397 LD C,(IX+3)
26400 LD A,(24131) A=Flag_DayNight.
26403 PUSH BC
26404 LD B,0
26406 ADD A,C
26407 LD C,A
26408 LD HL,26679 HL=26679.
26411 ADD HL,BC
26412 LD A,(HL)
26413 LD (IX+3),A
26416 CALL ActorEraseMovedSprite
26419 CALL ColouriseSprite
26422 POP BC
26423 LD (IX+3),C
26426 POP BC
26427 SET 0,(IX+10)
26431 JR 26448
26433 BIT 0,(IX+10)
26437 JR Z,26448
26439 RES 0,(IX+10)
26443 PUSH BC
26444 CALL ActorEraseDestroyed
26447 POP BC
26448 BIT 1,C
26450 LD A,(IX+8)
26453 JR NZ,26521
26455 BIT 7,A
26457 JR Z,26502
26459 AND 31
26461 BIT 7,(IX+10)
26465 JR NZ,26513
26467 CP 31
26469 JR NC,26474
26471 INC (IX+8)
26474 BIT 0,C
26476 LD A,(IX+9)
26479 JR NZ,26546
26481 BIT 7,A
26483 JR Z,26535
26485 AND 31
26487 BIT 7,(IX+10)
26491 JR NZ,26517
26493 CP 31
26495 JR NC,26558
26497 INC (IX+9)
26500 JR 26558
26502 DEC (IX+8)
26505 JR NZ,26474
26507 SET 7,(IX+8)
26511 JR 26474
26513 CP 21
26515 JR 26469
26517 CP 21
26519 JR 26495
26521 BIT 7,A
26523 JR Z,26461
26525 AND 31
26527 JR NZ,26502
26529 LD (IX+8),0
26533 JR 26474
26535 DEC (IX+9)
26538 JR NZ,26558
26540 SET 7,(IX+9)
26544 JR 26558
26546 BIT 7,A
26548 JR Z,26487
26550 AND 31
26552 JR NZ,26535
26554 LD (IX+9),0
26558 LD (IX+0),2
26562 BIT 0,(IX+10)
26566 RET Z
26567 LD HL,24144
26570 LD B,7
26572 BIT 6,(HL)
26574 JR NZ,26631
26576 INC HL
26577 LD A,(HL)
26578 SUB (IX+1)
26581 JP P,26586
26584 NEG
26586 CP 10
26588 JR NC,26632
26590 INC HL
26591 LD A,(HL)
26592 SUB (IX+2)
26595 JP P,26600
26598 NEG
26600 CP 10
26602 JR NC,26633
26604 LD A,R
26606 AND 15
26608 OR 128
26610 LD B,A
26611 LD A,(IX+9)
26614 XOR B
26615 LD (IX+9),A
26618 LD A,(IX+8)
26621 XOR 128
26623 LD (IX+8),A
26626 CALL 24838 Call 24838.
26629 JR 26650 Jump to 26650.
26631 INC HL
26632 INC HL
26633 INC HL
26634 DJNZ 26572
26636 LD A,R
26638 AND 127
26640 JR NZ,26650
26642 LD A,(IX+8)
26645 XOR 15
26647 LD (IX+8),A
26650 LD A,(IX+1)
26653 SUB 152
26655 JP P,26660
26658 NEG
26660 CP 12
Prev: 26141 Up: Map Next: 26662