jetpac: Routine at 7239

7239: Erase an actor sprite - after an it's been moved.

Used by the routine at 7226.

Input
IX	Actor object.

7239

ld a,($5dc1)

723c

sub (ix+$02)

Subtract the actor Y position

723f

jp z,$7748

Update actor size if 0

7242

jp m,$7254

Jump if result is negative

7245

ld c,a

else C=result

7246

ld a,($5dc5)

7249

cp c

724a

jp c,$7748

Update actor size if REGa < C

724d

sub c

else subtract C

724e

ld ($5dc5),a

7251

jp $7705

Mask sprite pixels

7254

exx

7255

neg

7257

ld c,a

7258

ld a,($5dc6)

725b

cp c

725c

jp c,$7747

Update actor size if < C

725f

sub c

7260

jp $775b

Erase sprite pixels