jetpac: Routine at 6541

6541: Carry a collected rocket module/fuel pod.

Ensure the rocket module/fuel pod remains attached to the foot of the Jetman sprite. Used by the routine at 64e8.

Input
IX	Rocket module object.

6541

ld hl,($5d01)

Update module position so it becomes attached to the player via the Jetman Y,X positions

6544

ld (ix+$01),l

6547

ld (ix+$02),h

654a

ld a,($5d31)

654d

sub (ix+$01)

Subtract module X position

6550

jp p,$6555

If already negative, jump

6553

neg

else make a negative value

6555

cp $06

Draw sprite if A >= 6

6557

jr nc,$650e

6559

set 2,(ix+$04)

Set module "state" to collected

655d

ld a,($5d31)

6560

ld (ix+$01),a

Update module X position to be same as Rocket position

6563

Update module and draw sprite