27375: Routine at 6AEF
27375 |
LD HL,24011 |
27378 |
INC (HL) |
27379 |
CALL 27879 |
27382 |
CALL MeteorUpdate_9 |
27385 |
DEC C |
27386 |
JP Z,27682 |
27389 |
CALL MeteorUpdate_4 |
27392 |
DEC E |
27393 |
JP Z,25741 |
27396 |
XOR A |
27397 |
LD (24009),A |
27400 |
CALL 30237 |
27403 |
BIT 2,E |
27405 |
JR Z,27432 |
27407 |
BIT 7,E |
27409 |
JP NZ,27652 |
27412 |
BIT 4,E |
27414 |
JP NZ,27659 |
27417 |
LD A,E |
27418 |
AND 64 |
27420 |
XOR 64 |
27422 |
LD E,A |
27423 |
LD A,(IX+4) |
27426 |
AND 191 |
27428 |
OR E |
27429 |
LD (IX+4),A |
27432 |
LD A,(IX+5) |
27435 |
LD B,A |
27436 |
AND 15 |
27438 |
LD C,A |
27439 |
LD A,B |
27440 |
AND 240 |
27442 |
LD B,A |
27443 |
LD A,(23809) |
27446 |
SUB (IX+1) |
27449 |
JP P,27563 |
27452 |
BIT 6,(IX+4) |
27456 |
JP Z,27597 |
27459 |
LD A,C |
27460 |
CP 15 |
27462 |
JR NC,27465 |
27464 |
INC A |
27465 |
LD C,A |
27466 |
LD H,(IX+1) |
27469 |
CALL 27666 |
27472 |
AND A |
27473 |
SBC HL,DE |
27475 |
LD (IX+1),H |
27478 |
LD A,L |
27479 |
AND 240 |
27481 |
OR C |
27482 |
LD (IX+5),A |
27485 |
LD A,(IX+6) |
27488 |
LD B,A |
27489 |
AND 15 |
27491 |
LD C,A |
27492 |
LD A,B |
27493 |
AND 240 |
27495 |
LD B,A |
27496 |
LD A,(23810) |
27499 |
SUB (IX+2) |
27502 |
JP P,27609 |
27505 |
BIT 7,(IX+4) |
27509 |
JP Z,27642 |
27512 |
LD A,C |
27513 |
DEC A |
27514 |
JR NZ,27621 |
27516 |
RES 7,(IX+4) |
27520 |
LD C,A |
27521 |
LD H,(IX+2) |
27524 |
CALL 27666 |
27527 |
AND A |
27528 |
SBC HL,DE |
27530 |
LD A,H |
27531 |
CP 40 |
27533 |
JR NC,27539 |
27535 |
SET 7,(IX+4) |
27539 |
LD (IX+2),A |
27542 |
LD A,L |
27543 |
AND 240 |
27545 |
OR C |
27546 |
LD (IX+6),A |
27549 |
LD A,(24009) |
27552 |
AND A |
27553 |
JP NZ,28026 |
27556 |
INC A |
27557 |
LD (24009),A |
27560 |
JP 27400 |
27563 |
BIT 6,(IX+4) |
27567 |
JR Z,27589 |
27569 |
LD A,C |
27570 |
DEC A |
27571 |
JP NZ,27465 |
27574 |
RES 6,(IX+4) |
27578 |
LD C,A |
27579 |
LD H,(IX+1) |
27582 |
CALL 27666 |
27585 |
ADD HL,DE |
27586 |
JP 27475 |
27589 |
LD A,C |
27590 |
CP 15 |
27592 |
JR NC,27578 |
27594 |
INC A |
27595 |
JR 27578 |
27597 |
LD A,C |
27598 |
DEC A |
27599 |
JP NZ,27578 |
27602 |
SET 6,(IX+4) |
27606 |
JP 27465 |
27609 |
BIT 7,(IX+4) |
27613 |
JR Z,27632 |
27615 |
LD A,C |
27616 |
CP 15 |
27618 |
JR NC,27621 |
27620 |
INC A |
27621 |
LD C,A |
27622 |
LD H,(IX+2) |
27625 |
CALL 27666 |
27628 |
ADD HL,DE |
27629 |
JP 27530 |
27632 |
LD A,C |
27633 |
DEC A |
27634 |
JR NZ,27520 |
27636 |
SET 7,(IX+4) |
27640 |
JR 27621 |
27642 |
LD A,C |
27643 |
CP 15 |
27645 |
JP NC,27520 |
27648 |
INC A |
27649 |
JP 27520 |
27652 |
RES 7,(IX+4) |
27656 |
JP 27432 |
27659 |
SET 7,(IX+4) |
27663 |
JP 27432 |
27666 |
LD L,B |
27667 |
LD A,C |
27668 |
RLA |
27669 |
RLA |
27670 |
RLA |
27671 |
RLA |
27672 |
AND 240 |
27674 |
LD E,A |
27675 |
LD D,0 |
27677 |
SLA E |
27679 |
RL D |
27681 |
RET |
27682 |
LD BC,80 |
27685 |
CALL AddPointsToScore |
27688 |
CALL EndAnimation |
27691 |
XOR A |
27692 |
JP ExplosionInitialise |