Dynamite Dan: Routine at ECF4

ECF4: Change colour of the laser being drawn across screen

Used by the routine at E6F6.

Input
HL	Pointer to entry containing current laser colour

ECF4

LD A,(HL)

Get the colour.

ECF5

AND $3F

Remove bright and flash bits.

ECF7

LD B,A

Store this in B.

ECF8

LD A,C

ECF9

CP B

ECFA

RET NC

ECFB

DEC A

ECFC

SET 7,A

ECFE

LD (HL),A

ECFF

RET