6498: Routine at 6498
6498 |
CALL StoreEntity |
649B |
CALL $761D |
649E |
BIT 2,E |
64A0 |
JR NZ,$64A8 |
64A2 |
INC (IX+$02) |
64A5 |
INC (IX+$02) |
64A8 |
CALL MeteorUpdate_4 |
64AB |
DEC E |
64AC |
JR NZ,$64C2 |
64AE |
XOR A |
64AF |
CALL $64E5 |
64B2 |
CALL $72A0 |
64B5 |
LD (IX+$00),$00 |
64B9 |
LD BC,$0250 |
64BC |
CALL AddPointsToScore |
64BF |
JP SoundsPickupItem |
64C2 |
LD A,(IX+$06) |
64C5 |
AND $0F |
64C7 |
LD HL,$64CD |
64CA |
JP StartGame_2 |
64CD |
RST $10 |
64CE |
LD H,H |
64CF |
LD SP,HL |
64D0 |
LD H,H |
64D1 |
LD SP,HL |
64D2 |
LD H,H |
64D3 |
DI |
64D4 |
LD H,H |
64D5 |
LD C,$65 |
64D7 |
LD (IX+$03),$46 |
64DB |
XOR A |
64DC |
CALL $64E5 |
64DF |
CALL $725E |
64E2 |
JP ColouriseSprite |
64E5 |
ADD A,(IX+$06) |
64E8 |
LD HL,$67C3 |
64EB |
LD C,A |
64EC |
LD B,$00 |
64EE |
ADD HL,BC |
64EF |
LD E,(HL) |
64F0 |
INC HL |
64F1 |
LD D,(HL) |
64F2 |
RET |
64F3 |
LD (IX+$03),$44 |
64F7 |
JR $64DB |
64F9 |
LD A,($5DCC) |
64FC |
AND $1F |
64FE |
CP $18 |
6500 |
JR NC,$6508 |
6502 |
LD (IX+$03),$00 |
6506 |
JR $64DB |
6508 |
LD (IX+$03),$45 |
650C |
JR $64DB |
650E |
LD A,($5DCC) |
6511 |
RRCA |
6512 |
RRCA |
6513 |
AND $07 |
6515 |
JR NZ,$6518 |
6517 |
INC A |
6518 |
OR $40 |
651A |
LD (IX+$03),A |
651D |
JR $64DB |