jetpac: Routine at 7473

7473: Jetman flight collision detection.

Used by the routines at 74bf and 74c5.

Input
IX	Jetman object.

7473

call $75e8

Platform collision detection (returns E)

7476

bit 2,e

Redraw Jetman if bit-2 has not been set

7478

jr z,$7492

747a

bit 7,e

Jetman lands on top of a platform

747c

jp nz,$74a7

747f

bit 4,e

Jetman hits bottom of a platform

7481

jr nz,$74a1

Jetman hits platform edge.

7483

ld a,e

7484

xor $40

Update E to be either $00 or $40.

7486

and $40

7488

ld e,a

7489

ld a,(ix+$04)

Update Jetman moving direction

748c

and $bf

748e

or e

748f

ld (ix+$04),a